home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / PHOGEN3.DMS / in.adf / Toaster.lha / FramestoreGrab.rx < prev   
Encoding:
Text File  |  1995-05-23  |  811 b   |  54 lines
  1. /* Toaster Grab ARexx Script.  Jason G Doig 11/5/95 */
  2. parse arg buff
  3.  
  4. OPTIONS FAILAT 20
  5. OPTIONS RESULTS
  6.  
  7. drive        =    'RAM:'
  8. path        =    'RAM:FrameStore'
  9. name        =    'PGSExport'
  10. num        =    999
  11. file        =    'RAM:FrameStore/999.FS.PGSExport'
  12.  
  13. ADDRESS AREXX
  14.  
  15. IF (~SHOW('L', "ToasterARexx.port")) THEN
  16.     ADDLIB("ToasterARexx.port", -1)
  17.  
  18. IF ~SHOW('P', "ToasterARexx.port") THEN
  19.     EXIT
  20.  
  21. IF ~EXISTS(path) THEN
  22.     ADDRESS COMMAND 'makedir' path
  23.  
  24. Switcher( TOSW )
  25.  
  26. IF buff = 'DV1' THEN DO
  27.     Switcher( MDV1 )
  28.     Switcher( PDV1 )
  29.     END
  30. ELSE DO
  31.     Switcher( MDV2 )
  32.     Switcher( PDV2 )
  33. END
  34.  
  35. oldpath = Switcher( FSNM )
  36. IF oldfspath = 'RAM:' THEN
  37.     Switcher( FSBD )
  38. ELSE DO
  39.     IF Switcher(FSDV,drive) ~= SWITCHER THEN DO
  40.         CALL Quit
  41.         END
  42.     END
  43.  
  44. Switcher( FMSV, num, name )
  45.  
  46. Switcher( TOWB )
  47.  
  48. Quit:
  49.  
  50. IF oldpath ~= 'OLDPATH' THEN
  51.     Switcher( FSDV, oldpath )
  52.  
  53. EXIT
  54.