image of READY prompt

Wang2200.org

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