Listing of file='3OUT3.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
10 REM *** THIS PROGRAM ORIGINATED BY REX HAHN FOR THE 20 REM *** COMPUCOLOR USERS GROUP -- 12/79 30 PLOT 12,27,24 40 CLEAR 1000 50 PLOT 3,128,27,1,3:PRINT "3 OUT OF 3" 60 PLOT 6,4 70 PLOT 3,127,3,3,7:PRINT "CHOOSE A NUMBER FROM 1 TO 6. I WILL ROLL THE DICE." 80 PLOT 3,127,3,5,7:PRINT "IF YOUR NUMBER MATCHES 1 DIE, I WILL PAY OFF EVEN MONEY." 90 PLOT 3,127,3,7,7:PRINT "FOR TWO DIE, 2:1. FOR THREE DIE, 3:1." 100 S$= " " 110 A$= " " 120 B$= "tu " 130 C$= "vw " 140 D$= "tu tu" 150 E$= "vw vw" 160 F$= " tu " 170 G$= " vw " 180 H$= " tu" 190 I$= " vw" 200 FOR X= 3TO 45STEP 21 210 FOR Y= 9TO 18 220 PLOT 3,127,X,Y,56:PRINT S$ 230 NEXT Y 240 NEXT X 250 FOR X= 5TO 47STEP 21 260 PLOT 3,127,X,13,56:PRINT F$ 270 PLOT 3,127,X,14,56:PRINT G$ 280 NEXT X 290 M= 500 300 PLOT 3,127,3,20,6:PRINT "YOU HAVE $"M"." 310 PLOT 3,0,28,11,3,0,30,11,3,0,22,11 320 FOR I= 1TO 500:NEXT I 330 PLOT 3,127,3,24,0:PRINT " " 340 PLOT 3,127,3,26,0:PRINT " " 350 PLOT 3,127,22,20,0:PRINT " " 360 PLOT 3,127,22,20,65:PRINT "MAKE A BET. " 370 INPUT B 380 PLOT 3,127,22,20,3:PRINT "MAKE A BET. " 390 IF B> MTHEN 790 400 IF B> 0THEN IF B* 100= INT (B* 100)THEN 420 410 GOTO 820 420 PLOT 3,127,3,22,0:PRINT " " 430 PLOT 3,127,3,22,65:PRINT "CHOOSE A NUMBER. " 440 INPUT N 450 PLOT 3,127,3,22,3:PRINT "CHOOSE A NUMBER. " 460 IF INT (N)= NAND N> 0AND N< 7THEN 510 470 PLOT 3,128,3,25,5:PRINT "CHEATER!!!!" 480 FOR I= 1TO 1000:NEXT 490 PLOT 3,128,3,25,0:PRINT " " 500 GOTO 420 510 FOR J= 1TO PEEK (33209) 520 A= INT (6* RND (J)+ 1) 530 C= INT (6* RND (J)+ 1) 540 D= INT (6* RND (J)+ 1) 550 NEXT J 560 FOR I= 1TO 10 570 A= INT (6* RND (1)+ 1) 580 C= INT (6* RND (1)+ 1) 590 D= INT (6* RND (1)+ 1) 600 X= 5 610 ON AGOSUB 890,960,1030,1100,1170,1240 620 X= 26 630 ON CGOSUB 890,960,1030,1100,1170,1240 640 X= 47 650 ON DGOSUB 890,960,1030,1100,1170,1240 660 NEXT I 670 T= 0 680 IF A= NTHEN T= T+ 1 690 IF C= NTHEN T= T+ 1 700 IF D= NTHEN T= T+ 1 710 PLOT 3,127,3,24,4:PRINT "YOU'VE MATCHED ";T;" TIMES" 720 ON TGOTO 760,770,780 730 PLOT 3,127,3,26,6:PRINT "YOU LOOSE $";B 740 M= M- B:IF M< = 0THEN 850 750 GOTO 300 760 PLOT 3,127,3,26,6:PRINT "YOU'VE WON $";B:M= M+ B:GOTO 300 770 PLOT 3,127,3,26,6:PRINT "YOU'VE WON $";B* 2:M= M+ B* 2:GOTO 300 780 PLOT 3,127,3,26,6:PRINT "YOU'VE WON $";B* 3:M= M+ B* 3:GOTO 300 790 PLOT 3,127,3,24,5:PRINT "I DON'T TAKE IOU'S" 800 FOR I= 1TO 1000:NEXT 810 PLOT 3,127,3,24,0:PRINT " ":GOTO 350 820 PLOT 3,127,3,24,5:PRINT "DON'T GET CUTE" 830 FOR I= 1TO 1000:NEXT 840 PLOT 3,127,3,24,0:PRINT " ":GOTO 350 850 PLOT 3,127,3,28,5:PRINT "YOU HAVE RUN 0UT OF MONEY. SEE YOU AGAIN SOME TIME!!!" 860 PLOT 3,127,3,30,3:INPUT "DO YOU WANT TO PLAY AGAIN (Y/N) ";K$ 870 IF K$= "Y"THEN 290 875 LOAD "MENU":RUN 880 END 890 REM *** THIS SUBROUTINE MAKES A DIE = 1 900 PLOT 3,127,X,10,56:PRINT A$ 910 PLOT 3,127,X,11,56:PRINT A$ 920 PLOT 3,127,X,13,56:PRINT F$ 930 PLOT 3,127,X,14,56:PRINT G$ 940 PLOT 3,127,X,16,56:PRINT A$ 950 PLOT 3,127,X,17,56:PRINT A$:RETURN 960 REM *** THIS SUBROUTINE MAKES A DIE = 2 970 PLOT 3,127,X,10,56:PRINT B$ 980 PLOT 3,127,X,11,56:PRINT C$ 990 PLOT 3,127,X,13,56:PRINT A$ 1000 PLOT 3,127,X,14,56:PRINT A$ 1010 PLOT 3,127,X,16,56:PRINT H$ 1020 PLOT 3,127,X,17,56:PRINT I$:RETURN 1030 REM *** THIS SUBROUTINE MAKES A DIE = 3 1040 PLOT 3,127,X,10,56:PRINT B$ 1050 PLOT 3,127,X,11,56:PRINT C$ 1060 PLOT 3,127,X,13,56:PRINT F$ 1070 PLOT 3,127,X,14,56:PRINT G$ 1080 PLOT 3,127,X,16,56:PRINT H$ 1090 PLOT 3,127,X,17,56:PRINT I$:RETURN 1100 REM *** THIS SUBROUTINE MAKES A DIE = 4 1110 PLOT 3,127,X,10,56:PRINT D$ 1120 PLOT 3,127,X,11,56:PRINT E$ 1130 PLOT 3,127,X,13,56:PRINT A$ 1140 PLOT 3,127,X,14,56:PRINT A$ 1150 PLOT 3,127,X,16,56:PRINT D$ 1160 PLOT 3,127,X,17,56:PRINT E$:RETURN 1170 REM *** THIS SUBROUTINE MAKES A DIE = 5 1180 PLOT 3,127,X,10,56:PRINT D$ 1190 PLOT 3,127,X,11,56:PRINT E$ 1200 PLOT 3,127,X,13,56:PRINT F$ 1210 PLOT 3,127,X,14,56:PRINT G$ 1220 PLOT 3,127,X,16,56:PRINT D$ 1230 PLOT 3,127,X,17,56:PRINT E$:RETURN 1240 REM *** THIS SUBROUTINE MAKES A DIE = 6 1250 PLOT 3,127,X,10,56:PRINT D$ 1260 PLOT 3,127,X,11,56:PRINT E$ 1270 PLOT 3,127,X,13,56:PRINT D$ 1280 PLOT 3,127,X,14,56:PRINT E$ 1290 PLOT 3,127,X,16,56:PRINT D$ 1300 PLOT 3,127,X,17,56:PRINT E$:RETURN