Tanx 167
820 PEN 3:LOCATE 1,6:PRINT"The two Playe rs take it in turn to enterthe angle a nd velocity at which theywant to fire and hit their opponent.":PEN 1
830 PEN 2:PRINT:PRINT"The shells must be
fired over the hills,but if you are luc ky your shell may be able to go through
a hill (particularly at high speed.)":P EN 1
840 PEN 3:PRINT:PRINT"To stand the best chance of hitting youropponent, try to u se the smallest angle of elevation.":PEN
1
850 PEN 2:LOCATE 1,24:PRINT"	PRES
S ANY KEY TO START	":PEN 1
860 IF INKEYS="" THEN 860 ELSE CLS:RETUR
870 Q=18-RND*13
880 FOR F=2 TO 29
890 FOR G=21 TO 0 STEP-1
900 LOCATE F+1,G+1:PRINT CHR$(233);:IF F =29 THEN PRINT CHR$(233);CHR$(233);
910 IF F=2 THEN LOCATE F-1,G+1:PRINT CHR $(233);CHR$(233);
920 NEXT G
930 Q=0+RND*4-RND*4
940 IF 0<3 THEN Q=4+RND*2
950 IF 0>20 THEN 0=20
960 NEXT F
970 FOR F=1 TO 21
930 LOCATE 1,F+1:CALL 360:XX=PEEK(367):I F XX<>32 THEN LOCATE 1,F:PEN 2:PRINT CHR $(231);:PEN 1:F1=(25-F)*16+16:Q1=F-1:GOT
0 1000 990 NEXT
1000 FOR F=1 TO 21:LOCATE 32,F+1:CALL 36 0:XX=PEEK(367):IF XX<>32 THEN LOCATE 32, F:PEN 2:PRINT CHR$(232);:PEN 1:F2=(25-F) *16+16:02=F-1:RETURN
1010 NEXT
1020 RETURN
1030 SYMBOL AFTER 230
1040 SYMBOL 231,0,1,2,60,56,255,255,127 1050 SYMBOL 232,0,128,64,60,28,255,255,1 27