147 lines
4.6 KiB
QBasic
147 lines
4.6 KiB
QBasic
100 REM SOURCE UNKNOWN: REVISED BY D. KURLAND 11/16/75
|
||
110 PRINT " ------ C - R - A - P - S ------"
|
||
120 PRINT "DO YOU KNOW HOW TO PLAY";
|
||
130 INPUT T$
|
||
140 IF T$="YES" OR T$="Y" THEN 270
|
||
150 PRINT "YOU ARE NOW ENTERING THE CASINO UNIVAC 1108 LOCATED"
|
||
160 PRINT "IN DOWNTOWN LAS VEGAS. YOU'VE JUST WON $25000 FROM THE"
|
||
170 PRINT "READERS DIGEST SWEEPSTAKES, AND ARE FEELING FREE AND"
|
||
180 PRINT "EASY. YOUR KEEN EYES LOCATE A CRAP TABLE. THE GREEN"
|
||
190 PRINT "FELT LOOKS VERY INVITING. YOU SEE A GIRL IN A"
|
||
200 PRINT "PLAYBOY BUNNY OUTFIT. SHE DECIDES TO START A CONVER-"
|
||
210 PRINT "SATION WITH YOU."
|
||
220 PRINT
|
||
230 PRINT "HI THERE, I AM THE ONE AND ONLY MISS TELETYPE. I'M SINGLE"
|
||
240 PRINT "AND LONELY. I'M ALSO THE DIRTIEST DICE THROWER THIS SIDE"
|
||
250 PRINT "OF IBM."
|
||
260 PRINT
|
||
270 PRINT "WHAT IS YOUR NAME";
|
||
280 INPUT T$
|
||
290 PRINT "HOW ABOUT IT, ";T$
|
||
300 PRINT "WANT TO TRY YOUR LUCK";
|
||
310 INPUT R$
|
||
320 IF R$="NO" OR R$="N" THEN 1250
|
||
330 PRINT "HERE'S YOUR SELECTION OF DICE:"
|
||
340 PRINT
|
||
350 PRINT " 1. BUNNY BLUE "
|
||
360 PRINT " 2. GROSS GREEN "
|
||
370 PRINT " 3. UNIVAC YELLOW "
|
||
380 X=25000
|
||
390 PRINT "PLEASE INPUT ONLY ONE NUMBER, HONEY";
|
||
400 INPUT F
|
||
410 IF F=1 THEN 440
|
||
420 IF F=2 THEN 460
|
||
430 IF F=3 THEN 480
|
||
440 PRINT "I SEE YOU'RE THE SEXY TYPE"
|
||
450 GOTO 490
|
||
460 PRINT "I SEE YOU'RE A REALLY BIG SPENDER"
|
||
470 GOTO 490
|
||
480 PRINT "SO YOU'RE THE CONSERVATIVE TYPE"
|
||
490 PRINT "NOW YOU HAVE YOUR OWN COLORED DICE. YOU'VE GOT $25000"
|
||
500 PRINT "AND BEST OF ALL YOU ARE SITTING NEXT TO A PLAYBOY BUNNY"
|
||
510 PRINT
|
||
520 PRINT "MISS TELETYPE SAYS, BETS PLEASE"
|
||
530 PRINT "AND HOW MUCH IS OUR READERS DIGEST WINNER GOING TO WAGER"
|
||
540 PRINT "YOU HAVE GOT A MAXIMUM OF";X
|
||
550 INPUT A
|
||
560 IF A>X THEN 540
|
||
570 IF A<0 THEN 1520
|
||
580 IF A<=100 THEN 600
|
||
590 IF A>=1000 THEN 660
|
||
600 PRINT "BOY, WHAT A CHEAPSKATE"
|
||
610 GOTO 670
|
||
620 PRINT "THAT'S A GOOD HONEST BET"
|
||
630 GOTO 670
|
||
640 PRINT "NOW YOU ARE IN BUSINESS, LOVER"
|
||
650 GOTO 670
|
||
660 PRINT "WHAT A SPENDER, LOVER, AND ALTOGETHER KOOL PERSON"
|
||
670 W=0
|
||
680 W=W+1
|
||
690 PRINT "YOU'RE NOW SHAKING YOUR DICE"
|
||
700 PRINT "YOU BLOW ON THEM FOR LUCK"
|
||
710 PRINT "YOU ROLL THEM"
|
||
720 R=INT (RND(1)*10)+1
|
||
730 IF R>6 THEN 720
|
||
740 Z=INT (RND(1)*10)+1
|
||
750 IF Z>6 THEN 740
|
||
760 PRINT "YOU'RE THROW WAS";R+Z
|
||
770 PRINT
|
||
780 IF W=1 THEN 820
|
||
790 IF R+Z=7 OR R+Z=11 THEN 900
|
||
800 IF R+Z=F THEN 920
|
||
810 GOTO 850
|
||
820 F=R+Z
|
||
830 IF F=7 OR F=11 THEN 870
|
||
840 IF F=2 OR F=3 OR F=12 THEN 900
|
||
850 PRINT "MUST SHAKE AGAIN. YOU HAVE NEITHER WON NOR LOST"
|
||
860 GOTO 1180
|
||
870 PRINT "YOU HAVE JUST DOUBLED YOUR BET"
|
||
880 PRINT "YOU HAVE WON $";2*A
|
||
890 GOTO 950
|
||
900 PRINT "YOU HAVE LOST WHAT YOU BET"
|
||
910 GOTO 1030
|
||
920 PRINT "YOU HAVE JUST WON YOUR BET"
|
||
930 PRINT "YOU HAVE WON $";A
|
||
940 GOTO 990
|
||
950 X=X+2*A
|
||
960 PRINT "YOUR TOTAL IS NOW $";X
|
||
970 IF X<0 THEN 1080
|
||
980 GOTO 1100
|
||
990 X = X+A
|
||
1000 PRINT "YOUR TOTAL IS NOW $";X
|
||
1010 IF X<0 THEN 1080
|
||
1020 GOTO 1060
|
||
1030 PRINT "YOU LOST $";A
|
||
1040 X=X-A
|
||
1050 PRINT "YOUR TOTAL IS NOW $"X
|
||
1060 IF X<0 THEN 1080
|
||
1070 GOTO 1100
|
||
1080 PRINT "YOU OWE MISS TELETYPE $";X
|
||
1090 GOTO 1480
|
||
1100 PRINT
|
||
1110 IF X<0 THEN 1080
|
||
1120 PRINT
|
||
1130 PRINT
|
||
1140 PRINT "DO YOU WANT TO TRY AGAIN";
|
||
1150 INPUT P$
|
||
1160 IF X<0 THEN 1080
|
||
1170 IF P$="NO" OR P$="N" THEN 1490 ELSE 540
|
||
1180 IF W>6 THEN 1230
|
||
1190 IF W=6 THEN 1250
|
||
1200 IF W=4 THEN 1460
|
||
1210 IF W=5 THEN 1270
|
||
1220 GOTO 1290
|
||
1230 PRINT "THIS IS THE TIME FOR A KILLING, ";T$
|
||
1240 GOTO 1290
|
||
1250 PRINT "THE ODDS ARE GETTING BETTER YET"
|
||
1260 GOTO 1290
|
||
1270 PRINT "THE ODDS ARE COMIN IN YOURE FAVOR, BABY. BET A LITTLE MORE"
|
||
1280 PRINT
|
||
1290 PRINT "DO YOU WISH TO INCREASE YOUR BET, ";T$;
|
||
1300 INPUT D$
|
||
1310 IF D$="NO" OR D$="N" THEN 680
|
||
1320 IF X-A>0 THEN 1370
|
||
1330 IF X-A<0 THEN 1350
|
||
1340 IF X-A=0 THEN 1390
|
||
1350 PRINT "LISTEN, HONEY. YOU OWE ME $"X
|
||
1360 PRINT
|
||
1370 PRINT "HOW MUCH DO YOU WISH TO INCREASE YOUR WAGER BY, ";T$
|
||
1380 GOTO 1410
|
||
1390 PRINT "YOU HAVE NO MONEY TO BET WITH. YOU MUST HOPE FOR THE BEST"
|
||
1400 GOTO 680
|
||
1410 PRINT
|
||
1420 PRINT "YOU'VE GOT $";X-A;"TO BET WITH."
|
||
1430 INPUT Z
|
||
1440 A=A+Z
|
||
1450 GOTO 680
|
||
1460 PRINT "DO OR DIE SPEND IT RIGHT NOW, ";T$
|
||
1470 GOTO 1370
|
||
1480 PRINT "CREDIT NOT GOOD IN THIS CASINO"
|
||
1490 PRINT "YOUR TOTAL IS $";X
|
||
1500 PRINT "THANK YOU FOR COMING TO THE CASINO UNIVAC 1108"
|
||
1510 GOTO 1540
|
||
1520 PRINT "YOU MUST BET A POSITIVE VALUE"
|
||
1530 GOTO 540
|
||
1540 END
|
||
MING TO THE CASINO UNIVAC 1108"
|
||
1510 |