'                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'                      ³**************************³
'                      ³*ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»*³
'                      ³*º       Death Box      º*³
'                      ³*º        vrs 1.1       º*³
'                      ³*º      Gary Taylor     º*³
'                      ³*º       2-26-2000      º*³
'                      ³*º       2D Arrays      º*³
'                      ³*ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ*³
'                      ³**************************³
'                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
'this program lets you play a game like pac-man
'**********************************************************************************
CONST black = 0, blue = 1, green = 2, cyan = 3, red = 4, magenta = 5
CONST brown = 6, white = 7, gray = 8, LtBlue = 9, LtGreen = 10, LtCyan = 11
CONST LtRed = 12, LtMagenta = 13, yellow = 14, HiInWhite = 15
CONST pi = 3.14, true = -1, false = 0
CONST blank = 0, wall = 1, wall2 = 2
CONST youp = 3, youdown = 4, youright = 5, youleft = 6
CONST enemyup = 7, enemydown = 8, enemyright = 9, enemyleft = 10
CONST plasersvirt = 11, plasershor = 12, dup = 13, moneyup = 14
CONST up = 1, down = 2, lefty = 3, righty = 4, stopped = 5
Ghost = 1
startlifes = 3
DIM youp(400), youdown(400), youright(400), youleft(400)
DIM enemyup(400), enemydown(400), enemyright(400), enemyleft(400)
DIM wall(400), plaservirt(400), plaserhor(400), dup(400), moneyup(400)
DIM wall2(400), dbox(400), maze(12, 16), blank(400)
DIM score2(10)
DIM player$(10)
DIM pname$(10)
'****************************************************************************************
'this subroutine starts the program
COLOR black, black
CLS
SCREEN 12
GOSUB palblack
GOSUB printpics
PUT (1, 1), blank, PSET
GOSUB palnorm
GOSUB title
GOSUB Menu
CHAIN "c:\windows\profiles\alex\desktop\q-basi~1\gameinto"
'****************************************************************************************
'this subroutine makes the palette go black
palblack:
COLOR green
PRINT "Press<";
COLOR LtGreen
PRINT "ENTER";
COLOR green
PRINT ">and then"
COLOR HiInWhite
PRINT "Please Wait"
INPUT "", when$
FOR C = 0 TO 15
    PALETTE C, 0 * 65536 + 0 * 256 + 0
NEXT C
RETURN
'****************************************************************************************
'this subroutine makes the palette go back to normal
palnorm:
'blue
PALETTE 1, 40 * 65536 + 0 * 256 + 0
'green
PALETTE 2, 0 * 65536 + 40 * 256 + 0
'cyan
PALETTE 3, 50 * 65536 + 50 * 256 + 0
'red
PALETTE 4, 0 * 65536 + 0 * 256 + 40
'white
PALETTE 7, 50 * 65536 + 50 * 256 + 50
'gray
PALETTE 8, 20 * 65536 + 20 * 256 + 20
'LtCyan
PALETTE 11, 60 * 65536 + 60 * 256 + 0
'LtGreen
PALETTE 10, 0 * 65536 + 60 * 256 + 0
'LtRed
PALETTE 12, 0 * 65536 + 0 * 256 + 50
'yellow
PALETTE 14, 0 * 65536 + 50 * 256 + 50
'HiInWhite
PALETTE 15, 63 * 65536 + 63 * 256 + 63
RETURN
'****************************************************************************************
'this subroutine prints the pictures
printpics:
CLS
SLEEP 1
'FOR row = 1 TO 40
'    FOR col = 1 TO 40
'        READ c
'        PSET (col, row), c
'    NEXT col
'NEXT row
'chain "a:gameinto
GET (1, 1)-(40, 40), blank
FOR pic = 1 TO 4
    IF pic = 1 THEN
        RESTORE player
        FOR row = 1 TO 40
            FOR col = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT col
        NEXT row
        GET (1, 1)-(40, 40), youp
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
        RESTORE enemy
        FOR row = 1 TO 40
            FOR col = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT col
        NEXT row
        GET (1, 1)-(40, 40), enemyup
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
    ELSEIF pic = 2 THEN
        RESTORE player
        FOR row = 40 TO 1 STEP -1
            FOR col = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT col
        NEXT row
        GET (1, 1)-(40, 40), youdown
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
        RESTORE enemy
        FOR row = 40 TO 1 STEP -1
            FOR col = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT col
        NEXT row
        GET (1, 1)-(40, 40), enemydown
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
    ELSEIF pic = 3 THEN
        RESTORE player
        FOR col = 40 TO 1 STEP -1
            FOR row = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT row
        NEXT col
        GET (1, 1)-(40, 40), youright
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
        RESTORE enemy
        FOR col = 40 TO 1 STEP -1
            FOR row = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT row
        NEXT col
        GET (1, 1)-(40, 40), enemyright
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
    ELSEIF pic = 4 THEN
        RESTORE player
        FOR col = 1 TO 40
            FOR row = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT row
        NEXT col
        GET (1, 1)-(40, 40), youleft
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
        RESTORE enemy
        FOR col = 1 TO 40
            FOR row = 1 TO 40
                READ C
                PSET (col, row), C
            NEXT row
        NEXT col
        GET (1, 1)-(40, 40), enemyleft
        LOCATE 4, 1
