Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape01a_d90_acorn_finished_progs.wav » Artillery2

Artillery2

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 tapes » Own_Work » drawer_tl_tape01a_d90_acorn_finished_progs.wav
Filename: Artillery2
Read OK:
File size: 0DAC bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
  110MODE4: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):DIMfnf(1500)
  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
  290PRINTTAB(15,29);"ARTILLERY":SOUND 0,-15,4,50
  300PRINTTAB(15,30);"========="
  310FORl=0TO33:PRINT:FORlo=0TO200:NEXT,
  320SOUND0,-15,5,5
  330FORx=0 TO 3
  340 VDU 7:FORy=0 TO 500:NEXT,
  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)
  495VDU19,1,2,0,0,0
  500ENDPROC
  520DEFPROCDRAWHILL
  522 g=0:c=0:diff=0
  525 ste=RND(25)
  530LOCAL T:X1=RND(1):X2=RND(1)
  540IF X1>X2 THEN T=X2:X2=X1:X1=T
  545 ans=200*(SIN(T)+SIN(T*3)/3)+400+ste*g
  560CLS:GCOL0,1:rnd=FNF(X1)
  570MOVE0,0:MOVE0,rnd
  580PLOT85,128,0:PLOT85,128,rnd
  590FORX=132 TO 1148 STEP 4
  600MOVEX,0:DRAWX,FNF((X-128)/1024*(X2-X1)+X1)
  610NEXT
  620MOVE1152,0:MOVE1152,ans
  630PLOT85,1280,0:PLOT85,1280,ans
  640PROCBOTLINE:VDU28,0,5,39,0:GCOL0,1:WIND=RND(61)-31
  650GCOL0,1:MOVE32,rnd+32:VDU5,240
  660MOVE1216,ans+32:VDU241,4
  670ENDPROC
  690DEFFNF(X):LOCALT1
  695 oa=ans
  700T1=X*4*PI:ste=ste+RND(5)-3
  705 IF ste>10 OR ste<-10 THEN ste=RND(20)-10
  710REM ans=200*(SIN(T1)+SIN(T1*3)/3)+400+ste*g
  711 ans=oa+ste
  713 IF ans>750 THEN ste=ste-5
  715 IF ans<200 THEN ste=ste+5
  716 g=g+1:fnf(g)=ans
  717 IF g<100 THEN c=0
  719 =ans
  730DEFPROCBOTLINE
  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=rnd+40:XVEL=POUNDS*COS(ANGLE) ELSE XPOS=1211:YPOS=ans+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�4:�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=�(-�):�fnf(1500)
�� NAME$(2),SCORES(2)
$�23,240,3,6,12,24,56,252,254,254
&�23,241,192,96,48,24,28,63,127,127
"%�15,29);"ARTILLERY":� 0,-15,4,50
,�15,30);"========="
6�l=0�33:�:�lo=0�200:�,
@�0,-15,5,5
J�x=0 � 3
T � 7:�y=0 � 500:�,
^�
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)
��19,1,2,0,0,0
��
��DRAWHILL

 g=0:c=0:diff=0

 ste=�(25)
