'****************************
                        '*   Star Ship Fighters     *
                        '*       Version 1.0        *
                        '*      By Alex Ford        *
                        '*    October 17, 2001      *
                        '* !Action, Adventure game! *
                        '****************************

'****************************************************************************
'MY CONSTANTS
CONST true = -1, false = 0, pi = 3.14
delay = 32000
'****************************************************************************
'CHEAT DEFAULTS
shield$ = "N"
nontarget$ = "N"
levelselect$ = "N"
'****************************************************************************
'MY DIMENSTIONS
DIM starship(2500)
DIM enemyship(2500)
DIM laserfire(625)
DIM phaser(635)
DIM blank(2500)
DIM numenemies(500)
DIM enemyrow(500)
DIM enemycol(500)
DIM blanklaser(625)
DIM blankphaser(625)
'****************************************************************************
'MAIN SUBROUTINE INCLUDING GOSUBS
SCREEN 12
RANDOMIZE TIMER
GOSUB drawpics
GOSUB titlescreen
GOSUB main
END
'****************************************************************************
'THIS SUBROUTINE DRAWS THE PICTURES FOR THE GAME
drawpics:
'............................................................................
CLS
RESTORE starship
FOR row = 1 TO 50
FOR col = 1 TO 50
READ a
PSET (col, row), a
NEXT col
NEXT row
GET (1, 1)-(50, 50), starship
'............................................................................
CLS
RESTORE enemyship
FOR row = 1 TO 25
FOR col = 1 TO 25
READ a
PSET (col, row), a
NEXT col
NEXT row
GET (1, 1)-(25, 25), enemyship
'............................................................................
CLS
LINE (5, 1)-(5, 25), 4
GET (4, 1)-(6, 25), laserfire
CLS
GET (4, 1)-(6, 25), blanklaser
'............................................................................
CLS
RESTORE phaser
FOR row = 1 TO 15
FOR col = 1 TO 15
READ a
PSET (col, row), a
NEXT col
NEXT row
GET (1, 1)-(15, 15), phaser
'............................................................................
CLS
GET (1, 1)-(50, 50), blank
'............................................................................
CLS
GET (1, 1)-(15, 15), blankphaser
RETURN
'............................................................................
'****************************************************************************
'THIS SUBROUTINE DESIGNS THE TITLESCREEN
titlescreen:
RETURN
'****************************************************************************
'THIS SUBROUTINE DESIGNS THE MAIN PART OF THE GAME
main:
donemain = false
WHILE NOT donemain
CLS
LOCATE 10, 30
COLOR 2
PRINT "Star Ship Fighter"
COLOR 1
LOCATE 11, 30
PRINT "1) Instructions"
LOCATE 12, 30
PRINT "2) Play Star Ship Fighter"
LOCATE 13, 30
PRINT "3) Cheats"
LOCATE 14, 30
PRINT "4) Exit"
LOCATE 15, 30
COLOR 2
INPUT "What is your choice?: ", mainchc
IF mainchc = 1 THEN
        GOSUB instructions
ELSEIF mainchc = 2 THEN
        GOSUB game
ELSEIF mainchc = 3 THEN
        GOSUB cheatmenu
ELSEIF mainchc = 4 THEN
        donemain = true
ELSE
        SOUND 300, 1
