home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Kill2HF.clssa < prev    next >
Text File  |  1993-05-01  |  524b  |  23 lines
  1. /***********************************************************************
  2.  GADGET: "'Remove 2 HFs'" "5" AUTO TYP: "?"
  3.  
  4.  $DAT >>Kill2HF.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.     GetArea
  14.     Mark=RESULT
  15.     GetAnimInfo
  16.     PARSE VAR RESULT . 'POS' f .
  17.     SetArea FROM f TO f+1
  18.     DeleteArea AREA
  19.     SetArea Mark
  20.   END
  21.  
  22. exit
  23.