FQ2.BAS

DECLARE SUB Help ()
DECLARE FUNCTION SaveGame$ ()
DECLARE FUNCTION LoadGame$ ()
DECLARE FUNCTION SecretCode$ (code$)
DECLARE FUNCTION MonsterFunction! (monsb$, monsmn$, tosay$, m$, togetscore$, expertoget$)
DECLARE FUNCTION crypt$ (tocrypt$)
DECLARE FUNCTION inputer$ (screener)
DECLARE FUNCTION exist! (file$)
DECLARE FUNCTION VOB$ (dtlf$)
DECLARE SUB setsettings ()
DECLARE SUB cole (pressed, toprint$, cole1$, fground, bground)
DECLARE SUB endscreen ()
DECLARE SUB printer (da, towrite$, jack)
DECLARE SUB writer (towrite$)
DIM ReferenceArray$(1200)
DIM realsavename$(75)
DIM map(1920)
DIM map2(1920)
DIM opt(100)
DIM SHARED settings$(500), reffile(1920), file$(5)
COMMON SHARED opt(), map2(), realsavename$(), ReferenceArray$(), map(), settings$(), reffile(), file$()
COMMON SHARED doposx, doposy, gamename$, Revision$, Version1$, Version2$, COMP1$, COMP2$, h, s, w, defs, I, z, gdi
COMMON SHARED exper, k, x, y, monsters$, hitmax, Ber, jdcolor, cb562, cgd, bg, rp, refpos, fileopened, thescreen1, theg, locatestatement

RANDOMIZE TIMER
cl$ = COMMAND$
        IF UCASE$(cl$) = "-DEBUGMODE" THEN cc = 2

statusline$ = "`b1`Y23`X01`L77`X01`1`b0`X01`Y23`FB0`FB1`C`%`b1`Y23Final Quest 2 -- By AkoriSoft -- HP (`vHITPOINT`/`vMAXENERGY`) -- Gold: `vGOLD`!`1`b0`Y23`X78`FB1`FB0"
tt = 0: dd = 0: exper = 0: helpmecode = 1: superhuman$ = "NO"
monsters$ = "YES": doposx = 1: refpos = 1

IF exist("NOSCR.DAT") = 0 THEN noscrdat = 1
IF exist("VARS.DAT") = 0 THEN novardat = 1

IF noscrdat <> 1 THEN
        OPEN "NOSCR.DAT" FOR INPUT AS #42
        INPUT #42, monsters$
        CLOSE #42
END IF

IF novardat <> 1 THEN
        OPEN "VARS.DAT" FOR INPUT AS #60
        INPUT #60, COMP1$
        INPUT #60, COMP2$
        INPUT #60, gamename$
                IF UCASE$(gamename$) = "FINAL QUEST 2" THEN COMP2$ = "Akori Software"
                IF UCASE$(gamename$) = "FINAL QUEST" THEN COMP2$ = "Akori Software"
                IF UCASE$(gamename$) = "FINAL QUEST 2" THEN COMP1$ = "AkoriSoft"
                IF UCASE$(gamename$) = "FINAL QUEST" THEN COMP1$ = "AkoriSoft"
        INPUT #60, Version1$
        INPUT #60, Version2$
        INPUT #60, Revision$
        INPUT #60, superhuman$
        INPUT #60, superminus
        INPUT #60, h
        INPUT #60, hitmax
        INPUT #60, s
        INPUT #60, x
        INPUT #60, y: record = (y - 1) * 79 + x
        INPUT #60, w
        INPUT #60, defs
        INPUT #60, rp
        INPUT #60, thescreen

nus = 1
gh:
        IF EOF(60) THEN GOTO gh1
                INPUT #60, data$
                settings$(nus) = data$: nus = nus + 1
        GOTO gh
gh1:
        settings$(nus) = "--END--"
        CLOSE #60
END IF


Null$ = CHR$(0)
IF gamename$ = "" THEN gamename$ = "Unknown"
        CLS : COLOR , 1: LOCATE 1, 1: PRINT STRING$(80, " "); SPC(0);
        LOCATE 1, 24: beginline$ = "`C`b1`$" + gamename$ + " " + Version1$ + " " + Revision$ + " Startup..."
        printer 1, beginline$, 1

COLOR 7, 0
IF cc = 2 THEN PRINT "Debug Mode on..."
'IF cc = 2 THEN SLEEP 1


                curtime = TIMER
PRINT "Looking for Level Map File..."; SPC(0);
IF exist("MAPS.DAT") = 0 THEN
        PRINT "Not Found."
        nolevelmap = 1
END IF
IF nolevelmap <> 1 THEN PRINT "Found."

PRINT "Building Map Dimension, Please wait..."; SPC(0);
IF nolevelmap <> 1 THEN
        OPEN "maps.dat" FOR BINARY AS #98
        im = 1
csg:
        IF im >= LOF(98) THEN GOTO nx
        a$ = SPACE$(5)
        GET #98, im, a$
        type$ = LEFT$(a$, 1)
        number = VAL(RIGHT$(a$, 4))
        map(number) = VAL(type$)
        map2(number) = im
        im = im + 3481
GOTO csg

nx:
        PRINT "Done."
END IF
IF nolevelmap = 1 THEN PRINT "Not done."
'IF cc = 2 THEN SLEEP 1



PRINT "Looking for Level Ref File..."; SPC(0);
IF exist("REFS.DAT") = 0 THEN
        PRINT "Not Found."
        norefdat = 1
END IF
IF norefdat <> 1 THEN PRINT "Found."
'IF cc = 2 THEN SLEEP 1



PRINT "Building Reference Table..."; SPC(0);
cursery = CSRLIN
curserx = POS(0)

IF norefdat <> 1 THEN
refpos = 1
OPEN "REFS.DAT" FOR INPUT AS #1
totalfile = 1
DO
IF EOF(1) THEN GOTO finishtable
LINE INPUT #1, juc$
        IF LTRIM$(LEFT$(juc$, 5)) = "@#SCR" THEN
                screen1 = VAL(LTRIM$(RTRIM$(RIGHT$(juc$, LEN(juc$) - 5))))
                reffile(screen1) = totalfile
                LOCATE cursery, curserx: PRINT screen1; SPC(0);
        END IF

totalfile = totalfile + LEN(juc$) + 2
LOOP
finishtable:
CLOSE #1
refpos = 1


'Loading StatusLine
getnextda:
da$ = inputer$(0): IF da$ = "--EOF--" THEN GOTO continues
        IF da$ = "@#STATUSLINE" THEN
        statusline$ = inputer$(0)
        GOTO continues
        END IF
GOTO getnextda

continues:
refpos = 1

LOCATE cursery, curserx
PRINT "Done.    "
END IF
IF norefdat = 1 THEN PRINT "Not done.    "

'IF cc = 2 THEN SLEEP 1


PRINT "Looking for saved games..."; SPC(0);


FOR xv = 1 TO 5
        LOCATE , 27
        PRINT "Saved Game"; xv; SPC(0);
        'IF cc = 2 THEN SLEEP 1
        xv$ = LTRIM$(RTRIM$(STR$(xv - 1)))
        file$(xv) = "1"
        IF exist("SAVE" + xv$ + ".DAT") = 0 THEN
                file$(xv) = "0"
        END IF
NEXT xv


FOR bx = 1 TO 5
        realsavename$(bx) = "Empty"
        IF file$(bx) = "1" THEN
                bx$ = LTRIM$(RTRIM$(STR$(bx - 1)))
                OPEN "SAVE" + bx$ + ".DAT" FOR BINARY AS #2
                        savename$ = SPACE$(15)
                        GET #2, 1, savename$
                        realsavename$(bx) = LTRIM$(RTRIM$(crypt$(savename$)))
                CLOSE #2
        END IF
NEXT bx


LOCATE , 27
PRINT "Done.           "

IF novardat = 1 THEN GOTO errorhandle
IF noscrdat = 1 THEN GOTO errorhandle
IF nolevelmap = 1 THEN GOTO errorhandle
IF norefdat = 1 THEN GOTO errorhandle

'IF cc = 2 THEN SLEEP 1
PRINT COMP2$ + " Development " + Version2$ + " " + Revision$ + "..."
PRINT "Loading main title screen..."


IF cc = 2 THEN PRINT
IF cc = 2 THEN PRINT "Press any key to continue..."
                IF cc = 2 THEN
                        LOCATE CSRLIN - 1, 35
                        PRINT "Startup Appx: "; TIMER - curtime; " second(s)"
                END IF
IF cc = 2 THEN I$ = INPUT$(1)


OPEN "MAPS.DAT" FOR BINARY AS #1
COLOR 7, 0: CLS : COLOR 15, 0: o = 1
load:
IF cc = 2 THEN dd = 4
COLOR 7, 0: CLS

refpos = 1
findit1:
data$ = inputer(0)
IF data$ = "--EOF--" THEN GOTO NOINTRO

IF LEFT$(data$, 7) = "@#INTRO" THEN
        k = 1
GOTO invscr3
END IF
GOTO findit1
invscr3:

data$ = inputer(0)
color11 = VAL(LEFT$(data$, INSTR(data$, ";") - 1))
color12 = VAL(RIGHT$(data$, LEN(data$) - INSTR(data$, ";")))
data$ = inputer(0)
color21 = VAL(LEFT$(data$, INSTR(data$, ";") - 1))
color22 = VAL(RIGHT$(data$, LEN(data$) - INSTR(data$, ";")))


FOR isdf = 1 TO 6
data$ = inputer(0)
opy = VAL(LEFT$(data$, INSTR(data$, ";") - 1))
opx = VAL(RIGHT$(data$, LEN(data$) - INSTR(data$, ";")))
opname$ = LEFT$(RIGHT$(data$, LEN(data$) - INSTR(INSTR(data$, ";") + 1, data$, ";")), LEN(data$) - INSTR(INSTR(data$, ";") + 1, data$, ";"))

IF isdf = 1 THEN
        op1y = opy
        op1x = opx
        op1name$ = opname$
END IF
IF isdf = 2 THEN
        op2y = opy
        op2x = opx
        op2name$ = opname$
END IF
IF isdf = 3 THEN
        op3y = opy
        op3x = opx
        op3name$ = opname$
END IF
IF isdf = 4 THEN
        op4y = opy
        op4x = opx
        op4name$ = opname$
END IF
IF isdf = 5 THEN
        op5y = opy
        op5x = opx
        op5name$ = opname$
END IF
IF isdf = 6 THEN
        op6y = opy
        op6x = opx
        op6name$ = opname$
END IF
NEXT



invscr1:
iner$ = inputer(0)

IF iner$ = "@END" THEN GOTO waiter4
        printer 0, iner$, k
        k = k + 1
        GOTO invscr1
waiter4:
load1:
        LOCATE 1, 1, 0
        N = 0
        COLOR color21, color22
        LOCATE op1y, op1x: PRINT op1name$
        LOCATE op2y, op2x: PRINT op2name$
        LOCATE op3y, op3x: PRINT op3name$
        LOCATE op4y, op4x: PRINT op4name$
        LOCATE op5y, op5x: PRINT op5name$
        LOCATE op6y, op6x: PRINT op6name$
                             
        COLOR color11, color12
        LOCATE op1y, op1x: IF o = 1 THEN PRINT op1name$
        LOCATE op2y, op2x: IF o = 2 THEN PRINT op2name$
        LOCATE op3y, op3x: IF o = 3 THEN PRINT op3name$
        LOCATE op4y, op4x: IF o = 4 THEN PRINT op4name$
        LOCATE op5y, op5x: IF o = 5 THEN PRINT op5name$
        LOCATE op6y, op6x: IF o = 6 THEN PRINT op6name$

