&� > <Invasion$Dir>.BasicProgs.Menu

	� 9:�
(
2#� Program : Alien Invasion menu
<� Version : 2.01
F8� Author  : Adrian S.W.Nelson : Recoded By G.Stanley
P� Date    : 02/04/94
Z:
d	�init
n�display_option
x�
�   �get_option
�� exit%
�
�finalise
��
�:
�
��init
�
�	� 9:�
�� X%
�-X%=�("<Invasion$Dir>.SysFonts.AlienFont")
�
��
� � �#X%

	��#X%

	� #X%



"� 6

,Ƞ 1

6�("fx 229 1")

@current%=0

Jexit%=�

T*�("screenload <Invasion$Dir>.Loading")

^black%=0

hdark_grey%=1

rlight_grey%=3

|
red%=4

�
orange%=5

�
yellow%=6

�bright_green%=8

�dark_green%=9

�cyan%=10

�dark_blue%=11

�dark_brown%=12

�light_brown%=13

�
white%=15

�magenta%=8

�� �=9 �

�   XPIXS%=8

��
   XPIXS%=16
�
�("POINTER 1")
&ȗ �
0ȗ ȓ 0,10,1280,1010
:ȗ � 187,136
D�("fx 21,9")
N�
X� options%
b� option_title$(options%)
l� option_box%(options%,4)
v� I%=1 � options%
�   � option_title$(I%)
�   � K%=1 � 4
�      � option_box%(I%,K%)
�   � K%
�� I%
�� 5
�3� "Play Game"                ,20  ,110 ,340 ,64
�3� "Sprite Editor"            ,380 ,110 ,460 ,64
�3� "Wave Editor"              ,860 ,110 ,400 ,64
�3� "Backdrop Screen Converter",20  , 20 ,820, 64
�3� "Exit Menu"                ,860 , 20 ,400 ,64
��
�:
��display_option
3�print("A L I E N    I N V A S I O N",0,1000,�)
/�print("Recoded By G.Stanley 1994",0,940,�)
 -�print("� Archimedes World 1994",0,220,�)
*� I%=1 � options%
4   �disp_option(I%,yellow%)
>� I%
H�
R:
\��disp_option(opt%,col%)
f� opt%=0 � �
pBX%=option_box%(opt%,1)
zBY%=option_box%(opt%,2)
�BW%=option_box%(opt%,3)
�BH%=option_box%(opt%,4)
�� 0,black%
�ȓ BX%,BY%,BW%,BH%
�� 0,white%
�ȓ BX%+4,BY%+4,BW%-8,BH%-8
�� 0,col%
�#ȓ Ȑ BX%+8,BY%+8,BW%-16,BH%-16
�X�print(option_title$(opt%),BX%+(BW%-�(option_title$(opt%))*32)/2,BY%-8+(BH%+40)/2,�)
��
�:
���get_option
��

   �mouse
   � I%=1 � options%
o      � �is_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) �
$\         � current%<>I% � �disp_option(current%,6):current%=I%:�disp_option(current%,11)
.      �
8@         � current%=I% � �disp_option(current%,6):current%=0
B      �
L   � I%
V� MB%>0
`� I%=1 � options%
jl   � �is_mouse_in_box(MX%,MY%,option_box%(I%,1),option_box%(I%,2),option_box%(I%,3),option_box%(I%,4)) �
t      Ȏ I% �
~;         � 1: �wait("THE INVADERS","ARE","APPROACHING")
�                 � VDU 21
�                 ȗ �
�                 Ƞ 8
�5                 �("Run <Invasion$Dir>.!GameRun")
�
�;         � 2: �wait("THE SPRITE EDITOR","IS","LOADING")
�8                 � "<Invasion$Dir>.BasicProgs.SEdit"
�
�9         � 3: �wait("THE WAVE EDITOR","IS","LOADING")
�8                 � "<Invasion$Dir>.BasicProgs.WEdit"
�
�G         � 4: �wait("THE BACKDROP SCREEN","CONVERTER IS","LOADING")
<                 � "<Invasion$Dir>.BasicProgs.ArtScConv"


         : �
      �
(      exit%=�
2      ȗ �
<   �
F� I%
P�
Z:
d��finalise
n�("fx 229 0")
x�("fx 21 0")
��("fx 12")
� �("Run <Invasion$Dir>.!End")
�&�("CHANNELVOICE 1 WaveSynth-Beep")
��
�:
�.ݤis_mouse_in_box(MX%,MY%,X1%,Y1%,XD%,YD%)
�2=MX%>X1% � MX%<X1%+XD% � MY%>Y1% � MY%<Y1%+YD%
�:
���mouse
�ȗ MX%,MY%,MB%
��delay(.15)
��
�:
��delay(seconds)
�=0
�
"� �>seconds*100
,�
6:
@��print(text$,X%,Y%,F%)
J� F%=� �
T   X%=(1280-�(text$)*32)/2
^�
h� 5
r� 0,black%
|� 23,17,7,6,XPIXS%;8;0,0
�
� X%-4,Y%
�� text$;
�
� X%+4,Y%
�� text$;
�
� X%,Y%+4
�� text$;
�
� X%,Y%-4
�� text$;
�� 0,red%
�� X%,Y%
�� text$;
�� 23,17,7,6,8;8;0,0
�� 4
�
�
:
&��wait(A$,B$,C$)
0� 0,black%
:ȓ 20,20,1240,152
D� 0,white%
Nȓ 24,24,1232,144
X� 0,dark_blue%
bȓ Ȑ 28,28,1224,136
l'�print("PLEASE WAIT..."+A$,0,152,�)
v�print(B$,0,108,�)
��print(C$,0,64,�)
��
�

00000000  0d 00 0a 26 f4 20 3e 20  3c 49 6e 76 61 73 69 6f  |...&. > <Invasio|
00000010  6e 24 44 69 72 3e 2e 42  61 73 69 63 50 72 6f 67  |n$Dir>.BasicProg|
00000020  73 2e 4d 65 6e 75 0d 00  14 04 0d 00 1e 09 eb 20  |s.Menu......... |
00000030  39 3a 87 0d 00 28 04 0d  00 32 23 f4 20 50 72 6f  |9:...(...2#. Pro|
00000040  67 72 61 6d 20 3a 20 41  6c 69 65 6e 20 49 6e 76  |gram : Alien Inv|
00000050  61 73 69 6f 6e 20 6d 65  6e 75 0d 00 3c 14 f4 20  |asion menu..<.. |
00000060  56 65 72 73 69 6f 6e 20  3a 20 32 2e 30 31 0d 00  |Version : 2.01..|
00000070  46 38 f4 20 41 75 74 68  6f 72 20 20 3a 20 41 64  |F8. Author  : Ad|
00000080  72 69 61 6e 20 53 2e 57  2e 4e 65 6c 73 6f 6e 20  |rian S.W.Nelson |
00000090  3a 20 52 65 63 6f 64 65  64 20 42 79 20 47 2e 53  |: Recoded By G.S|
000000a0  74 61 6e 6c 65 79 0d 00  50 18 f4 20 44 61 74 65  |tanley..P.. Date|
000000b0  20 20 20 20 3a 20 30 32  2f 30 34 2f 39 34 0d 00  |    : 02/04/94..|
000000c0  5a 05 3a 0d 00 64 09 f2  69 6e 69 74 0d 00 6e 13  |Z.:..d..init..n.|
000000d0  f2 64 69 73 70 6c 61 79  5f 6f 70 74 69 6f 6e 0d  |.display_option.|
000000e0  00 78 05 f5 0d 00 82 12  20 20 20 f2 67 65 74 5f  |.x......   .get_|
000000f0  6f 70 74 69 6f 6e 0d 00  8c 0b fd 20 65 78 69 74  |option..... exit|
00000100  25 0d 00 96 0d f2 66 69  6e 61 6c 69 73 65 0d 00  |%.....finalise..|
00000110  a0 05 e0 0d 00 aa 05 3a  0d 00 b4 0a dd f2 69 6e  |.......:......in|
00000120  69 74 0d 00 be 04 0d 00  c8 09 eb 20 39 3a 87 0d  |it......... 9:..|
00000130  00 d2 08 ea 20 58 25 0d  00 dc 2d 58 25 3d 8e 28  |.... X%...-X%=.(|
00000140  22 3c 49 6e 76 61 73 69  6f 6e 24 44 69 72 3e 2e  |"<Invasion$Dir>.|
00000150  53 79 73 46 6f 6e 74 73  2e 41 6c 69 65 6e 46 6f  |SysFonts.AlienFo|
00000160  6e 74 22 29 0d 00 e6 04  0d 00 f0 05 f5 0d 00 fa  |nt")............|
00000170  0b 20 ef 20 9a 23 58 25  0d 01 04 09 fd c5 23 58  |. . .#X%......#X|
00000180  25 0d 01 0e 09 d9 20 23  58 25 0d 01 18 04 0d 01  |%..... #X%......|
00000190  22 07 ef 20 36 0d 01 2c  08 c8 a0 20 31 0d 01 36  |".. 6..,... 1..6|
000001a0  11 ff 28 22 66 78 20 32  32 39 20 31 22 29 0d 01  |..("fx 229 1")..|
000001b0  40 0e 63 75 72 72 65 6e  74 25 3d 30 0d 01 4a 0b  |@.current%=0..J.|
000001c0  65 78 69 74 25 3d a3 0d  01 54 2a ff 28 22 73 63  |exit%=...T*.("sc|
000001d0  72 65 65 6e 6c 6f 61 64  20 3c 49 6e 76 61 73 69  |reenload <Invasi|
000001e0  6f 6e 24 44 69 72 3e 2e  4c 6f 61 64 69 6e 67 22  |on$Dir>.Loading"|
000001f0  29 0d 01 5e 0c 62 6c 61  63 6b 25 3d 30 0d 01 68  |)..^.black%=0..h|
00000200  10 64 61 72 6b 5f 67 72  65 79 25 3d 31 0d 01 72  |.dark_grey%=1..r|
00000210  11 6c 69 67 68 74 5f 67  72 65 79 25 3d 33 0d 01  |.light_grey%=3..|
00000220  7c 0a 72 65 64 25 3d 34  0d 01 86 0d 6f 72 61 6e  ||.red%=4....oran|
00000230  67 65 25 3d 35 0d 01 90  0d 79 65 6c 6c 6f 77 25  |ge%=5....yellow%|
00000240  3d 36 0d 01 9a 13 62 72  69 67 68 74 5f 67 72 65  |=6....bright_gre|
00000250  65 6e 25 3d 38 0d 01 a4  11 64 61 72 6b 5f 67 72  |en%=8....dark_gr|
00000260  65 65 6e 25 3d 39 0d 01  ae 0c 63 79 61 6e 25 3d  |een%=9....cyan%=|
00000270  31 30 0d 01 b8 11 64 61  72 6b 5f 62 6c 75 65 25  |10....dark_blue%|
00000280  3d 31 31 0d 01 c2 12 64  61 72 6b 5f 62 72 6f 77  |=11....dark_brow|
00000290  6e 25 3d 31 32 0d 01 cc  13 6c 69 67 68 74 5f 62  |n%=12....light_b|
000002a0  72 6f 77 6e 25 3d 31 33  0d 01 d6 0d 77 68 69 74  |rown%=13....whit|
000002b0  65 25 3d 31 35 0d 01 e0  0e 6d 61 67 65 6e 74 61  |e%=15....magenta|
000002c0  25 3d 38 0d 01 ea 0b e7  20 eb 3d 39 20 8c 0d 01  |%=8..... .=9 ...|
000002d0  f4 0f 20 20 20 58 50 49  58 53 25 3d 38 0d 01 fe  |..   XPIXS%=8...|
000002e0  05 cc 0d 02 08 10 20 20  20 58 50 49 58 53 25 3d  |......   XPIXS%=|
000002f0  31 36 0d 02 12 05 cd 0d  02 1c 12 ff 28 22 50 4f  |16..........("PO|
00000300  49 4e 54 45 52 20 31 22  29 0d 02 26 08 c8 97 20  |INTER 1")..&... |
00000310  ee 0d 02 30 18 c8 97 20  c8 93 20 30 2c 31 30 2c  |...0... .. 0,10,|
00000320  31 32 38 30 2c 31 30 31  30 0d 02 3a 10 c8 97 20  |1280,1010..:... |
00000330  b8 20 31 38 37 2c 31 33  36 0d 02 44 10 ff 28 22  |. 187,136..D..("|
00000340  66 78 20 32 31 2c 39 22  29 0d 02 4e 05 f7 0d 02  |fx 21,9")..N....|
00000350  58 0e f3 20 6f 70 74 69  6f 6e 73 25 0d 02 62 1d  |X.. options%..b.|
00000360  de 20 6f 70 74 69 6f 6e  5f 74 69 74 6c 65 24 28  |. option_title$(|
00000370  6f 70 74 69 6f 6e 73 25  29 0d 02 6c 1d de 20 6f  |options%)..l.. o|
00000380  70 74 69 6f 6e 5f 62 6f  78 25 28 6f 70 74 69 6f  |ption_box%(optio|
00000390  6e 73 25 2c 34 29 0d 02  76 15 e3 20 49 25 3d 31  |ns%,4)..v.. I%=1|
000003a0  20 b8 20 6f 70 74 69 6f  6e 73 25 0d 02 80 1a 20  | . options%.... |
000003b0  20 20 f3 20 6f 70 74 69  6f 6e 5f 74 69 74 6c 65  |  . option_title|
000003c0  24 28 49 25 29 0d 02 8a  11 20 20 20 e3 20 4b 25  |$(I%)....   . K%|
000003d0  3d 31 20 b8 20 34 0d 02  94 1e 20 20 20 20 20 20  |=1 . 4....      |
000003e0  f3 20 6f 70 74 69 6f 6e  5f 62 6f 78 25 28 49 25  |. option_box%(I%|
000003f0  2c 4b 25 29 0d 02 9e 0b  20 20 20 ed 20 4b 25 0d  |,K%)....   . K%.|
00000400  02 a8 08 ed 20 49 25 0d  02 b2 07 dc 20 35 0d 02  |.... I%..... 5..|
00000410  bc 33 dc 20 22 50 6c 61  79 20 47 61 6d 65 22 20  |.3. "Play Game" |
00000420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2c  |               ,|
00000430  32 30 20 20 2c 31 31 30  20 2c 33 34 30 20 2c 36  |20  ,110 ,340 ,6|
00000440  34 0d 02 c6 33 dc 20 22  53 70 72 69 74 65 20 45  |4...3. "Sprite E|
00000450  64 69 74 6f 72 22 20 20  20 20 20 20 20 20 20 20  |ditor"          |
00000460  20 20 2c 33 38 30 20 2c  31 31 30 20 2c 34 36 30  |  ,380 ,110 ,460|
00000470  20 2c 36 34 0d 02 d0 33  dc 20 22 57 61 76 65 20  | ,64...3. "Wave |
00000480  45 64 69 74 6f 72 22 20  20 20 20 20 20 20 20 20  |Editor"         |
00000490  20 20 20 20 20 2c 38 36  30 20 2c 31 31 30 20 2c  |     ,860 ,110 ,|
000004a0  34 30 30 20 2c 36 34 0d  02 da 33 dc 20 22 42 61  |400 ,64...3. "Ba|
000004b0  63 6b 64 72 6f 70 20 53  63 72 65 65 6e 20 43 6f  |ckdrop Screen Co|
000004c0  6e 76 65 72 74 65 72 22  2c 32 30 20 20 2c 20 32  |nverter",20  , 2|
000004d0  30 20 2c 38 32 30 2c 20  36 34 0d 02 e4 33 dc 20  |0 ,820, 64...3. |
000004e0  22 45 78 69 74 20 4d 65  6e 75 22 20 20 20 20 20  |"Exit Menu"     |
000004f0  20 20 20 20 20 20 20 20  20 20 20 2c 38 36 30 20  |           ,860 |
00000500  2c 20 32 30 20 2c 34 30  30 20 2c 36 34 0d 02 ee  |, 20 ,400 ,64...|
00000510  05 e1 0d 02 f8 05 3a 0d  03 02 14 dd f2 64 69 73  |......:......dis|
00000520  70 6c 61 79 5f 6f 70 74  69 6f 6e 0d 03 0c 33 f2  |play_option...3.|
00000530  70 72 69 6e 74 28 22 41  20 4c 20 49 20 45 20 4e  |print("A L I E N|
00000540  20 20 20 20 49 20 4e 20  56 20 41 20 53 20 49 20  |    I N V A S I |
00000550  4f 20 4e 22 2c 30 2c 31  30 30 30 2c b9 29 0d 03  |O N",0,1000,.)..|
00000560  16 2f f2 70 72 69 6e 74  28 22 52 65 63 6f 64 65  |./.print("Recode|
00000570  64 20 42 79 20 47 2e 53  74 61 6e 6c 65 79 20 31  |d By G.Stanley 1|
00000580  39 39 34 22 2c 30 2c 39  34 30 2c b9 29 0d 03 20  |994",0,940,.).. |
00000590  2d f2 70 72 69 6e 74 28  22 a9 20 41 72 63 68 69  |-.print(". Archi|
000005a0  6d 65 64 65 73 20 57 6f  72 6c 64 20 31 39 39 34  |medes World 1994|
000005b0  22 2c 30 2c 32 32 30 2c  b9 29 0d 03 2a 15 e3 20  |",0,220,.)..*.. |
000005c0  49 25 3d 31 20 b8 20 6f  70 74 69 6f 6e 73 25 0d  |I%=1 . options%.|
000005d0  03 34 1f 20 20 20 f2 64  69 73 70 5f 6f 70 74 69  |.4.   .disp_opti|
000005e0  6f 6e 28 49 25 2c 79 65  6c 6c 6f 77 25 29 0d 03  |on(I%,yellow%)..|
000005f0  3e 08 ed 20 49 25 0d 03  48 05 e1 0d 03 52 05 3a  |>.. I%..H....R.:|
00000600  0d 03 5c 1c dd f2 64 69  73 70 5f 6f 70 74 69 6f  |..\...disp_optio|
00000610  6e 28 6f 70 74 25 2c 63  6f 6c 25 29 0d 03 66 10  |n(opt%,col%)..f.|
00000620  e7 20 6f 70 74 25 3d 30  20 8c 20 e1 0d 03 70 1b  |. opt%=0 . ...p.|
00000630  42 58 25 3d 6f 70 74 69  6f 6e 5f 62 6f 78 25 28  |BX%=option_box%(|
00000640  6f 70 74 25 2c 31 29 0d  03 7a 1b 42 59 25 3d 6f  |opt%,1)..z.BY%=o|
00000650  70 74 69 6f 6e 5f 62 6f  78 25 28 6f 70 74 25 2c  |ption_box%(opt%,|
00000660  32 29 0d 03 84 1b 42 57  25 3d 6f 70 74 69 6f 6e  |2)....BW%=option|
00000670  5f 62 6f 78 25 28 6f 70  74 25 2c 33 29 0d 03 8e  |_box%(opt%,3)...|
00000680  1b 42 48 25 3d 6f 70 74  69 6f 6e 5f 62 6f 78 25  |.BH%=option_box%|
00000690  28 6f 70 74 25 2c 34 29  0d 03 98 0e e6 20 30 2c  |(opt%,4)..... 0,|
000006a0  62 6c 61 63 6b 25 0d 03  a2 16 c8 93 20 42 58 25  |black%...... BX%|
000006b0  2c 42 59 25 2c 42 57 25  2c 42 48 25 0d 03 ac 0e  |,BY%,BW%,BH%....|
000006c0  e6 20 30 2c 77 68 69 74  65 25 0d 03 b6 1e c8 93  |. 0,white%......|
000006d0  20 42 58 25 2b 34 2c 42  59 25 2b 34 2c 42 57 25  | BX%+4,BY%+4,BW%|
000006e0  2d 38 2c 42 48 25 2d 38  0d 03 c0 0c e6 20 30 2c  |-8,BH%-8..... 0,|
000006f0  63 6f 6c 25 0d 03 ca 23  c8 93 20 c8 90 20 42 58  |col%...#.. .. BX|
00000700  25 2b 38 2c 42 59 25 2b  38 2c 42 57 25 2d 31 36  |%+8,BY%+8,BW%-16|
00000710  2c 42 48 25 2d 31 36 0d  03 d4 58 f2 70 72 69 6e  |,BH%-16...X.prin|
00000720  74 28 6f 70 74 69 6f 6e  5f 74 69 74 6c 65 24 28  |t(option_title$(|
00000730  6f 70 74 25 29 2c 42 58  25 2b 28 42 57 25 2d a9  |opt%),BX%+(BW%-.|
00000740  28 6f 70 74 69 6f 6e 5f  74 69 74 6c 65 24 28 6f  |(option_title$(o|
00000750  70 74 25 29 29 2a 33 32  29 2f 32 2c 42 59 25 2d  |pt%))*32)/2,BY%-|
00000760  38 2b 28 42 48 25 2b 34  30 29 2f 32 2c a3 29 0d  |8+(BH%+40)/2,.).|
00000770  03 de 05 e1 0d 03 e8 05  3a 0d 03 f2 10 dd f2 67  |........:......g|
00000780  65 74 5f 6f 70 74 69 6f  6e 0d 03 fc 05 f5 0d 04  |et_option.......|
00000790  06 0d 20 20 20 f2 6d 6f  75 73 65 0d 04 10 18 20  |..   .mouse.... |
000007a0  20 20 e3 20 49 25 3d 31  20 b8 20 6f 70 74 69 6f  |  . I%=1 . optio|
000007b0  6e 73 25 0d 04 1a 6f 20  20 20 20 20 20 e7 20 a4  |ns%...o      . .|
000007c0  69 73 5f 6d 6f 75 73 65  5f 69 6e 5f 62 6f 78 28  |is_mouse_in_box(|
000007d0  4d 58 25 2c 4d 59 25 2c  6f 70 74 69 6f 6e 5f 62  |MX%,MY%,option_b|
000007e0  6f 78 25 28 49 25 2c 31  29 2c 6f 70 74 69 6f 6e  |ox%(I%,1),option|
000007f0  5f 62 6f 78 25 28 49 25  2c 32 29 2c 6f 70 74 69  |_box%(I%,2),opti|
00000800  6f 6e 5f 62 6f 78 25 28  49 25 2c 33 29 2c 6f 70  |on_box%(I%,3),op|
00000810  74 69 6f 6e 5f 62 6f 78  25 28 49 25 2c 34 29 29  |tion_box%(I%,4))|
00000820  20 8c 0d 04 24 5c 20 20  20 20 20 20 20 20 20 e7  | ...$\         .|
00000830  20 63 75 72 72 65 6e 74  25 3c 3e 49 25 20 8c 20  | current%<>I% . |
00000840  f2 64 69 73 70 5f 6f 70  74 69 6f 6e 28 63 75 72  |.disp_option(cur|
00000850  72 65 6e 74 25 2c 36 29  3a 63 75 72 72 65 6e 74  |rent%,6):current|
00000860  25 3d 49 25 3a f2 64 69  73 70 5f 6f 70 74 69 6f  |%=I%:.disp_optio|
00000870  6e 28 63 75 72 72 65 6e  74 25 2c 31 31 29 0d 04  |n(current%,11)..|
00000880  2e 0b 20 20 20 20 20 20  cc 0d 04 38 40 20 20 20  |..      ...8@   |
00000890  20 20 20 20 20 20 e7 20  63 75 72 72 65 6e 74 25  |      . current%|
000008a0  3d 49 25 20 8c 20 f2 64  69 73 70 5f 6f 70 74 69  |=I% . .disp_opti|
000008b0  6f 6e 28 63 75 72 72 65  6e 74 25 2c 36 29 3a 63  |on(current%,6):c|
000008c0  75 72 72 65 6e 74 25 3d  30 0d 04 42 0b 20 20 20  |urrent%=0..B.   |
000008d0  20 20 20 cd 0d 04 4c 0b  20 20 20 ed 20 49 25 0d  |   ...L.   . I%.|
000008e0  04 56 0b fd 20 4d 42 25  3e 30 0d 04 60 15 e3 20  |.V.. MB%>0..`.. |
000008f0  49 25 3d 31 20 b8 20 6f  70 74 69 6f 6e 73 25 0d  |I%=1 . options%.|
00000900  04 6a 6c 20 20 20 e7 20  a4 69 73 5f 6d 6f 75 73  |.jl   . .is_mous|
00000910  65 5f 69 6e 5f 62 6f 78  28 4d 58 25 2c 4d 59 25  |e_in_box(MX%,MY%|
00000920  2c 6f 70 74 69 6f 6e 5f  62 6f 78 25 28 49 25 2c  |,option_box%(I%,|
00000930  31 29 2c 6f 70 74 69 6f  6e 5f 62 6f 78 25 28 49  |1),option_box%(I|
00000940  25 2c 32 29 2c 6f 70 74  69 6f 6e 5f 62 6f 78 25  |%,2),option_box%|
00000950  28 49 25 2c 33 29 2c 6f  70 74 69 6f 6e 5f 62 6f  |(I%,3),option_bo|
00000960  78 25 28 49 25 2c 34 29  29 20 8c 0d 04 74 11 20  |x%(I%,4)) ...t. |
00000970  20 20 20 20 20 c8 8e 20  49 25 20 ca 0d 04 7e 3b  |     .. I% ...~;|
00000980  20 20 20 20 20 20 20 20  20 c9 20 31 3a 20 f2 77  |         . 1: .w|
00000990  61 69 74 28 22 54 48 45  20 49 4e 56 41 44 45 52  |ait("THE INVADER|
000009a0  53 22 2c 22 41 52 45 22  2c 22 41 50 50 52 4f 41  |S","ARE","APPROA|
000009b0  43 48 49 4e 47 22 29 0d  04 88 1d 20 20 20 20 20  |CHING")....     |
000009c0  20 20 20 20 20 20 20 20  20 20 20 20 f4 20 56 44  |            . VD|
000009d0  55 20 32 31 0d 04 92 19  20 20 20 20 20 20 20 20  |U 21....        |
000009e0  20 20 20 20 20 20 20 20  20 c8 97 20 87 0d 04 9c  |         .. ....|
000009f0  19 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000a00  20 20 c8 a0 20 38 0d 04  a6 35 20 20 20 20 20 20  |  .. 8...5      |
00000a10  20 20 20 20 20 20 20 20  20 20 20 ff 28 22 52 75  |           .("Ru|
00000a20  6e 20 3c 49 6e 76 61 73  69 6f 6e 24 44 69 72 3e  |n <Invasion$Dir>|
00000a30  2e 21 47 61 6d 65 52 75  6e 22 29 0d 04 b0 04 0d  |.!GameRun").....|
00000a40  04 ba 3b 20 20 20 20 20  20 20 20 20 c9 20 32 3a  |..;         . 2:|
00000a50  20 f2 77 61 69 74 28 22  54 48 45 20 53 50 52 49  | .wait("THE SPRI|
00000a60  54 45 20 45 44 49 54 4f  52 22 2c 22 49 53 22 2c  |TE EDITOR","IS",|
00000a70  22 4c 4f 41 44 49 4e 47  22 29 0d 04 c4 38 20 20  |"LOADING")...8  |
00000a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 d7  |               .|
00000a90  20 22 3c 49 6e 76 61 73  69 6f 6e 24 44 69 72 3e  | "<Invasion$Dir>|
00000aa0  2e 42 61 73 69 63 50 72  6f 67 73 2e 53 45 64 69  |.BasicProgs.SEdi|
00000ab0  74 22 0d 04 ce 04 0d 04  d8 39 20 20 20 20 20 20  |t".......9      |
00000ac0  20 20 20 c9 20 33 3a 20  f2 77 61 69 74 28 22 54  |   . 3: .wait("T|
00000ad0  48 45 20 57 41 56 45 20  45 44 49 54 4f 52 22 2c  |HE WAVE EDITOR",|
00000ae0  22 49 53 22 2c 22 4c 4f  41 44 49 4e 47 22 29 0d  |"IS","LOADING").|
00000af0  04 e2 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |..8             |
00000b00  20 20 20 20 d7 20 22 3c  49 6e 76 61 73 69 6f 6e  |    . "<Invasion|
00000b10  24 44 69 72 3e 2e 42 61  73 69 63 50 72 6f 67 73  |$Dir>.BasicProgs|
00000b20  2e 57 45 64 69 74 22 0d  04 ec 04 0d 04 f6 47 20  |.WEdit".......G |
00000b30  20 20 20 20 20 20 20 20  c9 20 34 3a 20 f2 77 61  |        . 4: .wa|
00000b40  69 74 28 22 54 48 45 20  42 41 43 4b 44 52 4f 50  |it("THE BACKDROP|
00000b50  20 53 43 52 45 45 4e 22  2c 22 43 4f 4e 56 45 52  | SCREEN","CONVER|
00000b60  54 45 52 20 49 53 22 2c  22 4c 4f 41 44 49 4e 47  |TER IS","LOADING|
00000b70  22 29 0d 05 00 3c 20 20  20 20 20 20 20 20 20 20  |")...<          |
00000b80  20 20 20 20 20 20 20 d7  20 22 3c 49 6e 76 61 73  |       . "<Invas|
00000b90  69 6f 6e 24 44 69 72 3e  2e 42 61 73 69 63 50 72  |ion$Dir>.BasicPr|
00000ba0  6f 67 73 2e 41 72 74 53  63 43 6f 6e 76 22 0d 05  |ogs.ArtScConv"..|
00000bb0  0a 04 0d 05 14 11 20 20  20 20 20 20 20 20 20 7f  |......         .|
00000bc0  3a 20 db 0d 05 1e 0b 20  20 20 20 20 20 cb 0d 05  |: .....      ...|
00000bd0  28 11 20 20 20 20 20 20  65 78 69 74 25 3d b9 0d  |(.      exit%=..|
00000be0  05 32 0e 20 20 20 20 20  20 c8 97 20 87 0d 05 3c  |.2.      .. ...<|
00000bf0  08 20 20 20 cd 0d 05 46  08 ed 20 49 25 0d 05 50  |.   ...F.. I%..P|
00000c00  05 e1 0d 05 5a 05 3a 0d  05 64 0e dd f2 66 69 6e  |....Z.:..d...fin|
00000c10  61 6c 69 73 65 0d 05 6e  11 ff 28 22 66 78 20 32  |alise..n..("fx 2|
00000c20  32 39 20 30 22 29 0d 05  78 10 ff 28 22 66 78 20  |29 0")..x..("fx |
00000c30  32 31 20 30 22 29 0d 05  82 0e ff 28 22 66 78 20  |21 0").....("fx |
00000c40  31 32 22 29 0d 05 8c 20  ff 28 22 52 75 6e 20 3c  |12")... .("Run <|
00000c50  49 6e 76 61 73 69 6f 6e  24 44 69 72 3e 2e 21 45  |Invasion$Dir>.!E|
00000c60  6e 64 22 29 0d 05 96 26  ff 28 22 43 48 41 4e 4e  |nd")...&.("CHANN|
00000c70  45 4c 56 4f 49 43 45 20  31 20 57 61 76 65 53 79  |ELVOICE 1 WaveSy|
00000c80  6e 74 68 2d 42 65 65 70  22 29 0d 05 a0 05 e1 0d  |nth-Beep")......|
00000c90  05 aa 05 3a 0d 05 b4 2e  dd a4 69 73 5f 6d 6f 75  |...:......is_mou|
00000ca0  73 65 5f 69 6e 5f 62 6f  78 28 4d 58 25 2c 4d 59  |se_in_box(MX%,MY|
00000cb0  25 2c 58 31 25 2c 59 31  25 2c 58 44 25 2c 59 44  |%,X1%,Y1%,XD%,YD|
00000cc0  25 29 0d 05 be 32 3d 4d  58 25 3e 58 31 25 20 80  |%)...2=MX%>X1% .|
00000cd0  20 4d 58 25 3c 58 31 25  2b 58 44 25 20 80 20 4d  | MX%<X1%+XD% . M|
00000ce0  59 25 3e 59 31 25 20 80  20 4d 59 25 3c 59 31 25  |Y%>Y1% . MY%<Y1%|
00000cf0  2b 59 44 25 0d 05 c8 05  3a 0d 05 d2 0b dd f2 6d  |+YD%....:......m|
00000d00  6f 75 73 65 0d 05 dc 12  c8 97 20 4d 58 25 2c 4d  |ouse...... MX%,M|
00000d10  59 25 2c 4d 42 25 0d 05  e6 0f f2 64 65 6c 61 79  |Y%,MB%.....delay|
00000d20  28 2e 31 35 29 0d 05 f0  05 e1 0d 05 fa 05 3a 0d  |(.15).........:.|
00000d30  06 04 14 dd f2 64 65 6c  61 79 28 73 65 63 6f 6e  |.....delay(secon|
00000d40  64 73 29 0d 06 0e 07 d1  3d 30 0d 06 18 05 f5 0d  |ds).....=0......|
00000d50  06 22 13 fd 20 91 3e 73  65 63 6f 6e 64 73 2a 31  |.".. .>seconds*1|
00000d60  30 30 0d 06 2c 05 e1 0d  06 36 05 3a 0d 06 40 1b  |00..,....6.:..@.|
00000d70  dd f2 70 72 69 6e 74 28  74 65 78 74 24 2c 58 25  |..print(text$,X%|
00000d80  2c 59 25 2c 46 25 29 0d  06 4a 0c e7 20 46 25 3d  |,Y%,F%)..J.. F%=|
00000d90  b9 20 8c 0d 06 54 1e 20  20 20 58 25 3d 28 31 32  |. ...T.   X%=(12|
00000da0  38 30 2d a9 28 74 65 78  74 24 29 2a 33 32 29 2f  |80-.(text$)*32)/|
00000db0  32 0d 06 5e 05 cd 0d 06  68 07 ef 20 35 0d 06 72  |2..^....h.. 5..r|
00000dc0  0e e6 20 30 2c 62 6c 61  63 6b 25 0d 06 7c 1c ef  |.. 0,black%..|..|
00000dd0  20 32 33 2c 31 37 2c 37  2c 36 2c 58 50 49 58 53  | 23,17,7,6,XPIXS|
00000de0  25 3b 38 3b 30 2c 30 0d  06 86 0d ec 20 58 25 2d  |%;8;0,0..... X%-|
00000df0  34 2c 59 25 0d 06 90 0c  f1 20 74 65 78 74 24 3b  |4,Y%..... text$;|
00000e00  0d 06 9a 0d ec 20 58 25  2b 34 2c 59 25 0d 06 a4  |..... X%+4,Y%...|
00000e10  0c f1 20 74 65 78 74 24  3b 0d 06 ae 0d ec 20 58  |.. text$;..... X|
00000e20  25 2c 59 25 2b 34 0d 06  b8 0c f1 20 74 65 78 74  |%,Y%+4..... text|
00000e30  24 3b 0d 06 c2 0d ec 20  58 25 2c 59 25 2d 34 0d  |$;..... X%,Y%-4.|
00000e40  06 cc 0c f1 20 74 65 78  74 24 3b 0d 06 d6 0c e6  |.... text$;.....|
00000e50  20 30 2c 72 65 64 25 0d  06 e0 0b ec 20 58 25 2c  | 0,red%..... X%,|
00000e60  59 25 0d 06 ea 0c f1 20  74 65 78 74 24 3b 0d 06  |Y%..... text$;..|
00000e70  f4 17 ef 20 32 33 2c 31  37 2c 37 2c 36 2c 38 3b  |... 23,17,7,6,8;|
00000e80  38 3b 30 2c 30 0d 06 fe  07 ef 20 34 0d 07 08 05  |8;0,0..... 4....|
00000e90  87 0d 07 12 05 e1 0d 07  1c 05 3a 0d 07 26 14 dd  |..........:..&..|
00000ea0  f2 77 61 69 74 28 41 24  2c 42 24 2c 43 24 29 0d  |.wait(A$,B$,C$).|
00000eb0  07 30 0e e6 20 30 2c 62  6c 61 63 6b 25 0d 07 3a  |.0.. 0,black%..:|
00000ec0  15 c8 93 20 32 30 2c 32  30 2c 31 32 34 30 2c 31  |... 20,20,1240,1|
00000ed0  35 32 0d 07 44 0e e6 20  30 2c 77 68 69 74 65 25  |52..D.. 0,white%|
00000ee0  0d 07 4e 15 c8 93 20 32  34 2c 32 34 2c 31 32 33  |..N... 24,24,123|
00000ef0  32 2c 31 34 34 0d 07 58  12 e6 20 30 2c 64 61 72  |2,144..X.. 0,dar|
00000f00  6b 5f 62 6c 75 65 25 0d  07 62 18 c8 93 20 c8 90  |k_blue%..b... ..|
00000f10  20 32 38 2c 32 38 2c 31  32 32 34 2c 31 33 36 0d  | 28,28,1224,136.|
00000f20  07 6c 27 f2 70 72 69 6e  74 28 22 50 4c 45 41 53  |.l'.print("PLEAS|
00000f30  45 20 57 41 49 54 2e 2e  2e 22 2b 41 24 2c 30 2c  |E WAIT..."+A$,0,|
00000f40  31 35 32 2c b9 29 0d 07  76 16 f2 70 72 69 6e 74  |152,.)..v..print|
00000f50  28 42 24 2c 30 2c 31 30  38 2c b9 29 0d 07 80 15  |(B$,0,108,.)....|
00000f60  f2 70 72 69 6e 74 28 43  24 2c 30 2c 36 34 2c b9  |.print(C$,0,64,.|
00000f70  29 0d 07 8a 05 e1 0d ff                           |).......|
00000f78