'        INPUT "Press<ENTER>to continue", when$
'        SLEEP 1
    END IF
NEXT pic
RESTORE wall
FOR row = 1 TO 40
    FOR col = 1 TO 40
        READ C
        PSET (col, row), C
    NEXT col
NEXT row
GET (1, 1)-(40, 40), wall
LOCATE 4, 1
'INPUT "Press<ENTER>to continue", when$
'SLEEP 1
RESTORE wall2
FOR row = 1 TO 40
    FOR col = 1 TO 40
        READ C
        PSET (col, row), C
    NEXT col
NEXT row
GET (1, 1)-(40, 40), wall2
LOCATE 4, 1
'INPUT "Press<ENTER>to continue", when$
'SLEEP 1
RESTORE dup
FOR row = 1 TO 40
    FOR col = 1 TO 40
        READ C
        PSET (col, row), C
    NEXT col
NEXT row
LOCATE 4, 1
GET (1, 1)-(40, 40), dup
'INPUT "Press<ENTER>to continue", when$
SLEEP 1
RETURN
'************************************************************************************************************
'this subroutine prints the title
title:
COLOR green
CLS
FOR a = 1 TO 31
    FOR Delay = 1 TO 1500
    NEXT Delay
    LOCATE 1, a
    PRINT " Death Box"
NEXT a
FOR a = 2 TO 10
    FOR Delay = 1 TO 1500
    NEXT Delay
    LOCATE a - 1, 31
    PRINT "          "
    LOCATE a, 32
    PRINT "Death Box"
NEXT a
FOR a = 1 TO 34
    FOR Delay = 1 TO 1500
    NEXT Delay
    LOCATE 11, a
    PRINT " By"
NEXT a
FOR a = 1 TO 29
    FOR Delay = 1 TO 1500
    NEXT Delay
    LOCATE 12, a
    PRINT "  Gary "
    LOCATE 12, 65 - a
    PRINT "Taylor "