END IF
WEND
RETURN
'****************************************************************************
instructions:
CLS
COLOR 2
PRINT "The object of the game is to shoot the target enemy and try not to"
PRINT "shoot the ones that are not targets"
COLOR 4
PRINT "NOTE: Be careful because even if you shoot the target another non-target"
PRINT "      enemy could be hiding behind it and you loose even if you get the"
PRINT "      right target so don't hit non-target enemies whatever you do."
PRINT
PRINT "NOTE: Be careful not to hold down the arrow keys during the game it makes"
PRINT "      the computer freeze up."
PRINT
PRINT "NOTE: Every five levels you will be told a cheat menu password."
COLOR 3
PRINT
PRINT "Right Arrow = Move right"
PRINT "Left Arrow =  Move left"
PRINT "Space Bar =   Shoot laser"
PRINT "S =           Shoot tri-pods"
PRINT "P =           Pause (Any key unpause)"
PRINT "- =           Decrease speed"
PRINT "+ =           Increase speed"
DO
LOCATE 25, 1
PRINT "Press <ANY> key to continue"
LOOP UNTIL INKEY$ <> ""
RETURN
'****************************************************************************
cheatmenu:
CLS
COLOR 1
LOCATE 2, 1
PRINT "(If you already Activated a cheat typing it again will deactivate it)"
LOCATE 1, 1
COLOR 2
PRINT "Type in a password for a cheat: ";
COLOR 4
INPUT "", cheatpass$
IF cheatpass$ = "metaphasic" OR cheatpass$ = "METAPHASIC" THEN
        IF shield$ = "N" THEN
        CLS
        COLOR 2
        PRINT "Cheat Activated"
        SLEEP 1
        shield$ = "Y"
        ELSE
        CLS
        COLOR 4
        PRINT "Cheat Deactivated"
        SLEEP 1
        shield$ = "N"
        END IF
ELSEIF cheatpass$ = "non-target" OR cheatpass$ = "NON-TARGET" THEN
        IF nontarget$ = "N" THEN
        CLS
        COLOR 2
        PRINT "Cheat Activated"
        SLEEP 1
        nontarget$ = "Y"
        ELSE
        CLS
        COLOR 4
        PRINT "Cheat Deactivated"
        SLEEP 1
        nontarget$ = "N"
        END IF
ELSEIF cheatpass$ = "up one level" OR cheatpass$ = "UP ONE LEVEL" THEN
        IF levelselect$ = "N" THEN
        CLS
        COLOR 2
        PRINT "Cheat Activated"
        SLEEP 1
        levelselect$ = "Y"
        ELSE
        CLS
        COLOR 4
        PRINT "Cheat Deactivated"
        SLEEP 1
        levelselect$ = "N"
        END IF
ELSE
        CLS
        COLOR 4
        PRINT "Invalid Cheat Password"
        SLEEP 1
END IF
RETURN
'****************************************************************************
'THIS SUBROUTINE IS THE MAIN SUBROUTINE FOR THE WHOLE GAME! IT MAKES THEM
'MOVE ON THE SCREEN!
game:
CLS
IF levelselect$ = "Y" THEN
        COLOR 2
        PRINT "Type the level you wish to start at (1-50): ";
        COLOR 4
        INPUT "", numenemies
ELSE
numenemies = 1
END IF
CLS
numenemy = numenemies + 1
shipcol = 300
shiprow = 400
FOR x = 1 TO numenemies
enemycol(x) = INT(RND * 539) + 15
enemyrow(x) = INT(RND * 100) + 15
NEXT x
PUT (shipcol, shiprow), starship, PSET
donegame = false
WHILE NOT donegame
c$ = INKEY$
GOSUB keystruck
GOSUB enemymovement
FOR d = 1 TO delay
NEXT d
p1 = INT(RND * 63) + 1
p2 = INT(RND * 63) + 1
p3 = INT(RND * 63) + 1
PALETTE 15, p1 * 65536 + p2 * 256 + p3
WEND
RETURN
'****************************************************************************
keystruck:
LOCATE 1, 1
COLOR 2
PRINT "Number of enemies on screen: ";
COLOR 4
PRINT numenemies
LOCATE 1, 70
COLOR 2
PRINT "Level: ";
COLOR 4
PRINT numenemy - 1
LOCATE 2, 1
COLOR 2
PRINT "Speed: ";
COLOR 4
PRINT delay; "  ";
COLOR 1
PRINT "(The lower the number, the faster the speed)"
IF shield$ = "Y" THEN
        CIRCLE (shipcol + 25, shiprow + 25), 50, 15
