"� > :4.Games.!Invade.!RunImage
� version 0.01 (22-Sep-88)
;ș"Wimp_Initialise",200,&4B534154,"Invaders" � version%
(�initialise
2
� �error
<�
F  ș"Wimp_Poll",0,Q% � R%
P
  Ȏ R% �
Z"  � 0    :�game_active% �nudge
d%  � 2    :ș"Wimp_OpenWindow",,Q%
n&  � 3    :ș"Wimp_CloseWindow",,Q%
x4  � 6    :�checkmouse(!Q%,Q%!4,Q%!8,Q%!12,Q%!16)
�  � 9    :�menuselect(Q%)
�$  � 17,18:�(5)>4 game_active%=�
�             �receive
�  �
�� �
��
�
���nudge
�	� lv%
�+�A$="alien" �updatealien � �updateexplo
�)!Q%=game%:ș"Wimp_GetWindowState",,Q%
�
lv%=Q%!20
�2Q%!20=Q%!20+offset%*16:ș"Wimp_OpenWindow",,Q%

)!Q%=game%:ș"Wimp_GetWindowState",,Q%

�lv%=Q%!20 offset%=-offset%

�

"

,��updatealien

6A%+=offset%

@�A%=9 A%=1

J�A%=0 A%=8

T�replacesprite

^�

h

r��updateexplo

|
count%-=1

��count%=0 �

� �A%=5 �shutdown

� �replacesprite

�
 count%=5

�
 A%+=1

��

��

�

���replacesprite

�=!Q%=game%:Q%!4=0:Q%!8=0:Q%!12=0:ș"Wimp_GetIconState",,Q%

�$(Q%+28)=A$+�(A%)

�ș"Wimp_DeleteIcon",,Q%

�&Q%!4=!Q%:ș"Wimp_CreateIcon",,Q%+4
5ș"Wimp_ForceRedraw",game%,Q%!8,Q%!12,Q%!16,Q%!20
�

&��shutdown
0ș"Wimp_CloseDown"
:�
D�
N 
X��initialise
br$="<Inv$Dir>."
l
� Q% 1024
v�init_sprites
��init_templates
�error_flag%=3
�game_active%=�
�
offset%=1
�count%=0
�A%=1
�A$="alien"
��
�
���init_templates
�'maxws%=&400:� ws% maxws%:curws%=ws%
�)ș"Wimp_OpenTemplate",,r$+"Templates"
�Fș"Wimp_LoadTemplate",,Q%,curws%,ws%+maxws%,-1,"game",0 � ,,curws%
Q%?32=4
Q%!64=sprites%
%ș"Wimp_CreateWindow",,Q% � game%
 ș"Wimp_CloseTemplate"
*)!Q%=game%:ș"Wimp_GetWindowState",,Q%
4$Q%!28=-2:ș"Wimp_OpenWindow",,Q%
>�
H
R��init_sprites
\� C%,L%
fC%=�(r$+"Sprites")
pL%=�#C%+16
z�#C%
�� sprites% L%
�!sprites%=L%:sprites%!8=0
�!ș"OS_SpriteOp",&109,sprites%
�.ș"OS_SpriteOp",&10A,sprites%,r$+"Sprites"
��
�
�
��receive
�� I%
�Ȏ Q%!16 �
� � 0: �shutdown
��
��
�
 ��checkmouse(X%,Y%,B%,H%,I%)

