Tanx 165
240 MX=274+10*V
250 E=A/12
260 FOR XX=1 TO 10:SOUND 1,2000,(XX+1),( 10-XX),3,0,1:NEXT
270 FOR 6=80 TO 575 STEP V
280 IF S1>0 THEN IF S1<399 THEN IF G>82 THEN IF TEST(G,S1)=1 OR TEST(G,S1)=2 THE N K=G:SOUND 1,I20,5:SOUND 1,180,5:GOTO 3 40
290 IF S1>0 THEN IF S1<399 THEN PLOT G,S 1v3
9
300 IF E>0 THEN S1=S1-E*(G<MX)+E*(G>=MX) 310 IF G<MX THEN E=E-E/40 ELSE E=E+E/30 320 NEXT G
330 K=575
340 S1=24.5-S1/16:IF(INT(S1)=02 AND K>56 0) THEN FL=1:RETURN
350 E=A/12:FOR G=80 TO 575 STEP V
360 IF G=K THEN RETURN
370 IF 01>0 THEN IF 01<399 THEN PLOT 6,0 1,0
380 IF E>0 THEN 01=01-E*(G<MX)+E*(G>=MX)
390 IF G<MX THEN E=E-E/40 ELSE E=E+E/30 400 NEXT G
410 RETURN
420 LOCATE 13,22:PRINT"PLAYER 2":LOCATE 1,24:PRINT CHR$(20);:LOCATE 1,24:INPUT"E NTER ELEVATION (0 TO 90)";AA$:IF AA$="" THEN 420
430 IF ASC(AA$)<48 OR ASC (AA$)>57 THEN 420 ELSE A=VAL(AA$)
440 IF A>90 OR A<0 THEN 420
450 PEN 2:LOCATE I,24:PRINT CHR$(20);:LO CATE 1,24:PRINT"ENTER VELOCITY (2 TO 10)
";:PEN 1:INPUT VV$:IF VV$="" THEN 450 460 IF ASC(VV$)<49 OR ASC (VV$)>57 THEN 450 ELSE V=VAL(VV$)
470 IF V<2 OR V>10 THEN 450
480 S1=F2:01=F2
490 MX=376-10*V
500 E=A/12
510 FOR XX=1 TO 10:SOUND 1,1500,(XX+1),( 10-XX),3,0,1:NEXT