10   REM DARTS.BS5
100  REM : PROGRAM BY STEVEN V. CASE
110  REM : REVISED 12/8/77
120  REM :
130  REM : ROSEMOUNT SENIOR HIGH SCHOOL
140  REM : ROSEMOUNT, MINNESOTA  55068
150  REM :
160  PRINT "&K&J&J": PRINT "SIMULATION OF --> DARTS"
170  PRINT 
180  PRINT "   IN THIS GAME UP TO TWENTY PEOPLE THROW DARTS"
190  PRINT "AT A TARGET WITH 10, 20, 30, AND 40 POINT ZONES."
200  PRINT "THE OBJECT IS TO GET 200 POINTS FIRST."
210  PRINT: LET T=30 
220  PRINT "THROW  DISCRIPTION";TAB(T);"PROBABLE SCORE"
230  PRINT " 1     FAST OVERARM";TAB(T);"BULLLSEYE OR COMPLETE MISS"
240  PRINT " 2     CONTROLLED OVERARM";TAB(T);"10, 20 OR 30 POINTS"
250  PRINT " 3     UNDERARM";TAB(T);"COULD GET ANYTHING"
260  DIM S(20), W(20)
270  LET R=0: M=0
280  FOR I=1 TO 20
290     LET S(1)=0
300  NEXT I
310  PRINT "HOW MANY PLAYERS?";
320  INPUT " (1 to 20) --=>"N
330  IF N>20 THEN N=20
340  IF N< 1 THEN N=1
370  PRINT 
380  LET R=R+1
390  PRINT "ROUND ";R
400  FOR I=1 TO N
410     PRINT "Player ";I;", WHAT IS YOUR THROW?";
420     INPUT " (1 to 3) --=>"T
430     IF T=1 THEN 450
431     IF T=2 THEN 500
432     IF T=3 THEN 550
440     GOTO 410
450     LET P1=.65
460     LET P2=.55
470     LET P3=.5
480     LET P4=.4
490     GOTO 590
500     LET P1=.99
510     LET P2=.77
520     LET P3=.43
530     LET P4=.05
540     GOTO 760
550     LET P1=.95
560     LET P2=.75
570     LET P3=.45
580     LET P4=.05
590     FOR B=1 TO 5
600        LET Q=RND(0)
610     NEXT B
620     IF Q>=P1 THEN 640
630     GOTO 670
640     LET B=40
650     PRINT "BULLSEYE, 40 POINTS"
660     GOTO 840
670     IF U>=P2 THEN 690
680     GOTO 720
690     LET B=30
700     PRINT "30-POINT ZONE"
710     GOTO 840
720     IF Q>=P3 THEN 740
730     GOTO 770
740     LET B=20
750     PRINT "20-POINT ZONE"
760     GOTO 840
770     IF Q>=P4 THEN 790
780     GOTO 820
790     LET B=10
800     PRINT "WHEW 10-POINT ZONE."
810     GOTO 840
820     PRINT "MISSED THE TARGET. TOO BAD."
830     LET B=0
840     LET S(I)=S(I)+B
850     PRINT "TOTAL SCORE = ";S(I)
860  NEXT I
870  FOR I=1 TO N
880     IF S(I)>=200 THEN 910
890  NEXT I
900  GOTO 370
910  PRINT "WE HAVE A WINNER"
920  PRINT 
930  PRINT "Player ";I;" SCORED ";S(I);" POINTS."
940  PRINT 
950  PRINT "THANKS FOR THE GAME"
960  PRINT "...(CDC BASIC) ..."
970  END