home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / AreaEnd.clssa next >
Text File  |  1993-07-05  |  401b  |  19 lines
  1. /***********************************************************
  2. GADGET: "'Goto Range End'" "5" "26" TYP: "?"
  3.  
  4. $DAT >>AreaEnd.clssa<< 04 Jul 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10. GetAnimInfo
  11. IF RESULT="" THEN Message "'No Anim Available.'"
  12. ELSE DO
  13.   GetArea
  14.   PARSE VAR RESULT . 'TO' f .
  15.   ViewFrame f
  16. End
  17.  
  18. EXIT
  19.