home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / ARexx / ShowFS.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-01  |  569 b   |  23 lines
  1. /* 
  2.                         Control Tower Arexx Script
  3.                            Show Requested Image
  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. Switcher(MDV1)
  18. Switcher(FMLD,FileName)
  19. Switcher(TOWB)
  20. call remlib('ToasterARexx.port')
  21. call remlib('PROJECT_REXX_PORT')
  22. exit
  23.