Home » Archimedes archive » Acorn User » AU 1994-01.adf » !StarInfo_StarInfo » Salt/!Invasion/!RunImage

Salt/!Invasion/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1994-01.adf » !StarInfo_StarInfo
Filename: Salt/!Invasion/!RunImage
Read OK: ✔
File size: 1AF9 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM > !RunImage
    2ON ERROR ERROR EXT ERR,REPORT$+" at line "+STR$ ERL
    3SYS "Wimp_Initialise",200,&4B534154,"Invasion" TO ,handle%
    4PROCinit
    5PROCpoll
    6END
    7:
    8DEF PROCinit
    9DIM q% 1024,window% 200,menu% 200,text% 640
   10P%=q%
   11[OPT 2
   12.flag EQUD 0
   13.run
   14MOV 0,#14:MOV 1,#4:SWI "OS_Byte"
   15MOV 0,#19:SWI "OS_Byte"
   16MOV 3,#0
   17.loop ADD 3,3,#1
   18LDR 0,flag:MOVS 0,0:BNE loop
   19MOV 0,#13:MOV 1,#4:SWI "OS_Byte"
   20MOV 0,3:MOV PC,14
   21.int
   22STMFD 13!,{0,14}
   23LDR 0,flag:MVN 0,0:STR 0,flag
   24LDMFD 13!,{0,PC}^
   25]SYS "OS_Claim",16,int
   26SYS &20280,,1 TO cache%;f%
   27IF f% AND 1 THEN
   28 cache%=0:min%=FNtime:max%=min%
   29ELSE
   30 SYS &20280:min%=FNtime
   31 SYS &20280,1:max%=FNtime
   32 SYS &20280,cache%
   33ENDIF
   34SYS "OS_Release",16,int
   35min%+=1:max%+=1:active%=min%:setact%=min%
   36IF cache%:maxact%=max%:ELSE maxact%=min%
   37DIM x%(max%),y%(max%),dx%(max%),dy%(max%),n%(max%),s%(max%),d%(max%),t%(max%)
   38DIM mx%(max%),my%(max%),spt% 13*max%+13,spr$(15),max%(15),message$(1100)
   39SYS "OS_File",5,"<Obey$Dir>.Sprites" TO ,,,,size%
   40end%=HIMEM+size%+16
   41SYS "Wimp_SlotSize",end%-&8000,-1
   42SYS "OS_GetEnv" TO ,x%
   43IF x%<end%:ERROR 1,"I don't have enough space to invade!"
   44sprites=HIMEM:!sprites=size%+16
   45SYS "OS_SpriteOp",256+9,sprites
   46SYS "OS_SpriteOp",256+10,sprites,"<Obey$Dir>.Sprites"
   47SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
   48SYS "Wimp_LoadTemplate",,q%,text%,text%+640,-1,"Info" TO ,,ptr%
   49SYS "Wimp_CreateWindow",,q% TO info%
   50SYS "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Invasion" TO ,,ptr%
   51q%!24=-2:q%!64=sprites
   52SYS "Wimp_CreateWindow",,q% TO invasion%
   53SYS "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Message" TO ,,ptr%
   54messtext%=q%!108:wx%=q%!8-!q%:wy%=q%!12-q%!4
   55SYS "Wimp_CreateWindow",,q% TO message%
   56SYS "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Number" TO ,,ptr%
   57actvtext%=q%!172
   58SYS "Wimp_CreateWindow",,q% TO setup%
   59SYS "Wimp_CloseTemplate"
   60messages%=-1
   61in%=OPENIN "<Obey$Dir>.Messages"
   62LOCAL ERROR
   63ON ERROR LOCAL RESTORE ERROR:CLOSE #in%:ERROR ERR,REPORT$
   64WHILE NOT EOF #in% AND messages%<1100
   65 messages%+=1:message$(messages%)=GET$#in%
   66ENDWHILE
   67CLOSE #in%
   68RESTORE ERROR
   69PROCsetactive
   70!q%=-1:q%!4=0:q%!8=0
   71q%!12=68:q%!16=68:q%!20=2
   72$(q%+24)="!invasion"
   73SYS "Wimp_CreateIcon",,q% TO baricon%
   74FOR n%=0 TO max%:t%(n%)=spt%+n%*13:NEXT
   75$menu%="Invasion"
   76menu%!12=&70207:menu%!20=44:menu%!24=0
   77ptr%=menu%+28:width%=0:height%=96
   78RESTORE
   79REPEAT
   80 READ menu$
   81 IF menu$>"" THEN
   82  $(ptr%+12)=menu$:READ ptr%!4
   83  !ptr%=0:ptr%!8=&7000021
   84  IF LEN menu$>width%:width%=LEN menu$
   85  ptr%+=24:height%+=44
   86 ENDIF
   87UNTIL menu$=""
   88menu%!16=width%*16+32
   89width%=width%*8+32:ptr%!-24=128
   90PROCreadmode
   91end%=FALSE:s%()=-1
   92current%=0:messtime%=0
   93sprs%=-1:max%()=-1
   94REPEAT
   95 sprs%+=1:READ spr$(sprs%)
   96UNTIL sprs%=15 OR spr$(sprs%)=""
   97IF spr$(15)="":sprs%-=1
   98FOR n%=0 TO sprs%
   99 f%=0
  100 WHILE (f% AND 1)=0
  101  max%(n%)+=1
  102  SYS "XOS_SpriteOp",256+24,sprites,spr$(n%)+STR$ max%(n%) TO ;f%
  103 ENDWHILE
  104 IF max%(n%) ELSE ERROR 1,"You missed a sprite!"
  105NEXT
  106ENDPROC
  107REM Menu
  108DATA Info,info%,Quit,-1,
  109REM Sprite sequences (max. 16; if less than, terminated by null)
  110DATA invader,triangle,
  111:
  112DEF FNtime
  113y%=0:FOR x%=1 TO 5:y%+=USR run:NEXT
  114=y% DIV 25000
  115:
  116DEF PROCreadmode
  117mode%=MODE
  118SYS "OS_ReadModeVariable",-1,4 TO ,,dx%
  119SYS "OS_ReadModeVariable",-1,5 TO ,,dy%
  120SYS "OS_ReadModeVariable",-1,11 TO ,,maxx%
  121SYS "OS_ReadModeVariable",-1,12 TO ,,maxy%
  122maxx%+=1:maxy%-=135>>dy%
  123xpix%=maxx%<<dx%:ypix%=maxy%<<dy%
  124!q%=invasion%:SYS "Wimp_GetWindowState",,q%
  125q%!4=-1<<dx%:q%!8=-1<<dy%:q%!12=xpix%:q%!16=ypix%
  126SYS "Wimp_SetExtent",invasion%,q%+4
  127q%!8+=136:q%!16+=136
  128q%!20=q%!4:q%!24=q%!8:q%!28=-2
  129SYS "Wimp_OpenWindow",,q%
  130ENDPROC
  131:
  132DEF PROCpoll
  133SYS "OS_ReadMonotonicTime" TO time%
  134r%=RND(-time%)
  135REPEAT
  136 SYS "Wimp_Poll",,q% TO r%
  137 SYS "OS_ReadMonotonicTime" TO time1%
  138 CASE r% OF
  139 WHEN 2:IF !q%=invasion%:q%!28=-2
  140  IF !q%=message%:q%!28=-1
  141  SYS "Wimp_OpenWindow",,q%
  142 WHEN 3:SYS "Wimp_CloseWindow",,q%
  143 WHEN 6:PROCmouse(q%!8,q%!12,q%!16)
  144 WHEN 9:PROCmenu
  145 WHEN 17,18:PROCmessage
  146 ENDCASE
  147 IF time1%>=messtime%+400 AND messtime%:!q%=message%:SYS "Wimp_CloseWindow",,q%:messtime%=0
  148 IF MODE<>mode%:PROCreadmode
  149 IF current%:PROCinvade:ELSE IF time1%>=time%+10:time%+=10:PROCinvade
  150UNTIL end%
  151END
  152:
  153DEF PROCmouse(b%,h%,i%)
  154CASE TRUE OF
  155WHEN (b% AND 2)=2
  156 CASE h% OF
  157 WHEN -2:SYS "Wimp_CreateMenu",,menu%,!q%-width%,height%
  158 WHEN invasion%:SYS "Wimp_CreateMenu",,setup%,!q%-32,q%!4-32
  159 ENDCASE
  160OTHERWISE
  161 CASE h% OF
  162 WHEN invasion%:$messtext%=message$(RND(messages%+1)-1)
  163  !q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
  164  x%=(q%!8+q%!16)/2-wx%/2:y%=(q%!12+q%!20)/2-wy%/2
  165  !q%=message%:q%!4=0:q%!8=0:q%!12=0
  166  SYS "Wimp_SetIconState",,q%:SYS "Wimp_GetWindowState",,q%
  167  IF x%<0:x%=0:ELSE IF x%+wx%>xpix%:x%=xpix%-wx%
  168  IF y%<0:y%=0:ELSE IF y%+wy%>ypix%:y%=ypix%-wy%
  169  q%!4=x%:q%!8=y%+136:q%!12=x%+wx%:q%!16=y%+wy%+136:q%!28=-1
  170  SYS "Wimp_OpenWindow",,q%:messtime%=time1%
  171 WHEN message%:!q%=h%:SYS "Wimp_CloseWindow",,q%:messtime%=0
  172 WHEN setup%
  173  b%=b% AND 1
  174  CASE i% OF
  175  WHEN b%:IF setact%>-1:setact%-=1:PROCsetactive
  176  WHEN 1-b%:IF setact%<maxact%:setact%+=1:PROCsetactive
  177  ENDCASE
  178 ENDCASE
  179ENDCASE
  180ENDPROC
  181:
  182DEF PROCmenu
  183IF !q%=1:end%=TRUE
  184ENDPROC
  185:
  186DEF PROCmessage
  187CASE q%!16 OF
  188WHEN 0:end%=TRUE
  189WHEN &400C1:PROCreadmode
  190ENDCASE
  191ENDPROC
  192:
  193DEF PROCinvade
  194IF setact%>active%:active%=setact%
  195IF setact%<active% THEN
  196 WHILE s%(active%)=-1 AND setact%<active% AND active%
  197  active%-=1
  198 ENDWHILE
  199 IF active% ELSE IF s%(0)=-1:active%=-1
  200ENDIF
  201IF active%<0:ENDPROC
  202!q%=invasion%:n%=current%
  203q%!4=n%:SYS "XWimp_DeleteIcon",,q%
  204SYS &20280,,1 TO cache%;f%:IF f% AND 1:cache%=0
  205IF cache%:maxact%=max%:ELSE maxact%=min%
  206IF s%(n%)>-1 THEN
  207 SYS "Wimp_ForceRedraw",!q%,x%(n%)-ABS dx%(n%),y%(n%)-ABS dy%(n%),x%(n%)+mx%(n%)+ABS dx%(n%),y%(n%)+my%(n%)+ABS dy%(n%)
  208ELSE
  209 IF active%<=setact%:PROCcreate(n%)
  210ENDIF
  211IF s%(n%)>-1:PROCmove(n%)
  212q%!4=n%:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%
  213current%=(current%+1) MOD (active%+1)
  214ENDPROC
  215:
  216DEF PROCcreate(n%)
  217IF sprs%:n%(n%)=RND(sprs%+1)-1:ELSE n%(n%)=0
  218SYS "OS_SpriteOp",256+40,sprites,spr$(n%(n%))+"0" TO ,,,mx%,my%
  219mx%=mx%*2+2:my%=my%*4+4:mx%(n%)=mx%:my%(n%)=my%
  220s%(n%)=RND(max%(n%(n%))+1)-1
  221IF RND(2)=1:d%(n%)=1:ELSE d%(n%)=max%(n%(n%))-1
  222CASE RND(4) OF
  223WHEN 1:x%(n%)=-mx%:y%(n%)=(RND(maxy%-(my%>>dy%))-1)<<dy%
  224 dx%(n%)=RND(2)*4:dy%(n%)=RND(9)-5
  225WHEN 2:x%(n%)=xpix%:y%(n%)=(RND(maxy%-(my%>>dy%))-1)<<dy%
  226 dx%(n%)=-RND(2)*4:dx%(n%)=RND(9)-5
  227WHEN 3:y%(n%)=-my%:x%(n%)=(RND(maxx%-(mx%>>dx%))-1)<<dx%
  228 dy%(n%)=RND(2)*4:dx%(n%)=RND(9)-5
  229WHEN 4:y%(n%)=ypix%:x%(n%)=(RND(maxx%-(mx%>>dx%))-1)<<dx%
  230 dy%(n%)=-RND(2)*4:dx%(n%)=RND(9)-5
  231ENDCASE
  232ENDPROC
  233:
  234DEF PROCmove(n%)
  235s%(n%)=(s%(n%)+d%(n%)) MOD max%(n%(n%))
  236$t%(n%)=spr$(n%(n%))+STR$ s%(n%):x%(n%)+=dx%(n%):y%(n%)+=dy%(n%)
  237IF x%(n%)<=-mx%(n%) OR x%(n%)>=xpix% OR y%(n%)<=-my%(n%) OR y%(n%)>=ypix%:s%(n%)=-1:ENDPROC
  238q%!4=x%(n%):q%!8=y%(n%):q%!12=q%!4+mx%(n%):q%!16=q%!8+my%(n%)
  239q%!20=&3102:q%!24=t%(n%):q%!28=sprites:q%!32=13
  240SYS "Wimp_CreateIcon",,q%
  241ENDPROC
  242:
  243DEF PROCsetactive
  244$actvtext%=STR$ (setact%+1)
  245!q%=setup%:q%!4=2:q%!8=0:q%!12=0
  246SYS "Wimp_SetIconState",,q%
  247ENDPROC

