80 RANDOMIZE
90 FOR I = 1 TO 10: PRINT : NEXT I
100 PRINT "THIS DEMONSTRATION SIMULATES A CRAP GAME WITH THE COMPUTER"
110 PRINT "AS YOUR OPPONENT. THE RULES ARE SIMPLE:"
120 PRINT
130 PRINT "   *A 7 OR 11 ON THE FIRST ROLL WINS"
140 PRINT "   *A 2, 3 OR 12 ON THE FIRST ROLL LOSES"
150 PRINT
160 PRINT "ANY OTHER NUMBER ROLLED BECOMES YOUR 'POINT'* YOU CONTINUE"
170 PRINT "TO ROLL... IF YOU GET YOUR POINT, YOU WIN. IF YOU ROLL A 7,"
180 PRINT "YOU LOSE. THE DICE CHANGE HANDS WHEN THIS HAPPENS."
185 PRINT "JUST BET $0 TO QUIT."
190 PRINT
200 PRINT
210 Z = 5 * INT(10 + 11 * RND(0))
215 PRINT "ARE YOU READY"; : INPUT B$
216 IF B$ = "YES" THEN 220: IF B$ = "NO" THEN PRINT "I'LL REPEAT MYSELF THEN."
217 GOTO 90
220 PRINT "SPLENDID.....YOU ARE GIVEN "; Z; "DOLLARS TO PLAY WITH."
230 PRINT
240 PRINT
250 IF N - 2 * INT(N / 2) = 0 THEN 310
260 W = -1
270 PRINT "I'LL ROLL FIRST....."
280 PRINT
290 PRINT
300 GOTO 350
310 W = 1
320 PRINT "YOU ROLL FIRST....."
330 PRINT
340 PRINT
350 Q = 0
360 PRINT "HOW MUCH DO YOU BET";
370 INPUT B
380 PRINT
390 IF B = INT(B) THEN 430
400 PRINT
410 PRINT "NO COINS PERMITTED...JUST BILLS, PLEASE."
420 GOTO 360
430 IF B = 0 THEN 1090
440 IF B < Z + 1 THEN 470
450 PRINT "DON'T TRY TO BET MORE THAN YOU HAVE, PLEASE."
460 GOTO 360
470 D1 = INT(6 * RND(0) + 1)
480 D2 = INT(6 * RND(0) + 1)
490 Q = Q + 1
500 S = D1 + D2
510 IF W > 0 THEN 540
520 PRINT "  I ROLL    "; D1; "AND   "; D2;
530 GOTO 550
540 PRINT "YOU ROLL    "; D1; "AND   "; D2;
550 IF Q <> 1 THEN 860
560 IF (S - 2) * (S - 3) * (S - 12) = 0 THEN 640
570 IF (S - 7) * (S - 11) = 0 THEN 710
580 IF W > 0 THEN 610
590 PRINT "SO MY POINT IS"; S
600 GOTO 620
610 PRINT "SO YOUR POINT IS"; S
620 P = 2
630 GOTO 470
640 PRINT "AND CRAP OUT..."
650 C = 1
660 IF W > 0 THEN 690
670 Z = Z + B
680 GOTO 770
690 Z = Z - B
700 GOTO 770
710 PRINT "AND PASS...."
720 C = 1
730 IF W > 0 THEN 760
740 Z = Z - B
750 GOTO 770
760 Z = Z + B
770 PRINT
780 IF Z < 1 THEN 1060
790 PRINT "YOU NOW HAVE "; Z; "DOLLARS"
800 IF C > 0 THEN 830
810 PRINT "CHANGE DICE NOW..."
820 PRINT
830 W = W * C
840 Q = 0
850 GOTO 360
860 IF S <> 7 THEN 940
870 PRINT "AND LOSE..."
880 C = -1
890 IF W > 0 THEN 920
900 Z = Z + B
910 GOTO 770
920 Z = Z - B
930 GOTO 770
940 IF S = P THEN 970
950 PRINT "...ROLL AGAIN."
960 GOTO 470
970 IF W > 0 THEN 1020
980 PRINT "AND MAKE MY POINT"
990 C = 1
1000 Z = Z - B
1010 GOTO 770
1020 PRINT "AND MAKE YOUR POINT"
1030 C = 1
1040 Z = Z + B
1050 GOTO 770
1060 PRINT
1070 PRINT "YOU HAVE RUN OUT OF MONEY....SORRY ABOUT THAT."
1080 GOTO 1110
1090 PRINT "THANKS FOR THE GAME.  AND CONGRATULATIONS."
1100 PRINT "FOR BEING ABLE TO QUIT WHILE YOU WERE AHEAD."
1110 PRINT : PRINT : PRINT
1120 CHAIN$ "DEMOES"
1130 END