10 DIM P(2),P$(2) 30 D2=5 40 B1=35 50 B2=B1-50 60 C2=500 70 L1=70 80 L=C2-L1 90 H1=C2+L1 100 F=(H1-L)/5 110 D1=.07 120 G=-30 125 CALL "FREE"\CALL "INIT" 130 GOSUB 1420 160 INPUT P$(1)\CALL "TEXT"(P$(1)) 170 CALL "TEXT"(" NAME: ") 180 INPUT P$(2)\CALL "TEXT"(P$(2)) 190 P(1)=0\P(2)=0\S2=1 200 FOR I4=0 TO 2*D2-1 210 CALL "INIT" 240 CALL "APNT"(100,100,-1,-5) 250 CALL "TEXT"(P$(1)," ",STR$(P(1))) 260 CALL "TEXT"(" ",P$(2)," ",STR$(P(2))) 270 CALL "APNT"(100,50,-1,-5) 280 Z=D2-INT(I4/2) 290 CALL "TEXT"("DARTS LEFT: ",STR$(Z)) 300 CALL "APNT"(500,200,-1,-5) 310 CALL "TEXT"(P$(S2)," IS UP") 400 CALL "RSTR"("DRTSPT") 560 CALL "LPEN"(N,T)\IF N<>1 THEN 560 562 IF T=2 THEN 580 565 IF T=4 THEN 125 570 GO TO 560 580 CALL "ERAS"(2) 590 GOSUB 780 595 X=15 597 J5=25 600 FOR I=1 TO A1 STEP X 610 V2=V2+D1*G 620 Y=V2*D1 630 A=A-X\B=B+Y 640 CALL "SUBP"(1) 650 GOSUB 1280 660 I9=5\GOSUB 1380 670 IF I>A1-X THEN 710 680 CALL "ERAS"(1) 690 GOSUB 1780 700 NEXT I 710 I9=500\GOSUB 1380 720 B=B+Y 730 GOSUB 1000 740 CALL "ERAS"(1)\CALL "SAVE" 750 NEXT I4 760 GOSUB 1200 770 GO TO 190 780 A=900\B=550 790 CALL "SUBP"(3) 800 CALL "APNT"(500,100,-1,-5) 810 CALL "VECT"(100,0,1) 820 CALL "TEXT"("TOUCH LINE TO RELEASE DART") 830 CALL "ESUB" 840 I2=100 845 J5=20 850 FOR I=1 TO I2 860 A=A-1 870 CALL "SUBP"(1)\GOSUB 1280 880 I9=10\GOSUB 1380 890 CALL "LPEN"(H,T) 900 IF H<>1 THEN 920 \IF T<>3 THEN 890 910 GO TO 940 920 CALL "ERAS"(1) 925 GOSUB 1780 930 NEXT I 940 V2=90-I+RND(0)*10 950 IF I>I2-1 THEN 980 960 CALL "ERAS"(1) 970 CALL "ERAS"(3) 980 A1=A-B1-25 990 RETURN 1000 S=0\IF BP(2) THEN 1250 1220 S2=2\IF P(1)