IF cc = 2 THEN LOCATE 25, 1
IF cc = 2 THEN COLOR 7, 0
IF cc = 2 THEN PRINT "S - Set game settings"; SPC(0);


DO
check$ = INKEY$
LOOP WHILE check$ = ""
        check$ = UCASE$(check$)

SELECT CASE check$

CASE "S"
        IF cc = 2 THEN
                pk = 2
                GOTO setsettings
                END IF
        GOTO load1

CASE CHR$(27)
        GOTO no1

CASE CHR$(13)
        COLOR 7, 0
        IF o = 1 GOTO noload
        IF o = 2 GOTO savegame11
        IF o = 3 GOTO yesload
        IF o = 4 GOTO Help
        IF o = 5 THEN
                towait1 = FIX(TIMER)
                COLOR 7, 0
                CLS
                GOTO loadmap
        END IF
        IF o = 6 GOTO no1

Help:
Help
GOTO load

CASE Null$ + CHR$(75): GOTO righter
CASE Null$ + CHR$(77): GOTO lefter

CASE Null$ + CHR$(72)
righter:
        IF o = 1 THEN o = 7
        o = o - 1
        GOTO load1

CASE Null$ + CHR$(80)
lefter:
        IF o = 6 THEN o = 0
        o = o + 1
        GOTO load1

CASE ELSE
        GOTO load1
END SELECT

savegame11:
result$ = SaveGame$
IF result$ = "3" THEN GOTO savegame11
IF result$ = "2" THEN GOTO load
IF result$ = "1" THEN GOTO load
GOTO load

yesload:
loadgame11:
result$ = LoadGame$
IF result$ = "2" THEN GOTO load
IF result$ = "1" THEN
        towait1 = FIX(TIMER)
        GOTO loadmap
        END IF
GOTO load


noload:
COLOR 7, 0: CLS

nus = 1
OPEN "VARS.DAT" FOR INPUT AS #60
        INPUT #60, COMP1$
        INPUT #60, COMP2$
        INPUT #60, gamename$
                IF UCASE$(gamename$) = "FINAL QUEST 2" THEN COMP2$ = "Akori Software"
                IF UCASE$(gamename$) = "FINAL QUEST" THEN COMP2$ = "Akori Software"
                IF UCASE$(gamename$) = "FINAL QUEST 2" THEN COMP1$ = "AkoriSoft"
                IF UCASE$(gamename$) = "FINAL QUEST" THEN COMP1$ = "AkoriSoft"
        INPUT #60, Version1$
        INPUT #60, Version2$
        INPUT #60, Revision$
        INPUT #60, superhuman$
        INPUT #60, superminus
        INPUT #60, h
        INPUT #60, hitmax
        INPUT #60, s
        INPUT #60, x
        INPUT #60, y: record = (y - 1) * 79 + x
        INPUT #60, w
        INPUT #60, defs
        INPUT #60, rp
        INPUT #60, thescreen

exper = 0
gh3:
        IF EOF(60) THEN GOTO gh2
        INPUT #60, data$
                settings$(nus) = data$: nus = nus + 1
GOTO gh3:
gh2:
        settings$(nus) = "--END--": nus = nus + 1
CLOSE #60

tt = 0: towait1 = FIX(TIMER): dd1 = 0: d = 2
qy = 1: qx = 1: mm = 1
COLOR 14, 2


refpos = 1
beginninggame = 0
DO
gotothenext1:
        iner$ = inputer$(0)
                beforecaps$ = LTRIM$(iner$)
                IF iner$ = "--EOF--" THEN EXIT DO
                IF iner$ = "@END" AND beginninggame = 1 THEN EXIT DO
        IF iner$ = "@#BEGINGAME" THEN
                iner$ = inputer$(0)
                beforecaps$ = iner$
                beginninggame = 1
        END IF
IF beginninggame = 1 THEN GOTO togo2
LOOP
beginninggame = 0


begingame = 1
GOTO getready

begingame:

loadmap:
        refreshingmap = 1
        GOTO getready
returner25:
        refreshingmap = 0


justloading = 1
doupdate = 0
newmap = 1
begingame = 0
printline$ = "YES"
gbbn = 0
qy = 1
qx = 1
COLOR 7, 0


IF rp < 1 THEN rp = 1
IF rp > 1920 THEN rp = 1920

dd = map2(rp)

IF dd = 0 THEN
        'dd = 1
        'rp = 1
        COLOR 7, 0: CLS
        PRINT "An Error was Detected:"
        PRINT
        PRINT "Map Number"; rp; "does not exist."
        END
        END IF

fa$ = inputer$(rp)
        xcc = 1
        DO
        ReferenceArray$(xcc) = inputer$(0)
        IF ReferenceArray$(xcc) = "--EOF--" THEN
                COLOR 7, 0: CLS
                PRINT "Error:  @END Missing in Reffile for SCR " + LTRIM$(STR$(rp))
                END
                END IF
        IF LTRIM$(RTRIM$(UCASE$(ReferenceArray$(xcc)))) = "@END" THEN EXIT DO
        xcc = xcc + 1
        LOOP
ReferenceArray$(xcc + 1) = "--EOF--"
looker = 1

yes:
LOCATE 1, 1
        bk = dd + 5
        kb = dd + 3481
FOR L = bk TO kb STEP 2
a$ = SPACE$(2)
        GET #1, L, a$
                IF POS(0) = 80 THEN
                        LOCATE CSRLIN + 1, 1
                END IF
        d$ = LEFT$(a$, 1)
        d = ASC(d$)

'MARK1
fg = FIX(d / 16)
bg = d - (fg * 16)
IF bg > 7 THEN bg = bg - 8
COLOR fg, bg

IF fg = 0 AND bg = 0 THEN COLOR 15

IF RIGHT$(a$, 1) = CHR$(32) THEN
        COLOR 15
        PRINT " "; SPC(0);
        GOTO redo
END IF


IF RIGHT$(a$, 1) = CHR$(0) THEN
        COLOR 15
        PRINT " "; SPC(0);
        GOTO redo
END IF

PRINT RIGHT$(a$, 1); SPC(0);

redo:
NEXT L
towait1 = FIX(TIMER)

ghs = 5

dl1:

IF printline$ = "NO" THEN GOTO doneloading

'LOCATE 23, 2: COLOR 15, 1
'PRINT STRING$(77, 32); SPC(0);
'COLOR 1, 0: LOCATE 23, 1: PRINT CHR$(176) + CHR$(177); SPC(0);
'LOCATE 23, 78: PRINT CHR$(177) + CHR$(176); SPC(0);
'COLOR 15, 1: LOCATE 23, 2
'        'bottomline$ = gamename$ + " -- By " + COMP1$ + " -- HP (" + LTRIM$(STR$(h)) + "/" + LTRIM$(STR$(hitmax)) + ") -- Gold:" + STR$(s) + "!"
'
'LOCATE , 40 - FIX((LEN(bottomline$)) \ 2)
'PRINT bottomline$; SPC(0);

printer 2, statusline$, 23


doneloading:

IF justloading = 1 THEN
        justloading = 0
        GOTO loadmap23
END IF

begin:
CLOSE #36, #53
refpos = 1
DO
gotothenext:
iner$ = inputer$(0): IF iner$ = "--EOF--" THEN EXIT DO
                beforecaps$ = LTRIM$(iner$)
IF alwaysdo = 5 AND iner$ = "@END" THEN GOTO dones3
IF iner$ = "@#ALWAYSDO" THEN
        IF alwaysdo = 0 THEN iner$ = inputer$(0)    'INPUT #36, iner$
                beforecaps$ = LTRIM$(iner$)
        IF iner$ = "@END" THEN GOTO dones3
        alwaysdo = 5
        GOTO togo2
IF alwaysdo = 5 THEN GOTO togo2
END IF
LOOP
dones3:
alwaysdo = 0

IF justloading = 1 THEN GOTO dl1

loadmap23:


IF ghs = 5 THEN
ghs = 0
CLOSE #36, #53
thescreen$ = inputer$(rp): IF thescreen$ = "--EOF--" THEN GOTO bg1
what = 5
waypoint = 0
GOTO doiter
END IF
bg1:

what = 0
IF helpmecode = 7 THEN
s = 0
h = h + 25
helpmecode = 1
GOTO cc66
END IF


IF tt = 1 THEN
tt = 0
ccp = 2
GOTO setsettings
END IF
COLOR 7, 0
IF cc = 2 THEN LOCATE 1, 1
IF cc = 2 THEN PRINT "Y:"; y; "X:"; x; "SCR:"; rp; "Rec:"; record;
IF cc = 2 THEN LOCATE 1, 75
IF cc = 2 THEN PRINT "S=SET"
IF cc = 2 THEN LOCATE 2, 70
IF cc = 2 THEN PRINT "V=View Ref"
IF dd1 = 1 THEN LOCATE 1, 1
IF dd1 = 1 THEN PRINT "Y:"; y; "X:"; x; "SCR:"; rp; "Rec:"; record;
color$ = SPACE$(1)


color1 = FIX(SCREEN(y, x, 1) / 16)

nomap1:
COLOR 14, color1
LOCATE y, x
PRINT CHR$(1)


'!!!!!!!!!!!!!!MONSTER FUNCTION!!!!!!!!!!!!!!!
'don't do these screens with monsters
IF monsters$ = "NO" THEN GOTO doer1
IF map(rp) < 5 THEN GOTO doer1
Monster:
IF doamonster <> 1 THEN GOTO doer1
doamonster = 0
monsb$ = ""
monsmn$ = ""
tosay$ = ""
m$ = ""
togetscore$ = ""
expertoget$ = ""
result = MonsterFunction(monsb$, monsmn$, tosay$, m$, togetscore$, expertoget$)
        settingsettings = 10
        GOTO getready
returner10:
        settingsettings = 0
IF result = 1 THEN GOTO doer1
IF result = 3 THEN GOTO dl1



IF theg = 50 THEN
        theg = 0
        GOTO loadmap
END IF

GOTO dl1
'GOTO doer1


ssave:
RANDOMIZE TIMER
COLOR 7, 0
LOCATE , , 0
CLS
a$ = "Screen Protection System, Press any key to continue..."
COLOR 14
begin5:
ydf = INT(RND * 25) + 1
xdf = 79

FOR ixv = 1 TO 79
        xf = TIMER + .1
        DO
        LOOP WHILE TIMER <= xf
        IF INKEY$ <> "" THEN GOTO NOT2
                b$ = LEFT$(a$, ixv)
                LOCATE ydf, xdf
                PRINT b$ + " "; SPC(0);
                xdf = xdf - 1

NEXT ixv
        vdf = LEN(a$) - 1
FOR ixv = 1 TO LEN(a$)
        xf = TIMER + .1
        DO
        LOOP WHILE TIMER <= xf
                IF INKEY$ <> "" THEN GOTO NOT2
        b$ = RIGHT$(a$, vdf)
        vdf = vdf - 1
        LOCATE ydf, 1
        PRINT b$ + " "; SPC(0);
