home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / AreaStart.clssa < prev    next >
Text File  |  1993-07-05  |  452b  |  21 lines
  1. /***********************************************************************
  2.  GADGET: "'Goto Range Start'" "5" "25" TYP: "?"
  3.  
  4.  $DAT >>AreaStart.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 Animation Available.'"
  13.   ELSE DO
  14.     GetArea
  15.     PARSE VAR RESULT 'FROM' f .
  16.     ViewFrame f
  17.   END
  18.  
  19. exit
  20.  
  21.