home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / CRAPS.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  3.8 KB  |  151 lines
  1.     REM----------------------------------------------------------
  2.     REM    C  R  A  P  S
  3.     REM----------------------------------------------------------
  4.  
  5.     REM        JUNE 9, 1977
  6.  
  7.     DIM E(13), F(13)
  8.     PRINT "THIS IS THE GAME OF CRAPS"
  9.     PRINT "YOU AND THE COMPUTER PLAY A CRAP GAME"
  10.     PRINT "TO BET AGAINST YOURSELF BET MINUS (-) DOLLARS"
  11.     PRINT 
  12.     PRINT "   TO STOP PLAYING BET ZERO DOLLARS"
  13.     PRINT
  14.     PRINT "                G O O D    L U C K !!"
  15.     PRINT
  16. 100    PRINT "ENTER YOUR NAME PLEASE  ";
  17.     INPUT NAME$
  18.     RANDOMIZE
  19.     PRINT 
  20.     PRINT "THANKS, ";NAME$;".  HERE WE GO!"
  21.     PRINT
  22.     PRINT
  23.     BUCKS=INT(250*RND)+50
  24.     PRINT "    YOU HAVE $";BUCKS;" TO PLAY WITH."
  25.     Z=1
  26.     PRINT
  27.     PRINT "YOU ROLL FIRST . . ."
  28.     PRINT
  29.     IF Z=1 THEN GOTO 290
  30.     PRINT
  31. 240    PRINT "YOU NOW HAVE $";BUCKS
  32.     PRINT
  33.     IF BUCKS=0 THEN GOTO 650
  34.     PRINT "CHANGE THE DICE, TO THE LEFT."
  35.     PRINT
  36. 290    PRINT "HOW MUCH DO YOU BET ";
  37.     INPUT BET
  38.     IF BET=0 THEN GOTO 1030
  39.     IF BET>BUCKS THEN \
  40.         PRINT "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE." :\
  41.         GOTO 290
  42.     L=0
  43. 370    DIE1=INT(6*RND)+1
  44.     DIE2=INT(6*RND)+1
  45.     L=L+1
  46.     DICE=DIE1+DIE2
  47.     IF L>1 THEN GOTO 710
  48.     POINT=DICE
  49.     IF Z=2 THEN GOTO 810
  50.     IF POINT=2 THEN GOTO 510
  51.     IF POINT=3 THEN GOTO 510
  52.     IF POINT=7 THEN GOTO 550
  53.     IF POINT=11 THEN GOTO 550
  54.     IF POINT=12 THEN GOTO 510
  55.     PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" SO YOUR POINT IS ";POINT
  56.     GOTO 1060
  57.  
  58. 510    PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND CRAP OUT . . ."
  59. 520    BUCKS=BUCKS-BET
  60.     IF BUCKS<=0 THEN GOTO 650    REM YOU LOSE
  61.     GOTO 590
  62.  
  63. 550    PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND PASS . . ."
  64.     GOTO 580
  65.  
  66. 570    PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND MAKE YOUR POINT . . ."
  67. 580    BUCKS=BUCKS+BET
  68. 590    IF BUCKS<=0 THEN GOTO 650    REM YOU LOSE 
  69.     PRINT
  70.     PRINT "YOU NOW HAVE $";BUCKS
  71.     PRINT
  72.     GOTO 290
  73.  
  74. 650    PRINT
  75.     PRINT
  76.     PRINT "YOU HAVE GONE BANKRUPT ----- YOU DING-A-LING!"
  77.     PRINT
  78.     PRINT
  79.     GOTO 1290
  80.  
  81. 710    IF Z=2 THEN GOTO 920
  82.     IF DICE=POINT THEN GOTO 570
  83.     IF DICE=7 THEN GOTO 760
  84.     PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" SO ROLL AGAIN . . ."
  85.     GOTO 370
  86.  
  87. 760    PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND LOSE . . ."
  88.     Z=2
  89.     BUCKS=BUCKS-BET
  90.     IF BUCKS<=0 THEN GOTO 650    REM YOU LOSE
  91.     GOTO 240
  92.  
  93. 810    IF POINT=2 THEN GOTO 880
  94.     IF POINT=3 THEN GOTO 880
  95.     IF POINT=7 THEN GOTO 900
  96.     IF POINT=11 THEN GOTO 900
  97.     IF POINT=12 THEN GOTO 880
  98.     PRINT "  I ROLL ";DIE1;" AND ";DIE2;" SO MY POINT IS ";POINT
  99.     GOTO 1060
  100.  
  101. 880    PRINT "  I ROLL ";DIE1;" AND ";DIE2;" AND CRAP OUT . . ."
  102.     GOTO 580
  103.  
  104. 900    PRINT "  I ROLL ";DIE1;" AND ";DIE2;" AND PASS . . ."
  105.     GOTO 520
  106.  
  107. 920    IF DICE=POINT THEN GOTO 1010
  108.     IF DICE=7 THEN GOTO 960
  109.     PRINT "  I ROLL ";DIE1;" AND ";DIE2;" SO ROLL AGAIN . . ."
  110.     GOTO 370
  111.  
  112. 960    PRINT "  I ROLL ";DIE1;" AND ";DIE2;" AND LOSE . . ."
  113.     BUCKS=BUCKS+BET
  114.     IF BUCKS<=0 THEN GOTO 650
  115.     Z=1
  116.     GOTO 240
  117.  
  118. 1010    PRINT "  I ROLL ";DIE1;" AND ";DIE2;" AND MAKE MY POINT . . ."
  119.     GOTO 520
  120.  
  121. 1030    PRINT
  122.     PRINT "THANKS FOR PLAYING THE GAME.  MY CONGRATULATIONS FOR"
  123.     PRINT "BEING ABLE TO QUIT WHILE YOU WERE AHEAD."
  124.     GOTO 1390
  125.  
  126. 1060    IF POINT=4 THEN GOTO 1110
  127.     IF POINT=6 THEN GOTO    REM =      CORE
  128.     REM            FIND SPACE AVAILABLE
  129.     F=FRE
  130.     K=8*4096
  131.     PRINT K;" BYTES RAM"
  132.     PRINT F;" BYTES FREE SPACE"
  133.     S=K-F
  134.     PRINT S;" BYTES SYSTEM"
  135.     END
  136.                 NEXT X
  137.                         FOR X=T TO 1 STEP -1
  138.                         C=C/X    REM DIVIDE BY T!
  139.                         NEXT X
  140.            PRINT:PRINT
  141.            PRINT N;" THINGS TAKEN ";T; " AT A TIME HAVE "; \
  142.                      GOTO 1390
  143.  
  144. 1360    PRINT
  145.     PRINT
  146.     GOTO 100
  147. 1390    PRINT
  148.     PRINT
  149.     PRINT "                THIS IS LAS VEGAS,"
  150.     PRINT "                      SIGNING OFF."
  151.