NEXT ixv
GOTO begin5
NOT2:
COLOR 7, 0
CLS
GOTO loadmap
doer1:

                  IF printcheater = 1 THEN
                  printcheater = 0
                  writer "`CCheater!!! You got 25 more hitpoints for a total of `h."
                  doupdate = 0
                  ggb = 5
                  towait1 = FIX(TIMER) + 4
                  END IF


ssave = FIX(TIMER) + 180
DO
IF FIX(TIMER) >= ssave THEN
GOTO ssave
END IF
check$ = INKEY$

IF FIX(TIMER) >= 86396 AND ggb = 5 THEN
ggb = 3
printwrite = 0
GOTO cc66
END IF

IF FIX(TIMER) >= towait1 AND ggb = 5 THEN
ggb = 3
printwrite = 0
doupdate = 0
GOTO cc66
END IF

IF FIX(TIMER) < towait1 AND printwrite <> 1 THEN LOCATE 23, doposx, 1, 6, 7
IF FIX(TIMER) < towait1 AND ggb = 5 AND printwrite = 1 THEN LOCATE 23, doposx2, 1, 6, 7
IF FIX(TIMER) >= towait1 THEN LOCATE y, x, 1, 6, 7

LOOP WHILE check$ = ""
check$ = UCASE$(check$)

IF FIX(TIMER) <= towait1 THEN GOTO cc56
cc66:
IF gbbn = 5 THEN
        LOCATE 23, 1
        COLOR 7, 0
        PRINT STRING$(80, " "); SPC(0);
END IF

IF printline$ = "NO" THEN GOTO noline

'LOCATE 23, 2: COLOR 15, 1
'PRINT STRING$(77, 32); SPC(0);
'LOCATE 23, 1: COLOR 1, 0: PRINT CHR$(176) + CHR$(177); SPC(0);
'LOCATE 23, 78: PRINT CHR$(177) + CHR$(176); SPC(0);
'COLOR 15, 1: LOCATE 23, 2
'        bottomline$ = gamename$ + " -- By " + COMP1$ + " -- HP (" + LTRIM$(STR$(h)) + "/" + LTRIM$(STR$(hitmax)) + ") -- Gold:" + STR$(s) + "!"
'LOCATE , 40 - FIX((LEN(bottomline$)) \ 2)
'PRINT bottomline$; SPC(0);

IF doupdate = 0 THEN
printer 2, statusline$, 23
END IF
doupdate = 0

noline:
IF ggb = 3 THEN
        ggb = 0
        GOTO doer1
END IF
cc56:
SELECT CASE check$

CASE "Q"
        LOCATE y, x
        result$ = SecretCode$("UAKE")
        IF result$ = "!!" THEN
                ccp = 2: GOTO setsettings
                  doupdate = 0
        END IF
        check$ = result$
        GOTO cc56

CASE "T"
        LOCATE y, x
        result$ = SecretCode$("ITANIC")
        IF result$ = "!!" THEN
             IF hh = 1 THEN hh = -1
             hh = hh + 1
               IF hh = 1 THEN
                 writer "`C`%No Cliping Mode on..."
                  doupdate = 0
                 ggb = 5
                 towait1 = FIX(TIMER) + 4
               END IF
               IF hh = 0 THEN
                 writer "`C`%No Cliping Mode off..."
                 ggb = 5
                 towait1 = FIX(TIMER) + 4
                 GOTO begin
               END IF
        END IF
        check$ = result$
        GOTO cc56


CASE "I"
GOTO inventory

CASE "V"
        IF cc = 2 THEN
                positioninarray = 1
nexter:
                COLOR 7, 0
                CLS
                FOR igxs = positioninarray TO positioninarray + 19
                PRINT LTRIM$(ReferenceArray$(igxs))
                NEXT igxs
                PRINT "Q-quits"
                positioninarray = positioninarray + 20
                gsi$ = INPUT$(1)
                IF UCASE$(gsi$) = "Q" THEN GOTO loadmap
                GOTO nexter
        END IF

CASE "M"
GOTO map

CASE "H"
 LOCATE y, x
        result$ = SecretCode$("ELPME")
        IF result$ = "!!" THEN
             ggb = 3
             printcheater = 1
                  doupdate = 0
             s = 0
             h = h + 25
             hitmax = hitmax + 25
             GOTO cc66
        END IF
        check$ = result$
        GOTO cc56



CASE "S"
        IF cc = 2 THEN
                ccc = 1: GOTO setsettings
        END IF
       
        LOCATE y, x
        result$ = SecretCode$("DEB")
        IF result$ = "!!" THEN
                IF dd1 = 1 THEN dd1 = -1
                dd1 = dd1 + 1
                        IF dd1 = 1 THEN
                                writer "`C`%Debug Details On..."
                                doupdate = 0
                                ggb = 5
                                towait1 = FIX(TIMER) + 4: GOTO begin
                        END IF
                        IF dd1 = 0 THEN
                                writer "`C`%Debug Details Off..."
                                doupdate = 0
                                ggb = 5
                                towait1 = FIX(TIMER) + 4: GOTO begin
                        END IF
        END IF
        check$ = result$
        GOTO cc56


CASE "4"
        doamonster = 1
        direction$ = "L"
GOTO hardhs

CASE "6"
        doamonster = 1
        direction$ = "R"
GOTO hardhs

CASE "8"
        doamonster = 1
        direction$ = "U"
GOTO hardhs

CASE "2"
        doamonster = 1
        direction$ = "D"
GOTO hardhs

CASE "Q"
GOTO Quit
CASE CHR$(27)
GOTO Quit
CASE Null$ + CHR$(75)
        doamonster = 1
        direction$ = "L"
GOTO hardhs
CASE Null$ + CHR$(72)
        doamonster = 1
        direction$ = "U"
GOTO hardhs
CASE Null$ + CHR$(80)
        doamonster = 1
        direction$ = "D"
GOTO hardhs
CASE Null$ + CHR$(77)
        doamonster = 1
        direction$ = "R"
GOTO hardhs

CASE ELSE
GOTO begin

END SELECT
GOTO begin

map:
VIEW PRINT 1 TO 25
COLOR 7, 0: CLS : LOCATE 25, 1, 0: COLOR 7, 0
PRINT STRING$(80, " "); SPC(0);

LOCATE 1, 1
dd = 1: ig = 1

LOCATE 1, 1
FOR xcc = 1 TO 1920
        xc = CSRLIN
                IF map(xcc) = 0 THEN
                        COLOR 15, 1: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 1 THEN
                        COLOR 15, 2: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 2 THEN
                        COLOR 15, 1: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 3 THEN
                        COLOR 15, 7: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 4 THEN
                        COLOR 7, 2: PRINT CHR$(254); SPC(0);
                END IF
                IF map(xcc) = 5 THEN
                        COLOR 15, 2: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 6 THEN
                        COLOR 7, 2: PRINT CHR$(254); SPC(0);
                END IF
                IF map(xcc) = 7 THEN
                        COLOR 15, 7: PRINT " "; SPC(0);
                END IF
                IF map(xcc) = 8 THEN
                        COLOR 15, 1: PRINT " "; SPC(0);
                END IF
IF xcc = thescreen THEN

IF POS(0) = 1 THEN
        LOCATE xc, 80
        GOTO getoutSc
        END IF
IF POS(0) <> 1 THEN LOCATE xc, POS(0) - 1

getoutSc:
        COLOR 20, FIX((SCREEN(CSRLIN, POS(0), 1)) / 16)
        PRINT CHR$(1); SPC(0);
END IF

NEXT xcc


LOCATE 1, 1

CLOSE #36
refpos = 1

gs:
da$ = inputer$(0): IF da$ = "--EOF--" THEN GOTO nomaperror
        IF da$ = "@#MAP" THEN GOTO mapsx
GOTO gs:

mapsx:
        mapscreen$ = "YES"
        beginninggame = 1
returnmap:

iner$ = inputer$(0)
beforecaps$ = iner$
IF iner$ = "@END" THEN GOTO waiter62
IF iner$ = "--EOF--" THEN GOTO waiter62

GOTO togo2


waiter62:
beginninggame = 0
mapscreen$ = "NO"
LOCATE 1, 1: I$ = INPUT$(1)
towait1 = FIX(TIMER)
COLOR 7, 0: CLS
GOTO loadmap

setsettings:
COLOR 15, 0
CLS
COLOR 15, 0
PRINT "Current Settings:"
PRINT
PRINT "Screen #: ", rp
PRINT "X: ", x
PRINT "Y: ", y
PRINT "Experience: ", exper
PRINT "Hitpoints: ", h
PRINT "Max Hp: ", hitmax
PRINT "Strength: ", w
PRINT "Defense: ", defs
PRINT "Gold: ", s
PRINT "Monsters: ", monsters$
PRINT
COLOR 7
PRINT "New Settings:"
PRINT
COLOR 2, 0

settingsettings = 2
GOTO getready
returner2:
        setsettings
        settingsettings = 1
        GOTO getready
returner:
        settingsettings = 0
        thescreen = thescreen1
COLOR 7, 0: CLS

IF ccp = 1 THEN
        ccp = 0
        GOTO loadmap
END IF
IF ccc = 1 THEN
        ccc = 0: GOTO loadmap
END IF
IF cc = 2 THEN GOTO load
tt = 0

IF pk = 2 THEN
        pk = 0
        GOTO load
END IF
GOTO loadmap


hardhs:
        IF x = 1 AND direction$ = "L" THEN
                ghs = 5: thescreen = thescreen - 1: rp = rp - 1: x = 79: kkkk = y - 1: kkk = kkkk * 79: record = kkk + x
                newmaper = 1
                GOTO cgs
        END IF
        IF x = 79 AND direction$ = "R" THEN
                ghs = 5: thescreen = thescreen + 1: rp = rp + 1: x = 1: kkkk = y - 1: kkk = kkkk * 79: record = kkk + x
                newmaper = 1
                GOTO cgs
        END IF
        IF y = 1 AND direction$ = "U" THEN
                ghs = 5: rp = rp - 80: thescreen = thescreen - 80: y = 22: record = 21 * 79 + x
                newmaper = 1
                GOTO cgs
        END IF
        IF y = 22 AND direction$ = "D" THEN
                ghs = 5: thescreen = thescreen + 80: rp = rp + 80: y = 1: record = x
                newmaper = 1
                GOTO cgs
        END IF
       
       
        IF direction$ = "L" THEN
        way = 1: what = 1
        END IF
        IF direction$ = "R" THEN
        way = 2: what = 2
        END IF
        IF direction$ = "U" THEN
        way = 3: what = 3
        END IF
        IF direction$ = "D" THEN
        way = 4: what = 4
        END IF
GOTO dofunction
CLOSE #36
GOTO hard



'LRUD  1234, what and way


hard:

IF hh = 1 THEN GOTO l56
IF direction$ = "L" THEN record = record - 1
IF direction$ = "R" THEN record = record + 1
IF direction$ = "U" THEN record = record - 79
IF direction$ = "D" THEN record = record + 79

cgs:
IF hh = 1 THEN GOTO loadmap
dd = map2(rp)
bk$ = SPACE$(2): lk = dd + 5:
dfdf = record * 2 - 2: m = lk + dfdf
GET #1, m, bk$
bk1$ = LEFT$(bk$, 1)
d = ASC(bk1$)

fg = FIX(d / 16)
bg = d - (fg * 16)
IF bg > 7 THEN
        hard = 1
        END IF