END IF
IF c$ = CHR$(0) + "K" THEN
        IF shipcol > 25 THEN
        CIRCLE (shipcol + 25, shiprow + 25), 50, 0
        PUT (shipcol, shiprow), blank, PSET
        shipcol = shipcol - 25
        PUT (shipcol, shiprow), starship, PSET
IF shield$ = "Y" THEN
        CIRCLE (shipcol + 25, shiprow + 25), 50, 15
END IF
        END IF
ELSEIF c$ = CHR$(0) + "M" THEN
        IF shipcol < 530 THEN
        CIRCLE (shipcol + 25, shiprow + 25), 50, 0
        PUT (shipcol, shiprow), blank, PSET
        shipcol = shipcol + 25
        PUT (shipcol, shiprow), starship, PSET
IF shield$ = "Y" THEN
        CIRCLE (shipcol + 25, shiprow + 25), 50, 15
END IF
        END IF
ELSEIF c$ = CHR$(32) THEN
        FOR laserrow = 385 TO 1 STEP -1
                PUT (shipcol + 20, laserrow), phaser, PSET
                PUT (shipcol + 20, laserrow), blankphaser, PSET
                        IF laserrow > enemyrow(numenemies) - 5 AND laserrow < enemyrow(numenemies) + 26 AND (shipcol + 20) > enemycol(numenemies) - 5 AND (shipcol + 20) < enemycol(numenemies) + 26 THEN
                                PUT (enemycol(numenemies), enemyrow(numenemies)), blank, PSET
                                numenemies = numenemies - 1
                                SOUND 300, 1
                                IF numenemies = 0 THEN
                                        numenemies = numenemy
                                        IF numenemies = 10 THEN
                                                IF shield$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlocked the shield cheat password, it is: ";
                                                COLOR 4
                                                PRINT "METAPHASIC"
                                                PRINT "Do you wish to engage it and continue from here (Y/N): ";
                                                INPUT "", p$
                                                IF p$ = "Y" OR p$ = "y" THEN
                                                        shield$ = "Y"
                                                ELSE
                                                        shield$ = "N"
                                                END IF
                                                END IF
                                        ELSEIF numenemies = 5 THEN
                                                IF nontarget$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlocked the cheat password for hitting nontarget enemies, it is: ";
                                                COLOR 4
                                                PRINT "NON-TARGET"
                                                COLOR 2
                                                PRINT "Do you wish to engage it and continue from here (Y/N): ";
                                                COLOR 4
                                                INPUT "", p$
                                                IF p$ = "Y" OR p$ = "y" THEN
                                                        nontarget$ = "Y"
                                                ELSE
                                                        nontarget$ = "N"
                                                END IF
                                                END IF
                                        ELSEIF numenemies = 15 THEN
                                                IF levelselect$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlocked the level select cheat password, it is: ";
                                                COLOR 4
                                                PRINT "UP ONE LEVEL"
                                                COLOR 2
                                                DO
                                                LOOP UNTIL INKEY$ <> ""
                                                END IF
                                        END IF
                                        numenemy = numenemy + 1
                                        FOR z = 1 TO numenemies
                                                enemycol(z) = INT(RND * 539) + 15
                                                enemyrow(z) = INT(RND * 100) + 15
                                        NEXT z
                                        CLS
                                        COLOR 2
                                        PRINT "Good job! Now you will move on to "; numenemies; " enemies."
                                        LOCATE 23, 1
                                        PRINT "Press <ANY> key to continue"
                                        DO
                                        LOOP UNTIL INKEY$ <> ""
                                        DO
                                        LOOP UNTIL INKEY$ <> ""
                                        CLS
                                        PUT (shipcol, shiprow), starship, PSET
                                END IF
                                laserrow = 1
                        ELSE
                        FOR x = 1 TO numenemies - 1
                        IF laserrow > enemyrow(x) - 5 AND laserrow < enemycol(x) + 26 AND (shipcol + 20) > enemycol(x) - 5 AND (shipcol + 20) < enemycol(x) + 26 THEN
                        IF nontarget$ = "Y" THEN
                        ELSE
                        donegame = true
                        SOUND 300, 1
                        SLEEP 1
                        CLS
                        COLOR 4
                        PRINT "Too bad, you hit an enemy that wasn't your target!"
                        LOCATE 23, 1
                        PRINT "Press <ANY> key to continue"
                        DO
                        LOOP UNTIL INKEY$ <> ""
                        CLS
                        GOTO out1
                        END IF
                        END IF
                        NEXT x
                END IF
        NEXT laserrow
