home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / GotoFrame.clssa < prev    next >
Text File  |  1993-07-05  |  623b  |  24 lines
  1. /***********************************************************************
  2.  GADGET: "'Goto Frame ...'" "5" "27" TYP: "?"
  3.  
  4.  $DAT >>GotoFrame.clssa<< 04 Jul 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.  
  11.   GetAnimInfo
  12.   IF RESULT="" THEN Message "'No Anim available.'"
  13.   ELSE DO
  14.     GetArea
  15.     PARSE VAR RESULT "FROM" From "TO" To .
  16.     INTRequest "'*** Show Frame ***''Enter the desired frame number'",
  17.                "'Between "From" And "To"'" 0
  18.     IF RC=0 THEN DO
  19.       IF RESULT>0 THEN ViewFrame RESULT
  20.     END
  21.   END
  22.  
  23. exit
  24.