TO TITLE
RECYCLE CS HT SETPC 15 SETBG 13
SETCURSOR [3 7]
PR [LAS VEGAS TEN\-SPOT KENO]
REPEAT 6 [PR []]
PR [\ \ \ \ \ BY KIP H. HAMMOND]
WAIT 300 PLAY
END

TO ROLL
RECYCLE
PR [] PR [] PR []
PR [\ \ \ \ ADAM IS CALCULATING]
PR [] PR [\ \ 20 RANDOM NUMBERS FROM]
PR [] PR [1 TO 80.\ ONE MOMENT PLEASE.]
N1 N2 N3 N4 RECYCLE
N5 N6 N7 N8 N9 N10 RECYCLE
N11 N12 N13 N14 RECYCLE
N15 N16 N17 N18 N19 N20
END

TO ADOUT
RECYCLE
PR [] PR [] PR []
PR [ADAM HAS SELECTED:]
PR []
TYPE :N1 SP TYPE :N2 SP TYPE :N3 SP TYPE :N4 SP TYPE :N5
PR [] PR []
TYPE :N6 SP TYPE :N7 SP TYPE :N8 SP TYPE :N9 SP TYPE :N10
PR [] PR []
TYPE :N11 SP TYPE :N12 SP TYPE :N13 SP TYPE :N14 SP TYPE     :N15
PR [] PR []
TYPE :N16 SP TYPE :N17 SP TYPE :N18 SP TYPE :N19 SP TYPE     :N20
END

TO MATCH
RECYCLE
MAKE "WINS 0
MAKE "Z FIRST :PK1 CK
MAKE "Z FIRST :PK2 CK
MAKE "Z FIRST :PK3 CK
MAKE "Z FIRST :PK4 CK
MAKE "Z FIRST :PK5 CK
MAKE "Z FIRST :PK6 CK
MAKE "Z FIRST :PK7 CK
MAKE "Z FIRST :PK8 CK
MAKE "Z FIRST :PK9 CK
MAKE "Z FIRST :PK10 CK
END

TO WINOUT
SETBG 6
SETCURSOR [1 17]
TYPE [YOU HAVE MATCHED\ ]
TYPE :WINS
TYPE [\ NUMBERS!]
PR []
END

