10 REM THIS IS THE CRAP GAME PROGRAM   1/22/81 VERSION
20 DIM E$(13), F$(13),D$(3)
30 PRINT "1/22/81 VERSION OF       *** CRAP GAME ***"
40 PRINT
40 PRINT "YOU PLAY AGAINST THE COMPUTER; MAY THE BEST MAN WIN!"
50 PRINT "TO BET, ENTER AMOUNT AS (-) DOLLARS"
60 PRINT
70 PRINT "TO STOP THE GAME, BET 0 DOLLARS"
80 PRINT
90 PRINT
100 PRINT "WHAT NUMBER BETWEEN 1 AND 711 IS LUCKY FOR YOU TODAY?"
110 INPUT A
120 PRINT
130 IF A<1 THEN 100
140 IF A>711 THEN 100
150 RANDOMIZE
152 LET X=RND-A
160 LET Y=INT(250*X)+50
170 PRINT "GOOD... YOU HAVE ";Y;" DOLLARS TO PLAY WITH"
180 Z=1
190 PRINT
200 PRINT "YOU ROLL FIRST"
210 PRINT
220 IF Z=1 THEN 290
230 PRINT
240 PRINT "YOU NOW HAVE ";Y;" DOLLARS"
250 PRINT 
260 IF Y=0 THEN 650
270 PRINT "CHANGE THE DICE, TO THE LEFT"
280 PRINT
290 PRINT "HOW MUCH DO YOU BET?"
300 INPUT B
310 IF B=0 THEN 1030
320 IF B<Y THEN 350
330 L=0
340 GO TO 370
350 PRINT "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE!"
360 GO TO 290
370 LET C=INT(6*RND-1)+1
380 LET D=INT(6*RND-4)+1
390 LET L=L+1
400 F=C+D
405 REM BEGINNING OF SECOND PAGE
410 IF L>1 THEN 710
420 E=C+D
430 IF Z=2 THEN 810
440 IF E=2 THEN 510
450 IF E=3 THEN 510
460 IF E=7 THEN 550
470 IF E=11 THEN 550
480 IF E=12 THEN 510
490 PRINT "YOU ROLL ";C;" AND ";D;", SO YOUR POINT IS";E
500 GO TO 1060
510 PRINT "YOU ROLL ";C;" AND ";D;", AND CRAP OUT..."
520 LET Y=Y-B
530 IF Y=0 THEN 650
540 GO TO 590
550 PRINT "YOU ROLL ";C;" AND ";D;" AND PASS..."
560 GO TO 580
570 PRINT "YOU ROLL ";C;" AND ";D;" AND MAKE YOUR POINT..."
580 LET Y=Y+B
590 IF Y=0 THEN 650
600 PRINT
610 PRINT " YOU NOW HAVE ";Y;" DOLLARS"
620 PRINT
630 GO TO 290
640 PRINT
650 PRINT
660 PRINT
670 PRINT "YOU HAVE GONE BANKRUPT..... SORRY ABOUT THAT."
680 PRINT
690 PRINT
700 GO TO 1290
710 IF Z=2 THEN 920
720 IF F=E THEN 570
730 IF F=7 THEN 760
740 PRINT "YOU ROLL ";C;" AND ";D;" ...ROLL AGAIN."
750 GO TO 370
760 PRINT "YOU ROLL ";C;" AND ";D;" AND LOSE..."
770 LET Z=2
780 LET Y=Y-B
790 IF Y=0 THEN 650
800 GO TO 240
810 IF E=2 THEN 880
820 IF E=3 THEN 880
830 IF E=7 THEN 900
840 IF E=11 THEN 900
850 IF E=12 THEN 880
860 PRINT "  I ROLL ";C;" AND ";D;" , SO MY POINT IS ";E;
870 GO TO 1060
880 PRINT "  I ROLL ";C;" AND ";D;" AND CRAP OUT..."
890 GO TO 580
900 PRINT "   I ROLL ";C;" AND ";D;" AND PASS..."
910 GO TO 520
915 REM BEGINNING OF THIRD PAGE
920 IF F=E THEN 1010
930 IF F=7 THEN 960
940 PRINT "   I ROLL ";C;" AND ";D;" ...ROLL AGAIN."
950 GO TO 370
960 PRINT "   I ROLL ";C;" AND ";D;" AND LOSE..."
970 LET Y=Y+B
980 IF Y=0 THEN 650
990 LET Z=1
1000 GO TO 240
1010 PRINT "   I ROLL ";C;" AND ";D;" AND MAKE MY POINT."
1020 GO TO 520
1030 PRINT "THANKS FOR PLAYING THE GAME.  AND CONGRATULATIONS FOR"
1040 PRINT "BEING ABLE TO QUIT WHILE YOU WERE AHEAD!"
1042 PRINT
1043 PRINT
1044 PRINT "ANY OTHER PLAYERS?  ENTER Y OR N (N=END OF GAME!)"
1045 INPUT C$
1046 IF C$="Y" THEN 50
1048 IF C$="N" THEN 1390
1050 PRINT
1052 GO TO 1044
1060 IF E=4 THEN 1110
1070 IF E=6 THEN 1170
1080 IF E=8 THEN 1200
1090 IF E=10 THEN 1260
1100 GO TO 370
1110 LET W=2
1120 LET U=7
1130 PRINT
1140 PRINT "THE ODDS ARE 8:1 YOU CAN'T MAKE IT THE HARD WAY..."
1150 PRINT
1160 GO TO 370
1170 LET W=3
1180 LET U=7
1190 GO TO 1130
1200 LET W=4
1210 LET U=7
1220 PRINT
1230 PRINT "THE ODDS ARE 10:1 THAT YOU CAN'T MAKE IT THE HARD WAY..."
1240 PRINT
1250 GO TO 370
1260 LET W=5 
1270 LET U=7
1280 GO TO 1220
1290 PRINT
1300 PRINT
1310 PRINT "WOULD YOU LIKE TO PLAY ANOTHER GAME?  ENTER Y OR N."
1320 INPUT D$
1330 IF D$="Y" THEN 1360
1344 IF D$="N" THEN 1390
1346 GO TO 1310
1360 PRINT
1370 PRINT
1380 GO TO 100
1390 END