ELSEIF c$ = "s" OR c$ = "S" THEN
        FOR phaserrow = 385 TO 1 STEP -1
                PUT (shipcol + 20, phaserrow), phaser, PSET
                PUT (shipcol + 5, phaserrow + 15), phaser, PSET
                PUT (shipcol + 35, phaserrow + 15), phaser, PSET
                PUT (shipcol + 20, phaserrow), blankphaser, PSET
                PUT (shipcol + 5, phaserrow + 15), blankphaser, PSET
                PUT (shipcol + 35, phaserrow + 15), blankphaser, PSET
                        IF phaserrow > enemyrow(numenemies) - 5 AND phaserrow < enemyrow(numenemies) + 26 AND (shipcol + 20) > enemycol(numenemies) - 5 AND (shipcol + 20) < enemycol(numenemies) + 26 OR (phaserrow + 15) > enemyrow(numenemies) - 5 AND (phaserrow + 15) < enemyrow(numenemies) + 26 AND (shipcol + 35) > enemycol(numenemies) - 5 AND (shipcol + 35) < enemycol(numenemies) + 26 OR (phaserrow + 15) > enemyrow(numenemies) - 5 AND (phaserrow + 15) < enemyrow(numenemies) + 26 AND (shipcol + 5) > enemycol(numenemies) - 5 AND (shipcol + 5) < enemycol(numenemies) + 26 THEN
                                PUT (enemycol(numenemies), enemyrow(numenemies)), blank, PSET
                                numenemies = numenemies - 1
                                SOUND 300, 1
                                IF numenemies = 0 THEN
                                        numenemies = numenemy
                                        IF numenemies = 10 THEN
                                                IF shield$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlock the shield cheat password, it is: ";
                                                COLOR 4
                                                PRINT "METAPHASIC"
                                                COLOR 2
                                                PRINT "Do you wish to engage it and continue from here (Y/N): ";
                                                COLOR 4
                                                INPUT "", p$
                                                IF p$ = "Y" OR p$ = "y" THEN
                                                        shield$ = "Y"
                                                ELSE
                                                        shield$ = "N"
                                                END IF
                                                END IF
                                        ELSEIF numenemies = 5 THEN
                                                IF nontarget$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlocked the cheat password for hitting nontarget enemies, it is: ";
                                                COLOR 4
                                                PRINT "NON-TARGET"
                                                COLOR 2
                                                PRINT "Do you wish to engage it and continue from here (Y/N): ";
                                                COLOR 4
                                                INPUT "", p$
                                                IF p$ = "Y" OR p$ = "y" THEN
                                                        nontarget$ = "Y"
                                                ELSE
                                                        nontarget$ = "N"
                                                END IF
                                                END IF
                                        ELSEIF numenemies = 15 THEN
                                                IF levelselect$ = "N" THEN
                                                CLS
                                                COLOR 2
                                                PRINT "You have unlocked the level select cheat password, it is: ";
                                                COLOR 4
                                                PRINT "UP ONE LEVEL"
                                                COLOR 2
                                                DO
                                                LOOP UNTIL INKEY$ <> ""
                                                END IF
                                        END IF
                                        numenemy = numenemy + 1
                                        FOR z = 1 TO numenemies
                                                enemycol(z) = INT(RND * 539) + 15
                                                enemyrow(z) = INT(RND * 100) + 15
                                        NEXT z
                                        CLS
                                        COLOR 2
                                        PRINT "Good job! Now you will move on to "; numenemies; " enemies."
                                        LOCATE 23, 1
                                        PRINT "Press <ANY> key to continue"
                                        DO
                                        LOOP UNTIL INKEY$ <> ""
                                        DO
                                        LOOP UNTIL INKEY$ <> ""
                                        CLS
                                        PUT (shipcol, shiprow), starship, PSET
                                END IF
                                phaserrow = 1
                        ELSE
                        FOR x = 1 TO numenemies - 1
                        IF phaserrow > enemyrow(x) - 5 AND phaserrow < enemyrow(x) + 26 AND (shipcol + 20) > enemycol(x) - 5 AND (shipcol + 20) < enemycol(x) + 26 OR (phaserrow + 15) > enemyrow(x) - 5 AND (phaserrow + 15) < enemyrow(x) + 26 AND (shipcol + 35) > enemycol(x) - 5 AND (shipcol + 35) < enemycol(x) + 26 OR (phaserrow + 15) > enemyrow(x) - 5 AND (phaserrow + 15) < enemyrow(x) + 26 AND (shipcol + 5) > enemycol(x) - 5 AND (shipcol + 5) < enemycol(x) + 26 THEN
                        IF nontarget$ = "Y" THEN
                        ELSE
                        donegame = true
                        SOUND 300, 1
                        SLEEP 1
                        CLS
                        COLOR 4
                        PRINT "Too bad, you hit an enemy that wasn't your target!"
                        LOCATE 23, 1
                        PRINT "Press <ANY> key to continue"
                        DO
                        LOOP UNTIL INKEY$ <> ""
                        CLS
                        GOTO out2
                        END IF
                        END IF
                        NEXT x
                        END IF
        NEXT phaserrow
