166 Tanx
520 FOR G=560 TO 64 STEP -V
530 IF S1>0 THEN IF S1<399 THEN IF G<544
THEN IF TEST(G,S1)=1 OR TEST(G,S1)=2 TH EN K=G:SOUND 1,I20,5:SOUND 1,90,4:GOTO 5 90
540 IF S1>0 THEN IF S1<399 THEN PLOT G,S 1,3
550 IF E>0 THEN S1=S1-E*(G>MX)+E*(G<=MX) 560 IF G>MX THEN E=E-E/40 ELSE E=E+E/30
570 NEXT G
580 K=0
590 S1=24.5-S1/16:IF(INT(S1)=Q1 AND K<80 ) THEN FL = 1:RETURN
600 E=A/12:FOR G=560 TO 64 STEP -V 610 IF G=K THEN RETURN
620 IF 01>0 THEN IF 01<399 THEN PLOT 6,0 1,0
630 IF E>0 THEN 01=01-E*(G>MX)+E*(G<=MX)
640 IF G>MX THEN E=E-E/40 ELSE E=E+E/30
650 NEXT G
660 RETURN
670 LOCATE 32,02+1:PRINT" "
680 FOR F=1 TO 50:SOUND 1,(F+60),3:NEXT F
690 SC1=SC14-1
700 GOTO 750
710 LOCATE 1,01+1:PRINT" "
720 FOR F=1 TO 100:SOUND 1,(F+30),3:NEXT 730 SC2=SC24-1
740 GOTO 750
750 CLS:LOCATE 6,11:PRINT"PLAYER 1 HAS " ;SC1;" POINTS":LOCATE 6,14:PRINT"PLAYER 2 HAS ";SC2;" POINTS"
760 LOCATE 3,I9:PRINT"PRESS ANY KEY TO P LAY AGAIN"
770 IF INKEYS<>"" THEN 770
780 IF INKEYS="" THEN 780 ELSE CLS:GOTO BO
790 FOR XX=1 TO 600:NEXT:CLS:GOTO 80
800 01=0:02=10:E=21:V=31
810 PRINT"	TANX