Listing of file='KENO.BAS;01' on disk='vmedia/ncc_8-sector.ccvf'
5 REM ***THIS PROGRAM ORIGINATED BY REX HAHN FOR THE COMPUCOLOR USERS GROUP 12/79 10 CLEAR 1000 20 REM *** ENTER PAGE MODE AND SET DIMENSIONS 30 PLOT 12,27,24 40 DIM M(20) 50 DIM L(20) 60 DIM K(20) 70 DIM N(20) 80 DIM W(15,15) 90 T= 0 100 REM *** DISPLAY TITLE PAGE 110 PLOT 6,32,12,14,3,20,7,6,56 120 PRINT " * KENO * KENO * KENO * " 130 PLOT 3,80,0 140 FOR I= 1TO 1000:NEXT :PLOT 6,0,12 150 REM *** SET UP INSTRUCTIONS 160 PLOT 3,127,0,0,3:INPUT "DO YOU WISH INSTRUCTION? (Y/N?)";D$ 170 IF D$= "N"GOTO 310 180 PLOT 3,0,0,11,27,11,15 200 PRINT "THIS GAME IS PLAYED EXACTLY LIKE KENO GAMES IN NEVADA CASINOS" 210 PRINT :PRINT "1 YOU MAY CHOOSE FROM 1 TO 15 NUMBERS FROM A FIELD OF 80" 220 PRINT :PRINT "2 THE COMPUTER WILL CHOOSE 20 NUMBERS FROM THE SAME FIELD" 230 PRINT :PRINT "3 A BET OF $1 WILL BE PLACED FOR YOU" 240 PRINT :PRINT "4 THE COMPUTER WILL OUTLINE ITS SELECTION IN YELLOW" 250 PRINT :PRINT "5 IF ONE OF YOUR NUMBERS IS CAUGHT THE OUTLINE WILL BE PURPLE" 260 PRINT :PRINT "6 YOU MAY CHOOSE NEW NUMBERS AT GAME END OR PLAY THE SAME ONES" 270 PRINT :PRINT "7 THE PAYOFFS ARE BASED UPON THE GAME AT THE CIRCUS CIRCUS RENO" 280 PRINT :PRINT :INPUT "HIT RETURN TO CONTINUE";D$ 290 REM *** ENTER PAGE MODE AND SET UP PAYOFF MATRIX 300 PLOT 27,24 310 FOR R= 1TO 15:FOR C= 1TO 15:W(R,C)= 0:NEXT C:NEXT R 320 W(1,1)= 3:W(2,2)= 12:W(3,2)= 1:W(3,3)= 42:W(4,2)= 1:W(4,3)= 4:W(4,4)= 113:W(5,3)= 1:W(5,4)= 9 330 W(5,5)= 820:W(6,3)= 1:W(6,4)= 3:W(6,5)= 90:W(6,6)= 1800:W(7,4)= 1:W(7,5)= 20:W(7,6)= 410:W(7,7)= 8100 340 W(8,5)= 9:W(8,6)= 90:W(8,7)= 1650:W(8,8)= 18000:W(9,5)= 3:W(9,6)= 45:W(9,7)= 335:W(9,8)= 4700 350 W(9,9)= 18500:W(10,5)= 2:W(10,6)= 20:W(10,7)= 142:W(10,8)= 1000:W(10,9)= 4500:W(10,10)= 19000 360 W(11,6)= 10:W(11,7)= 75:W(11,8)= 380:W(11,9)= 2000:W(11,10)= 12500:W(11,11)= 19500:W(12,6)= 6 370 W(12,7)= 28:W(12,8)= 200:W(12,9)= 850:W(12,10)= 4400:W(12,11)= 13000:W(12,12)= 25000:W(13,6)= 2 380 W(13,7)= 16:W(13,8)= 78:W(13,9)= 700:W(13,10)= 3600:W(13,11)= 9000:W(13,12)= 25000:W(13,13)= 25000 390 W(14,6)= 3:W(14,7)= 8:W(14,8)= 32:W(14,9)= 300:W(14,10)= 800:W(14,11)= 2500:W(14,12)= 12000 400 W(14,13)= 25000:W(14,14)= 25000:W(15,6)= 2:W(15,7)= 8:W(15,8)= 21:W(15,9)= 75:W(15,10)= 240: 410 W(15,11)= 2400:W(15,12)= 8000:W(15,13)= 25000:W(15,14)= 25000:W(15,15)= 25000 420 PLOT 6,0,12,15 430 PLOT 3,127,0,0,3:INPUT "DO YOU WISH TO SEE THE PAYOFFS? (Y/N?) ";C$ 440 PLOT 6,0,12 450 IF C$= "N"THEN 480 460 GOSUB 4000:PLOT 3,127,1,13,65:INPUT "HIT RETURN";D$ 470 REM *** SET UP GAME BOARD 480 PLOT 6,0,15,12:GOTO 500 490 GOSUB 5000 500 I= 1 510 REM *** PLACE 80 NUMBERS ON THE BOARD IN LIGHT BLUE 520 FOR Y= 8TO 29STEP 3 530 FOR X= 23TO 59STEP 4 540 PLOT 3,127,X,Y,6:PRINT I 550 I= I+ 1 560 NEXT X 570 NEXT Y 580 REM *** DRAW A DARK BLUE BORDER AROUND THE BOARD 590 PLOT 6,4 600 PLOT 2,246,1,44,102,45,102,126,102,127,102,255 610 PLOT 2,250,46,1,125,2,125,3,125,100,125,101,125,102,125,255 620 REM *** PRINT THE KENO TITLE IN LARGE GREEN LETTERS 630 PLOT 3,128,8,7,2:PRINT "KENO" 640 REM *** PRINT NUMBER HEADINGS IN YELLOW 650 PLOT 3,127,6,9,3:PRINT "YOUR COMP" 660 PLOT 3,127,1,10,3:PRINT "# # #" 670 PLOT 6,3 680 PLOT 3,0,0:PLOT 11:PLOT 3,0,3:PLOT 11 690 FOR Y= 12TO 26 700 PLOT 3,127,6,Y,0:PRINT " " 710 NEXT Y 720 REM *** A IS THE NUMBER OF NUMBERS YOU WISH TO CHOSE 730 PLOT 3,127,0,0,7:INPUT "HOW MANY NUMBERS DO YOU WISH TO PICK? ";A 740 IF 0< AAND A< 16THEN 770 750 PLOT 3,127,0,3,1:PRINT "CHOOSE NUMBERS BETWEEN 1 AND 15 ONLY!! TRY AGAIN." 760 FOR I= 1TO 1000:NEXT :GOTO 680 770 FOR I= 1TO 20 780 PLOT 3,127,0,11+ I,3:PRINT "#";I:NEXT I 790 FOR B= 1TO A 800 PLOT 3,0,0:PLOT 11 810 PLOT 3,0,3:PLOT 11 820 REM *** M(B) IS THE STORED LIST OF THE NUMBER YOU CHOSE 830 PLOT 3,127,0,0,66:INPUT "INPUT NUMBER ";M(B) 840 PLOT 3,127,0,0,2:PRINT "INPUT NUMBER " 850 IF 0< M(B)AND M(B)< 81THEN 880 860 PLOT 3,127,0,3,1:PRINT "PLEASE CHOOSE A NUMBER BETWEEN 1 AND 80." 870 FOR I= 1TO 1000:NEXT :GOTO 800 880 IF B= 1THEN 960 890 FOR I= 1TO B- 1 900 IF M(B)= M(I)THEN 930 910 NEXT I 920 GOTO 960 930 PLOT 3,127,0,3,1:PRINT "TRY AGAIN. YOU CHOOSE THAT NUMBER BEFORE." 940 FOR G= 1TO 1000:NEXT G 950 GOTO 800 960 L(B)= M(B) 970 IF 0< L(B)AND L(B)< 11THEN 1000 980 L(B)= L(B)- 10:GOTO 970 990 REM *** YOUR NUMBERS WILL BE DISPLAYED IN RED ON THE BOARD WITH THE X AND Y CURSOR POSITIONS BELOW 1000 X= 23+ 4* (L(B)- 1) 1010 Y= 8:IF 0< M(B)AND M(B)< 11THEN 1090 1020 Y= 11:IF 10< M(B)AND M(B)< 21THEN 1090 1030 Y= 14:IF 20< M(B)AND M(B)< 31THEN 1090 1040 Y= 17:IF 30< M(B)AND M(B)< 41THEN 1090 1050 Y= 20:IF 40< M(B)AND M(B)< 51THEN 1090 1060 Y= 23:IF 50< M(B)AND M(B)< 61THEN 1090 1070 Y= 26:IF 60< M(B)AND M(B)< 71THEN 1090 1080 Y= 29:IF 70< M(B)AND M(B)< 81THEN 1090 1090 PLOT 3,127,X,Y,1:PRINT M(B) 1100 REM *** YOUR NUMBERS WILL BE PRINTED IN A COLUMN AT X=6 AS YOU CHOSE THEM 1110 PLOT 3,127,6,11+ B,3:PRINT M(B) 1120 NEXT B 1130 GOTO 2000 1140 GOSUB 5000 2000 REM *** LINE 2010 THRU 2070 SELECTS 20 RANDOM NUMBERS 2002 PLOT 3,0,0,11 2005 PLOT 3,127,0,3,1:PRINT "THE COMPUTER IS SELECTING IT'S NUMBERS" 2010 FOR C= 1 TO 20 2011 FOR J= 1TO PEEK (33209) 2012 N(C)= INT (80* RND (J)+ 1) 2013 NEXT J 2020 N(C)= INT (80* RND (1)+ 1) 2030 IF C= 1 THEN 2070 2040 FOR I= 1TO C- 1 2050 IF N(C)= N(I)THEN 2020 2060 NEXT I 2070 NEXT C 2075 PLOT 3,0,3,11 2080 REM *** LINE 2090 THRU 2170 COMPARES COMPUTER SELECTED NUMBERS TO YOU NUMBERS 2090 FOR C= 1TO 20 2100 FOR D= 1TO A 2110 IF M(D)= N(C)THEN 2150 2120 NEXT D 2130 Z= 3:GOSUB 3000 2140 GOTO 2170 2150 Z= 69:GOSUB 3000 2160 T= T+ 1 2170 NEXT C 2180 REM *** LINE 2190 PRINTS NUMBER OF HITS AND PAYOFF 2190 PLOT 3,127,0,3,7:PRINT "YOU HAVE CAUGHT";T;" OUT OF";A;" SPOTS. YOU WIN $";W(A,T) 2200 PLOT 3,0,0:INPUT "DO YOU WISH TO PLAY THE SAME NUMBERS AGAIN. ( Y ES/ N O OR Q UIT )? ";A$ 2210 IF A$= "Y"THEN 1140 2220 IF A$= "N"THEN 490 2230 IF A$= "Q"THEN LOAD "MENU":RUN 2240 END 3000 REM *** LINE 3010 THRU 3150 DRAWS A YELLOW OR FLASHING PURPLE BOX AROUND THE NUMBER 3010 K(C)= N(C) 3020 IF 0< K(C)AND K(C)< 11THEN 3040 3030 K(C)= K(C)- 10:GOTO 3020 3040 X= 46+ 8* (K(C)- 1) 3050 Y= 99:IF 0< N(C)AND N(C)< 11THEN 3130 3060 Y= 87:IF 10< N(C)AND N(C)< 21THEN 3130 3070 Y= 75:IF 20< N(C)AND N(C)< 31THEN 3130 3080 Y= 63:IF 30< N(C)AND N(C)< 41THEN 3130 3090 Y= 51:IF 40< N(C)AND N(C)< 51THEN 3130 3100 Y= 39:IF 50< N(C)AND N(C)< 61THEN 3130 3110 Y= 27:IF 60< N(C)AND N(C)< 71THEN 3130 3120 Y= 15:IF 70< N(C)AND N(C)< 81THEN 3130 3130 PLOT 6,Z,2,X,Y,242,X,Y- 11,X+ 7,Y- 11,X+ 7,Y,X+ 1,Y,255 3140 PLOT 3,127,14,11+ C,3:PRINT N(C) 3150 RETURN 4000 REM *** LINE 4010 THRU 4450 PRINT THE PAYOFF BOARD 4010 I= 1 4020 FOR Y= 4TO 11 4030 PLOT 3,127,1,Y,3:PRINT I 4040 I= I+ 1 4050 NEXT Y 4060 I= 1 4070 FOR Y= 16TO 30 4080 PLOT 3,127,1,Y,3:PRINT I 4090 I= I+ 1 4100 NEXT Y 4110 FOR Y= 1TO 13STEP 12 4120 PLOT 3,127,25,Y,3:PRINT "NUMBER OF PICKS" 4130 NEXT Y 4140 FOR A= 1TO 8 4150 X= 7* (A- 1)+ 5 4160 Y= 2 4170 PLOT 3,127,X,Y,3:PRINT A 4180 Y= 4 4190 FOR T= 1TO A 4200 PLOT 3,127,X,Y,7:PRINT W(A,T) 4210 Y= Y+ 1 4220 NEXT T 4230 NEXT A 4240 FOR A= 9TO 15 4250 X= 7* (A- 9)+ 5 4260 Y= 14 4270 PLOT 3,127,X,Y,3:PRINT A 4280 Y= 16 4290 FOR T= 1TO A 4300 PLOT 3,127,X,Y,7:PRINT W(A,T) 4310 Y= Y+ 1 4320 NEXT T 4330 NEXT A 4340 A= 0 4350 T= 0 4360 PLOT 6,4 4370 PLOT 2,250,0,126,121,125,121,114,121,113,121,78,121,79,121,66,121,65,121,2,121,1,121,255 4380 PLOT 2,246,1,0,126,121,126,255 4390 FOR X= 9TO 107STEP 14 4400 PLOT 2,246,3,X,71,255 4410 NEXT X 4420 FOR X= 9TO 107STEP 14 4430 PLOT 2,246,79,X,119,255 4440 NEXT X 4450 RETURN 5000 REM *** LINE 5010 THRU 5190 ERASES THE BOXES AND COMPUTER SELECTED NUMBERS FROM SCREEN 5010 T= 0 5020 PLOT 3,0,0,11,3,0,3,11,6,0 5050 FOR I= 46TO 118STEP 8 5060 PLOT 2,246,4,I,99,255 5070 NEXT I 5080 FOR I= 53TO 125STEP 8 5090 PLOT 2,246,4,I,99,255 5100 NEXT I 5110 FOR I= 4TO 88STEP 12 5120 PLOT 2,250,46,I,125,255 5130 NEXT I 5140 FOR I= 15TO 99STEP 12 5150 PLOT 2,250,46,I,125,255 5160 NEXT I 5170 PLOT 2,246,0,30,79,31,79,32,79,33,79,255 5180 RETURN 5190 PLOT 6,7:RETURN