� T:X1=�(1):X2=�(1)
� X1>X2 � T=X2:X2=X1:X1=T
!& ans=200*(�(T)+�(T*3)/3)+400+ste*g
0�:�0,1:rnd=�F(X1)
:�0,0:�0,rnd
D�85,128,0:�85,128,rnd
N�X=132 � 1148 � 4
X'�X,0:�X,�F((X-128)/1024*(X2-X1)+X1)
b�
l�1152,0:�1152,ans
v�85,1280,0:�85,1280,ans
�,�BOTLINE:�28,0,5,39,0:�0,1:WIND=�(61)-31
��0,1:�32,rnd+32:�5,240
��1216,ans+32:�241,4
��
�ݤF(X):�T1
� oa=ans
�T1=X*4*�:ste=ste+�(5)-3
�& � ste>10 � ste<-10 � ste=�(20)-10
�-� ans=200*(SIN(T1)+SIN(T1*3)/3)+400+ste*g
� ans=oa+ste
� � ans>750 � ste=ste-5
� � ans<200 � ste=ste+5
� g=g+1:fnf(g)=ans
� � g<100 � c=0
�	 =ans
�
��BOTLINE
�'�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)
g� PLAYER=1 � XPOS=68:YPOS=rnd+40:XVEL=POUNDS*�(ANGLE) � XPOS=1211:YPOS=ans+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
�V=(XPOS>23 � XPOS<72 � YPOS>fnf(XT)-32) � (XPOS>1207 � XPOS<1256 � YPOS>fnf(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 34 3a f2  49 4e 49 54 0d 00 78 05  |..n..4:.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 16 58 3d b3  |.....INIT....X=.|
000000c0  28 2d 91 29 3a de 66 6e  66 28 31 35 30 30 29 0d  |(-.):.fnf(1500).|
000000d0  00 fa 18 de 20 4e 41 4d  45 24 28 32 29 2c 53 43  |.... NAME$(2),SC|
000000e0  4f 52 45 53 28 32 29 0d  01 04 24 ef 32 33 2c 32  |ORES(2)...$.23,2|
000000f0  34 30 2c 33 2c 36 2c 31  32 2c 32 34 2c 35 36 2c  |40,3,6,12,24,56,|
00000100  32 35 32 2c 32 35 34 2c  32 35 34 0d 01 0e 26 ef  |252,254,254...&.|
00000110  32 33 2c 32 34 31 2c 31  39 32 2c 39 36 2c 34 38  |23,241,192,96,48|
00000120  2c 32 34 2c 32 38 2c 36  33 2c 31 32 37 2c 31 32  |,24,28,63,127,12|
00000130  37 0d 01 22 25 f1 8a 31  35 2c 32 39 29 3b 22 41  |7.."%..15,29);"A|
00000140  52 54 49 4c 4c 45 52 59  22 3a d4 20 30 2c 2d 31  |RTILLERY":. 0,-1|
00000150  35 2c 34 2c 35 30 0d 01  2c 18 f1 8a 31 35 2c 33  |5,4,50..,...15,3|
00000160  30 29 3b 22 3d 3d 3d 3d  3d 3d 3d 3d 3d 22 0d 01  |0);"========="..|
00000170  36 1a e3 6c 3d 30 b8 33  33 3a f1 3a e3 6c 6f 3d  |6..l=0.33:.:.lo=|
00000180  30 b8 32 30 30 3a ed 2c  0d 01 40 0e d4 30 2c 2d  |0.200:.,..@..0,-|
00000190  31 35 2c 35 2c 35 0d 01  4a 0c e3 78 3d 30 20 b8  |15,5,5..J..x=0 .|
000001a0  20 33 0d 01 54 16 20 ef  20 37 3a e3 79 3d 30 20  | 3..T. . 7:.y=0 |
000001b0  b8 20 35 30 30 3a ed 2c  0d 01 5e 05 f1 0d 01 68  |. 500:.,..^....h|
000001c0  05 f1 0d 01 72 05 f1 0d  01 7c 05 f1 0d 01 86 05  |....r....|......|
000001d0  f1 0d 01 90 05 f1 0d 01  9a 05 f5 0d 01 a4 1d f1  |................|
000001e0  27 22 57 68 61 74 20 61  72 65 20 79 6f 75 72 20  |'"What are your |
000001f0  6e 61 6d 65 73 3f 22 27  0d 01 ae 1f f5 20 e8 22  |names?"'..... ."|
00000200  4c 65 66 74 20 50 6c 61  79 65 72 3a 20 22 3b 4e  |Left Player: ";N|
00000210  41 4d 45 24 28 31 29 0d  01 b8 12 fd 20 4e 41 4d  |AME$(1)..... NAM|
00000220  45 24 28 31 29 3c 3e 22  22 0d 01 c2 20 f5 20 e8  |E$(1)<>""... . .|
00000230  22 52 69 67 68 74 20 50  6c 61 79 65 72 3a 20 22  |"Right Player: "|
00000240  3b 4e 41 4d 45 24 28 32  29 0d 01 cc 12 fd 20 4e  |;NAME$(2)..... N|
00000250  41 4d 45 24 28 32 29 3c  3e 22 22 0d 01 e0 18 fd  |AME$(2)<>"".....|
00000260  20 4e 41 4d 45 24 28 31  29 3c 3e 4e 41 4d 45 24  | NAME$(1)<>NAME$|
00000270  28 32 29 0d 01 ea 27 53  43 4f 52 45 53 28 31 29  |(2)...'SCORES(1)|
00000280  3d 30 3a 53 43 4f 52 45  53 28 32 29 3d 30 3a 50  |=0:SCORES(2)=0:P|
00000290  4c 41 59 45 52 3d b3 28  32 29 0d 01 ef 11 ef 31  |LAYER=.(2).....1|
000002a0  39 2c 31 2c 32 2c 30 2c  30 2c 30 0d 01 f4 05 e1  |9,1,2,0,0,0.....|
000002b0  0d 02 08 0e dd f2 44 52  41 57 48 49 4c 4c 0d 02  |......DRAWHILL..|
000002c0  0a 13 20 67 3d 30 3a 63  3d 30 3a 64 69 66 66 3d  |.. g=0:c=0:diff=|
000002d0  30 0d 02 0d 0e 20 73 74  65 3d b3 28 32 35 29 0d  |0.... ste=.(25).|
000002e0  02 12 17 ea 20 54 3a 58  31 3d b3 28 31 29 3a 58  |.... T:X1=.(1):X|
000002f0  32 3d b3 28 31 29 0d 02  1c 1d e7 20 58 31 3e 58  |2=.(1)..... X1>X|
00000300  32 20 8c 20 54 3d 58 32  3a 58 32 3d 58 31 3a 58  |2 . T=X2:X2=X1:X|
00000310  31 3d 54 0d 02 21 26 20  61 6e 73 3d 32 30 30 2a  |1=T..!& ans=200*|
00000320  28 b5 28 54 29 2b b5 28  54 2a 33 29 2f 33 29 2b  |(.(T)+.(T*3)/3)+|
00000330  34 30 30 2b 73 74 65 2a  67 0d 02 30 15 db 3a e6  |400+ste*g..0..:.|
00000340  30 2c 31 3a 72 6e 64 3d  a4 46 28 58 31 29 0d 02  |0,1:rnd=.F(X1)..|
00000350  3a 0f ec 30 2c 30 3a ec  30 2c 72 6e 64 0d 02 44  |:..0,0:.0,rnd..D|
00000360  19 f0 38 35 2c 31 32 38  2c 30 3a f0 38 35 2c 31  |..85,128,0:.85,1|
00000370  32 38 2c 72 6e 64 0d 02  4e 15 e3 58 3d 31 33 32  |28,rnd..N..X=132|
00000380  20 b8 20 31 31 34 38 20  88 20 34 0d 02 58 27 ec  | . 1148 . 4..X'.|
00000390  58 2c 30 3a df 58 2c a4  46 28 28 58 2d 31 32 38  |X,0:.X,.F((X-128|
000003a0  29 2f 31 30 32 34 2a 28  58 32 2d 58 31 29 2b 58  |)/1024*(X2-X1)+X|
000003b0  31 29 0d 02 62 05 ed 0d  02 6c 15 ec 31 31 35 32  |1)..b....l..1152|
000003c0  2c 30 3a ec 31 31 35 32  2c 61 6e 73 0d 02 76 1b  |,0:.1152,ans..v.|
000003d0  f0 38 35 2c 31 32 38 30  2c 30 3a f0 38 35 2c 31  |.85,1280,0:.85,1|
000003e0  32 38 30 2c 61 6e 73 0d  02 80 2c f2 42 4f 54 4c  |280,ans...,.BOTL|
000003f0  49 4e 45 3a ef 32 38 2c  30 2c 35 2c 33 39 2c 30  |INE:.28,0,5,39,0|
00000400  3a e6 30 2c 31 3a 57 49  4e 44 3d b3 28 36 31 29  |:.0,1:WIND=.(61)|
00000410  2d 33 31 0d 02 8a 1a e6  30 2c 31 3a ec 33 32 2c  |-31.....0,1:.32,|
00000420  72 6e 64 2b 33 32 3a ef  35 2c 32 34 30 0d 02 94  |rnd+32:.5,240...|
00000430  17 ec 31 32 31 36 2c 61  6e 73 2b 33 32 3a ef 32  |..1216,ans+32:.2|
00000440  34 31 2c 34 0d 02 9e 05  e1 0d 02 b2 0e dd a4 46  |41,4...........F|
00000450  28 58 29 3a ea 54 31 0d  02 b7 0b 20 6f 61 3d 61  |(X):.T1.... oa=a|
00000460  6e 73 0d 02 bc 1b 54 31  3d 58 2a 34 2a af 3a 73  |ns....T1=X*4*.:s|
00000470  74 65 3d 73 74 65 2b b3  28 35 29 2d 33 0d 02 c1  |te=ste+.(5)-3...|
00000480  26 20 e7 20 73 74 65 3e  31 30 20 84 20 73 74 65  |& . ste>10 . ste|
00000490  3c 2d 31 30 20 8c 20 73  74 65 3d b3 28 32 30 29  |<-10 . ste=.(20)|
000004a0  2d 31 30 0d 02 c6 2d f4  20 61 6e 73 3d 32 30 30  |-10...-. ans=200|
000004b0  2a 28 53 49 4e 28 54 31  29 2b 53 49 4e 28 54 31  |*(SIN(T1)+SIN(T1|
000004c0  2a 33 29 2f 33 29 2b 34  30 30 2b 73 74 65 2a 67  |*3)/3)+400+ste*g|
000004d0  0d 02 c7 0f 20 61 6e 73  3d 6f 61 2b 73 74 65 0d  |.... ans=oa+ste.|
000004e0  02 c9 1a 20 e7 20 61 6e  73 3e 37 35 30 20 8c 20  |... . ans>750 . |
000004f0  73 74 65 3d 73 74 65 2d  35 0d 02 cb 1a 20 e7 20  |ste=ste-5.... . |
00000500  61 6e 73 3c 32 30 30 20  8c 20 73 74 65 3d 73 74  |ans<200 . ste=st|
00000510  65 2b 35 0d 02 cc 15 20  67 3d 67 2b 31 3a 66 6e  |e+5.... g=g+1:fn|
00000520  66 28 67 29 3d 61 6e 73  0d 02 cd 12 20 e7 20 67  |f(g)=ans.... . g|
00000530  3c 31 30 30 20 8c 20 63  3d 30 0d 02 cf 09 20 3d  |<100 . c=0.... =|
00000540  61 6e 73 0d 02 da 0d dd  f2 42 4f 54 4c 49 4e 45  |ans......BOTLINE|
00000550  0d 02 ee 27 f1 8a 31 2c  33 31 29 c0 4e 41 4d 45  |...'..1,31).NAME|
00000560  24 28 31 29 2c 31 33 29  22 3a 20 22 3b 53 43 4f  |$(1),13)": ";SCO|
00000570  52 45 53 28 31 29 3b 0d  02 f8 26 f1 22 20 3b 20  |RES(1);...&." ; |
00000580  22 c0 4e 41 4d 45 24 28  32 29 2c 31 33 29 22 3a  |".NAME$(2),13)":|
00000590  20 22 3b 53 43 4f 52 45  53 28 32 29 3b 0d 03 02  | ";SCORES(2);...|
000005a0  0b fb 33 3a fb 31 32 38  0d 03 0c 05 e1 0d 03 20  |..3:.128....... |
000005b0  0d dd f2 47 45 54 41 52  47 53 0d 03 2a 14 57 49  |...GETARGS..*.WI|
000005c0  4e 44 3d 57 49 4e 44 2b  b3 28 37 29 2d 34 0d 03  |ND=WIND+.(7)-4..|
000005d0  34 22 e7 20 94 28 57 49  4e 44 29 3e 35 30 20 8c  |4". .(WIND)>50 .|
000005e0  20 57 49 4e 44 3d 35 30  2a b4 28 57 49 4e 44 29  | WIND=50*.(WIND)|
000005f0  0d 03 3e 3c ef 33 30 3a  f1 27 4e 41 4d 45 24 28  |..><.30:.'NAME$(|
00000600  50 4c 41 59 45 52 29 27  22 54 68 65 20 77 69 6e  |PLAYER)'"The win|
00000610  64 20 69 73 20 22 3b 94  28 57 49 4e 44 29 3b 22  |d is ";.(WIND);"|
00000620  20 66 72 6f 6d 20 74 68  65 20 22 3b 0d 03 48 25  | from the ";..H%|
00000630  e7 20 57 49 4e 44 3c 30  20 8c 20 f1 3b 22 72 69  |. WIND<0 . .;"ri|
00000640  67 68 74 2e 22 20 8b 20  f1 3b 22 6c 65 66 74 2e  |ght." . .;"left.|
00000650  22 0d 03 52 05 f5 0d 03  5c 32 f1 8a 30 2c 35 29  |"..R....\2..0,5)|
00000660  89 28 33 39 29 8a 30 2c  33 29 22 48 6f 77 20 6d  |.(39).0,3)"How m|
00000670  61 6e 79 20 70 6f 75 6e  64 73 20 6f 66 20 70 6f  |any pounds of po|
00000680  77 64 65 72 3f 20 22 3b  0d 03 66 11 e8 8a 32 37  |wder? ";..f...27|
00000690  2c 33 29 50 4f 55 4e 44  53 0d 03 70 3c e7 20 50  |,3)POUNDS..p<. P|
000006a0  4f 55 4e 44 53 3c 35 20  8c 20 f1 8a 30 2c 35 29  |OUNDS<5 . ..0,5)|
000006b0  22 4e 6f 74 20 65 6e 6f  75 67 68 20 74 6f 20 66  |"Not enough to f|
000006c0  69 72 65 20 74 68 65 20  73 68 6f 74 2e 22 3b 3a  |ire the shot.";:|
000006d0  f2 57 41 49 54 0d 03 7a  3c e7 20 50 4f 55 4e 44  |.WAIT..z<. POUND|
000006e0  53 3e 31 35 20 8c 20 f1  8a 30 2c 35 29 22 54 68  |S>15 . ..0,5)"Th|
000006f0  61 74 20 77 6f 75 6c 64  20 64 65 73 74 72 6f 79  |at would destroy|
00000700  20 74 68 65 20 67 75 6e  2e 22 3b 3a f2 57 41 49  | the gun.";:.WAI|
00000710  54 0d 03 84 1c fd 20 50  4f 55 4e 44 53 3e 3d 35  |T..... POUNDS>=5|
00000720  20 80 20 50 4f 55 4e 44  53 3c 3d 31 35 0d 03 8e  | . POUNDS<=15...|
00000730  05 f5 0d 03 98 26 f1 8a  30 2c 35 29 89 28 33 39  |.....&..0,5).(39|
00000740  29 8a 30 2c 34 29 22 41  74 20 77 68 61 74 20 61  |).0,4)"At what a|
00000750  6e 67 6c 65 3f 20 22 3b  0d 03 a2 11 e8 8a 31 35  |ngle? ";......15|
00000760  2c 34 29 3b 41 4e 47 4c  45 0d 03 ac 41 e7 20 41  |,4);ANGLE...A. A|
00000770  4e 47 4c 45 3c 30 20 8c  20 f1 8a 30 2c 35 29 22  |NGLE<0 . ..0,5)"|
00000780  54 68 65 20 67 75 6e 20  77 69 6c 6c 20 6e 6f 74  |The gun will not|
00000790  20 64 65 70 72 65 73 73  20 74 68 61 74 20 66 61  | depress that fa|
000007a0  72 2e 22 3b 3a f2 57 41  49 54 0d 03 b6 42 e7 20  |r.";:.WAIT...B. |
000007b0  41 4e 47 4c 45 3e 39 30  20 8c 20 f1 8a 30 2c 35  |ANGLE>90 . ..0,5|
000007c0  29 22 54 68 65 20 67 75  6e 20 77 69 6c 6c 20 6e  |)"The gun will n|
000007d0  6f 74 20 65 6c 65 76 61  74 65 20 74 68 61 74 20  |ot elevate that |
000007e0  66 61 72 2e 22 3b 3a f2  57 41 49 54 0d 03 c0 1a  |far.";:.WAIT....|
000007f0  fd 20 41 4e 47 4c 45 3e  3d 30 20 80 20 41 4e 47  |. ANGLE>=0 . ANG|
00000800  4c 45 3c 3d 39 30 0d 03  ca 14 41 4e 47 4c 45 3d  |LE<=90....ANGLE=|
00000810  b2 28 41 4e 47 4c 45 29  3a db 0d 03 d4 05 e1 0d  |.(ANGLE):.......|
00000820  03 e8 12 dd f2 46 49 52  45 3a ea 4c 41 4e 44 45  |.....FIRE:.LANDE|
00000830  44 0d 03 f2 0f d4 20 30  2c 2d 31 35 2c 34 2c 33  |D..... 0,-15,4,3|
00000840  0d 03 fc 18 59 56 45 4c  3d 50 4f 55 4e 44 53 2a  |....YVEL=POUNDS*|
00000850  b5 28 41 4e 47 4c 45 29  0d 04 06 67 e7 20 50 4c  |.(ANGLE)...g. PL|
00000860  41 59 45 52 3d 31 20 8c  20 58 50 4f 53 3d 36 38  |AYER=1 . XPOS=68|
00000870  3a 59 50 4f 53 3d 72 6e  64 2b 34 30 3a 58 56 45  |:YPOS=rnd+40:XVE|
00000880  4c 3d 50 4f 55 4e 44 53  2a 9b 28 41 4e 47 4c 45  |L=POUNDS*.(ANGLE|
00000890  29 20 8b 20 58 50 4f 53  3d 31 32 31 31 3a 59 50  |) . XPOS=1211:YP|
000008a0  4f 53 3d 61 6e 73 2b 34  30 3a 58 56 45 4c 3d 2d  |OS=ans+40:XVEL=-|
000008b0  50 4f 55 4e 44 53 2a 9b  28 41 4e 47 4c 45 29 0d  |POUNDS*.(ANGLE).|
000008c0  04 10 0e e6 34 2c 30 3a  f2 50 4c 4f 54 0d 04 1a  |....4,0:.PLOT...|
000008d0  05 f5 0d 04 24 1c f2 50  4c 4f 54 3a f2 4d 4f 56  |....$..PLOT:.MOV|
000008e0  45 3a 4c 41 4e 44 45 44  3d a4 4c 41 4e 44 0d 04  |E:LANDED=.LAND..|
000008f0  2e 16 e7 20 ac 20 4c 41  4e 44 45 44 20 8c 20 f2  |... . LANDED . .|
00000900  50 4c 4f 54 0d 04 38 0c  fd 20 4c 41 4e 44 45 44  |PLOT..8.. LANDED|
00000910  0d 04 4c 09 f2 4c 41 4e  44 0d 04 56 08 e6 30 2c  |..L..LAND..V..0,|
00000920  31 0d 04 60 05 e1 0d 04  6a 0a dd f2 50 4c 4f 54  |1..`....j...PLOT|
00000930  0d 04 74 1b e3 49 3d 2d  34 20 b8 20 34 20 88 20  |..t..I=-4 . 4 . |
00000940  34 3a e3 4a 3d 2d 34 b8  34 88 34 0d 04 7e 16 20  |4:.J=-4.4.4..~. |
00000950  f0 36 39 2c 58 50 4f 53  2b 49 2c 59 50 4f 53 2b  |.69,XPOS+I,YPOS+|
00000960  4a 0d 04 88 07 20 ed 2c  0d 04 92 05 e1 0d 04 a6  |J.... .,........|
00000970  0a dd f2 4d 4f 56 45 0d  04 b0 24 58 56 45 4c 3d  |...MOVE...$XVEL=|
00000980  58 56 45 4c 2b 57 49 4e  44 2f 35 30 30 3a 59 56  |XVEL+WIND/500:YV|
00000990  45 4c 3d 59 56 45 4c 2d  31 2f 33 0d 04 ba 25 58  |EL=YVEL-1/3...%X|
000009a0  50 4f 53 3d 58 50 4f 53  2b 58 56 45 4c 2a 34 3a  |POS=XPOS+XVEL*4:|
000009b0  59 50 4f 53 3d 59 50 4f  53 2b 59 56 45 4c 2a 34  |YPOS=YPOS+YVEL*4|
000009c0  0d 04 c4 05 e1 0d 04 d8  11 dd 20 a4 4c 41 4e 44  |.......... .LAND|
000009d0  3a ea 54 45 4d 50 0d 04  e2 30 e7 20 58 50 4f 53  |:.TEMP...0. XPOS|
000009e0  3c 34 20 84 20 58 50 4f  53 3e 31 32 37 35 20 8c  |<4 . XPOS>1275 .|
000009f0  20 3d b9 20 8b 20 e7 20  59 50 4f 53 3e 31 30 30  | =. . . YPOS>100|
00000a00  30 20 8c 20 3d a3 0d 04  ec 0a 54 45 4d 50 3d a3  |0 . =.....TEMP=.|
00000a10  0d 04 f6 1a e3 49 3d 58  50 4f 53 2d 34 20 b8 20  |.....I=XPOS-4 . |
00000a20  58 50 4f 53 2b 34 20 88  20 34 0d 05 00 1a e3 4a  |XPOS+4 . 4.....J|
00000a30  3d 59 50 4f 53 2d 34 20  b8 20 59 50 4f 53 2b 34  |=YPOS-4 . YPOS+4|
00000a40  20 88 20 34 0d 05 0a 17  e7 20 b0 49 2c 4a 29 3c  | . 4..... .I,J)<|
00000a50  3e 30 20 8c 20 54 45 4d  50 3d b9 0d 05 14 05 ed  |>0 . TEMP=......|
00000a60  0d 05 1e 05 ed 0d 05 28  09 3d 54 45 4d 50 0d 05  |.......(.=TEMP..|
00000a70  3c 0a dd f2 4c 41 4e 44  0d 05 46 1b e7 58 50 4f  |<...LAND..F..XPO|
00000a80  53 3c 34 20 84 20 58 50  4f 53 3e 31 32 37 35 20  |S<4 . XPOS>1275 |
00000a90  8c 20 e1 0d 05 50 13 e6  30 2c 30 3a d4 30 2c 2d  |. ...P..0,0:.0,-|
00000aa0  31 35 2c 35 2c 35 0d 05  5a 1d ec 58 50 4f 53 2d  |15,5,5..Z..XPOS-|
00000ab0  38 2c 59 50 4f 53 3a ec  58 50 4f 53 2c 59 50 4f  |8,YPOS:.XPOS,YPO|
00000ac0  53 2d 38 0d 05 64 23 f0  38 35 2c 58 50 4f 53 2c  |S-8..d#.85,XPOS,|
00000ad0  59 50 4f 53 2b 38 3a f0  38 35 2c 58 50 4f 53 2b  |YPOS+8:.85,XPOS+|
00000ae0  38 2c 59 50 4f 53 0d 05  6e 05 e1 0d 05 82 0e dd  |8,YPOS..n.......|
00000af0  20 a4 48 49 54 3a ea 58  54 0d 05 8c 1d e7 58 50  | .HIT:.XT.....XP|
00000b00  4f 53 3c 31 30 30 20 8c  20 58 54 3d 58 31 20 8b  |OS<100 . XT=X1 .|
00000b10  20 58 54 3d 58 32 0d 05  96 56 3d 28 58 50 4f 53  | XT=X2...V=(XPOS|
00000b20  3e 32 33 20 80 20 58 50  4f 53 3c 37 32 20 80 20  |>23 . XPOS<72 . |
00000b30  59 50 4f 53 3e 66 6e 66  28 58 54 29 2d 33 32 29  |YPOS>fnf(XT)-32)|
00000b40  20 84 20 28 58 50 4f 53  3e 31 32 30 37 20 80 20  | . (XPOS>1207 . |
00000b50  58 50 4f 53 3c 31 32 35  36 20 80 20 59 50 4f 53  |XPOS<1256 . YPOS|
00000b60  3e 66 6e 66 28 58 54 29  2d 33 32 29 0d 05 aa 0b  |>fnf(XT)-32)....|
00000b70  dd f2 53 43 4f 52 45 0d  05 b4 1f ea 50 3a db 3a  |..SCORE.....P:.:|
00000b80  e7 20 58 50 4f 53 3c 31  30 30 20 8c 20 50 3d 32  |. XPOS<100 . P=2|
00000b90  20 8b 20 50 3d 31 0d 05  be 72 e7 20 50 4c 41 59  | . P=1...r. PLAY|
00000ba0  45 52 3d 31 20 80 20 50  3d 32 20 84 20 50 4c 41  |ER=1 . P=2 . PLA|
00000bb0  59 45 52 3d 32 20 80 20  50 3d 31 20 8c 20 f1 22  |YER=2 . P=1 . ."|
00000bc0  59 6f 75 20 69 64 69 6f  74 2c 79 6f 75 27 76 65  |You idiot,you've|
00000bd0  20 68 69 74 20 79 6f 75  72 73 65 6c 66 21 22 20  | hit yourself!" |
00000be0  8b 20 f1 22 57 65 6c 6c  20 64 6f 6e 65 2c 79 6f  |. ."Well done,yo|
00000bf0  75 27 76 65 20 68 69 74  20 79 6f 75 72 20 6f 70  |u've hit your op|
00000c00  70 6f 6e 65 6e 74 2e 22  0d 05 c8 19 53 43 4f 52  |ponent."....SCOR|
00000c10  45 53 28 50 29 3d 53 43  4f 52 45 53 28 50 29 2b  |ES(P)=SCORES(P)+|
00000c20  31 0d 05 d2 17 ef 20 32  36 3a f2 42 4f 54 4c 49  |1..... 26:.BOTLI|
00000c30  4e 45 3a f2 57 41 49 54  0d 05 dc 05 e1 0d 05 f0  |NE:.WAIT........|
00000c40  17 dd f2 46 49 4e 41 4c  53 43 4f 52 45 53 3a ea  |...FINALSCORES:.|
00000c50  44 49 46 46 0d 05 fa 29  f1 8a 30 2c 31 31 29 4e  |DIFF...)..0,11)N|
00000c60  41 4d 45 24 28 31 29 22  3a 20 22 3b 53 43 4f 52  |AME$(1)": ";SCOR|
00000c70  45 53 28 31 29 3b 22 20  3b 20 20 22 3b 0d 06 04  |ES(1);" ;  ";...|
00000c80  23 f1 4e 41 4d 45 24 28  32 29 3b 22 3a 20 22 3b  |#.NAME$(2);": ";|
00000c90  53 43 4f 52 45 53 28 32  29 3b 8a 30 2c 33 29 3b  |SCORES(2);.0,3);|
00000ca0  0d 06 0e 3b e7 20 53 43  4f 52 45 53 28 31 29 3d  |...;. SCORES(1)=|
00000cb0  53 43 4f 52 45 53 28 32  29 20 8c 20 f1 22 54 68  |SCORES(2) . ."Th|
00000cc0  65 20 67 61 6d 65 20 77  61 73 20 61 20 64 72 61  |e game was a dra|
00000cd0  77 2e 22 8a 30 2c 31 35  29 3a e1 0d 06 18 17 f1  |w.".0,15):......|
00000ce0  22 54 68 65 20 57 69 6e  6e 65 72 20 77 61 73 20  |"The Winner was |
00000cf0  22 3b 0d 06 22 31 e7 20  53 43 4f 52 45 53 28 31  |";.."1. SCORES(1|
00000d00  29 3e 53 43 4f 52 45 53  28 32 29 20 8c 20 f1 4e  |)>SCORES(2) . .N|
00000d10  41 4d 45 24 28 31 29 20  8b 20 f1 4e 41 4d 45 24  |AME$(1) . .NAME$|
00000d20  28 32 29 0d 06 2c 1f 44  49 46 46 3d 94 28 53 43  |(2)..,.DIFF=.(SC|
00000d30  4f 52 45 53 28 31 29 2d  53 43 4f 52 45 53 28 32  |ORES(1)-SCORES(2|
00000d40  29 29 0d 06 36 38 e7 20  44 49 46 46 3d 31 20 8c  |))..68. DIFF=1 .|
00000d50  20 f1 22 62 79 20 6f 6e  65 20 70 6f 69 6e 74 2e  | ."by one point.|
00000d60  22 20 8b 20 f1 22 62 79  20 22 3b 44 49 46 46 3b  |" . ."by ";DIFF;|
00000d70  22 20 70 6f 69 6e 74 73  2e 22 0d 06 40 0b f1 8a  |" points."..@...|
00000d80  30 2c 31 35 29 0d 06 4a  05 e1 0d 06 5e 0a dd f2  |0,15)..J....^...|
00000d90  57 41 49 54 0d 06 68 11  54 3d 91 3a f5 fd 91 2d  |WAIT..h.T=.:...-|
00000da0  54 3e 32 35 30 0d 06 72  05 e1 0d ff              |T>250..r....|
00000dac
Artillery2.m0
Artillery2.m1
Artillery2.m2
Artillery2.m4
Artillery2.m5