n�1:�INIT
x�
�
�DRAWHILL
��
�"PLAYER=3-PLAYER:�GETARGS:�FIRE
�
� �HIT
�
�SCORE
�$�0,2)"Another game? (Y/N)":A$=�
�� � (A$="Y" � A$="y")
�� 6:�FINALSCORES
��
�
��INIT
�X=�(-�)
�� NAME$(2),SCORES(2)

$�23,240,3,6,12,24,56,252,254,254

&�23,241,192,96,48,24,28,63,127,127

+�19,0,4,0,0,0,19,1,0,0,0,0,19,2,2,0,0,0

"�''�(6)"ARTILLERY"

,�

6�

@�

J�

T�

^�

h�

r�

|�

��

��

��

��'"What are your names?"'

�� �"Left Player: ";NAME$(1)

�� NAME$(1)<>""

� � �"Right Player: ";NAME$(2)

�� NAME$(2)<>""

�� NAME$(1)<>NAME$(2)

�'SCORES(1)=0:SCORES(2)=0:PLAYER=�(2)

��
��DRAWHILL
� T:X1=�(1):X2=�(1)
� X1>X2 � T=X2:X2=X1:X1=T
0
�:�0,2
:�0,0:�0,�F(X1)
D�85,128,0:�85,128,�F(X1)
N�X=132 � 1148 � 4
X'�X,0:�X,�F((X-128)/1024*(X2-X1)+X1)
b�
l�1152,0:�1152,�F(X2)
v�85,1280,0:�85,1280,�F(X2)
�,�BOTLINE:�28,0,5,39,0:�0,1:WIND=�(61)-31
��0,1:�32,�F(X1)+32:�5,240
��1216,�F(X2)+32:�241,4
��
�ݤF(X):�T1
�T1=X*4*�
� =300*(�(T1)+�(T1*3)/3)+400
�
��BOTLINE
��1:�131
�'�1,31)�NAME$(1),13)": ";SCORES(1);
�&�" ; "�NAME$(2),13)": ";SCORES(2);
�3:�128
�
 
