home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / PlayClip.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  559 b   |  22 lines
  1. /* 
  2.                         Control Tower Arexx Script
  3.                          Play Requested Flyer Clip
  4.                            Written By J.L. White
  5.                          (C)1995 Merlin's Software
  6. */
  7.  
  8. parse arg FileName
  9. OPTIONS RESULTS
  10. FileName = strip(FileName)
  11. TOASTERLIB="ToasterARexx.port"
  12. call remlib('ToasterARexx.port')
  13. call remlib('PROJECT_REXX_PORT')
  14. call addlib('PROJECT_REXX_PORT' , 0)
  15. call addlib(TOASTERLIB,0)
  16. Switcher(TOSW)
  17. call CroutonRun(FileName)
  18. Switcher(TOWB)
  19. call remlib('ToasterARexx.port')
  20. call remlib('PROJECT_REXX_PORT')
  21. exit
  22.