home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / TestClip.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-09-07  |  842 b   |  28 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 InFile Start Total Which
  9. OPTIONS RESULTS
  10. InFile = Translate(InFile," ","¤")
  11. InFile = strip(InFile)
  12. if Which = 0 then do
  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.     Switcher(M003)
  19.     Address command "toaster:programs/flyer_support/c/playclip 0 0 0 "InFile" "d2x(Start)" "d2x(Total)" 0 1 2"
  20.     call remlib('ToasterARexx.port')
  21.     call remlib('PROJECT_REXX_PORT')
  22.     end
  23. if Which = 1 then do
  24.     Address command "toaster:programs/flyer_support/c/playclip 0 0 0 "InFile" "d2x(Start)" "d2x(Total)" 0 1 2"
  25.     end
  26.  
  27. exit
  28.