home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / LoadProject.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-30  |  776 b   |  38 lines
  1. /* 
  2.                         Control Tower Arexx Script
  3.                        Load 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 Set_View(2)
  20. call ProjectLoad(FileName)
  21. call Switcher(TOWB)
  22. call remlib('ToasterARexx.port')
  23. call remlib('PROJECT_REXX_PORT')
  24. exit
  25.  
  26.  
  27.  
  28. syntax:
  29. error:
  30.     if SIGL = 20 then do
  31.             call Switcher( DIIM )
  32.         call Set_View(0)
  33.             call Switcher( ENIM )
  34.         call Switcher(TOWB)
  35.         end
  36.  
  37. exit
  38.