home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / gfx / misc / jacosub / rexx / playsetup.jsrx < prev    next >
Encoding:
Text File  |  1994-01-10  |  517 b   |  22 lines
  1. /* JACOsub PLAYSETUP command demonstration.
  2.    PLAYSETUP causes JACOsub to initialize itself for playing a script.
  3.    The command PLAYSETUP *must* be given prior to issuing a PLAYSCRIPT
  4.    command.
  5.  
  6.    PLAYSETUP returns RESULT=0 if successful, or RESULT=1 if a problem
  7.    occurred.
  8. */
  9.  
  10. parse arg playmode
  11. if ~arg() then playmode='INTERNAL'
  12. options results
  13.  
  14. address 'JACOsub'
  15. 'PLAYSETUP' playmode
  16.  
  17. if result then
  18.     say 'script play initialization failed.'
  19. else
  20.     say 'script play initialization successful.'
  21. exit result
  22.