home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / misc / jacosub / rexx / loadscript.jsrx < prev    next >
Encoding:
Text File  |  1994-01-03  |  424 b   |  21 lines
  1. /* JACOsub LOADSCRIPT command demonstration.
  2.    This command causes JACOsub load a script into its editor.
  3.  
  4.    SAVESCRIPT returns RESULT=0 if successful, or RESULT=1 if a problem
  5.    occurred.
  6. */
  7.  
  8. if ~arg() then do ; say 'No file name.' ; exit 1 ; end
  9.  
  10. parse arg filename
  11. options results
  12.  
  13. address 'JACOsub'
  14. 'LOADSCRIPT' filename
  15.  
  16. if result then
  17.     say 'script failed to load'
  18. else
  19.     say 'script loaded successfully'
  20. exit result
  21.