.key FROMFILE/A
.bra {
.ket }

FailAt 21
RequestFile SAVEMODE NOICONS HOME: TITLE "Choose File To Save To..." >PIPE:saveas.$$
IF NOT WARN
  Set SAVEFILE `Type PIPE:saveas.$$`
  Copy FROM "{FROMFILE}" TO "$SAVEFILE" >NIL:
  IF NOT WARN
    RequestChoice TITLE "File Saved" BODY "Saved as $SAVEFILE*N`list "$SAVEFILE" NOHEAD NODATES`" GADGETS "OK" >NIL:
  ELSE
    RequestChoice TITLE "File not Saved" BODY "Error Copying File {FROMFILE} to $SAVEFILE" GADGETS "Cancel" >NIL:
  ENDIF
ENDIF