NEXT a
LOCATE 9, 29
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 10, 29
PRINT "º"
LOCATE 11, 29
PRINT "º"
LOCATE 12, 29
PRINT "º"
LOCATE 13, 29
PRINT "º"
LOCATE 14, 29
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍͼ"
LOCATE 10, 43
PRINT "º"
LOCATE 11, 43
PRINT "º"
LOCATE 12, 43
PRINT "º"
LOCATE 13, 43
PRINT "º"
LOCATE 13, 30
INPUT "Press<ENTER>", when$
RETURN
'************************************************************************************************************
'this subroutine prints the menu
Menu:
donemen = false
WHILE NOT donemen
    COLOR green
    CLS
    LOCATE 9, 29
    PRINT "ÉÍÍÍÍÍÍMenuÍÍÍÍÍÍ»"
    LOCATE 10, 29
    PRINT "º1.Instructions  º"
    LOCATE 11, 29
    PRINT "º2.Play the game º"
    LOCATE 12, 29
    PRINT "º3.Veiw top ten  º"
    LOCATE 13, 29
    PRINT "º4.Quit          º"
    LOCATE 14, 29
    PRINT "º                º"
    LOCATE 15, 29
    PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
    LOCATE 14, 30
    INPUT "Enter Selection", mensel
    IF mensel = 1 THEN
        GOSUB inst
    ELSEIF mensel = 2 THEN
        lifes = startlifes
        enemys = false
        GOSUB game
        lifes = 3
        donegame = false
        enemys = false
    ELSEIF mensel = 3 THEN
        GOSUB topten
    ELSEIF mensel = 4 THEN
        donemen = true
    ELSE
        PLAY "o3l5c"
        LOCATE 15, 31
        PRINT "Enter 1,2,3,or 4"
        LOCATE 16, 32
        INPUT "you dummy!!!", when$
    END IF
WEND
RETURN
'************************************************************************************************************
'this subroutine prints the instructions
inst:
COLOR green
CLS
LOCATE 1, 1
PRINT "In this game you try to get to the bomb to kill your enemys."
LOCATE 2, 1
PRINT "If they don't kill you."
LOCATE 3, 1
PRINT "Use arrow keys to move"
LOCATE 4, 1
PRINT "This is you"
PUT (1, 65), youp, PSET
LOCATE 8, 1
PRINT "This is your enemy"
PUT (1, 130), enemyup, PSET
LOCATE 12, 1
PRINT "These are walls"
PUT (1, 194), wall, PSET
PUT (50, 194), wall2, PSET
LOCATE 16, 1
PRINT "This is how you kill the enemys"
PUT (1, 255), dup, PSET
LOCATE 30, 1
INPUT "Press<ENTER>to continue", when$
RETURN
'************************************************************************************************************
'this subroutine runs the game
game:
CLS
enemys = false
lifes = startlifes
CLS
LOCATE 1, 1
INPUT "What is your name"; pname$
IF pname$ = "Alex" OR pname$ = "ALEX" THEN
    lifes = 1000
END IF
LOCATE 2, 1
INPUT "What level do you want to start at?1 2 3 4:", lev
GOSUB setup
direction = stopped
C$ = INKEY$                  'check keyboard + put in c$
WHILE NOT donegame
    WHILE NOT enemys
        GOSUB youdie
        IF C$ <> "" THEN
            GOSUB keystruck
            IF pname$ = "Alex" OR pname$ = "ALEX" THEN
            lifes = lifes + 1
            END IF
        END IF
        GOSUB youdie
        GOSUB move
        GOSUB youdie
        GOSUB enemymove
        GOSUB youdie
        FOR Delay = 1 TO 2500
        NEXT Delay
        C$ = INKEY$
        LOCATE 2, 11
        PRINT "Money = "; money
        LOCATE 2, 56
        PRINT "Lives = "; lifes
        IF lifes < 0 THEN
            enemys = true
        ELSEIF lev > 4 THEN
            enemys = true
        END IF
        GOSUB youdie
    WEND
    IF lev >= 4 THEN
        donegame = true
    ELSEIF lev < 4 THEN
        lev = lev + 1
    END IF
    GOSUB setup
WEND
GOSUB insert
RETURN
'************************************************************************************************************
'this subroutine checks witch way to move
keystruck:
IF C$ = CHR$(0) + "H" THEN
    direction = up
ELSEIF C$ = CHR$(0) + "P" THEN
    direction = down
ELSEIF C$ = CHR$(0) + "K" THEN
    direction = lefty
ELSEIF C$ = CHR$(0) + "M" THEN
    direction = righty
ELSEIF C$ = CHR$(107) THEN
    enemys = true
