home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / memmanagement / freerma_1 / !FreeRMA / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-12-19  |  551b  |  27 lines

  1.  FreeRMA
  2.  Written by Andreas Schubert
  3.  original Idea: Thomas Olsson, !ShuffleWP
  4.  "Hourglass_On"
  5. 2    
  6.  "XWimp_SpriteOp",&10C,,"<Free$Dir>.TMP"
  7.     )    
  8.  "XWimp_BaseOfSprites" 
  9.  ,base%
  10. $    
  11.  "XOS_SpriteOp",&209,base%
  12. +    
  13.  "XOS_ReadDynamicArea",1 
  14.  ,size%
  15. -    
  16.  "XOS_ChangeDynamicArea",1,-1000000
  17. (    
  18.  ("IconSprites <Free$Dir>.TMP")
  19. -    
  20.  "XOS_ChangeDynamicArea",1,-1000000
  21. ,    
  22.  "XOS_ReadDynamicArea",1 
  23.  ,size1%
  24.  size%=size1%
  25.  ("Remove <Free$Dir>.TMP")
  26.  "Hourglass_Off"
  27.