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 ""