END IF
RETURN
'************************************************************************************************************
'this subroutine makes the player move
move:
IF direction = up THEN
    IF maze(prow - 1, pcol) = dup THEN
        enemys = true
    END IF
    IF maze(prow - 1, pcol) = moneyup THEN
        money = money + 100
    END IF
    IF maze(prow - 1, pcol) <> wall AND maze(prow - 1, pcol) <> wall2 THEN
        PUT ((pcol - 1) * 40, (prow - 1) * 40), blank, PSET
        prow = prow - 1
        PUT ((pcol - 1) * 40, (prow - 1) * 40), youp, PSET
    END IF
ELSEIF direction = down THEN
    IF maze(prow + 1, pcol) = dup THEN
        enemys = true
    END IF
    IF maze(prow + 1, pcol) = moneyup THEN
        money = money + 100
    END IF
    IF maze(prow + 1, pcol) <> wall AND maze(prow + 1, pcol) <> wall2 THEN
        PUT ((pcol - 1) * 40, (prow - 1) * 40), blank, PSET
        prow = prow + 1
        PUT ((pcol - 1) * 40, (prow - 1) * 40), youdown, PSET
    END IF
ELSEIF direction = lefty THEN
    IF maze(prow, pcol - 1) = dup THEN
        enemys = true
    END IF
    IF maze(prow, pcol - 1) = moneyup THEN
        money = money + 100
    END IF
    IF maze(prow, pcol - 1) <> wall AND maze(prow, pcol - 1) <> wall2 THEN
        PUT ((pcol - 1) * 40, (prow - 1) * 40), blank, PSET
        pcol = pcol - 1
        PUT ((pcol - 1) * 40, (prow - 1) * 40), youleft, PSET
    END IF
ELSEIF direction = righty THEN
    IF maze(prow, pcol + 1) = dup THEN
        enemys = true
    END IF
    IF maze(prow, pcol + 1) = moneyup THEN
        money = money + 100
    END IF
    IF maze(prow, pcol + 1) <> wall AND maze(prow, pcol + 1) <> wall2 THEN
        PUT ((pcol - 1) * 40, (prow - 1) * 40), blank, PSET
        pcol = pcol + 1
        PUT ((pcol - 1) * 40, (prow - 1) * 40), youright, PSET
    END IF
