home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / CTAdd.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-06-10  |  924 b   |  30 lines
  1. /* 
  2.                                    CTAdd
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5.  
  6.       This script waits till the Flyer software is running then adds
  7.         a program to the menu option in the Flyer software. It was
  8.      designed to be run from the StartToaster file in Toaster:Programs
  9.               You can edit the file to add your own programs.
  10.  
  11.        You need to add the following line to the StartToaster file:
  12.                        rx >NIL: CT:ARexx/CTAdd.rexx
  13.  
  14. */
  15.  
  16. OPTIONS RESULTS
  17. do while (POS('PROJECT_REXX_PORT',SHOW('Ports')) = 0)
  18.     address command "C:Wait 3"
  19. end
  20. TOASTERLIB="ToasterARexx.port"
  21. call remlib('ToasterARexx.port')
  22. call remlib('PROJECT_REXX_PORT')
  23. call addlib('PROJECT_REXX_PORT' , 0)
  24. call addlib(TOASTERLIB,0)
  25. call Addprogram("Control Tower","run CT:CT 1",0)
  26. call remlib('ToasterARexx.port')
  27. call remlib('PROJECT_REXX_PORT')
  28.  
  29. exit
  30.