IF hard = 1 THEN
        hard = 0
        IF newmaper = 1 THEN
                newmaper = 0
        IF direction$ = "L" THEN
                ghs = 0: thescreen = thescreen + 1: rp = rp + 1: x = 1: kkkk = y - 1: kkk = kkkk * 79: record = kkk + x
        END IF
        IF direction$ = "R" THEN
                ghs = 0: thescreen = thescreen - 1: rp = rp - 1: x = 79: kkkk = y - 1: kkk = kkkk * 79: record = kkk + x
        END IF
        IF direction$ = "U" THEN
                ghs = 0: rp = rp + 80: thescreen = thescreen + 80: y = 1: record = 21 * 79 + x
        END IF
        IF direction$ = "D" THEN
                ghs = 0: thescreen = thescreen - 80: rp = rp - 80: y = 22: record = x
        END IF
                LOCATE 23, 3: COLOR 15, 1: PRINT STRING$(75, " "); SPC(0);
                writer "`CSomething blocks you... choose another way."
                towait1 = FIX(TIMER) + 4
'printwrite = 1
doposx2 = doposx
ggb = 5
                GOTO doer1
        END IF
       
        IF direction$ = "L" THEN record = record + 1
        IF direction$ = "R" THEN record = record - 1
        IF direction$ = "U" THEN record = record + 79
        IF direction$ = "D" THEN record = record - 79
       doupdate = 1
       GOTO doer1
END IF

IF hard = 0 THEN
IF newmaper = 1 THEN
        newmaper = 0
        GOTO loadmap
        END IF
       
        hard = 0
        IF direction$ = "L" THEN record = record + 1
        IF direction$ = "R" THEN record = record - 1
        IF direction$ = "U" THEN record = record + 79
        IF direction$ = "D" THEN record = record - 79
        GOTO l56
END IF

hard = 0
GOTO begin


inventory:
COLOR 7, 0: CLS

refpos = 1
findit:
        data$ = inputer$(0): IF data$ = "--EOF--" THEN GOTO suckit
                IF LEFT$(data$, 8) = "@#INVSCR" THEN
                        k = 1
                        GOTO invscr
                END IF
GOTO findit

invscr:
        inventoryscreen$ = "YES"
        beginninggame = 1
returninventory:

iner$ = inputer$(0)
beforecaps$ = iner$
IF iner$ = "@END" THEN GOTO waiter
IF iner$ = "--EOF--" THEN GOTO waiter

GOTO togo2


waiter:
beginninggame = 0
inventoryscreen$ = "NO"
LOCATE , , 0, 6, 7: I$ = INPUT$(1)
towait1 = FIX(TIMER)
GOTO loadmap


l56:
IF direction$ = "L" THEN kk = 1
IF direction$ = "R" THEN kk = 2
IF direction$ = "U" THEN kk = 3
IF direction$ = "D" THEN kk = 4
GOTO doer
l56b:
IF kk = 1 THEN
        x = x - 1: record = record - 1
END IF
IF kk = 2 THEN
        x = x + 1: record = record + 1
END IF
IF kk = 3 THEN
        y = y - 1: record = record - 79
END IF
IF kk = 4 THEN
        y = y + 1: record = record + 79
END IF

doupdate = 1
GOTO begin



doer:
dd = map2(rp)
yes2:


IF doer = 5 THEN
        dkdk = cury - 1
        record1 = dkdk * 79 + curx
        lk = dd + 5
        dfdf = record1 * 2 - 2
        m = lk + dfdf
        GOTO getstuff
END IF




lk = dd + 5
dfdf = record * 2 - 2
m = lk + dfdf


getstuff:
LOCATE y, x
a$ = SPACE$(2)
        GET #1, m, a$

fg1 = FIX(ASC(LEFT$(a$, 1)) / 16)
bg1 = ASC(LEFT$(a$, 1)) - (fg1 * 16)
IF bg1 > 7 THEN bg1 = bg1 - 8
COLOR fg1, bg1

IF doer = 5 THEN GOTO gotcolor
e$ = RIGHT$(a$, 1)
        IF e$ = CHR$(0) THEN
                PRINT " "; SPC(0);
                GOTO doner
        END IF
PRINT e$; SPC(0);

doner:
IF kk > 0 AND kk < 5 THEN GOTO l56b
'IF kk = 1 THEN GOTO l56b  'eft1
'IF kk = 2 THEN GOTO l56b  'right1
'IF kk = 3 THEN GOTO l56b  'up1
'IF kk = 4 THEN GOTO l56b  'down1
GOTO begin
Quit:
GOTO load
errorhandle:
PRINT
PRINT "The following errors were detected:"
PRINT
IF novardat = 1 THEN PRINT "Cannot find VARS.DAT"
IF noscrdat = 1 THEN PRINT "Cannot find NOSCR.DAT"
IF nolevelmap = 1 THEN PRINT "Cannot find MAPS.DAT"
IF norefdat = 1 THEN PRINT "Cannot find REFS.DAT"
PRINT
GOTO ender5
suckit:
        PRINT
        PRINT "The following error was detected... Cannot find @#INVSCR in REF file."
        PRINT
        GOTO ender5
nomaperror:
        PRINT
        PRINT "The following error was detected... Cannot find @#MAP in REF file."
        PRINT
        GOTO ender5
NOINTRO:
        PRINT
        PRINT "The following error was detected... Cannot find @#INTRO in REF file."
        PRINT
        GOTO ender5
leaver1:
dofunction:
IF way = 1 THEN
        x = x - 1: waypoint = 1: looker = 1
END IF
IF way = 2 THEN
        x = x + 1: waypoint = 2: looker = 1
END IF
IF way = 3 THEN
        y = y - 1: waypoint = 3: looker = 1
END IF
IF way = 4 THEN
        y = y + 1: waypoint = 4: looker = 1
END IF

doiter:
DO
adsg$ = ReferenceArray$(looker): looker = looker + 1
adsg$ = UCASE$(adsg$)

IF adsg$ = "--EOF--" THEN
        looker = 1
        GOTO leaver
        END IF
adsg$ = LTRIM$(adsg$)
IF adsg$ = "@DO" THEN GOTO dothe
IF LEFT$(adsg$, 3) = "@IF" THEN
iner$ = adsg$
GOTO ifer
END IF

IF LEFT$(adsg$, 4) = "@IPS" THEN GOTO ifposition
IF adsg$ = "@END" THEN GOTO leaver

IF runref$ <> "YES" THEN
'IF EOF(36) THEN GOTO leaver
IF adsg$ = "--EOF--" THEN
        looker = 1
        GOTO leaver
        END IF
END IF
IF runref$ = "YES" THEN
        IF adsg$ = "--EOF--" THEN GOTO ins
END IF
LOOP
dothe:
iner$ = ReferenceArray$(looker): looker = looker + 1
                beforecaps$ = LTRIM$(iner$)
IF iner$ = "--EOF--" THEN looker = 1: GOTO dothe
iner$ = LTRIM$(iner$)
iner$ = UCASE$(iner$)
IF iner$ = "@ENDDO" THEN GOTO donewith
dothe = 5
GOTO togo2
donewith:
dothe = 0
GOTO doiter

ifposition:
dfdf$ = RTRIM$(LTRIM$(RIGHT$(adsg$, LEN(adsg$) - 4)))
COLOR 15, 1

xpos1 = VAL(LEFT$(dfdf$, INSTR(dfdf$, " ")))
ypos1 = VAL(RIGHT$(dfdf$, LEN(dfdf$) - INSTR(dfdf$, " ")))


IF x = xpos1 AND y = ypos1 THEN GOTO itisonit
GOTO doiter

itisonit:
IF alwaysdo = 5 THEN GOTO gotothenext
IF dothe = 5 THEN GOTO dothe
DO
IF beginninggame = 1 THEN iner$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN iner$ = ReferenceArray$(looker): looker = looker + 1'iner$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, iner$
iner$ = LTRIM$(iner$)
                beforecaps$ = LTRIM$(iner$)

togo2:
iner$ = UCASE$(iner$)


IF iner$ = "#DONE" THEN
doit3 = 0
cb = 0
doit = 0
runref$ = "NO"
GOTO doiter
END IF


IF LEFT$(iner$, 5) = "#WAIT" THEN
If$ = LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 5)))
IF If$ = "1" THEN LOCATE , , 1
IF If$ = "0" THEN LOCATE , , 0
WHILE a$ <> "": a$ = INKEY$: WEND
Is$ = INPUT$(1)
END IF

IF LEFT$(iner$, 6) = "#SLEEP" THEN
rp6 = VAL(LTRIM$(RIGHT$(iner$, LEN(iner$) - 6)))
ts = TIMER
DO
LOOP WHILE TIMER < ts + rp6
END IF

IF LEFT$(iner$, 6) = "#SUPER" THEN
superhuman$ = "YES"
END IF

IF LEFT$(iner$, 8) = "#NOSUPER" THEN
superhuman$ = "NO"
END IF

IF LEFT$(iner$, 10) = "#MAPSCREEN" THEN
thescreen = VAL(LTRIM$(RIGHT$(iner$, LEN(iner$) - 10)))
END IF


IF LEFT$(iner$, 5) = "#GOTO" THEN
rp = VAL(LTRIM$(RIGHT$(iner$, LEN(iner$) - 5)))
reloadscreen = 2
END IF

IF RIGHT$(LEFT$(iner$, 7), 6) = "NEWPOS" THEN
dfdf$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 7))
IF waypoint = 1 THEN x = x + 1
IF waypoint = 2 THEN x = x - 1
IF waypoint = 3 THEN y = y + 1
IF waypoint = 4 THEN y = y - 1

LOCATE y, x
COLOR , color1
PRINT " "; SPC(0);


x = VAL(LEFT$(dfdf$, INSTR(dfdf$, " "))): dfdf$ = LTRIM$(RIGHT$(dfdf$, LEN(dfdf$) - INSTR(dfdf$, " ")))
y = VAL(dfdf$)



IF hh = 0 AND LEFT$(iner$, 1) = "!" THEN

'record = (y - 1) * 79 + x
'color$ = SPACE$(1)
'dd = map2(rp): dk = dd + 5: mk = record * 2 - 2: m = mk + dk
'GET #1, m, color$: d$ = LEFT$(color$, 1): dg = ASC(d$):
'fg = FIX(dg / 16): bg = dg - (fg * 16): IF bg > 7 THEN bg = bg - 8
'color1 = bg

color1 = FIX(SCREEN(y, x, 1) / 16)
COLOR 14, color1: LOCATE y, x: PRINT CHR$(1); SPC(0);

direction$ = ""
waypoint = 0
END IF

IF y > 22 THEN y = 22
IF x > 79 THEN x = 79

END IF


IF iner$ = "#MOVEOBJ" THEN
IF beginninggame = 1 THEN kind$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN kind$ = ReferenceArray$(looker): looker = looker + 1'kind$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, kind$
ret = 0
ghs = 5
returnhere:
        ts = TIMER
        DO
        LOOP WHILE TIMER < ts + VAL(kind$)

IF beginninggame = 1 THEN dfdf$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN dfdf$ = ReferenceArray$(looker): looker = looker + 1 'dfdf$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, dfdf$
dfdf$ = UCASE$(dfdf$)



