' Program: Lucky `Z' Slots
' File: SLOTS3.BAS
' Date: 1995-February 1997
' Author: Xopl
' Send all comments to:  me@XOPL.com
' --> Please read the copyright notice below, before you play.
'
' Info:
'
' Slots is a game I've been working on a long time, but never took the time
' to finish until now. Something that slowed the development was the fact I
' kept adding extras and testing to make sure everything worked.  But, because
' of this, you should enjoy playing Slots a lot!  It has secrets, realism, a
' highscore list, a passcode save feature, and many other things. It simulates
' a real slot machine quite well, I think.  The ability to stop and then come
' back days later and continue your progress (via passcodes) is great.  And,
' you can brag if you win lots of money, because your name will be listed on
' the highscore table when you exit the game.  Also, I made this game totally
' self contained so there is nothing to unzip.. just a simple plain text file
' to download.  This program sets up whatever it needs on its own.
'
' The controls are simple. Once playing you'll see that the game asks you for
' your bet.  Your bet can be from 1 to 20.  After you type in your bet, and
' hit <Enter> to output it into the game, you can then press <Esc> to quit or
' <Enter> to spin using the bet you just entered.  After the first time you
' set your bet, you don't ever have to re-enter it, though.  You can just hit
' <Enter> to accept the same bet you used previously.  So, once you set your
' initial bet, you can just hit enter twice to spin quickly.  Simple!!
'
' OK, that's about it.. everything is pretty self explanitory.  Press F5 now
' to play Lucky `Z' Slots!  And if you get a jackpot, or a super high score,
' I'd love it if you told me. (I'll even post record high scores on my page!)
' THANKS! Have fun!
'
'                                                ...Xopl ->  me@XOPL.com
'
'
'*Copyright information:
' Slots v6.5b Copyright (C) 1995-1997 Xopl
' "Xopl" Copyright (C) 1995-1997
' You MAY distribute this file only if this file has NOT been altered in any
' way.
' You may NOT, however, steal this program's game engine or use this program's
' code/engine as a base for other programs or as part of any other program.
' This program was created from scratch by Xopl.
' USE THIS PROGRAM AT YOUR OWN RISK. THIS IS BETA. IT WOULD BE APPRECIATED IF
' YOU WOULD REPORT AND BUGS AND/OR PROBLEMS.





DECLARE FUNCTION Box% (Row1%, Col1%, Row2%, Col2%, fclr%, bclr%, shadow%)
DECLARE FUNCTION spell$ (word$, length!, row!, col!)
DECLARE SUB jackpot (j$)
DECLARE SUB begin ()
DECLARE SUB install ()
DECLARE FUNCTION circlefill! (x!, Y!, r!, c!)

' This code is sloppy.. I wouldn't even bother reading it!

CLS
GOTO start
banner:
LOCATE 1, 1, 0
COLOR 15, 4
PRINT "  Slots  BETA v6.5                                 (C)1995-1997  Xopl   "
COLOR 7, 0
RETURN
start:
GOSUB banner
PRINT " INIT_C:"
PRINT
PRINT " ============================================================================= "
PRINT "              Please read the copyright notice located in this file."
PRINT " ============================================================================= "
PRINT
PRINT " INIT_V: wn1H075"
wn = 1000
PRINT " INIT_V: ct000"
ct = 0
PRINT " INIT_V: B001"
bet = 1
PRINT " INIT_V: N1.2.10"
DIM names(1 TO 10) AS STRING
PRINT " INIT_V: S1.2.10"
DIM scores(1 TO 10) AS LONG '(the numbers)
PRINT " INIT__: "
debug% = 0
PRINT " INIT_G:"
INPUT "Would you like to continue an old game? Y or N ", og$
IF og$ = "y" OR og$ = "Y" THEN GOSUB oldgame
IF og$ = "y" OR og$ = "Y" THEN GOTO skipsd
PRINT " INIT_SS:"
set.a.c:
INPUT "Would you like to have the slot machine make noise? Y or N ", s$
sd$ = "true"
IF s$ = "y" OR s$ = "Y" THEN sd$ = "true"
IF s$ = "n" OR s$ = "N" THEN sd$ = "false"
skipsd:
IF jcode$ = "TRUE" THEN
jclin = CSRLIN
PRINT "  OK [        ]"
a$ = spell$("........", 8, jclin, 7)
END IF
IF jcode$ = "TRUE" THEN BEEP
where = CSRLIN
GOSUB banner
LOCATE where, 1, 0
PRINT " INIT_&H: $ - ?Hmm?"
where = CSRLIN
GOSUB banner
LOCATE where, 1, 0
PRINT " INIT_A: RU18?"
where = CSRLIN
GOSUB banner
LOCATE where, 1, 0
PRINT " INIT_SELF_CHECK: highscr.dat...";
where = CSRLIN
GOSUB banner
LOCATE where, 33, 0
install
PLAY "l6n0p64"
IF INKEY$ = CHR$(36) THEN wn = 5000

CLS
SCREEN 8

'////////////INTRO SEQUENCE//////////////
'begin                                     <----CHEEZY?
'///////////////////////////////////////

SCREEN 8, 0, 0, 0
CLS
COLOR 1, 0
LINE (0, 0)-(640, 200), 5, BF
LINE (216, 68)-(424, 122), 3, BF
LINE (220, 70)-(420, 120), 15, BF
LOCATE 12, 35, 0
PRINT "Drawing..."
SCREEN 8, 0, 1, 0


LINE (0, 0)-(640, 200), 13, BF
' Draw value table
LOCATE 1, 1, 0
COLOR 1, 15
PRINT "               SPECIAL ODDS                            NORMAL ODDS              "
PRINT "  ë   = x1    Z   = x5     7   = x10        = x6     = x20    = x35     "
PRINT "  ëë  = x5    ZZ  = x50    77  = x100      = x12    = x25    = x40     "
PRINT "  ëëë = x10   ZZZ = x500   777 = x1000     = x15   êêê = x30   $$$ = JACKPOT "
PRINT "                                                                                "
' Draw slot machine
LINE (155, 66)-(465, 200), 1, BF
c = circlefill!(305, 152, 60, 8)
c = circlefill!(305, 115, 115, 1)
LINE (246, 156)-(365, 156), 8
LINE (195, 88)-(425, 117), 14, BF
LINE (199, 89)-(421, 116), 1, BF
LINE (200, 90)-(420, 115), 15, BF
LINE (410, 71)-(460, 74), 8, BF
LINE (413, 72)-(457, 72), 1, BF
c = circlefill!(400, 73, 5, 8)
LINE (465, 120)-(480, 140), 8, BF
LINE (480, 85)-(490, 140), 8, BF
c = circlefill(485, 85, 15, 1)
SCREEN 8, 0, 1, 1

spin:
FOR I = 1 TO 3
RANDOMIZE TIMER
a1 = CINT(RND * 100)
RANDOMIZE TIMER + RND - 1
b1 = CINT(RND * 100)
RANDOMIZE TIMER + RND + 3
c1 = CINT(RND * 100)

' Its VERRRYYY sloppy code.

IF a1 < 20 THEN a2$ = "ë"
IF a1 < 20 THEN GOTO spin2
IF a1 < 40 THEN a2$ = ""
IF a1 < 40 THEN GOTO spin2
IF a1 < 55 THEN a2$ = ""
IF a1 < 55 THEN GOTO spin2
IF a1 < 65 THEN a2$ = ""
IF a1 < 65 THEN GOTO spin2
IF a1 < 75 THEN a2$ = ""
IF a1 < 75 THEN GOTO spin2
IF a1 < 85 THEN a2$ = "ê"
IF a1 < 85 THEN GOTO spin2
IF a1 < 90 THEN a2$ = ""
IF a1 < 90 THEN GOTO spin2
IF a1 < 95 THEN a2$ = ""
IF a1 < 95 THEN GOTO spin2
IF a1 < 98 THEN a2$ = "Z"
IF a1 < 98 THEN GOTO spin2
IF a1 < 100 THEN a2$ = "7"
IF a1 < 100 THEN GOTO spin2
IF a1 = 100 THEN a2$ = "$"
IF a1 = 100 THEN GOTO spin2

spin2:
LOCATE 13, 35, 0
COLOR 1, 15
PRINT a2$; "   "; b2$; "   "; c2$; "   "
IF sd$ = "true" THEN PLAY "o0l24fn0"
IF sd$ = "false" THEN PLAY "l24n0n0"
IF b1 < 20 THEN b2$ = "ë"
IF b1 < 20 THEN GOTO spin3
IF b1 < 40 THEN b2$ = ""
IF b1 < 40 THEN GOTO spin3
IF b1 < 55 THEN b2$ = ""
IF b1 < 55 THEN GOTO spin3
IF b1 < 65 THEN b2$ = ""
IF b1 < 65 THEN GOTO spin3
IF b1 < 75 THEN b2$ = ""
IF b1 < 75 THEN GOTO spin3
IF b1 < 85 THEN b2$ = "ê"
IF b1 < 85 THEN GOTO spin3
IF b1 < 90 THEN b2$ = ""
IF b1 < 90 THEN GOTO spin3
IF b1 < 95 THEN b2$ = ""
IF b1 < 95 THEN GOTO spin3
IF b1 < 98 THEN b2$ = "Z"
IF b1 < 98 THEN GOTO spin3
IF b1 < 100 THEN b2$ = "7"
IF b1 < 100 THEN GOTO spin3
IF b1 = 100 THEN b2$ = "$"
IF b1 = 100 THEN GOTO spin3

spin3:
LOCATE 13, 35, 0
COLOR 1, 15
PRINT a2$; "   "; b2$; "   "; c2$; "   "
IF sd$ = "true" THEN PLAY "o0l24fn0"
IF sd$ = "false" THEN PLAY "l24n0n0"
IF c1 < 20 THEN c2$ = "ë"
IF c1 < 20 THEN GOTO spin4
IF c1 < 40 THEN c2$ = ""
IF c1 < 40 THEN GOTO spin4
IF c1 < 55 THEN c2$ = ""
IF c1 < 55 THEN GOTO spin4
IF c1 < 65 THEN c2$ = ""
IF c1 < 65 THEN GOTO spin4
IF c1 < 75 THEN c2$ = ""
IF c1 < 75 THEN GOTO spin4
IF c1 < 85 THEN c2$ = "ê"
IF c1 < 85 THEN GOTO spin4
IF c1 < 90 THEN c2$ = ""
IF c1 < 90 THEN GOTO spin4
IF c1 < 95 THEN c2$ = ""
IF c1 < 95 THEN GOTO spin4
IF c1 < 98 THEN c2$ = "Z"
IF c1 < 98 THEN GOTO spin4
IF c1 < 100 THEN c2$ = "7"
IF c1 < 100 THEN GOTO spin4
IF c1 = 100 THEN c2$ = "$"
IF c1 = 100 THEN GOTO spin4

' It very very very sloppy code

spin4:
LOCATE 13, 35, 0
COLOR 1, 15
PRINT a2$; "   "; b2$; "   "; c2$; "   "
IF sd$ = "true" THEN PLAY "o0l24fn0"
IF sd$ = "false" THEN PLAY "l24n0n0"
NEXT
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO winsun
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO winnote
IF a2$ = "ê" THEN IF b2$ = "ê" THEN IF c2$ = "ê" THEN GOTO winshoe
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO winheart
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO winspade
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO winclub
IF a2$ = "" THEN IF b2$ = "" THEN IF c2$ = "" THEN GOTO windiamonda
IF a2$ = "" THEN IF b2$ = "" THEN GOTO windiamondb
IF a2$ = "$" THEN IF b2$ = "$" THEN IF c2$ = "$" THEN GOTO winpot
IF a2$ = "7" THEN IF b2$ = "7" THEN IF c2$ = "7" THEN GOTO winsevena
IF a2$ = "7" THEN IF b2$ = "7" THEN GOTO winsevenb
IF a2$ = "7" THEN GOTO winsevenc
IF a2$ = "ë" THEN IF b2$ = "ë" THEN IF c2$ = "ë" THEN GOTO wincherrya
IF a2$ = "ë" THEN IF b2$ = "ë" THEN GOTO wincherryb
IF a2$ = "ë" THEN GOTO wincherryc
IF a2$ = "Z" THEN IF b2$ = "Z" THEN IF c2$ = "Z" THEN GOTO winZa
IF a2$ = "Z" THEN IF b2$ = "Z" THEN GOTO winZb
IF a2$ = "Z" THEN GOTO winZc
GOTO spin5

spin5:
wn = wn - bet
IF wn < 10 THEN GOTO lowcash
IF wn < 1 THEN GOTO lose
LOCATE 6, 60, 0
PRINT "                     "
LOCATE 6, 60, 0
PRINT "You  have  $"; wn
LOCATE 13, 35, 0
COLOR 1, 15
PRINT a2$; "   "; b2$; "   "; c2$; "   "
IF debug% = 1 THEN
 bet = 1
 GOTO spin
END IF
redo.b:
LOCATE 8, 48, 0
PRINT "          "
LOCATE 8, 48, 0
INPUT "Bet: ", bet$
bet = VAL(bet$)
IF bet = 0 THEN bet = lastbet
IF bet < 1 OR bet > 20 THEN GOTO redo.b
lastbet = bet
LOCATE 11, 64, 0
IF debug% = 1 THEN GOTO spin
spinloop:
SELECT CASE INKEY$
CASE CHR$(13): GOTO spin
CASE CHR$(27): GOTO leave
CASE CHR$(55): GOTO code7a
CASE CHR$(36): IF jcode$ = "TRUE" THEN GOTO winpot
END SELECT
GOTO spinloop

winsun:
wn2 = bet * 40
wn = wn + wn2
GOTO spin5

winnote:
wn2 = bet * 35
wn = wn + wn2
GOTO spin5

winshoe:
wn2 = bet * 30
wn = wn + wn2
GOTO spin5

winheart:
wn2 = bet * 25
wn = wn + wn2
GOTO spin5

winclub:
wn2 = bet * 20
wn = wn + wn2
GOTO spin5

winspade:
wn2 = bet * 15
wn = wn + wn2
GOTO spin5

windiamonda:
wn2 = bet * 12
wn = wn + wn2
GOTO spin5
windiamondb:
wn2 = bet * 6
wn = wn + wn2
GOTO spin5

winpot:
jackpot (jcode$)
wn2 = 100 * CINT(RND * 80) + 20
IF wn2 < 1000 THEN wn2 = 2000
wn = wn + wn2
GOTO spin5

winZa:
wn2 = bet * 500
wn = wn + wn2
GOTO spin5
winZb:
wn2 = bet * 50
wn = wn + wn2
GOTO spin5
winZc:
wn2 = bet * 5
wn = wn + wn2
GOTO spin5

winsevena:
wn2 = bet * 1000
wn = wn + wn2
GOTO spin5
winsevenb:
wn2 = bet * 100
wn = wn + wn2
GOTO spin5
winsevenc:
wn2 = bet * 10
wn = wn + wn2
GOTO spin5

wincherrya:
wn2 = bet * 10
wn = wn + wn2
GOTO spin5
wincherryb:
wn2 = bet * 5
wn = wn + wn2
GOTO spin5
wincherryc:
wn2 = bet * 1
wn = wn + wn2
GOTO spin5

lowcash:
LOCATE 24, 1, 1, 31, 31
COLOR 1, 15
INPUT ; "  Are you sure you want to keep playing?  Y or N ", xyz$
IF xyz$ = "Y" OR xyz$ = "y" THEN GOTO spin
GOTO leave

code7a:
SELECT CASE INKEY$
CASE CHR$(33): GOTO code7b
CASE CHR$(13): GOTO spinloop
END SELECT
GOTO code7a
code7b:
SELECT CASE INKEY$
CASE CHR$(55): GOTO code7c
END SELECT
GOTO code7b
code7c:
ct = ct + 1
a2$ = "7"
b2$ = "7"
c2$ = "7"
LOCATE 6, 1, 1, 31, 31
COLOR 1, 15
IF ct = 1 THEN PRINT "C"
IF ct = 2 THEN PRINT "CH"
IF ct = 3 THEN PRINT "CHE"
IF ct = 4 THEN PRINT "CHEA"
IF ct = 5 THEN PRINT "CHEAT"
IF ct = 6 THEN PRINT "CHEATE"
IF ct = 7 THEN PRINT "CHEATER"
IF ct > 7 THEN wn = wn - 1010
GOTO spin4

s.ak:
PRINT CHR$(173)
FOR I = 1 TO 2500: NEXT
a = Box(8, 14, 18, 62, 15, 1, 0)
LOCATE 9, 30, 0
COLOR 15, 1
PRINT "Special Access"
LOCATE 14, 16, 0
PRINT "Enter access code:"
LOCATE 16, 16, 0
LINE INPUT "", sac$
FOR ii = 1 TO 4
LOCATE 16, 16, 0
PRINT "                                              "
SOUND 1000, 1
FOR iii = 1 TO 1000: NEXT
LOCATE 16, 16, 0
PRINT sac$
BEEP
FOR iii = 1 TO 300: NEXT
NEXT
IF UCASE$(sac$) = "DESIGNER MODES" THEN GOTO dm.m
END

dm.m:
a = Box(9, 15, 19, 63, 5, 11, 0)
LOCATE 10, 30, 0
PRINT "Designer's Menu"
LOCATE 12, 19, 0
PRINT "Debug Mode"
LOCATE 13, 19, 0
PRINT "Submenu Test"; CHR$(175)
c = 12
dchoose:
LOCATE c, 17, 0
PRINT " "
SELECT CASE INKEY$
CASE CHR$(0) + "H": c = c - 1
CASE CHR$(0) + "P": c = c + 1
CASE CHR$(13): GOTO dpick
END SELECT
GOSUB dchange
GOTO dchoose

dchange:
IF c < 12 THEN c = 12
IF c > 13 THEN c = 13
LOCATE c, 17, 0
PRINT "*"
FOR I = 1 TO 200: NEXT
RETURN

dpick:
IF c = 12 THEN
debug% = 1
GOTO set.a.c
END IF
END


cool.err:
PRINT
PRINT "FAILURE"
SOUND 200, 5
FOR I = 1 TO 500: NEXT
PRINT "Trying to recover...";
FOR I = 1 TO 3000: NEXT
IF rcv = 0 THEN GOTO no.re
IF rcv = 1 THEN RETURN
etop:
GOTO etop

no.re:
PRINT " Could not recover from failure"
PRINT
nr2:
LINE INPUT "", af$
af$ = UCASE$(af$)
IF af$ = "RESET" THEN END
IF af$ = "RETRY" GOTO endc
IF af$ = "RESET AND RETRY" GOTO oldgame
GOTO nr2

oldgame:
PRINT
chr.c = 65
lc = 10
end.let$ = ""
LOCATE 17, 6, 0
PRINT "Enter your password:"
LOCATE 19, 10, 0
PRINT "____________"
LOCATE 19, 10, 0
WHILE LEN(end.let$) < 12
pcl.ok = 0
pkb$ = INKEY$
SELECT CASE pkb$
CASE "A" TO "Z": pcl.ok = 1
CASE "a" TO "z": pcl.ok = 1
CASE "€" TO "þ": pcl.ok = 1
CASE "":
CASE ELSE
 BEEP
END SELECT
IF pcl.ok = 1 THEN
 PRINT UCASE$(pkb$);
 end.let$ = end.let$ + pkb$
END IF
WEND
GOTO endc

endc:
end.let$ = UCASE$(end.let$)
IF end.let$ = "SPECIALAKSES" THEN GOTO s.ak
IF RIGHT$(end.let$, 3) = "AVT" THEN
jcode$ = "TRUE"
GOTO og.err
END IF
IF RIGHT$(end.let$, 3) = "JCG" THEN
jcode$ = "TRUE"
GOTO og.err
END IF
IF LEFT$(end.let$, 1) = "Z" THEN
 sd$ = "true"
 GOTO next1
END IF
IF LEFT$(end.let$, 1) = "X" THEN
 sd$ = "false"
 GOTO next1
END IF
IF LEFT$(end.let$, 1) > "€" THEN
 rcv = 0
 GOSUB cool.err
END IF
GOTO og.err
next1:
wn.$ = ""
dmn = 1
FOR I = 1 TO 5
dmn = dmn + 1
IF MID$(end.let$, dmn, 1) = "A" THEN wn.$ = wn.$ + "0"
IF MID$(end.let$, dmn, 1) = "B" THEN wn.$ = wn.$ + "1"
IF MID$(end.let$, dmn, 1) = "C" THEN wn.$ = wn.$ + "2"
IF MID$(end.let$, dmn, 1) = "D" THEN wn.$ = wn.$ + "3"
IF MID$(end.let$, dmn, 1) = "E" THEN wn.$ = wn.$ + "4"
IF MID$(end.let$, dmn, 1) = "F" THEN wn.$ = wn.$ + "5"
IF MID$(end.let$, dmn, 1) = "G" THEN wn.$ = wn.$ + "6"
IF MID$(end.let$, dmn, 1) = "H" THEN wn.$ = wn.$ + "7"
IF MID$(end.let$, dmn, 1) = "I" THEN wn.$ = wn.$ + "8"
IF MID$(end.let$, dmn, 1) = "J" THEN wn.$ = wn.$ + "9"
IF MID$(end.let$, dmn, 1) > "J" THEN GOTO og.err
NEXT
wn = VAL(wn.$)
IF MID$(end.let$, 7, 1) = "A" THEN ct = 0
IF MID$(end.let$, 7, 1) = "B" THEN ct = 1
IF MID$(end.let$, 7, 1) = "C" THEN ct = 2
IF MID$(end.let$, 7, 1) = "D" THEN ct = 3
IF MID$(end.let$, 7, 1) = "E" THEN ct = 4
IF MID$(end.let$, 7, 1) = "F" THEN ct = 5
IF MID$(end.let$, 7, 1) = "G" THEN ct = 6
IF MID$(end.let$, 7, 1) = "H" THEN ct = 7
IF MID$(end.let$, 7, 1) > "H" THEN GOTO og.err
PRINT
RETURN

og.err:
LOCATE 19, 10, 0
PRINT "Invalid Code"
PRINT
og$ = "FALSE"
RETURN

lose:
LOCATE 24, 1, 0
COLOR 4, 15
SOUND 50, 5
PRINT "  You are bankrupt!!!!!!                                                    "
PRINT "Press ENTER.", xyz
WHILE INKEY$ <> CHR$(13): WEND
GOTO leave

leave:
SCREEN 0
COLOR 5, 1
LOCATE 10, 20, 0
PRINT "Bye, bye...   Come back soon!"
LOCATE 12, 22, 1, 31, 31
PRINT "You have  $"; wn

'compute code
IF sd$ = "true" THEN tell.code$ = tell.code$ + "Z"
IF sd$ = "false" THEN tell.code$ = tell.code$ + "X"
wn1.$ = "00000" + STR$(wn)
wn.$ = RIGHT$(wn1.$, 5)
dmn = 0
FOR I = 1 TO 5
dmn = dmn + 1
IF MID$(wn.$, dmn, 1) = " " THEN tell.code$ = tell.code$ + "A"
IF MID$(wn.$, dmn, 1) = "0" THEN tell.code$ = tell.code$ + "A"
IF MID$(wn.$, dmn, 1) = "1" THEN tell.code$ = tell.code$ + "B"
IF MID$(wn.$, dmn, 1) = "2" THEN tell.code$ = tell.code$ + "C"
IF MID$(wn.$, dmn, 1) = "3" THEN tell.code$ = tell.code$ + "D"
IF MID$(wn.$, dmn, 1) = "4" THEN tell.code$ = tell.code$ + "E"
IF MID$(wn.$, dmn, 1) = "5" THEN tell.code$ = tell.code$ + "F"
IF MID$(wn.$, dmn, 1) = "6" THEN tell.code$ = tell.code$ + "G"
IF MID$(wn.$, dmn, 1) = "7" THEN tell.code$ = tell.code$ + "H"
IF MID$(wn.$, dmn, 1) = "8" THEN tell.code$ = tell.code$ + "I"
IF MID$(wn.$, dmn, 1) = "9" THEN tell.code$ = tell.code$ + "J"
NEXT
IF ct = 0 THEN tell.code$ = tell.code$ + "A"
IF ct = 1 THEN tell.code$ = tell.code$ + "B"
IF ct = 2 THEN tell.code$ = tell.code$ + "C"
IF ct = 3 THEN tell.code$ = tell.code$ + "D"
IF ct = 4 THEN tell.code$ = tell.code$ + "E"
IF ct = 5 THEN tell.code$ = tell.code$ + "F"
IF ct = 6 THEN tell.code$ = tell.code$ + "G"
IF ct = 7 THEN tell.code$ = tell.code$ + "H"
IF ct > 7 THEN tell.code$ = tell.code$ + "H"
'done with that
tell.code$ = tell.code$ + "ABCDE"
LOCATE 13, 22, 1, 31, 31
PRINT "Your code is "; tell.code$
LOCATE 13, 22, 0
WHILE INKEY$ = "": WEND
CLS
COLOR 2, 0
CLS
OPEN "highscr.dat" FOR RANDOM AS #2
WHILE NOT EOF(2)
dex = dex + 1
GET #2, dex, names(dex)
WEND
score$ = RTRIM$(LTRIM$(RIGHT$(names(7), 5)))
scores(7) = VAL(score$)
dex = 0
IF wn > scores(7) THEN
 GOTO setspot
nst:
END IF
dex = 0
FOR dex = 1 TO 7
PUT #2, dex, names(dex)
NEXT
dex = 0
CLS
PRINT , , "   Lucky Stiffs"
PRINT
PRINT
PRINT
PRINT
WHILE NOT EOF(2)
dex = dex + 1
GET #2, dex, names(dex)
PRINT names(dex)
PRINT
WEND
CLOSE #2
GOTO done

setspot:
PRINT "Good job!  You've made the Lucky Stiff List."
ask.again:
INPUT "Would you like to enter your name? Y or N ", yn$
yn$ = UCASE$(yn$)
IF yn$ = "N" THEN GOTO nst
IF yn$ = "Y" THEN GOTO go.on
GOTO ask.again
go.on:
LINE INPUT "Your name? ", name$
'set the correct dex:
FOR dex = 1 TO 6
 score$ = RTRIM$(LTRIM$(RIGHT$(names(dex), 5)))
 scores(dex) = VAL(score$)
NEXT
FOR I = 1 TO 7
 IF wn > scores(I) THEN
  dex = I
  GOTO done.finding
 END IF
NEXT
done.finding:
name$ = "  " + name$ + "                                                                  "
names(dex) = LEFT$(name$, 66) + "$" + STR$(wn)
GOTO nst

done:

SUB begin
' Intro
COLOR 15, 0
LOCATE 10, 35, 1, 31, 31
PRINT "Lucky `Z'"
COLOR 15, 0
LINE (195, 88)-(425, 117), 1, BF

FOR I = 1 TO 3
LOCATE 13, 31, 1, 31, 31
PRINT "A   A   A   A   A"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "K   A   A   A   A"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "S   A   A   A   A"
PLAY "o0l10en0"
NEXT

FOR I = 1 TO 3
LOCATE 13, 31, 1, 31, 31
PRINT "S   D   A   A   A"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   A   A   A"
PLAY "o0l10en0"
NEXT

FOR I = 1 TO 3
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   G   A   A"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   O   A   A"
PLAY "o0l10en0"
NEXT

FOR I = 1 TO 3
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   O   L   A"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   O   T   A"
PLAY "o0l10en0"
NEXT

FOR I = 1 TO 3
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   O   T   H"
PLAY "o0l10e"
LOCATE 13, 31, 1, 31, 31
PRINT "S   L   O   T   S"
PLAY "o0l10en0"
NEXT
PLAY "l1n0n0n0"

END SUB

DEFINT A-Z
FUNCTION Box (Row1, Col1, Row2, Col2, fclr, bclr, shadow) STATIC
 
    'shadow
    Row1 = Row1 + 1
    Row2 = Row2 + 1
    Col1 = Col1 + 2
    Col2 = Col2 + 2
    COLOR 0, 0
  
    IF shadow = 1 THEN
    BoxWidth = Col2 - Col1 + 1

    LOCATE Row1, Col1
    PRINT "Ú"; STRING$(BoxWidth - 2, "Ä"); "¿";

    FOR a = Row1 + 1 TO Row2 - 1
        LOCATE a, Col1
        PRINT "³"; SPACE$(BoxWidth - 2); "³";
    NEXT a

    LOCATE Row2, Col1
    PRINT "À"; STRING$(BoxWidth - 2, "Ä"); "Ù";
    END IF

    COLOR fclr, bclr
    Row1 = Row1 - 1
    Row2 = Row2 - 1
    Col1 = Col1 - 2
    Col2 = Col2 - 2


    BoxWidth = Col2 - Col1 + 1

    LOCATE Row1, Col1
    PRINT "Ú"; STRING$(BoxWidth - 2, "Ä"); "¿";

    FOR a = Row1 + 1 TO Row2 - 1
        LOCATE a, Col1
        PRINT "³"; SPACE$(BoxWidth - 2); "³";
    NEXT a

    LOCATE Row2, Col1
    PRINT "À"; STRING$(BoxWidth - 2, "Ä"); "Ù";
 
END FUNCTION

DEFSNG A-Z
FUNCTION circlefill (x, Y, r, c)
CIRCLE (x, Y), r, c
FOR I = 1 TO r
r = r - 1
CIRCLE (x, Y), r, c
NEXT
END FUNCTION

SUB install
 OPEN "highscr.dat" FOR BINARY AS #2
 IF LOF(2) < 10 THEN                  'doesn't highscr.dat exist??
  CLOSE #2
  OPEN "highscr.dat" FOR RANDOM AS #2
  where2 = CSRLIN
  PRINT "MISSING";                        'Fine then, lets create it \/
  SLEEP (1)
  LOCATE where2, 33, 0
  PRINT "creating...";
   DIM a(1 TO 7) AS STRING
                                                                                        a(1) = "  Lucky a$$ hole                                                  $ 50000": a(2) = "  Beginners luck                                                  $ 40000"
                                                                                        a(3) = "  SLM                                                             $ 30000": a(4) = "  I. P. Freely                                                    $ 20000"
                                                                                        a(5) = "  O. K. Guy                                                       $ 10000": a(6) = "  Hugh Jass                                                       $ 5000 ": a(7) = "  TIMMERS                                                         $ 1440 "
   FOR I = 1 TO 7
    PUT #2, I, a(I)
   NEXT
   ERASE a
  CLOSE #2
  SLEEP (1)
  PRINT "done"
 ELSE PRINT "found"
 END IF
 CLOSE #2
 FOR xyz = 1 TO 1000: NEXT
END SUB

SUB jackpot (j$)
IF j$ <> "TRUE" THEN
 COLOR 4, 1
 LOCATE 19, 1, 0
 PRINT "WOW!! You just spun the JACKPOT!! If you could, please email me:"
 PRINT " xopl@execpc.com   Tell me this secret word:  xopl9, and you'll"
 PRINT "be credited as the most lucky person on earth--the first to"
 PRINT "spin a jackpot in my program!"
END IF
LOCATE 13, 35, 0
COLOR 2, 15
PRINT "$   $   $"
PLAY "l1n0"
PLAY "l6o4ececececececn0"
PLAY "l1n0"
COLOR 1, 15
END SUB

FUNCTION spell$ (word$, length, row, col)
FOR I = 1 TO length
LOCATE row, col, 1, 31, 31
PLAY "l40n0p40"
PRINT LEFT$(word$, I)
NEXT
END FUNCTION