home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / PHOGEN3.DMS / in.adf / Toaster.lha / FramestoreDisp.rx next >
Encoding:
Text File  |  1995-05-23  |  579 b   |  44 lines
  1. /* Toaster Display ARexx Script.  Jason G Doig 11/5/95 */
  2. parse arg buff
  3.  
  4. OPTIONS FAILAT 20
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS AREXX
  8.  
  9. IF (~SHOW('L', "ToasterARexx.port")) THEN
  10.     ADDLIB("ToasterARexx.port", -1)
  11.  
  12. IF ~SHOW('P', "ToasterARexx.port") THEN
  13.     EXIT
  14.  
  15. Switcher( TOSW )
  16.  
  17. IF buff = 'DV1' THEN DO
  18.     Switcher( MDV2 )
  19.     Switcher( PDV2 )
  20.     END
  21. ELSE DO
  22.     Switcher( MDV1 )
  23.     Switcher( PDV1 )
  24. END
  25.  
  26. oldpath = Switcher( FSNM )
  27.  
  28. Switcher( FSDV, 'RAM:' )
  29.  
  30. Switcher( FSBD )
  31.  
  32. Switcher( FMLD, 999 )
  33.  
  34. Switcher( TAKE )
  35.  
  36. Quit:
  37.  
  38. Switcher( TOWB )
  39.  
  40. IF oldpath ~= 'OLDPATH' THEN
  41.     Switcher( FSDV, oldpath )
  42.  
  43. EXIT
  44.