TO MONEY
MAKE "DOL 0
IF :WINS = 5 [MAKE "DOL [3.5]]
IF :WINS = 6 [MAKE "DOL [17.5]]
IF :WINS = 7 [MAKE "DOL [150]]
IF :WINS = 8 [MAKE "DOL [1200]]
IF :WINS = 9 [MAKE "DOL [12,500.00]]
IF :WINS = 10 [MAKE "DOL [25,000.00]]
SETCURSOR [4 19]
TYPE [\*\ YOU WIN $] TYPE :DOL TYPE [\ \*]
PR []
END

TO AGAIN
SETCURSOR [1 21]
PR [PRESS "A" TO PLAY AGAIN.]
PR [PRESS "Q" TO QUIT.]
MAKE "AG RC
IF :AG = "A [MORE STOP]
IF :AG = "Q [CS ST SETBG 5 LASTCH STOP]
AGAIN
END

TO PLAY2
CS SETBG 4 RECYCLE
POUT ROLL POUT ADOUT MATCH WINOUT MONEY AGAIN
END

TO LASTCH
PR [IF YOU CHANGE YOUR MIND,]
PR []
PR [TYPE "STARTUP < CR > " TO]
PR []
PR [PLAY AGAIN.]
END

TO MORE
CS SETBG 12
SETCURSOR [1 5]
PR [IF YOU WANT TO ENTER NEW]
PR [NUMBERS, PRESS "N".] PR []
PR [] PR []
PR [IF YOU WANT TO PLAY THE]
PR [SAME NUMBERS, PRESS "S".]
PR [] PR [] PR []
PR [IF YOU WANT TO QUIT,]
PR [PRESS "Q".]
PR [] PR [] PR [] PR []
PR [\ \ \ \*\ \*\ \* GOOD LUCK \*\ \*\ \*]
MAKE "ANS RC
IF :ANS = "Q [CS SETBG 5 ST LASTCH STOP]
IF :ANS = "N [PLAY STOP]
IF :ANS = "S [PLAY2 STOP]
MORE
END

TO UP
MAKE "WINS ( :WINS + 1 )
END

TO SP
TYPE [\ \ \ ]
END

TO PLAY
CS RECYCLE HT SETBG 4
GAMEBOARD SELECT POUT ROLL POUT ADOUT MATCH WINOUT MONEY     AGAIN
END

TO GAMEBOARD
CS SETCURSOR [4 0]
PR [\*\ \*\ TEN\-SPOT KENO\ \*\ \*]
BOARD GRID
PR [ENTER TEN NUMBERS TO PLAY]
END

TO SELECT
SC PR [ENTER YOUR FIRST NUMBER:]
MAKE "PK1 RL
SC PRT
MAKE "PK2 RL
SC PRT
MAKE "PK3 RL
SC PRT
MAKE "PK4 RL
SC PRT
MAKE "PK5 RL
SC PRT
MAKE "PK6 RL
SC PRT
MAKE "PK7 RL
SC PRT
MAKE "PK8 RL
SC PRT
MAKE "PK9 RL
SC PRT
MAKE "PK10 RL
END

TO COL
SETH 0 PD FD 128 BK 128 PU
END

TO LINE
PD SETH 90 FD 256 SETH 0 PU
END

TO GRID
PU HOME BK 43
REPEAT 9 [LINE SETY YCOR + 16]
HOME
BK 43 SETX -102
REPEAT 9 [COL SETX XCOR + 24]
END

TO BOARD
SETCURSOR [0 2]
PR [1\  2\  3\  4\  5\  6\  7\  8\  9\  10]
SETCURSOR [0 4]
PR [11\ 12\ 13\ 14\ 15\ 16\ 17\ 18\ 19\ 20]
SETCURSOR [0 6]
PR [21\ 22\ 23\ 24\ 25\ 26\ 27\ 28\ 29\ 30]
SETCURSOR [0 8]
PR [31\ 32\ 33\ 34\ 35\ 36\ 37\ 38\ 39\ 40]
SETCURSOR [0 10]
PR [41\ 42\ 43\ 44\ 45\ 46\ 47\ 48\ 49\ 50]
SETCURSOR [0 12]
PR [51\ 52\ 53\ 54\ 55\ 56\ 57\ 58\ 59\ 60]
SETCURSOR [0 14]
PR [61\ 62\ 63\ 64\ 65\ 66\ 67\ 68\ 69\ 70]
SETCURSOR [0 16]
PR [71\ 72\ 73\ 74\ 75\ 76\ 77\ 78\ 79\ 80]
END

TO SC
SETCURSOR [1 20]
END

TO PRT
PR [ENTER YOUR NEXT NUMBER:]
END

TO N2
MAKE "N2 ( RANDOM 80 ) + 1
IF :N2 = :CK [N2]
END

TO N1
MAKE "N1 ( RANDOM 80 ) + 1
MAKE "CK :N1
END

TO CK
IF ( OR :Z = :N1 :Z = :N2 :Z = :N3 :Z = :N4 :Z = :N5 ) [UP]
IF ( OR :Z = :N6 :Z = :N7 :Z = :N8 :Z = :N9 :Z = :N10 ) [UP]
IF ( OR :Z = :N11 :Z = :N12 :Z = :N13 :Z = :N14 :Z = :N15 )  [UP]
IF ( OR :Z = :N16 :Z = :N17 :Z = :N18 :Z = :N19 :Z = :N20 )  [UP]
END

TO CHECK :X
IF :CK = :N1 [GO :X]
IF :CK = :N2 [GO :X]
IF :X = 3 [STOP]
IF :CK = :N3 [GO :X]
IF :X = 4 [STOP]
IF :CK = :N4 [GO :X]
IF :X = 5 [STOP]
IF :CK = :N5 [GO :X]
IF :X = 6 [STOP]
IF :CK = :N6 [GO :X]
IF :X = 7 [STOP]
IF :CK = :N7 [GO :X]
IF :X = 8 [STOP]
IF :CK = :N8 [GO :X]
IF :X = 9 [STOP]
IF :CK = :N9 [GO :X]
IF :X = 10 [STOP]
IF :CK = :N10 [GO :X]
IF :X = 11 [STOP]
IF :CK = :N11 [GO :X]
IF :X = 12 [STOP]
IF :CK = :N12 [GO :X]
IF :X = 13 [STOP]
IF :CK = :N13 [GO :X]
IF :X = 14 [STOP]
IF :CK = :N14 [GO :X]
IF :X = 15 [STOP]
IF :CK = :N15 [GO :X]
IF :X = 16 [STOP]
IF :CK = :N16 [GO :X]
IF :X = 17 [STOP]
IF :CK = :N17 [GO :X]
IF :X = 18 [STOP]
IF :CK = :N18 [GO :X]
IF :X = 19 [STOP]
IF :CK = :N19 [GO :X]
END

TO N20
MAKE "N20 ( RANDOM 80 ) + 1
MAKE "CK :N20
CHECK 20
END

TO N19
MAKE "N19 ( RANDOM 80 ) + 1
MAKE "CK :N19
CHECK 19
END

TO N18
MAKE "N18 ( RANDOM 80 ) + 1
MAKE "CK :N18
CHECK 18
END

TO N17
MAKE "N17 ( RANDOM 80 ) + 1
MAKE "CK :N17
CHECK 17
END

TO N16
MAKE "N16 ( RANDOM 80 ) + 1
MAKE "CK :N16
CHECK 16
END

TO N15
MAKE "N15 ( RANDOM 80 ) + 1
MAKE "CK :N15
CHECK 15
END

TO N14
MAKE "N14 ( RANDOM 80 ) + 1
MAKE "CK :N14
CHECK 14
END

TO N13
MAKE "N13 ( RANDOM 80 ) + 1
MAKE "CK :N13
CHECK 13
END

TO N12
MAKE "N12 ( RANDOM 80 ) + 1
MAKE "CK :N12
CHECK 12
END

TO N11
MAKE "N11 ( RANDOM 80 ) + 1
MAKE "CK :N11
CHECK 11
END

TO N10
MAKE "N10 ( RANDOM 80 ) + 1
MAKE "CK :N10
CHECK 10
END

TO N9
MAKE "N9 ( RANDOM 80 ) + 1
MAKE "CK :N9
CHECK 9
END

TO POUT
CS RECYCLE
PR [YOUR NUMBERS ARE:] PR []
TYPE :PK1 SP TYPE :PK2 SP TYPE :PK3 SP TYPE :PK4 SP TYPE     :PK5
PR [] PR []
TYPE :PK6 SP TYPE :PK7 SP TYPE :PK8 SP TYPE :PK9 SP TYPE     :PK10
END

TO N8
MAKE "N8 ( RANDOM 80 ) + 1
MAKE "CK :N8
CHECK 8
END

TO N7
MAKE "N7 ( RANDOM 80 ) + 1
MAKE "CK :N7
CHECK 7
END

TO N6
MAKE "N6 ( RANDOM 80 ) + 1
MAKE "CK :N6
CHECK 6
END

TO N5
MAKE "N5 ( RANDOM 80 ) + 1
MAKE "CK :N5
CHECK 5
END

TO N4
MAKE "N4 ( RANDOM 80 ) + 1
MAKE "CK :N4
CHECK 4
END

TO N3
MAKE "N3 ( RANDOM 80 ) + 1
MAKE "CK :N3
CHECK 3
END

TO GO :X
IF :X = 3 [N3]
IF :X = 4 [N4]
IF :X = 5 [N5]
IF :X = 6 [N6]
IF :X = 7 [N7]
IF :X = 8 [N8]
IF :X = 9 [N9]
IF :X = 10 [N10]
IF :X = 11 [N11]
IF :X = 12 [N12]
IF :X = 13 [N13]
IF :X = 14 [N14]
IF :X = 15 [N15]
IF :X = 16 [N16]
IF :X = 17 [N17]
IF :X = 18 [N18]
IF :X = 19 [N19]
IF :X = 20 [N20]
END

MAKE "STARTUP [TITLE]