ELSEIF c$ = "p" OR c$ = "P" THEN
        DO
        LOOP UNTIL INKEY$ <> ""
ELSEIF c$ = "=" OR c$ = "+" THEN
        delay = delay + 500
ELSEIF c$ = "-" OR c$ = "_" THEN
        delay = delay - 500
ELSEIF c$ = CHR$(27) THEN
        donegame = true
END IF
out1:
out2:
RETURN
'****************************************************************************
enemymovement:
FOR x = 1 TO numenemies
        mover = INT(RND * 2) + 1
        IF mover = 1 THEN
                IF enemycol(x) < 540 THEN
                        PUT (enemycol(x), enemyrow(x)), blank, PSET
                        enemycol(x) = enemycol(x) + 15
                        PUT (enemycol(x), enemyrow(x)), enemyship, PSET
                END IF
                PUT (enemycol(numenemies), enemyrow(numenemies)), enemyship, PRESET
        ELSEIF mover = 2 THEN
                IF enemycol(x) > 15 THEN
                        PUT (enemycol(x), enemyrow(x)), blank, PSET
                        enemycol(x) = enemycol(x) - 15
                        PUT (enemycol(x), enemyrow(x)), enemyship, PSET
                END IF
                PUT (enemycol(numenemies), enemyrow(numenemies)), enemyship, PRESET
        END IF
        f = INT(RND * 20) + 1
        IF f = 1 THEN
        FOR enemyfrow = enemyrow(x) + 50 TO 450
                FOR d = 1 TO 100
                NEXT d
                PUT (enemycol(x) + 10, enemyfrow), phaser, PSET
                PUT (enemycol(x) + 10, enemyfrow), blankphaser, PSET
                        IF enemyfrow > shiprow AND enemyfrow < shiprow + 50 AND (enemycol(x) + 15) > shipcol AND (enemycol(x) + 15) < shipcol + 50 THEN
                                IF shield$ = "Y" THEN
                                PUT (shipcol, shiprow), starship, PSET
                                CIRCLE (shipcol + 25, shiprow + 25), 50, 15
                                ELSE
                                SOUND 300, 1
                                FOR radius = 1 TO 45
                                colr = INT(RND * 2) + 1
                                IF colr = 1 THEN
                                        clr = 4
                                ELSEIF colr = 2 THEN
                                        clr = 14
                                END IF
                                CIRCLE (shipcol + 25, shiprow + 25), radius, clr
                                FOR d = 1 TO delay * .25
                                NEXT d
                                NEXT radius
                                FOR radius = 45 TO 1 STEP -1
                                CIRCLE (shipcol + 25, shiprow + 25), radius, 0
                                FOR d = 1 TO delay * .25
                                NEXT d
                                NEXT radius
                                SOUND 300, 1
                                SOUND 300, 1
                                SOUND 300, 1
                                donegame = true
                                GOTO out1
                                END IF
                        END IF
        NEXT enemyfrow
        END IF
