'                              LOTTERY-A-ROO
'                              Version 1.20

'                  To start: go up to run and choose start






'    check out our home page-http://pages.prodigy.com/viperx.htm


CLS
COLOR 7, 9
CLS
LOCATE 12, 27
PRINT "Welcome to Lottery-A-Roo"
LOCATE 20, 24
PRINT "Press any key to continue..."
15 key$ = INKEY$: IF key$ = "" THEN GOTO 15
h% = 20
5 CLS
COLOR 0, 9
CLS
RANDOMIZE TIMER
k% = INT(RND * 5 + 1)
IF k% = 1 THEN m% = 500
IF k% = 2 THEN m% = 750
IF k% = 3 THEN m% = 1000
IF k% = 4 THEN m% = 2500
IF k% = 5 THEN m% = 5000
IF k% = 6 THEN m% = 7500
LOCATE 5, 70
wincount% = 0
PRINT h%
h% = h% - 5
LOCATE 1, 22
PRINT "Tonight's jackpot is worth $"; m%
LOCATE 5, 70
PRINT h%
LOCATE 5, 5
INPUT "Enter your first number (0-9)"; a%
6 LOCATE 6, 5: PRINT "                                        "
LOCATE 6, 5: INPUT "Enter your second number(0-9)"; b%
IF a% = b% THEN LOCATE 20, 10: PRINT "Can't use two of the same numbers!": GOTO 6
7 LOCATE 7, 5: PRINT "                                         "
LOCATE 7, 5: INPUT "Enter your third number (0-9)"; c%
IF a% = c% OR b% = c% THEN LOCATE 20, 10: PRINT "Can't use two of the same numbers!": GOTO 7
8 RANDOMIZE TIMER
x% = INT(RND * 9)
RANDOMIZE TIMER
y% = INT(RND * 9)
RANDOMIZE TIMER
z% = INT(RND * 9)
IF x% = y% THEN GOTO 8
IF x% = z% THEN GOTO 8
IF y% = z% THEN GOTO 8
REM Look at numbers
LOCATE 10, 1
PRINT "The first ball up is"; x%
SLEEP 2
PRINT "The next is "; y%
SLEEP 3
PRINT "And the last"; z%
PRINT "Making tonight's winning numbers"; x%; y%; z%
PRINT "Congradulations to all you winners!"
IF a% = x% THEN wincount% = wincount% + 1
IF a% = y% THEN wincount% = wincount% + 1
IF a% = z% THEN wincount% = wincount% + 1
IF b% = x% THEN wincount% = wincount% + 1
IF b% = y% THEN wincount% = wincount% + 1
IF b% = z% THEN wincount% = wincount% + 1
IF c% = x% THEN wincount% = wincount% + 1
IF c% = y% THEN wincount% = wincount% + 1
IF c% = z% THEN wincount% = wincount% + 1
IF wincount% = 1 THEN GOTO 18
IF wincount% = 2 GOTO 30
IF wincount% = 3 GOTO 40
LOCATE 5, 70
IF h% <= 0 THEN GOTO 20
18 LOCATE 19, 5
PRINT "You Lose!"
19 LOCATE 20, 5
PRINT "                                                    "
19.5 LOCATE 20, 5
PRINT "                                                           "
LOCATE 20, 5
INPUT "Do you want to play again:"; hg$
IF hg$ = "yes" THEN GOTO 5
IF hg$ = "no" THEN END ELSE GOTO 19.5
20 LOCATE 20, 5
PRINT "You cannot play because you are out of money": END
30 LOCATE 19, 5
PRINT "You win $100!"
h% = h% + 100
LOCATE 5, 70
PRINT h%
GOTO 19
40 LOCATE 19, 5
PRINT "You win $"; m%
PLAY "MFL15ABC4ADCCADG2AA"
PLAY "MBL9ABDFG40GA3D"
PLAY "MBL34CD-AB"
LOCATE 5, 70
PRINT h%
GOTO 19