/*
 * $VER: SaveBufferAs_FlyerClip.ifx.pre 2.5 (25.02.96)
 * Copyright © 1996 Nova Design, Inc.
 * Written by Thomas Krehbiel
 *
 * Append main buffer to FlyerClip file.  Requires FlyerClip saver.
 *
 * Inputs:
 *    Word(Arg(1),1) = Sequence number (?)
 *    Word(Arg(1),2) = Total number of frames (N)
 *
 * Returns:
 *    0 if successful, non-zero on failure
 *
 */

OPTIONS RESULTS

base = 'Autofx_SaveBufAsFlyer_'
seq  = WORD(ARG(1),1)

lastpath = GETCLIP(base||'Path'||seq)
lastfile = GETCLIP(base||'File'||seq)
lastpat  = GETCLIP(base||'Pat'||seq)

IF lastpath = "" THEN DO
   GetPrefs RendPath
   lastpath = result
   END

RequestFile '"Save FlyerClip File:"' '"'lastpath'"' '"'lastfile'"' '"'lastpat'"'
IF rc ~= 0 THEN EXIT rc

name = result

IF EXISTS(name) THEN DO
   RequestResponse name 'exists.  Overwrite?'
   IF rc ~= 0 THEN EXIT rc
   ADDRESS COMMAND 'Delete "'name'"'
   END

CALL SETCLIP(base||'Path'||seq,filereq.path)
CALL SETCLIP(base||'File'||seq,filereq.file)
CALL SETCLIP(base||'Pat'||seq,filereq.pat)
CALL SETCLIP(base||'Name'||seq,name)

EXIT