� > !RunImage
 � � � � �,�$+" at line "+� �
<ș "Wimp_Initialise",200,&4B534154,"Invasion" � ,handle%
	�init
	�poll
�
:
� �init
	-� q% 1024,window% 200,menu% 200,text% 640

	P%=q%

[OPT 2
.flag EQUD 0

.run
$MOV 0,#14:MOV 1,#4:SWI "OS_Byte"
MOV 0,#19:SWI "OS_Byte"
MOV 3,#0
.loop ADD 3,3,#1
 LDR 0,flag:MOVS 0,0:BNE loop
$MOV 0,#13:MOV 1,#4:SWI "OS_Byte"
MOV 0,3:MOV PC,14
.int
STMFD 13!,{0,14}
!LDR 0,flag:MVN 0,0:STR 0,flag
LDMFD 13!,{0,PC}^
]ș "OS_Claim",16,int
ș &20280,,1 � cache%;f%
� f% � 1 �
" cache%=0:min%=�time:max%=min%
�
 ș &20280:min%=�time
 ș &20280,1:max%=�time
  ș &20280,cache%
!�
"ș "OS_Release",16,int
#-min%+=1:max%+=1:active%=min%:setact%=min%
$(� cache%:maxact%=max%:� maxact%=min%
%O� x%(max%),y%(max%),dx%(max%),dy%(max%),n%(max%),s%(max%),d%(max%),t%(max%)
&J� mx%(max%),my%(max%),spt% 13*max%+13,spr$(15),max%(15),message$(1100)
'3ș "OS_File",5,"<Obey$Dir>.Sprites" � ,,,,size%
(end%=�+size%+16
)$ș "Wimp_SlotSize",end%-&8000,-1
*ș "OS_GetEnv" � ,x%
+8� x%<end%:� 1,"I don't have enough space to invade!"
,sprites=�:!sprites=size%+16
-"ș "OS_SpriteOp",256+9,sprites
.8ș "OS_SpriteOp",256+10,sprites,"<Obey$Dir>.Sprites"
/2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
0Aș "Wimp_LoadTemplate",,q%,text%,text%+640,-1,"Info" � ,,ptr%
1&ș "Wimp_CreateWindow",,q% � info%
2Dș "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Invasion" � ,,ptr%
3q%!24=-2:q%!64=sprites
4*ș "Wimp_CreateWindow",,q% � invasion%
5Cș "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Message" � ,,ptr%
60messtext%=q%!108:wx%=q%!8-!q%:wy%=q%!12-q%!4
7)ș "Wimp_CreateWindow",,q% � message%
8Bș "Wimp_LoadTemplate",,q%,ptr%,text%+640,-1,"Number" � ,,ptr%
9actvtext%=q%!172
:'ș "Wimp_CreateWindow",,q% � setup%
;ș "Wimp_CloseTemplate"
<messages%=-1
=in%=� "<Obey$Dir>.Messages"
>� �
?� � � � �:� #in%:� �,�$
@ ȕ � � #in% � messages%<1100
A+ messages%+=1:message$(messages%)=�#in%
B�
C
� #in%
D� �
E�setactive
F!q%=-1:q%!4=0:q%!8=0
Gq%!12=68:q%!16=68:q%!20=2
H$(q%+24)="!invasion"
I'ș "Wimp_CreateIcon",,q% � baricon%
J%� n%=0 � max%:t%(n%)=spt%+n%*13:�
K$menu%="Invasion"
L*menu%!12=&70207:menu%!20=44:menu%!24=0
M%ptr%=menu%+28:width%=0:height%=96
N�
O�
P � menu$
Q � menu$>"" �
R  $(ptr%+12)=menu$:� ptr%!4
S  !ptr%=0:ptr%!8=&7000021
T%  � � menu$>width%:width%=� menu$
U  ptr%+=24:height%+=44
V �
W� menu$=""
Xmenu%!16=width%*16+32
Y#width%=width%*8+32:ptr%!-24=128
Z
�readmode
[end%=�:s%()=-1
\current%=0:messtime%=0
]sprs%=-1:max%()=-1
^�
_ sprs%+=1:� spr$(sprs%)
`� sprs%=15 � spr$(sprs%)=""
a� spr$(15)="":sprs%-=1
b� n%=0 � sprs%
c	 f%=0
d ȕ (f% � 1)=0
e  max%(n%)+=1
f@  ș "XOS_SpriteOp",256+24,sprites,spr$(n%)+� max%(n%) � ;f%
g �
h, � max%(n%) � � 1,"You missed a sprite!"
i�
j�
k
� Menu
l� Info,info%,Quit,-1,
mB� Sprite sequences (max. 16; if less than, terminated by null)
n� invader,triangle,
o:
p� �time
qy%=0:� x%=1 � 5:y%+=� run:�
r=y% � 25000
s:
t� �readmode
umode%=�
v)ș "OS_ReadModeVariable",-1,4 � ,,dx%
w)ș "OS_ReadModeVariable",-1,5 � ,,dy%
x,ș "OS_ReadModeVariable",-1,11 � ,,maxx%
y,ș "OS_ReadModeVariable",-1,12 � ,,maxy%
zmaxx%+=1:maxy%-=135>>dy%
{%xpix%=maxx%<<dx%:ypix%=maxy%<<dy%
|.!q%=invasion%:ș "Wimp_GetWindowState",,q%
}5q%!4=-1<<dx%:q%!8=-1<<dy%:q%!12=xpix%:q%!16=ypix%
~&ș "Wimp_SetExtent",invasion%,q%+4
q%!8+=136:q%!16+=136
�"q%!20=q%!4:q%!24=q%!8:q%!28=-2
�ș "Wimp_OpenWindow",,q%
��
�:
�� �poll
�%ș "OS_ReadMonotonicTime" � time%
�r%=�(-time%)
��
� ș "Wimp_Poll",,q% � r%
�' ș "OS_ReadMonotonicTime" � time1%
� Ȏ r% �
�! � 2:� !q%=invasion%:q%!28=-2
�  � !q%=message%:q%!28=-1
�  ș "Wimp_OpenWindow",,q%
�" � 3:ș "Wimp_CloseWindow",,q%
�! � 6:�mouse(q%!8,q%!12,q%!16)
� � 9:�menu
� � 17,18:�message
� �
�[ � time1%>=messtime%+400 � messtime%:!q%=message%:ș "Wimp_CloseWindow",,q%:messtime%=0
� � �<>mode%:�readmode
�> � current%:�invade:� � time1%>=time%+10:time%+=10:�invade
�
� end%
��
�:
�� �mouse(b%,h%,i%)
�
Ȏ � �
�� (b% � 2)=2
� Ȏ h% �
�8 � -2:ș "Wimp_CreateMenu",,menu%,!q%-width%,height%
�< � invasion%:ș "Wimp_CreateMenu",,setup%,!q%-32,q%!4-32
� �
�
� Ȏ h% �
�6 � invasion%:$messtext%=message$(�(messages%+1)-1)
�/  !q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�6  x%=(q%!8+q%!16)/2-wx%/2:y%=(q%!12+q%!20)/2-wy%/2
�(  !q%=message%:q%!4=0:q%!8=0:q%!12=0
�=  ș "Wimp_SetIconState",,q%:ș "Wimp_GetWindowState",,q%
�/  � x%<0:x%=0:� � x%+wx%>xpix%:x%=xpix%-wx%
�/  � y%<0:y%=0:� � y%+wy%>ypix%:y%=ypix%-wy%
�@  q%!4=x%:q%!8=y%+136:q%!12=x%+wx%:q%!16=y%+wy%+136:q%!28=-1
�/  ș "Wimp_OpenWindow",,q%:messtime%=time1%
�< � message%:!q%=h%:ș "Wimp_CloseWindow",,q%:messtime%=0
�
 � setup%
�  b%=b% � 1
�
  Ȏ i% �
�-  � b%:� setact%>-1:setact%-=1:�setactive
�4  � 1-b%:� setact%<maxact%:setact%+=1:�setactive
�  �
� �
��
��
�:
�� �menu
�� !q%=1:end%=�
��
�:
�� �message
�Ȏ q%!16 �
�� 0:end%=�
�� &400C1:�readmode
��
��
�:
�
� �invade
�%� setact%>active%:active%=setact%
�� setact%<active% �
�2 ȕ s%(active%)=-1 � setact%<active% � active%
�  active%-=1
� �
�& � active% � � s%(0)=-1:active%=-1
��
�� active%<0:�
�!q%=invasion%:n%=current%
�%q%!4=n%:ș "XWimp_DeleteIcon",,q%
�.ș &20280,,1 � cache%;f%:� f% � 1:cache%=0
�(� cache%:maxact%=max%:� maxact%=min%
�� s%(n%)>-1 �
�r ș "Wimp_ForceRedraw",!q%,x%(n%)-� dx%(n%),y%(n%)-� dy%(n%),x%(n%)+mx%(n%)+� dx%(n%),y%(n%)+my%(n%)+� dy%(n%)
��
�# � active%<=setact%:�create(n%)
��
�� s%(n%)>-1:�move(n%)
�5q%!4=n%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�'current%=(current%+1) � (active%+1)
��
�:
�� �create(n%)
�*� sprs%:n%(n%)=�(sprs%+1)-1:� n%(n%)=0
�Aș "OS_SpriteOp",256+40,sprites,spr$(n%(n%))+"0" � ,,,mx%,my%
�3mx%=mx%*2+2:my%=my%*4+4:mx%(n%)=mx%:my%(n%)=my%
�s%(n%)=�(max%(n%(n%))+1)-1
�-� �(2)=1:d%(n%)=1:� d%(n%)=max%(n%(n%))-1
�
Ȏ �(4) �
�7� 1:x%(n%)=-mx%:y%(n%)=(�(maxy%-(my%>>dy%))-1)<<dy%
�" dx%(n%)=�(2)*4:dy%(n%)=�(9)-5
�8� 2:x%(n%)=xpix%:y%(n%)=(�(maxy%-(my%>>dy%))-1)<<dy%
�# dx%(n%)=-�(2)*4:dx%(n%)=�(9)-5
�7� 3:y%(n%)=-my%:x%(n%)=(�(maxx%-(mx%>>dx%))-1)<<dx%
�" dy%(n%)=�(2)*4:dx%(n%)=�(9)-5
�8� 4:y%(n%)=ypix%:x%(n%)=(�(maxx%-(mx%>>dx%))-1)<<dx%
�# dy%(n%)=-�(2)*4:dx%(n%)=�(9)-5
��
��
�:
�� �move(n%)
�)s%(n%)=(s%(n%)+d%(n%)) � max%(n%(n%))
�A$t%(n%)=spr$(n%(n%))+� s%(n%):x%(n%)+=dx%(n%):y%(n%)+=dy%(n%)
�U� x%(n%)<=-mx%(n%) � x%(n%)>=xpix% � y%(n%)<=-my%(n%) � y%(n%)>=ypix%:s%(n%)=-1:�
�Aq%!4=x%(n%):q%!8=y%(n%):q%!12=q%!4+mx%(n%):q%!16=q%!8+my%(n%)
�3q%!20=&3102:q%!24=t%(n%):q%!28=sprites:q%!32=13
�ș "Wimp_CreateIcon",,q%
��
�:
�� �setactive
�$actvtext%=� (setact%+1)
�$!q%=setup%:q%!4=2:q%!8=0:q%!12=0
�ș "Wimp_SetIconState",,q%
��
�
00000000  0d 00 01 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 02 20 ee 20 85  20 85 20 a2 20 9f 2c f6  |e... . . . . .,.|
00000020  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 20  |$+" at line "+. |
00000030  9e 0d 00 03 3c c8 99 20  22 57 69 6d 70 5f 49 6e  |....<.. "Wimp_In|
00000040  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00000050  42 35 33 34 31 35 34 2c  22 49 6e 76 61 73 69 6f  |B534154,"Invasio|
00000060  6e 22 20 b8 20 2c 68 61  6e 64 6c 65 25 0d 00 04  |n" . ,handle%...|
00000070  09 f2 69 6e 69 74 0d 00  05 09 f2 70 6f 6c 6c 0d  |..init.....poll.|
00000080  00 06 05 e0 0d 00 07 05  3a 0d 00 08 0b dd 20 f2  |........:..... .|
00000090  69 6e 69 74 0d 00 09 2d  de 20 71 25 20 31 30 32  |init...-. q% 102|
000000a0  34 2c 77 69 6e 64 6f 77  25 20 32 30 30 2c 6d 65  |4,window% 200,me|
000000b0  6e 75 25 20 32 30 30 2c  74 65 78 74 25 20 36 34  |nu% 200,text% 64|
000000c0  30 0d 00 0a 09 50 25 3d  71 25 0d 00 0b 0a 5b 4f  |0....P%=q%....[O|
000000d0  50 54 20 32 0d 00 0c 10  2e 66 6c 61 67 20 45 51  |PT 2.....flag EQ|
000000e0  55 44 20 30 0d 00 0d 08  2e 72 75 6e 0d 00 0e 24  |UD 0.....run...$|
000000f0  4d 4f 56 20 30 2c 23 31  34 3a 4d 4f 56 20 31 2c  |MOV 0,#14:MOV 1,|
00000100  23 34 3a 53 57 49 20 22  4f 53 5f 42 79 74 65 22  |#4:SWI "OS_Byte"|
00000110  0d 00 0f 1b 4d 4f 56 20  30 2c 23 31 39 3a 53 57  |....MOV 0,#19:SW|
00000120  49 20 22 4f 53 5f 42 79  74 65 22 0d 00 10 0c 4d  |I "OS_Byte"....M|
00000130  4f 56 20 33 2c 23 30 0d  00 11 14 2e 6c 6f 6f 70  |OV 3,#0.....loop|
00000140  20 41 44 44 20 33 2c 33  2c 23 31 0d 00 12 20 4c  | ADD 3,3,#1... L|
00000150  44 52 20 30 2c 66 6c 61  67 3a 4d 4f 56 53 20 30  |DR 0,flag:MOVS 0|
00000160  2c 30 3a 42 4e 45 20 6c  6f 6f 70 0d 00 13 24 4d  |,0:BNE loop...$M|
00000170  4f 56 20 30 2c 23 31 33  3a 4d 4f 56 20 31 2c 23  |OV 0,#13:MOV 1,#|
00000180  34 3a 53 57 49 20 22 4f  53 5f 42 79 74 65 22 0d  |4:SWI "OS_Byte".|
00000190  00 14 15 4d 4f 56 20 30  2c 33 3a 4d 4f 56 20 50  |...MOV 0,3:MOV P|
000001a0  43 2c 31 34 0d 00 15 08  2e 69 6e 74 0d 00 16 14  |C,14.....int....|
000001b0  53 54 4d 46 44 20 31 33  21 2c 7b 30 2c 31 34 7d  |STMFD 13!,{0,14}|
000001c0  0d 00 17 21 4c 44 52 20  30 2c 66 6c 61 67 3a 4d  |...!LDR 0,flag:M|
000001d0  56 4e 20 30 2c 30 3a 53  54 52 20 30 2c 66 6c 61  |VN 0,0:STR 0,fla|
000001e0  67 0d 00 18 15 4c 44 4d  46 44 20 31 33 21 2c 7b  |g....LDMFD 13!,{|
000001f0  30 2c 50 43 7d 5e 0d 00  19 19 5d c8 99 20 22 4f  |0,PC}^....].. "O|
00000200  53 5f 43 6c 61 69 6d 22  2c 31 36 2c 69 6e 74 0d  |S_Claim",16,int.|
00000210  00 1a 1c c8 99 20 26 32  30 32 38 30 2c 2c 31 20  |..... &20280,,1 |
00000220  b8 20 63 61 63 68 65 25  3b 66 25 0d 00 1b 0e e7  |. cache%;f%.....|
00000230  20 66 25 20 80 20 31 20  8c 0d 00 1c 22 20 63 61  | f% . 1 ...." ca|
00000240  63 68 65 25 3d 30 3a 6d  69 6e 25 3d a4 74 69 6d  |che%=0:min%=.tim|
00000250  65 3a 6d 61 78 25 3d 6d  69 6e 25 0d 00 1d 05 cc  |e:max%=min%.....|
00000260  0d 00 1e 19 20 c8 99 20  26 32 30 32 38 30 3a 6d  |.... .. &20280:m|
00000270  69 6e 25 3d a4 74 69 6d  65 0d 00 1f 1b 20 c8 99  |in%=.time.... ..|
00000280  20 26 32 30 32 38 30 2c  31 3a 6d 61 78 25 3d a4  | &20280,1:max%=.|
00000290  74 69 6d 65 0d 00 20 15  20 c8 99 20 26 32 30 32  |time.. . .. &202|
000002a0  38 30 2c 63 61 63 68 65  25 0d 00 21 05 cd 0d 00  |80,cache%..!....|
000002b0  22 1a c8 99 20 22 4f 53  5f 52 65 6c 65 61 73 65  |"... "OS_Release|
000002c0  22 2c 31 36 2c 69 6e 74  0d 00 23 2d 6d 69 6e 25  |",16,int..#-min%|
000002d0  2b 3d 31 3a 6d 61 78 25  2b 3d 31 3a 61 63 74 69  |+=1:max%+=1:acti|
000002e0  76 65 25 3d 6d 69 6e 25  3a 73 65 74 61 63 74 25  |ve%=min%:setact%|
000002f0  3d 6d 69 6e 25 0d 00 24  28 e7 20 63 61 63 68 65  |=min%..$(. cache|
00000300  25 3a 6d 61 78 61 63 74  25 3d 6d 61 78 25 3a 8b  |%:maxact%=max%:.|
00000310  20 6d 61 78 61 63 74 25  3d 6d 69 6e 25 0d 00 25  | maxact%=min%..%|
00000320  4f de 20 78 25 28 6d 61  78 25 29 2c 79 25 28 6d  |O. x%(max%),y%(m|
00000330  61 78 25 29 2c 64 78 25  28 6d 61 78 25 29 2c 64  |ax%),dx%(max%),d|
00000340  79 25 28 6d 61 78 25 29  2c 6e 25 28 6d 61 78 25  |y%(max%),n%(max%|
00000350  29 2c 73 25 28 6d 61 78  25 29 2c 64 25 28 6d 61  |),s%(max%),d%(ma|
00000360  78 25 29 2c 74 25 28 6d  61 78 25 29 0d 00 26 4a  |x%),t%(max%)..&J|
00000370  de 20 6d 78 25 28 6d 61  78 25 29 2c 6d 79 25 28  |. mx%(max%),my%(|
00000380  6d 61 78 25 29 2c 73 70  74 25 20 31 33 2a 6d 61  |max%),spt% 13*ma|
00000390  78 25 2b 31 33 2c 73 70  72 24 28 31 35 29 2c 6d  |x%+13,spr$(15),m|
000003a0  61 78 25 28 31 35 29 2c  6d 65 73 73 61 67 65 24  |ax%(15),message$|
000003b0  28 31 31 30 30 29 0d 00  27 33 c8 99 20 22 4f 53  |(1100)..'3.. "OS|
000003c0  5f 46 69 6c 65 22 2c 35  2c 22 3c 4f 62 65 79 24  |_File",5,"<Obey$|
000003d0  44 69 72 3e 2e 53 70 72  69 74 65 73 22 20 b8 20  |Dir>.Sprites" . |
000003e0  2c 2c 2c 2c 73 69 7a 65  25 0d 00 28 13 65 6e 64  |,,,,size%..(.end|
000003f0  25 3d 93 2b 73 69 7a 65  25 2b 31 36 0d 00 29 24  |%=.+size%+16..)$|
00000400  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
00000410  65 22 2c 65 6e 64 25 2d  26 38 30 30 30 2c 2d 31  |e",end%-&8000,-1|
00000420  0d 00 2a 18 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |..*... "OS_GetEn|
00000430  76 22 20 b8 20 2c 78 25  0d 00 2b 38 e7 20 78 25  |v" . ,x%..+8. x%|
00000440  3c 65 6e 64 25 3a 85 20  31 2c 22 49 20 64 6f 6e  |<end%:. 1,"I don|
00000450  27 74 20 68 61 76 65 20  65 6e 6f 75 67 68 20 73  |'t have enough s|
00000460  70 61 63 65 20 74 6f 20  69 6e 76 61 64 65 21 22  |pace to invade!"|
00000470  0d 00 2c 1f 73 70 72 69  74 65 73 3d 93 3a 21 73  |..,.sprites=.:!s|
00000480  70 72 69 74 65 73 3d 73  69 7a 65 25 2b 31 36 0d  |prites=size%+16.|
00000490  00 2d 22 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.-".. "OS_Sprite|
000004a0  4f 70 22 2c 32 35 36 2b  39 2c 73 70 72 69 74 65  |Op",256+9,sprite|
000004b0  73 0d 00 2e 38 c8 99 20  22 4f 53 5f 53 70 72 69  |s...8.. "OS_Spri|
000004c0  74 65 4f 70 22 2c 32 35  36 2b 31 30 2c 73 70 72  |teOp",256+10,spr|
000004d0  69 74 65 73 2c 22 3c 4f  62 65 79 24 44 69 72 3e  |ites,"<Obey$Dir>|
000004e0  2e 53 70 72 69 74 65 73  22 0d 00 2f 32 c8 99 20  |.Sprites"../2.. |
000004f0  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000500  74 65 22 2c 2c 22 3c 4f  62 65 79 24 44 69 72 3e  |te",,"<Obey$Dir>|
00000510  2e 54 65 6d 70 6c 61 74  65 73 22 0d 00 30 41 c8  |.Templates"..0A.|
00000520  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000530  6c 61 74 65 22 2c 2c 71  25 2c 74 65 78 74 25 2c  |late",,q%,text%,|
00000540  74 65 78 74 25 2b 36 34  30 2c 2d 31 2c 22 49 6e  |text%+640,-1,"In|
00000550  66 6f 22 20 b8 20 2c 2c  70 74 72 25 0d 00 31 26  |fo" . ,,ptr%..1&|
00000560  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000570  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 69 6e 66  |indow",,q% . inf|
00000580  6f 25 0d 00 32 44 c8 99  20 22 57 69 6d 70 5f 4c  |o%..2D.. "Wimp_L|
00000590  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 25  |oadTemplate",,q%|
000005a0  2c 70 74 72 25 2c 74 65  78 74 25 2b 36 34 30 2c  |,ptr%,text%+640,|
000005b0  2d 31 2c 22 49 6e 76 61  73 69 6f 6e 22 20 b8 20  |-1,"Invasion" . |
000005c0  2c 2c 70 74 72 25 0d 00  33 1a 71 25 21 32 34 3d  |,,ptr%..3.q%!24=|
000005d0  2d 32 3a 71 25 21 36 34  3d 73 70 72 69 74 65 73  |-2:q%!64=sprites|
000005e0  0d 00 34 2a c8 99 20 22  57 69 6d 70 5f 43 72 65  |..4*.. "Wimp_Cre|
000005f0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000600  20 69 6e 76 61 73 69 6f  6e 25 0d 00 35 43 c8 99  | invasion%..5C..|
00000610  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000620  61 74 65 22 2c 2c 71 25  2c 70 74 72 25 2c 74 65  |ate",,q%,ptr%,te|
00000630  78 74 25 2b 36 34 30 2c  2d 31 2c 22 4d 65 73 73  |xt%+640,-1,"Mess|
00000640  61 67 65 22 20 b8 20 2c  2c 70 74 72 25 0d 00 36  |age" . ,,ptr%..6|
00000650  30 6d 65 73 73 74 65 78  74 25 3d 71 25 21 31 30  |0messtext%=q%!10|
00000660  38 3a 77 78 25 3d 71 25  21 38 2d 21 71 25 3a 77  |8:wx%=q%!8-!q%:w|
00000670  79 25 3d 71 25 21 31 32  2d 71 25 21 34 0d 00 37  |y%=q%!12-q%!4..7|
00000680  29 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |).. "Wimp_Create|
00000690  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 6d 65  |Window",,q% . me|
000006a0  73 73 61 67 65 25 0d 00  38 42 c8 99 20 22 57 69  |ssage%..8B.. "Wi|
000006b0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000006c0  2c 2c 71 25 2c 70 74 72  25 2c 74 65 78 74 25 2b  |,,q%,ptr%,text%+|
000006d0  36 34 30 2c 2d 31 2c 22  4e 75 6d 62 65 72 22 20  |640,-1,"Number" |
000006e0  b8 20 2c 2c 70 74 72 25  0d 00 39 14 61 63 74 76  |. ,,ptr%..9.actv|
000006f0  74 65 78 74 25 3d 71 25  21 31 37 32 0d 00 3a 27  |text%=q%!172..:'|
00000700  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000710  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 73 65 74  |indow",,q% . set|
00000720  75 70 25 0d 00 3b 1b c8  99 20 22 57 69 6d 70 5f  |up%..;... "Wimp_|
00000730  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 00  |CloseTemplate"..|
00000740  3c 10 6d 65 73 73 61 67  65 73 25 3d 2d 31 0d 00  |<.messages%=-1..|
00000750  3d 1f 69 6e 25 3d 8e 20  22 3c 4f 62 65 79 24 44  |=.in%=. "<Obey$D|
00000760  69 72 3e 2e 4d 65 73 73  61 67 65 73 22 0d 00 3e  |ir>.Messages"..>|
00000770  07 ea 20 85 0d 00 3f 1b  ee 20 85 20 ea 20 f7 20  |.. ...?.. . . . |
00000780  85 3a d9 20 23 69 6e 25  3a 85 20 9f 2c f6 24 0d  |.:. #in%:. .,.$.|
00000790  00 40 20 c8 95 20 ac 20  c5 20 23 69 6e 25 20 80  |.@ .. . . #in% .|
000007a0  20 6d 65 73 73 61 67 65  73 25 3c 31 31 30 30 0d  | messages%<1100.|
000007b0  00 41 2b 20 6d 65 73 73  61 67 65 73 25 2b 3d 31  |.A+ messages%+=1|
000007c0  3a 6d 65 73 73 61 67 65  24 28 6d 65 73 73 61 67  |:message$(messag|
000007d0  65 73 25 29 3d be 23 69  6e 25 0d 00 42 05 ce 0d  |es%)=.#in%..B...|
000007e0  00 43 0a d9 20 23 69 6e  25 0d 00 44 07 f7 20 85  |.C.. #in%..D.. .|
000007f0  0d 00 45 0e f2 73 65 74  61 63 74 69 76 65 0d 00  |..E..setactive..|
00000800  46 18 21 71 25 3d 2d 31  3a 71 25 21 34 3d 30 3a  |F.!q%=-1:q%!4=0:|
00000810  71 25 21 38 3d 30 0d 00  47 1d 71 25 21 31 32 3d  |q%!8=0..G.q%!12=|
00000820  36 38 3a 71 25 21 31 36  3d 36 38 3a 71 25 21 32  |68:q%!16=68:q%!2|
00000830  30 3d 32 0d 00 48 18 24  28 71 25 2b 32 34 29 3d  |0=2..H.$(q%+24)=|
00000840  22 21 69 6e 76 61 73 69  6f 6e 22 0d 00 49 27 c8  |"!invasion"..I'.|
00000850  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000860  6f 6e 22 2c 2c 71 25 20  b8 20 62 61 72 69 63 6f  |on",,q% . barico|
00000870  6e 25 0d 00 4a 25 e3 20  6e 25 3d 30 20 b8 20 6d  |n%..J%. n%=0 . m|
00000880  61 78 25 3a 74 25 28 6e  25 29 3d 73 70 74 25 2b  |ax%:t%(n%)=spt%+|
00000890  6e 25 2a 31 33 3a ed 0d  00 4b 15 24 6d 65 6e 75  |n%*13:...K.$menu|
000008a0  25 3d 22 49 6e 76 61 73  69 6f 6e 22 0d 00 4c 2a  |%="Invasion"..L*|
000008b0  6d 65 6e 75 25 21 31 32  3d 26 37 30 32 30 37 3a  |menu%!12=&70207:|
000008c0  6d 65 6e 75 25 21 32 30  3d 34 34 3a 6d 65 6e 75  |menu%!20=44:menu|
000008d0  25 21 32 34 3d 30 0d 00  4d 25 70 74 72 25 3d 6d  |%!24=0..M%ptr%=m|
000008e0  65 6e 75 25 2b 32 38 3a  77 69 64 74 68 25 3d 30  |enu%+28:width%=0|
000008f0  3a 68 65 69 67 68 74 25  3d 39 36 0d 00 4e 05 f7  |:height%=96..N..|
00000900  0d 00 4f 05 f5 0d 00 50  0c 20 f3 20 6d 65 6e 75  |..O....P. . menu|
00000910  24 0d 00 51 11 20 e7 20  6d 65 6e 75 24 3e 22 22  |$..Q. . menu$>""|
00000920  20 8c 0d 00 52 1f 20 20  24 28 70 74 72 25 2b 31  | ...R.  $(ptr%+1|
00000930  32 29 3d 6d 65 6e 75 24  3a f3 20 70 74 72 25 21  |2)=menu$:. ptr%!|
00000940  34 0d 00 53 1d 20 20 21  70 74 72 25 3d 30 3a 70  |4..S.  !ptr%=0:p|
00000950  74 72 25 21 38 3d 26 37  30 30 30 30 32 31 0d 00  |tr%!8=&7000021..|
00000960  54 25 20 20 e7 20 a9 20  6d 65 6e 75 24 3e 77 69  |T%  . . menu$>wi|
00000970  64 74 68 25 3a 77 69 64  74 68 25 3d a9 20 6d 65  |dth%:width%=. me|
00000980  6e 75 24 0d 00 55 1a 20  20 70 74 72 25 2b 3d 32  |nu$..U.  ptr%+=2|
00000990  34 3a 68 65 69 67 68 74  25 2b 3d 34 34 0d 00 56  |4:height%+=44..V|
000009a0  06 20 cd 0d 00 57 0e fd  20 6d 65 6e 75 24 3d 22  |. ...W.. menu$="|
000009b0  22 0d 00 58 19 6d 65 6e  75 25 21 31 36 3d 77 69  |"..X.menu%!16=wi|
000009c0  64 74 68 25 2a 31 36 2b  33 32 0d 00 59 23 77 69  |dth%*16+32..Y#wi|
000009d0  64 74 68 25 3d 77 69 64  74 68 25 2a 38 2b 33 32  |dth%=width%*8+32|
000009e0  3a 70 74 72 25 21 2d 32  34 3d 31 32 38 0d 00 5a  |:ptr%!-24=128..Z|
000009f0  0d f2 72 65 61 64 6d 6f  64 65 0d 00 5b 12 65 6e  |..readmode..[.en|
00000a00  64 25 3d a3 3a 73 25 28  29 3d 2d 31 0d 00 5c 1a  |d%=.:s%()=-1..\.|
00000a10  63 75 72 72 65 6e 74 25  3d 30 3a 6d 65 73 73 74  |current%=0:messt|
00000a20  69 6d 65 25 3d 30 0d 00  5d 16 73 70 72 73 25 3d  |ime%=0..].sprs%=|
00000a30  2d 31 3a 6d 61 78 25 28  29 3d 2d 31 0d 00 5e 05  |-1:max%()=-1..^.|
00000a40  f5 0d 00 5f 1b 20 73 70  72 73 25 2b 3d 31 3a f3  |..._. sprs%+=1:.|
00000a50  20 73 70 72 24 28 73 70  72 73 25 29 0d 00 60 1f  | spr$(sprs%)..`.|
00000a60  fd 20 73 70 72 73 25 3d  31 35 20 84 20 73 70 72  |. sprs%=15 . spr|
00000a70  24 28 73 70 72 73 25 29  3d 22 22 0d 00 61 1a e7  |$(sprs%)=""..a..|
00000a80  20 73 70 72 24 28 31 35  29 3d 22 22 3a 73 70 72  | spr$(15)="":spr|
00000a90  73 25 2d 3d 31 0d 00 62  12 e3 20 6e 25 3d 30 20  |s%-=1..b.. n%=0 |
00000aa0  b8 20 73 70 72 73 25 0d  00 63 09 20 66 25 3d 30  |. sprs%..c. f%=0|
00000ab0  0d 00 64 12 20 c8 95 20  28 66 25 20 80 20 31 29  |..d. .. (f% . 1)|
00000ac0  3d 30 0d 00 65 11 20 20  6d 61 78 25 28 6e 25 29  |=0..e.  max%(n%)|
00000ad0  2b 3d 31 0d 00 66 40 20  20 c8 99 20 22 58 4f 53  |+=1..f@  .. "XOS|
00000ae0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 32  |_SpriteOp",256+2|
00000af0  34 2c 73 70 72 69 74 65  73 2c 73 70 72 24 28 6e  |4,sprites,spr$(n|
00000b00  25 29 2b c3 20 6d 61 78  25 28 6e 25 29 20 b8 20  |%)+. max%(n%) . |
00000b10  3b 66 25 0d 00 67 06 20  ce 0d 00 68 2c 20 e7 20  |;f%..g. ...h, . |
00000b20  6d 61 78 25 28 6e 25 29  20 8b 20 85 20 31 2c 22  |max%(n%) . . 1,"|
00000b30  59 6f 75 20 6d 69 73 73  65 64 20 61 20 73 70 72  |You missed a spr|
00000b40  69 74 65 21 22 0d 00 69  05 ed 0d 00 6a 05 e1 0d  |ite!"..i....j...|
00000b50  00 6b 0a f4 20 4d 65 6e  75 0d 00 6c 19 dc 20 49  |.k.. Menu..l.. I|
00000b60  6e 66 6f 2c 69 6e 66 6f  25 2c 51 75 69 74 2c 2d  |nfo,info%,Quit,-|
00000b70  31 2c 0d 00 6d 42 f4 20  53 70 72 69 74 65 20 73  |1,..mB. Sprite s|
00000b80  65 71 75 65 6e 63 65 73  20 28 6d 61 78 2e 20 31  |equences (max. 1|
00000b90  36 3b 20 69 66 20 6c 65  73 73 20 74 68 61 6e 2c  |6; if less than,|
00000ba0  20 74 65 72 6d 69 6e 61  74 65 64 20 62 79 20 6e  | terminated by n|
00000bb0  75 6c 6c 29 0d 00 6e 17  dc 20 69 6e 76 61 64 65  |ull)..n.. invade|
00000bc0  72 2c 74 72 69 61 6e 67  6c 65 2c 0d 00 6f 05 3a  |r,triangle,..o.:|
00000bd0  0d 00 70 0b dd 20 a4 74  69 6d 65 0d 00 71 1f 79  |..p.. .time..q.y|
00000be0  25 3d 30 3a e3 20 78 25  3d 31 20 b8 20 35 3a 79  |%=0:. x%=1 . 5:y|
00000bf0  25 2b 3d ba 20 72 75 6e  3a ed 0d 00 72 0f 3d 79  |%+=. run:...r.=y|
00000c00  25 20 81 20 32 35 30 30  30 0d 00 73 05 3a 0d 00  |% . 25000..s.:..|
00000c10  74 0f dd 20 f2 72 65 61  64 6d 6f 64 65 0d 00 75  |t.. .readmode..u|
00000c20  0b 6d 6f 64 65 25 3d eb  0d 00 76 29 c8 99 20 22  |.mode%=...v).. "|
00000c30  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000c40  62 6c 65 22 2c 2d 31 2c  34 20 b8 20 2c 2c 64 78  |ble",-1,4 . ,,dx|
00000c50  25 0d 00 77 29 c8 99 20  22 4f 53 5f 52 65 61 64  |%..w).. "OS_Read|
00000c60  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000c70  2c 35 20 b8 20 2c 2c 64  79 25 0d 00 78 2c c8 99  |,5 . ,,dy%..x,..|
00000c80  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
00000c90  69 61 62 6c 65 22 2c 2d  31 2c 31 31 20 b8 20 2c  |iable",-1,11 . ,|
00000ca0  2c 6d 61 78 78 25 0d 00  79 2c c8 99 20 22 4f 53  |,maxx%..y,.. "OS|
00000cb0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000cc0  65 22 2c 2d 31 2c 31 32  20 b8 20 2c 2c 6d 61 78  |e",-1,12 . ,,max|
00000cd0  79 25 0d 00 7a 1c 6d 61  78 78 25 2b 3d 31 3a 6d  |y%..z.maxx%+=1:m|
00000ce0  61 78 79 25 2d 3d 31 33  35 3e 3e 64 79 25 0d 00  |axy%-=135>>dy%..|
00000cf0  7b 25 78 70 69 78 25 3d  6d 61 78 78 25 3c 3c 64  |{%xpix%=maxx%<<d|
00000d00  78 25 3a 79 70 69 78 25  3d 6d 61 78 79 25 3c 3c  |x%:ypix%=maxy%<<|
00000d10  64 79 25 0d 00 7c 2e 21  71 25 3d 69 6e 76 61 73  |dy%..|.!q%=invas|
00000d20  69 6f 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |ion%:.. "Wimp_Ge|
00000d30  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00000d40  25 0d 00 7d 35 71 25 21  34 3d 2d 31 3c 3c 64 78  |%..}5q%!4=-1<<dx|
00000d50  25 3a 71 25 21 38 3d 2d  31 3c 3c 64 79 25 3a 71  |%:q%!8=-1<<dy%:q|
00000d60  25 21 31 32 3d 78 70 69  78 25 3a 71 25 21 31 36  |%!12=xpix%:q%!16|
00000d70  3d 79 70 69 78 25 0d 00  7e 26 c8 99 20 22 57 69  |=ypix%..~&.. "Wi|
00000d80  6d 70 5f 53 65 74 45 78  74 65 6e 74 22 2c 69 6e  |mp_SetExtent",in|
00000d90  76 61 73 69 6f 6e 25 2c  71 25 2b 34 0d 00 7f 18  |vasion%,q%+4....|
00000da0  71 25 21 38 2b 3d 31 33  36 3a 71 25 21 31 36 2b  |q%!8+=136:q%!16+|
00000db0  3d 31 33 36 0d 00 80 22  71 25 21 32 30 3d 71 25  |=136..."q%!20=q%|
00000dc0  21 34 3a 71 25 21 32 34  3d 71 25 21 38 3a 71 25  |!4:q%!24=q%!8:q%|
00000dd0  21 32 38 3d 2d 32 0d 00  81 1c c8 99 20 22 57 69  |!28=-2...... "Wi|
00000de0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000df0  71 25 0d 00 82 05 e1 0d  00 83 05 3a 0d 00 84 0b  |q%.........:....|
00000e00  dd 20 f2 70 6f 6c 6c 0d  00 85 25 c8 99 20 22 4f  |. .poll...%.. "O|
00000e10  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
00000e20  69 6d 65 22 20 b8 20 74  69 6d 65 25 0d 00 86 10  |ime" . time%....|
00000e30  72 25 3d b3 28 2d 74 69  6d 65 25 29 0d 00 87 05  |r%=.(-time%)....|
00000e40  f5 0d 00 88 1c 20 c8 99  20 22 57 69 6d 70 5f 50  |..... .. "Wimp_P|
00000e50  6f 6c 6c 22 2c 2c 71 25  20 b8 20 72 25 0d 00 89  |oll",,q% . r%...|
00000e60  27 20 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 6e  |' .. "OS_ReadMon|
00000e70  6f 74 6f 6e 69 63 54 69  6d 65 22 20 b8 20 74 69  |otonicTime" . ti|
00000e80  6d 65 31 25 0d 00 8a 0c  20 c8 8e 20 72 25 20 ca  |me1%.... .. r% .|
00000e90  0d 00 8b 21 20 c9 20 32  3a e7 20 21 71 25 3d 69  |...! . 2:. !q%=i|
00000ea0  6e 76 61 73 69 6f 6e 25  3a 71 25 21 32 38 3d 2d  |nvasion%:q%!28=-|
00000eb0  32 0d 00 8c 1d 20 20 e7  20 21 71 25 3d 6d 65 73  |2....  . !q%=mes|
00000ec0  73 61 67 65 25 3a 71 25  21 32 38 3d 2d 31 0d 00  |sage%:q%!28=-1..|
00000ed0  8d 1e 20 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..  .. "Wimp_Ope|
00000ee0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 00 8e 22  |nWindow",,q%..."|
00000ef0  20 c9 20 33 3a c8 99 20  22 57 69 6d 70 5f 43 6c  | . 3:.. "Wimp_Cl|
00000f00  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 00  |oseWindow",,q%..|
00000f10  8f 21 20 c9 20 36 3a f2  6d 6f 75 73 65 28 71 25  |.! . 6:.mouse(q%|
00000f20  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 29 0d  |!8,q%!12,q%!16).|
00000f30  00 90 0e 20 c9 20 39 3a  f2 6d 65 6e 75 0d 00 91  |... . 9:.menu...|
00000f40  15 20 c9 20 31 37 2c 31  38 3a f2 6d 65 73 73 61  |. . 17,18:.messa|
00000f50  67 65 0d 00 92 06 20 cb  0d 00 93 5b 20 e7 20 74  |ge.... ....[ . t|
00000f60  69 6d 65 31 25 3e 3d 6d  65 73 73 74 69 6d 65 25  |ime1%>=messtime%|
00000f70  2b 34 30 30 20 80 20 6d  65 73 73 74 69 6d 65 25  |+400 . messtime%|
00000f80  3a 21 71 25 3d 6d 65 73  73 61 67 65 25 3a c8 99  |:!q%=message%:..|
00000f90  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00000fa0  6f 77 22 2c 2c 71 25 3a  6d 65 73 73 74 69 6d 65  |ow",,q%:messtime|
00000fb0  25 3d 30 0d 00 94 19 20  e7 20 eb 3c 3e 6d 6f 64  |%=0.... . .<>mod|
00000fc0  65 25 3a f2 72 65 61 64  6d 6f 64 65 0d 00 95 3e  |e%:.readmode...>|
00000fd0  20 e7 20 63 75 72 72 65  6e 74 25 3a f2 69 6e 76  | . current%:.inv|
00000fe0  61 64 65 3a 8b 20 e7 20  74 69 6d 65 31 25 3e 3d  |ade:. . time1%>=|
00000ff0  74 69 6d 65 25 2b 31 30  3a 74 69 6d 65 25 2b 3d  |time%+10:time%+=|
00001000  31 30 3a f2 69 6e 76 61  64 65 0d 00 96 0a fd 20  |10:.invade..... |
00001010  65 6e 64 25 0d 00 97 05  e0 0d 00 98 05 3a 0d 00  |end%.........:..|
00001020  99 16 dd 20 f2 6d 6f 75  73 65 28 62 25 2c 68 25  |... .mouse(b%,h%|
00001030  2c 69 25 29 0d 00 9a 0a  c8 8e 20 b9 20 ca 0d 00  |,i%)...... . ...|
00001040  9b 10 c9 20 28 62 25 20  80 20 32 29 3d 32 0d 00  |... (b% . 2)=2..|
00001050  9c 0c 20 c8 8e 20 68 25  20 ca 0d 00 9d 38 20 c9  |.. .. h% ....8 .|
00001060  20 2d 32 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  | -2:.. "Wimp_Cre|
00001070  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00001080  21 71 25 2d 77 69 64 74  68 25 2c 68 65 69 67 68  |!q%-width%,heigh|
00001090  74 25 0d 00 9e 3c 20 c9  20 69 6e 76 61 73 69 6f  |t%...< . invasio|
000010a0  6e 25 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |n%:.. "Wimp_Crea|
000010b0  74 65 4d 65 6e 75 22 2c  2c 73 65 74 75 70 25 2c  |teMenu",,setup%,|
000010c0  21 71 25 2d 33 32 2c 71  25 21 34 2d 33 32 0d 00  |!q%-32,q%!4-32..|
000010d0  9f 06 20 cb 0d 00 a0 05  7f 0d 00 a1 0c 20 c8 8e  |.. .......... ..|
000010e0  20 68 25 20 ca 0d 00 a2  36 20 c9 20 69 6e 76 61  | h% ....6 . inva|
000010f0  73 69 6f 6e 25 3a 24 6d  65 73 73 74 65 78 74 25  |sion%:$messtext%|
00001100  3d 6d 65 73 73 61 67 65  24 28 b3 28 6d 65 73 73  |=message$(.(mess|
00001110  61 67 65 73 25 2b 31 29  2d 31 29 0d 00 a3 2f 20  |ages%+1)-1).../ |
00001120  20 21 71 25 3d 68 25 3a  71 25 21 34 3d 69 25 3a  | !q%=h%:q%!4=i%:|
00001130  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001140  53 74 61 74 65 22 2c 2c  71 25 0d 00 a4 36 20 20  |State",,q%...6  |
00001150  78 25 3d 28 71 25 21 38  2b 71 25 21 31 36 29 2f  |x%=(q%!8+q%!16)/|
00001160  32 2d 77 78 25 2f 32 3a  79 25 3d 28 71 25 21 31  |2-wx%/2:y%=(q%!1|
00001170  32 2b 71 25 21 32 30 29  2f 32 2d 77 79 25 2f 32  |2+q%!20)/2-wy%/2|
00001180  0d 00 a5 28 20 20 21 71  25 3d 6d 65 73 73 61 67  |...(  !q%=messag|
00001190  65 25 3a 71 25 21 34 3d  30 3a 71 25 21 38 3d 30  |e%:q%!4=0:q%!8=0|
000011a0  3a 71 25 21 31 32 3d 30  0d 00 a6 3d 20 20 c8 99  |:q%!12=0...=  ..|
000011b0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000011c0  61 74 65 22 2c 2c 71 25  3a c8 99 20 22 57 69 6d  |ate",,q%:.. "Wim|
000011d0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000011e0  22 2c 2c 71 25 0d 00 a7  2f 20 20 e7 20 78 25 3c  |",,q%.../  . x%<|
000011f0  30 3a 78 25 3d 30 3a 8b  20 e7 20 78 25 2b 77 78  |0:x%=0:. . x%+wx|
00001200  25 3e 78 70 69 78 25 3a  78 25 3d 78 70 69 78 25  |%>xpix%:x%=xpix%|
00001210  2d 77 78 25 0d 00 a8 2f  20 20 e7 20 79 25 3c 30  |-wx%.../  . y%<0|
00001220  3a 79 25 3d 30 3a 8b 20  e7 20 79 25 2b 77 79 25  |:y%=0:. . y%+wy%|
00001230  3e 79 70 69 78 25 3a 79  25 3d 79 70 69 78 25 2d  |>ypix%:y%=ypix%-|
00001240  77 79 25 0d 00 a9 40 20  20 71 25 21 34 3d 78 25  |wy%...@  q%!4=x%|
00001250  3a 71 25 21 38 3d 79 25  2b 31 33 36 3a 71 25 21  |:q%!8=y%+136:q%!|
00001260  31 32 3d 78 25 2b 77 78  25 3a 71 25 21 31 36 3d  |12=x%+wx%:q%!16=|
00001270  79 25 2b 77 79 25 2b 31  33 36 3a 71 25 21 32 38  |y%+wy%+136:q%!28|
00001280  3d 2d 31 0d 00 aa 2f 20  20 c8 99 20 22 57 69 6d  |=-1.../  .. "Wim|
00001290  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
000012a0  25 3a 6d 65 73 73 74 69  6d 65 25 3d 74 69 6d 65  |%:messtime%=time|
000012b0  31 25 0d 00 ab 3c 20 c9  20 6d 65 73 73 61 67 65  |1%...< . message|
000012c0  25 3a 21 71 25 3d 68 25  3a c8 99 20 22 57 69 6d  |%:!q%=h%:.. "Wim|
000012d0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000012e0  71 25 3a 6d 65 73 73 74  69 6d 65 25 3d 30 0d 00  |q%:messtime%=0..|
000012f0  ac 0d 20 c9 20 73 65 74  75 70 25 0d 00 ad 0f 20  |.. . setup%.... |
00001300  20 62 25 3d 62 25 20 80  20 31 0d 00 ae 0d 20 20  | b%=b% . 1....  |
00001310  c8 8e 20 69 25 20 ca 0d  00 af 2d 20 20 c9 20 62  |.. i% ....-  . b|
00001320  25 3a e7 20 73 65 74 61  63 74 25 3e 2d 31 3a 73  |%:. setact%>-1:s|
00001330  65 74 61 63 74 25 2d 3d  31 3a f2 73 65 74 61 63  |etact%-=1:.setac|
00001340  74 69 76 65 0d 00 b0 34  20 20 c9 20 31 2d 62 25  |tive...4  . 1-b%|
00001350  3a e7 20 73 65 74 61 63  74 25 3c 6d 61 78 61 63  |:. setact%<maxac|
00001360  74 25 3a 73 65 74 61 63  74 25 2b 3d 31 3a f2 73  |t%:setact%+=1:.s|
00001370  65 74 61 63 74 69 76 65  0d 00 b1 07 20 20 cb 0d  |etactive....  ..|
00001380  00 b2 06 20 cb 0d 00 b3  05 cb 0d 00 b4 05 e1 0d  |... ............|
00001390  00 b5 05 3a 0d 00 b6 0b  dd 20 f2 6d 65 6e 75 0d  |...:..... .menu.|
000013a0  00 b7 12 e7 20 21 71 25  3d 31 3a 65 6e 64 25 3d  |.... !q%=1:end%=|
000013b0  b9 0d 00 b8 05 e1 0d 00  b9 05 3a 0d 00 ba 0e dd  |..........:.....|
000013c0  20 f2 6d 65 73 73 61 67  65 0d 00 bb 0e c8 8e 20  | .message...... |
000013d0  71 25 21 31 36 20 ca 0d  00 bc 0e c9 20 30 3a 65  |q%!16 ...... 0:e|
000013e0  6e 64 25 3d b9 0d 00 bd  16 c9 20 26 34 30 30 43  |nd%=...... &400C|
000013f0  31 3a f2 72 65 61 64 6d  6f 64 65 0d 00 be 05 cb  |1:.readmode.....|
00001400  0d 00 bf 05 e1 0d 00 c0  05 3a 0d 00 c1 0d dd 20  |.........:..... |
00001410  f2 69 6e 76 61 64 65 0d  00 c2 25 e7 20 73 65 74  |.invade...%. set|
00001420  61 63 74 25 3e 61 63 74  69 76 65 25 3a 61 63 74  |act%>active%:act|
00001430  69 76 65 25 3d 73 65 74  61 63 74 25 0d 00 c3 17  |ive%=setact%....|
00001440  e7 20 73 65 74 61 63 74  25 3c 61 63 74 69 76 65  |. setact%<active|
00001450  25 20 8c 0d 00 c4 32 20  c8 95 20 73 25 28 61 63  |% ....2 .. s%(ac|
00001460  74 69 76 65 25 29 3d 2d  31 20 80 20 73 65 74 61  |tive%)=-1 . seta|
00001470  63 74 25 3c 61 63 74 69  76 65 25 20 80 20 61 63  |ct%<active% . ac|
00001480  74 69 76 65 25 0d 00 c5  10 20 20 61 63 74 69 76  |tive%....  activ|
00001490  65 25 2d 3d 31 0d 00 c6  06 20 ce 0d 00 c7 26 20  |e%-=1.... ....& |
000014a0  e7 20 61 63 74 69 76 65  25 20 8b 20 e7 20 73 25  |. active% . . s%|
000014b0  28 30 29 3d 2d 31 3a 61  63 74 69 76 65 25 3d 2d  |(0)=-1:active%=-|
000014c0  31 0d 00 c8 05 cd 0d 00  c9 11 e7 20 61 63 74 69  |1.......... acti|
000014d0  76 65 25 3c 30 3a e1 0d  00 ca 1d 21 71 25 3d 69  |ve%<0:.....!q%=i|
000014e0  6e 76 61 73 69 6f 6e 25  3a 6e 25 3d 63 75 72 72  |nvasion%:n%=curr|
000014f0  65 6e 74 25 0d 00 cb 25  71 25 21 34 3d 6e 25 3a  |ent%...%q%!4=n%:|
00001500  c8 99 20 22 58 57 69 6d  70 5f 44 65 6c 65 74 65  |.. "XWimp_Delete|
00001510  49 63 6f 6e 22 2c 2c 71  25 0d 00 cc 2e c8 99 20  |Icon",,q%...... |
00001520  26 32 30 32 38 30 2c 2c  31 20 b8 20 63 61 63 68  |&20280,,1 . cach|
00001530  65 25 3b 66 25 3a e7 20  66 25 20 80 20 31 3a 63  |e%;f%:. f% . 1:c|
00001540  61 63 68 65 25 3d 30 0d  00 cd 28 e7 20 63 61 63  |ache%=0...(. cac|
00001550  68 65 25 3a 6d 61 78 61  63 74 25 3d 6d 61 78 25  |he%:maxact%=max%|
00001560  3a 8b 20 6d 61 78 61 63  74 25 3d 6d 69 6e 25 0d  |:. maxact%=min%.|
00001570  00 ce 11 e7 20 73 25 28  6e 25 29 3e 2d 31 20 8c  |.... s%(n%)>-1 .|
00001580  0d 00 cf 72 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |...r .. "Wimp_Fo|
00001590  72 63 65 52 65 64 72 61  77 22 2c 21 71 25 2c 78  |rceRedraw",!q%,x|
000015a0  25 28 6e 25 29 2d 94 20  64 78 25 28 6e 25 29 2c  |%(n%)-. dx%(n%),|
000015b0  79 25 28 6e 25 29 2d 94  20 64 79 25 28 6e 25 29  |y%(n%)-. dy%(n%)|
000015c0  2c 78 25 28 6e 25 29 2b  6d 78 25 28 6e 25 29 2b  |,x%(n%)+mx%(n%)+|
000015d0  94 20 64 78 25 28 6e 25  29 2c 79 25 28 6e 25 29  |. dx%(n%),y%(n%)|
000015e0  2b 6d 79 25 28 6e 25 29  2b 94 20 64 79 25 28 6e  |+my%(n%)+. dy%(n|
000015f0  25 29 0d 00 d0 05 cc 0d  00 d1 23 20 e7 20 61 63  |%)........# . ac|
00001600  74 69 76 65 25 3c 3d 73  65 74 61 63 74 25 3a f2  |tive%<=setact%:.|
00001610  63 72 65 61 74 65 28 6e  25 29 0d 00 d2 05 cd 0d  |create(n%)......|
00001620  00 d3 19 e7 20 73 25 28  6e 25 29 3e 2d 31 3a f2  |.... s%(n%)>-1:.|
00001630  6d 6f 76 65 28 6e 25 29  0d 00 d4 35 71 25 21 34  |move(n%)...5q%!4|
00001640  3d 6e 25 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |=n%:q%!8=0:q%!12|
00001650  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00001660  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 00 d5  |conState",,q%...|
00001670  27 63 75 72 72 65 6e 74  25 3d 28 63 75 72 72 65  |'current%=(curre|
00001680  6e 74 25 2b 31 29 20 83  20 28 61 63 74 69 76 65  |nt%+1) . (active|
00001690  25 2b 31 29 0d 00 d6 05  e1 0d 00 d7 05 3a 0d 00  |%+1).........:..|
000016a0  d8 11 dd 20 f2 63 72 65  61 74 65 28 6e 25 29 0d  |... .create(n%).|
000016b0  00 d9 2a e7 20 73 70 72  73 25 3a 6e 25 28 6e 25  |..*. sprs%:n%(n%|
000016c0  29 3d b3 28 73 70 72 73  25 2b 31 29 2d 31 3a 8b  |)=.(sprs%+1)-1:.|
000016d0  20 6e 25 28 6e 25 29 3d  30 0d 00 da 41 c8 99 20  | n%(n%)=0...A.. |
000016e0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
000016f0  36 2b 34 30 2c 73 70 72  69 74 65 73 2c 73 70 72  |6+40,sprites,spr|
00001700  24 28 6e 25 28 6e 25 29  29 2b 22 30 22 20 b8 20  |$(n%(n%))+"0" . |
00001710  2c 2c 2c 6d 78 25 2c 6d  79 25 0d 00 db 33 6d 78  |,,,mx%,my%...3mx|
00001720  25 3d 6d 78 25 2a 32 2b  32 3a 6d 79 25 3d 6d 79  |%=mx%*2+2:my%=my|
00001730  25 2a 34 2b 34 3a 6d 78  25 28 6e 25 29 3d 6d 78  |%*4+4:mx%(n%)=mx|
00001740  25 3a 6d 79 25 28 6e 25  29 3d 6d 79 25 0d 00 dc  |%:my%(n%)=my%...|
00001750  1e 73 25 28 6e 25 29 3d  b3 28 6d 61 78 25 28 6e  |.s%(n%)=.(max%(n|
00001760  25 28 6e 25 29 29 2b 31  29 2d 31 0d 00 dd 2d e7  |%(n%))+1)-1...-.|
00001770  20 b3 28 32 29 3d 31 3a  64 25 28 6e 25 29 3d 31  | .(2)=1:d%(n%)=1|
00001780  3a 8b 20 64 25 28 6e 25  29 3d 6d 61 78 25 28 6e  |:. d%(n%)=max%(n|
00001790  25 28 6e 25 29 29 2d 31  0d 00 de 0d c8 8e 20 b3  |%(n%))-1...... .|
000017a0  28 34 29 20 ca 0d 00 df  37 c9 20 31 3a 78 25 28  |(4) ....7. 1:x%(|
000017b0  6e 25 29 3d 2d 6d 78 25  3a 79 25 28 6e 25 29 3d  |n%)=-mx%:y%(n%)=|
000017c0  28 b3 28 6d 61 78 79 25  2d 28 6d 79 25 3e 3e 64  |(.(maxy%-(my%>>d|
000017d0  79 25 29 29 2d 31 29 3c  3c 64 79 25 0d 00 e0 22  |y%))-1)<<dy%..."|
000017e0  20 64 78 25 28 6e 25 29  3d b3 28 32 29 2a 34 3a  | dx%(n%)=.(2)*4:|
000017f0  64 79 25 28 6e 25 29 3d  b3 28 39 29 2d 35 0d 00  |dy%(n%)=.(9)-5..|
00001800  e1 38 c9 20 32 3a 78 25  28 6e 25 29 3d 78 70 69  |.8. 2:x%(n%)=xpi|
00001810  78 25 3a 79 25 28 6e 25  29 3d 28 b3 28 6d 61 78  |x%:y%(n%)=(.(max|
00001820  79 25 2d 28 6d 79 25 3e  3e 64 79 25 29 29 2d 31  |y%-(my%>>dy%))-1|
00001830  29 3c 3c 64 79 25 0d 00  e2 23 20 64 78 25 28 6e  |)<<dy%...# dx%(n|
00001840  25 29 3d 2d b3 28 32 29  2a 34 3a 64 78 25 28 6e  |%)=-.(2)*4:dx%(n|
00001850  25 29 3d b3 28 39 29 2d  35 0d 00 e3 37 c9 20 33  |%)=.(9)-5...7. 3|
00001860  3a 79 25 28 6e 25 29 3d  2d 6d 79 25 3a 78 25 28  |:y%(n%)=-my%:x%(|
00001870  6e 25 29 3d 28 b3 28 6d  61 78 78 25 2d 28 6d 78  |n%)=(.(maxx%-(mx|
00001880  25 3e 3e 64 78 25 29 29  2d 31 29 3c 3c 64 78 25  |%>>dx%))-1)<<dx%|
00001890  0d 00 e4 22 20 64 79 25  28 6e 25 29 3d b3 28 32  |..." dy%(n%)=.(2|
000018a0  29 2a 34 3a 64 78 25 28  6e 25 29 3d b3 28 39 29  |)*4:dx%(n%)=.(9)|
000018b0  2d 35 0d 00 e5 38 c9 20  34 3a 79 25 28 6e 25 29  |-5...8. 4:y%(n%)|
000018c0  3d 79 70 69 78 25 3a 78  25 28 6e 25 29 3d 28 b3  |=ypix%:x%(n%)=(.|
000018d0  28 6d 61 78 78 25 2d 28  6d 78 25 3e 3e 64 78 25  |(maxx%-(mx%>>dx%|
000018e0  29 29 2d 31 29 3c 3c 64  78 25 0d 00 e6 23 20 64  |))-1)<<dx%...# d|
000018f0  79 25 28 6e 25 29 3d 2d  b3 28 32 29 2a 34 3a 64  |y%(n%)=-.(2)*4:d|
00001900  78 25 28 6e 25 29 3d b3  28 39 29 2d 35 0d 00 e7  |x%(n%)=.(9)-5...|
00001910  05 cb 0d 00 e8 05 e1 0d  00 e9 05 3a 0d 00 ea 0f  |...........:....|
00001920  dd 20 f2 6d 6f 76 65 28  6e 25 29 0d 00 eb 29 73  |. .move(n%)...)s|
00001930  25 28 6e 25 29 3d 28 73  25 28 6e 25 29 2b 64 25  |%(n%)=(s%(n%)+d%|
00001940  28 6e 25 29 29 20 83 20  6d 61 78 25 28 6e 25 28  |(n%)) . max%(n%(|
00001950  6e 25 29 29 0d 00 ec 41  24 74 25 28 6e 25 29 3d  |n%))...A$t%(n%)=|
00001960  73 70 72 24 28 6e 25 28  6e 25 29 29 2b c3 20 73  |spr$(n%(n%))+. s|
00001970  25 28 6e 25 29 3a 78 25  28 6e 25 29 2b 3d 64 78  |%(n%):x%(n%)+=dx|
00001980  25 28 6e 25 29 3a 79 25  28 6e 25 29 2b 3d 64 79  |%(n%):y%(n%)+=dy|
00001990  25 28 6e 25 29 0d 00 ed  55 e7 20 78 25 28 6e 25  |%(n%)...U. x%(n%|
000019a0  29 3c 3d 2d 6d 78 25 28  6e 25 29 20 84 20 78 25  |)<=-mx%(n%) . x%|
000019b0  28 6e 25 29 3e 3d 78 70  69 78 25 20 84 20 79 25  |(n%)>=xpix% . y%|
000019c0  28 6e 25 29 3c 3d 2d 6d  79 25 28 6e 25 29 20 84  |(n%)<=-my%(n%) .|
000019d0  20 79 25 28 6e 25 29 3e  3d 79 70 69 78 25 3a 73  | y%(n%)>=ypix%:s|
000019e0  25 28 6e 25 29 3d 2d 31  3a e1 0d 00 ee 41 71 25  |%(n%)=-1:....Aq%|
000019f0  21 34 3d 78 25 28 6e 25  29 3a 71 25 21 38 3d 79  |!4=x%(n%):q%!8=y|
00001a00  25 28 6e 25 29 3a 71 25  21 31 32 3d 71 25 21 34  |%(n%):q%!12=q%!4|
00001a10  2b 6d 78 25 28 6e 25 29  3a 71 25 21 31 36 3d 71  |+mx%(n%):q%!16=q|
00001a20  25 21 38 2b 6d 79 25 28  6e 25 29 0d 00 ef 33 71  |%!8+my%(n%)...3q|
00001a30  25 21 32 30 3d 26 33 31  30 32 3a 71 25 21 32 34  |%!20=&3102:q%!24|
00001a40  3d 74 25 28 6e 25 29 3a  71 25 21 32 38 3d 73 70  |=t%(n%):q%!28=sp|
00001a50  72 69 74 65 73 3a 71 25  21 33 32 3d 31 33 0d 00  |rites:q%!32=13..|
00001a60  f0 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
00001a70  65 49 63 6f 6e 22 2c 2c  71 25 0d 00 f1 05 e1 0d  |eIcon",,q%......|
00001a80  00 f2 05 3a 0d 00 f3 10  dd 20 f2 73 65 74 61 63  |...:..... .setac|
00001a90  74 69 76 65 0d 00 f4 1c  24 61 63 74 76 74 65 78  |tive....$actvtex|
00001aa0  74 25 3d c3 20 28 73 65  74 61 63 74 25 2b 31 29  |t%=. (setact%+1)|
00001ab0  0d 00 f5 24 21 71 25 3d  73 65 74 75 70 25 3a 71  |...$!q%=setup%:q|
00001ac0  25 21 34 3d 32 3a 71 25  21 38 3d 30 3a 71 25 21  |%!4=2:q%!8=0:q%!|
00001ad0  31 32 3d 30 0d 00 f6 1e  c8 99 20 22 57 69 6d 70  |12=0...... "Wimp|
00001ae0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001af0  71 25 0d 00 f7 05 e1 0d  ff                       |q%.......|
00001af9

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .