� BUGZAP
$� Electron Introductory Cassette
� AuthorS J.M. and B.B.
( 
2�
<��M%=1234��DF@��M%=5678��DP@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DP@�M%=1234
F��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
P
� � �DrA
Z�4
d
*FX4,1
n	�init
x#�DBL("Bugzap",12): dummy=�(300)
�	�info
��
�*FX15,0
�score%=0
�laserX=0
�� �laserX,31);�laser_ch;
��new_bug
��
� �lower_bug
�
 �fire
� �
�*  � �(right) � laserX<38 � �move_right
�)  � �(left ) � laserX>0  � �move_left

  �bomb_update

$  � (�-last_move)>D% � �move_bug

 � �(fire) � �dead

"� �dead

,
�score

6
D%=120

@� �again � �tL@

J� �repeat � �DZ@

T*FX4

^�'"Play tape"'

h� ""

r� �=17 � �DJA

|�: �" at line ";�

��

� 

�� �init

��cursor_off

�4laser_ch=224: �23,224,24,24,24,24,24,255,255,255

�5bug_ch  =225: �23,225,24,60,126,219,126,36,66,129

�.bomb_ch =226: �23,226,20,28,8,8,28,28,28,8

�6� 1,1,-10,-10,-45,100,100,100,50,0,-100,-127,126,0

�3� 2,1,-26,-36,-45,255,100,200,127,0,-1,-1,126,0

�
� BLOCK 8

�osword=&FFF1

�left = -98: � Z

�right= -67: � X
fire = -99: � SPACE BAR
high_score%=0

D%=120
&�
0 
:#� �cursor_off �23,1,0;0;0;0;: �
D 
N� �info
X�:�DBL("Bugzap",1)
b-�'''''"Welcome to the game of Bugzap!"'''
l,�"The object of the game is to use your"
v*�"laser gun to zap the descending bug"
�$�"before it lands or bombs you."
�+�'"Your score increases every time you"
�*�"zap the bug, with more points being"
�-�"given the lower the bug is; it will be"
�%�"displayed when you are killed."
��'"The controls are:"'
��"Z     =  left"
��"X     =  right"
��"SPACE =  fire"
�.�''"Pressing the ESCAPE key will take you"
�!�"to the end of the program."
�+�5,31)"Press SPACE to start the game";
��: � �=" "
�
 
� �move_right
 .� Move laser right one character position.
*� �laserX,31);" ";
4laserX=laserX+1
>� �laserX,31);�laser_ch;
H�
R 
\� �move_left
f-� Move laser left one character position.
p� �laserX,31);" ";
zlaserX=laserX-1
�� �laserX,31);�laser_ch;
��
� 
�� �move_bug
�&� Move bug to new random position.
�� 1,-15,4*bugY,4
�� �bugX,bugY);" ";
�bugX=�(39)-1
�� �bugX,bugY);�bug_ch;
�last_move=�
��
� 
�� �lower_bug
� �bugX,bugY);" ";
bugY=bugY+1
� �bugX,bugY);�bug_ch;
$�
. 
8� �bomb_update
B� Move or create a bomb.
L1� bomb � � �(D%)<3 �new_bomb: � �DtD � � �D~D
V� �bombX,bombY);" ";
`� bombY=31 � bomb=�: � �D~D
jbombY=bombY+1
t� �bombX,bombY);�bomb_ch;
~�
� 
�� �new_bomb
�
bomb=�
�bombX=bugX: bombY=bugY+1
��
� 
�� �fire
�� Fire laser.
�� 0,-15,4,1
�laser_base=32*laserX+16
�� laser_base,40
�� laser_base,32*(31-bugY)
�7,laser_base,40

*� bomb � � laserX=bombX � �bomb_zapped
 � laserX=bugX  � �bug_zapped
�
( 
2� �bomb_zapped
<
bomb=�
F� �bombX,bombY);" "
P�
Z 
d� �bug_zapped
n� �bugX,bugY);" "
x!� bomb � � �bombX,bombY);" ";
�� 2,1,255,20
�score%=score%+bugY*100/D%
�� D%>45 � D%=D%-5
��new_bug
��
� 
�� �new_bug
�bugX=�(38): bugY=1
�
bomb=�
�last_move=�
��
� 
�� �dead
result=(bugY=31)
8� bomb � result=result � ((bombX=laserX)�(bombY=31))
=result
" 
,� �score
6	@%=10
@�0,10);"ZAPPED again!"
J!�'"Your score is ";score%*10;
Tbest=(score%>high_score%)
^� best � high_score%=score%
hE� best � �" = NEW HIGH SCORE" � �''"High Score = ";high_score%*10
r� 3,2,100,80
|�
� 
�� �again
�0�0,20);"Do you want to play again (Y/N)? ";
�� G$=�: � �"YyNn",G$)
�=(�"Yy",G$)<>0)
� 
�
� �repeat
��
�$�8,12)"Do you want to go on to"
�&�8,13)"the next program (Y/N)? ";
�� G$=�: � �"YyNn",G$)
�=(�"Nn",G$)<>0)
� 
� �DBL(A$,y%)
�(38-� A$)/2,y%);
� ch%=1 � � A$
&K%=�char(� �A$,ch%,1))
0� 254,10,8,255,11
:�
D�
N 
X� �char(C%)
b8?BLOCK=C%: A%=10: X%=BLOCK: Y%=BLOCK � 256: � osword
l� j%=0 � 1
v� 23,254+j%
�� i%=2 � 9
�� BLOCK?(j%*4+i%�2)
��,
�=0
�

00000000  0d 00 0a 0c f4 20 42 55  47 5a 41 50 0d 00 14 24  |..... BUGZAP...$|
00000010  f4 20 45 6c 65 63 74 72  6f 6e 20 49 6e 74 72 6f  |. Electron Intro|
00000020  64 75 63 74 6f 72 79 20  43 61 73 73 65 74 74 65  |ductory Cassette|
00000030  0d 00 1e 1b f4 20 41 75  74 68 6f 72 53 20 4a 2e  |..... AuthorS J.|
00000040  4d 2e 20 61 6e 64 20 42  2e 42 2e 0d 00 28 05 20  |M. and B.B...(. |
00000050  0d 00 32 07 ee 85 f9 0d  00 3c 99 e7 4d 25 3d 31  |..2......<..M%=1|
00000060  32 33 34 8c 8d 44 46 40  8b e7 4d 25 3d 35 36 37  |234..DF@..M%=567|
00000070  38 8c 8d 44 50 40 8b eb  35 3a ef 31 39 2c 33 2c  |8..DP@..5:.19,3,|
00000080  34 3b 30 3b 3a fb 32 3a  f1 8a 30 2c 35 29 22 44  |4;0;:.2:..0,5)"D|
00000090  6f 65 73 20 79 6f 75 72  20 63 61 73 73 65 74 74  |oes your cassett|
000000a0  65 22 27 27 22 72 65 63  6f 72 64 65 72 20 68 61  |e"''"recorder ha|
000000b0  76 65 20 6d 6f 74 6f 72  22 27 27 22 63 6f 6e 74  |ve motor"''"cont|
000000c0  72 6f 6c 20 28 59 2f 4e  29 3f 22 3b 3a e7 28 a5  |rol (Y/N)?";:.(.|
000000d0  80 26 44 46 29 3d 97 22  59 22 8c 4d 25 3d 35 36  |.&DF)=."Y".M%=56|
000000e0  37 38 3a e5 8d 44 50 40  8b 4d 25 3d 31 32 33 34  |78:..DP@.M%=1234|
000000f0  0d 00 46 82 d4 31 2c 2d  31 35 2c 31 32 31 2c 36  |..F..1,-15,121,6|
00000100  30 3a eb 35 3a ef 31 39  2c 33 2c 34 3b 30 3b 3a  |0:.5:.19,3,4;0;:|
00000110  fb 31 3a f1 8a 38 2c 39  29 22 53 54 4f 50 22 3b  |.1:..8,9)"STOP";|
00000120  3a fb 33 3a f1 8a 36 2c  31 33 29 22 74 68 65 20  |:.3:..6,13)"the |
00000130  74 61 70 65 22 3a fb 32  3a f1 8a 34 2c 32 35 29  |tape":.2:..4,25)|
00000140  22 50 72 65 73 73 20 53  50 41 43 45 22 8a 34 2c  |"Press SPACE".4,|
00000150  32 37 29 22 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |27)"to continue"|
00000160  3a f5 fd a5 3d 33 32 3a  d4 26 31 31 2c 30 2c 30  |:...=32:.&11,0,0|
00000170  2c 30 0d 00 50 0d ee 20  85 20 e5 8d 44 72 41 0d  |,0..P.. . ..DrA.|
00000180  00 5a 06 eb 34 0d 00 64  0a 2a 46 58 34 2c 31 0d  |.Z..4..d.*FX4,1.|
00000190  00 6e 09 f2 69 6e 69 74  0d 00 78 23 f2 44 42 4c  |.n..init..x#.DBL|
000001a0  28 22 42 75 67 7a 61 70  22 2c 31 32 29 3a 20 64  |("Bugzap",12): d|
000001b0  75 6d 6d 79 3d a6 28 33  30 30 29 0d 00 82 09 f2  |ummy=.(300).....|
000001c0  69 6e 66 6f 0d 00 8c 05  db 0d 00 96 0b 2a 46 58  |info.........*FX|
000001d0  31 35 2c 30 0d 00 a0 0c  73 63 6f 72 65 25 3d 30  |15,0....score%=0|
000001e0  0d 00 aa 0c 6c 61 73 65  72 58 3d 30 0d 00 b4 1c  |....laserX=0....|
000001f0  f1 20 8a 6c 61 73 65 72  58 2c 33 31 29 3b bd 6c  |. .laserX,31);.l|
00000200  61 73 65 72 5f 63 68 3b  0d 00 be 0c f2 6e 65 77  |aser_ch;.....new|
00000210  5f 62 75 67 0d 00 c8 05  f5 0d 00 d2 0f 20 f2 6c  |_bug......... .l|
00000220  6f 77 65 72 5f 62 75 67  0d 00 dc 0a 20 f2 66 69  |ower_bug.... .fi|
00000230  72 65 0d 00 e6 06 20 f5  0d 00 f0 2a 20 20 e7 20  |re.... ....*  . |
00000240  a6 28 72 69 67 68 74 29  20 80 20 6c 61 73 65 72  |.(right) . laser|
00000250  58 3c 33 38 20 8c 20 f2  6d 6f 76 65 5f 72 69 67  |X<38 . .move_rig|
00000260  68 74 0d 00 fa 29 20 20  e7 20 a6 28 6c 65 66 74  |ht...)  . .(left|
00000270  20 29 20 80 20 6c 61 73  65 72 58 3e 30 20 20 8c  | ) . laserX>0  .|
00000280  20 f2 6d 6f 76 65 5f 6c  65 66 74 0d 01 04 12 20  | .move_left.... |
00000290  20 f2 62 6f 6d 62 5f 75  70 64 61 74 65 0d 01 0e  | .bomb_update...|
000002a0  24 20 20 e7 20 28 91 2d  6c 61 73 74 5f 6d 6f 76  |$  . (.-last_mov|
000002b0  65 29 3e 44 25 20 8c 20  f2 6d 6f 76 65 5f 62 75  |e)>D% . .move_bu|
000002c0  67 0d 01 18 16 20 fd 20  a6 28 66 69 72 65 29 20  |g.... . .(fire) |
000002d0  84 20 a4 64 65 61 64 0d  01 22 0b fd 20 a4 64 65  |. .dead..".. .de|
000002e0  61 64 0d 01 2c 0a f2 73  63 6f 72 65 0d 01 36 0a  |ad..,..score..6.|
000002f0  44 25 3d 31 32 30 0d 01  40 13 e7 20 a4 61 67 61  |D%=120..@.. .aga|
00000300  69 6e 20 8c 20 8d 74 4c  40 0d 01 4a 14 e7 20 a4  |in . .tL@..J.. .|
00000310  72 65 70 65 61 74 20 8c  20 8d 44 5a 40 0d 01 54  |repeat . .DZ@..T|
00000320  08 2a 46 58 34 0d 01 5e  12 f1 27 22 50 6c 61 79  |.*FX4..^..'"Play|
00000330  20 74 61 70 65 22 27 0d  01 68 08 d7 20 22 22 0d  | tape"'..h.. "".|
00000340  01 72 11 e7 20 9f 3d 31  37 20 8c 20 8d 44 4a 41  |.r.. .=17 . .DJA|
00000350  0d 01 7c 15 f6 3a 20 f1  22 20 61 74 20 6c 69 6e  |..|..: ." at lin|
00000360  65 20 22 3b 9e 0d 01 86  05 e0 0d 01 90 05 20 0d  |e ";.......... .|
00000370  01 9a 0b dd 20 f2 69 6e  69 74 0d 01 a4 0f f2 63  |.... .init.....c|
00000380  75 72 73 6f 72 5f 6f 66  66 0d 01 ae 34 6c 61 73  |ursor_off...4las|
00000390  65 72 5f 63 68 3d 32 32  34 3a 20 ef 32 33 2c 32  |er_ch=224: .23,2|
000003a0  32 34 2c 32 34 2c 32 34  2c 32 34 2c 32 34 2c 32  |24,24,24,24,24,2|
000003b0  34 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 01 b8  |4,255,255,255...|
000003c0  35 62 75 67 5f 63 68 20  20 3d 32 32 35 3a 20 ef  |5bug_ch  =225: .|
000003d0  32 33 2c 32 32 35 2c 32  34 2c 36 30 2c 31 32 36  |23,225,24,60,126|
000003e0  2c 32 31 39 2c 31 32 36  2c 33 36 2c 36 36 2c 31  |,219,126,36,66,1|
000003f0  32 39 0d 01 c2 2e 62 6f  6d 62 5f 63 68 20 3d 32  |29....bomb_ch =2|
00000400  32 36 3a 20 ef 32 33 2c  32 32 36 2c 32 30 2c 32  |26: .23,226,20,2|
00000410  38 2c 38 2c 38 2c 32 38  2c 32 38 2c 32 38 2c 38  |8,8,8,28,28,28,8|
00000420  0d 01 cc 36 e2 20 31 2c  31 2c 2d 31 30 2c 2d 31  |...6. 1,1,-10,-1|
00000430  30 2c 2d 34 35 2c 31 30  30 2c 31 30 30 2c 31 30  |0,-45,100,100,10|
00000440  30 2c 35 30 2c 30 2c 2d  31 30 30 2c 2d 31 32 37  |0,50,0,-100,-127|
00000450  2c 31 32 36 2c 30 0d 01  d6 33 e2 20 32 2c 31 2c  |,126,0...3. 2,1,|
00000460  2d 32 36 2c 2d 33 36 2c  2d 34 35 2c 32 35 35 2c  |-26,-36,-45,255,|
00000470  31 30 30 2c 32 30 30 2c  31 32 37 2c 30 2c 2d 31  |100,200,127,0,-1|
00000480  2c 2d 31 2c 31 32 36 2c  30 0d 01 e0 0d de 20 42  |,-1,126,0..... B|
00000490  4c 4f 43 4b 20 38 0d 01  ea 10 6f 73 77 6f 72 64  |LOCK 8....osword|
000004a0  3d 26 46 46 46 31 0d 01  f4 13 6c 65 66 74 20 3d  |=&FFF1....left =|
000004b0  20 2d 39 38 3a 20 f4 20  5a 0d 01 fe 13 72 69 67  | -98: . Z....rig|
000004c0  68 74 3d 20 2d 36 37 3a  20 f4 20 58 0d 02 08 1b  |ht= -67: . X....|
000004d0  66 69 72 65 20 3d 20 2d  39 39 3a 20 f4 20 53 50  |fire = -99: . SP|
000004e0  41 43 45 20 42 41 52 0d  02 12 11 68 69 67 68 5f  |ACE BAR....high_|
000004f0  73 63 6f 72 65 25 3d 30  0d 02 1c 0a 44 25 3d 31  |score%=0....D%=1|
00000500  32 30 0d 02 26 05 e1 0d  02 30 05 20 0d 02 3a 23  |20..&....0. ..:#|
00000510  dd 20 f2 63 75 72 73 6f  72 5f 6f 66 66 20 ef 32  |. .cursor_off .2|
00000520  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 3a 20 e1 0d  |3,1,0;0;0;0;: ..|
00000530  02 44 05 20 0d 02 4e 0b  dd 20 f2 69 6e 66 6f 0d  |.D. ..N.. .info.|
00000540  02 58 16 db 3a f2 44 42  4c 28 22 42 75 67 7a 61  |.X..:.DBL("Bugza|
00000550  70 22 2c 31 29 0d 02 62  2d f1 27 27 27 27 27 22  |p",1)..b-.'''''"|
00000560  57 65 6c 63 6f 6d 65 20  74 6f 20 74 68 65 20 67  |Welcome to the g|
00000570  61 6d 65 20 6f 66 20 42  75 67 7a 61 70 21 22 27  |ame of Bugzap!"'|
00000580  27 27 0d 02 6c 2c f1 22  54 68 65 20 6f 62 6a 65  |''..l,."The obje|
00000590  63 74 20 6f 66 20 74 68  65 20 67 61 6d 65 20 69  |ct of the game i|
000005a0  73 20 74 6f 20 75 73 65  20 79 6f 75 72 22 0d 02  |s to use your"..|
000005b0  76 2a f1 22 6c 61 73 65  72 20 67 75 6e 20 74 6f  |v*."laser gun to|
000005c0  20 7a 61 70 20 74 68 65  20 64 65 73 63 65 6e 64  | zap the descend|
000005d0  69 6e 67 20 62 75 67 22  0d 02 80 24 f1 22 62 65  |ing bug"...$."be|
000005e0  66 6f 72 65 20 69 74 20  6c 61 6e 64 73 20 6f 72  |fore it lands or|
000005f0  20 62 6f 6d 62 73 20 79  6f 75 2e 22 0d 02 8a 2b  | bombs you."...+|
00000600  f1 27 22 59 6f 75 72 20  73 63 6f 72 65 20 69 6e  |.'"Your score in|
00000610  63 72 65 61 73 65 73 20  65 76 65 72 79 20 74 69  |creases every ti|
00000620  6d 65 20 79 6f 75 22 0d  02 94 2a f1 22 7a 61 70  |me you"...*."zap|
00000630  20 74 68 65 20 62 75 67  2c 20 77 69 74 68 20 6d  | the bug, with m|
00000640  6f 72 65 20 70 6f 69 6e  74 73 20 62 65 69 6e 67  |ore points being|
00000650  22 0d 02 9e 2d f1 22 67  69 76 65 6e 20 74 68 65  |"...-."given the|
00000660  20 6c 6f 77 65 72 20 74  68 65 20 62 75 67 20 69  | lower the bug i|
00000670  73 3b 20 69 74 20 77 69  6c 6c 20 62 65 22 0d 02  |s; it will be"..|
00000680  a8 25 f1 22 64 69 73 70  6c 61 79 65 64 20 77 68  |.%."displayed wh|
00000690  65 6e 20 79 6f 75 20 61  72 65 20 6b 69 6c 6c 65  |en you are kille|
000006a0  64 2e 22 0d 02 b2 1a f1  27 22 54 68 65 20 63 6f  |d.".....'"The co|
000006b0  6e 74 72 6f 6c 73 20 61  72 65 3a 22 27 0d 02 bc  |ntrols are:"'...|
000006c0  14 f1 22 5a 20 20 20 20  20 3d 20 20 6c 65 66 74  |.."Z     =  left|
000006d0  22 0d 02 c6 15 f1 22 58  20 20 20 20 20 3d 20 20  |"....."X     =  |
000006e0  72 69 67 68 74 22 0d 02  d0 14 f1 22 53 50 41 43  |right"....."SPAC|
000006f0  45 20 3d 20 20 66 69 72  65 22 0d 02 da 2e f1 27  |E =  fire".....'|
00000700  27 22 50 72 65 73 73 69  6e 67 20 74 68 65 20 45  |'"Pressing the E|
00000710  53 43 41 50 45 20 6b 65  79 20 77 69 6c 6c 20 74  |SCAPE key will t|
00000720  61 6b 65 20 79 6f 75 22  0d 02 e4 21 f1 22 74 6f  |ake you"...!."to|
00000730  20 74 68 65 20 65 6e 64  20 6f 66 20 74 68 65 20  | the end of the |
00000740  70 72 6f 67 72 61 6d 2e  22 0d 02 ee 2b f1 8a 35  |program."...+..5|
00000750  2c 33 31 29 22 50 72 65  73 73 20 53 50 41 43 45  |,31)"Press SPACE|
00000760  20 74 6f 20 73 74 61 72  74 20 74 68 65 20 67 61  | to start the ga|
00000770  6d 65 22 3b 0d 02 f8 0e  f5 3a 20 fd 20 be 3d 22  |me";.....: . .="|
00000780  20 22 0d 03 02 05 e1 0d  03 0c 05 20 0d 03 16 11  | "......... ....|
00000790  dd 20 f2 6d 6f 76 65 5f  72 69 67 68 74 0d 03 20  |. .move_right.. |
000007a0  2e f4 20 4d 6f 76 65 20  6c 61 73 65 72 20 72 69  |.. Move laser ri|
000007b0  67 68 74 20 6f 6e 65 20  63 68 61 72 61 63 74 65  |ght one characte|
000007c0  72 20 70 6f 73 69 74 69  6f 6e 2e 0d 03 2a 16 f1  |r position...*..|
000007d0  20 8a 6c 61 73 65 72 58  2c 33 31 29 3b 22 20 22  | .laserX,31);" "|
000007e0  3b 0d 03 34 13 6c 61 73  65 72 58 3d 6c 61 73 65  |;..4.laserX=lase|
000007f0  72 58 2b 31 0d 03 3e 1c  f1 20 8a 6c 61 73 65 72  |rX+1..>.. .laser|
00000800  58 2c 33 31 29 3b bd 6c  61 73 65 72 5f 63 68 3b  |X,31);.laser_ch;|
00000810  0d 03 48 05 e1 0d 03 52  05 20 0d 03 5c 10 dd 20  |..H....R. ..\.. |
00000820  f2 6d 6f 76 65 5f 6c 65  66 74 0d 03 66 2d f4 20  |.move_left..f-. |
00000830  4d 6f 76 65 20 6c 61 73  65 72 20 6c 65 66 74 20  |Move laser left |
00000840  6f 6e 65 20 63 68 61 72  61 63 74 65 72 20 70 6f  |one character po|
00000850  73 69 74 69 6f 6e 2e 0d  03 70 16 f1 20 8a 6c 61  |sition...p.. .la|
00000860  73 65 72 58 2c 33 31 29  3b 22 20 22 3b 0d 03 7a  |serX,31);" ";..z|
00000870  13 6c 61 73 65 72 58 3d  6c 61 73 65 72 58 2d 31  |.laserX=laserX-1|
00000880  0d 03 84 1c f1 20 8a 6c  61 73 65 72 58 2c 33 31  |..... .laserX,31|
00000890  29 3b bd 6c 61 73 65 72  5f 63 68 3b 0d 03 8e 05  |);.laser_ch;....|
000008a0  e1 0d 03 98 05 20 0d 03  a2 0f dd 20 f2 6d 6f 76  |..... ..... .mov|
000008b0  65 5f 62 75 67 0d 03 ac  26 f4 20 4d 6f 76 65 20  |e_bug...&. Move |
000008c0  62 75 67 20 74 6f 20 6e  65 77 20 72 61 6e 64 6f  |bug to new rando|
000008d0  6d 20 70 6f 73 69 74 69  6f 6e 2e 0d 03 b6 14 d4  |m position......|
000008e0  20 31 2c 2d 31 35 2c 34  2a 62 75 67 59 2c 34 0d  | 1,-15,4*bugY,4.|
000008f0  03 c0 16 f1 20 8a 62 75  67 58 2c 62 75 67 59 29  |.... .bugX,bugY)|
00000900  3b 22 20 22 3b 0d 03 ca  10 62 75 67 58 3d b3 28  |;" ";....bugX=.(|
00000910  33 39 29 2d 31 0d 03 d4  1a f1 20 8a 62 75 67 58  |39)-1..... .bugX|
00000920  2c 62 75 67 59 29 3b bd  62 75 67 5f 63 68 3b 0d  |,bugY);.bug_ch;.|
00000930  03 de 0f 6c 61 73 74 5f  6d 6f 76 65 3d 91 0d 03  |...last_move=...|
00000940  e8 05 e1 0d 03 f2 05 20  0d 03 fc 10 dd 20 f2 6c  |....... ..... .l|
00000950  6f 77 65 72 5f 62 75 67  0d 04 06 16 f1 20 8a 62  |ower_bug..... .b|
00000960  75 67 58 2c 62 75 67 59  29 3b 22 20 22 3b 0d 04  |ugX,bugY);" ";..|
00000970  10 0f 62 75 67 59 3d 62  75 67 59 2b 31 0d 04 1a  |..bugY=bugY+1...|
00000980  1a f1 20 8a 62 75 67 58  2c 62 75 67 59 29 3b bd  |.. .bugX,bugY);.|
00000990  62 75 67 5f 63 68 3b 0d  04 24 05 e1 0d 04 2e 05  |bug_ch;..$......|
000009a0  20 0d 04 38 12 dd 20 f2  62 6f 6d 62 5f 75 70 64  | ..8.. .bomb_upd|
000009b0  61 74 65 0d 04 42 1c f4  20 4d 6f 76 65 20 6f 72  |ate..B.. Move or|
000009c0  20 63 72 65 61 74 65 20  61 20 62 6f 6d 62 2e 0d  | create a bomb..|
000009d0  04 4c 31 e7 20 62 6f 6d  62 20 8b 20 e7 20 b3 28  |.L1. bomb . . .(|
000009e0  44 25 29 3c 33 20 f2 6e  65 77 5f 62 6f 6d 62 3a  |D%)<3 .new_bomb:|
000009f0  20 e5 20 8d 44 74 44 20  8b 20 e5 20 8d 44 7e 44  | . .DtD . . .D~D|
00000a00  0d 04 56 18 f1 20 8a 62  6f 6d 62 58 2c 62 6f 6d  |..V.. .bombX,bom|
00000a10  62 59 29 3b 22 20 22 3b  0d 04 60 1f e7 20 62 6f  |bY);" ";..`.. bo|
00000a20  6d 62 59 3d 33 31 20 8c  20 62 6f 6d 62 3d a3 3a  |mbY=31 . bomb=.:|
00000a30  20 e5 20 8d 44 7e 44 0d  04 6a 11 62 6f 6d 62 59  | . .D~D..j.bombY|
00000a40  3d 62 6f 6d 62 59 2b 31  0d 04 74 1d f1 20 8a 62  |=bombY+1..t.. .b|
00000a50  6f 6d 62 58 2c 62 6f 6d  62 59 29 3b bd 62 6f 6d  |ombX,bombY);.bom|
00000a60  62 5f 63 68 3b 0d 04 7e  05 e1 0d 04 88 05 20 0d  |b_ch;..~...... .|
00000a70  04 92 0f dd 20 f2 6e 65  77 5f 62 6f 6d 62 0d 04  |.... .new_bomb..|
00000a80  9c 0a 62 6f 6d 62 3d b9  0d 04 a6 1c 62 6f 6d 62  |..bomb=.....bomb|
00000a90  58 3d 62 75 67 58 3a 20  62 6f 6d 62 59 3d 62 75  |X=bugX: bombY=bu|
00000aa0  67 59 2b 31 0d 04 b0 05  e1 0d 04 ba 05 20 0d 04  |gY+1......... ..|
00000ab0  c4 0b dd 20 f2 66 69 72  65 0d 04 ce 11 f4 20 46  |... .fire..... F|
00000ac0  69 72 65 20 6c 61 73 65  72 2e 0d 04 d8 0f d4 20  |ire laser...... |
00000ad0  30 2c 2d 31 35 2c 34 2c  31 0d 04 e2 1b 6c 61 73  |0,-15,4,1....las|
00000ae0  65 72 5f 62 61 73 65 3d  33 32 2a 6c 61 73 65 72  |er_base=32*laser|
00000af0  58 2b 31 36 0d 04 ec 13  ec 20 6c 61 73 65 72 5f  |X+16..... laser_|
00000b00  62 61 73 65 2c 34 30 0d  04 f6 1d df 20 6c 61 73  |base,40..... las|
00000b10  65 72 5f 62 61 73 65 2c  33 32 2a 28 33 31 2d 62  |er_base,32*(31-b|
00000b20  75 67 59 29 0d 05 00 14  f0 37 2c 6c 61 73 65 72  |ugY).....7,laser|
00000b30  5f 62 61 73 65 2c 34 30  0d 05 0a 2a e7 20 62 6f  |_base,40...*. bo|
00000b40  6d 62 20 8c 20 e7 20 6c  61 73 65 72 58 3d 62 6f  |mb . . laserX=bo|
00000b50  6d 62 58 20 8c 20 f2 62  6f 6d 62 5f 7a 61 70 70  |mbX . .bomb_zapp|
00000b60  65 64 0d 05 14 20 e7 20  6c 61 73 65 72 58 3d 62  |ed... . laserX=b|
00000b70  75 67 58 20 20 8c 20 f2  62 75 67 5f 7a 61 70 70  |ugX  . .bug_zapp|
00000b80  65 64 0d 05 1e 05 e1 0d  05 28 05 20 0d 05 32 12  |ed.......(. ..2.|
00000b90  dd 20 f2 62 6f 6d 62 5f  7a 61 70 70 65 64 0d 05  |. .bomb_zapped..|
00000ba0  3c 0a 62 6f 6d 62 3d a3  0d 05 46 17 f1 20 8a 62  |<.bomb=...F.. .b|
00000bb0  6f 6d 62 58 2c 62 6f 6d  62 59 29 3b 22 20 22 0d  |ombX,bombY);" ".|
00000bc0  05 50 05 e1 0d 05 5a 05  20 0d 05 64 11 dd 20 f2  |.P....Z. ..d.. .|
00000bd0  62 75 67 5f 7a 61 70 70  65 64 0d 05 6e 15 f1 20  |bug_zapped..n.. |
00000be0  8a 62 75 67 58 2c 62 75  67 59 29 3b 22 20 22 0d  |.bugX,bugY);" ".|
00000bf0  05 78 21 e7 20 62 6f 6d  62 20 8c 20 f1 20 8a 62  |.x!. bomb . . .b|
00000c00  6f 6d 62 58 2c 62 6f 6d  62 59 29 3b 22 20 22 3b  |ombX,bombY);" ";|
00000c10  0d 05 82 10 d4 20 32 2c  31 2c 32 35 35 2c 32 30  |..... 2,1,255,20|
00000c20  0d 05 8c 1d 73 63 6f 72  65 25 3d 73 63 6f 72 65  |....score%=score|
00000c30  25 2b 62 75 67 59 2a 31  30 30 2f 44 25 0d 05 96  |%+bugY*100/D%...|
00000c40  15 e7 20 44 25 3e 34 35  20 8c 20 44 25 3d 44 25  |.. D%>45 . D%=D%|
00000c50  2d 35 0d 05 a0 0c f2 6e  65 77 5f 62 75 67 0d 05  |-5.....new_bug..|
00000c60  aa 05 e1 0d 05 b4 05 20  0d 05 be 0e dd 20 f2 6e  |....... ..... .n|
00000c70  65 77 5f 62 75 67 0d 05  c8 16 62 75 67 58 3d b3  |ew_bug....bugX=.|
00000c80  28 33 38 29 3a 20 62 75  67 59 3d 31 0d 05 d2 0a  |(38): bugY=1....|
00000c90  62 6f 6d 62 3d a3 0d 05  dc 0f 6c 61 73 74 5f 6d  |bomb=.....last_m|
00000ca0  6f 76 65 3d 91 0d 05 e6  05 e1 0d 05 f0 05 20 0d  |ove=.......... .|
00000cb0  05 fa 0b dd 20 a4 64 65  61 64 0d 06 04 14 72 65  |.... .dead....re|
00000cc0  73 75 6c 74 3d 28 62 75  67 59 3d 33 31 29 0d 06  |sult=(bugY=31)..|
00000cd0  0e 38 e7 20 62 6f 6d 62  20 8c 20 72 65 73 75 6c  |.8. bomb . resul|
00000ce0  74 3d 72 65 73 75 6c 74  20 84 20 28 28 62 6f 6d  |t=result . ((bom|
00000cf0  62 58 3d 6c 61 73 65 72  58 29 80 28 62 6f 6d 62  |bX=laserX).(bomb|
00000d00  59 3d 33 31 29 29 0d 06  18 0b 3d 72 65 73 75 6c  |Y=31))....=resul|
00000d10  74 0d 06 22 05 20 0d 06  2c 0c dd 20 f2 73 63 6f  |t..". ..,.. .sco|
00000d20  72 65 0d 06 36 09 40 25  3d 31 30 0d 06 40 1b f1  |re..6.@%=10..@..|
00000d30  8a 30 2c 31 30 29 3b 22  5a 41 50 50 45 44 20 61  |.0,10);"ZAPPED a|
00000d40  67 61 69 6e 21 22 0d 06  4a 21 f1 27 22 59 6f 75  |gain!"..J!.'"You|
00000d50  72 20 73 63 6f 72 65 20  69 73 20 22 3b 73 63 6f  |r score is ";sco|
00000d60  72 65 25 2a 31 30 3b 0d  06 54 1d 62 65 73 74 3d  |re%*10;..T.best=|
00000d70  28 73 63 6f 72 65 25 3e  68 69 67 68 5f 73 63 6f  |(score%>high_sco|
00000d80  72 65 25 29 0d 06 5e 1f  e7 20 62 65 73 74 20 8c  |re%)..^.. best .|
00000d90  20 68 69 67 68 5f 73 63  6f 72 65 25 3d 73 63 6f  | high_score%=sco|
00000da0  72 65 25 0d 06 68 45 e7  20 62 65 73 74 20 8c 20  |re%..hE. best . |
00000db0  f1 22 20 3d 20 4e 45 57  20 48 49 47 48 20 53 43  |." = NEW HIGH SC|
00000dc0  4f 52 45 22 20 8b 20 f1  27 27 22 48 69 67 68 20  |ORE" . .''"High |
00000dd0  53 63 6f 72 65 20 3d 20  22 3b 68 69 67 68 5f 73  |Score = ";high_s|
00000de0  63 6f 72 65 25 2a 31 30  0d 06 72 10 d4 20 33 2c  |core%*10..r.. 3,|
00000df0  32 2c 31 30 30 2c 38 30  0d 06 7c 05 e1 0d 06 86  |2,100,80..|.....|
00000e00  05 20 0d 06 90 0c dd 20  a4 61 67 61 69 6e 0d 06  |. ..... .again..|
00000e10  9a 30 f1 8a 30 2c 32 30  29 3b 22 44 6f 20 79 6f  |.0..0,20);"Do yo|
00000e20  75 20 77 61 6e 74 20 74  6f 20 70 6c 61 79 20 61  |u want to play a|
00000e30  67 61 69 6e 20 28 59 2f  4e 29 3f 20 22 3b 0d 06  |gain (Y/N)? ";..|
00000e40  a4 19 f5 20 47 24 3d be  3a 20 fd 20 a7 22 59 79  |... G$=.: . ."Yy|
00000e50  4e 6e 22 2c 47 24 29 0d  06 ae 13 3d 28 a7 22 59  |Nn",G$)....=(."Y|
00000e60  79 22 2c 47 24 29 3c 3e  30 29 0d 06 b8 05 20 0d  |y",G$)<>0).... .|
00000e70  06 c2 0d dd 20 a4 72 65  70 65 61 74 0d 06 cc 05  |.... .repeat....|
00000e80  db 0d 06 d6 24 f1 8a 38  2c 31 32 29 22 44 6f 20  |....$..8,12)"Do |
00000e90  79 6f 75 20 77 61 6e 74  20 74 6f 20 67 6f 20 6f  |you want to go o|
00000ea0  6e 20 74 6f 22 0d 06 e0  26 f1 8a 38 2c 31 33 29  |n to"...&..8,13)|
00000eb0  22 74 68 65 20 6e 65 78  74 20 70 72 6f 67 72 61  |"the next progra|
00000ec0  6d 20 28 59 2f 4e 29 3f  20 22 3b 0d 06 ea 19 f5  |m (Y/N)? ";.....|
00000ed0  20 47 24 3d be 3a 20 fd  20 a7 22 59 79 4e 6e 22  | G$=.: . ."YyNn"|
00000ee0  2c 47 24 29 0d 06 f4 13  3d 28 a7 22 4e 6e 22 2c  |,G$)....=(."Nn",|
00000ef0  47 24 29 3c 3e 30 29 0d  06 fe 05 20 0d 07 08 11  |G$)<>0).... ....|
00000f00  dd 20 f2 44 42 4c 28 41  24 2c 79 25 29 0d 07 12  |. .DBL(A$,y%)...|
00000f10  16 f1 8a 28 33 38 2d a9  20 41 24 29 2f 32 2c 79  |...(38-. A$)/2,y|
00000f20  25 29 3b 0d 07 1c 12 e3  20 63 68 25 3d 31 20 b8  |%);..... ch%=1 .|
00000f30  20 a9 20 41 24 0d 07 26  1a 4b 25 3d a4 63 68 61  | . A$..&.K%=.cha|
00000f40  72 28 97 20 c1 41 24 2c  63 68 25 2c 31 29 29 0d  |r(. .A$,ch%,1)).|
00000f50  07 30 15 ef 20 32 35 34  2c 31 30 2c 38 2c 32 35  |.0.. 254,10,8,25|
00000f60  35 2c 31 31 0d 07 3a 05  ed 0d 07 44 05 e1 0d 07  |5,11..:....D....|
00000f70  4e 05 20 0d 07 58 0f dd  20 a4 63 68 61 72 28 43  |N. ..X.. .char(C|
00000f80  25 29 0d 07 62 38 3f 42  4c 4f 43 4b 3d 43 25 3a  |%)..b8?BLOCK=C%:|
00000f90  20 41 25 3d 31 30 3a 20  58 25 3d 42 4c 4f 43 4b  | A%=10: X%=BLOCK|
00000fa0  3a 20 59 25 3d 42 4c 4f  43 4b 20 81 20 32 35 36  |: Y%=BLOCK . 256|
00000fb0  3a 20 d6 20 6f 73 77 6f  72 64 0d 07 6c 0e e3 20  |: . osword..l.. |
00000fc0  6a 25 3d 30 20 b8 20 31  0d 07 76 0f ef 20 32 33  |j%=0 . 1..v.. 23|
00000fd0  2c 32 35 34 2b 6a 25 0d  07 80 0e e3 20 69 25 3d  |,254+j%..... i%=|
00000fe0  32 20 b8 20 39 0d 07 8a  17 ef 20 42 4c 4f 43 4b  |2 . 9..... BLOCK|
00000ff0  3f 28 6a 25 2a 34 2b 69  25 81 32 29 0d 07 94 06  |?(j%*4+i%.2)....|
00001000  ed 2c 0d 07 9e 06 3d 30  0d ff                    |.,....=0..|
0000100a