�(B%�5) �
1 �H%=game% � I%=0 �7:A$="explo":A%=1:count%=1
$�
.�
8 
B��error
L�error_flag%=3 �
V7 �errorbox("Unexpected error :- "+�$+" ("+�(�)+")")
`�
j �errorbox(�$)
t�
~error_flag%=3
��
�
���ok(e$)
�error_flag%=1
�
� 1,e$
��
�
���fatal(e$)
�error_flag%=2
�
� 1,e$
��
�
��errorbox(r$)

� R%
!Q%=�:$(Q%+4)=r$+�0
6ș"Wimp_ReportError",Q%,error_flag%,"Invade" � ,R%
(�R%=2 �shutdown
2�
�

00000000  0d 00 0a 22 f4 20 3e 20  3a 34 2e 47 61 6d 65 73  |...". > :4.Games|
00000010  2e 21 49 6e 76 61 64 65  2e 21 52 75 6e 49 6d 61  |.!Invade.!RunIma|
00000020  67 65 0d 00 14 1e f4 20  76 65 72 73 69 6f 6e 20  |ge..... version |
00000030  30 2e 30 31 20 28 32 32  2d 53 65 70 2d 38 38 29  |0.01 (22-Sep-88)|
00000040  0d 00 1e 3b c8 99 22 57  69 6d 70 5f 49 6e 69 74  |...;.."Wimp_Init|
00000050  69 61 6c 69 73 65 22 2c  32 30 30 2c 26 34 42 35  |ialise",200,&4B5|
00000060  33 34 31 35 34 2c 22 49  6e 76 61 64 65 72 73 22  |34154,"Invaders"|
00000070  20 b8 20 76 65 72 73 69  6f 6e 25 0d 00 28 0f f2  | . version%..(..|
00000080  69 6e 69 74 69 61 6c 69  73 65 0d 00 32 0d ee 85  |initialise..2...|
00000090  20 f2 65 72 72 6f 72 0d  00 3c 05 f5 0d 00 46 1d  | .error..<....F.|
000000a0  20 20 c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |  .."Wimp_Poll",|
000000b0  30 2c 51 25 20 b8 20 52  25 0d 00 50 0d 20 20 c8  |0,Q% . R%..P.  .|
000000c0  8e 20 52 25 20 ca 0d 00  5a 22 20 20 c9 20 30 20  |. R% ...Z"  . 0 |
000000d0  20 20 20 3a e7 67 61 6d  65 5f 61 63 74 69 76 65  |   :.game_active|
000000e0  25 20 f2 6e 75 64 67 65  0d 00 64 25 20 20 c9 20  |% .nudge..d%  . |
000000f0  32 20 20 20 20 3a c8 99  22 57 69 6d 70 5f 4f 70  |2    :.."Wimp_Op|
00000100  65 6e 57 69 6e 64 6f 77  22 2c 2c 51 25 0d 00 6e  |enWindow",,Q%..n|
00000110  26 20 20 c9 20 33 20 20  20 20 3a c8 99 22 57 69  |&  . 3    :.."Wi|
00000120  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000130  2c 51 25 0d 00 78 34 20  20 c9 20 36 20 20 20 20  |,Q%..x4  . 6    |
00000140  3a f2 63 68 65 63 6b 6d  6f 75 73 65 28 21 51 25  |:.checkmouse(!Q%|
00000150  2c 51 25 21 34 2c 51 25  21 38 2c 51 25 21 31 32  |,Q%!4,Q%!8,Q%!12|
00000160  2c 51 25 21 31 36 29 0d  00 82 1d 20 20 c9 20 39  |,Q%!16)....  . 9|
00000170  20 20 20 20 3a f2 6d 65  6e 75 73 65 6c 65 63 74  |    :.menuselect|
00000180  28 51 25 29 0d 00 8c 24  20 20 c9 20 31 37 2c 31  |(Q%)...$  . 17,1|
00000190  38 3a e7 b3 28 35 29 3e  34 20 67 61 6d 65 5f 61  |8:..(5)>4 game_a|
000001a0  63 74 69 76 65 25 3d b9  0d 00 96 19 20 20 20 20  |ctive%=.....    |
000001b0  20 20 20 20 20 20 20 20  20 f2 72 65 63 65 69 76  |         .receiv|
000001c0  65 0d 00 a0 07 20 20 cb  0d 00 aa 07 fd 20 a3 0d  |e....  ...... ..|
000001d0  00 b4 05 e0 0d 00 be 04  0d 00 c8 0b dd f2 6e 75  |..............nu|
000001e0  64 67 65 0d 00 d2 09 ea  20 6c 76 25 0d 00 dc 2b  |dge..... lv%...+|
000001f0  e7 41 24 3d 22 61 6c 69  65 6e 22 20 f2 75 70 64  |.A$="alien" .upd|
00000200  61 74 65 61 6c 69 65 6e  20 8b 20 f2 75 70 64 61  |atealien . .upda|
00000210  74 65 65 78 70 6c 6f 0d  00 e6 29 21 51 25 3d 67  |teexplo...)!Q%=g|
00000220  61 6d 65 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |ame%:.."Wimp_Get|
00000230  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 51 25  |WindowState",,Q%|
00000240  0d 00 f0 0d 6c 76 25 3d  51 25 21 32 30 0d 00 fa  |....lv%=Q%!20...|
00000250  32 51 25 21 32 30 3d 51  25 21 32 30 2b 6f 66 66  |2Q%!20=Q%!20+off|
00000260  73 65 74 25 2a 31 36 3a  c8 99 22 57 69 6d 70 5f  |set%*16:.."Wimp_|
00000270  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 51 25 0d  |OpenWindow",,Q%.|
00000280  01 04 29 21 51 25 3d 67  61 6d 65 25 3a c8 99 22  |..)!Q%=game%:.."|
00000290  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000002a0  61 74 65 22 2c 2c 51 25  0d 01 0e 1f e7 6c 76 25  |ate",,Q%.....lv%|
000002b0  3d 51 25 21 32 30 20 6f  66 66 73 65 74 25 3d 2d  |=Q%!20 offset%=-|
000002c0  6f 66 66 73 65 74 25 0d  01 18 05 e1 0d 01 22 04  |offset%.......".|
000002d0  0d 01 2c 11 dd f2 75 70  64 61 74 65 61 6c 69 65  |..,...updatealie|
000002e0  6e 0d 01 36 0f 41 25 2b  3d 6f 66 66 73 65 74 25  |n..6.A%+=offset%|
000002f0  0d 01 40 0e e7 41 25 3d  39 20 41 25 3d 31 0d 01  |..@..A%=9 A%=1..|
00000300  4a 0e e7 41 25 3d 30 20  41 25 3d 38 0d 01 54 12  |J..A%=0 A%=8..T.|
00000310  f2 72 65 70 6c 61 63 65  73 70 72 69 74 65 0d 01  |.replacesprite..|
00000320  5e 05 e1 0d 01 68 04 0d  01 72 11 dd f2 75 70 64  |^....h...r...upd|
00000330  61 74 65 65 78 70 6c 6f  0d 01 7c 0d 63 6f 75 6e  |ateexplo..|.coun|
00000340  74 25 2d 3d 31 0d 01 86  0f e7 63 6f 75 6e 74 25  |t%-=1.....count%|
00000350  3d 30 20 8c 0d 01 90 14  20 e7 41 25 3d 35 20 f2  |=0 ..... .A%=5 .|
00000360  73 68 75 74 64 6f 77 6e  0d 01 9a 13 20 f2 72 65  |shutdown.... .re|
00000370  70 6c 61 63 65 73 70 72  69 74 65 0d 01 a4 0d 20  |placesprite.... |
00000380  63 6f 75 6e 74 25 3d 35  0d 01 ae 0a 20 41 25 2b  |count%=5.... A%+|
00000390  3d 31 0d 01 b8 05 cd 0d  01 c2 05 e1 0d 01 cc 04  |=1..............|
000003a0  0d 01 d6 13 dd f2 72 65  70 6c 61 63 65 73 70 72  |......replacespr|
000003b0  69 74 65 0d 01 e0 3d 21  51 25 3d 67 61 6d 65 25  |ite...=!Q%=game%|
000003c0  3a 51 25 21 34 3d 30 3a  51 25 21 38 3d 30 3a 51  |:Q%!4=0:Q%!8=0:Q|
000003d0  25 21 31 32 3d 30 3a c8  99 22 57 69 6d 70 5f 47  |%!12=0:.."Wimp_G|
000003e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 51 25  |etIconState",,Q%|
000003f0  0d 01 ea 15 24 28 51 25  2b 32 38 29 3d 41 24 2b  |....$(Q%+28)=A$+|
00000400  c3 28 41 25 29 0d 01 f4  1b c8 99 22 57 69 6d 70  |.(A%)......"Wimp|
00000410  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 51 25  |_DeleteIcon",,Q%|
00000420  0d 01 fe 26 51 25 21 34  3d 21 51 25 3a c8 99 22  |...&Q%!4=!Q%:.."|
00000430  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000440  2c 2c 51 25 2b 34 0d 02  08 35 c8 99 22 57 69 6d  |,,Q%+4...5.."Wim|
00000450  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 67  |p_ForceRedraw",g|
00000460  61 6d 65 25 2c 51 25 21  38 2c 51 25 21 31 32 2c  |ame%,Q%!8,Q%!12,|
00000470  51 25 21 31 36 2c 51 25  21 32 30 0d 02 12 05 e1  |Q%!16,Q%!20.....|
00000480  0d 02 1c 04 0d 02 26 0e  dd f2 73 68 75 74 64 6f  |......&...shutdo|
00000490  77 6e 0d 02 30 16 c8 99  22 57 69 6d 70 5f 43 6c  |wn..0..."Wimp_Cl|
000004a0  6f 73 65 44 6f 77 6e 22  0d 02 3a 05 e0 0d 02 44  |oseDown"..:....D|
000004b0  05 e1 0d 02 4e 05 20 0d  02 58 10 dd f2 69 6e 69  |....N. ..X...ini|
000004c0  74 69 61 6c 69 73 65 0d  02 62 13 72 24 3d 22 3c  |tialise..b.r$="<|
000004d0  49 6e 76 24 44 69 72 3e  2e 22 0d 02 6c 0d de 20  |Inv$Dir>."..l.. |
000004e0  51 25 20 31 30 32 34 0d  02 76 11 f2 69 6e 69 74  |Q% 1024..v..init|
000004f0  5f 73 70 72 69 74 65 73  0d 02 80 13 f2 69 6e 69  |_sprites.....ini|
00000500  74 5f 74 65 6d 70 6c 61  74 65 73 0d 02 8a 11 65  |t_templates....e|
00000510  72 72 6f 72 5f 66 6c 61  67 25 3d 33 0d 02 94 12  |rror_flag%=3....|
00000520  67 61 6d 65 5f 61 63 74  69 76 65 25 3d a3 0d 02  |game_active%=...|
00000530  9e 0d 6f 66 66 73 65 74  25 3d 31 0d 02 a8 0c 63  |..offset%=1....c|
00000540  6f 75 6e 74 25 3d 30 0d  02 b2 08 41 25 3d 31 0d  |ount%=0....A%=1.|
00000550  02 bc 0e 41 24 3d 22 61  6c 69 65 6e 22 0d 02 c6  |...A$="alien"...|
00000560  05 e1 0d 02 d0 04 0d 02  da 14 dd f2 69 6e 69 74  |............init|
00000570  5f 74 65 6d 70 6c 61 74  65 73 0d 02 e4 27 6d 61  |_templates...'ma|
00000580  78 77 73 25 3d 26 34 30  30 3a de 20 77 73 25 20  |xws%=&400:. ws% |
00000590  6d 61 78 77 73 25 3a 63  75 72 77 73 25 3d 77 73  |maxws%:curws%=ws|
000005a0  25 0d 02 ee 29 c8 99 22  57 69 6d 70 5f 4f 70 65  |%...).."Wimp_Ope|
000005b0  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 72 24 2b 22  |nTemplate",,r$+"|
000005c0  54 65 6d 70 6c 61 74 65  73 22 0d 02 f8 46 c8 99  |Templates"...F..|
000005d0  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
000005e0  74 65 22 2c 2c 51 25 2c  63 75 72 77 73 25 2c 77  |te",,Q%,curws%,w|
000005f0  73 25 2b 6d 61 78 77 73  25 2c 2d 31 2c 22 67 61  |s%+maxws%,-1,"ga|
00000600  6d 65 22 2c 30 20 b8 20  2c 2c 63 75 72 77 73 25  |me",0 . ,,curws%|
00000610  0d 03 02 0b 51 25 3f 33  32 3d 34 0d 03 0c 12 51  |....Q%?32=4....Q|
00000620  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 03 16  |%!64=sprites%...|
00000630  25 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |%.."Wimp_CreateW|
00000640  69 6e 64 6f 77 22 2c 2c  51 25 20 b8 20 67 61 6d  |indow",,Q% . gam|
00000650  65 25 0d 03 20 1a c8 99  22 57 69 6d 70 5f 43 6c  |e%.. ..."Wimp_Cl|
00000660  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 03 2a 29  |oseTemplate"..*)|
00000670  21 51 25 3d 67 61 6d 65  25 3a c8 99 22 57 69 6d  |!Q%=game%:.."Wim|
00000680  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000690  22 2c 2c 51 25 0d 03 34  24 51 25 21 32 38 3d 2d  |",,Q%..4$Q%!28=-|
000006a0  32 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |2:.."Wimp_OpenWi|
000006b0  6e 64 6f 77 22 2c 2c 51  25 0d 03 3e 05 e1 0d 03  |ndow",,Q%..>....|
000006c0  48 04 0d 03 52 12 dd f2  69 6e 69 74 5f 73 70 72  |H...R...init_spr|
000006d0  69 74 65 73 0d 03 5c 0b  ea 20 43 25 2c 4c 25 0d  |ites..\.. C%,L%.|
000006e0  03 66 16 43 25 3d 8e 28  72 24 2b 22 53 70 72 69  |.f.C%=.(r$+"Spri|
000006f0  74 65 73 22 29 0d 03 70  0e 4c 25 3d a2 23 43 25  |tes")..p.L%=.#C%|
00000700  2b 31 36 0d 03 7a 08 d9  23 43 25 0d 03 84 11 de  |+16..z..#C%.....|
00000710  20 73 70 72 69 74 65 73  25 20 4c 25 0d 03 8e 1d  | sprites% L%....|
00000720  21 73 70 72 69 74 65 73  25 3d 4c 25 3a 73 70 72  |!sprites%=L%:spr|
00000730  69 74 65 73 25 21 38 3d  30 0d 03 98 21 c8 99 22  |ites%!8=0...!.."|
00000740  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00000750  39 2c 73 70 72 69 74 65  73 25 0d 03 a2 2e c8 99  |9,sprites%......|
00000760  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000770  30 41 2c 73 70 72 69 74  65 73 25 2c 72 24 2b 22  |0A,sprites%,r$+"|
00000780  53 70 72 69 74 65 73 22  0d 03 ac 05 e1 0d 03 b6  |Sprites"........|
00000790  04 0d 03 c0 0d dd f2 72  65 63 65 69 76 65 0d 03  |.......receive..|
000007a0  ca 08 ea 20 49 25 0d 03  d4 0e c8 8e 20 51 25 21  |... I%...... Q%!|
000007b0  31 36 20 ca 0d 03 de 13  20 c9 20 30 3a 20 f2 73  |16 ..... . 0: .s|
000007c0  68 75 74 64 6f 77 6e 0d  03 e8 05 cb 0d 03 f2 05  |hutdown.........|
000007d0  e1 0d 03 fc 04 0d 04 06  20 dd f2 63 68 65 63 6b  |........ ..check|
000007e0  6d 6f 75 73 65 28 58 25  2c 59 25 2c 42 25 2c 48  |mouse(X%,Y%,B%,H|
000007f0  25 2c 49 25 29 0d 04 10  0d e7 28 42 25 80 35 29  |%,I%).....(B%.5)|
00000800  20 8c 0d 04 1a 31 20 e7  48 25 3d 67 61 6d 65 25  | ....1 .H%=game%|
00000810  20 80 20 49 25 3d 30 20  ef 37 3a 41 24 3d 22 65  | . I%=0 .7:A$="e|
00000820  78 70 6c 6f 22 3a 41 25  3d 31 3a 63 6f 75 6e 74  |xplo":A%=1:count|
00000830  25 3d 31 0d 04 24 05 cd  0d 04 2e 05 e1 0d 04 38  |%=1..$.........8|
00000840  05 20 0d 04 42 0b dd f2  65 72 72 6f 72 0d 04 4c  |. ..B...error..L|
00000850  14 e7 65 72 72 6f 72 5f  66 6c 61 67 25 3d 33 20  |..error_flag%=3 |
00000860  8c 0d 04 56 37 20 f2 65  72 72 6f 72 62 6f 78 28  |...V7 .errorbox(|
00000870  22 55 6e 65 78 70 65 63  74 65 64 20 65 72 72 6f  |"Unexpected erro|
00000880  72 20 3a 2d 20 22 2b f6  24 2b 22 20 28 22 2b c3  |r :- "+.$+" ("+.|
00000890  28 9e 29 2b 22 29 22 29  0d 04 60 05 cc 0d 04 6a  |(.)+")")..`....j|
000008a0  12 20 f2 65 72 72 6f 72  62 6f 78 28 f6 24 29 0d  |. .errorbox(.$).|
000008b0  04 74 05 cd 0d 04 7e 11  65 72 72 6f 72 5f 66 6c  |.t....~.error_fl|
000008c0  61 67 25 3d 33 0d 04 88  05 e1 0d 04 92 04 0d 04  |ag%=3...........|
000008d0  9c 0c dd f2 6f 6b 28 65  24 29 0d 04 a6 11 65 72  |....ok(e$)....er|
000008e0  72 6f 72 5f 66 6c 61 67  25 3d 31 0d 04 b0 0a 85  |ror_flag%=1.....|
000008f0  20 31 2c 65 24 0d 04 ba  05 e1 0d 04 c4 04 0d 04  | 1,e$...........|
00000900  ce 0f dd f2 66 61 74 61  6c 28 65 24 29 0d 04 d8  |....fatal(e$)...|
00000910  11 65 72 72 6f 72 5f 66  6c 61 67 25 3d 32 0d 04  |.error_flag%=2..|
00000920  e2 0a 85 20 31 2c 65 24  0d 04 ec 05 e1 0d 04 f6  |... 1,e$........|
00000930  04 0d 05 00 12 dd f2 65  72 72 6f 72 62 6f 78 28  |.......errorbox(|
00000940  72 24 29 0d 05 0a 08 ea  20 52 25 0d 05 14 17 21  |r$)..... R%....!|
00000950  51 25 3d 9f 3a 24 28 51  25 2b 34 29 3d 72 24 2b  |Q%=.:$(Q%+4)=r$+|
00000960  bd 30 0d 05 1e 36 c8 99  22 57 69 6d 70 5f 52 65  |.0...6.."Wimp_Re|
00000970  70 6f 72 74 45 72 72 6f  72 22 2c 51 25 2c 65 72  |portError",Q%,er|
00000980  72 6f 72 5f 66 6c 61 67  25 2c 22 49 6e 76 61 64  |ror_flag%,"Invad|
00000990  65 22 20 b8 20 2c 52 25  0d 05 28 13 e7 52 25 3d  |e" . ,R%..(..R%=|
000009a0  32 20 f2 73 68 75 74 64  6f 77 6e 0d 05 32 05 e1  |2 .shutdown..2..|
000009b0  0d ff                                             |..|
000009b2