DL_Handlers

Revision
Revised on

Description

Code

function DL_Handlers script
  put return before script
  put return & "on " into key
  put empty into handlers
  
  repeat
    set cursor to busy
    get offset(key,script)
    if it is 0 then
      exit repeat
    else
      delete char 1 to it+3 of script
      put (word 1 of script) & comma after handlers
    end if
  end repeat
  
  return handlers
  
end DL_Handlers