END IF
RETURN
'************************************************************************************************************
'this subroutine makes the enemy move
enemymove:
IF Ghost = 2 THEN
FOR x = 1 TO 4
    numchoices = 0
    IF enemydir(x) = up THEN
        IF maze(erow(x) - 1, ecol(x)) = blank THEN
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), blank, PSET
            erow(x) = erow(x) - 1
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), enemyup, PSET
        END IF
        IF maze(erow(x), ecol(x) - 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = lefty
        END IF
        IF maze(erow(x) - 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = up
        END IF
        IF maze(erow(x), ecol(x) + 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = righty
        END IF
        IF numchoices > 0 THEN
            enemydir(x) = choices(INT(RND * numchoices) + 1)
        ELSE
            enemydir(x) = down
        END IF
    ELSEIF enemydir(x) = down THEN
        IF maze(erow(x) + 1, ecol(x)) = blank THEN
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), blank, PSET
            erow(x) = erow(x) + 1
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), enemydown, PSET
        END IF
        IF maze(erow(x), ecol(x) - 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = lefty
        END IF
        IF maze(erow(x) + 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = down
        END IF
        IF maze(erow(x), ecol(x) + 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = righty
        END IF
        IF numchoices > 0 THEN
            enemydir(x) = choices(INT(RND * numchoices) + 1)
        ELSE
            enemydir(x) = up
        END IF
    ELSEIF enemydir(x) = righty THEN
        IF maze(erow(x), ecol(x) + 1) = blank THEN
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), blank, PSET
            ecol(x) = ecol(x) + 1
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), enemyright, PSET
        END IF
        IF maze(erow(x) - 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = up
        END IF
        IF maze(erow(x) + 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = down
        END IF
        IF maze(erow(x), ecol(x) + 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = righty
        END IF
        IF numchoices > 0 THEN
            enemydir(x) = choices(INT(RND * numchoices) + 1)
        ELSE
            enemydir(x) = lefty
        END IF
    ELSEIF enemydir(x) = lefty THEN
        IF maze(erow(x), ecol(x) - 1) = blank THEN
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), blank, PSET
            ecol(x) = ecol(x) - 1
            PUT ((ecol(x) - 1) * 40, (erow(x) - 1) * 40), enemyleft, PSET
        END IF
        IF maze(erow(x) - 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = up
        END IF
        IF maze(erow(x) + 1, ecol(x)) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = down
        END IF
        IF maze(erow(x), ecol(x) - 1) = blank THEN
            numchoices = numchoices + 1
            choices(numchoices) = lefty
        END IF
        IF numchoices > 0 THEN
            enemydir(x) = choices(INT(RND * numchoices) + 1)
        ELSE
            enemydir(x) = righty
        END IF
    END IF
NEXT x
Ghost = 1
ELSEIF Ghost = 1 THEN
Ghost = 2
END IF
RETURN
'************************************************************************************************************
'this subroutine lets you die
youdie:
FOR x = 1 TO 4
    IF pcol = ecol(x) AND prow = erow(x) THEN
        lifes = lifes - 1
        FOR Delay = 1 TO 25000
        NEXT Delay
        pcol = pstartcol
        prow = pstartrow
    END IF
NEXT x
IF lifes < 0 THEN
    lev = 10
END IF
RETURN
'************************************************************************************************************
'this subroutine sets up the game
setup:
CLS
enemys = false
IF lev = 1 THEN
    enemys = false
    lev = 1
    RESTORE level1
ELSEIF lev = 2 THEN
    enemys = false
    lev = 2
    RESTORE level2
ELSEIF lev = 3 THEN
    enemys = false
    lev = 3
    RESTORE level3
ELSEIF lev = 4 THEN
    enemys = false
    lev = 4
    RESTORE level4
END IF
e = 0
FOR row = 1 TO 12
    FOR col = 1 TO 16
        READ maze(row, col)
        IF maze(row, col) = wall THEN
            PUT ((col - 1) * 40, (row - 1) * 40), wall, PSET
        ELSEIF maze(row, col) = wall2 THEN
            PUT ((col - 1) * 40, (row - 1) * 40), wall2, PSET
        ELSEIF maze(row, col) = youp THEN
            prow = row
            pcol = col
            pstartrow = row
            pstartcol = col
            direction = up
            maze(row, col) = empty
            PUT ((col - 1) * 40, (row - 1) * 40), youp, PSET
        ELSEIF maze(row, col) = youdown THEN
            PUT ((col - 1) * 40, (row - 1) * 40), youdown, PSET
        ELSEIF maze(row, col) = youright THEN
            PUT ((col - 1) * 40, (row - 1) * 40), youright, PSET
        ELSEIF maze(row, col) = youleft THEN
            PUT ((col - 1) * 40, (row - 1) * 40), youleft, PSET
        ELSEIF maze(row, col) = enemyup THEN
            e = e + 1
            erow(e) = row
            ecol(e) = col
            enemydir(e) = up
            maze(row, col) = empty
            PUT ((col - 1) * 40, (row - 1) * 40), enemyup, PSET
        ELSEIF maze(row, col) = enemydown THEN
            PUT ((col - 1) * 40, (row - 1) * 40), enemydown, PSET
        ELSEIF maze(row, col) = enemyright THEN
            PUT ((col - 1) * 40, (row - 1) * 40), enemyright, PSET
        ELSEIF maze(row, col) = enemyleft THEN
            PUT ((col - 1) * 40, (row - 1) * 40), enemyleft, PSET
        ELSEIF maze(row, col) = dup THEN
            PUT ((col - 1) * 40, (row - 1) * 40), dup, PSET
        ELSEIF maze(row, col) = moneyup THEN
            PUT ((col - 1) * 40, (row - 1) * 40), moneyup, PSET
        END IF
    NEXT col
NEXT row
RETURN
'*****************************************************************************
'*  Top Ten
'*  Version 2.1
'*By Jeremy Allen Fako
'*Modified GAry TAylor
'*  02/13/01
'*  04-03-01
'**
topten:
'*****************************************************************************
'top ten menu
RANDOMIZE TIMER
CLS
GOSUB choice
RETURN
'*****************************************************************************
'This is the main menu.
choice:
doneten = false
WHILE NOT doneten
    CLS
    COLOR green
    LOCATE 10, 28
    PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
    LOCATE 11, 28
    PRINT "º 1.Erase Top Ten    º"
    LOCATE 12, 28
    PRINT "º 2.View Top Ten     º"
    LOCATE 13, 28
    PRINT "º 3.Exit             º"
    LOCATE 14, 28
    PRINT "º                    º"
    LOCATE 15, 28
    PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
    LOCATE 14, 29
    COLOR LtGreen
    INPUT "Enter Selection:", Menu$
    IF Menu$ = "1" THEN
        GOSUB new
    ELSEIF Menu$ = "2" THEN
        GOSUB viewtwo
    ELSEIF Menu$ = "3" THEN
        doneten = true
    ELSE
        PLAY "L1MLT100O3C."
    END IF
WEND
doneten = false
RETURN
'*****************************************************************************
'This creates a new top ten.
new:
CLS
COLOR LtGreen
PRINT "Please Wait..."
OPEN "a:Topten.glt" FOR OUTPUT AS #1
FOR x = 1 TO 10
    PRINT #1, "Nobody"
    PRINT #1, 0
NEXT x
CLOSE #1
RETURN
'*****************************************************************************
'This recalls the top ten.
viewt:
CLS
COLOR LtGreen
PRINT "Please Wait..."
OPEN "a:Topten.glt" FOR INPUT AS #1
FOR x = 1 TO 10
    INPUT #1, player$(x)
    INPUT #1, score2(x)
NEXT x
CLOSE #1
RETURN
'*****************************************************************************
'This lets you view the top ten.
viewtwo:
GOSUB viewt
CLS
LOCATE 8, 20
COLOR green
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 9, 20
PRINT "º                   Top Ten                   º"
LOCATE 10, 20
PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
LOCATE 11, 20
PRINT "º 1.                                          º"
LOCATE 12, 20
PRINT "º 2.                                          º"
LOCATE 13, 20
PRINT "º 3.                                          º"
LOCATE 14, 20
PRINT "º 4.                                          º"
LOCATE 15, 20
PRINT "º 5.                                          º"
LOCATE 16, 20
PRINT "º 6.                                          º"
LOCATE 17, 20
PRINT "º 7.                                          º"
LOCATE 18, 20
PRINT "º 8.                                          º"
LOCATE 19, 20
PRINT "º 9.                                          º"
LOCATE 20, 20
PRINT "º 10.                                         º"
LOCATE 21, 20
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
FOR RowPerson = 1 TO 10
    COLOR LtGreen
    LOCATE RowPerson + 10, 25
    PRINT player$(RowPerson)
    LOCATE RowPerson + 10, 50
    PRINT score2(RowPerson)
    FOR Delay = 1 TO 1500
    NEXT Delay
NEXT RowPerson
DO
C$ = INKEY$
LOOP UNTIL C$ <> ""
RETURN
'*****************************************************************************
'This lets you insert new scores.
insert:
CLS
score2 = lifes * 100
COLOR green
Found = false
CurScore = 1
GOSUB viewt
WHILE NOT Found AND CurScore < 11
    IF score2 > score2(CurScore) THEN
        Found = true
    ELSE
        CurScore = CurScore + 1
    END IF
WEND
IF Found THEN
INPUT "made it here", when$
    FOR x = 9 TO CurScore STEP -1
        score2(x + 1) = score2(x)
        player$(x + 1) = player$(x)
    NEXT x
    score2(CurScore) = score2
    player$(CurScore) = pname$
    GOSUB save
END IF
CLS
COLOR LtGreen
INPUT "Done!", w$
RETURN
'*****************************************************************************
'This stores the top ten.
save:
OPEN "a:Topten.glt" FOR OUTPUT AS #1
    FOR x = 1 TO 10
        PRINT #1, player$(x)
        PRINT #1, score2(x)
    NEXT x
CLOSE #1
RETURN
'************************************************************************************************************
'this subroutine prints my levels
level1:
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,1,1,1,1,1,1,0,1,1,0,1,1,7,1
DATA 1,0,0,0,0,1,0,0,0,1,0,0,0,1,0,1
DATA 1,0,1,1,0,1,1,0,1,1,0,1,13,1,0,1
DATA 1,0,1,0,0,0,1,0,1,1,0,1,1,1,0,1
DATA 1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,1,0,1,0,1,7,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,0,0,0,1,0,1
DATA 1,0,1,0,1,1,1,0,1,1,0,1,1,1,0,1
DATA 1,0,0,0,0,0,0,0,0,0,7,0,0,0,7,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
level2:
DATA 1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2
DATA 2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,1,1,1,0,1,1,1,1,0,1,1,1,7,2
DATA 2,0,1,0,1,0,0,0,1,0,0,0,0,1,0,1
DATA 1,0,0,0,1,1,1,0,0,0,1,1,0,1,0,2
DATA 2,0,1,0,1,0,1,1,1,1,1,1,0,0,7,1
DATA 1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,2
DATA 2,0,1,1,1,7,1,1,1,1,1,1,0,1,0,1
DATA 1,0,1,0,0,0,1,0,0,0,0,1,0,1,0,2
DATA 2,0,1,1,1,0,1,1,1,1,0,1,1,1,0,1
DATA 1,0,0,0,0,0,1,13,0,0,0,0,0,0,7,2
DATA 2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1
level3:
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 1,0,0,3,0,0,1,0,0,0,0,0,0,0,7,1
DATA 1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1
DATA 2,0,0,0,0,0,0,0,1,0,0,0,0,0,0,2
DATA 2,1,0,1,1,1,1,1,1,0,1,1,1,1,1,2
DATA 1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1
DATA 2,0,0,0,0,0,0,0,0,1,0,0,0,0,0,2
DATA 2,1,1,1,1,1,1,1,0,1,7,1,1,1,0,2
DATA 1,1,0,0,0,1,0,0,0,1,0,0,0,1,0,1
DATA 1,13,7,1,0,0,0,1,0,1,0,1,0,0,7,1
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
level4:
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,3,0,0,0,0,0,0,0,0,0,0,0,0,0,2
DATA 2,0,2,2,2,2,2,0,0,2,2,2,2,2,0,2
DATA 2,0,2,0,0,0,2,0,0,2,0,0,0,2,0,2
DATA 2,0,0,0,2,0,2,2,2,2,0,2,0,0,0,2
DATA 2,0,2,2,2,0,0,0,0,0,0,2,2,2,0,2
DATA 2,0,2,7,0,0,2,0,0,2,0,0,7,2,0,2
DATA 2,0,2,2,2,2,2,0,0,2,2,2,2,2,0,2
DATA 2,0,0,0,0,2,0,0,0,0,2,0,0,0,0,2
DATA 2,2,2,2,7,0,0,0,0,0,0,0,2,2,2,2
DATA 2,2,13,0,0,2,0,0,0,0,2,0,0,7,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
'********************************************************************************************************************************************************************************
'this subroutine has all of my pictures
player:
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,1,1,1,1,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,1,1,1,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,1,1,1,1,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,1,1,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,10,10,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,3,4,3,0,0,0,0,0,0,0,2,2,2,10,2,2,10,10,2,2,10,2,2,2,0,0,0,0,0,0,0,3,4,3,0,0,0
DATA 0,0,3,3,4,3,3,0,0,0,0,0,2,2,2,10,10,2,2,10,10,2,2,10,10,2,2,2,0,0,0,0,0,3,3,4,3,3,0,0
DATA 0,3,3,3,4,3,3,3,0,0,0,2,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,2,0,0,0,3,3,3,4,3,3,3,0
DATA 2,3,3,3,4,3,3,3,3,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,2,3,3,3,4,3,3,3,2
DATA 2,3,3,3,4,3,3,3,3,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,3,3,3,3,4,3,3,3,2
DATA 2,3,3,3,4,3,3,3,3,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,3,3,3,3,4,3,3,3,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,11,11,11,11,11,11,11,11,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,10,10,2,2,11,11,11,11,11,11,11,11,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 14,4,14,4,14,4,14,4,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,4,14,4,14,4,14,4,14
DATA 14,4,14,4,14,4,14,4,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,4,14,4,14,4,14,4,14
'**********************************************************************************************************************************************************
enemy:
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,1,1,0,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,1,1,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,1,1,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,1,1,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,8,8,1,1,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,8,8,1,1,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,8,8,1,1,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,8,8,1,1,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,8,8,8,8,8,1,1,1,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,8,8,8,8,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,8,8,8,8,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,8,8,1,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,1,1,1,1,1,1,0,0,0,0,00,00,00,00,00,00,00,00,00
DATA 0,0,0,4,11,4,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,1,1,0,1,1,1,0,0,00,00,00,00,00,04,11,04,00,0,0
DATA 0,0,4,4,11,4,4,0,0,0,0,0,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,1,0,00,00,00,00,04,04,11,4,4,0,0
DATA 0,4,4,4,11,4,4,4,0,0,0,1,1,1,1,0,0,1,1,0,0,1,1,0,0,1,1,1,1,00,00,00,04,04,04,11,4,4,4,0
DATA 4,4,4,4,11,4,4,4,4,1,1,1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,1,01,01,04,04,04,04,11,4,4,4,4
DATA 4,4,4,4,11,4,4,4,4,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,01,01,04,04,04,04,11,4,4,4,4
DATA 4,4,4,4,11,4,4,4,4,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,01,01,04,04,04,04,11,4,4,4,4
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,3,3,3,3,3,3,3,3,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,01,03,03,03,03,3,3,3,3,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,01,01,01,01,01,1,1,1,1,1
DATA 14,4,14,4,14,4,14,4,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,4,14,4,14,4,14,4,14
DATA 14,4,14,4,14,4,14,4,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,4,14,4,14,4,14,4,14
'**********************************************************************************************************************************************************
wall:
DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
DATA 07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07
DATA 07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07
DATA 07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07
DATA 07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,08,08,08,08,08,08,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,08,08,07,07,08,08,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,08,08,07,07,08,08,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,08,08,08,08,08,08,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07,08,08,07,07
DATA 07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07
DATA 07,07,08,08,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,08,08,07,07
DATA 07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07
DATA 07,07,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,07,07
DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
DATA 07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07
'**********************************************************************************************************************************************************
wall2:
DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
DATA 02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02
DATA 02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02
DATA 02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02
DATA 02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02,10,10,02,02
DATA 02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02
DATA 02,02,10,10,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,10,10,02,02
DATA 02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02
DATA 02,02,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,02,02
DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
'**********************************************************************************************************************************************************
dup:
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14,14, 14,14,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14,14,04, 04,14,14,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,14,14,14,00,00,00,00,00,00,00,00,00,00,00,14,14,14,14, 14,14,14,14,00,00,00,00,00,00,00,00,00,00,00,14,14,14,00,00
DATA 00,14,14,14,14,14,04,04,04,04,04,04,04,04,04,04,04,04,14,14, 14,14,04,04,04,04,04,04,04,04,04,04,04,04,14,14,14,14,14,00
DATA 00,14,04,04,04,14,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,14,04,04,04,14,00
DATA 00,14,14,14,14,14,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,14,14,14,14,14,00
DATA 00,00,14,14,14,00,00,00,00,00,00,00,00,00,00,00,00,14,14,04, 04,14,14,00,00,00,00,00,00,00,00,00,00,00,00,14,14,14,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14,04,04, 04,04,14,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,14,14,04, 04,14,14,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,12,12, 12,12,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,12,12, 12,12,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,12,12, 12,12,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,12,12, 12,12,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,12,12, 12,12,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,12,12, 12,12,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,12,12, 12,12,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,12,12, 12,12,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,12,12, 12,12,04,04,15,15,15,04,15,04,04,15,04,15,15,15,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,15,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,15,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,12,12, 12,12,04,04,04,15,04,04,15,04,04,15,04,04,15,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04, 04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
END