continue:
IF dfdf$ = "#DONEMOVE" THEN GOTO donemove
'olddfdf$ = dfdf$
'returnsemicolon:
'IF INSTR(dfdf$, ";") <> 0 THEN
'
'        semicolon = 1
'
'        END IF
'IF INSTR(dfdf$, ";") = 0 AND semicolon = 1 THEN
'        semicolon = 0
'        GOTO returnhere
'        END IF
'

curx = VAL(LEFT$(dfdf$, INSTR(dfdf$, " ")))
cury = VAL(RIGHT$(dfdf$, INSTR(dfdf$, " ") - 1))

xb = SCREEN(cury, curx)
toprint$ = CHR$(xb)
xb1 = SCREEN(cury, curx, 1)
d = xb1

IF xb1 >= 16 THEN
d = FIX(xb1 / 16)
xb1 = xb1 - (d * 16)

END IF


doer = 5
GOTO doer
gotcolor:
LOCATE cury, curx
PRINT " "
doer = 0

IF beginninggame = 1 THEN dfdf$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN dfdf$ = ReferenceArray$(looker): looker = looker + 1 'dfdf$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, dfdf$
dfdf$ = UCASE$(dfdf$)

IF dfdf$ = "#DONEMOVE" THEN GOTO donemove


curx = VAL(LEFT$(dfdf$, INSTR(dfdf$, " ")))
cury = VAL(RIGHT$(dfdf$, INSTR(dfdf$, " ") - 1))


LOCATE cury, curx
COLOR xb1, d
PRINT toprint$; SPC(0);

GOTO returnhere

donemove:
END IF


IF iner$ = "#ANIMATE" THEN
IF RUNRUF$ = "YES" THEN GOTO donet
ani$ = ReferenceArray$(looker): looker = looker + 1'ani$ = inputer$(0)
'INPUT #36, ani$
ret1 = 0
IF ani$ = "1" THEN ret1 = 3
todo:
cb = 0
'newthing$ = inputer$(0)
newthing$ = ReferenceArray$(looker): looker = looker + 1
'INPUT #36, newthing$
IF newthing$ = "#DONEANIMATE" THEN GOTO doneanimate
iner$ = newthing$
iner$ = UCASE$(iner$)
cb = 56
IF ret1 = 3 THEN SLEEP 1
GOTO togo2:
doneanimate:
CLOSE #36
IF waypoint = 1 THEN x = x + 1
IF waypoint = 2 THEN x = x - 1
IF waypoint = 3 THEN y = y + 1
IF waypoint = 4 THEN y = y - 1
GOTO dl1
END IF
donet:

IF LEFT$(iner$, 7) = "#CHOICE" THEN
LOCATE , , 0
howmany = VAL(RIGHT$(iner$, LEN(iner$) - 7))
FOR hg = 1 TO howmany
IF beginninggame = 1 THEN data$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN data$ = ReferenceArray$(looker): looker = looker + 1 'data$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, data$
opt$(hg) = data$
NEXT hg

op4 = 1
PRINT
cury = CSRLIN
beg6:
LOCATE cury, 1
LOCATE , 1
COLOR 15, 0
jdcolor = 1
FOR hg = 1 TO (op4 - 1)
data$ = opt$(hg)

printer 1, data$, cury + hg - 1
NEXT hg


option$ = opt$(op4)




COLOR 15, 1

printer 3, option$, cury + hg - 1
doposx1 = doposx

COLOR 15, 0

sssg = 1
fds = 1
curg:
IF op4 + fds > howmany THEN GOTO curg1
sssg = sssg - 1
junk$ = opt$(op4 + fds)
fds = fds + 1
printer 1, junk$, cury + hg - sssg
GOTO curg
curg1:

jdcolor = 0

DO
LOCATE cury + (op4 - 1), doposx1, 1, 6, 7
newcheck$ = INKEY$
LOOP WHILE newcheck$ = ""
SELECT CASE newcheck$

CASE CHR$(27): GOTO donefunc
CASE CHR$(13): GOTO enterpress
CASE Null$ + CHR$(77): GOTO downer
CASE Null$ + CHR$(75): GOTO uper
CASE Null$ + CHR$(72)
uper:
IF op4 = 1 THEN
                op4 = howmany
                GOTO beg6
END IF
        op4 = op4 - 1
        GOTO beg6
CASE Null$ + CHR$(80)
downer:
IF op4 = howmany THEN
                op4 = 1
                GOTO beg6
END IF
        op4 = op4 + 1
        GOTO beg6
CASE ELSE
        GOTO beg6
END SELECT
        GOTO beg6

enterpress:
op4$ = STR$(op4)
toGET$ = "#IFCHOICE" + op4$

gg:
IF runref$ <> "YES" AND data$ = "--EOF--" THEN GOTO nothing
IF runref$ = "YES" AND EOF(53) THEN GOTO nothing

IF beginninggame = 1 THEN data$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN data$ = ReferenceArray$(looker): looker = looker + 1 'data$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, data$

IF LEFT$(data$, 7) = "#CHOICE" THEN
DO
        IF beginninggame = 1 THEN iner2$ = inputer$(0)
        IF runref$ <> "YES" AND beginninggame <> 1 THEN iner2$ = ReferenceArray$(looker): looker = looker + 1 'iner2$ = inputer$(0)
        IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, iner2$
        IF LEFT$(iner2$, 11) = "@DONECHOICE" THEN EXIT DO
LOOP

END IF

IF data$ = toGET$ THEN GOTO dofunc

GOTO gg
dofunc:
in:
IF beginninggame = 1 THEN iner$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN iner$ = ReferenceArray$(looker): looker = looker + 1 'iner$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, iner$
beforecaps$ = iner$
iner$ = LTRIM$(iner$)

iner$ = UCASE$(iner$)

IF iner$ = "@DONE" THEN GOTO donefunc
doits = 5
GOTO togo2
donefunc:
doits = 0
IF beginninggame = 1 THEN data$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN data$ = ReferenceArray$(looker): looker = looker + 1 'data$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, data$
data$ = UCASE$(data$)
IF data$ = "@DONECHOICE" THEN GOTO nothing
GOTO donefunc
nothing:
doits = 0
END IF

IF LEFT$(iner$, 6) = "#CLEAR" THEN
clear$ = RIGHT$(iner$, LEN(iner$) - 6)
ab = VAL(clear$)
IF ab = 0 THEN ab = 25
LOCATE ab, 1
COLOR 7, 0
PRINT STRING$(80, " "); SPC(0);
END IF


IF LEFT$(iner$, 5) = "@GOTO" THEN
togoto$ = LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 5)))
IF LEFT$(togoto$, 2) <> "@#" THEN togoto$ = "@#" + togoto$


IF runref$ <> "YES" THEN
CLOSE #36
refpos = 1
gos:
dat$ = inputer$(0)
IF dat$ = "--EOF--" THEN GOTO getout6
IF dat$ = togoto$ THEN
        doit3 = 0
        xcc = 1
        DO
        ReferenceArray$(xcc) = inputer$(0)
        IF ReferenceArray$(xcc) = "--EOF--" THEN
                COLOR 7, 0: CLS
                PRINT "Error:  @END Missing in Reffile for SCR " + LTRIM$(STR$(rp))
                END
                END IF
        IF LTRIM$(RTRIM$(UCASE$(ReferenceArray$(xcc)))) = "@END" THEN EXIT DO
        xcc = xcc + 1
        LOOP
ReferenceArray$(xcc + 1) = "--EOF--"
        looker = 1
        GOTO itisonit
        END IF

GOTO gos
END IF


IF runref$ = "YES" THEN
CLOSE #53
OPEN reffile$ FOR INPUT AS #53
gos1:
IF EOF(53) THEN GOTO getout6
INPUT #53, dat$
IF dat$ = togoto$ THEN
        doit3 = 0
        GOTO ins
        END IF
GOTO gos1:
END IF

getout6:
CLOSE #36, #53
'IF waypoint = 1 THEN x = x + 1
'IF waypoint = 2 THEN x = x - 1
'IF waypoint = 3 THEN y = y + 1
'IF waypoint = 4 THEN y = y - 1
kkkk = y - 1
kkk = kkkk * 79
record = kkk + x
GOTO getout
END IF

                      
IF iner$ = "#NOLINE" THEN
COLOR 7, 0
IF gbbn = 5 THEN GOTO nothing3
gbbn = 5
LOCATE 23, 1
PRINT STRING$(80, " "); SPC(0);
nothing3:
printline$ = "NO"
END IF

IF LEFT$(iner$, 7) = "#RUNREF" THEN
data$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 7))
label$ = LEFT$(data$, INSTR(data$, "|") - 1)
reffile$ = RIGHT$(data$, LEN(data$) - INSTR(data$, "|"))


newgfh1:
label$ = LTRIM$(label$)
reffile$ = LTRIM$(reffile$)


IF exist(reffile$) = 0 THEN GOTO returnit
'OPEN reffile$ FOR BINARY AS #53

'IF LOF(53) < 2 THEN
'CLOSE #53
'KILL reffile$
'GOTO returnit
'END IF
returnref:
CLOSE #53
OPEN reffile$ FOR INPUT AS #53
junky:

IF EOF(53) THEN GOTO endrefit
INPUT #53, iner$
IF UCASE$(iner$) = "@#" + UCASE$(label$) THEN
bg = 0
GOTO ins
END IF

GOTO junky


ins:
IF EOF(53) THEN GOTO endrefit
INPUT #53, iner$

ins2:
beforecaps$ = iner$
iner$ = UCASE$(iner$)

IF iner$ = "#DONE" THEN GOTO ins
IF iner$ = "@END" THEN
        doits = 0
        doit3 = 0
        GOTO endrefit
        END IF
runref$ = "YES"
GOTO togo2
endrefit:
startplay = 0
CLOSE #53
runref$ = "NO"
IF doit3 = 5 THEN GOTO inr
GOTO itisonit
returnit:
END IF


IF iner$ = "#CLS" THEN
reloadscreen = 3
doposy = 1
COLOR 7, 0
CLS
END IF


IF LEFT$(iner$, 5) = "#SHOW" THEN
data$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 5))
leftof$ = LEFT$(data$, INSTR(data$, "|") - 1)
rightof$ = RIGHT$(data$, LEN(data$) - INSTR(data$, "|"))
OPEN leftof$ FOR INPUT AS #252
dg:
IF EOF(252) THEN GOTO done2
INPUT #252, data$
IF data$ = "@#" + LTRIM$(rightof$) THEN GOTO showit1
GOTO dg
showit1:
IF EOF(252) THEN GOTO done2
INPUT #252, toprint$
IF toprint$ = "@END" THEN GOTO done2
printer 1, toprint$, 1000
GOTO showit1
done2:
CLOSE #252
END IF

'IF LEFT$(iner$, 7) = "#LOCATE" THEN
'locatestatement = 1
'Alllocatedata$ = RIGHT$(iner$, LEN(iner$) - 8)
'Xnumber$ = LTRIM$(RTRIM$(LEFT$(Alllocatedata$, INSTR(Alllocatedata$, ","))))
'Ynumber$ = LTRIM$(RIGHT$(Alllocatedata$, LEN(Alllocatedata$) - INSTR(Alllocatedata$, ",")))
'IF VAL(Xnumber$) = 0 THEN
'        Xnumber$ = VOB$(Xnumber$)
'        IF Xnumber$ = "" THEN Xnumber$ = "1"
'        END IF
'IF VAL(Ynumber$) = 0 THEN
'        Ynumber$ = VOB$(Ynumber$)
'        IF Ynumber$ = "" THEN Ynumber$ = "1"
'        END IF
'doposx = VAL(Xnumber$)
'doposy = VAL(Ynumber$)
'END IF

