home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug026.ark / CRAPS.ASC < prev    next >
Text File  |  1984-04-29  |  5KB  |  146 lines
  1. 100  REM SOURCE UNKNOWN:  REVISED BY D. KURLAND  11/16/75 
  2. 110  PRINT "   ------ C - R - A - P - S ------"   
  3. 120  PRINT "DO YOU KNOW HOW TO PLAY"; 
  4. 130  INPUT T$ 
  5. 140  IF T$="YES" OR T$="Y" THEN 270
  6. 150 PRINT "YOU ARE NOW ENTERING THE CASINO UNIVAC 1108 LOCATED"  
  7. 160 PRINT "IN DOWNTOWN LAS VEGAS. YOU'VE JUST WON $25000 FROM THE"   
  8. 170 PRINT "READERS DIGEST SWEEPSTAKES, AND ARE FEELING FREE AND" 
  9. 180 PRINT "EASY.  YOUR KEEN EYES LOCATE A CRAP TABLE.  THE GREEN"
  10. 190 PRINT "FELT LOOKS VERY INVITING.  YOU SEE A GIRL IN A"   
  11. 200 PRINT "PLAYBOY BUNNY OUTFIT.  SHE DECIDES TO START A CONVER-"
  12. 210 PRINT "SATION WITH YOU." 
  13. 220 PRINT
  14. 230 PRINT "HI THERE, I AM THE ONE AND ONLY MISS TELETYPE.  I'M SINGLE"   
  15. 240 PRINT "AND LONELY.  I'M ALSO THE DIRTIEST DICE THROWER THIS SIDE"
  16. 250 PRINT "OF IBM."  
  17. 260 PRINT
  18. 270 PRINT "WHAT IS YOUR NAME";   
  19. 280 INPUT T$ 
  20. 290 PRINT "HOW ABOUT IT, ";T$
  21. 300 PRINT "WANT TO TRY YOUR LUCK";   
  22. 310 INPUT R$ 
  23. 320 IF R$="NO" OR R$="N" THEN 1250
  24. 330 PRINT "HERE'S YOUR SELECTION OF DICE:"   
  25. 340 PRINT
  26. 350 PRINT "       1. BUNNY BLUE "
  27. 360 PRINT "       2. GROSS GREEN "   
  28. 370 PRINT "       3. UNIVAC YELLOW " 
  29. 380  X=25000 
  30. 390 PRINT "PLEASE INPUT ONLY ONE NUMBER, HONEY"; 
  31. 400 INPUT F  
  32. 410 IF F=1 THEN 440   
  33. 420 IF F=2 THEN 460   
  34. 430 IF F=3 THEN 480   
  35. 440 PRINT "I SEE YOU'RE THE SEXY TYPE"   
  36. 450 GOTO 490 
  37. 460 PRINT "I SEE YOU'RE A REALLY BIG SPENDER"
  38. 470 GOTO 490 
  39. 480 PRINT "SO YOU'RE THE CONSERVATIVE TYPE"  
  40. 490 PRINT "NOW YOU HAVE YOUR OWN COLORED DICE.  YOU'VE GOT $25000"   
  41. 500 PRINT "AND BEST OF ALL YOU ARE SITTING NEXT TO A PLAYBOY BUNNY"  
  42. 510 PRINT
  43. 520 PRINT "MISS TELETYPE SAYS, BETS PLEASE"  
  44. 530 PRINT "AND HOW MUCH IS OUR READERS DIGEST WINNER GOING TO WAGER" 
  45. 540 PRINT "YOU HAVE GOT A MAXIMUM OF";X  
  46. 550 INPUT A  
  47. 560 IF A>X THEN 540   
  48. 570 IF A<0 THEN 1520  
  49. 580 IF A<=100 THEN 600
  50. 590 IF A>=1000 THEN 660   
  51. 600 PRINT "BOY, WHAT A CHEAPSKATE"   
  52. 610 GOTO 670 
  53. 620 PRINT "THAT'S A GOOD HONEST BET" 
  54. 630 GOTO 670 
  55. 640 PRINT "NOW YOU ARE IN BUSINESS, LOVER"   
  56. 650 GOTO 670 
  57. 660 PRINT "WHAT A SPENDER, LOVER, AND ALTOGETHER KOOL PERSON"
  58. 670 W=0  
  59. 680 W=W+1
  60. 690 PRINT "YOU'RE NOW SHAKING YOUR DICE"
  61. 700 PRINT "YOU BLOW ON THEM FOR LUCK"   
  62. 710 PRINT "YOU ROLL THEM"   
  63. 720 R=INT (RND(1)*10)+1 
  64. 730 IF R>6 THEN 720 
  65. 740 Z=INT (RND(1)*10)+1 
  66. 750 IF Z>6 THEN 740 
  67. 760 PRINT "YOU'RE THROW WAS";R+Z
  68. 770 PRINT   
  69. 780 IF W=1 THEN 820 
  70. 790 IF R+Z=7 OR R+Z=11 THEN 900 
  71. 800 IF R+Z=F THEN 920   
  72. 810 GOTO 850   
  73. 820 F=R+Z   
  74. 830 IF F=7 OR F=11 THEN 870 
  75. 840 IF F=2 OR F=3 OR F=12 THEN 900  
  76. 850 PRINT "MUST SHAKE AGAIN.  YOU HAVE NEITHER WON NOR LOST"
  77. 860 GOTO 1180   
  78. 870 PRINT "YOU HAVE JUST DOUBLED YOUR BET"  
  79. 880 PRINT "YOU HAVE WON $";2*A  
  80. 890 GOTO 950   
  81. 900 PRINT "YOU HAVE LOST WHAT YOU BET"  
  82. 910 GOTO 1030   
  83. 920 PRINT "YOU HAVE JUST WON YOUR BET"  
  84. 930 PRINT "YOU HAVE WON $";A
  85. 940 GOTO 990   
  86. 950 X=X+2*A 
  87. 960 PRINT "YOUR TOTAL IS NOW $";X   
  88. 970 IF X<0 THEN 1080 
  89. 980 GOTO 1100   
  90. 990 X = X+A 
  91. 1000 PRINT "YOUR TOTAL IS NOW $";X   
  92. 1010 IF X<0 THEN 1080 
  93. 1020 GOTO 1060   
  94. 1030 PRINT "YOU LOST $";A
  95. 1040 X=X-A   
  96. 1050 PRINT "YOUR TOTAL IS NOW $"X
  97. 1060 IF X<0 THEN 1080 
  98. 1070 GOTO 1100   
  99. 1080 PRINT "YOU OWE MISS TELETYPE $";X   
  100. 1090 GOTO 1480   
  101. 1100 PRINT   
  102. 1110 IF X<0 THEN 1080 
  103. 1120 PRINT   
  104. 1130 PRINT   
  105. 1140 PRINT "DO YOU WANT TO TRY AGAIN";   
  106. 1150 INPUT P$
  107. 1160 IF X<0 THEN 1080 
  108. 1170 IF P$="NO" OR P$="N" THEN 1490 ELSE 540   
  109. 1180 IF W>6 THEN 1230 
  110. 1190 IF W=6 THEN 1250 
  111. 1200 IF W=4 THEN 1460 
  112. 1210 IF W=5 THEN 1270 
  113. 1220 GOTO 1290   
  114. 1230 PRINT "THIS IS THE TIME FOR A KILLING, ";T$ 
  115. 1240 GOTO 1290   
  116. 1250 PRINT "THE ODDS ARE GETTING BETTER YET" 
  117. 1260 GOTO 1290   
  118. 1270 PRINT "THE ODDS ARE COMIN IN YOURE FAVOR, BABY.  BET A LITTLE MORE" 
  119. 1280 PRINT   
  120. 1290 PRINT "DO YOU WISH TO INCREASE YOUR BET, ";T$;  
  121. 1300 INPUT D$
  122. 1310 IF D$="NO" OR D$="N" THEN 680
  123. 1320 IF X-A>0 THEN 1370   
  124. 1330 IF X-A<0 THEN 1350   
  125. 1340 IF X-A=0 THEN 1390   
  126. 1350 PRINT "LISTEN, HONEY.  YOU OWE ME $"X   
  127. 1360 PRINT   
  128. 1370 PRINT "HOW MUCH DO YOU WISH TO INCREASE YOUR WAGER BY, ";T$ 
  129. 1380 GOTO 1410   
  130. 1390 PRINT "YOU HAVE NO MONEY TO BET WITH.  YOU MUST HOPE FOR THE BEST"  
  131. 1400 GOTO 680 
  132. 1410 PRINT   
  133. 1420 PRINT "YOU'VE GOT $";X-A;"TO BET WITH." 
  134. 1430 INPUT Z 
  135. 1440  A=A+Z  
  136. 1450 GOTO 680
  137. 1460 PRINT "DO OR DIE SPEND IT RIGHT NOW, ";T$   
  138. 1470 GOTO 1370   
  139. 1480 PRINT "CREDIT NOT GOOD IN THIS CASINO"  
  140. 1490 PRINT "YOUR TOTAL IS $";X   
  141. 1500 PRINT "THANK YOU FOR COMING TO  THE CASINO UNIVAC 1108" 
  142. 1510 GOTO 1540   
  143. 1520 PRINT "YOU MUST BET A POSITIVE VALUE"   
  144. 1530 GOTO 540
  145. 1540 END 
  146.