home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Internet / MetaTool / Support / SaveAS < prev    next >
Encoding:
AmigaDOS Script File  |  1978-03-06  |  488 b   |  17 lines
  1. .key FROMFILE/A
  2. .bra {
  3. .ket }
  4.  
  5. FailAt 21
  6. RequestFile SAVEMODE NOICONS HOME: TITLE "Choose File To Save To..." >PIPE:saveas.$$
  7. IF NOT WARN
  8.   Set SAVEFILE `Type PIPE:saveas.$$`
  9.   Copy FROM "{FROMFILE}" TO "$SAVEFILE" >NIL:
  10.   IF NOT WARN
  11.     RequestChoice TITLE "File Saved" BODY "Saved as $SAVEFILE*N`list "$SAVEFILE" NOHEAD NODATES`" GADGETS "OK" >NIL:
  12.   ELSE
  13.     RequestChoice TITLE "File not Saved" BODY "Error Copying File {FROMFILE} to $SAVEFILE" GADGETS "Cancel" >NIL:
  14.   ENDIF
  15. ENDIF
  16.  
  17.