10 POKE53272,21:POKE53280,15:POKE53281,15:PRINTCHR$(14):GOTO140
20 PRINT"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
30 PRINT"    <[206]>EXT [208]AGE  <[204]>AST [208]AGE  <[197]>XIT [146]";:POKE53265,27
40 GETZ$:IFZ$=""THEN40
50 IFZ$<>"N"THEN80
60 A=A+1:IFA>6THENA=1
70 GOTO130
80 IFZ$<>"L"THEN110
90 A=A-1:IFA<1THENA=6
100 GOTO130
110 IFZ$<>"E"THEN40
120 GOTO1120
130 ON A GOTO140,330,490,670,810,970
140 A=1:POKE53265,0:PRINT"[147]"SPC(14)"[214][201][196][197][207] [195][210][193][208][211]":PRINTSPC(14)"[192][192][192][192][192] [192][192][192][192][192]"
150 PRINT"  [151][214]IDEO [195]RAPS IS A ONE-PLAYER GAME OF"
160 PRINT" CHANCE,  LOOSELY BASED ON THE POPULAR"
170 PRINT"[204]AS [214]EGAS CASINO GAME. [217]OU START WITH A"
180 PRINT"$5000 BANKROLL. [217]OU CAN WAGER FROM $2 TO";
190 PRINT"$2000 ON ANY INDIVIDUAL BET.  [194]EFORE YOU";
200 PRINT"CAN ROLL THE DICE,  YOU MUST PLACE A BET";
210 PRINT" ON THE [208][193][211][211][160][204][201][206][197][151] OR [196][207][206]'[212] [208][193][211][211][151].  [208]RESS"
220 PRINT"<[208][151]> OR <[196][151]>, ENTER AN AMOUNT FROM 2-2000,";
230 PRINT" AND PRESS <[210][197][212][213][210][206][151]>. [217]OU WILL THEN HAVE"
240 PRINT" THE OPTION TO [194][197][212][151] OR [210][207][204][204][151]. [201]F YOU WISH"
250 PRINT"       TO MAKE ADDITIONAL BETS:"
260 PRINT"1[151]) [208]RESS <[194][151]>"
270 PRINT"2[151]) [213]SE THE <[195][213][210][211][207][210] [213][208][151]> OR <[195][213][210][211][207][210] [196][207][215][206][151]>"
280 PRINT"   KEYS TO SCROLL THROUGH THE [194]ET [212]ABLE"
290 PRINT"3[151]) [208]RESS <[210][197][212][213][210][206][151]> TO MAKE A SELECTION"
300 PRINT"4[151]) [197]NTER AN AMOUNT FROM 2-2000 AND":PRINT"5[151]) [208]RESS <[210][197][212][213][210][206][151]>"
310 PRINT"  [210]EPEAT STEPS 1-5 FOR ADDITIONAL BETS"
320 PRINT"         OR PRESS <[216][151]> TO EXIT.":GOTO20
330 A=2:POKE53265,0:PRINT"[147]"SPC(16)"[208]AGE [212]WO":PRINTSPC(16)"[192][192][192][192] [192][192][192]"
340 PRINT"[151][217]OU CAN CANCEL ANY BET EXCEPT [208][193][211][211] [204][201][206][197]"
350 PRINT"[151]AND [196][207][206]'[212] [208][193][211][211][151].  [212]O CANCEL A BET, CURSOR";
360 PRINT" TO THE APPROPRIATE SELECTION AND PRESS"
370 PRINT"<[210][197][212][213][210][206][151]>.  [195]REDIT FOR THAT BET WILL THEN";
380 PRINT"BE ADDED TO YOUR TOTAL.  [217]OU CAN MAKE OR";
390 PRINT"  CHANGE AS MANY BETS AS YOUR BANKROLL"
400 PRINT"WILL ALLOW. [201]NFORMATION ON THE FOLLOWING";
410 PRINT"PAGES WILL EXPLAIN THE GENERAL RULES OF"
420 PRINT"  [195][210][193][208][211][151].  [201]F YOU FEEL COMFORTABLE WITH"
430 PRINT"  YOUR KNOWLEDGE OF [195][210][193][208][211][151],  YOU CAN GO"
440 PRINT" STRAIGHT TO THE GAME NOW. [208]RESS <[197][151]> TO"
450 PRINT"EXIT.  [212]HE GAME WILL LOAD AUTOMATICALLY."
460 PRINT"[206][207][212][197]: [208]RESS  [198]1 [146] AT ANY TIME DURING THE"
465 PRINT"        GAME TO RETURN TO [204][207][193][196][211][212][193][210]."
470 PRINT"":GOTO20
490 A=3:POKE53265,0:PRINT"[147]"SPC(15)"[208]AGE [212]HREE":PRINTSPC(15)"[192][192][192][192] [192][192][192][192][192]"
500 PRINT" [208][193][211][211] [204][201][206][197][151] - [212]HE FIRST ROLL OF THE DICE"
510 PRINT" IS CALLED THE [195][207][205][197]-[207][213][212] [210][207][204][204][151]. [201]F A 7 OR"
520 PRINT" 11 IS THROWN ON THE COME-OUT ROLL, YOU"
530 PRINT" WIN.  [201]F A 7 IS THROWN BEFORE YOU MAKE"
540 PRINT" YOUR POINT ( SEE BELOW[151] ), YOU LOSE."
550 PRINT" [196][207][206]'[212] [208][193][211][211][151] - [201]F A 7 OR 11 IS THROWN ON"
560 PRINT" THE COME-OUT ROLL, YOU LOSE. [201]F A 7 IS"
570 PRINT" THROWN BEFORE YOU MAKE YOUR POINT, YOU"
580 PRINT" WIN. [201]F YOU MAKE YOUR POINT, YOU LOSE."
590 PRINT" [208][207][201][206][212][151] - [201]F YOU ROLL A 4,5,6,8,9, OR 10"
600 PRINT" ON THE COME-OUT ROLL, THIS BECOMES THE"
610 PRINT" POINT. [201]F YOU ROLL AND MATCH THE POINT"
620 PRINT" BEFORE A 7 APPEARS, YOU WIN.  [201]F THE 7"
630 PRINT" APPEARS BEFORE YOU MAKE THE POINT, YOU"
640 PRINT" LOSE."
650 PRINT" [206][207][212][197][151] - [217]OU CANNOT [208][204][193][195][197][151] ON YOUR [208][207][201][206][212][151]."
660 PRINT" [192][192][192][192][151]   ([211]EE PAGE 6 FOR DETAILS).":GOTO20
670 A=4:POKE53265,0:PRINT"[147]"SPC(15)"[208]AGE [198]OUR":PRINTSPC(15)"[192][192][192][192] [192][192][192][192]"
680 PRINT" [193][206][217] [195][210][193][208][211][151] - [212]HIS IS A ONE-ROLL BET. [201]F"
690 PRINT" A 2,3 OR 12 IS THROWN, YOU WIN 7 TO 1."
700 PRINT" [197][204][197][214][197][206][151] - [212]HIS IS A ONE-ROLL BET. [201]F AN"
710 PRINT" 11 IS THROWN, YOU WIN 15 TO 1."
720 PRINT" [198][201][197][204][196][151] - [212]HIS IS A ONE-ROLL BET. [201]F YOU"
730 PRINT" ROLL A 2,3,4,9,10,11 OR 12 YOU WIN. [201]F"
740 PRINT" A 2 OR 12 IS THROWN, YOU WIN TWICE THE"
750 PRINT" WAGER.":PRINT" [194][201][199] 6[151] - [201]F YOU ROLL THE 6 BEFORE THE 7"
760 PRINT" APPEARS, YOU WIN.":PRINT" [194][201][199] 8[151] - [201]F YOU ROLL THE 8 BEFORE THE 7"
770 PRINT" APPEARS, YOU WIN."
780 PRINT" [200][193][210][196][215][193][217] 4[151] - [201]F YOU ROLL A 2/2 COMBINA-"
790 PRINT" TION BEFORE ANY OTHER COMBINATION OF 4"
800 PRINT" OR BEFORE A 7 APPEARS, YOU WIN 7 TO 1.":GOTO20
810 A=5:POKE53265,0:PRINT"[147]"SPC(15)"[208]AGE [198]IVE":PRINTSPC(15)"[192][192][192][192] [192][192][192][192]"
820 PRINT" [200][193][210][196][215][193][217] 6[151] - [201]F YOU ROLL A 3/3 COMBINA-"
830 PRINT" TION BEFORE ANY OTHER COMBINATION OF 6"
840 PRINT" OR BEFORE A 7 APPEARS, YOU WIN 9 TO 1."
850 PRINT" [200][193][210][196][215][193][217] 8[151] - [201]F YOU ROLL A 4/4 COMBINA-"
860 PRINT" TION BEFORE ANY OTHER COMBINATION OF 8"
870 PRINT" OR BEFORE A 7 APPEARS, YOU WIN 9 TO 1."
880 PRINT" [200][193][210][196][215][193][217] 10[151] - [201]F YOU ROLL A 5/5 COMBINA-";
890 PRINT" TION BEFORE ANY OTHER COMBINATION OF 10";
900 PRINT" OR BEFORE A 7 APPEARS, YOU WIN 7 TO 1."
910 PRINT" [195][210][193][208][211] 2[151] - [212]HIS IS A ONE-ROLL BET. [201]F A"
920 PRINT" 2 IS THROWN, YOU WIN 30 TO 1."
930 PRINT" [195][210][193][208][211] 3[151] - [212]HIS IS A ONE-ROLL BET. [201]F A"
940 PRINT" 3 IS THROWN, YOU WIN 15 TO 1."
950 PRINT" [195][210][193][208][211] 12[151] - [212]HIS IS A ONE-ROLL BET. [201]F A";
960 PRINT" 12 IS THROWN, YOU WIN 30 TO 1.":GOTO20
970 A=6:POKE53265,0:PRINT"[147]"SPC(16)"[208]AGE [211]IX":PRINTSPC(16)"[192][192][192][192] [192][192][192]"
980 PRINT" [211][197][214][197][206][151] - [212]HIS IS A ONE-ROLL BET. [201]F A 7"
990 PRINT" IS THROWN, YOU WIN 4 TO 1."
1000 PRINT" [208][204][193][195][197] 4[151] - [201]F YOU ROLL A 4 BEFORE THE 7"
1010 PRINT" APPEARS, YOU WIN 2 TO 1."
1020 PRINT" [208][204][193][195][197] 5[151] - [201]F YOU ROLL A 5 BEFORE THE 7"
1030 PRINT" APPEARS, YOU WIN 3 TO 2."
1040 PRINT" [208][204][193][195][197] 6[151] - [201]F YOU ROLL A 6 BEFORE THE 7"
1050 PRINT" APPEARS, YOU WIN 6 TO 5."
1060 PRINT" [208][204][193][195][197] 8[151] - [201]F YOU ROLL THE 8 BEFORE THE"
1070 PRINT" 7 APPEARS, YOU WIN 6 TO 5."
1080 PRINT" [208][204][193][195][197] 9[151] - [201]F YOU ROLL A 9 BEFORE THE 7"
1090 PRINT" APPEARS, YOU WIN 3 TO 2."
1100 PRINT" [208][204][193][195][197] 10[151] - [201]F YOU ROLL A 10 BEFORE THE"
1110 PRINT" 7 APPEARS, YOU WIN 2 TO 1.":GOTO20
1120 POKE53280,.:POKE53281,.
1121 PRINT"[147] [208]LEASE [215]AIT..."
1122 POKE198,5:PRINT"[144]LOAD"CHR$(34)"VIDEO CRAPS"CHR$(34)",8";
1130 POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END