��GETARGS
*WIND=WIND+�(7)-4
4"� �(WIND)>50 � WIND=50*�(WIND)
><�30:�'NAME$(PLAYER)'"The wind is ";�(WIND);" from the ";
H%� WIND<0 � �;"right." � �;"left."
R�
\2�0,5)�(39)�0,3)"How many pounds of powder? ";
f�27,3)POUNDS
p<� POUNDS<5 � �0,5)"Not enough to fire the shot.";:�WAIT
z<� POUNDS>15 � �0,5)"That would destroy the gun.";:�WAIT
�� POUNDS>=5 � POUNDS<=15
��
�&�0,5)�(39)�0,4)"At what angle? ";
��15,4);ANGLE
�A� ANGLE<0 � �0,5)"The gun will not depress that far.";:�WAIT
�B� ANGLE>90 � �0,5)"The gun will not elevate that far.";:�WAIT
�� ANGLE>=0 � ANGLE<=90
�ANGLE=�(ANGLE):�
��
���FIRE:�LANDED
�� 0,-15,4,3
�YVEL=POUNDS*�(ANGLE)
m� PLAYER=1 � XPOS=68:YPOS=�F(X1)+40:XVEL=POUNDS*�(ANGLE) � XPOS=1211:YPOS=�F(X2)+40:XVEL=-POUNDS*�(ANGLE)
�4,0:�PLOT
�
$�PLOT:�MOVE:LANDED=�LAND
.� � LANDED � �PLOT
8� LANDED
L	�LAND
V�0,1
`�
j
��PLOT
t�I=-4 � 4 � 4:�J=-4�4�4
~ �69,XPOS+I,YPOS+J
� �,
��
�
��MOVE
�$XVEL=XVEL+WIND/500:YVEL=YVEL-1/3
�%XPOS=XPOS+XVEL*4:YPOS=YPOS+YVEL*4
��
�� �LAND:�TEMP
�0� XPOS<4 � XPOS>1275 � =� � � YPOS>1000 � =�
�
TEMP=�
��I=XPOS-4 � XPOS+4 � 4
�J=YPOS-4 � YPOS+4 � 4

� �I,J)<>0 � TEMP=�
�
�
(	=TEMP
<
��LAND
F�XPOS<4 � XPOS>1275 � �
P�0,0:�0,-15,5,5
Z�XPOS-8,YPOS:�XPOS,YPOS-8
d#�85,XPOS,YPOS+8:�85,XPOS+8,YPOS
n�
�� �HIT:�XT
��XPOS<100 � XT=X1 � XT=X2
�T=(XPOS>23 � XPOS<72 � YPOS>�F(XT)-32) � (XPOS>1207 � XPOS<1256 � YPOS>�F(XT)-32)
���SCORE
��P:�:� XPOS<100 � P=2 � P=1
�r� PLAYER=1 � P=2 � PLAYER=2 � P=1 � �"You idiot,you've hit yourself!" � �"Well done,you've hit your opponent."
�SCORES(P)=SCORES(P)+1
�� 26:�BOTLINE:�WAIT
��
���FINALSCORES:�DIFF
�)�0,11)NAME$(1)": ";SCORES(1);" ;  ";
#�NAME$(2);": ";SCORES(2);�0,3);
;� SCORES(1)=SCORES(2) � �"The game was a draw."�0,15):�
�"The Winner was ";
"1� SCORES(1)>SCORES(2) � �NAME$(1) � �NAME$(2)
,DIFF=�(SCORES(1)-SCORES(2))
68� DIFF=1 � �"by one point." � �"by ";DIFF;" points."
@�0,15)
J�
^
��WAIT
hT=�:���-T>250
r�
�

00000000  0d 00 6e 0c eb 31 3a f2  49 4e 49 54 0d 00 78 05  |..n..1:.INIT..x.|
00000010  f5 0d 00 82 0d f2 44 52  41 57 48 49 4c 4c 0d 00  |......DRAWHILL..|
00000020  8c 05 f5 0d 00 96 22 50  4c 41 59 45 52 3d 33 2d  |......"PLAYER=3-|
00000030  50 4c 41 59 45 52 3a f2  47 45 54 41 52 47 53 3a  |PLAYER:.GETARGS:|
00000040  f2 46 49 52 45 0d 00 a0  0a fd 20 a4 48 49 54 0d  |.FIRE..... .HIT.|
00000050  00 aa 0a f2 53 43 4f 52  45 0d 00 b4 24 f1 8a 30  |....SCORE...$..0|
00000060  2c 32 29 22 41 6e 6f 74  68 65 72 20 67 61 6d 65  |,2)"Another game|
00000070  3f 20 28 59 2f 4e 29 22  3a 41 24 3d be 0d 00 be  |? (Y/N)":A$=....|
00000080  19 fd 20 ac 20 28 41 24  3d 22 59 22 20 84 20 41  |.. . (A$="Y" . A|
00000090  24 3d 22 79 22 29 0d 00  c8 14 eb 20 36 3a f2 46  |$="y")..... 6:.F|
000000a0  49 4e 41 4c 53 43 4f 52  45 53 0d 00 d2 05 e0 0d  |INALSCORES......|
000000b0  00 e6 0a dd f2 49 4e 49  54 0d 00 f0 0b 58 3d b3  |.....INIT....X=.|
000000c0  28 2d 91 29 0d 00 fa 18  de 20 4e 41 4d 45 24 28  |(-.)..... NAME$(|
000000d0  32 29 2c 53 43 4f 52 45  53 28 32 29 0d 01 04 24  |2),SCORES(2)...$|
000000e0  ef 32 33 2c 32 34 30 2c  33 2c 36 2c 31 32 2c 32  |.23,240,3,6,12,2|
000000f0  34 2c 35 36 2c 32 35 32  2c 32 35 34 2c 32 35 34  |4,56,252,254,254|
00000100  0d 01 0e 26 ef 32 33 2c  32 34 31 2c 31 39 32 2c  |...&.23,241,192,|
00000110  39 36 2c 34 38 2c 32 34  2c 32 38 2c 36 33 2c 31  |96,48,24,28,63,1|
00000120  32 37 2c 31 32 37 0d 01  18 2b ef 31 39 2c 30 2c  |27,127...+.19,0,|
00000130  34 2c 30 2c 30 2c 30 2c  31 39 2c 31 2c 30 2c 30  |4,0,0,0,19,1,0,0|
00000140  2c 30 2c 30 2c 31 39 2c  32 2c 32 2c 30 2c 30 2c  |,0,0,19,2,2,0,0,|
00000150  30 0d 01 22 16 f1 27 27  89 28 36 29 22 41 52 54  |0.."..''.(6)"ART|
00000160  49 4c 4c 45 52 59 22 0d  01 2c 05 f1 0d 01 36 05  |ILLERY"..,....6.|
00000170  f1 0d 01 40 05 f1 0d 01  4a 05 f1 0d 01 54 05 f1  |...@....J....T..|
00000180  0d 01 5e 05 f1 0d 01 68  05 f1 0d 01 72 05 f1 0d  |..^....h....r...|
00000190  01 7c 05 f1 0d 01 86 05  f1 0d 01 90 05 f1 0d 01  |.|..............|
000001a0  9a 05 f5 0d 01 a4 1d f1  27 22 57 68 61 74 20 61  |........'"What a|
000001b0  72 65 20 79 6f 75 72 20  6e 61 6d 65 73 3f 22 27  |re your names?"'|
000001c0  0d 01 ae 1f f5 20 e8 22  4c 65 66 74 20 50 6c 61  |..... ."Left Pla|
000001d0  79 65 72 3a 20 22 3b 4e  41 4d 45 24 28 31 29 0d  |yer: ";NAME$(1).|
000001e0  01 b8 12 fd 20 4e 41 4d  45 24 28 31 29 3c 3e 22  |.... NAME$(1)<>"|
000001f0  22 0d 01 c2 20 f5 20 e8  22 52 69 67 68 74 20 50  |"... . ."Right P|
00000200  6c 61 79 65 72 3a 20 22  3b 4e 41 4d 45 24 28 32  |layer: ";NAME$(2|
00000210  29 0d 01 cc 12 fd 20 4e  41 4d 45 24 28 32 29 3c  |)..... NAME$(2)<|
00000220  3e 22 22 0d 01 e0 18 fd  20 4e 41 4d 45 24 28 31  |>""..... NAME$(1|
00000230  29 3c 3e 4e 41 4d 45 24  28 32 29 0d 01 ea 27 53  |)<>NAME$(2)...'S|
00000240  43 4f 52 45 53 28 31 29  3d 30 3a 53 43 4f 52 45  |CORES(1)=0:SCORE|
00000250  53 28 32 29 3d 30 3a 50  4c 41 59 45 52 3d b3 28  |S(2)=0:PLAYER=.(|
00000260  32 29 0d 01 f4 05 e1 0d  02 08 0e dd f2 44 52 41  |2)...........DRA|
00000270  57 48 49 4c 4c 0d 02 12  17 ea 20 54 3a 58 31 3d  |WHILL..... T:X1=|
00000280  b3 28 31 29 3a 58 32 3d  b3 28 31 29 0d 02 1c 1d  |.(1):X2=.(1)....|
00000290  e7 20 58 31 3e 58 32 20  8c 20 54 3d 58 32 3a 58  |. X1>X2 . T=X2:X|
000002a0  32 3d 58 31 3a 58 31 3d  54 0d 02 30 0a db 3a e6  |2=X1:X1=T..0..:.|
000002b0  30 2c 32 0d 02 3a 12 ec  30 2c 30 3a ec 30 2c a4  |0,2..:..0,0:.0,.|
000002c0  46 28 58 31 29 0d 02 44  1c f0 38 35 2c 31 32 38  |F(X1)..D..85,128|
000002d0  2c 30 3a f0 38 35 2c 31  32 38 2c a4 46 28 58 31  |,0:.85,128,.F(X1|
000002e0  29 0d 02 4e 15 e3 58 3d  31 33 32 20 b8 20 31 31  |)..N..X=132 . 11|
000002f0  34 38 20 88 20 34 0d 02  58 27 ec 58 2c 30 3a df  |48 . 4..X'.X,0:.|
00000300  58 2c a4 46 28 28 58 2d  31 32 38 29 2f 31 30 32  |X,.F((X-128)/102|
00000310  34 2a 28 58 32 2d 58 31  29 2b 58 31 29 0d 02 62  |4*(X2-X1)+X1)..b|
00000320  05 ed 0d 02 6c 18 ec 31  31 35 32 2c 30 3a ec 31  |....l..1152,0:.1|
00000330  31 35 32 2c a4 46 28 58  32 29 0d 02 76 1e f0 38  |152,.F(X2)..v..8|
00000340  35 2c 31 32 38 30 2c 30  3a f0 38 35 2c 31 32 38  |5,1280,0:.85,128|
00000350  30 2c a4 46 28 58 32 29  0d 02 80 2c f2 42 4f 54  |0,.F(X2)...,.BOT|
00000360  4c 49 4e 45 3a ef 32 38  2c 30 2c 35 2c 33 39 2c  |LINE:.28,0,5,39,|
00000370  30 3a e6 30 2c 31 3a 57  49 4e 44 3d b3 28 36 31  |0:.0,1:WIND=.(61|
00000380  29 2d 33 31 0d 02 8a 1d  e6 30 2c 31 3a ec 33 32  |)-31.....0,1:.32|
00000390  2c a4 46 28 58 31 29 2b  33 32 3a ef 35 2c 32 34  |,.F(X1)+32:.5,24|
000003a0  30 0d 02 94 1a ec 31 32  31 36 2c a4 46 28 58 32  |0.....1216,.F(X2|
000003b0  29 2b 33 32 3a ef 32 34  31 2c 34 0d 02 9e 05 e1  |)+32:.241,4.....|
000003c0  0d 02 b2 0e dd a4 46 28  58 29 3a ea 54 31 0d 02  |......F(X):.T1..|
000003d0  bc 0c 54 31 3d 58 2a 34  2a af 0d 02 c6 1f 20 3d  |..T1=X*4*..... =|
000003e0  33 30 30 2a 28 b5 28 54  31 29 2b b5 28 54 31 2a  |300*(.(T1)+.(T1*|
000003f0  33 29 2f 33 29 2b 34 30  30 0d 02 da 0d dd f2 42  |3)/3)+400......B|
00000400  4f 54 4c 49 4e 45 0d 02  e4 0b fb 31 3a fb 31 33  |OTLINE.....1:.13|
00000410  31 0d 02 ee 27 f1 8a 31  2c 33 31 29 c0 4e 41 4d  |1...'..1,31).NAM|
00000420  45 24 28 31 29 2c 31 33  29 22 3a 20 22 3b 53 43  |E$(1),13)": ";SC|
00000430  4f 52 45 53 28 31 29 3b  0d 02 f8 26 f1 22 20 3b  |ORES(1);...&." ;|
00000440  20 22 c0 4e 41 4d 45 24  28 32 29 2c 31 33 29 22  | ".NAME$(2),13)"|
00000450  3a 20 22 3b 53 43 4f 52  45 53 28 32 29 3b 0d 03  |: ";SCORES(2);..|
00000460  02 0b fb 33 3a fb 31 32  38 0d 03 0c 05 e1 0d 03  |...3:.128.......|
00000470  20 0d dd f2 47 45 54 41  52 47 53 0d 03 2a 14 57  | ...GETARGS..*.W|
00000480  49 4e 44 3d 57 49 4e 44  2b b3 28 37 29 2d 34 0d  |IND=WIND+.(7)-4.|
00000490  03 34 22 e7 20 94 28 57  49 4e 44 29 3e 35 30 20  |.4". .(WIND)>50 |
000004a0  8c 20 57 49 4e 44 3d 35  30 2a b4 28 57 49 4e 44  |. WIND=50*.(WIND|
000004b0  29 0d 03 3e 3c ef 33 30  3a f1 27 4e 41 4d 45 24  |)..><.30:.'NAME$|
000004c0  28 50 4c 41 59 45 52 29  27 22 54 68 65 20 77 69  |(PLAYER)'"The wi|
000004d0  6e 64 20 69 73 20 22 3b  94 28 57 49 4e 44 29 3b  |nd is ";.(WIND);|
000004e0  22 20 66 72 6f 6d 20 74  68 65 20 22 3b 0d 03 48  |" from the ";..H|
000004f0  25 e7 20 57 49 4e 44 3c  30 20 8c 20 f1 3b 22 72  |%. WIND<0 . .;"r|
00000500  69 67 68 74 2e 22 20 8b  20 f1 3b 22 6c 65 66 74  |ight." . .;"left|
00000510  2e 22 0d 03 52 05 f5 0d  03 5c 32 f1 8a 30 2c 35  |."..R....\2..0,5|
00000520  29 89 28 33 39 29 8a 30  2c 33 29 22 48 6f 77 20  |).(39).0,3)"How |
00000530  6d 61 6e 79 20 70 6f 75  6e 64 73 20 6f 66 20 70  |many pounds of p|
00000540  6f 77 64 65 72 3f 20 22  3b 0d 03 66 11 e8 8a 32  |owder? ";..f...2|
00000550  37 2c 33 29 50 4f 55 4e  44 53 0d 03 70 3c e7 20  |7,3)POUNDS..p<. |
00000560  50 4f 55 4e 44 53 3c 35  20 8c 20 f1 8a 30 2c 35  |POUNDS<5 . ..0,5|
00000570  29 22 4e 6f 74 20 65 6e  6f 75 67 68 20 74 6f 20  |)"Not enough to |
00000580  66 69 72 65 20 74 68 65  20 73 68 6f 74 2e 22 3b  |fire the shot.";|
00000590  3a f2 57 41 49 54 0d 03  7a 3c e7 20 50 4f 55 4e  |:.WAIT..z<. POUN|
000005a0  44 53 3e 31 35 20 8c 20  f1 8a 30 2c 35 29 22 54  |DS>15 . ..0,5)"T|
000005b0  68 61 74 20 77 6f 75 6c  64 20 64 65 73 74 72 6f  |hat would destro|
000005c0  79 20 74 68 65 20 67 75  6e 2e 22 3b 3a f2 57 41  |y the gun.";:.WA|
000005d0  49 54 0d 03 84 1c fd 20  50 4f 55 4e 44 53 3e 3d  |IT..... POUNDS>=|
000005e0  35 20 80 20 50 4f 55 4e  44 53 3c 3d 31 35 0d 03  |5 . POUNDS<=15..|
000005f0  8e 05 f5 0d 03 98 26 f1  8a 30 2c 35 29 89 28 33  |......&..0,5).(3|
00000600  39 29 8a 30 2c 34 29 22  41 74 20 77 68 61 74 20  |9).0,4)"At what |
00000610  61 6e 67 6c 65 3f 20 22  3b 0d 03 a2 11 e8 8a 31  |angle? ";......1|
00000620  35 2c 34 29 3b 41 4e 47  4c 45 0d 03 ac 41 e7 20  |5,4);ANGLE...A. |
00000630  41 4e 47 4c 45 3c 30 20  8c 20 f1 8a 30 2c 35 29  |ANGLE<0 . ..0,5)|
00000640  22 54 68 65 20 67 75 6e  20 77 69 6c 6c 20 6e 6f  |"The gun will no|
00000650  74 20 64 65 70 72 65 73  73 20 74 68 61 74 20 66  |t depress that f|
00000660  61 72 2e 22 3b 3a f2 57  41 49 54 0d 03 b6 42 e7  |ar.";:.WAIT...B.|
00000670  20 41 4e 47 4c 45 3e 39  30 20 8c 20 f1 8a 30 2c  | ANGLE>90 . ..0,|
00000680  35 29 22 54 68 65 20 67  75 6e 20 77 69 6c 6c 20  |5)"The gun will |
00000690  6e 6f 74 20 65 6c 65 76  61 74 65 20 74 68 61 74  |not elevate that|
000006a0  20 66 61 72 2e 22 3b 3a  f2 57 41 49 54 0d 03 c0  | far.";:.WAIT...|
000006b0  1a fd 20 41 4e 47 4c 45  3e 3d 30 20 80 20 41 4e  |.. ANGLE>=0 . AN|
000006c0  47 4c 45 3c 3d 39 30 0d  03 ca 14 41 4e 47 4c 45  |GLE<=90....ANGLE|
000006d0  3d b2 28 41 4e 47 4c 45  29 3a db 0d 03 d4 05 e1  |=.(ANGLE):......|
000006e0  0d 03 e8 12 dd f2 46 49  52 45 3a ea 4c 41 4e 44  |......FIRE:.LAND|
000006f0  45 44 0d 03 f2 0f d4 20  30 2c 2d 31 35 2c 34 2c  |ED..... 0,-15,4,|
00000700  33 0d 03 fc 18 59 56 45  4c 3d 50 4f 55 4e 44 53  |3....YVEL=POUNDS|
00000710  2a b5 28 41 4e 47 4c 45  29 0d 04 06 6d e7 20 50  |*.(ANGLE)...m. P|
00000720  4c 41 59 45 52 3d 31 20  8c 20 58 50 4f 53 3d 36  |LAYER=1 . XPOS=6|
00000730  38 3a 59 50 4f 53 3d a4  46 28 58 31 29 2b 34 30  |8:YPOS=.F(X1)+40|
00000740  3a 58 56 45 4c 3d 50 4f  55 4e 44 53 2a 9b 28 41  |:XVEL=POUNDS*.(A|
00000750  4e 47 4c 45 29 20 8b 20  58 50 4f 53 3d 31 32 31  |NGLE) . XPOS=121|
00000760  31 3a 59 50 4f 53 3d a4  46 28 58 32 29 2b 34 30  |1:YPOS=.F(X2)+40|
00000770  3a 58 56 45 4c 3d 2d 50  4f 55 4e 44 53 2a 9b 28  |:XVEL=-POUNDS*.(|
00000780  41 4e 47 4c 45 29 0d 04  10 0e e6 34 2c 30 3a f2  |ANGLE).....4,0:.|
00000790  50 4c 4f 54 0d 04 1a 05  f5 0d 04 24 1c f2 50 4c  |PLOT.......$..PL|
000007a0  4f 54 3a f2 4d 4f 56 45  3a 4c 41 4e 44 45 44 3d  |OT:.MOVE:LANDED=|
000007b0  a4 4c 41 4e 44 0d 04 2e  16 e7 20 ac 20 4c 41 4e  |.LAND..... . LAN|
000007c0  44 45 44 20 8c 20 f2 50  4c 4f 54 0d 04 38 0c fd  |DED . .PLOT..8..|
000007d0  20 4c 41 4e 44 45 44 0d  04 4c 09 f2 4c 41 4e 44  | LANDED..L..LAND|
000007e0  0d 04 56 08 e6 30 2c 31  0d 04 60 05 e1 0d 04 6a  |..V..0,1..`....j|
000007f0  0a dd f2 50 4c 4f 54 0d  04 74 1b e3 49 3d 2d 34  |...PLOT..t..I=-4|
00000800  20 b8 20 34 20 88 20 34  3a e3 4a 3d 2d 34 b8 34  | . 4 . 4:.J=-4.4|
00000810  88 34 0d 04 7e 16 20 f0  36 39 2c 58 50 4f 53 2b  |.4..~. .69,XPOS+|
00000820  49 2c 59 50 4f 53 2b 4a  0d 04 88 07 20 ed 2c 0d  |I,YPOS+J.... .,.|
00000830  04 92 05 e1 0d 04 a6 0a  dd f2 4d 4f 56 45 0d 04  |..........MOVE..|
00000840  b0 24 58 56 45 4c 3d 58  56 45 4c 2b 57 49 4e 44  |.$XVEL=XVEL+WIND|
00000850  2f 35 30 30 3a 59 56 45  4c 3d 59 56 45 4c 2d 31  |/500:YVEL=YVEL-1|
00000860  2f 33 0d 04 ba 25 58 50  4f 53 3d 58 50 4f 53 2b  |/3...%XPOS=XPOS+|
00000870  58 56 45 4c 2a 34 3a 59  50 4f 53 3d 59 50 4f 53  |XVEL*4:YPOS=YPOS|
00000880  2b 59 56 45 4c 2a 34 0d  04 c4 05 e1 0d 04 d8 11  |+YVEL*4.........|
00000890  dd 20 a4 4c 41 4e 44 3a  ea 54 45 4d 50 0d 04 e2  |. .LAND:.TEMP...|
000008a0  30 e7 20 58 50 4f 53 3c  34 20 84 20 58 50 4f 53  |0. XPOS<4 . XPOS|
000008b0  3e 31 32 37 35 20 8c 20  3d b9 20 8b 20 e7 20 59  |>1275 . =. . . Y|
000008c0  50 4f 53 3e 31 30 30 30  20 8c 20 3d a3 0d 04 ec  |POS>1000 . =....|
000008d0  0a 54 45 4d 50 3d a3 0d  04 f6 1a e3 49 3d 58 50  |.TEMP=......I=XP|
000008e0  4f 53 2d 34 20 b8 20 58  50 4f 53 2b 34 20 88 20  |OS-4 . XPOS+4 . |
000008f0  34 0d 05 00 1a e3 4a 3d  59 50 4f 53 2d 34 20 b8  |4.....J=YPOS-4 .|
00000900  20 59 50 4f 53 2b 34 20  88 20 34 0d 05 0a 17 e7  | YPOS+4 . 4.....|
00000910  20 b0 49 2c 4a 29 3c 3e  30 20 8c 20 54 45 4d 50  | .I,J)<>0 . TEMP|
00000920  3d b9 0d 05 14 05 ed 0d  05 1e 05 ed 0d 05 28 09  |=.............(.|
00000930  3d 54 45 4d 50 0d 05 3c  0a dd f2 4c 41 4e 44 0d  |=TEMP..<...LAND.|
00000940  05 46 1b e7 58 50 4f 53  3c 34 20 84 20 58 50 4f  |.F..XPOS<4 . XPO|
00000950  53 3e 31 32 37 35 20 8c  20 e1 0d 05 50 13 e6 30  |S>1275 . ...P..0|
00000960  2c 30 3a d4 30 2c 2d 31  35 2c 35 2c 35 0d 05 5a  |,0:.0,-15,5,5..Z|
00000970  1d ec 58 50 4f 53 2d 38  2c 59 50 4f 53 3a ec 58  |..XPOS-8,YPOS:.X|
00000980  50 4f 53 2c 59 50 4f 53  2d 38 0d 05 64 23 f0 38  |POS,YPOS-8..d#.8|
00000990  35 2c 58 50 4f 53 2c 59  50 4f 53 2b 38 3a f0 38  |5,XPOS,YPOS+8:.8|
000009a0  35 2c 58 50 4f 53 2b 38  2c 59 50 4f 53 0d 05 6e  |5,XPOS+8,YPOS..n|
000009b0  05 e1 0d 05 82 0e dd 20  a4 48 49 54 3a ea 58 54  |....... .HIT:.XT|
000009c0  0d 05 8c 1d e7 58 50 4f  53 3c 31 30 30 20 8c 20  |.....XPOS<100 . |
000009d0  58 54 3d 58 31 20 8b 20  58 54 3d 58 32 0d 05 96  |XT=X1 . XT=X2...|
000009e0  54 3d 28 58 50 4f 53 3e  32 33 20 80 20 58 50 4f  |T=(XPOS>23 . XPO|
000009f0  53 3c 37 32 20 80 20 59  50 4f 53 3e a4 46 28 58  |S<72 . YPOS>.F(X|
00000a00  54 29 2d 33 32 29 20 84  20 28 58 50 4f 53 3e 31  |T)-32) . (XPOS>1|
00000a10  32 30 37 20 80 20 58 50  4f 53 3c 31 32 35 36 20  |207 . XPOS<1256 |
00000a20  80 20 59 50 4f 53 3e a4  46 28 58 54 29 2d 33 32  |. YPOS>.F(XT)-32|
00000a30  29 0d 05 aa 0b dd f2 53  43 4f 52 45 0d 05 b4 1f  |)......SCORE....|
00000a40  ea 50 3a db 3a e7 20 58  50 4f 53 3c 31 30 30 20  |.P:.:. XPOS<100 |
00000a50  8c 20 50 3d 32 20 8b 20  50 3d 31 0d 05 be 72 e7  |. P=2 . P=1...r.|
00000a60  20 50 4c 41 59 45 52 3d  31 20 80 20 50 3d 32 20  | PLAYER=1 . P=2 |
00000a70  84 20 50 4c 41 59 45 52  3d 32 20 80 20 50 3d 31  |. PLAYER=2 . P=1|
00000a80  20 8c 20 f1 22 59 6f 75  20 69 64 69 6f 74 2c 79  | . ."You idiot,y|
00000a90  6f 75 27 76 65 20 68 69  74 20 79 6f 75 72 73 65  |ou've hit yourse|
00000aa0  6c 66 21 22 20 8b 20 f1  22 57 65 6c 6c 20 64 6f  |lf!" . ."Well do|
00000ab0  6e 65 2c 79 6f 75 27 76  65 20 68 69 74 20 79 6f  |ne,you've hit yo|
00000ac0  75 72 20 6f 70 70 6f 6e  65 6e 74 2e 22 0d 05 c8  |ur opponent."...|
00000ad0  19 53 43 4f 52 45 53 28  50 29 3d 53 43 4f 52 45  |.SCORES(P)=SCORE|
00000ae0  53 28 50 29 2b 31 0d 05  d2 17 ef 20 32 36 3a f2  |S(P)+1..... 26:.|
00000af0  42 4f 54 4c 49 4e 45 3a  f2 57 41 49 54 0d 05 dc  |BOTLINE:.WAIT...|
00000b00  05 e1 0d 05 f0 17 dd f2  46 49 4e 41 4c 53 43 4f  |........FINALSCO|
00000b10  52 45 53 3a ea 44 49 46  46 0d 05 fa 29 f1 8a 30  |RES:.DIFF...)..0|
00000b20  2c 31 31 29 4e 41 4d 45  24 28 31 29 22 3a 20 22  |,11)NAME$(1)": "|
00000b30  3b 53 43 4f 52 45 53 28  31 29 3b 22 20 3b 20 20  |;SCORES(1);" ;  |
00000b40  22 3b 0d 06 04 23 f1 4e  41 4d 45 24 28 32 29 3b  |";...#.NAME$(2);|
00000b50  22 3a 20 22 3b 53 43 4f  52 45 53 28 32 29 3b 8a  |": ";SCORES(2);.|
00000b60  30 2c 33 29 3b 0d 06 0e  3b e7 20 53 43 4f 52 45  |0,3);...;. SCORE|
00000b70  53 28 31 29 3d 53 43 4f  52 45 53 28 32 29 20 8c  |S(1)=SCORES(2) .|
00000b80  20 f1 22 54 68 65 20 67  61 6d 65 20 77 61 73 20  | ."The game was |
00000b90  61 20 64 72 61 77 2e 22  8a 30 2c 31 35 29 3a e1  |a draw.".0,15):.|
00000ba0  0d 06 18 17 f1 22 54 68  65 20 57 69 6e 6e 65 72  |....."The Winner|
00000bb0  20 77 61 73 20 22 3b 0d  06 22 31 e7 20 53 43 4f  | was ";.."1. SCO|
00000bc0  52 45 53 28 31 29 3e 53  43 4f 52 45 53 28 32 29  |RES(1)>SCORES(2)|
00000bd0  20 8c 20 f1 4e 41 4d 45  24 28 31 29 20 8b 20 f1  | . .NAME$(1) . .|
00000be0  4e 41 4d 45 24 28 32 29  0d 06 2c 1f 44 49 46 46  |NAME$(2)..,.DIFF|
00000bf0  3d 94 28 53 43 4f 52 45  53 28 31 29 2d 53 43 4f  |=.(SCORES(1)-SCO|
00000c00  52 45 53 28 32 29 29 0d  06 36 38 e7 20 44 49 46  |RES(2))..68. DIF|
00000c10  46 3d 31 20 8c 20 f1 22  62 79 20 6f 6e 65 20 70  |F=1 . ."by one p|
00000c20  6f 69 6e 74 2e 22 20 8b  20 f1 22 62 79 20 22 3b  |oint." . ."by ";|
00000c30  44 49 46 46 3b 22 20 70  6f 69 6e 74 73 2e 22 0d  |DIFF;" points.".|
00000c40  06 40 0b f1 8a 30 2c 31  35 29 0d 06 4a 05 e1 0d  |.@...0,15)..J...|
00000c50  06 5e 0a dd f2 57 41 49  54 0d 06 68 11 54 3d 91  |.^...WAIT..h.T=.|
00000c60  3a f5 fd 91 2d 54 3e 32  35 30 0d 06 72 05 e1 0d  |:...-T>250..r...|
00000c70  ff                                                |.|
00000c71