Tanx
Tanx is a two player game in which two guns are placed on either side of a range of randomly generated hills. Each player takes turns in attempting to hit the gun on the other side by entering the angle and velocity of fire. The winner is the player with the highest score after a total of seven hits have been made.
10 REM TANX.
20 REM @ PAUL STANLEY.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:CLS
40 GOSUB 1080
50 GOSUB 800
60 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
70 GOSUB 1030
BO C=0:GOSUB 870
90 IF RND>0.5 THEN C=C+1:GOSUB 420
100 GOSUB 170:IF FL=1 THEN FL=0:GOTO 670 110 C=C+1
120 IF C=8 THEN CLS:GOTO 80
130 GOSUB 420:IF FL=1 THEN FL=0: GOTO 71 0
140 C=C+1
150 IF C=12 THEN CLS:GOTO BO
160 GOTO 100
170 LOCATE 13,22:PRINT"PLAYER 1":LOCATE 1,24:PRINT CHR$(20);:LOCATE 1,24:INPUT"E NTER ELEVATION (0 TO 90)";AA$:IF AA$="" THEN 170
180 IF ASC(AA$)<48 OR ASC (AA$)>57 THEN 170 ELSE A=VAL(AA$)
190 IF A>90 OR A<0 THEN 170
200 PEN 2:LOCATE 1,24:PRINT CHR$(20);:LO CATE 1,24:PRINT"ENTER VELOCITY (2 TO 10)
";:PEN 1:INPUT VV$:IF VV$=' THEN 200 210 IF ASC(VV$)<49 OR ASC (VV$)>57 THEN 200 ELSE V=VAL(VV$)
220 IF V<2 OR V>10 THEN 200
230 S1=F1:01=F1