home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / DMOperation.clssa < prev    next >
Text File  |  1993-05-01  |  490b  |  21 lines
  1. /***********************************************************************
  2.  GADGET: "'Release Memory'" "1" AUTO TYP: "?"
  3.  
  4.  $DAT >>DMOperation.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.     SSAControl DoDMO DDOAlloc
  14.     Mem=RESULT
  15.     str='DMO-Memory Recovered@='||Mem
  16.     Message str
  17.   END
  18.  
  19. exit
  20.  
  21.