This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Triple Threat Dice
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
-
Year:1981
Listing 1
1 REM TRIPLE THREAT DICE 2 REM BY MICHAEL A.IVINS 3 REM JULY, 1981 10 DIM BET(31):COUNT=0 15 GRAPHICS 0:SETCOLOR 2,7,0:? "THIS IS A GAME PATTERNED AFTER A":? "GAMBLING MACHINE IN LAS VEGAS." 20 ? "YOU BET ON THE OUTCOME OF THE ROLL OF":? "THREE DICE. YOU HAVE MANY OPTIONS YOU" 25 ? "CAN BET ON. TO SELECT THE OPTION ON":? "WHICH YOU WISH TO BET, USE THE" 30 ? "JOYSTICK TO MOVE THE '>' UNTILL IT":? "POINTS TO THE PROPER OPTION. YOU" 35 ? "THEN ENTER YOUR BET BY PRESSING THE":? "TRIGGER. YOU MAY BET UP TO FIVE" 40 ? "DOLLARS ON EACH OPTION." 45 ? "WHEN YOU HAVE FINISHED BETTING, HOLD":? "THE JOYSTICK TO THE RIGHT UNTIL A" 50 ? "POINTER APPEARS IN THE BOX MARKED":? "'ROLL DICE' AND PRESS TRIGGER." 55 ? 60 ? "PRESS TO BEGIN":? "GOOD LUCK!!!" 75 IF PEEK(53279)<>6 THEN 75 90 GOTO 1000 100 M=100:POSITION 7,20:? M; 110 GOSUB 1200 120 IF COUNT=0 THEN M=100 130 ST=STICK(0):IF ST=9 OR ST=10 OR ST=11 THEN B=B-1:GOSUB 1500 132 ST=STICK(0):IF ST=5 OR ST=6 OR ST=7 THEN B=B+1:GOSUB 1500 135 IF B<32 THEN IF BET(B)=5 OR M=0 THEN 160 140 IF B<32 AND STRIG(0)=0 THEN BET(B)=BET(B)+1:POSITION X,Y:? BET(B);:SOUND 0,150,10,15:M=M-1 141 IF B<32 THEN IF BET(B)=0 THEN POSITION X,Y:? " "; 142 IF B<32 THEN IF BET(B)>0 THEN POSITION X,Y:? BET(B) 145 POSITION 7,20:? M;" "; 149 IF B>32 THEN B=32 150 IF B=32 AND STRIG(0)=0 THEN 200 155 FOR DE=1 TO 20:NEXT DE 160 SOUND 0,0,0,0:GOTO 130 200 COUNT=COUNT+1 205 GOSUB 2700 210 Y=0:A=INT(RND(0)*6+1):X=10:ON A GOSUB 10000,10010,10020,10030,10040,10050 220 X=14:B=INT(RND(0)*6+1):ON B GOSUB 10000,10010,10020,10030,10040,10050 230 X=18:C=INT(RND(0)*6+1):ON C GOSUB 10000,10010,10020,10030,10040,10050 240 D=A+B+C:IF COUNT>1 THEN COUNT=1 250 REM 260 IF BET(0)=0 OR D<12 THEN 275 265 WIN=WIN+BET(0):POSITION 6,21:? WIN; 270 POSITION 3,14:? "+"; 275 IF BET(1)=0 OR D>9 THEN 290 280 WIN=WIN+BET(1):POSITION 6,21:? WIN; 285 POSITION 3,15:? "+"; 290 IF A<>B OR B<>C OR BET(2)=0 THEN 305 295 WIN=WIN+(BET(2)*36):POSITION 6,21:? WIN; 300 POSITION 3,16:? "+"; 305 IF (A<>B AND A<>C AND B<>C) OR BET(3)=0 THEN 320 310 IF A=B OR B=C OR A=C THEN WIN=WIN+(BET(3)*6):POSITION 6,21:? WIN; 315 POSITION 3,17:? "+"; 320 IF A=B AND B=C THEN GOSUB 2000 330 IF A=B THEN G=A:GOSUB 2100 335 IF A=C THEN G=A:GOSUB 2100 340 IF B=C THEN G=B:GOSUB 2100 350 IF D<11 THEN GOSUB ((D-3)*10)+2200 352 IF D>10 THEN GOSUB (ABS(D-18)*10)+2200 360 IF D=17 THEN GOSUB 2210:IF D=18 THEN GOSUB 2200 370 M=M+WIN:POSITION 7,20:? M; 372 IF M=0 THEN 420 373 IF M>=5000 THEN 5000 375 IF WIN>0 THEN 400 380 GOSUB 2600 382 POSITION 1,0:? "SORRY"; 385 IF STRIG(0)=0 THEN POSITION 1,0:? " ";:GOTO 110 390 IF STICK(0)=13 THEN 500 395 GOTO 382 400 GOSUB 2500 402 POSITION 1,0:? "WINNER"; 405 IF STRIG(0)=0 THEN POSITION 1,0:? " ";:GOTO 110 410 IF STICK(0)=13 THEN 500 415 GOTO 402 420 ? "I'M SORRY, BUT YOU HAVE GONE BROKE":? "IF YOU WISH TO START AGAIN WITH A" 430 ? "NEW BANKROLL PRESS , TO QUIT":? "PRESS " 440 IF PEEK(53279)<>6 AND PEEK(53279)<>5 THEN 440 450 IF PEEK(53279)=6 THEN COUNT=0:GOTO 90 460 IF PEEK(53279)=5 THEN ? "GOODBYE AND BETTER LUCK NEXT TIME":END 500 ? "IT IS A WISE GAMBLER WHO KNOWS WHEN TO QUIT." 510 ?:? "THANK YOU FOR PLAYING AND GOOD LUCK TO YOU THE NEXT TIME." 520 ?:? "GOODBYE.":END 1000 GRAPHICS 0:POKE 752,1:POKE 82,1:SETCOLOR 2,12,12:? " USE JOYSTICK"; 1002 SETCOLOR 1,12,0:SETCOLOR 4,12,12 1005 ? " TO MOVE BET" 1010 ? " POINTER" 1020 ?:? "PAYS 216-1 PAYS 18-1 TOTAL PAYS" 1025 ? "" 1030 ? "| 3-ONES || 2-ONES || 3 216-1|" 1035 ? "| 3-TWOS || 2-TWOS || 4 72-1 |" 1040 ? "| 3-THREES|| 2-THREES|| 5 36-1 |" 1045 ? "| 3-FOURS || 2-FOURS || 6 21-1 |" 1050 ? "| 3-FIVES || 2-FIVES || 7 14-1 |" 1055 ? "| 3-SIXES || 2-SIXES || 8 10-1 |" 1060 ? "| 9 9-1 |" 1065 ? "| 10 8-1 |" 1070 ? "| HI (OVER 11) 1-1 || 11 8-1 |" 1075 ? "| LOW (UNDER 10) 1-1 || 12 9-1 |" 1080 ? "| ANY 3 OF KIND 36-1 || 13 10-1 |" 1085 ? "| ANY 2 OF KIND 6-1 || 14 14-1 |" 1090 ? "| 15 21-1 |" 1095 ? "| 16 36-1 |" 1100 ? "|CASH: || ROLL|| 17 72-1 |" 1105 ? "|WIN: || DICE|| 18 216-1 |" 1110 ? "" 1120 GOTO 110 1200 POKE 752,1:FOR I=0 TO 31:BET(I)=0:NEXT I 1210 FOR I=6 TO 11:POSITION 2,I:? " ";:POSITION 14,I:? " ";:NEXT I 1220 FOR I=14 TO 17:POSITION 2,I:? " ";:NEXT I 1230 FOR I=6 TO 21:POSITION 26,I:? " ";:NEXT I 1240 POSITION 19,20:? " "; 1270 WIN=0:POSITION 6,21:? " " 1280 B=0:GOSUB 1500 1290 RETURN 1500 IF B<0 THEN B=0:IF B>32 THEN B=32 1510 IF B=0 THEN POSITION 3,14:? "> ";:X=2:Y=14 1511 IF B=1 THEN POSITION 3,14:? " > ";:X=2:Y=15 1512 IF B=2 THEN POSITION 3,15:? " > ";:X=2:Y=16 1513 IF B=3 THEN POSITION 3,16:? " >";:POSITION 3,6:? " ";:X=2:Y=17 1514 IF B=4 THEN POSITION 3,17:? " ";:POSITION 3,6:? "> ";:X=2:Y=6 1515 IF B>4 AND B<9 THEN POSITION 3,B+1:? " > ";:X=2:Y=B+2 1516 IF B=9 THEN POSITION 3,10:? " >";:POSITION 15,16:? " ";:X=2:Y=11 1517 IF B=10 THEN POSITION 3,11:? " ";:POSITION 15,6:? "> ";:X=14:Y=6 1518 IF B>10 AND B<15 THEN POSITION 15,B-5:? " > ";:X=14:Y=B-4 1519 IF B=15 THEN POSITION 15,10:? " >";:POSITION 27,6:? " ";:X=14:Y=11 1520 IF B=16 THEN POSITION 15,11:? " ";:POSITION 27,6:? "> ";:X=26:Y=6 1521 IF B>16 AND B<31 THEN POSITION 27,B-11:? " > ";:X=26:Y=B-10 1522 IF B=31 THEN POSITION 27,20:? " >";:POSITION 19,20:? " ";:X=26:Y=21 1523 IF B=32 THEN POSITION 27,21:? " ";:POSITION 19,20:? ""; 1550 RETURN 2000 IF BET(A+3)=0 THEN RETURN 2010 WIN=WIN+(BET(A+3)*216):POSITION 6,21:? WIN; 2020 POSITION 3,A+5:? "+"; 2030 RETURN 2100 IF BET(G+9)=0 THEN RETURN 2110 WIN=WIN+BET(G+9)*18:POSITION 6,21:? WIN; 2120 POSITION 15,G+5:? "+"; 2130 RETURN 2200 IF BET(13+D)=0 THEN RETURN 2202 WIN=WIN+BET(13+D)*216:POSITION 6,21:? WIN; 2204 POSITION 27,D+3:? "+"; 2206 RETURN 2210 IF BET(13+D)=0 THEN RETURN 2212 WIN=WIN+BET(13+D)*72:POSITION 6,21:? WIN; 2214 POSITION 27,D+3:? "+"; 2216 RETURN 2220 IF BET(13+D)=0 THEN RETURN 2222 WIN=WIN+BET(13+D)*36:POSITION 6,21:? WIN; 2224 POSITION 27,D+3:? "+"; 2226 RETURN 2230 IF BET(13+D)=0 THEN RETURN 2232 WIN=WIN+BET(13+D)*21:POSITION 6,21:? WIN; 2234 POSITION 27,D+3:? "+"; 2236 RETURN 2240 IF BET(13+D)=0 THEN RETURN 2242 WIN=WIN+BET(13+D)*14:POSITION 6,21:? WIN; 2244 POSITION 27,D+3:? "+"; 2246 RETURN 2250 IF BET(13+D)=0 THEN RETURN 2252 WIN=WIN+BET(13+D)*10:POSITION 6,21:? WIN; 2254 POSITION 27,D+3:? "+"; 2256 RETURN 2260 IF BET(13+D)=0 THEN RETURN 2262 WIN=WIN+BET(13+D)*9:POSITION 6,21:? WIN; 2264 POSITION 27,D+3:? "+"; 2266 RETURN 2270 IF BET(13+D)=0 THEN RETURN 2272 WIN=WIN+BET(13+D)*8:POSITION 6,21:? WIN; 2274 POSITION 27,D+3:? "+"; 2276 RETURN 2500 FOR I=1 TO 10 2505 FOR S=40 TO 90 STEP 5 2510 SOUND 0,S,10,10 2530 NEXT S 2540 FOR S=90 TO 40 STEP -5 2550 SOUND 0,S,10,10 2570 NEXT S 2580 NEXT I 2590 SOUND 0,0,0,0:RETURN 2600 SOUND 0,200,10,10 2620 FOR DE=1 TO 100:NEXT DE 2630 SOUND 0,241,10,10 2640 FOR DE=1 TO 150:NEXT DE 2650 SOUND 0,0,0,0:RETURN 2700 FOR I=1 TO 20 2710 FOR S=0 TO 50 STEP 20 2720 SOUND 0,S,8,15 2730 NEXT S:SOUND 0,0,0,0 2740 NEXT I 2750 POKE 77,0:RETURN 5000 ? CHR$(125);"THIS MACHINE HAS NO MORE MONEY." 5010 ? "IF YOU WISH TO CASH IN YOUR BANKROLL":? "AND PLAY AGAIN AFTER THE MANAGE-" 5020 ? "MENT HAS REFILLED IT, THEN PRESS":? ". TO QUIT PRESS ." 5030 IF PEEK(53279)<>6 AND PEEK(53279)<>5 THEN 5030 5040 IF PEEK(53279)=5 THEN ? "THANK YOU FOR PLAYING":? "GOODBYE!":END 5050 COUNT=0:GOTO 1000 10000 POSITION X,Y:? ""; 10001 POSITION X,Y+1:? ""; 10002 POSITION X,Y+2:? ""; 10003 RETURN 10010 POSITION X,Y:? ""; 10011 POSITION X,Y+1:? ""; 10012 POSITION X,Y+2:? ""; 10013 RETURN 10020 POSITION X,Y:? ""; 10021 POSITION X,Y+1:? ""; 10022 POSITION X,Y+2:? ""; 10023 RETURN 10030 POSITION X,Y:? ""; 10031 POSITION X,Y+1:? ""; 10032 POSITION X,Y+2:? ""; 10033 RETURN 10040 POSITION X,Y:? ""; 10041 POSITION X,Y+1:? ""; 10042 POSITION X,Y+2:? ""; 10043 RETURN 10050 POSITION X,Y:? ""; 10051 POSITION X,Y+1:? ""; 10052 POSITION X,Y+2:? ""; 10053 RETURN
References
Listing downloads
Downloads
Copyright holder