IF LEFT$(iner$, 6) = "#PRINT" THEN

IF LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 6))) = "P" THEN
IF runref$ <> "YES" THEN toprint$ = ReferenceArray$(looker): looker = looker + 1'toprint$ = inputer$(0)
IF runref$ = "YES" THEN LINE INPUT #53, toprint$
printer 1, toprint$, doposy
GOTO g55
END IF

howmany = VAL(RIGHT$(iner$, LEN(iner$) - 6))
FOR doingit = 1 TO howmany
IF beginninggame = 1 THEN toprint$ = inputer$(0)

IF runref$ <> "YES" AND beginninggame <> 1 THEN toprint$ = ReferenceArray$(looker): looker = looker + 1'toprint$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN LINE INPUT #53, toprint$
IF doingit <> howmany THEN printer 1, toprint$, doposy
IF doingit = howmany THEN printer 2, toprint$, doposy
doposy = doposy + 1
NEXT
g55:
IF LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 6))) <> "P" THEN reloadscreen = 3
IF LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 6))) <> "P" THEN towait1 = FIX(TIMER)

END IF


IF iner$ = "#MONSTER" THEN

IF runref$ = "YES" THEN INPUT #53, tosay$
IF runref$ = "YES" THEN INPUT #53, m$
IF runref$ = "YES" THEN INPUT #53, b$
IF runref$ = "YES" THEN INPUT #53, togetscore
IF runref$ = "YES" THEN INPUT #53, expertoget
IF runref$ = "YES" THEN INPUT #53, mons$
IF runref$ = "YES" THEN INPUT #53, mond$

IF runref$ <> "YES" THEN tosay$ = ReferenceArray$(looker): looker = looker + 1'tosay$ = inputer$(0)
IF runref$ <> "YES" THEN m$ = ReferenceArray$(looker): looker = looker + 1'm$ = inputer$(0)
IF runref$ <> "YES" THEN b$ = ReferenceArray$(looker): looker = looker + 1'b$ = inputer$(0)
IF runref$ <> "YES" THEN togetscore = VAL(ReferenceArray$(looker)): looker = looker + 1'(inputer$(0))
IF runref$ <> "YES" THEN expertoget = VAL(ReferenceArray$(looker)): looker = looker + 1'(inputer$(0))
IF runref$ <> "YES" THEN mons$ = ReferenceArray$(looker): looker = looker + 1'(inputer$(0))
IF runref$ <> "YES" THEN mond$ = ReferenceArray$(looker): looker = looker + 1'(inputer$(0))

weapon = 0
armour = 0
wep = VAL(mons$)
mon = VAL(mond$)

IF mons$ = "MAXENERGY" THEN
nus = 1
DO
I$ = settings$(nus): nus = nus + 1
IF I$ = "--END--" THEN
        weapon = 0
        EXIT DO
        END IF
IF I$ = "WEAPONPOWER" THEN
        I$ = settings$(nus): nus = nus + 1
        weaponpower = VAL(I$)
        weapon = 1
        EXIT DO
        END IF
I$ = settings$(nus): nus = nus + 1
LOOP
END IF


IF mond$ = "MAXENERGY" THEN
DO
I$ = settings$(nus): nus = nus + 1
IF I$ = "--END--" THEN
        armour = 0
        EXIT DO
        END IF
IF I$ = "ARMOURPOWER" THEN
        I$ = settings$(nus): nus = nus + 1
        armourpower = VAL(I$)
        armour = 1
        EXIT DO
        END IF
I$ = settings$(nus): nus = nus + 1
LOOP
END IF

IF weapon = 1 THEN wep = weaponpower
IF armour = 1 THEN arm = armourpower
'IF weapon <> 1 THEN wep = 1
'IF armour <> 1 THEN arm = 1


'IF I = 1 THEN weapon = weapon1power
'IF I = 2 THEN weapon = weapon2power
'IF I = 3 THEN weapon = weapon3power
'IF I = 4 THEN weapon = weapon4power

'IF z = 1 THEN armour = armour1power
'IF z = 2 THEN armour = armour2power
'IF z = 3 THEN armour = armour3power
'IF z = 4 THEN armour = armour4power

b = VAL(b$)
mn = wep


IF b$ = "MAXENERGY" THEN
b = hitmax
mn = w * 2 + wep
GOTO deg1
END IF

deg1:
monsb$ = STR$(b)
monsmn$ = STR$(mn)
togetscore$ = STR$(togetscore)
expertoget$ = STR$(expertoget)


result = MonsterFunction(monsb$, monsmn$, tosay$, m$, togetscore$, expertoget$)

END IF


IF LEFT$(iner$, 6) = "#GOLD+" THEN
newscore$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 6))
newscore = VAL(newscore$)
s = s + newscore
END IF



IF LEFT$(iner$, 6) = "#SHELL" THEN
newscore$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 6))
SHELL newscore$
END IF


IF LEFT$(iner$, 6) = "#GOLD-" THEN
newscore$ = LTRIM$(RIGHT$(iner$, LEN(iner$) - 6))
newscore = VAL(newscore$)
IF s < newscore THEN GOTO cantdo
s = s - newscore
GOTO coner13
cantdo:
CLS
printer 1, "`2Your funds aren't exactly what they used to be...", 1
printer 1, "`2You decide to pass up this glorious opportunity to spend money...", 2
printer 1, "`4Press a key...", 4
iss$ = INPUT$(1)
GOTO getout
coner13:
END IF


IF iner$ = "#INPUT" THEN
IF beginninggame = 1 THEN random1$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN random1$ = ReferenceArray$(looker): looker = looker + 1 'random1$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, random1$
IF beginninggame = 1 THEN x$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN x$ = ReferenceArray$(looker): looker = looker + 1 'x$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, x$
IF beginninggame = 1 THEN y$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN y$ = ReferenceArray$(looker): looker = looker + 1 'y$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, y$
thex = VAL(x$)
they = VAL(y$)
length = VAL(random1$)
LOCATE they, thex
COLOR 15, 1
PRINT STRING$(length, " "); SPC(0);
LOCATE they, thex
theprint$ = ""
ig$ = ""
gd64:
ig$ = INPUT$(1)
IF ig$ = CHR$(13) THEN GOTO enter
IF ig$ = CHR$(27) THEN GOTO enter
IF ig$ = CHR$(8) THEN
IF LEN(theprint$) <= 0 THEN GOTO gd64
theprint$ = LEFT$(theprint$, LEN(theprint$) - 1)
LOCATE they, thex
COLOR 15, 1
PRINT STRING$(length, " "); SPC(0);
LOCATE they, thex
PRINT theprint$; SPC(0);
GOTO gd64
END IF
IF LEN(theprint$) >= length - 1 THEN GOTO gd64
theprint$ = theprint$ + ig$
LOCATE they, thex
PRINT theprint$; SPC(0);
GOTO gd64
enter:
IF theprint$ = "" THEN theprint$ = "0"
what$ = "="
toset$ = "LASTRESPONSE"
tosetto$ = theprint$
beforetosetto$ = theprint$
GOTO setnow
END IF


IF LEFT$(iner$, 9) = "#RANDOMIF" THEN
rand1 = VAL(RIGHT$(iner$, LEN(iner$) - 9))
RANDOMIZE TIMER
rag = INT(RND * rand1) + 1
IF rag = 1 THEN GOTO ifit1

idg:
IF runref$ <> "YES" THEN
IF junk$ = "--EOF--" THEN GOTO donerandom
END IF
IF runref$ = "YES" THEN
IF EOF(53) THEN GOTO donerandom
END IF
IF beginninggame = 1 THEN junk$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN junk$ = ReferenceArray$(looker): looker = looker + 1 'junk$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, junk$
IF UCASE$(junk$) = "#ENDRANDOM" THEN GOTO donerandom
GOTO idg

ifit1:
IF beginninggame = 1 THEN iner$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN iner$ = ReferenceArray$(looker): looker = looker + 1 'iner$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, iner$
iner$ = LTRIM$(iner$)
iner$ = UCASE$(iner$)
IF iner$ = "#ENDRANDOM" THEN GOTO donerandom
doit2 = 5
GOTO togo2
donerandom:
doit2 = 0
GOTO itisonit
END IF


IF LEFT$(iner$, 8) = "#DECLARE" THEN
gsv$ = RIGHT$(iner$, LEN(iner$) - 9)
nus = 1
DO
gs$ = settings$(nus)

IF gs$ = gsv$ THEN
settings$(nus + 1) = "": nus = 1
EXIT DO
END IF

IF gs$ = "--END--" THEN
        settings$(nus) = gsv$
        settings$(nus + 1) = ""
        settings$(nus + 2) = "--END--": nus = 1
        EXIT DO
END IF

nus = nus + 1
LOOP
END IF

IF LEFT$(iner$, 4) = "#FIX" THEN
data$ = RIGHT$(iner$, LEN(iner$) - 5)
nus = 1
DO
ds$ = UCASE$(settings$(nus))
IF ds$ = "--END--" THEN EXIT DO
IF ds$ = UCASE$(data$) THEN
        settings$(nus + 1) = LTRIM$(STR$(FIX(VAL(settings$(nus + 1))))): nus = 1
        EXIT DO
END IF

nus = nus + 1
LOOP
END IF


IF LEFT$(iner$, 8) = "#GETCHAR" THEN
IF LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 9))) = "1" THEN LOCATE , , 1, 6, 7
IF LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 9))) = "0" THEN LOCATE , , 0

DO: getchar$ = INKEY$: LOOP WHILE getchar$ = ""

'FOR chars = 1 TO 32
'IF getchar$ = CHR$(chars) THEN
'        getchar$ = LTRIM$(STR$(chars))
'        EXIT FOR
'        END IF
'IF getchar$ = CHR$(0) + CHR$(chars) THEN
'        getchar$ = LTRIM$(STR$(chars))
'        PRINT chars; getchar$: i$ = INPUT$(1)
'        EXIT FOR
'        END IF
'NEXT chars

FOR chars = 1 TO 255
IF getchar$ = CHR$(chars) THEN
        getchar$ = LTRIM$(STR$(chars))
        EXIT FOR
        END IF
IF getchar$ = CHR$(0) + CHR$(chars) THEN
        getchar$ = LTRIM$(STR$(chars))
        EXIT FOR
        END IF
NEXT chars



'
'FOR chars = 127 TO 255
'IF getchar$ = CHR$(chars) THEN
'        getchar$ = LTRIM$(STR$(chars))
'        EXIT FOR
'        END IF
'IF getchar$ = CHR$(0) + CHR$(chars) THEN
'        getchar$ = LTRIM$(STR$(chars))
'        EXIT FOR
'        END IF
'NEXT chars

'LOCATE 1, 1: PRINT getchar$; SPC(0);

toset$ = "LASTCHAR"
tosetto$ = getchar$
GOTO setnow
END IF

IF LEFT$(iner$, 4) = "#SET" THEN
cb562 = 0

junk$ = ""
junk6$ = ""

what$ = ""
toset$ = ""
tosetto$ = ""
gsb = 6

data$ = RIGHT$(iner$, LEN(iner$) - 5)
data1$ = RIGHT$(beforecaps$, LEN(beforecaps$) - 5)