NEXT x
RETURN
'****************************************************************************
'THIS SUBROUTINE HAS ALL OF MY DATA FOR MY SHIPS AND PHASER FIRE
'............................................................................
starship:
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,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,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,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,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,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,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,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,0,0,0,0,4,0,0,0,0,2,0,0,0,0,4,0,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,0,0,0,0,2,0,0,0,0,7,0,0,0,0,2,0,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,0,0,0,0,2,0,0,0,7,7,7,0,0,0,2,0,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,0,0,0,1,1,1,0,7,7,7,7,7,0,1,1,1,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,0,0,0,1,1,1,7,7,7,7,7,7,7,1,1,1,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,0,0,0,1,1,7,7,7,7,7,7,7,7,7,1,1,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,0,0,0,1,7,7,7,7,7,7,7,7,7,7,7,1,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,0,0,0,7,7,7,0,7,7,7,7,7,0,7,7,7,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,0,0,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,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,0,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,0,7,7,7,7,7,7,7,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,7,7,7,7,7,7,7,0,0,0,0,0,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,0,0,0,0,0,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,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,7,7,7,7,7,7,7,0,0,0,0,0,0,7,7,7,7,7,7,7,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,1,1,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,0,7,7,7,7,7,7,7,0,0,0,0,1,1,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,0,7,7,7,7,7,7,7,0,0,0,0,2,2,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,0,7,7,7,7,7,7,7,0,0,0,0,2,2,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,0,7,7,7,7,7,7,7,7,0,0,0,2,2,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,7,7,7,7,7,7,7,7,0,0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,0,1,1,1,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,4,4,1,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,1,4,4,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,4,4,7,7,7,7,7,7,0,0,7,7,7,7,7,0,7,7,7,7,7,7,0,0,7,7,7,7,7,7,4,4,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,4,7,7,7,7,7,7,0,7,0,7,7,7,7,0,7,0,7,7,7,7,7,0,7,0,7,7,7,7,7,7,4,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,7,7,0,7,0,7,7,7,7,0,0,0,0,0,7,7,7,7,7,0,7,0,7,7,7,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,7,0,7,0,7,7,7,7,0,0,7,7,7,0,0,7,7,7,7,7,0,7,0,7,7,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,1,7,7,7,7,0,7,0,7,7,7,7,0,0,7,7,7,7,7,0,0,7,7,7,7,7,0,7,0,7,7,7,7,1,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,7,7,7,7,0,7,0,7,7,7,7,0,0,7,7,7,7,7,7,7,0,0,7,7,7,7,7,0,7,0,7,7,7,7,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,7,7,7,7,0,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,7,0,7,7,7,7,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,7,7,7,7,0,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,7,0,7,7,7,7,0,0,0,0
DATA 0,0,0,0,0,0,0,7,7,7,7,0,7,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,7,0,7,7,7,7,0,0,0
DATA 0,0,0,0,0,0,7,7,7,7,7,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0,0,7,7,7,7,7,0,0
DATA 0,0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,0
DATA 0,0,0,0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0,0,7,0,0,0,0,0,0,7,0,0,0,0,7,0,0,0,0,0,0,7,0,0,0,0,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,0,0,7,7,7,7,7,7,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,0,0,0,0,6,6,6,6,6,6,6,6,0,0,0,0,6,6,6,6,6,6,6,6,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,6,14,14,14,14,14,14,14,14,6,0,0,6,14,14,14,14,14,14,14,14,6,0,0,6,6,14,14,14,14,14,14,14,6,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,0,0,0,0,0

