Listing of file='KENO' on disk='vmedia/more_games.wvd.zip'
# Sector 729, program filename = 'KENO' 0010 REM *KENO* : LOAD DC T#6,"GAMES" 0020 DIM G(20) 0030 PRINT "WELCOME TO HILLVIEW CASINO---THE GAME IS KENO." 0040 PRINT "TICKETS=$1.20"; 0050 GOSUB 290 0060 INPUT "HOW MANY SPOTS DO YOU WISH TO PLAY?",N 0070 IF N<16 THEN 80 : PRINT "15 IS THE MAXIMUM # OF SPOTS." : GOTO 60 0080 DIM S(15) : W=0 0090 PRINT "SELECT";N;"NUMBERS BETWEEN 1 & 80." 0100 FOR J=1TO N 0110 INPUT S(J) : IF S(J)<81 THEN 130 0120 PRINT "ARE YOU FAMILIAR WITH OUR NUMBER SYSTEM?";S(J);" IS LARGER THAN 80 ." : GOTO 110 0130 NEXT J 0140 PRINT HEX(03);"PLEASE STANDBY---HERE COMES THE DRAW!" 0150 GOSUB 290 0160 FOR I=1TO 20 0170 Q=0 0180 LET X=INT(80*RND(1)+1) 0190 FOR K=1TO I 0200 IF X<>G(K) THEN 220 0210 LET Q=1 : K=I : GOTO 220 0220 NEXT K 0230 IF Q=1 THEN 170 0240 LET G(I)=X 0250 FOR J=1TO N : IF S(J)<>X THEN 270 0260 W=W+1 0270 NEXT J 0280 NEXT I 0290 LET P=P+1 0300 FOR I=16TO 57 : PRINT TAB(I);"*"; : NEXT I : PRINT HEX(0A0D) 0310 FOR K=1TO 8 : IF K=5 THEN 380 : IF K<>1 THEN 390 0320 PRINT TAB(16);"*"; : FOR M=1TO 10 : IF P<>3 THEN 360 0330 FOR Y=1TO 20 : IF G(Y)<>M THEN 350 0340 PRINT TAB(17+4*(M-1));M; : LET Y=20 : NEXT Y : GOTO 370 0350 NEXT Y : PRINT TAB(17+4*(M-1)); : GOTO 370 0360 PRINT M; : IF M=10 THEN 370 : PRINT HEX(20); 0370 NEXT M : PRINT TAB(57);"*" : GOTO 460 0380 FOR L=16TO 57 : PRINT TAB(L);"#"; : NEXT L : PRINT HEX(0A0D) 0390 PRINT TAB(16);"*"; : FOR I=1TO 10 : IF P<>3 THEN 430 0400 FOR Y=1TO 20 : IF G(Y)<>I+Z THEN 420 0410 PRINT TAB(17+4*(I-1));Z+I; : LET Y=20 : NEXT Y : GOTO 440 0420 NEXT Y : PRINT TAB(17+4*(I-1)); : GOTO 440 0430 PRINT I+Z; 0440 NEXT I 0450 PRINT TAB(57);"*" 0460 LET Z=Z+10 : NEXT K : LET Z=0 0470 FOR I=16TO 57 : PRINT TAB(I);"*"; : NEXT I : PRINT HEX(0A0D) 0480 IF P=2 THEN 500 : IF P=3 THEN 510 0490 RETURN 0500 PRINT HEX(010A) : RETURN 0510 PRINT "YOUR NUMBERS ARE:"; 0520 FOR V=1TO N : PRINT S(V); : NEXT V : PRINT 0530 PRINT "YOU CAUGHT";W;"SPOTS" 0540 P=0 0550 IF N=1 THEN 650 : IF N=2 THEN 660 : IF N=3 THEN 670 0560 IF N=4 THEN 680 : IF N=5 THEN 690 : IF N=6 THEN 700 : IF N=7 THEN 710 : IF N=8 THEN 720 0570 IF N=9 THEN 730 : IF N=10 THEN 740 : IF N=11 THEN 750 : IF N=12 THEN 760 : IF N=13 THEN 770 : IF N=14 THEN 780 0580 DATA 3.60, 15.00, 1.20, 52.00, 1.20, 5.00, 140.00, 2.00, 28.00, 600.00, 1.00, 6.00, 110.00, 2000.00, .60, 2.00, 28.00 0590 DATA 400.00, 6000.00, 10.00, 100.00, 2200.00, 25000.00, .40, 4.00, 56.0 0, 360.00, 5000.00, 25000.00, 2.40, 24.00 0600 DATA 180.00,1320.00,4800.00,25000.00,12.00,100.00,500.00,2400.00,15000.00 ,25000.00,1.00,6.00,36.00 0610 DATA 260.00,750.00,1800.00,10000.00,25000.00,2.00,20.00,100.00,900.00,480 0.00,9000.00,20000.00 0620 DATA 25000.00,4.00,10.00,40.00,320.00,1000.00,3000.00,10000.00,25000.00,2 5000.00,2.00,100.00,28.00 0630 DATA 100.00, 300.00, 3000.00, 10000.00, 25000.00, 25000.00, 2500 0.00 0640 IF W<6 THEN 790 : RESTORE (67+(W-6)) : GOTO 820 0650 IF W=0 THEN 790 : RESTORE : GOTO 820 0660 IF W<2 THEN 790 : RESTORE (N) : GOTO 820 0670 IF W<2 THEN 790 : RESTORE (3+(W-2)) : GOTO 820 0680 IF W<2 THEN 790 : RESTORE (5+(W-2)) : GOTO 820 0690 IF W<3 THEN 790 : RESTORE (8+(W-3)) : GOTO 820 0700 IF W<3 THEN 790 : RESTORE (11+(W-3)) : GOTO 820 0710 IF W<3 THEN 790 : RESTORE (15+(W-3)) : GOTO 820 0720 IF W<5 THEN 790 : RESTORE (20+(W-5)) : GOTO 820 0730 IF W<4 THEN 790 : RESTORE (24+(W-4)) : GOTO 820 0740 IF W<5 THEN 790 : RESTORE (30+(W-5)) : GOTO 820 0750 IF W<6 THEN 790 : RESTORE (36+(W-6)) : GOTO 820 0760 IF W<5 THEN 790 : RESTORE (42+(W-5)) : GOTO 820 0770 IF W<6 THEN 790 : RESTORE (50+(W-6)) : GOTO 820 0780 IF W<6 THEN 790 : RESTORE (58+(W-6)) : GOTO 820 0790 PRINT "SORRY YOU LOST --- "; 0800 LET D=D-1.20 : PRINT "YOUR WINNINGS ARE $";D 0810 INPUT "RETURN (EXEC) TO TRY AGAIN!!",A$ : PRINT HEX(03) : GOTO 30 0820 READ R : LET D=D+R-1.20 : PRINT "YOU'VE WON $";R;"---YOUR WINNINGS ARE NOW $";D : GOTO 810