toset$ = LEFT$(data$, INSTR(data$, " ") - 1)
what$ = LTRIM$(RTRIM$(LEFT$(RIGHT$(data$, LEN(data$) - INSTR(data$, " ")), 2)))
tosetto$ = LEFT$(RIGHT$(data$, LEN(data$) - INSTR(INSTR(data$, " ") + 1, data$, " ")), LEN(data$) - INSTR(INSTR(data$, " ") + 1, data$, " ") - 1)
beforetosetto$ = LEFT$(RIGHT$(data1$, LEN(data1$) - INSTR(INSTR(data1$, " ") + 1, data1$, " ")), LEN(data1$) - INSTR(INSTR(data1$, " ") + 1, data1$, " ") - 1)


hyes = 5
GOTO getready

setnow:

IF what$ = "=2" THEN GOTO setnow2

IF VAL(tosetto$) = 0 AND LEN(tosetto$) > 1 THEN
nus = 1
GOTO pluser
END IF

IF what$ = "*1" THEN GOTO pluser
IF what$ = "/1" THEN GOTO pluser
IF what$ = "+1" THEN GOTO pluser
IF what$ = "-1" THEN GOTO pluser
IF what$ = "=1" THEN
pluser:


IF settings$(nus - 1) = "--END--" THEN GOTO nuser
IF settings$(nus) = "--END--" THEN
nuser:
        datatouse$ = ""
        GOTO setnow2
END IF


data$ = settings$(nus): nus = nus + 1
data1$ = settings$(nus): nus = nus + 1

IF data$ = tosetto$ THEN
datatouse$ = data1$
        'PRINT data$
        'PRINT data1$: i$ = INPUT$(1)
tosetto$ = datatouse$
GOTO setnow2
END IF

GOTO pluser
END IF                                          'pluser


setnow2:

nus = 1
DO
data$ = settings$(nus)
IF data$ = "--END--" THEN GOTO makeit
IF data$ = toset$ THEN
        nus = nus + 1
        GOTO processit
        END IF
nus = nus + 1
LOOP

processit:
datanow = VAL(settings$(nus))
datanow$ = settings$(nus)

IF what$ = "+2" THEN GOTO ggs
IF what$ = "=2" THEN
ggs:

IF what$ = "=2" THEN settings$(nus) = beforetosetto$
IF what$ = "+2" THEN settings$(nus) = settings$(nus) + beforetosetto$
nus = nus + 1
GOTO donewithit
END IF


IF what$ = "*1" THEN GOTO pluser2
IF what$ = "/1" THEN GOTO pluser2
IF what$ = "+1" THEN GOTO pluser2
IF what$ = "-1" THEN GOTO pluser2
IF what$ = "=1" THEN
pluser2:


IF what$ = "*1" THEN jf$ = LTRIM$(RTRIM$(STR$(datanow * VAL(datatouse$))))
IF what$ = "/1" THEN jf$ = LTRIM$(RTRIM$(STR$(FIX((datanow / VAL(datatouse$))))))
IF what$ = "+1" THEN jf$ = LTRIM$(RTRIM$(STR$(datanow + VAL(datatouse$))))
'IF what$ = "+1" THEN
'PRINT " "; jf$; " "; datanow; " "; datatouse$: END
'        END IF
IF what$ = "-1" THEN jf$ = LTRIM$(RTRIM$(STR$(datanow - VAL(datatouse$))))
IF what$ = "=1" THEN jf$ = datatouse$
settings$(nus) = jf$
'CLS : PRINT datatouse$: i$ = INPUT$(50)

GOTO donewithit
END IF                                          'pluser 2


IF what$ = "*" THEN jf = datanow * VAL(tosetto$)
IF what$ = "/" THEN jf = FIX(datanow / VAL(tosetto$))
IF what$ = "+" THEN jf = datanow + VAL(tosetto$)
IF what$ = "-" THEN jf = datanow - VAL(tosetto$)
IF what$ = "=" THEN jf = VAL(tosetto$)
settings$(nus) = LTRIM$(RTRIM$(STR$(jf)))


GOTO donewithit
makeit:

settings$(nus) = toset$: nus = nus + 1
settings$(nus) = beforetosetto$: nus = nus + 1
settings$(nus) = "--END--": nus = nus + 1


donewithit:


IF hyes = 5 THEN
hyes = 0
nus = 1
eofer62:
IF settings$(nus - 1) = "--END--" THEN GOTO doneit2
IF settings$(nus) = "--END--" THEN GOTO doneit2
thes$ = settings$(nus): nus = nus + 1
IF settings$(nus) = "--END--" THEN GOTO doneit2



IF thes$ = "MAXENERGY" THEN
thes1$ = settings$(nus): nus = nus + 1
hitmax = VAL(thes1$)
END IF

IF thes$ = "HITPOINT" THEN
thes1$ = settings$(nus): nus = nus + 1
h = VAL(thes1$)
IF h > hitmax THEN h = hitmax
END IF

IF thes$ = "X" THEN
thes1$ = settings$(nus): nus = nus + 1
END IF

IF thes$ = "Y" THEN
thes1$ = settings$(nus): nus = nus + 1
END IF

IF thes$ = "STRENGTH" THEN
thes1$ = settings$(nus): nus = nus + 1
w = VAL(thes1$)
END IF

IF thes$ = "DEFENSE" THEN
thes1$ = settings$(nus): nus = nus + 1
defs = VAL(thes1$)
END IF

IF thes$ = "GOLD" THEN
thes1$ = settings$(nus): nus = nus + 1
s = VAL(thes1$)
END IF

IF thes$ = "EXPERIENCE" THEN
thes1$ = settings$(nus): nus = nus + 1
exper = VAL(thes1$)
END IF

GOTO eofer62
doneit2:
END IF
END IF





IF iner$ = "#MAXENERGY" THEN
h = hitmax
END IF


IF LEFT$(iner$, 3) = "#IF" THEN

ifer:
iner$ = UCASE$(iner$)
whatif$ = ""
how$ = ""
whatequal$ = ""
whatequal3$ = ""
gsb = 5

data$ = RIGHT$(iner$, LEN(iner$) - 4)


whatif$ = LEFT$(data$, INSTR(data$, " ") - 1)
how$ = LTRIM$(RTRIM$(LEFT$(RIGHT$(data$, LEN(data$) - INSTR(data$, " ")), 2)))
whatequal$ = LEFT$(RIGHT$(data$, LEN(data$) - INSTR(INSTR(data$, " ") + 1, data$, " ")), LEN(data$) - INSTR(INSTR(data$, " ") + 1, data$, " ") - 5)


GOTO getready
getre2:


IF UCASE$(whatequal$) = "NONE" THEN
nus = 1
        whatequal$ = ""
        GOTO eof1
        END IF

IF INSTR(whatequal$, CHR$(34)) <> 0 THEN
nus = 1
        whatequal$ = LEFT$(RIGHT$(beforecaps$, LEN(beforecaps$) - INSTR(beforecaps$, CHR$(34))), INSTR(RIGHT$(beforecaps$, LEN(beforecaps$) - INSTR(beforecaps$, CHR$(34))), CHR$(34)) - 1)
        GOTO eof1
        END IF


IF VAL(whatequal$) = 0 AND LEN(whatequal$) > 1 THEN
        nus = 1
DO
thesa$ = settings$(nus)
IF thesa$ = "--END--" THEN EXIT DO
        IF thesa$ = whatequal$ THEN
        whatequal3$ = settings$(nus + 1)
        EXIT DO
        END IF
nus = nus + 1
LOOP

END IF

nus = 1
eof1:
IF settings$(nus) = "--END--" THEN GOTO donenext
whatif1$ = settings$(nus): nus = nus + 1


IF whatif1$ = "STARTVARIABLE" THEN GOTO eof1


IF whatif$ = whatif1$ THEN
whatequal1$ = settings$(nus): nus = nus + 1
inr:

oldequal2$ = whatequal1$
IF whatequal3$ <> "" THEN whatequal1$ = whatequal3$


IF whatequal$ = whatequal1$ AND how$ = "=" THEN GOTO runit
IF whatequal$ <> whatequal1$ AND how$ = "<>" THEN GOTO runit
IF VAL(whatequal$) >= VAL(whatequal1$) AND how$ = "<=" THEN GOTO runit
IF VAL(whatequal$) <= VAL(whatequal1$) AND how$ = ">=" THEN GOTO runit
IF VAL(whatequal$) > VAL(whatequal1$) AND how$ = "<" THEN GOTO runit
IF VAL(whatequal$) < VAL(whatequal1$) AND how$ = ">" THEN GOTO runit


whatequal1$ = oldequal2$
oldequal2$ = ""

IF how$ = "=1" THEN
whatequal3$ = VOB$(whatequal$)
IF whatequal1$ = whatequal3$ THEN GOTO runit
END IF


IF how$ = "<2" THEN GOTO l553
IF how$ = "<1" THEN
l553:
whatequal3$ = VOB$(whatequal$)
IF VAL(whatequal1$) <= VAL(whatequal3$) AND how$ = "<1" THEN GOTO runit
IF VAL(whatequal1$) < VAL(whatequal3$) AND how$ = "<2" THEN GOTO runit
END IF


IF how$ = ">2" THEN GOTO l5533
IF how$ = ">1" THEN
l5533:
whatequal3$ = VOB$(whatequal$)
IF VAL(whatequal1$) >= VAL(whatequal3$) AND how$ = ">1" THEN GOTO runit
IF VAL(whatequal1$) > VAL(whatequal3$) AND how$ = ">2" THEN GOTO runit
END IF



GOTO donenext
END IF

junk$ = settings$(nus): nus = nus + 1
IF junk$ = "--END--" THEN END

GOTO eof1:

runit:
IF beginninggame = 1 THEN iner$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN iner$ = ReferenceArray$(looker): looker = looker + 1 'iner$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, iner$
beforecaps$ = LTRIM$(iner$)
iner$ = LTRIM$(iner$)
IF iner$ = "@END" THEN GOTO ins2
IF iner$ = "#ENDIF" THEN GOTO donenext1
IF iner$ = "#ENDIF1" THEN
doit3 = 0
CLOSE #69
IF runref$ = "YES" THEN GOTO ins
GOTO itisonit
END IF
doit3 = 5
GOTO togo2

donenext:
gog:
IF beginninggame = 1 THEN junk$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN junk$ = ReferenceArray$(looker): looker = looker + 1 'junk$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN
        IF EOF(53) THEN GOTO noendif
        END IF
IF runref$ = "YES" THEN INPUT #53, junk$

IF LEFT$(junk$, 3) = "#IF" AND LEFT$(junk$, 4) <> "#IFC" THEN
        DO
IF beginninggame = 1 THEN junk$ = inputer$(0)
        IF runref$ <> "YES" AND beginninggame <> 1 THEN junk$ = ReferenceArray$(looker): looker = looker + 1 'junk$ = inputer$(0)
        IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, junk$
        IF junk$ = "--EOF--" THEN
noendif:
                COLOR 7, 0
                CLS
                PRINT "Error:  Missing #ENDIF in Reffile."
                END
                END IF
        IF junk$ = "#ENDIF" THEN GOTO gog
        LOOP
        END IF

IF LEFT$(junk$, 3) = "@IF" THEN
        DO
