home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG003.ARK
/
CRAPS.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
4KB
|
169 lines
REM----------------------------------------------------------
REM C R A P S
REM----------------------------------------------------------
REM JUNE 9, 1977
DIM E(13), F(13)
PRINT "THIS IS THE GAME OF CRAPS"
PRINT "YOU AND THE COMPUTER PLAY A CRAP GAME"
PRINT "TO BET AGAINST YOURSELF BET MINUS (-) DOLLARS"
PRINT
PRINT " TO STOP PLAYING BET ZERO DOLLARS"
PRINT
PRINT " G O O D L U C K !!"
PRINT
100 PRINT "ENTER YOUR NAME PLEASE ";
INPUT NAME$
RANDOMIZE
PRINT
PRINT "THANKS, ";NAME$;". HERE WE GO!"
PRINT
PRINT
BUCKS=INT(250*RND)+50
PRINT " YOU HAVE $";BUCKS;" TO PLAY WITH."
Z=1
PRINT
PRINT "YOU ROLL FIRST . . ."
PRINT
IF Z=1 THEN GOTO 290
PRINT
240 PRINT "YOU NOW HAVE $";BUCKS
PRINT
IF BUCKS=0 THEN GOTO 650
PRINT "CHANGE THE DICE, TO THE LEFT."
PRINT
290 PRINT "HOW MUCH DO YOU BET ";
INPUT BET
IF BET=0 THEN GOTO 1030
IF BET>BUCKS THEN \
PRINT "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE." :\
GOTO 290
L=0
370 DIE1=INT(6*RND)+1
DIE2=INT(6*RND)+1
L=L+1
DICE=DIE1+DIE2
IF L>1 THEN GOTO 710
POINT=DICE
IF Z=2 THEN GOTO 810
IF POINT=2 THEN GOTO 510
IF POINT=3 THEN GOTO 510
IF POINT=7 THEN GOTO 550
IF POINT=11 THEN GOTO 550
IF POINT=12 THEN GOTO 510
PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" SO YOUR POINT IS ";POINT
GOTO 1060
510 PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND CRAP OUT . . ."
520 BUCKS=BUCKS-BET
IF BUCKS<=0 THEN GOTO 650 REM YOU LOSE
GOTO 590
550 PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND PASS . . ."
GOTO 580
570 PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND MAKE YOUR POINT . . ."
580 BUCKS=BUCKS+BET
590 IF BUCKS<=0 THEN GOTO 650 REM YOU LOSE
PRINT
PRINT "YOU NOW HAVE $";BUCKS
PRINT
GOTO 290
650 PRINT
PRINT
PRINT "YOU HAVE GONE BANKRUPT ----- YOU DING-A-LING!"
PRINT
PRINT
GOTO 1290
710 IF Z=2 THEN GOTO 920
IF DICE=POINT THEN GOTO 570
IF DICE=7 THEN GOTO 760
PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" SO ROLL AGAIN . . ."
GOTO 370
760 PRINT "YOU ROLL ";DIE1;" AND ";DIE2;" AND LOSE . . ."
Z=2
BUCKS=BUCKS-BET
IF BUCKS<=0 THEN GOTO 650 REM YOU LOSE
GOTO 240
810 IF POINT=2 THEN GOTO 880
IF POINT=3 THEN GOTO 880
IF POINT=7 THEN GOTO 900
IF POINT=11 THEN GOTO 900
IF POINT=12 THEN GOTO 880
PRINT " I ROLL ";DIE1;" AND ";DIE2;" SO MY POINT IS ";POINT
GOTO 1060
880 PRINT " I ROLL ";DIE1;" AND ";DIE2;" AND CRAP OUT . . ."
GOTO 580
900 PRINT " I ROLL ";DIE1;" AND ";DIE2;" AND PASS . . ."
GOTO 520
920 IF DICE=POINT THEN GOTO 1010
IF DICE=7 THEN GOTO 960
PRINT " I ROLL ";DIE1;" AND ";DIE2;" SO ROLL AGAIN . . ."
GOTO 370
960 PRINT " I ROLL ";DIE1;" AND ";DIE2;" AND LOSE . . ."
BUCKS=BUCKS+BET
IF BUCKS<=0 THEN GOTO 650
Z=1
GOTO 240
1010 PRINT " I ROLL ";DIE1;" AND ";DIE2;" AND MAKE MY POINT . . ."
GOTO 520
1030 PRINT
PRINT "THANKS FOR PLAYING THE GAME. MY CONGRATULATIONS FOR"
PRINT "BEING ABLE TO QUIT WHILE YOU WERE AHEAD."
GOTO 1390
1060 IF POINT=4 THEN GOTO 1110
IF POINT=6 THEN GOTO 1170
IF POINT=8 THEN GOTO 1200
IF POINT=10 THEN GOTO 1260
GOTO 370
1110 W=2
U=7
1130 PRINT
PRINT "THE ODDS ARE 8:1 YOU CAN'T MAKE IT THE HARD WAY!"
GOTO 370
1170 W=3
U=7
GOTO 1130
1200 W=4
U=7
1220 PRINT
PRINT "THE ODDS ARE 10:1 YOU CAN'T MAKE IT THE HARD WAY!"
PRINT
GOTO 370
1260 W=5
U=7
GOTO 1220
1290 PRINT
PRINT
PRINT " WOULD YOU LIKE TO PLAY ANOTHER GAME ";
INPUT ANS$
IF LEFT$(ANS$,1)="Y" OR LEFT$(ANS$,1)="y" THEN \
GOTO 1360 :\
ELSE \
GOTO 1390
1360 PRINT
PRINT
GOTO 100
1390 PRINT
PRINT
PRINT " THIS IS LAS VEGAS,"
PRINT " SIGNING OFF."