Home » Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Games/Artillery

Games/Artillery

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 » Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF
Filename: Games/Artillery
Read OK:
File size: 0C71 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
  110MODE1:PROCINIT
  120REPEAT
  130PROCDRAWHILL
  140REPEAT
  150PLAYER=3-PLAYER:PROCGETARGS:PROCFIRE
  160UNTIL FNHIT
  170PROCSCORE
  180PRINTTAB(0,2)"Another game? (Y/N)":A$=GET$
  190UNTIL NOT (A$="Y" OR A$="y")
  200MODE 6:PROCFINALSCORES
  210END
  230DEFPROCINIT
  240X=RND(-TIME)
  250DIM NAME$(2),SCORES(2)
  260VDU23,240,3,6,12,24,56,252,254,254
  270VDU23,241,192,96,48,24,28,63,127,127
  280VDU19,0,4,0,0,0,19,1,0,0,0,0,19,2,2,0,0,0
  290PRINT''SPC(6)"ARTILLERY"
  300PRINT
  310PRINT
  320PRINT
  330PRINT
  340PRINT
  350PRINT
  360PRINT
  370PRINT
  380PRINT
  390PRINT
  400PRINT
  410REPEAT
  420PRINT'"What are your names?"'
  430REPEAT INPUT"Left Player: ";NAME$(1)
  440UNTIL NAME$(1)<>""
  450REPEAT INPUT"Right Player: ";NAME$(2)
  460UNTIL NAME$(2)<>""
  480UNTIL NAME$(1)<>NAME$(2)
  490SCORES(1)=0:SCORES(2)=0:PLAYER=RND(2)
  500ENDPROC
  520DEFPROCDRAWHILL
  530LOCAL T:X1=RND(1):X2=RND(1)
  540IF X1>X2 THEN T=X2:X2=X1:X1=T
  560CLS:GCOL0,2
  570MOVE0,0:MOVE0,FNF(X1)
  580PLOT85,128,0:PLOT85,128,FNF(X1)
  590FORX=132 TO 1148 STEP 4
  600MOVEX,0:DRAWX,FNF((X-128)/1024*(X2-X1)+X1)
  610NEXT
  620MOVE1152,0:MOVE1152,FNF(X2)
  630PLOT85,1280,0:PLOT85,1280,FNF(X2)
  640PROCBOTLINE:VDU28,0,5,39,0:GCOL0,1:WIND=RND(61)-31
  650GCOL0,1:MOVE32,FNF(X1)+32:VDU5,240
  660MOVE1216,FNF(X2)+32:VDU241,4
  670ENDPROC
  690DEFFNF(X):LOCALT1
  700T1=X*4*PI
  710 =300*(SIN(T1)+SIN(T1*3)/3)+400
  730DEFPROCBOTLINE
  740COLOUR1:COLOUR131
  750PRINTTAB(1,31)LEFT$(NAME$(1),13)": ";SCORES(1);
  760PRINT" ; "LEFT$(NAME$(2),13)": ";SCORES(2);
  770COLOUR3:COLOUR128
  780ENDPROC
  800DEFPROCGETARGS
  810WIND=WIND+RND(7)-4
  820IF ABS(WIND)>50 THEN WIND=50*SGN(WIND)
  830VDU30:PRINT'NAME$(PLAYER)'"The wind is ";ABS(WIND);" from the ";
  840IF WIND<0 THEN PRINT;"right." ELSE PRINT;"left."
  850REPEAT
  860PRINTTAB(0,5)SPC(39)TAB(0,3)"How many pounds of powder? ";
  870INPUTTAB(27,3)POUNDS
  880IF POUNDS<5 THEN PRINTTAB(0,5)"Not enough to fire the shot.";:PROCWAIT
  890IF POUNDS>15 THEN PRINTTAB(0,5)"That would destroy the gun.";:PROCWAIT
  900UNTIL POUNDS>=5 AND POUNDS<=15
  910REPEAT
  920PRINTTAB(0,5)SPC(39)TAB(0,4)"At what angle? ";
  930INPUTTAB(15,4);ANGLE
  940IF ANGLE<0 THEN PRINTTAB(0,5)"The gun will not depress that far.";:PROCWAIT
  950IF ANGLE>90 THEN PRINTTAB(0,5)"The gun will not elevate that far.";:PROCWAIT
  960UNTIL ANGLE>=0 AND ANGLE<=90
  970ANGLE=RAD(ANGLE):CLS
  980ENDPROC
 1000DEFPROCFIRE:LOCALLANDED
 1010SOUND 0,-15,4,3
 1020YVEL=POUNDS*SIN(ANGLE)
 1030IF PLAYER=1 THEN XPOS=68:YPOS=FNF(X1)+40:XVEL=POUNDS*COS(ANGLE) ELSE XPOS=1211:YPOS=FNF(X2)+40:XVEL=-POUNDS*COS(ANGLE)
 1040GCOL4,0:PROCPLOT
 1050REPEAT
 1060PROCPLOT:PROCMOVE:LANDED=FNLAND
 1070IF NOT LANDED THEN PROCPLOT
 1080UNTIL LANDED
 1100PROCLAND
 1110GCOL0,1
 1120ENDPROC
 1130DEFPROCPLOT
 1140FORI=-4 TO 4 STEP 4:FORJ=-4TO4STEP4
 1150 PLOT69,XPOS+I,YPOS+J
 1160 NEXT,
 1170ENDPROC
 1190DEFPROCMOVE
 1200XVEL=XVEL+WIND/500:YVEL=YVEL-1/3
 1210XPOS=XPOS+XVEL*4:YPOS=YPOS+YVEL*4
 1220ENDPROC
 1240DEF FNLAND:LOCALTEMP
 1250IF XPOS<4 OR XPOS>1275 THEN =TRUE ELSE IF YPOS>1000 THEN =FALSE
 1260TEMP=FALSE
 1270FORI=XPOS-4 TO XPOS+4 STEP 4
 1280FORJ=YPOS-4 TO YPOS+4 STEP 4
 1290IF POINT(I,J)<>0 THEN TEMP=TRUE
 1300NEXT
 1310NEXT
 1320=TEMP
 1340DEFPROCLAND
 1350IFXPOS<4 OR XPOS>1275 THEN ENDPROC
 1360GCOL0,0:SOUND0,-15,5,5
 1370MOVEXPOS-8,YPOS:MOVEXPOS,YPOS-8
 1380PLOT85,XPOS,YPOS+8:PLOT85,XPOS+8,YPOS
 1390ENDPROC
 1410DEF FNHIT:LOCALXT
 1420IFXPOS<100 THEN XT=X1 ELSE XT=X2
 1430=(XPOS>23 AND XPOS<72 AND YPOS>FNF(XT)-32) OR (XPOS>1207 AND XPOS<1256 AND YPOS>FNF(XT)-32)
 1450DEFPROCSCORE
 1460LOCALP:CLS:IF XPOS<100 THEN P=2 ELSE P=1
 1470IF PLAYER=1 AND P=2 OR PLAYER=2 AND P=1 THEN PRINT"You idiot,you've hit yourself!" ELSE PRINT"Well done,you've hit your opponent."
 1480SCORES(P)=SCORES(P)+1
 1490VDU 26:PROCBOTLINE:PROCWAIT
 1500ENDPROC
 1520DEFPROCFINALSCORES:LOCALDIFF
 1530PRINTTAB(0,11)NAME$(1)": ";SCORES(1);" ;  ";
 1540PRINTNAME$(2);": ";SCORES(2);TAB(0,3);
 1550IF SCORES(1)=SCORES(2) THEN PRINT"The game was a draw."TAB(0,15):ENDPROC
 1560PRINT"The Winner was ";
 1570IF SCORES(1)>SCORES(2) THEN PRINTNAME$(1) ELSE PRINTNAME$(2)
 1580DIFF=ABS(SCORES(1)-SCORES(2))
 1590IF DIFF=1 THEN PRINT"by one point." ELSE PRINT"by ";DIFF;" points."
 1600PRINTTAB(0,15)
 1610ENDPROC
 1630DEFPROCWAIT
 1640T=TIME:REPEATUNTILTIME-T>250
 1650ENDPROC
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
Games/Artillery.m0
Games/Artillery.m1
Games/Artillery.m2
Games/Artillery.m4
Games/Artillery.m5