IF beginninggame = 1 THEN junk$ = inputer$(0)

        IF runref$ <> "YES" AND beginninggame <> 1 THEN junk$ = ReferenceArray$(looker): looker = looker + 1 'junk$ = inputer$(0)
        IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, junk$
        IF junk$ = "--EOF--" THEN
                COLOR 7, 0
                CLS
                PRINT "Error:  Missing #ENDIF1 in Reffile."
                END
                END IF
        IF junk$ = "#ENDIF1" THEN GOTO gog
        LOOP
        END IF


IF junk$ = "#ENDIF" THEN GOTO donenext1
IF junk$ = "#ENDIF1" THEN
doit3 = 0
IF runref$ = "YES" THEN GOTO ins
GOTO itisonit
END IF
GOTO gog
dn1:
IF waypoint = 1 THEN x = x + 1
IF waypoint = 2 THEN x = x - 1
IF waypoint = 3 THEN y = y + 1
IF waypoint = 4 THEN y = y - 1
donenext1:
doit3 = 0
IF runref$ = "YES" THEN GOTO ins
GOTO itisonit
END IF


IF LEFT$(iner$, 7) = "#DELETE" THEN
        todelete$ = UCASE$(LTRIM$(RTRIM$(RIGHT$(iner$, LEN(iner$) - 8))))
                nus = 1
                DO
                settingname$ = settings$(nus): nus = nus + 1
                        IF settingname$ = "--END--" THEN EXIT DO
                settingvalue$ = settings$(nus): nus = nus + 1
                        IF settingvalue$ = "--END--" THEN EXIT DO
               
                IF settingname$ = todelete$ THEN
                        newplace = nus - 2
                        DO
                        set$ = settings$(nus): nus = nus + 1
                        settings$(newplace) = set$: newplace = newplace + 1
                        IF set$ = "--END--" THEN EXIT DO
                        LOOP
                        EXIT DO
                        END IF

                LOOP
'LOCATE 1, 1: COLOR 7, 0: CLS
'FOR i = 1 TO 200
'IF INSTR(STR$(i / 20), ".") = 0 THEN SLEEP
'PRINT settings$(i)
'
'NEXT i
'END
END IF


'IF LEFT$(iner$, 7) = "#WEAPON" THEN I = VAL(RIGHT$(iner$, LEN(iner$) - 7))

'IF LEFT$(iner$, 8) = "#WEAPON+" THEN
'I = I + VAL(RIGHT$(iner$, LEN(iner$) - 8))
'IF I > 4 THEN I = 4
'END IF


'IF LEFT$(iner$, 8) = "#WEAPON-" THEN
'I = I - VAL(RIGHT$(iner$, LEN(iner$) - 8))
'IF I < 1 THEN I = 1
'END IF

'IF LEFT$(iner$, 6) = "#ARMOR" THEN z = VAL(RIGHT$(iner$, LEN(iner$) - 6))
'
'IF LEFT$(iner$, 7) = "#ARMOR+" THEN
'z = z + VAL(RIGHT$(iner$, LEN(iner$) - 7))
'IF z > 4 THEN z = 4
'END IF

'IF LEFT$(iner$, 7) = "#ARMOR-" THEN
'z = z - VAL(RIGHT$(iner$, LEN(iner$) - 7))
'IF z < 1 THEN z = 1
'END IF

IF LEFT$(iner$, 12) = "#RANDOMWRITE" THEN
hmr = VAL(RIGHT$(iner$, LEN(iner$) - 12))
RANDOMIZE TIMER
rand1 = INT(RND * hmr)
FOR i12 = 1 TO rand1
IF beginninggame = 1 THEN D5342$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN D5342$ = ReferenceArray$(looker): looker = looker + 1 'D5342$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, D5342$

NEXT i12
IF beginninggame = 1 THEN towrite$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN towrite$ = ReferenceArray$(looker): looker = looker + 1 'towrite$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, towrite$
writer towrite$
towait1 = FIX(TIMER) + 4
ggb = 5
END IF


IF LEFT$(iner$, 6) = "#WRITE" THEN
IF beginninggame = 1 THEN towrite$ = inputer$(0)
IF runref$ <> "YES" AND beginninggame <> 1 THEN towrite$ = ReferenceArray$(looker): looker = looker + 1 'towrite$ = inputer$(0)
IF runref$ = "YES" AND beginninggame <> 1 THEN INPUT #53, towrite$
writer towrite$
towait1 = FIX(TIMER) + 4
printwrite = 1
ggb = 5
doposx2 = doposx
END IF

IF iner$ = "#RETURN" THEN
GOTO getout
END IF

IF exper < 0 THEN exper = 0
IF w < 0 THEN w = 0
IF defs < 0 THEN defs = 0
IF h < 0 THEN h = 0

IF alwaysdo = 5 THEN GOTO gotothenext
IF dothe = 5 THEN GOTO dothe
IF jg = 5 THEN GOTO invscr
IF doit2 = 5 THEN GOTO ifit1
IF cb = 56 THEN GOTO todo
IF doits = 5 THEN GOTO in
IF doit3 = 5 THEN GOTO runit
IF runref$ = "YES" THEN GOTO ins

IF mapscreen$ = "YES" THEN GOTO returnmap
IF inventoryscreen$ = "YES" THEN GOTO returninventory
IF beginninggame = 1 THEN GOTO gotothenext1

LOOP
GOTO leaver

leaver:
doposy = 5
CLOSE #36

IF reloadscreen = 3 THEN
IF waypoint = 1 THEN x = x + 1
IF waypoint = 2 THEN x = x - 1
IF waypoint = 3 THEN y = y + 1
IF waypoint = 4 THEN y = y - 1
kkkk = y - 1
kkk = kkkk * 79
record = kkk + x
reloadscreen = 0
GOTO loadmap
END IF

IF reloadscreen = 2 THEN
kkkk = y - 1
kkk = kkkk * 79
record = kkk + x
reloadscreen = 0
doits = 0
GOTO loadmap
END IF

IF waypoint = 1 THEN x = x + 1
IF waypoint = 2 THEN x = x - 1
IF waypoint = 3 THEN y = y + 1
IF waypoint = 4 THEN y = y - 1

kkkk = y - 1
kkk = kkkk * 79
record = kkk + x

IF what = 1 THEN GOTO hard   'left
IF what = 2 THEN GOTO hard   'right
IF what = 3 THEN GOTO hard   'up
IF what = 4 THEN GOTO hard   'down
IF what = 5 THEN GOTO bg1
unable:
PRINT "ERROR, Unable to Do Function!!!"
GOTO nottt
eeeeerrrrr:
PRINT
PRINT "Error, User tried to Cheat!"
GOTO nottt
no1:
COLOR 7, 0
CLS
endscreen
ender5:
CLOSE #8
COLOR 7, 0
END

getready:
'LOCATE 1, 1: PRINT y, x; SPC(0);


nus = 1
ghsg:
data$ = settings$(nus): nus = nus + 1
IF data$ = "--END--" THEN
        nus = nus - 1
        GOTO startvariable
        END IF
IF data$ = "" THEN
        nus = nus - 1
        GOTO startvariable
        END IF

data1$ = settings$(nus): nus = nus + 1
IF data1$ = "--END--" THEN
        nus = nus - 1
        GOTO startvariable
        END IF

data$ = UCASE$(data$)
data$ = LTRIM$(data$)

IF data$ = "MAXENERGY" THEN
max1 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(hitmax)
IF settingsettings = 1 THEN hitmax = VAL(settings$(nus - 1))

GOTO ghsg
END IF

IF data$ = "HITPOINT" THEN
max2 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(h)
IF settingsettings = 1 THEN h = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "GOLD" THEN
max3 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(s)
IF settingsettings = 1 THEN s = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "STRENGTH" THEN
max4 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(w)
IF settingsettings = 1 THEN w = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "DEFENSE" THEN
max5 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(defs)
IF settingsettings = 1 THEN defs = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "WEAPON" THEN
max6 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(I)
IF settingsettings = 1 THEN I = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "ARMOUR" THEN
max7 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(z)
IF settingsettings = 1 THEN z = VAL(settings$(nus - 1))
GOTO ghsg
END IF

IF data$ = "Y" THEN
max9 = 1
settings$(nus - 1) = STR$(y)
GOTO ghsg
END IF

IF data$ = "X" THEN
max11 = 1
settings$(nus - 1) = STR$(x)
GOTO ghsg
END IF

IF data$ = "EXPERIENCE" THEN
max8 = 1
IF settingsettings <> 1 THEN settings$(nus - 1) = STR$(exper)
IF settingsettings = 1 THEN exper = VAL(settings$(nus - 1))
GOTO ghsg
END IF

GOTO ghsg

startvariable:
IF max1 <> 1 THEN settings$(nus) = "MAXENERGY": nus = nus + 1
IF max1 <> 1 THEN settings$(nus) = STR$(hitmax): nus = nus + 1
IF max2 <> 1 THEN settings$(nus) = "HITPOINT": nus = nus + 1
IF max2 <> 1 THEN settings$(nus) = STR$(h): nus = nus + 1
IF max3 <> 1 THEN settings$(nus) = "GOLD": nus = nus + 1
IF max3 <> 1 THEN settings$(nus) = STR$(s): nus = nus + 1
IF max4 <> 1 THEN settings$(nus) = "STRENGTH": nus = nus + 1
IF max4 <> 1 THEN settings$(nus) = STR$(w): nus = nus + 1
IF max5 <> 1 THEN settings$(nus) = "DEFENSE": nus = nus + 1
IF max5 <> 1 THEN settings$(nus) = STR$(defs): nus = nus + 1
IF max6 <> 1 THEN settings$(nus) = "WEAPON": nus = nus + 1
IF max6 <> 1 THEN settings$(nus) = STR$(I): nus = nus + 1
IF max7 <> 1 THEN settings$(nus) = "ARMOUR": nus = nus + 1
IF max7 <> 1 THEN settings$(nus) = STR$(z): nus = nus + 1
IF max8 <> 1 THEN settings$(nus) = "EXPERIENCE": nus = nus + 1
IF max8 <> 1 THEN settings$(nus) = STR$(exper): nus = nus + 1
IF max9 <> 1 THEN settings$(nus) = "Y": nus = nus + 1
IF max9 <> 1 THEN settings$(nus) = STR$(y): nus = nus + 1
IF max11 <> 1 THEN settings$(nus) = "X": nus = nus + 1
IF max11 <> 1 THEN settings$(nus) = STR$(x): nus = nus + 1
max1 = 0
max2 = 0
max3 = 0
max4 = 0
max5 = 0
max6 = 0
max7 = 0
max8 = 0
max9 = 0
max11 = 0

CLOSE #5, #66, #67, #69, #222, #234
settings$(nus) = "--END--": nus = nus + 1

'COLOR 7, 0: CLS
'FOR igs = 1 TO 100
'PRINT settings$(igs)
'i$ = INPUT$(1)
'IF i$ = CHR$(27) THEN EXIT FOR
'NEXT igs


IF refreshingmap = 1 THEN GOTO returner25
IF begingame = 1 THEN GOTO begingame
IF settingsettings = 10 THEN GOTO returner10
IF settingsettings = 2 THEN GOTO returner2
IF settingsettings = 1 THEN GOTO returner
IF hyes = 5 THEN GOTO setnow

GOTO getre2

getout:
IF runref$ = "YES" THEN GOTO returnref
agggg$ = inputer$(rp)

GOTO doiter
nottt:
COLOR 7, 0
CLEAR
END