home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
memmanagement
/
freerma_1
/
!FreeRMA
/
!RunImage
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1994-12-19
|
551b
|
27 lines
FreeRMA
Written by Andreas Schubert
original Idea: Thomas Olsson, !ShuffleWP
"Hourglass_On"
2
"XWimp_SpriteOp",&10C,,"<Free$Dir>.TMP"
)
"XWimp_BaseOfSprites"
,base%
$
"XOS_SpriteOp",&209,base%
+
"XOS_ReadDynamicArea",1
,size%
-
"XOS_ChangeDynamicArea",1,-1000000
(
("IconSprites <Free$Dir>.TMP")
-
"XOS_ChangeDynamicArea",1,-1000000
,
"XOS_ReadDynamicArea",1
,size1%
size%=size1%
("Remove <Free$Dir>.TMP")
"Hourglass_Off"