10 REM **DARTS BY DAVID ROONEY**

20 BORDER 2: PAPER 1: INK 6: CLS 

30 GO SUB 8000: REM INSTRUCTIONS

40 REM DEFINE VARIABLES

50 LET A=11: LET B=1: LET C=200: LET D=20: LET E=0

60 REM SET UP DART BOARD

65 CLS 

68 PRINT AT 0,0; INK 0; PAPER 7;"DARTS LEFT=";D;AT 0,14;"POINTS TO GET=";C

70 FOR F=2 TO 20 STEP 2: BEEP .009,1: PRINT AT F,28; INK 7;"(2*isp)": NEXT F: BEEP .5,10

80 FOR F=1 TO 19 STEP 2: BEEP .009,1: PRINT AT F,28; INK 0;"(2*isp)": NEXT F: BEEP .5,10

81 PRINT AT 6,3; FLASH 1;"ANY KEY TO CONTINUE": PAUSE 0: BEEP .5,0: PRINT AT 6,3; FLASH 0;"                   "

82 DIM K(20): FOR H=1 TO 20

83 LET K(H)=INT (RND*19)+1

84 PRINT AT H,30;K(H)

85 NEXT H

90 PRINT AT A,B; INK 6;"AB"

100 LET A=A+(INKEY$="z" AND A<20)-(INKEY$="q" AND A>1)

110 LET B=B+1

120 BEEP 0.06,0

130 IF B=27 THEN BEEP .8,10: GO TO 150

140 GO TO 90

150 LET C=C-K(A)

180 LET D=D-1

185 IF E=0 OR E=1 THEN GO TO 190

186 IF D>0 AND C<=0 THEN GO TO 600

187 IF D=0 AND C<=0 THEN GO TO 600

188 IF D>0 AND C>0 OR D=C AND D>0 THEN LET A=11: LET B=1: GO TO 60

190 IF D=0 AND C>0 THEN GO TO 300

200 IF D>0 AND C>0 THEN LET B=1: LET A=11: GO TO 60

210 IF E=0 THEN PAUSE 1: IF D>0 AND D<=0 THEN GO TO 400

211 IF E=1 THEN GO TO 500

300 FOR F=0 TO 7: FOR G=0 TO 7: BORDER G: BEEP .001,F: NEXT G: NEXT F

305 CLS 

310 FOR F=1 TO 14

320 PRINT AT 10,F;" HARD LUCK!";AT 12,F+2;" BEATEN AGAIN";AT 14,F+4;" MUTTON HEAD": BEEP .05,F*2

330 NEXT F

335 PAUSE 0

340 GO SUB 9000: REM ANOTHER GAME

400 FOR F=0 TO 7: FOR G=0 TO 7: BORDER G: BEEP .001,F: NEXT G: NEXT F

401 CLS 

405 FOR F=1 TO 10

410 PRINT AT 10,F;"EXCELENT";AT 12,F+2;" NOW IT GETS HARDER";AT 14,F+4;" CHAMP": BEEP .05,F*2

415 NEXT f

417 PAUSE 0

420 LET C=350

425 LET D=20

427 LET E=E+1

430 GO TO 200

500 FOR F=0 TO 9: FOR G=0 TO 7: BORDER G: BEEP .009,F: NEXT G: NEXT F

505 CLS 

510 FOR F=1 TO 10: PRINT AT 6,F;" WELL DONE!!": BEEP .009,F: NEXT F

520 PRINT : PRINT : PRINT " BUT HAVE YOU GOT THE SKILL TO              WIN THE CUP"

530 PRINT AT 21,1; FLASH 1;"REMEMBER 101 WITH  SIX  ARROWS"

540 LET D=6: LET C=101: LET E=E+1: LET A=11: LET B=1

545 PAUSE 0

550 GO TO 60

600 CLS : PRINT AT 2,3; BRIGHT 1; FLASH 1;"YOU'VE WON THE CUP"

605 PRINT AT 21,11; FLASH 1;"PRESS A KEY": PAUSE 0

610 PLOT 90,40: DRAW 0,60: DRAW 60,0: DRAW 0,-60: DRAW -60,0

620 PLOT 150,90: DRAW 20,0: DRAW 0,-40: DRAW -20,0

630 PLOT 150,80: DRAW 10,0: DRAW 0,-20: DRAW -10,0

640 PRINT AT 12,13; FLASH 1;"TEA"

650 BEEP .5,7: BEEP .5,7: BEEP .5,7: BEEP .5,9: BEEP .5,7: BEEP .5,7: BEEP .8,2: BEEP .5,4: BEEP .5,2: BEEP .5,4: BEEP .5,6: BEEP .8,7: BEEP .8,7

660 DIM A$(5): INPUT "ENTER INITIALS";A$: FOR F=1 TO 5: PRINT AT 14,F+11;A$(F): BEEP .5,0: NEXT F

670 PAUSE 100: GO TO 9000

8000 PRINT AT 0,8;"WELCOME TO DARTS"

8010 PRINT : PRINT : PRINT "HAVE YOU THE SKILL TO SCORE MORETHAN 200 WITH JUST 20 DARTS     HAVE YOU THE SKILL TO SCORE MORETHAN 350 WITH JUST 20 DARTS     HAVE YOU THE SKILL TO SCORE MORETHAN 101 WITH JUST  5 DARTS   "

8020 PRINT AT 13,3;"   PRESS A KEY TO FIND OUT"

8030 PRINT AT 13,3;"'q'  UP                         'z'  DOWN"

8400 PAUSE 0

8500 FOR F=0 TO 7: READ V: POKE USR "A"+F,V: NEXT F: FOR G=0 TO 7: READ Q: POKE USR "B"+G,Q: NEXT G

8510 DATA 248,132,130,127,127,130,132,248,0,0,130,255,255,130,0,0

8600 RETURN 

9000 CLS : PRINT AT 12,5;"ANOTHER GAME?(Y/N)": INPUT X$: IF X$="y" THEN RUN 

9010 PRINT : PRINT "BYE BYE"

9020 STOP 

9100 SAVE "DARTS" LINE 1: VERIFY ""