home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug013.ark / BULLSEYE.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  773b  |  25 lines
  1. 20 PRINT "GAME OF BULLSEYE." : PRINT : RANDOMIZE
  2. 30 PRINT "IN THIS GAME , UP TO 20 PLAYERS THROW"
  3. PRINT "DARTS AT A TARGET."
  4. 40 PRINT "WITH 10,20,30 AND 40 PIONT ZONES. THE OBJECTIVE IS"
  5. PRINT "TO GET 2000 POINTS." : PRINT
  6. 60 PRINT "THROW ","DESCRIPTION","PROBABLE SCORE"
  7. 70 PRINT "1 ","FAST OVERARM","BULLSEYE OR A COMPLETE MISS"
  8. 80 PRINT "2","CONTROLLED OVERARM","10, 20, OR 30 POINTS"
  9. 90 PRINT "3","UNDERARM","ANYTHING" : PRINT
  10. 100 DIM A$(20), S(20), W(10)
  11. R=0 : M=0
  12. 110 INPUT "HOW MANY PLAYERS ";N
  13. PRINT 
  14. 120 FOR I = 1 TO N
  15. 130 PRINT "NAME OF PLAYER";N : INPUT A$(I)
  16. 140 NEXT I
  17. 150 R = R + 1
  18. PRINT
  19. PRINT "ROUND";R
  20. 160 FOR I = 1 TO N
  21. 170 PRINT : PRINT A$(I);"'S THROW" : INPUT T
  22. 180 IF T < 0 OR T > 3 THEN 34
  23. 34 PRINT "INPUT 1; 2; OR 3"
  24. GOTO 170
  25.