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