home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / PlayProject.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  670 b   |  34 lines
  1. /* 
  2.                         Control Tower Arexx Script
  3.                        Play Requested Flyer Project
  4.                            Written By J.L. White
  5.                          (C)1995 Merlin's Software
  6. */
  7.  
  8. parse arg FileName
  9. OPTIONS RESULTS
  10. signal on error
  11. signal on syntax
  12. FileName = strip(FileName)
  13. TOASTERLIB="ToasterARexx.port"
  14. call remlib('ToasterARexx.port')
  15. call remlib('PROJECT_REXX_PORT')
  16. call addlib('PROJECT_REXX_PORT' , 0)
  17. call addlib(TOASTERLIB,0)
  18. call Switcher(TOSW)
  19. call ProjectPlay()
  20. call Switcher(TOWB)
  21. call remlib('ToasterARexx.port')
  22. call remlib('PROJECT_REXX_PORT')
  23. exit
  24.  
  25.  
  26.  
  27. syntax:
  28. error:
  29.     if SIGL = 19 then do
  30.         call Switcher(TOWB)
  31.         end
  32.  
  33. exit
  34.