home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / CUBE.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  4.0 KB  |  160 lines
  1. 5   REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
  2. 100 PRINT"DO YOU WANT TO  SEE THE INSTRUCTIONS? (YES--1,NO--0)"
  3. 110 INPUT B7
  4. 120 IF B7=0 THEN 370
  5. 130 PRINT"THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE"
  6. 140 PRINT"RANDUM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A"
  7. 150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED"
  8. 160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1.  AT THE START,"
  9. 170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1.  THE OBJECT OF"
  10. 180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3.  ONE MINOR DETAIL,"
  11. 190 PRINT"THE COMPUTER WILL PICK,AT RANDUM,5 LOCATIONS AT  WHICH"
  12. 200 PRINT"IT WILL PLANT LAND MINES.  IF YOU HIT ONE OF  THESE LOCATIONS,"
  13. 210 PRINT"YOU LOSE.  ONE OTHER DETAIL, YOU MAY MOVE ONLY ONE SPACE "
  14. 220 PRINT"IN ONE DIRECTION EACH MOVE.  FOR  EXAMPLE: FROM 1,1,2 YOU"
  15. 230 PRINT"MAY  MOVE TO 2,1,2 OR 1,1,3.  YOU MAY NOT CHANGE"
  16. 240 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE.  IF YOU MAKE  AN ILLEGAL"
  17. 250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY"
  18. 260 PRINT"HAVE BET ON THAT ROUND."
  19. 270 PRINT
  20. 280 PRINT
  21. 290 PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES"
  22. 300 PRINT"OR A 0 (ZERO) FOR NO."
  23. 310 PRINT
  24. 320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
  25. 330 PRINT"OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH A"
  26. 340 PRINT"500  DOLLAR ACCOUNT."
  27. 350 PRINT
  28. 360 PRINT"GOOD LUCK"
  29. 370 LET A1=500
  30. 380 LET A=INT(3*(RND(X)))
  31. 390 IF A<>0 THEN 410
  32. 400 LET A=3
  33. 410 LETB=INT(3*(RND(X)))
  34. 420 IFB<>0THEN440
  35. 430 LET B=2
  36. 440 LETC=INT(3*(RND(X)))
  37. 450 IFC<>0THEN470
  38. 460  LETC=3
  39. 470 LETD=INT(3*(RND(X)))
  40. 480 IFD<>0THEN500
  41. 490 LETD=1
  42. 500 LETE=INT(3*(RND(X)))
  43. 510 IFE<>0THEN530
  44. 520 LETE=3
  45. 530 LETF=INT(3*(RND(X)))
  46. 540 IFF<>0THEN560
  47. 550 LETF=3
  48. 560 LETG=INT(3*(RND(X)))
  49. 570 IFG<>0THEN590
  50. 580 LETG=3
  51. 590 LETH=INT(3*(RND(X)))
  52. 600 IFH<>0THEN620
  53. 610 LETH=3
  54. 620 LETI=INT(3*(RND(X)))
  55. 630 IFI<>0THEN650
  56. 640 LETI=2
  57. 650 LETJ=INT(3*(RND(X)))
  58. 660 IFJ<>0THEN680
  59. 670 LETJ=3
  60. 680 LETK=INT(3*(RND(X)))
  61. 690 IFK<>0THEN710
  62. 700 LETK=2
  63. 710 LETL=INT(3*(RND(X)))
  64. 720 IFL<>0THEN740
  65. 730 LETL=3
  66. 740 LETM=INT(3*(RND(X)))
  67. 750 IFM<>0THEN770
  68. 760 LETM=3
  69. 770 LETN=INT(3*(RND(X)))
  70. 780 IFN<>0THEN800
  71. 790 LET N=1
  72. 800 LET O=INT(3*(RND(X)))
  73. 810 IF O <>0 THEN 830
  74. 820 LET O=3
  75. 830 PRINT "WANT TO MAKE A WAGER?"
  76. 840 INPUT Z
  77. 850 IF Z=0 THEN 920
  78. 860 PRINT "HOW MUCH?"
  79. 870 INPUT Z1
  80. 876 IF A1<Z1 THEN 1522
  81. 880 LET W=1
  82. 890 LET X=1
  83. 900 LET Y=1
  84. 910 PRINT
  85. 920 PRINT "ITS YOUR MOVE"
  86. 930 INPUT P,Q,R
  87. 940 IFP>W+1 THEN1030
  88. 950 IFP=W+1THEN1000
  89. 960 IFQ>X+1 THEN1030
  90. 970 IF Q=(X+1) THEN 1010
  91. 980 IF R >(Y+1)  THEN 1030
  92. 990 GOTO 1050
  93. 1000 IF Q>= X+1 THEN 1030
  94. 1010 IF R>=Y+1 THEN 1030
  95. 1020 GOTO 1050
  96. 1030 PRINT "ILLEGAL MOVE", "YOU LOSE"
  97. 1040 GOTO 1440
  98. 1050 LET W=P
  99. 1060 LET X=Q
  100. 1070 LET Y=R
  101. 1080 IF P=3 THEN 1100
  102. 1090 GOTO 1130
  103. 1100 IF  Q=3 THEN 1120
  104. 1110 GOTO 1130
  105. 1120 IF R=3 THEN 1530
  106. 1130 IF P=A THEN 1150
  107. 1140  GOTO 1180
  108. 1150 IF Q=B THEN 1170
  109. 1160 GOTO 1180
  110. 1170 IF R=C THEN1400
  111. 1180 IF P=D THEN 1200
  112. 1190 GOTO 1230
  113. 1200 IF Q=E THEN 1220
  114. 1210  GOTO 1230
  115. 1220 IF  R=F THEN 1400
  116. 1230 IF P=G THEN1250
  117. 1240 GOTO 1280
  118. 1250 IF Q=H THEN1270
  119. 1260 GOTO 1280
  120. 1270 IF R=ITHEN 1400
  121. 1280 IF P=J THEN 1300
  122. 1290 GOTO 1330
  123. 1300 IF Q=K THEN1320
  124. 1310 GOTO 1330
  125. 1320 IF R=L THEN 1440
  126. 1330 IF P=M THEN 1350
  127. 1340 GOTO 1380
  128. 1350 IF Q=N THEN 1370
  129. 1360 GOTO 1380
  130. 1370 IF R=O THEN1400
  131. 1380 PRINT "NEXT MOVE"
  132. 1390 GOTO 930
  133. 1400 PRINT"******BANG******"
  134. 1410 PRINT "YOU LOSE"
  135. 1420 PRINT
  136. 1430 PRINT
  137. 1440 IF   Z=0 THEN 1580
  138. 1450 PRINT
  139. 1460 LET Z2=A1-Z1
  140. 1470 IF Z2>0 THEN 1500
  141. 1480 PRINT "YOU BUST"
  142. 1490 GOTO 1610
  143. 1500 PRINT " YOU NOW HAVE"; Z2; "DOLLARS"
  144. 1510 LET A1=Z2
  145. 1520 GOTO 1580
  146. 1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
  147. 1525 GOTO 870
  148. 1530 PRINT"CONGRATULATIONS"
  149. 1540 IF Z=0 THEN  1580
  150. 1550  LET Z2=A1+Z1
  151. 1560  PRINT "YOU NOW  HAVE"; Z2;"DOLLARS"
  152. 1570 LET A1=Z2
  153. 1580 PRINT"DO YOU WANT TO TRY AGAIN?"
  154. 1590 INPUT S
  155. 1600 IF S=1 THEN  380
  156. 1610 PRINT "TOUGH LUCK"
  157. 1620 PRINT
  158. 1630 PRINT " GOODBYE"
  159. 1640 END
  160.