10 REM KENO!
20 SCREEN 9
30 RANDOMIZE TIMER
50 KEY 6,"SAVE"+CHR$(34)+"KENO!"+CHR$(34)+",a"
60 REM KEY 4,"list-100"+CHR$(13)
70 REM KEY 1,"list 300-400"+CHR$(13)
80 KEY 8,"color 2,0"+CHR$(13)
90 KEY 9,"renum"+CHR$(13)
95 KEY 10,"system"+CHR$(13)
100 TOTAL=10:HIGH=80:LOW=1
110 REM
120 DIM NUM(TOTAL)
125 REM GOSUB 5000
130 CLS:COLOR  2,0:LOCATE 23,10:PRINT"Press any key to get a selection."
140 COLOR 10,0:LOCATE 23,44:PRINT" Listed at TOP of Screen."
150 COLOR 2,0:LOCATE  1,5:PRINT"Selections so far: "
155 REM COLOR 4,0:LOCATE  1,25:PRINT"q to quit quick"
160 P=24
170 L=1
180 RANGE=HIGH-LOW
190 X=INT(19*RND)+3
200 Q=INT(RANGE*RND)+LOW
210 Y=INT(79*RND)+1
220 A=INT(15*RND)+1
230 IF A=0 OR A=16 THEN GOTO 220
240 IF X=22 AND Y>73 THEN Y=73
245 IF FLAG3=99 THEN GOTO 300
250 IF FLAG=86 THEN GOTO 300
260 COLOR A,0:LOCATE X,Y:PRINT Q
265 X$=INKEY$
267 REM IF X$="q" OR X$="Q" THEN PRINT"CAME FROM LINE 267":GOTO 940
270 IF X$<>"" THEN GOTO 300
280 IF FLAG2=99 THEN GOTO 300
290 GOTO 190
300 REM this is section to save num(t) and list them
303 IF T=0 THEN COLOR 4,0:LOCATE  1,25:PRINT"               "
310 T=T+1
320 NUM(T)=Q
330 IF T=1 THEN GOTO 380
340 F=T-1
350 FOR COUNT=1 TO F
360 IF NUM(T)=NUM(COUNT) THEN GOSUB 730:GOTO 200
370 NEXT COUNT
380 IF FLAG=86 THEN GOTO 410
390 COLOR A,0:LOCATE L,P:PRINT Q;"  "
400 FLAG2=0
410 IF T=TOTAL THEN GOTO 460
420 P=P+6
430 IF P>73 THEN P=1:L=L+1
440 IF L=3 THEN L=1:P=24
450 GOTO 190
460 REM end prog with list of selects. etc.....
470 OPEN "a" ,#1,"KENO.DAT"
480 PRINT #1,DATE$;"   ";
490 CLS:COLOR 3,0:LOCATE 8,10:PRINT"Your selections are:";
500 FOR N=1 TO TOTAL
510 A=INT(15*RND)+1
520 COLOR A,0:PRINT NUM(N);
530 PRINT #1,NUM(N);
540 NEXT N
550 PRINT #1,"   Good Luck!"
560 CLOSE #1
570 PRINT:PRINT:PRINT"         Good Luck"
575 COLOR 2:PRINT:PRINT:PRINT"         Your numbers are stored in KENO.DAT"
577 IF FLAG3=99 THEN SYSTEM
580 IF INKEY$<>"" THEN GOTO 940 ELSE GOTO 580
590 REM COLOR 10,0:PRINT:PRINT:PRINT"   The command to exit to DOS is SYSTEM"
600 GOTO 640
610 END
620 REM see 5000.bas
630 COLOR 3,0
640 REM
650 REM COLOR 3,0:LOCATE 16,8:PRINT" Press X to run a variation of this program"
660 REM COLOR 10,0:LOCATE 14,8:PRINT" Press Q to exit to DOS."
670 REM COLOR 0,0:LOCATE 18,7:INPUT G$
680 SYSTEM
690 IF G$="X" OR G$="x" THEN RUN"RANDOM1"
700 IF G$="q" OR G$="Q" THEN SYSTEM
710 REM LOCATE 23,Z2:PRINT" ";
720 REM NEXT L
730 REM PRINT"          This came from duplicates !!!!!             ";Q;"       "
740 REM PRINT "THIS IS LINE 740":END
750 REM IF NUM(T)=NUM(COUNT)
760 REM But I neglected a return statement ??
770 REM LOCATE 17,5:PRINT"geoff: the dupliacte is:";Q
780 BEEP:COLOR 1:LOCATE 23,1:PRINT Q
790 REM INPUT K$
800 REM LOCATE 17,5:PRINT"                        ";Q
810 REM FLAG2=99:BEEP:BEEP:GOTO 200
820 FLAG2=99:BEEP:BEEP
830 T=T-1
840 REM ah! that is what I neglected??
845 REM INPUT TI
850 RETURN
940 REM COLOR 2:PRINT:PRINT "THIS IS LINE 940    F10 to exit.":END
950 SYSTEM
5000 REM subroutine to offer choice of automatic selections - flag3 ??
5005 C=INT(RND*15)+1:COLOR 9
5010 CLS:LOCATE 5,10:PRINT"Do ya wish auto selections? (Y/N)
5015 COLOR 10:LOCATE 7,10:PRINT"If you just hit enter it goes to auto!!"
5020 COLOR 2:LOCATE 9,10:INPUT Q$
5030 REM IF Q$<>"y" AND Q$<>"Y" AND Q$<>"n" AND Q$<>"N" THEN GOTO 5000
5040 IF Q$="" THEN FLAG3=99:GOTO 130