home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / InsertFrames.clssa < prev    next >
Text File  |  1993-05-01  |  625b  |  22 lines
  1. /***********************************************************************
  2.  GADGET: "'Insert'" "5" AUTO TYP: "?"
  3.  
  4.  $DAT >>InsertFrames.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.   GetAnimInfo
  11.   IF RESULT="" THEN Message "'No Animation available.'"
  12.   ELSE DO
  13.     PARSE VAR RESULT . "POS" pos .
  14.     INTRequest "'*** INSERT ***''''Enter the number of repeat''frames to insert.'",
  15.                "'''<<Current Position: "pos"' 0"
  16.     IF RC~=0 THEN exit
  17.     NUM=RESULT
  18.     IF NUM>0 THEN Record INSERT NUM
  19.   END
  20.  
  21. exit
  22.