home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / STRIKE9.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.6 KB  |  115 lines
  1. 90    DIM A(9),D(4),U(9)
  2. 110 PRINT
  3. 150 PRINT
  4. 160 PRINT
  5. 170 PRINT "DO YOU NEED INNSTRUCTIONS (YES/NO?)"
  6. 180 INPUT R$
  7. 185 RANDOMIZE
  8. 190 IF LEFT$(R$,1) = "N" THEN 340
  9. 200 IF LEFT$(R$,1) <> "Y" THEN 170
  10.   PRINT "BOARD WITH 9 NOS. : 1 2 3 4 5 6 7 8 9"
  11.     PRINT
  12. 250 PRINT "YOU WILL BE GIVEN A CHART OF THE NUMBERS YOU HAVE LEFT."
  13. 280 PRINT "TAKE OFF, ONE AT A TIME.  THE NUMBERS YOU TAKE OFF"
  14. 290 PRINT "MUST ADD UP TO THE ROLL.  YOU WIN BY REMOVING EVERY"
  15. 300 PRINT "NUMBER FROM THE BOARD.  YOU LOSE IF YOU CANNOTT "
  16.     PRINT "REMOVE THE NUMBERS WITH THE ROLL YOU HAVE."
  17.     PRINT
  18. 340 PRINT
  19.     PRINT
  20. 350 PRINT "HERE IS THE BOARD:   "
  21. 360 REM SET UP THE BOARD
  22. 370 FOR B=1 TO 9
  23. 380 PRINT B;
  24. 390 A(B)=B
  25. 400 NEXT B
  26. 405 PRINT
  27. 410 C=INT(RND*6+1)+INT(RND*6+1)   
  28. 420 PRINT"YOUR ROLL IS",C
  29. 430 T=0
  30. 435 J=0
  31. 440 FOR X=1 TO 9
  32. 445 IF A(X) < 1 THEN 460
  33. 446 J=J+1
  34. 447 U(J)=A(X)
  35. 450 T=T+A(X)
  36. 460 NEXT X
  37. 465 REM CHECK FOR LOSS
  38. 470 IF C>T THEN 950
  39. 480 IF C=T THEN 1120
  40. 490 FOR K=1 TO J
  41. 500 FOR L=1 TO J
  42.     FOR M=1 TO J
  43.     FOR N=1 TO J
  44. 530 IF N=K THEN 630
  45.     IF N=L THEN 630
  46.     IF N=M THEN 630
  47.     IF M=K THEN 640
  48.      IF M=L THEN 640
  49.     IF L=K THEN 650
  50. 590 IF C-U(K)=0 THEN 680
  51.     IF C-U(K)=U(N) THEN 680
  52.     IF C-U(K)-U(L)=U(N) THEN 680
  53.     IF C-U(K)-U(L)-U(M)=U(N) THEN 680
  54. 630 NEXT N
  55. 640 NEXT M
  56. 650 NEXT L
  57. 660 NEXT K
  58. 670 GO TO 950
  59. 680 FOR X=1 TO 4
  60. 690 D(X)=0
  61. 700 NEXT X
  62. 710 PRINT"NO. OF NUMBERS TO REMOVE"
  63. 720 INPUT E
  64. 730 IF INT(E)<>E THEN 760
  65. 740 IF E<1 THEN 760
  66. 750 IF E>4 THEN 760
  67. 755 GO TO 770
  68. 760 PRINT"ANSWER 1,2,3, OR 4"
  69. 765 GO TO 710
  70. 770 PRINT"WHAT  IS THE NUMBER"
  71. 780 FOR F=1 TO E
  72. 790 INPUT D(F)
  73. 800 Q=D(F)
  74. 805 IF A(Q) <>0 THEN 825
  75. 810 PRINT "YOU REMOVED IT BEFORE, TRY AGAIN"
  76. 820 GO TO 710
  77. 825 NEXT F
  78. 830 IF C<>(D(1)+D(2)+D(3)+D(4)) THEN 870
  79. 835 FOR F=1 TO E
  80. 840 A(D(F))=0
  81. 850 NEXT F
  82.     GO TO 880
  83. 870 PRINT "THOSE NUMBERS DONT  ADD UP TO YOUR ROLL, TRY AGAIN"
  84.     GO TO 710
  85. 880 PRINT "THE NUMBERS YOU HAVE LEFT TO REMOVE ARE"
  86. 890 FOR B=1 TO 9
  87. 900 IF A(B)=0 THEN 920
  88. 910 PRINT A(B);
  89. 920 NEXT B
  90. 930 PRINT
  91.     GO TO 410
  92. 950 PRINT"SORRY, YOU LOST THIS TIME."
  93. 960 T=0
  94. 970 FOR B=1TO 9
  95. 980 IF A(B)=0 THEN 1000
  96. 990 T=T+1
  97. 1000 NEXT B
  98. 1010 PRINT"THERE ARE ";T;"NUMBERS LEFT ON THE BOARD:  "
  99.     FOR X=1 TO 9
  100. 1030 IF A(X)=0 THEN 1050
  101. 1040 PRINT A(X);
  102. 1050 NEXT X
  103. 1060 PRINT
  104. 1070 GO TO 1140
  105. 1120 PRINT TAB(15);"*** CONGRATULATIONS ***"
  106. 1130 PRINT TAB(25);"* YOU WON *"
  107. 1140 PRINT
  108. 1150 PRINT
  109. 1160 PRINT "PLAY ANOTHER GAME (YES/NO)"
  110. 1170 INPUT H$
  111. 1180 IF LEFT$(H$,1)="Y" THEN 170
  112. 1190 IF LEFT$(H$,1)<>"N" THEN 1160
  113. 1200 STOP
  114. 1210  END
  115.