'............................................................................
enemyship:
DATA 0,3,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,3,0
DATA 0,0,3,0,0,1,1,2,2,2,2,2,2,2,2,2,2,2,1,1,0,0,3,0,0
DATA 0,0,3,0,1,8,8,1,2,2,2,2,2,2,2,2,2,1,8,8,1,0,3,0,0
DATA 0,3,0,1,8,8,8,8,1,2,2,2,2,2,2,2,1,8,8,8,8,1,0,3,0
DATA 0,0,1,8,8,8,8,8,8,1,2,2,2,2,2,1,8,8,8,8,8,8,1,0,0
DATA 0,1,8,8,8,8,8,8,8,8,1,2,2,2,1,8,8,8,8,8,8,8,8,1,0
DATA 1,1,8,8,8,8,8,8,8,8,8,1,2,1,8,8,8,8,8,8,8,8,8,1,1
DATA 1,4,1,8,8,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,8,8,1,14,1
DATA 1,4,4,1,8,8,8,8,8,8,8,1,2,1,8,8,8,8,8,8,8,1,14,14,1
DATA 1,4,4,4,1,8,8,8,8,8,1,2,2,2,1,8,8,8,8,8,1,14,14,14,1
DATA 1,4,4,4,4,1,8,8,8,1,2,2,4,2,2,1,8,8,8,1,14,14,14,14,1
DATA 1,4,4,4,4,4,1,8,1,2,2,4,4,4,2,2,1,8,1,14,14,14,14,14,1
DATA 1,4,4,4,4,4,4,1,2,2,4,4,3,4,4,2,2,1,14,14,14,14,14,14,1
DATA 1,4,4,4,4,4,1,8,1,2,2,4,4,4,2,2,1,8,1,14,14,14,14,14,1
DATA 1,4,4,4,4,1,8,8,8,1,2,2,4,2,2,1,8,8,8,1,14,14,14,14,1
DATA 1,4,4,4,1,8,8,8,8,8,1,2,2,2,1,8,8,8,8,8,1,14,14,14,1
DATA 1,4,4,1,8,8,8,8,8,8,8,1,2,1,8,8,8,8,8,8,8,1,14,14,1
DATA 1,4,1,8,8,8,8,8,8,8,8,8,1,8,8,8,8,8,8,8,8,8,1,14,1
DATA 1,1,8,8,8,8,8,8,8,8,8,1,3,1,8,8,8,8,8,8,8,8,8,1,1
DATA 0,1,8,8,8,8,8,8,8,8,1,3,3,3,1,8,8,8,8,8,8,8,8,1,0
DATA 0,0,1,8,8,8,8,8,8,1,3,3,3,3,3,1,8,8,8,8,8,8,1,0,0
DATA 0,3,0,1,8,8,8,8,1,3,3,3,3,3,3,3,1,8,8,8,8,1,0,3,0
DATA 0,0,3,0,1,8,8,1,3,3,3,3,3,3,3,3,3,1,8,8,1,0,3,0,0
DATA 0,0,3,0,0,1,1,3,3,3,3,3,3,3,3,3,3,3,1,1,0,0,3,0,0
DATA 0,3,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,3,0
'............................................................................
phaser:
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0
DATA 0,0,0,0,0,0,15,15,15,0,0,0,0,0,0