ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

135 lines
2.8 KiB

  1. 10 PRINT TAB(30);"SLOTS"
  2. 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  3. 30 PRINT: PRINT: PRINT
  4. 100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN 29, 1973
  5. 110 REM IT SIMULATES THE SLOT MACHINE.
  6. 120 PRINT "YOU ARE IN THE H&M CASINO,IN FRONT OF ONE OF OUR"
  7. 130 PRINT "ONE-ARM BANDITS. BET FROM $1 TO $100."
  8. 140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET."
  9. 150 LET P=0
  10. 160 PRINT: PRINT"YOUR BET";
  11. 170 INPUT M
  12. 180 IF M>100 THEN 860
  13. 190 IF M<1 THEN 880
  14. 200 M=INT(M)
  15. 210 GOSUB 1270
  16. 220 PRINT
  17. 230 LET X=INT(6*RND(1)+1)
  18. 240 LET Y=INT(6*RND(1)+1)
  19. 250 LET Z=INT(6*RND(1)+1)
  20. 260 PRINT
  21. 270 IF X=1 THEN 910
  22. 280 IF X=2 THEN 930
  23. 290 IF X=3 THEN 950
  24. 300 IF X=4 THEN 970
  25. 310 IF X=5 THEN 990
  26. 320 IF X=6 THEN 1010
  27. 330 IF Y=1 THEN 1030
  28. 340 IF Y=2 THEN 1050
  29. 350 IF Y=3 THEN 1070
  30. 360 IF Y=4 THEN 1090
  31. 370 IF Y=5 THEN 1110
  32. 380 IF Y=6 THEN 1130
  33. 390 IF Z=1 THEN 1150
  34. 400 IF Z=2 THEN 1170
  35. 410 IF Z=3 THEN 1190
  36. 420 IF Z=4 THEN 1210
  37. 430 IF Z=5 THEN 1230
  38. 440 IF Z=6 THEN 1250
  39. 450 IF X=Y THEN 600
  40. 460 IF X=Z THEN 630
  41. 470 IF Y=Z THEN 650
  42. 480 PRINT
  43. 490 PRINT "YOU LOST."
  44. 500 LET P=P-M
  45. 510 PRINT "YOUR STANDINGS ARE $";P
  46. 520 PRINT "AGAIN";
  47. 530 INPUT A$
  48. 540 IF A$="Y" THEN 160
  49. 550 PRINT
  50. 560 IF P<0 THEN 670
  51. 570 IF P=0 THEN 690
  52. 580 IF P>0 THEN 710
  53. 590 GOTO 1350
  54. 600 IF Y=Z THEN 730
  55. 610 IF Y=1 THEN 820
  56. 620 GOTO 1341
  57. 630 IF Z=1 THEN 820
  58. 640 GOTO 470
  59. 650 IF Z=1 THEN 820
  60. 660 GOTO 1341
  61. 670 PRINT "PAY UP! PLEASE LEAVE YOUR MONEY ON THE TERMINAL."
  62. 680 GOTO 1350
  63. 690 PRINT"HEY, YOU BROKE EVEN."
  64. 700 GOTO 1350
  65. 710 PRINT "COLLECT YOUR WINNINGS FROM THE H&M CASHIER."
  66. 720 GOTO 1350
  67. 730 IF Z=1 THEN 780
  68. 740 PRINT: PRINT"**TOP DOLLAR**"
  69. 750 PRINT "YOU WON!"
  70. 760 P=(((10*M)+M)+P)
  71. 770 GOTO 510
  72. 780 PRINT:PRINT"***JACKPOT***"
  73. 790 PRINT "YOU WON!"
  74. 800 P=(((100*M)+M)+P)
  75. 810 GOTO 510
  76. 820 PRINT:PRINT"*DOUBLE BAR*"
  77. 830 PRINT"YOU WON!"
  78. 840 P=(((5*M)+M)+P)
  79. 850 GOTO 510
  80. 860 PRINT"HOUSE LIMITS ARE $100"
  81. 870 GOTO 160
  82. 880 PRINT"MINIMUM BET IS $1"
  83. 890 GOTO 160
  84. 900 GOTO 220
  85. 910 PRINT"BAR";:GOSUB 1310
  86. 920 GOTO 330
  87. 930 PRINT"BELL";:GOSUB 1310
  88. 940 GOTO 330
  89. 950 PRINT"ORANGE";:GOSUB 1310
  90. 960 GOTO 330
  91. 970 PRINT"LEMON";:GOSUB 1310
  92. 980 GOTO 330
  93. 990 PRINT"PLUM";:GOSUB 1310
  94. 1000 GOTO 330
  95. 1010 PRINT"CHERRY";:GOSUB 1310
  96. 1020 GOTO 330
  97. 1030 PRINT" BAR";:GOSUB 1310
  98. 1040 GOTO 390
  99. 1050 PRINT" BELL";:GOSUB 1310
  100. 1060 GOTO 390
  101. 1070 PRINT" ORANGE";:GOSUB 1310
  102. 1080 GOTO 390
  103. 1090 PRINT" LEMON";:GOSUB 1310
  104. 1100 GOTO 390
  105. 1110 PRINT" PLUM";:GOSUB 1310
  106. 1120 GOTO 390
  107. 1130 PRINT" CHERRY";:GOSUB 1310
  108. 1140 GOTO 390
  109. 1150 PRINT" BAR"
  110. 1160 GOTO 450
  111. 1170 PRINT" BELL"
  112. 1180 GOTO 450
  113. 1190 PRINT" ORANGE"
  114. 1200 GOTO 450
  115. 1210 PRINT" LEMON"
  116. 1220 GOTO 450
  117. 1230 PRINT" PLUM"
  118. 1240 GOTO 450
  119. 1250 PRINT" CHERRY"
  120. 1260 GOTO 450
  121. 1270 FOR Q4=1 TO 10
  122. 1280 PRINT CHR$(7);
  123. 1290 NEXT Q4
  124. 1300 RETURN
  125. 1310 FOR T8=1 TO 5
  126. 1320 PRINT CHR$(7);
  127. 1330 NEXT T8
  128. 1340 RETURN
  129. 1341 PRINT: PRINT "DOUBLE!!"
  130. 1342 PRINT"YOU WON!"
  131. 1343 P=(((2*M)+M)+P)
  132. 1344 GOTO 510
  133. 1350 STOP
  134. 9999 END