Author Topic: I wanted to do something with strings... so I did (Read 2166 times)

Jaze · « **on:** March 14, 2021, 09:11:38 pm »

Code: QB64: [Select]

_title "Galaxy Grid"
RANDOMIZE TIMER
 
TYPE coordinate
    x AS INTEGER
    y AS INTEGER
    f AS INTEGER
END TYPE
 
TYPE typeOfDamage
    ship AS INTEGER
    medical AS INTEGER
END TYPE
 
TYPE StardateLog
    ships AS INTEGER ' a.k.a. lives
    score AS INTEGER
    currentDamage AS typeOfDamage '% -- 100 med is all crew dead or injured, 100 ship is all ship damaged
    totalDamage AS typeOfDamage ' for stats at end of game
    currentSurvivors AS INTEGER ' survivors on board, max is 20
    totalSurvivorsSaved AS INTEGER ' all survivors rescued and dropped off at a colony
    currentMedSupply AS INTEGER ' number of med kits. they are used to heal crew injured
    totalMedSupply AS INTEGER ' for end stats -- total - current is used
    enemiesDestroyed AS INTEGER
    morale AS INTEGER
    totalMorale AS INTEGER
    moves AS INTEGER
END TYPE
 
TYPE gridChar
    code AS INTEGER 'ASCII code
    clr AS INTEGER ' color
END TYPE
 
CONST TRUE = 1
CONST FALSE = 0
CONST selectionBeep = "L20O3C"
CONST errorBeep = "L10O1CO0GEC"
CONST lowBeep = "L60O2B"
CONST movingShipBeep = "L16O0F"
CONST movingShipDelay = 0.05
CONST movingShipMod = 10
CONST hail = "L20O3AAL30O3F"
CONST hailDelay = 1.5 'was 1
CONST returnBeep = "L10O0GA"
CONST beamingBeep = "L60O2CACACACACACAL15O1CCL7O3C"
CONST dockingBeep = "L60O1FCFC"
CONST dockingDelay = 0.15
CONST runOverText = "L32O1G"
CONST printingBeep = "L30O1F"
CONST printingDelay = 0.05
CONST correctBeep = "L8O2DDL32O3C"
CONST shotDelay = 0.03
CONST fireBeep = "L64O3CEGAA"
CONST shipHitBeep = "L64O2EEEEEL16CCL64O1GABABN0N0BAGGAN0N0CEDE"
CONST successBeep = "L9O2DL15DL9DL4F"
CONST medicalRepairBeep = "L32O4CP4CP4CP4CP4CCC"
CONST shipRepairBeep = "L32O2GCGCGCGCGC"
CONST t$ = "�" '  changing this will change all of the block graphics to the constant used
 
' share everything won't have worry about passing vairables
DIM SHARED grid(1 TO 80, 1 TO 45, 1 TO 3) AS INTEGER
DIM SHARED information$(1 TO 10)
DIM SHARED shipLog AS StardateLog
DIM SHARED Espializer7 AS coordinate
DIM SHARED quizPassed
quizPassed = FALSE
DIM SHARED tabToggle
tabToggle = 1
DIM SHARED shipsInSarienFleet
DIM SHARED fleetJumpsWhenThisReaches0
DIM SHARED gameInProgress
gameInProgress = 0
DIM SHARED beenToMenu
beenToMenu = 0
DIM SHARED blackHole AS gridChar
blackHole.code = 111
blackHole.clr = 8
DIM SHARED wormHole AS gridChar
wormHole.code = 145
wormHole.clr = 5
DIM SHARED otherPlanet AS gridChar
otherPlanet.code = 254
otherPlanet.clr = 13
DIM SHARED wifranColony AS gridChar
wifranColony.code = 223
wifranColony.clr = 9
DIM SHARED disabledShip AS gridChar
disabledShip.code = 15
disabledShip.clr = 12
DIM SHARED Top AS gridChar
Top.code = 244
Top.clr = 15
DIM SHARED Bottom AS gridChar
Bottom.code = 245
Bottom.clr = 15
DIM SHARED informant AS gridChar
informant.code = 213
informant.clr = 6
DIM SHARED esplzr AS gridChar
esplzr.code = 234
esplzr.clr = 11
DIM SHARED sarienFleet AS gridChar
sarienFleet.code = 176
sarienFleet.clr = 2
DIM SHARED sarienShip AS gridChar
sarienShip.code = 224
sarienShip.clr = 2
 
 
ON ERROR GOTO whatHappened
GOTO Beginning
whatHappened:
CALL ClearStatus
COLOR 15, 0
LOCATE 46, 1
PRINT "ERROR. Hit any key to end and begin to code my way out of it."
PRINT ERR, _ERRORLINE
pause$ = INPUT$(1)
END
 
Beginning:
_FULLSCREEN _STRETCH
WIDTH 80, 50
CLS
CALL MainMenu
 
SUB Dedication
    COLOR 10, 1
    CLS
    PRINT
    PRINT
    PRINT LongCenter$("I was introduced to computers by my father at a young age. He showed me a Texas Instruments device that was only a little bit old around 1982. I was still young enough to sit in his lap as we played " + CHR$(34) + "Hunt the Wumpus." + CHR$(34) + " He showed me a program his father had written called Colors. As it was the 80s, the program was saved on a casette tape. All it did was leave a character block trail on the screen of the current color. Not until I was older was I was able to understand some of the code.")
    PRINT
    PRINT LongCenter$("When the Apple IIe was available as state of the art tech my father introduced me to computer code. I remember being facinated that CHR$(27) referred to the Escape key. One of the best things about the IIe was a new video game called King's Quest: The Quest for the Crown. The game was loaded by putting a 5.25 inch disk into the machine. Whoa! Major new tech. Lol. With the success of King's Quest, Sierra published a sequel and then a Space Quest.")
    PRINT
    PRINT LongCenter$("As time went by Sierra published Quest sequels that took advantage of new tech. Through those series, I got to watch the evolution of mouse input, more than 16 colors, sound beyond the PC speaker and eventually VGA grahpics. In spite of the HD graphics and sound today, I still play those old games sometimes (gog.com has them). Because I was born in '77 I'm still in awe of not just the current machines but moreover the evolution of the computer tech as a whole.")
    PRINT
    a$ = "Thanks dad for such an incredicle view."
    LOCATE , GetCenter(a$)
    COLOR 13, 1
    PRINT a$
    PRINT
    PRINT
    a$ = "Push any key to continue."
    LOCATE , 1
    COLOR 14, 1
    PRINT a$
    pause$ = INPUT$(1)
    CALL MainMenu
END SUB
 
SUB BattleFleet
    CALL Battle(shipsInSarienFleet)
END SUB
 
SUB SaveGame
    COLOR 14, 10
    CLS
    DIM fileName$(1 TO 5)
    FOR cnt = 1 TO 5
        fileName$(cnt) = "GGSave"
        fileName$(cnt) = fileName$(cnt) + LTRIM$(STR$(cnt))
        fileName$(cnt) = fileName$(cnt) + ".txt"
    NEXT cnt
    COLOR 12, 9
    CLS
    '                                1         2         3         4         5         6         7         8
    '                       12345678901234567890123456789012345678901234567890123456789012345678901234567890
    LOCATE 9, 1
    PRINT "  Slot     Lives     Score     Moves     Morale     Damage     Crew Injured"
    FOR cnt = 1 TO 5
        LOCATE 11 + (cnt * 2), 1
        COLOR 14, 9
        PRINT "    " + LTRIM$(STR$(cnt))
        COLOR 7, 9
        IF _FILEEXISTS(fileName$(cnt)) = 0 THEN
            LOCATE 11 + (cnt * 2), 20
            PRINT "No information"
        ELSE
            OPEN fileName$(cnt) FOR INPUT AS #1
            INPUT #1, espX$
            INPUT #1, espY$
            INPUT #1, shipMoves$
            INPUT #1, shipStat$ 'captainsLog.ships
            INPUT #1, scoreStat$ 'captainsLog.score
            INPUT #1, moraleStat$ 'captainsLog.morale
            INPUT #1, damStat$ 'captainsLog.currentDamage.ship
            INPUT #1, injStat$ 'captainsLog.currentDamage.medical
            CLOSE #1
            LOCATE 11 + (cnt * 2), 13
            PRINT shipStat$
            LOCATE 11 + (cnt * 2), 22
            PRINT scoreStat$
            LOCATE 11 + (cnt * 2), 32
            PRINT shipMoves$
            LOCATE 11 + (cnt * 2), 42
            PRINT moraleStat$
            LOCATE 11 + (cnt * 2), 53
            PRINT USING "##%"; VAL(damStat$)
            LOCATE 11 + (cnt * 2), 65
            PRINT USING "##%"; VAL(injStat$)
        END IF
    NEXT cnt
 
    a$ = "Which save slot? "
    COLOR 10, 9
    LOCATE 24, GetCenter(a$)
    PRINT a$;
    DO
        choice$ = INPUT$(1)
        IF VAL(choice$) >= 1 AND VAL(choice$) <= 5 THEN PRINT choice$
    LOOP UNTIL choice$ = "1" OR choice$ = "2" OR choice$ = "3" OR choice$ = "4" OR choice$ = "5"
    PLAY selectionBeep$
    useFile$ = "GGSave" + choice$ + ".txt"
    OPEN useFile$ FOR OUTPUT AS #1
    PRINT #1, STR$(Espializer7.x)
    PRINT #1, STR$(Espializer7.y)
    PRINT #1, STR$(shipLog.moves)
    PRINT #1, STR$(shipLog.ships)
    PRINT #1, STR$(shipLog.score)
    PRINT #1, STR$(shipLog.morale)
    PRINT #1, STR$(shipLog.currentDamage.ship)
    PRINT #1, STR$(shipLog.currentDamage.medical)
    PRINT #1, STR$(shipLog.totalDamage.ship)
    PRINT #1, STR$(shipLog.totalDamage.medical)
    PRINT #1, STR$(shipLog.currentSurvivors)
    PRINT #1, STR$(shipLog.totalSurvivorsSaved)
    PRINT #1, STR$(shipLog.currentMedSupply)
    PRINT #1, STR$(shipLog.totalMedSupply)
    PRINT #1, STR$(shipLog.enemiesDestroyed)
 
    'ship log done
    PRINT #1, STR$(quizPassed)
    PRINT #1, STR$(shipsInSarienFleet)
    PRINT #1, STR$(fleetJumpsWhenThisReaches0)
    PRINT #1, STR$(tabToggle)
    PRINT #1, STR$(beenToMenu)
    PRINT #1, STR$(gameInProgress)
    ' and now the grid
    FOR x = 1 TO 80
        FOR y = 1 TO 45
            FOR f = 1 TO 3
                PRINT #1, STR$(grid(x, y, f))
            NEXT f
        NEXT y
    NEXT x
    CLOSE #1
    _DELAY (1)
    a$ = "You game has been saved."
    LOCATE 27, GetCenter(a$)
    PRINT a$
    _DELAY (1.5)
    CALL MainMenu
END SUB
 
SUB LoadSavedGame
    COLOR 14, 10
    CLS
    DIM fileName$(1 TO 5)
    FOR cnt = 1 TO 5
        fileName$(cnt) = "GGSave" + LTRIM$(STR$(cnt)) + ".txt"
    NEXT cnt
    COLOR 12, 9
    CLS
    FOR cnt = 1 TO 5
        LOCATE 9, 1
        PRINT "  Slot     Lives     Score     Moves     Morale     Damage     Crew Injured"
        LOCATE 11 + (cnt * 2), 1
        COLOR 14, 9
        PRINT "    " + LTRIM$(STR$(cnt))
        COLOR 7, 9
        IF _FILEEXISTS(fileName$(cnt)) = 0 THEN
            LOCATE 11 + (cnt * 2), 20
            PRINT "No information"
        ELSE
            OPEN fileName$(cnt) FOR INPUT AS #1
            LINE INPUT #1, espX$
            LINE INPUT #1, espY$
            LINE INPUT #1, shipMoves$
            LINE INPUT #1, shipStat$
            LINE INPUT #1, scoreStat$
            LINE INPUT #1, moraleStat$
            LINE INPUT #1, damStat$
            LINE INPUT #1, injStat$
            CLOSE #1
            LOCATE 11 + (cnt * 2), 13
            PRINT shipStat$
            LOCATE 11 + (cnt * 2), 22
            PRINT scoreStat$
            LOCATE 11 + (cnt * 2), 32
            PRINT shipMoves$
            LOCATE 11 + (cnt * 2), 42
            PRINT moraleStat$
            LOCATE 11 + (cnt * 2), 53
            PRINT USING "##%"; VAL(damStat$)
            LOCATE 11 + (cnt * 2), 65
            PRINT USING "##%"; VAL(injStat$)
        END IF
    NEXT cnt
 
    a$ = "Which save slot? (ESC to cancel) "
    COLOR 10, 9
    LOCATE 24, GetCenter(a$)
    PRINT a$;
    DO
        choice$ = INPUT$(1)
        LOCATE 24, 57
        IF VAL(choice$) >= 1 AND VAL(coice$) <= 5 THEN PRINT choice$
        IF choice$ = CHR$(27) THEN
            'gameInProgress = FALSE
            CALL MainMenu
        END IF
    LOOP UNTIL choice$ = "1" OR choice$ = "2" OR choice$ = "3" OR choice$ = "4" OR choice$ = "5"
    PLAY selectionBeep$
    useFile$ = "GGSave" + choice$ + ".txt"
    IF _FILEEXISTS(useFile$) = 0 THEN
        CLS
        LOCATE 20, GetCenter("File not found.")
        PRINT "FILE NOT FOUND"
        PLAY "MB" + errorBeep
        _DELAY (2)
        gameInProgress = FALSE
        CALL MainMenu
    END IF
    OPEN useFile$ FOR INPUT AS #1
    LINE INPUT #1, esplzrX$
    Espializer7.x = VAL(esplzrX$)
    LINE INPUT #1, espCoord$
    Espializer7.y = VAL(espCoord$)
    LINE INPUT #1, slMv$
    shipLog.moves = VAL(slMv$)
    LINE INPUT #1, slShips$
    shipLog.ships = VAL(slShips$)
    LINE INPUT #1, slScore$
    shipLog.score = VAL(slScore$)
    LINE INPUT #1, slMorale$
    shipLog.morale = VAL(slMorale$)
    LINE INPUT #1, slCDs$
    shipLog.currentDamage.ship = VAL(slCDs$)
    LINE INPUT #1, slCDm$
    shipLog.currentDamage.medical = VAL(slCDm$)
    LINE INPUT #1, slTDs$
    shipLog.totalDamage.ship = VAL(slTDs$)
    LINE INPUT #1, slTDm$
    shipLog.totalDamage.medical = VAL(slTDm$)
    LINE INPUT #1, slCS$
    shipLog.currentSurvivors = VAL(slCS$)
    LINE INPUT #1, slTS$
    shipLog.totalSurvivorsSaved = VAL(slTS$)
    LINE INPUT #1, slCMS$
    shipLog.currentMedSupply = VAL(slCMS$)
    LINE INPUT #1, slTM$
    shipLog.totalMedSupply = VAL(slTM$)
    LINE INPUT #1, slED$
    shipLog.enemiesDestroyed = VAL(slED$)
 
    'ship log done
    LINE INPUT #1, qp$
    quizPassed = VAL(qp$)
    LINE INPUT #1, sif$
    shipsInSarienFleet = VAL(sif$)
    LINE INPUT #1, fj$
    fleetJumpsWhenThisReaches0 = VAL(fj$)
    LINE INPUT #1, tt$
    tabToggle = VAL(tt$)
    LINE INPUT #1, btm$
    beenToMenu = VAL(btm$)
    LINE INPUT #1, gip$
    gameInProgress = VAL(gip$)
    ' and now the grid
    FOR x = 1 TO 80
        FOR y = 1 TO 45
            FOR f = 1 TO 3
                LINE INPUT #1, char$
                grid(x, y, f) = VAL(char$)
            NEXT f
        NEXT y
    NEXT x
    CLOSE #1 'hope i didn't forget anything
    _DELAY (1)
    COLOR 15, 0
    CLS
    CALL PlayGalaxyGrid("Y")
END SUB
 
SUB Status
    'Stats
    SELECT CASE tabToggle
        CASE 1
            GOTO gameInfo
        CASE 2
            GOTO mapKey
        CASE 3
            GOTO commandList
    END SELECT
 
    gameInfo:
 
    COLOR 15, 0
    LOCATE 46, 1
    PRINT "Espializer 7 Coordinates (";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(Espializer7.x));
    COLOR 15, 0
    PRINT ", ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(Espializer7.y));
    COLOR 15, 0
    PRINT ")"
    COLOR 15, 0
    LOCATE 46, 36
    PRINT "Moves: ";
    COLOR esplzr.clr, 0
    PRINT USING "#,###"; shipLog.moves
    LOCATE 46, 66
    PRINT "Morale: ";
    COLOR esplzr.clr
    PRINT LTRIM$(STR$(shipLog.morale))
    COLOR 15, 0
    LOCATE 47, 1
    COLOR 15, 0
    PRINT "Systems Damaged: ";
    COLOR 12, 0
    PRINT LTRIM$(STR$(shipLog.currentDamage.ship)); "%"
    COLOR 15.0
    LOCATE 47, 22
    PRINT "Medical Supplies: ";
    COLOR otherPlanet.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentMedSupply))
    LOCATE 47, 67
    COLOR 15, 0
    PRINT "Lives: ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(shipLog.ships))
    COLOR 15, 0
    LOCATE 48, 1
    PRINT "   Crew Injured: ";
    COLOR 12, 0
    PRINT LTRIM$(STR$(shipLog.currentDamage.medical)); "%";
    LOCATE 48, 22
    COLOR 15, 0
    PRINT "Survivors Aboard: ";
    COLOR wifranColony.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentSurvivors))
    COLOR 15, 0
    LOCATE 48, 67
    PRINT "Score: ";
    COLOR esplzr.clr
    PRINT LTRIM$(STR$(shipLog.score))
    LOCATE 48, 43
    COLOR 15, 0
    LOCATE 48, 43
    COLOR 14, 0
    PRINT "[TAB]";
    COLOR 15, 0
    PRINT " = map key"
    IF quizPassed = TRUE THEN
        Num = fleetJumpsWhenThisReaches0
        LOCATE 46, 50
        COLOR 15, 0
        PRINT "Fleet jump: ";
        COLOR 10, 0
        PRINT LTRIM$(STR$(Num))
        COLOR 15, 0
        LOCATE 47, 43
        PRINT "Ships in Fleet: ";
        COLOR 10, 0
        PRINT LTRIM$(STR$(shipsInSarienFleet))
    END IF
    GOTO endStatus
 
    mapKey:
    COLOR esplzr.clr, 0
    LOCATE 46, 1
    PRINT CHR$(esplzr.code); " = Espializer 7"
    COLOR wifranColony.clr, 0
    LOCATE 47, 1
    PRINT CHR$(wifranColony.code); " = Drop Off Survivors"
    COLOR otherPlanet.clr, 0
    LOCATE 48, 1
    PRINT CHR$(otherPlanet.code); " = Get Medical Kits"
    COLOR Top.clr, 0
    LOCATE 46, 26
    PRINT CHR$(Top.code); " =  Space"
    LOCATE 47, 26
    PRINT CHR$(Bottom.code); " = Station"
    COLOR informant.clr, 0
    LOCATE 48, 26
    PRINT CHR$(informant.code); " = Informant"
    m$ = CHR$(sarienFleet.code)
    COLOR sarienFleet.clr, 0
    LOCATE 46, 41
    PRINT m$; m$
    LOCATE 47, 41
    PRINT m$; m$; " = Sarien Fleet"
    LOCATE 48, 42
    COLOR sarienShip.clr, 0
    PRINT CHR$(sarienShip.code); " = Sarien Cruiser"
    LOCATE 47, 62
    COLOR disabledShip.clr, 0
    PRINT CHR$(disabledShip.code); " = Disabled Ship"
    LOCATE 48, 62
    COLOR 14, 0
    PRINT "[TAB]";
    COLOR 15, 0
    PRINT " = Commands"
    LOCATE 46, 62
    COLOR wormHole.clr, 0
    PRINT "LETTER = Wormhole"
    GOTO endStatus
 
    commandList:
    CALL ClearStatus
    LOCATE 46, 1
    COLOR 15, 0
    PRINT "Use the arrow keys to move the ";
    COLOR esplzr.clr, 0
    PRINT "Espializer 7    ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 15, 0
    PRINT " = use information  "
    LOCATE 47, 10
    COLOR 14, 0
    PRINT "M";
    COLOR 15, 0
    PRINT " = Main ";
    COLOR 14, 0
    PRINT "m";
    COLOR 15, 0
    PRINT "enu                         ";
    COLOR 14, 0
    PRINT "S";
    COLOR 15, 0
    PRINT " = ";
    COLOR 14, 0
    PRINT "s";
    COLOR 15, 0
    PRINT "ave the game  ";
    LOCATE 48, 10
    COLOR 14, 0
    PRINT "[TAB]";
    COLOR 15, 0
    PRINT " = toggle display readout.       ";
    COLOR 14, 0
    PRINT "[ESC]";
    COLOR 15, 0
    PRINT " = end without save"
 
    endStatus:
END SUB
 
SUB MultipleChoice
    'dimension the wrong answers
    DIM incorrectStatements$(1 TO 30)
    incorrectStatements$(1) = "The Sariens are using their free time for stopping TV broadcasts.          "
    incorrectStatements$(2) = "The Sariens are the good guys.                                             "
    incorrectStatements$(3) = "The Sariens use modifided math to create wormholes.                        "
    incorrectStatements$(4) = "The Sariens can inflict telepathic damage and defeat you from afar.        "
    incorrectStatements$(5) = "It is possible for the Sariens to jump when you hit [J].                   "
    incorrectStatements$(6) = "Wifran colonies (blue) are where to start buliding your army of soldiers.  "
    incorrectStatements$(7) = "It is impossible to defeat the Sarien Fleet. Win the game by other means.  "
    incorrectStatements$(8) = "It is possible for the Sariens to rearrange time to move thier Fleet.      "
    incorrectStatements$(9) = "The Sarien fleet can suck you into the wake created by jumping.            "
    incorrectStatements$(10) = "There are cheat keys which will help you out if you chose to use them.    "
    incorrectStatements$(11) = "Push [SPACEBAR] to leave the battle with the Fleet.                       "
    incorrectStatements$(12) = "You can use the arrow keys or WASD to move across the Galaxy Grid.        "
    incorrectStatements$(13) = "The Sariens have a total of 35 ships on the grid.                          "
    incorrectStatements$(14) = "The Quasi-Molecular Jumping Device lets Sariens travel through time.       "
    incorrectStatements$(15) = "The Sariens can only use their Jumping Device when you're nearby.          "
    incorrectStatements$(16) = "The QMJD is a Questionable Morally Judged Decision.                        "
    incorrectStatements$(17) = "The QMJD is a Quasi-Molecular Jewel-crafting Device.                       "
    incorrectStatements$(18) = "The QMJD is a tool the Sariens are using to destroy the known universe.    "
    incorrectStatements$(19) = "The Quasi-Molecular Jumping Device does not really do anything.            "
    incorrectStatements$(20) = "The Sariens stole the graphics in this game from Space Quest I by Sierra.  "
    incorrectStatements$(21) = "Mork and Mindy is the Sariens' favorite TV program.                        "
    incorrectStatements$(22) = "The QMJD used by the Sariens is an upgrade of the Star Generator.          "
    incorrectStatements$(23) = "This is the correct answer.                                                "
    incorrectStatements$(24) = "The Sarien fleet has infinite battleships. You can never defeat them.      "
    incorrectStatements$(25) = "2 + 2 = 4. That's true so this must be the correct answer.                 "
    incorrectStatements$(26) = "Watch out for black holes.                                                 "
    incorrectStatements$(27) = "The Sariens look like squids with fingers.                                 "
    incorrectStatements$(28) = "The QMJD changes time so that it goes sideways instead of forward or back. "
    incorrectStatements$(29) = "This is not the correct choice.                                            "
    incorrectStatements$(30) = "No good deeds go unpunished so you might as well join the Sariens.         "
 
    ' dimension correct statements
    DIM correctStatements$(1 TO 10)
    correctStatements$(1) = "Repaing your ship and healing you crew at the same time is less effective.  "
    correctStatements$(2) = "The QMJD is a Quasi-Molecular Jumping device.                               "
    correctStatements$(3) = "The QMJD allows the Sarien fleet to jump over large parts of space.         "
    correctStatements$(4) = "Don't attempt to drop off survivors unless you have some aboard.            "
    correctStatements$(5) = "The Sariens stole the Star Generator from Space Quest I in the 80s.         "
    correctStatements$(6) = "The QMJD creates a temporary wormhole allowing the Sarien fleet to move.    "
    correctStatements$(7) = "By completing this quiz, a new statistic will appear in the status area.    "
    correctStatements$(8) = "Defeating the Sarien Fleet completes the game. Defeat lone ships for points."
    correctStatements$(9) = "The more Sarien ships you destroy, the easier it is to destroy the next one."
    correctStatements$(10) = "The Quasi-Molecular Jumping Device creates artificial wormholes.            "
 
    ' start the quiz with instructions and 0 correct
    quizPassed = FALSE
    numberCorrectlyAnswered = 0
    COLOR 11, 5
    CLS
    a$ = "In each set of four statements you must"
    b$ = "select the one mentioned by the informants."
    COLOR 15, 5
    LOCATE 18, GetCenter(a$)
    PRINT a$
    LOCATE 19, GetCenter(b$)
    PRINT "select the one ";
    COLOR 14, 5
    PRINT "mentioned by the informants";
    COLOR 15, 5
    PRINT "."
    LOCATE 26, 1
 
    ' dimnension slots for the wrong and right answers and randomly fill them
    DIM answerSlots$(1 TO 4)
    FOR entireQuiz = 1 TO 10
        COLOR 11, 5
        CLS
        a$ = "In each set of four statements you must"
        b$ = "select the one mentioned by the informants."
        COLOR 15, 5
        LOCATE 18, GetCenter(a$)
        PRINT a$
        LOCATE 19, GetCenter(b$)
        PRINT "select the one ";
        COLOR 14, 5
        PRINT "mentioned by the informants";
        COLOR 15, 5
        PRINT "."
        LOCATE 22, GetCenter("question x of 10")
        COLOR 14, 5
        PRINT USING "Question ## of 10"; entireQuiz
        LOCATE 26, 1
 
        ' put the correct answer in a random slot
        fillThisSlot = INT(RND * 4) + 1
        differentCorrectAnswer:
        rightAnswer = INT(RND * 10) + 1
        IF correctStatements$(rightAnswer) = "" THEN GOTO differentCorrectAnswer
        answerSlots$(fillThisSlot) = correctStatements$(rightAnswer)
        correctStatements$(rightAnswer) = ""
 
        'put the wrong answer in the other slots
        FOR filling = 1 TO 4
            IF answerSlots$(filling) <> "" THEN
            ELSE
                differentWrongAnswer:
                wrongAnswer = INT(RND * 30) + 1
                IF incorrectStatements$(wrongAnswer) = "" THEN GOTO differentWrongAnswer
                answerSlots$(filling) = incorrectStatements$(wrongAnswer)
                incorrectStatements$(wrongAnswer) = ""
            END IF
        NEXT filling
 
        ' display statements
        COLOR 11, 5
        FOR lettersToPick = 65 TO 68
            COLOR 14, 5
            PRINT CHR$(lettersToPick);
            COLOR 11, 5
            PRINT ") ";
            PRINT answerSlots$(lettersToPick - 64)
        NEXT lettersToPick
        PRINT
        LOCATE , GetCenter("Pick A, B, C or D: ")
        PRINT "Pick A, B, C or D: ";
        DO
            pause$ = UCASE$(INPUT$(1))
        LOOP UNTIL pause$ = "A" OR pause$ = "B" OR pause$ = "C" OR pause$ = "D"
        PRINT pause$;
        chosenAnswer = ASC(UCASE$(pause$)) - 64
        IF chosenAnswer = fillThisSlot THEN
            COLOR 10, 5
            PRINT "   Correct"
            numberCorrectlyAnswered = numberCorrectlyAnswered + 1
            PLAY correctBeep$
            _DELAY (hailDelay)
        ELSE
            PLAY errorBeep$
            _DELAY (hailDelay)
            GOTO gotoHere
        END IF
        FOR clearThem = 1 TO 4
            answerSlots$(clearThem) = ""
        NEXT clearThem
    NEXT entireQuiz
 
    gotoHere:
    IF numberCorrectlyAnswered = 10 THEN
        quizPassed = TRUE
        shipLog.morale = shipLog.morale + 200
        shipLog.totalMorale = shipLog.totalMorale + 200
    END IF
    COLOR 15, 0
    CLS
    CALL PrintGrid
END SUB
 
 
SUB DockForInfo
    information$(1) = "When visiting a space station your medical supplies are more efficient if you concentrate on healing your crew."
    information$(2) = "Use the lettered wormholes to get to the Sairen Fleet more quickly."
    information$(3) = "Press the [TAB] key to view the map key and available commands."
    information$(4) = "Don't try to drop off survivors rescued from disabled ship unless you have survivors aboard."
    information$(5) = "The game is won when you defeat the Sarien fleet."
    information$(6) = "The way to defeat the fleet of Sarien battleships is to retreat after defeating some of them. You can retreat by escaping."
    information$(7) = "It is easier to defeat the next Sarien ship each time you defeat one."
    information$(8) = "Pressing [SPACEBAR] will give you a quiz about the information us informants give you. Scoring 100% correct will let you know when the Sarien Feelt is planning to activate their Quasi-Molecular Jumping Device."
    information$(9) = "The Quasi-Molecular Jumping Device (QMJD) changes atomic structures to create a temporary artificial wormhole to effect travel. This allows the Sarien Fleet to jump over large and small points on the grid."
    information$(10) = "The Sariens are known throughout the galaxy as the ones who stole the Star Generator way back in Space Quest 1: The Sarien Encounter, a hit video game from the 1980s."
 
    shipLog.score = shipLog.score + 25
    shipLog.morale = shipLog.morale + 1
    CLS
    'Draw the
    COLOR 7
    FOR lp = 1 TO 9
        CALL HorizontalLine(1, 80, lp, t$)
    NEXT lp
    CALL HorizontalLine(1, 4, 10, t$)
    CALL HorizontalLine(1, 3, 11, t$)
    CALL HorizontalLine(1, 2, 12, t$)
    CALL Plot(1, 13, t$)
    CALL HorizontalLine(20, 42, 10, t$)
    CALL HorizontalLine(21, 41, 11, t$)
    CALL HorizontalLine(22, 40, 12, t$)
    CALL HorizontalLine(23, 39, 13, t$)
    CALL HorizontalLine(24, 38, 14, t$)
    CALL HorizontalLine(25, 37, 15, t$)
    CALL HorizontalLine(58, 80, 10, t$)
    CALL HorizontalLine(59, 80, 11, t$)
    CALL HorizontalLine(60, 80, 12, t$)
    CALL HorizontalLine(61, 80, 13, t$)
    CALL HorizontalLine(62, 80, 14, t$)
    CALL HorizontalLine(63, 80, 15, t$)
    COLOR 8
    CALL HorizontalLine(10, 11, 10, t$)
    CALL HorizontalLine(13, 14, 10, t$)
    CALL HorizontalLine(48, 49, 10, t$)
    CALL HorizontalLine(51, 52, 10, t$)
    CALL DrawEspializer7("W", 75, 41, 0)
    ClearStatus
    COLOR 15, 0
    a$ = "You arrive at a Space Station of special interest to those who trade in information. The Wifran war with the Sariens hampers their abilities to sell information. With your promise to destory the evil Sariens, the information trader at this  has agreed to give you some precious intel."
    LOCATE 25
    PRINT LongCenter(a$)
    COLOR 10, 0
    a$ = "push [SPACEBAR] to dock with the ."
    LOCATE 34, GetCenter(a$)
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT " to dock with the ."
    CALL WaitForCharacter(" ")
    FOR y = 25 TO 34
        LOCATE y, 1
        PRINT STRING$(70, " ")
    NEXT y
    'Move the Espializer7
    FOR x = 75 TO 50 STEP -1
        CALL DrawEspializer7("W", x, 41, 0)
        _DELAY (movingShipDelay)
        IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        CALL DrawEspializer7("W", x, 41, 1)
    NEXT x
    FOR y = 42 TO 27 STEP -1
        CALL DrawEspializer7("N", 50, y, 0)
        _DELAY (movingShipDelay)
        IF y MOD movingShipMod = 0 THEN PLAY movingShipBeep
        IF y <> 27 THEN
            CALL DrawEspializer7("N", 50, y, 1)
        END IF
    NEXT y
    'open the docking bay
    COLOR 8
    CALL HorizontalLine(48, 49, 11, t$)
    CALL HorizontalLine(51, 52, 11, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL HorizontalLine(48, 49, 12, t$)
    CALL HorizontalLine(51, 52, 12, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(48, 13, t$)
    CALL Plot(52, 13, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(48, 14, t$)
    CALL Plot(52, 14, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(48, 15, t$)
    CALL Plot(52, 15, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL HorizontalLine(47, 48, 16, t$)
    CALL HorizontalLine(52, 53, 16, t$)
 
    'dock
    FOR y = 27 TO 19 STEP -1
        CALL DrawEspializer7("N", 50, y, 0)
        _DELAY (dockingDelay)
        IF y = 23 OR y = 19 OR y = 16 THEN PLAY movingShipBeep
        IF y <> 19 THEN
            CALL DrawEspializer7("N", 50, y, 1)
        END IF
    NEXT y
 
    theString$ = LongCenter$(information$(grid(Espializer7.x, Espializer7.y, 3)))
    LOCATE 2, 1
    COLOR informant.clr, 7
    FOR x = 1 TO LEN(theString$)
        theLetter$ = MID$(theString$, x, 1)
        PRINT theLetter$;
        IF theLetter$ <> " " THEN
            IF x MOD 2 = 0 THEN PLAY printingBeep$
            _DELAY (printingDelay)
        END IF
    NEXT x
    LOCATE 48, GetCenter("Push 'r' to return to the grid.")
    COLOR 10, 0
    PRINT "Push " + CHR$(34);
    COLOR 14, 0
    PRINT "R";
    COLOR 10, 0
    PRINT CHR$(34) + " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 10, 0
    PRINT "eturn to the Galaxy Grid."
    CALL WaitForCharacter("r")
    PLAY returnBeep
    COLOR 15, 0
    CLS
    'erase the informant from the Grid
    grid(Espializer7.x, Espializer7.y, 3) = 0
    CALL PrintGrid
END SUB
 
FUNCTION LongCenter$ (text$)
    DO
        cutHere = 46
        DO
            cutHere = cutHere - 1
            cutting$ = MID$(text$, cutHere, 1)
        LOOP UNTIL cutting$ = " "
        partString$ = MID$(text$, 1, cutHere)
        text$ = MID$(text$, cutHere + 1, LEN(text$))
        spaces$ = STRING$(GetCenter(partString$), " ")
        cutString$ = spaces$ + partString$ + spaces$
        returnThis$ = returnThis$ + cutString$
    LOOP UNTIL LEN(text$) < 30
    numLastSpaces = GetCenter(text$)
    lastSpaces$ = STRING$(numLastSpaces, " ")
    returnThis$ = returnThis$ + lastSpaces$ + text$ + lastSpaces$
    LongCenter$ = returnThis$
END FUNCTION
 
SUB SpaceStation
    ' maybe do a repair sound and a delay
    COLOR 0, 0
    CLS
 
    'Draw the
    COLOR 7
    FOR lp = 1 TO 9
        CALL HorizontalLine(1, 80, lp, t$)
    NEXT lp
    CALL HorizontalLine(1, 4, 10, t$)
    CALL HorizontalLine(1, 3, 11, t$)
    CALL HorizontalLine(1, 2, 12, t$)
    CALL Plot(1, 13, t$)
    CALL HorizontalLine(20, 42, 10, t$)
    CALL HorizontalLine(21, 41, 11, t$)
    CALL HorizontalLine(22, 40, 12, t$)
    CALL HorizontalLine(23, 39, 13, t$)
    CALL HorizontalLine(24, 38, 14, t$)
    CALL HorizontalLine(25, 37, 15, t$)
    CALL HorizontalLine(58, 80, 10, t$)
    CALL HorizontalLine(59, 80, 11, t$)
    CALL HorizontalLine(60, 80, 12, t$)
    CALL HorizontalLine(61, 80, 13, t$)
    CALL HorizontalLine(62, 80, 14, t$)
    CALL HorizontalLine(63, 80, 15, t$)
    COLOR 8
    CALL HorizontalLine(10, 11, 10, t$)
    CALL HorizontalLine(13, 14, 10, t$)
    CALL HorizontalLine(48, 49, 10, t$)
    CALL HorizontalLine(51, 52, 10, t$)
 
    CALL DrawEspializer7("W", 75, 41, 0)
    ClearStatus
    COLOR 10, 0
    a$ = "push [SPACEBAR] to dock with the ."
    LOCATE 25, GetCenter(a$)
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT " to dock with the ."
    CALL WaitForCharacter(" ")
    LOCATE 25, GetCenter(a$)
    PRINT STRING$(LEN(a$), " ")
    'Move the Espializer7
    FOR x = 75 TO 16 STEP -1
        CALL DrawEspializer7("W", x, 41, 0)
        _DELAY (movingShipDelay)
        IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        CALL DrawEspializer7("W", x, 41, 1)
    NEXT x
    FOR y = 42 TO 27 STEP -1
        CALL DrawEspializer7("N", 12, y, 0)
        _DELAY (movingShipDelay)
        IF y MOD movingShipMod = 0 THEN PLAY movingShipBeep
        IF y <> 27 THEN
            CALL DrawEspializer7("N", 12, y, 1)
        END IF
    NEXT y
    'open the docking bay
    COLOR 8
    CALL HorizontalLine(10, 11, 11, t$)
    CALL HorizontalLine(13, 14, 11, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL HorizontalLine(10, 11, 12, t$)
    CALL HorizontalLine(13, 14, 12, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(10, 13, t$)
    CALL Plot(14, 13, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(10, 14, t$)
    CALL Plot(14, 14, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL Plot(10, 15, t$)
    CALL Plot(14, 15, t$)
    _DELAY (dockingDelay)
    PLAY dockingBeep
    CALL HorizontalLine(9, 10, 16, t$)
    CALL HorizontalLine(14, 15, 16, t$)
 
    'dock
    FOR y = 27 TO 19 STEP -1
        CALL DrawEspializer7("N", 12, y, 0)
        _DELAY (dockingDelay)
        IF y = 23 OR y = 19 OR y = 16 THEN PLAY movingShipBeep
        IF y <> 19 THEN
            CALL DrawEspializer7("N", 12, y, 1)
        END IF
    NEXT y
 
    c = shipLog.currentDamage.ship '        if damage is 100, 100% of the ship is damaged and therefore destroyed. same for med
    td = shipLog.totalDamage.ship
    m = shipLog.currentDamage.medical
    mt = shipLog.totalDamage.medical
    s = shipLog.currentMedSupply
    ml = shipLog.morale
 
    ClearStatus
    COLOR 13, 7 'Purple on the  bg
    LOCATE 5, 17
    IF ml > 0 AND c > 0 THEN
        COLOR 14, 7
        PRINT "1";
        COLOR 5, 7
        PRINT ". Repair the ship"
    ELSE
        COLOR 0, 7
        PRINT "1. Repair the ship"
    END IF
    LOCATE 6, 17
    IF s > 0 AND m > 0 THEN
        COLOR 14, 7
        PRINT "2";
        COLOR 5, 7
        PRINT ". Heal the crew"
    ELSE
        COLOR 0, 7
        PRINT "2. Heal the crew"
    END IF
    LOCATE 6, 42
    IF s > 0 AND ml > 0 AND c > 0 AND m > 0 THEN
        COLOR 14, 7
        PRINT "3";
        COLOR 5, 7
        PRINT ". Heal and repair"
    ELSE
        COLOR 0, 7
        PRINT "3. Heal and repair"
    END IF
    LOCATE 7, 42
    COLOR 14, 7
    PRINT "4";
    COLOR 5, 7
    PRINT ". Exit"
    COLOR esplzr.clr, 0
    LOCATE 18, 32
    PRINT USING "##%"; c;
    COLOR 15, 0
    PRINT " of the ";
    COLOR esplzr.clr, 0
    PRINT "Espializer 7";
    COLOR 15, 0
    PRINT " is ";
    COLOR esplzr.clr, 0
    PRINT "damaged.  "
    LOCATE 19, 32
    COLOR otherPlanet.clr, 0
    PRINT USING "##%"; m;
    COLOR 15, 0
    PRINT " of the ";
    COLOR otherPlanet.clr, 0
    PRINT "crew";
    COLOR 15, 0
    PRINT " has been ";
    COLOR otherPlanet.clr, 0
    PRINT "injured.  "
    LOCATE 22, 31
    COLOR otherPlanet.clr, 0
    IF s = 1 THEN
        PRINT USING "# medical solution kit"; s;
        COLOR 15, 0
        PRINT " is available for use.   "
    ELSEIF s > 1 AND s < 10 OR (s = 0) THEN
        PRINT USING "# medical solution kits"; s;
        COLOR 15, 0
        PRINT " are available for use.   "
    ELSEIF s > 9 THEN
        PRINT USING "## medical solution kits"; s;
        COLOR 15, 0
        PRINT " are available for use. "
    END IF
    LOCATE 34, 40
    COLOR 15, 0
    IF ml = 1 THEN
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "# morale point"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 1 AND ml < 10 OR (ml = 0) THEN '                2 to 9
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "# morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 9 AND ml < 100 THEN '                           10 to 99
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "## morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 99 AND ml < 1000 THEN '                         100 to 999
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 1000 AND ml < 10000 THEN
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "#,### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSE
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "##,### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    END IF
    COLOR 6, 0
    LOCATE 38, 40
    PRINT LTRIM$(STR$(c * 5)) + " morale points";
    COLOR 15, 0
    PRINT " are required to"
    LOCATE 39, 45
    PRINT "completely repair the ship."
 
    LOCATE 29, 10
    COLOR 14, 0
    PRINT "Command number:"
    DO
        cfg$ = INKEY$
        cmd = VAL(cfg$)
    LOOP UNTIL (cmd = 1 AND ml > 0 AND c > 0) OR (cmd = 2 AND s > 0 AND m > 0) OR (cmd = 3 AND ml > 0 AND s > 0 AND c > 0 AND m > 0) OR cmd = 4
    IF cmd = 1 THEN
        PLAY shipRepairBeep
    ELSEIF cmd = 2 THEN PLAY medicalRepairBeep
    ELSEIF cmd = 3 THEN PLAY shipRepairBeep + "P10" + medicalRepairBeep
    END IF
    COLOR 13, 7
    'gray them out after choosing
    LOCATE 5, 17
    COLOR 0, 7
    PRINT "1. Repair the ship"
    LOCATE 6, 17
    COLOR 0, 7
    PRINT "2. Heal the crew"
    LOCATE 6, 42
    COLOR 0, 7
    PRINT "3. Heal and repair"
    LOCATE 7, 42
    COLOR 0, 7
    PRINT "4. Exit"
    LOCATE 29, 26
    COLOR 14, 0
    PRINT cfg$
    PLAY selectionBeep$
    LOCATE 20, 32
    PRINT STRING$(80 - 32, CHR$(32))
 
    SELECT CASE cmd
        CASE 1
            td = td + c
            DO
                IF ml >= 5 AND c > 0 THEN
                    c = c - 1
                    ml = ml - 5
                END IF
            LOOP UNTIL c = 0 OR ml < 5
            IF c <> 0 THEN td = td - c
            shipLog.score = shipLog.score + 1
        CASE 2
            mt = mt + m
            DO UNTIL s = 0 OR m = 0
                heal = INT(RND * 20) + 1
                IF m >= heal THEN
                    m = m - heal
                ELSE
                    m = 0
                END IF
                s = s - 1
            LOOP
            IF m > 0 THEN mt = mt - m
            shipLog.score = shipLog.score + 1
        CASE 3
            mt = mt + m
            DO UNTIL s = 0 OR m = 0
                heal = INT(RND * 10) + 1
                IF m >= heal THEN
                    m = m - heal
                ELSE
                    m = 0
                END IF
                s = s - 1
            LOOP
            IF m > 0 THEN mt = mt - m
            td = td + c
            DO UNTIL c = 0 OR ml < 5
                c = c - 1
                ml = ml - 5
            LOOP
            IF c > 0 THEN td = td - c
            shipLog.score = shipLog.score + 1
    END SELECT
    IF cmd <> 4 THEN
        _DELAY (hailDelay * 2)
    END IF
 
    COLOR esplzr.clr, 0
    LOCATE 18, 32
    PRINT USING "##%"; c;
    COLOR 15, 0
    PRINT " of the ";
    COLOR esplzr.clr, 0
    PRINT "Espializer 7";
    COLOR 15, 0
    PRINT " is ";
    COLOR esplzr.clr, 0
    PRINT "damaged.  "
    LOCATE 19, 32
    COLOR otherPlanet.clr, 0
    PRINT USING "##%"; m;
    COLOR 15, 0
    PRINT " of the ";
    COLOR otherPlanet.clr, 0
    PRINT "crew";
    COLOR 15, 0
    PRINT " has been ";
    COLOR otherPlanet.clr, 0
    PRINT "injured.  "
    LOCATE 22, 31
    COLOR otherPlanet.clr, 0
    IF s = 1 THEN
        PRINT USING "# medical solution kit"; s;
        COLOR 15, 0
        PRINT " is available for use.   "
    ELSEIF s > 1 AND s < 10 OR s = 0 THEN
        PRINT USING "# medical solution kits"; s;
        COLOR 15, 0
        PRINT " are available for use.   "
    ELSEIF s > 9 THEN
        PRINT USING "## medical solution kits"; s;
        COLOR 15, 0
        PRINT " are available for use.   "
    END IF
    LOCATE 34, 40
    COLOR 15, 0
    IF ml = 1 THEN
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "# morale point"; ml;
        COLOR 15, 0
        PRINT " to use.   " 'morale is subtracted by 5s but I may have need of this later as the coding continues -- someone once said "it's all in the details" -- every time I see a plural after a 1 I feel irritated
    ELSEIF ml > 1 AND ml < 10 OR (ml = 0) THEN '                2 to 9
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "# morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 9 AND ml < 100 THEN '                           10 to 99
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "## morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 99 AND ml < 1000 THEN '                         100 to 999
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSEIF ml > 1000 AND ml < 10000 THEN
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "#,### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   "
    ELSE
        PRINT "You have ";
        COLOR 6, 0
        PRINT USING "##,### morale points"; ml;
        COLOR 15, 0
        PRINT " to use.   " ' dunno if this is necessary at all
    END IF
    COLOR 6, 0
    LOCATE 38, 40
    PRINT LTRIM$(STR$(c * 5)) + " morale points";
    COLOR 15, 0
    PRINT " are required to"
    LOCATE 39, 45
    PRINT "completely repair the ship."
 
    COLOR 10, 0
    LOCATE 43, GetCenter("Push r to return to the Galaxy Grid.")
    PRINT "Push " + CHR$(34);
    COLOR 14, 0
    PRINT "R";
    COLOR 10, 0
    PRINT CHR$(34) + " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 10, 0
    PRINT "eturn to the Galaxy Grid."
    CALL WaitForCharacter("r")
    PLAY returnBeep
    shipLog.currentDamage.ship = c
    shipLog.totalDamage.ship = td
    shipLog.currentDamage.medical = m
    shipLog.totalDamage.medical = mt
    shipLog.currentMedSupply = s
    shipLog.morale = ml
    CLS
    CALL PrintGrid
END SUB
 
SUB AidDisabledShip
    COLOR 0, 0
    CLS
    COLOR 15, 0
    LOCATE 12, 15
    PRINT "The Espializer 7 approaches"
    LOCATE 13, 17
    PRINT "a disabled Wifran ship.    ";
    LOCATE 16, 20
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT "."
 
    ' draw the disabled ship
    COLOR 7, 0
    CALL Plot(5, 12, CHR$(219))
    CALL HorizontalLine(4, 6, 13, CHR$(219))
    CALL HorizontalLine(3, 7, 14, CHR$(219))
    CALL HorizontalLine(4, 6, 15, CHR$(219))
    CALL Plot(5, 16, CHR$(219))
    COLOR 9, 0
    CALL VerticalLine(9, 13, 3, CHR$(219))
    CALL VerticalLine(9, 13, 7, CHR$(219))
    COLOR 12, 15
    CALL Plot(5, 14, "*")
 
    CALL DrawEspializer7("W", 76, 37, 0)
    CALL WaitForCharacter(" ")
    ClearStatus
    'move the Espializer7 to the left
    FOR x = 76 TO 50 STEP -1
        CALL DrawEspializer7("W", x, 37, 0)
        _DELAY (movingShipDelay)
        IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        CALL DrawEspializer7("W", x, 37, 1)
    NEXT x
    ' move the Espializer 7 up
    FOR y = 41 TO 19 STEP -1
        CALL DrawEspializer7("N", 46, y, 0)
        _DELAY (movingShipDelay)
        IF y MOD movingShipMod = 0 THEN PLAY movingShipBeep
        CALL DrawEspializer7("N", 46, y, 1)
    NEXT y
    'move the espializer left again and run over the text
    FOR x = 50 TO 15 STEP -1
        CALL DrawEspializer7("W", x, 15, 0)
        _DELAY (movingShipDelay)
        IF x >= 21 AND x <= 47 THEN
            IF x MOD 3 = 0 THEN PLAY runOverText$
        ELSE
            IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        END IF
        IF x = 15 THEN GOTO skipBlack
        CALL DrawEspializer7("W", x, 15, 1)
        skipBlack:
    NEXT x
    GOTO skipOver
 
    showNumOnBoard:
    LOCATE 42, 4
    COLOR 15, 0
    PRINT "There ";
    IF shipLog.currentSurvivors = 1 THEN
        PRINT "is ";
    ELSE
        PRINT "are ";
    END IF
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentSurvivors));
    COLOR 15, 0
    PRINT " survivor";
    IF shipLog.currentSurvivors <> 1 THEN PRINT "s";
    PRINT " of ";
    COLOR esplzr.clr, 0
    PRINT "20";
    COLOR 15, 0
    PRINT " on board."
    RETURN
 
    skipOver:
    GOSUB showNumOnBoard
    survivorsAboardDisabledShip = grid(Espializer7.x, Espializer7.y, 3)
    COLOR 10, 0
    a$ = "push esc[] to hail the disabled shipk"
    LOCATE 17, GetCenter(a$) + 5
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[ESC]";
    COLOR 10, 0
    PRINT " to hail the disabled ship."
    CALL WaitForCharacter(CHR$(27))
    LOCATE 17, GetCenter(a$) + 5
    PRINT STRING$(LEN(a$), " ")
    PLAY hail
    _DELAY hailDelay
    LOCATE 17, GetCenter(a$)
    PRINT STRING$(LEN(a$) + 5, " ")
    COLOR 15, 0
    a$ = "You tell the captain of the disabled"
    LOCATE 11, 30
    PRINT a$
    a$ = "ship you heard the distress call"
    b$ = "and have come to help if you can."
    LOCATE 12, 33
    PRINT a$
    LOCATE 13, 33
    PRINT b$
    COLOR 11, 0
    a$ = "The captain asks if you can accommodate"
    b$ = "# surivior"
    LOCATE 20, 25
    PRINT a$
    LOCATE 21, 27
    PRINT USING b$; survivorsAboardDisabledShip;
    IF survivorsAboardDisabledShip <> 1 THEN PRINT "s";
    PRINT " aboard the Espializer 7."
    IF shipLog.currentSurvivors = 20 THEN
        GOTO noRoomOnBoard
    ELSEIF shipLog.currentSurvivors + survivorsAboardDisabledShip > 20 THEN
        ableToAccomodate = 20 - shipLog.currentSurvivors
        grid(Espializer7.x, Espializer7.y, 3) = grid(Espializer7.x, Espializer7.y, 3) - ableToAccomodate
        COLOR 15, 0
        a$ = "You tell the captain that your oxygen and similar resources are limited."
        LOCATE 24, GetCenter(a$)
        PRINT a$
        a$ = "You explain you can only accomodate # survivors"
        b$ = "and will return for the the rest."
        LOCATE 25, GetCenter(a$)
        PRINT "You explain you can only accomodate ";
        COLOR esplzr.clr, 0
        PRINT LTRIM$(STR$(ableToAccomodate));
        COLOR 15, 0
        PRINT " survivor";
        IF ableToAccomodate <> 1 THEN PRINT "s";
        LOCATE 26, GetCenter(b$)
        PRINT b$
    ELSE
        ableToAccomodate = grid(Espializer7.x, Espializer7.y, 3)
        grid(Espializer7.x, Espializer7.y, 3) = 0
    END IF
    b$ = " - Type " + CHR$(34) + "BEAM" + CHR$(34) + " to beam # survivors to the Espializer 7."
    bc = GetCenter(b$)
    COLOR 15, 0
    LOCATE 29, bc + 2
    PRINT " - ";
    COLOR 10, 0
    PRINT "Type " + CHR$(34);
    COLOR 14, 0
    PRINT "BEAM";
    COLOR 10, 0
    PRINT CHR$(34);
    PRINT " to beam ";
    COLOR esplzr.clr
    PRINT LTRIM$(STR$(ableToAccomodate));
    COLOR 10, 0
    PRINT " survivor";
    IF ableToAccomodate <> 1 THEN PRINT "s";
    PRINT " to the Espializer 7."
    LOCATE 31, bc + 2
    PRINT " - ";
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "N";
    COLOR 10, 0
    PRINT " to ";
    COLOR 14, 0
    PRINT "n";
    COLOR 10, 0
    PRINT "ot rescue the survivors."
    DO
        choice$ = INPUT$(1)
        choice$ = UCASE$(choice$)
    LOOP UNTIL choice$ = "B" OR choice$ = "N"
    SELECT CASE choice$
        CASE "B"
            PLAY selectionBeep
            FOR cnt = 1 TO ableToAccomodate
                shipLog.score = shipLog.score + 20
            NEXT cnt
            COLOR 13, 0
            CALL Plot(7, 15, CHR$(2))
            CALL WaitForCharacter("E")
            PLAY selectionBeep
            COLOR 0, 0
            CALL Plot(7, 15, CHR$(2))
            COLOR 13, 0
            CALL Plot(8, 15, CHR$(2)) '            E
            CALL WaitForCharacter("A")
            PLAY selectionBeep
            COLOR 0, 0
            CALL Plot(8, 15, CHR$(2))
            COLOR 13, 0
            CALL Plot(9, 15, CHR$(2)) '            A
            CALL WaitForCharacter("M")
            PLAY selectionBeep
            COLOR 0, 0
            CALL Plot(9, 15, CHR$(2))
            COLOR 13, 0
            CALL Plot(10, 15, CHR$(2))
            shipLog.currentSurvivors = shipLog.currentSurvivors + ableToAccomodate
            shipLog.morale = shipLog.morale + (ableToAccomodate * 15)
            shipLog.totalMorale = shipLog.totalMorale + shipLog.morale
            shipLog.score = shipLog.score + (ableToAccomodate * 20)
            COLOR 0, 0
            ClearStatus
            GOSUB showNumOnBoard
            a$ = "Push r to return to the grid."
            LOCATE 39, GetCenter(a$)
            COLOR 9, 0
            PRINT "Push ";
            COLOR 14, 0
            PRINT "R";
            COLOR 9, 0
            PRINT " to ";
            COLOR 14, 0
            PRINT "r";
            COLOR 9, 0
            PRINT "eturn to the grid."
            CALL WaitForCharacter("r")
            PLAY returnBeep
        CASE "N"
            shipLog.score = shipLog.score - 20
            shipLog.morale = shipLog.morale - 150
            COLOR 15, 0
            CLS
            a$ = "Nobody saw that "
            LOCATE 30, GetCenter(a$)
            PRINT a$;
            _DELAY (hailDelay)
            PRINT "but. . ."
            _DELAY (hailDelay * 2)
            a$ = "your score and morale both decreased"
            LOCATE 40, GetCenter(a$)
            PRINT a$
            PLAY errorBeep
            _DELAY (4)
    END SELECT
    GOTO endAidSub
    noRoomOnBoard:
    PRINT
    PRINT
    PRINT
    COLOR 15, 0
    a$ = "You tell the captain that your oxygen and similar resources are limited."
    LOCATE 24, GetCenter(a$)
    PRINT a$
    PRINT
    COLOR 15, 0
    a$ = "You tell the captain you have no room on board."
    LOCATE , GetCenter(a$)
    PRINT a$
    a$ = "You apologize profusely and say you'll be back as soon as you can."
    LOCATE , GetCenter(a$)
    PRINT a$
    a$ = "Push r to return to the grid."
    LOCATE 45, GetCenter(a$)
    COLOR 9, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "R";
    COLOR 9, 0
    PRINT " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 9, 0
    PRINT "eturn to the grid."
    CALL WaitForCharacter("r")
    PLAY returnBeep
    endAidSub:
    CLS
    CALL PrintGrid
END SUB
 
SUB DrawSarienShip (orientation$, x, y, erased)
    IF erased = 1 THEN
        COLOR 0, 0
    ELSE
        COLOR sarienShip.clr, 0
    END IF
    SELECT CASE orientation$
        CASE "N"
            CALL Plot(x - 1, y, t$)
            CALL Plot(x + 1, y, t$)
            CALL Plot(x, y - 1, t$)
        CASE "E"
            CALL Plot(x, y - 1, t$)
            CALL Plot(x, y + 1, t$)
            CALL Plot(x + 1, y, t$)
        CASE "S"
            CALL Plot(x - 1, y, t$)
            CALL Plot(x + 1, y, t$)
            CALL Plot(x, y + 1, t$)
        CASE "W"
            CALL Plot(x - 1, y, t$)
            CALL Plot(x, y - 1, t$)
            CALL Plot(x, y + 1, t$)
    END SELECT
END SUB
 
SUB Battle (singleOrFleet)
    CLS
    sarienDamaged = 0
    GOTO continueBattle
    printBattleStats:
    IF sarienDamaged >= 100 OR shipLog.currentDamage.ship >= 100 OR shipLog.currentDamage.medical >= 100 THEN GOTO endBattleSub
    LOCATE 46, 1
    COLOR 12, 0
    PRINT "Damage ";
    COLOR 15, 0
    PRINT "and ";
    COLOR 12, 0
    PRINT "Injuries"
    LOCATE 47, 5
    COLOR 15, 0
    PRINT "Structural damage: ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentDamage.ship)) + "%"
    LOCATE 48, 5
    COLOR 15, 0
    PRINT " Crew incapicated: ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentDamage.medical)) + "%"
    LOCATE 46, 60
    COLOR sarienShip.clr, 0
    PRINT "Sarien"
    LOCATE 47, 50
    COLOR 15, 0
    PRINT "Injuries and damage: ";
    COLOR sarienShip.clr, 0
    PRINT LTRIM$(STR$(sarienDamaged)) + "%"
    IF singleOrFleet <> 0 THEN
        LOCATE 48, 30
        COLOR 15, 0
        PRINT "Ships in Fleet: ";
        COLOR sarienFleet.clr, 0
        PRINT LTRIM$(STR$(singleOrFleet))
    END IF
    RETURN
    continueBattle:
    'randomize starting positions
    wifranBattleX = INT(RND * (75 - 5)) + 5
    wifranBattleY = INT(RND * (41 - 5)) + 5
    whichSpin = INT(RND * 4) + 1
    IF whichSpin = 1 THEN which$ = "N"
    IF whichSpin = 2 THEN which$ = "S"
    IF whichSpin = 3 THEN which$ = "W"
    IF whichSpin = 4 THEN which$ = "E"
    CALL DrawEspializer7(which$, wifranBattleX, wifranBattleY, 0)
    wifranIsPointed$ = which$
    'now to randomly place the Sariens without being too close to the espializer 7
    getCoordinates:
    enemyShipX = INT(RND * (77 - 2)) + 2
    enemyShipY = INT(RND * (44 - 2)) + 2
    ' create a function that returns true if the espializer7 and the sarien aren't too close and false if they are too close... x,y x,y
    IF LocationGood(wifranBattleX, wifranBattleY, enemyShipX, enemyShipY) = FALSE THEN GOTO getCoordinates
    whichSpin = INT(RND * 4) + 1
    IF whichSpin = 1 THEN sarienOrientation$ = "N"
    IF whichSpin = 2 THEN sarienOrientation$ = "S"
    IF whichSpin = 3 THEN sarienOrientation$ = "W"
    IF whichSpin = 4 THEN sarienOrientation$ = "E"
    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
    GOSUB printBattleStats
    'now to move them and fire at eachother
    DO
        pauseBattle = FALSE
        previousDirection$ = wifranIsPointed$
        previousEspializer7x = wifranBattleX
        previousEspializer7y = wifranBattleY
        IF sarienDamaged >= 100 OR shipLog.currentDamage.ship >= 100 OR shipLog.currentDamage.medical >= 100 THEN GOTO endBattleSub
        movementDirection$ = INKEY$
        SELECT CASE movementDirection$
            CASE CHR$(0) + "H"
                pauseBattle = TRUE
                IF wifranBattleY > 5 AND LocationGood(wifranBattleX, wifranBattleY - 1, enemyShipX, enemyShipY) = TRUE THEN
                    wifranBattleY = wifranBattleY - 1
                END IF
                wifranIsPointed$ = "N"
            CASE CHR$(0) + "K"
                pauseBattle = TRUE
                IF wifranBattleX > 5 AND LocationGood(wifranBattleX - 1, wifranBattleY, enemyShipX, enemyShipY) = TRUE THEN
                    wifranBattleX = wifranBattleX - 1
                END IF
                wifranIsPointed$ = "W"
            CASE CHR$(0) + "P"
                pauseBattle = TRUE
                IF wifranBattleY < 41 AND LocationGood(wifranBattleX, wifranBattleY + 1, enemyShipX, enemyShipY) = TRUE THEN
                    wifranBattleY = wifranBattleY + 1
                END IF
                wifranIsPointed$ = "S"
            CASE CHR$(0) + "M"
                pauseBattle = TRUE
                IF wifranBattleX < 76 AND LocationGood(wifranBattleX, wifranBattleY - 1, enemyShipX, enemyShipY) = TRUE THEN
                    wifranBattleX = wifranBattleX + 1
                END IF
                wifranIsPointed$ = "E"
            CASE CHR$(32)
                GOSUB fireOnEnemy
                GOSUB printBattleStats
                _DELAY (movingShipDelay)
                GOSUB moveSarienShip
                GOSUB sarienfiring
                GOSUB printBattleStats
        END SELECT
        IF pauseBattle = TRUE THEN
            CALL DrawEspializer7(previousDirection$, previousEspializer7x, previousEspializer7y, 1)
            CALL DrawEspializer7(wifranIsPointed$, wifranBattleX, wifranBattleY, 0)
            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
            GOSUB printBattleStats
            pauseBattle = FALSE
        END IF
    LOOP
    GOTO endBattleSub
 
    fireOnEnemy:
    SELECT CASE wifranIsPointed$
        CASE "N"
            PLAY fireBeep
            IF wifranBattleY > 5 THEN 'fire a bullet up
                FOR bulletPosition = wifranBattleY - 5 TO 1 STEP -1
                    COLOR 14, 0
                    CALL Plot(wifranBattleX, bulletPosition, t$)
                    _DELAY (movingShipDelay / 2)
                    COLOR 0, 0
                    CALL Plot(wifranBattleX, bulletPosition, t$)
                    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                    IF IsEnemyHit(wifranBattleX, bulletPosition, enemyShipX, enemyShipY, sarienOrientation$) = TRUE THEN
                        shipLog.score = shipLog.score + 1
                        PLAY shipHitBeep
                        sarienDamaged = sarienDamaged + INT(RND * (50 + shipLog.enemiesDestroyed + 1)) + 1
                        bulletPosition = 0
                        CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        IF sarienDamaged < 100 THEN
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        ELSE
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 1)
                        END IF
                        GOSUB printBattleStats
                    END IF
                NEXT bulletPosition
            END IF
        CASE "S"
            IF wifranBattleY < 40 THEN
                PLAY fireBeep
                FOR bulletPosition = wifranBattleY + 5 TO 45
                    COLOR 14, 0
                    CALL Plot(wifranBattleX, bulletPosition, t$)
                    _DELAY (movingShipDelay / 2)
                    COLOR 0, 0
                    CALL Plot(wifranBattleX, bulletPosition, t$)
                    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                    IF IsEnemyHit(wifranBattleX, bulletPosition, enemyShipX, enemyShipY, sarienOrientation$) = TRUE THEN
                        shipLog.score = shipLog.score + 1
                        PLAY shipHitBeep
                        sarienDamaged = sarienDamaged + INT(RND * (50 + shipLog.enemiesDestroyed + 1)) + 1
                        bulletPosition = 46
                        CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        IF sarienDamaged < 100 THEN
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        ELSE
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 1)
                        END IF
                        GOSUB printBattleStats
                    END IF
                NEXT bulletPosition
            END IF
        CASE "W"
            IF wifranBattleX > 5 THEN
                PLAY fireBeep
                FOR bulletPosition = wifranBattleX - 5 TO 1 STEP -1
                    COLOR 14, 0
                    CALL Plot(bulletPosition, wifranBattleY, t$)
                    _DELAY (movingShipDelay / 2)
                    COLOR 0, 0
                    CALL Plot(bulletPosition, wifranBattleY, t$)
                    IF IsEnemyHit(bulletPosition, wifranBattleY, enemyShipX, enemyShipY, sarienOrientation$) = TRUE THEN
                        shipLog.score = shipLog.score + 1
                        PLAY shipHitBeep
                        sarienDamaged = sarienDamaged + INT(RND * (50 + shipLog.enemiesDestroyed + 1)) + 1
                        bulletPosition = 0
                        CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        IF sarienDamaged < 100 THEN
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        ELSE
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 1)
                        END IF
                        GOSUB printBattleStats
                    END IF
                NEXT bulletPosition
            END IF
        CASE "E"
            IF wifranBattleX < 74 THEN
                PLAY fireBeep
                FOR bulletPosition = wifranBattleX + 5 TO 79 ' sometimes a print at 80 will cause CR
                    COLOR 14, 0
                    CALL Plot(bulletPosition, wifranBattleY, t$)
                    _DELAY (movingShipDelay / 2)
                    COLOR 0, 0
                    CALL Plot(bulletPosition, wifranBattleY, t$)
                    IF IsEnemyHit(bulletPosition, wifranBattleY, enemyShipX, enemyShipY, sarienOrientation$) = TRUE THEN
                        shipLog.score = shipLog.score + 1
                        PLAY shipHitBeep
                        sarienDamaged = sarienDamaged + INT(RND * (50 + shipLog.enemiesDestroyed + 1)) + 1
                        bulletPosition = 80
                        CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
                        IF sarienDamaged < 100 THEN
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0) 'why is this not working?
                        ELSE
                            CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 1)
                        END IF
                        GOSUB printBattleStats
                    END IF
                NEXT bulletPosition
            END IF
    END SELECT
    GOSUB printBattleStats
    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
    RETURN
 
    'now to move the sarien ship -- LocationGood helps
    moveSarienShip:
    randomX = INT(RND * (76 - 3 + 1)) + 3
    randomY = INT(RND * (43 - 3 + 1)) + 3
    rndOrt = INT(RND * (4 - 1 + 1)) + 1
    SELECT CASE rndOrt
        CASE 1
            randomOrientation$ = "N"
        CASE 2
            randomOrientation$ = "S"
        CASE 3
            randomOrientation$ = "W"
        CASE 4
            randomOrientation$ = "E"
    END SELECT
    IF sarienDamaged >= 100 THEN RETURN
    IF LocationGood(wifranBattleX, wifranBattleY, randomX, randomY) = FALSE THEN GOTO moveSarienShip
    IF SarienWillHit(wifranBattleX, wifranBattleY, randomX, randomY, randomOrientation$) = FALSE THEN GOTO moveSarienShip
    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 1)
    enemyShipX = randomX
    enemyShipY = randomY
    sarienOrientation$ = randomOrientation$
    CALL DrawSarienShip(sarienOrientation$, enemyShipX, enemyShipY, 0)
    GOSUB printBattleStats
    RETURN
 
    'and finally, for the sarien to fire on the espializer 7
    sarienfiring:
    IF sarienDamaged >= 100 OR shipLog.currentDamage.medical >= 100 OR shipLog.currentDamage.ship >= 100 THEN RETURN
    'always hits
    damageType = INT(RND * 2) + 1
    damageAmount = INT(RND * 40 - (shipLog.enemiesDestroyed / 1.5)) + 1
    IF damageType = 1 THEN
        shipLog.currentDamage.ship = shipLog.currentDamage.ship + damageAmount
        shipLog.totalDamage.ship = shipLog.totalDamage.ship + damageAmount
    ELSEIF damageType = 2 THEN
        shipLog.currentDamage.medical = shipLog.currentDamage.medical + damageAmount
        shipLog.totalDamage.medical = shipLog.totalDamage.medical + damageAmount
    END IF
    _DELAY hailDelay
    PLAY fireBeep
    SELECT CASE sarienOrientation$
        CASE "N"
            FOR bulletPosition = enemyShipY - 2 TO 1 STEP -1
                COLOR 14, 0
                CALL Plot(enemyShipX, bulletPosition, t$)
                _DELAY (movingShipDelay / 2)
                COLOR 0, 0
                CALL Plot(enemyShipX, bulletPosition, t$)
                IF wifranBattleY = bulletPosition THEN
                    CALL DrawEspializer7(wifranIsPointed$, wifranBattleX, wifranBattleY, 0)
                    PLAY shipHitBeep
                    bulletPosition = 0
                END IF
 
            NEXT bulletPosition
        CASE "S"
            FOR bulletPosition = enemyShipY + 2 TO 45
                COLOR 14, 0
                CALL Plot(enemyShipX, bulletPosition, t$)
                _DELAY (movingShipDelay / 2)
                COLOR 0, 0
                CALL Plot(enemyShipX, bulletPosition, t$)
                IF wifranBattleY = bulletPosition THEN
                    CALL DrawEspializer7(wifranIsPointed$, wifranBattleX, wifranBattleY, 0)
                    PLAY shipHitBeep
                    bulletPosition = 46
                END IF
            NEXT bulletPosition
        CASE "E"
            FOR bulletPosition = enemyShipX + 2 TO 80
                COLOR 14, 0
                CALL Plot(bulletPosition, enemyShipY, t$)
                _DELAY (movingShipDelay / 2)
                COLOR 0, 0
                CALL Plot(bulletPosition, enemyShipY, t$)
                IF wifranBattleX = bulletPosition THEN
                    CALL DrawEspializer7(wifranIsPointed$, wifranBattleX, wifranBattleY, 0)
                    PLAY shipHitBeep
                    bulletPosition = 81
                END IF
            NEXT bulletPosition
        CASE "W"
            FOR bulletPosition = enemyShipX - 2 TO 1 STEP -1
                COLOR 14, 0
                CALL Plot(bulletPosition, enemyShipY, t$)
                _DELAY (movingShipDelay / 2)
                COLOR 0, 0
                CALL Plot(bulletPosition, enemyShipY, t$)
                IF wifranBattleX = bulletPosition THEN
                    CALL DrawEspializer7(wifranIsPointed$, wifranBattleX, wifranBattleY, 0)
                    PLAY shipHitBeep
                    bulletPosition = 0
                END IF
            NEXT bulletPosition
    END SELECT
    GOSUB printBattleStats
    RETURN
 
    endBattleSub:
    IF sarienDamaged >= 100 THEN
        CALL Success
        shipLog.score = shipLog.score + 100
        shipLog.morale = shipLog.morale + 5
        shipLog.enemiesDestroyed = shipLog.enemiesDestroyed + 1
        IF singleOrFleet = 0 THEN
            grid(Espializer7.x, Espializer7.y, 3) = 0
        ELSEIF singleOrFleet = 1 THEN ' decrement this so game over
            CALL EndOfGame
        ELSE
            COLOR 0, 0
            CLS
            a$ = "You have destroyed the Sarien ship. Push any key to continue."
            LOCATE 25, GetCenter(a$)
            COLOR 15, 0
            PRINT a$
            hardToLearn$ = INPUT$(1)
            shipsInSarienFleet = shipsInSarienFleet - 1
            IF hardToLearn$ = CHR$(27) THEN GOTO exitBattle
            CALL Battle(shipsInSarienFleet)
        END IF
    ELSEIF shipLog.currentDamage.ship >= 100 THEN
        CALL Boom
    ELSEIF shipLog.currentDamage.medical >= 100 THEN
        CALL Boom
    END IF
    exitBattle:
    CLS
    CALL PrintGrid
END SUB
 
SUB P
    'used for debugging
    pause$ = INPUT$(1)
    IF pause$ = CHR$(27) THEN
        PLAY errorBeep
        END
    END IF
END SUB
 
SUB EndOfGame
    COLOR 15, 1
    CLS
    IF shipLog.ships <> 0 THEN
        GOTO won
    ELSE
        GOTO deadAsAdoornail
    END IF
 
    deadAsAdoornail:
    COLOR 15, 1
    CLS
    a$ = "You failed. Your ship exploded without you aborad so you got a second command. And then a third. And still you didn't go down with your ship. You were demoted to assistant janitor of Roger Wilco. Learn something from him. Anyway, here's what your game looked like."
    LOCATE 10
    PRINT LongCenter$(a$)
    PRINT
    PRINT
    lineItUp = GetCenter("total sustained injured damage: ##,###%")
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Final score:                        ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.score
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Moves you made:                     ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.moves
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Espializer 7s destroyed:            ";
    COLOR 14, 1
    PRINT STR$(3 - shipLog.ships)
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total sustained damage:             ";
    COLOR 14, 1
    PRINT USING "##,###%"; shipLog.totalDamage.ship
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total amount of injured crew:       ";
    COLOR 14, 1
    PRINT USING "##,###%"; shipLog.totalDamage.medical
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "People rescued from disbaled ships: ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalSurvivorsSaved
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Medical kits used:                  ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalMedSupply
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Enemy ships destroyed:              ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.enemiesDestroyed
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total morale accumulated:           ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalMorale
    LOCATE 45, GetCenter("Hit any key")
    COLOR 15, 1
    PRINT "Hit any key"
    pause$ = INPUT$(1)
    addHighScore = TRUE
    CALL HighScores(addHighScore)
    CALL MainMenu
 
    won:
    COLOR 13, 11
    CLS
    a$ = "Congratualtions!! You have defeated the Sarien fleet."
    LOCATE 10, GetCenter(a$)
    PRINT a$
    PRINT
    COLOR 10, 11
    a$ = "Here's what your game looked like."
    LOCATE , GetCenter(a$)
    PRINT a$
    PRINT
    PRINT
    lineItUp = GetCenter("total sustained injured damage: ##,###%")
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Final score:                        ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.score
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Moves you made:                     ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.moves
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Espializer 7s destroyed:            ";
    COLOR 14, 1
    PRINT USING "##,###"; 2 - shipLog.ships
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total sustained damage:             ";
    COLOR 14, 1
    PRINT USING "##,###%"; shipLog.totalDamage.ship
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total amount of injured crew:       ";
    COLOR 14, 1
    PRINT USING "##,###%"; shipLog.totalDamage.medical
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "People rescued from disbaled ships: ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalSurvivorsSaved
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Medical kits used:                  ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalMedSupply
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Enemy ships destroyed:              ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.enemiesDestroyed
    COLOR 15, 1
    LOCATE , lineItUp
    PRINT "Total morale accumulated:           ";
    COLOR 14, 1
    PRINT USING "##,###"; shipLog.totalMorale
    LOCATE 45, GetCenter("Hit any key")
    COLOR 15, 1
    PRINT "Hit any key"
    pause$ = INPUT$(1)
    addHighScore = TRUE
    CALL HighScores(addHighScore)
    CALL MainMenu
 
    endEndOfGameSUB:
    COLOR 0, 0
    CLS
    CALL PrintGrid
END SUB
 
SUB HighScores (addOneToTheList)
    IF _FILEEXISTS("GGScores.txt") = 0 THEN
        OPEN "GGScores.txt" FOR OUTPUT AS #1
        PRINT #1, "              NAME                                 SCORE            Moves "
        PRINT #1, "             ------                               -------          -------"
        PRINT #1, "1.       Jimmy McAskill                           10,240            1,240 "
        PRINT #1, "2.       Tom Hazel                                 5,120              512 "
        PRINT #1, "3.       Tony Vizcarrondo                          2,560              256 "
        PRINT #1, "4.       Andrea Thompson                           1,280              128 "
        PRINT #1, "5.       Frank Smith                                 640               64 "
        PRINT #1, "6.       Lynette Blood                               320               32 "
        PRINT #1, "7.       Michelle Landry                             160               16 "
        PRINT #1, "8.       Justin Dilisio                               80                8 "
        PRINT #1, "9.       Ryan Sherriff                                40                4 "
        PRINT #1, "10.      No One Special                               -1                2 "
        PRINT #1, "EOF"
        CLOSE #1
    END IF
    DIM listOfScores$(1 TO 10)
    IF addOneToTheList = TRUE THEN
        GOTO addAscore
    ELSE
        GOTO viewScores
    END IF
 
    addAscore:
    OPEN "GGScores.txt" FOR INPUT AS #1
    LINE INPUT #1, labels$
    LINE INPUT #1, hyphens$
    FOR count = 1 TO 10
        LINE INPUT #1, listOfScores$(count)
    NEXT count
    CLOSE #1
    DIM name$(1 TO 10)
    DIM scores(1 TO 10) AS INTEGER
    DIM move(1 TO 10) AS INTEGER
    FOR count = 1 TO 10
        name$(count) = RTRIM$(MID$(listOfScores$(count), 10, 40))
        leftInt = VAL(MID$(listOfScores$(count), 51, 2))
        rightInt = VAL(MID$(listOfScores$(count), 54, 3))
        scores(count) = (leftInt * 1000) + rightInt
        leftInt = VAL(MID$(listOfScores$(count), 68, 2))
        rightInt = VAL(MID$(listOfScores$(count), 71, 3))
        move(count) = (leftInt * 1000) + rightInt
    NEXT count
    madeTheList = FALSE
    IF shipLog.score >= scores(10) THEN
        GOTO madeList
    ELSE
        GOTO viewScores
    END IF
 
    madeList:
    madeTheList = TRUE
    rank = 1
    DO
        IF shipLog.score < scores(rank) THEN rank = rank + 1
    LOOP UNTIL shipLog.score >= scores(rank)
    FOR moveThemDown = 9 TO rank STEP -1
        scores(moveThemDown + 1) = scores(moveThemDown)
        name$(moveThemDown + 1) = name$(moveThemDown)
        move(moveThemDown + 1) = move(moveThemDown)
    NEXT moveThemDown
    scores(rank) = shipLog.score
    COLOR 10, 13
    CLS
    COLOR 26, 13
    a$ = "CONGRATULATIONS!!"
    LOCATE 17, GetCenter(a$)
    PRINT a$
    COLOR 10
    a$ = "You made the top ten list of scores!"
    LOCATE 20, GetCenter(a$)
    PRINT a$
    PRINT
    PRINT
    PRINT
    INPUT "What is your name"; nm$
    name$(rank) = nm$
    move(rank) = shipLog.moves
 
    DIM lineToOutput$(1 TO 10)
    FOR makeThem = 1 TO 10
        lineToOutput$(makeThem) = LTRIM$(STR$(makeThem)) + "."
        IF makeThem < 10 THEN lineToOutput$(makeThem) = lineToOutput$(makeThem) + " "
        lineToOutput$(makeThem) = lineToOutput$(makeThem) + STRING$(6, " ")
        IF LEN(name$(makeThem)) > 30 THEN name$(makeThem) = LEFT$(name$(makeThem), 30)
        nm$ = name$(makeThem) + STRING$(30 - LEN(name$(makeThem)), " ")
        lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
        IF scores(makeThem) > 999 THEN
            leftInt = INT(scores(makeThem) / 1000)
            nm$ = LTRIM$(STR$(leftInt)) + ","
            IF leftInt < 10 THEN nm$ = " " + nm$
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
            rightInt = scores(makeThem) - (leftInt * 1000)
            nm$ = LTRIM$(STR$(rightInt))
            IF rightInt < 100 AND rightInt >= 10 THEN
                nm$ = "0" + nm$
            ELSEIF rightInt < 10 AND rightInt > 1 THEN
                nm$ = "00" + nm$
            ELSEIF rightInt >= 100 THEN
                nm$ = nm$
            ELSE
                nm$ = "000"
            END IF
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
        ELSE
            leftInt = 0
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + "   "
            nm$ = LTRIM$(STR$(scores(makeThem)))
            IF scores(makeThem) < 100 AND scores(makeThem) >= 10 THEN
                nm$ = " " + nm$
            ELSEIF scores(makeThem) < 10 THEN
                nm$ = nm$
            END IF
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
 
        END IF
        lineToOutput$(makeThem) = lineToOutput$(makeThem) + STRING$(10, " ")
        IF move(makeThem) > 999 THEN
            leftInt = INT(move(makeThem) / 1000)
            nm$ = LTRIM$(STR$(leftInt)) + ","
            IF leftInt < 10 THEN nm$ = " " + nm$
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
            rightInt = move(makeThem) - (leftInt * 1000)
            nm$ = LTRIM$(STR$(rightInt))
            IF rightInt < 100 AND rightInt >= 10 THEN
                nm$ = "0" + nm$
            ELSEIF rightInt < 10 AND rightInt > 1 THEN
                nm$ = "00" + nm$
            ELSEIF rightInt >= 100 THEN
                nm$ = nm$
            ELSE
                nm$ = "000"
            END IF
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
        ELSE
            leftInt = 0
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + "   "
            nm$ = LTRIM$(STR$(move(makeThem)))
            IF move(makeThem) < 100 AND move(makeThem) >= 10 THEN
                nm$ = " " + nm$
            ELSEIF move(makeThem) < 10 THEN
                nm$ = "  " + nm$
            END IF
            lineToOutput$(makeThem) = lineToOutput$(makeThem) + nm$
        END IF
    NEXT makeThem
    OPEN "GGScores.txt" FOR OUTPUT AS #1
    PRINT #1, " Rank         NAME                      SCORE           Moves "
    PRINT #1, "------       ------                    -------         -------"
    FOR cnt = 1 TO 10
        PRINT #1, lineToOutput$(cnt)
    NEXT cnt
    CLOSE #1
 
    viewScores:
    COLOR 11, 13
    CLS
    OPEN "GGScores.txt" FOR INPUT AS #1
    LINE INPUT #1, label$
    LINE INPUT #1, hyphens$
    LOCATE 14, GetCenter(label$)
    PRINT label$
    LOCATE 15, GetCenter(hyphens$)
    PRINT hyphens$
    FOR cnt = 1 TO 10
        LINE INPUT #1, listOfScores$(cnt)
        IF listOfScores$(cnt) = "EOF" THEN EXIT FOR
        LOCATE 15 + cnt, GetCenter(listOfScores$(cnt))
        IF madeTheList = TRUE THEN
            IF cnt = rank THEN
                COLOR 26, 13
            ELSE
                COLOR 11, 13
            END IF
        END IF
        PRINT listOfScores$(cnt)
    NEXT cnt
    CLOSE #1
    PRINT
    PRINT "Push any key to continue or Escape to end."
    CALL P
    CALL MainMenu
END SUB
 
SUB Instruct
    COLOR 15, 0
    CLS
    a$ = "Use the arrow keys to move. You command the"
    c$ = "Espializer 7, the Flagship of the Wifrans."
    b$ = "On the Galaxy Grid you are represented by G."
    LOCATE 14, GetCenter(a$)
    PRINT a$
    LOCATE 15, GetCenter(c$)
    PRINT c$
    LOCATE 16, GetCenter(b$)
    PRINT "On the Galaxy Grid you are represented by ";
    COLOR esplzr.clr, 0
    PRINT CHR$(esplzr.code);
    COLOR 15, 0
    PRINT "."
    a$ = "You begin at the top left of the screen. The top left (x, y)"
    b$ = "coordinates are 1, 1. The bottom right is 80, 45"
    LOCATE 18, GetCenter(a$)
    PRINT a$
    LOCATE 19, GetCenter(b$)
    PRINT b$
    a$ = "Visiting the informants (o) is recommended."
    LOCATE 22, GetCenter(a$)
    PRINT "Visiting the informants (";
    COLOR informant.clr
    PRINT CHR$(informant.code);
    COLOR 15, 0
    PRINT ") is recommended."
    a$ = "There is an optional 10 question multiple choice quiz on the"
    b$ = "information they give. Push [SPACEBAR] to take the quiz."
    LOCATE 23, GetCenter(a$)
    PRINT a$
    LOCATE 24, GetCenter(b$)
    PRINT b$
    PRINT
    PRINT
    PRINT LongCenter("Your goal is to locate and destroy the Sarien Fleet. In order to win, you must defeat all of the ships in the fleet. There are also lone Sarien ships you may engage for a higher score. You can visit Space Stations to repair damage to your ship and heal your injured crewmates.")
 
 
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    PRINT
    LOCATE , GetCenter("Push any key to continue or [ESC] to end.")
    PRINT "Push any key to continue or [ESC] to end."
    CALL P
    CALL MainMenu
END SUB
 
SUB MainMenu
    COLOR 11, 1
    CLS
    IF beenToMenu = 0 THEN _DELAY (1)
    IF beenToMenu = 0 THEN
        PLAY "MBL60O1CDEFGABO2CDEFGAB"
    END IF
    titleString$ = "The Galaxy Grid"
    FOR counting = 1 TO LEN(titleString$)
        LOCATE 12, 27 + counting
        PRINT MID$(titleString$, counting, 1)
        LOCATE 13, 27 + counting
        PRINT "-"
        IF beenToMenu = 0 THEN _DELAY 0.04
    NEXT counting
    PRINT
    COLOR 15, 1
    PRINT
    PRINT
    IF beenToMenu = 0 THEN _DELAY 0.2
    wrongNumber:
    LOCATE 16, 1
    PRINT "                           1.  Dedication"
    PRINT
    PRINT "                           2.  Instructions"
    PRINT
    PRINT "                           3.  Start a New Game"
    PRINT
    IF gameInProgress = 0 THEN COLOR 7, 1
    PRINT "                           4.  Save Current Game"
    COLOR 15, 1
    PRINT
    PRINT "                           5.  Load Saved Game"
    COLOR 15, 1
    PRINT
    IF gameInProgress = 0 THEN COLOR 7, 1
    PRINT "                           6.  Return to Game"
    COLOR 15, 1
    PRINT
    PRINT "                           7.  View High Scores"
    PRINT
    PRINT "                           8.  End"
    PRINT
    PRINT
    PRINT
    PLAY "L30O3F"
    DO
        LOCATE 24
        ch$ = INPUT$(1)
        z = VAL(ch$)
        IF gameInProgress = 0 THEN
            IF z = 1 OR z = 2 OR z = 3 OR z = 5 OR z = 7 THEN
                PLAY selectionBeep
                GOTO implementCommand
            ELSEIF z = 4 OR z = 6 THEN
                PLAY errorBeep
            END IF
        ELSE
            IF z >= 1 AND z <= 8 THEN GOTO implementCommand
            PLAY selectionBeep
        END IF
        implementCommand:
        beenToMenu = 1
        SELECT CASE ch$
            CASE "2" '       Instructions
                CALL Instruct
            CASE "3" '       New Game
                IF gameInProgress = 0 THEN
 
                    CALL PlayGalaxyGrid("N")
                ELSE
                    CALL PlayGalaxyGrid("Y")
                END IF
            CASE "4" '        Save Current Game
                IF gameInProgress = 1 THEN CALL SaveGame
            CASE "5" '        Load
                CALL LoadSavedGame
            CASE "6" '        Return to Current Game
                IF gameInProgress = 1 THEN
                    COLOR 15, 0
                    CLS
                    CALL PlayGalaxyGrid("Y")
                END IF
            CASE "7" '        See Scores
                CALL HighScores(FALSE)
            CASE "1" '        Dedication
                CALL Dedication
            CASE "8" '        END
                PLAY errorBeep
                END
        END SELECT
    LOOP UNTIL ch$ = "8"
END SUB
 
SUB Success
    PLAY successBeep
    COLOR 14, 1
    CLS
    x = 1
    y = 1
    l$ = CHR$(219)
    COLOR 4, 1
    GOSUB makeAnS
    l$ = t$
    COLOR 6, 1
    GOSUB makeAu
    x = 23
    y = 1
    COLOR 14, 1
    l$ = t$
    GOSUB makeAc
    x = 34
    y = 5
    COLOR 10, 1
    l$ = t$
    GOSUB makeAc
    l$ = t$
    COLOR 11, 1
    GOSUB makeAnE
    x = 56
    y = 5
    l$ = CHR$(219)
    COLOR 5, 1
    GOSUB makeAnS
    x = 67
    y = 1
    l$ = CHR$(219)
    COLOR 12, 1
    GOSUB makeAnS
    GOTO done
    makeAnS:
    CALL VerticalLine(y + 5, y + 10, x, l$)
    CALL VerticalLine(y + 34, y + 36, x, l$)
    CALL VerticalLine(y + 4, y + 7, x + 1, l$)
    CALL VerticalLine(y + 4, y + 7, x + 2, l$)
    CALL VerticalLine(y + 9, y + 13, x + 1, l$)
    CALL VerticalLine(y + 10, y + 13, x + 2, l$)
    CALL VerticalLine(y + 34, y + 38, x + 1, l$)
    CALL VerticalLine(y + 36, y + 38, x + 2, l$)
    CALL Plot(x + 1, y + 37, l$)
    CALL Plot(x + 2, y + 3, l$)
    CALL Plot(x + 3, y + 3, l$)
    CALL Plot(x + 2, y + 2, l$)
    CALL VerticalLine(y + 14, y + 16, x + 2, l$)
    CALL HorizontalLine(x + 2, x + 5, y + 39, l$)
    CALL Plot(x + 5, y + 38, l$)
    CALL Plot(x + 3, y + 38, l$)
    CALL HorizontalLine(x + 3, x + 7, y + 1, l$)
    CALL HorizontalLine(x + 3, x + 7, y + 2, l$)
    CALL Plot(x + 7, y + 3, l$)
    CALL VerticalLine(y + 14, y + 17, x + 3, l$)
    CALL Plot(x + 4, y + 16, l$)
    CALL Plot(x + 1, y + 8, l$)
    CALL VerticalLine(y + 17, y + 19, x + 4, l$)
    CALL VerticalLine(y + 17, y + 20, x + 5, l$)
    CALL VerticalLine(y + 19, y + 21, x + 6, l$)
    CALL VerticalLine(y + 36, y + 38, x + 6, l$)
    CALL VerticalLine(y + 21, y + 23, x + 7, l$)
    CALL VerticalLine(y + 33, y + 37, x + 7, l$)
    CALL Plot(x + 8, y + 2, l$)
    CALL Plot(x + 8, y + 3, l$)
    CALL VerticalLine(y + 22, y + 26, x + 8, l$)
    CALL VerticalLine(y + 31, y + 35, x + 8, l$)
    CALL VerticalLine(y + 4, y + 5, x + 8, l$)
    CALL VerticalLine(y + 4, y + 5, x + 9, l$)
    CALL VerticalLine(y + 24, y + 32, x + 9, l$)
    RETURN
 
    makeAu:
    CALL VerticalLine(7, 17, 12, l$)
    CALL VerticalLine(7, 17, 13, l$)
    CALL VerticalLine(7, 17, 21, l$)
    CALL VerticalLine(7, 17, 20, l$)
    CALL VerticalLine(18, 39, 13, l$)
    CALL VerticalLine(18, 39, 14, l$)
    CALL VerticalLine(18, 39, 19, l$)
    CALL VerticalLine(18, 39, 20, l$)
    CALL VerticalLine(40, 43, 14, l$)
    CALL VerticalLine(40, 43, 19, l$)
    CALL HorizontalLine(15, 18, 44, l$)
    CALL Plot(15, 42, l$)
    CALL Plot(18, 42, l$)
    CALL HorizontalLine(15, 18, 43, l$)
    RETURN
 
    makeAc:
    CALL Plot(x + 2, y + 7, l$)
    CALL Plot(x + 3, y + 6, l$)
    CALL VerticalLine(y + 8, y + 32, x, l$)
    CALL VerticalLine(y + 6, y + 35, x + 1, l$)
    CALL VerticalLine(y + 6, y + 10, x + 1, l$)
    CALL VerticalLine(y + 31, y + 34, x + 1, l$)
    CALL VerticalLine(y + 4, y + 6, x + 2, l$)
    CALL VerticalLine(y + 4, y + 6, x + 3, l$)
    CALL VerticalLine(y + 33, y + 38, x + 2, l$)
    CALL Plot(x + 3, y + 3, l$)
    CALL Plot(x + 3, y + 38, l$)
    CALL Plot(x + 3, y + 37, l$)
    CALL Plot(x + 3, y + 36, l$)
    CALL HorizontalLine(x + 4, x + 8, y + 2, l$)
    CALL HorizontalLine(x + 4, x + 8, y + 3, l$)
    CALL HorizontalLine(x + 4, x + 8, y + 39, l$)
    CALL Plot(x + 4, y + 37, l$)
    CALL HorizontalLine(x + 4, x + 8, y + 38, l$)
    CALL Plot(x + 9, y + 3, l$)
    CALL Plot(x + 9, y + 38, l$)
    RETURN
 
    makeAnE:
    CALL VerticalLine(3, 40, 45, l$)
    CALL VerticalLine(3, 40, 46, l$)
    CALL HorizontalLine(45, 54, 3, l$)
    CALL HorizontalLine(45, 54, 4, l$)
    CALL HorizontalLine(45, 52, 21, l$)
    CALL HorizontalLine(45, 53, 22, l$)
    CALL HorizontalLine(45, 54, 40, l$)
    CALL HorizontalLine(45, 54, 39, l$)
    RETURN
 
    done:
    _DELAY (2)
    COLOR 0, 0
    CLS
END SUB
 
 
FUNCTION SarienWillHit (goodGuysX, goodGuysY, badX, badY, badOrientation$)
    SELECT CASE badOrientation$
        CASE "N"
            IF goodGuysX - 3 < badX AND badX < goodGuysX + 3 AND badY > goodGuysY THEN
                rtn = TRUE
            ELSE
                rtn = FALSE
            END IF
        CASE "S"
            IF goodGuysX - 3 < badX AND badX < goodGuysX + 3 AND badY < goodGuysY THEN
                rtn = TRUE
            ELSE
                rtn = FALSE
            END IF
        CASE "E"
            IF goodGuysY - 3 < badY AND badY < goodGuysY AND badX < goodGuysX THEN
                rtn = TRUE
            ELSE
                rtn = FALSE
            END IF
        CASE "W"
            IF goodGuysY - 3 < badY AND badY < goodGuysY AND badX > goodGuysX THEN
                rtn = TRUE
            ELSE
                rtn = FALSE
            END IF
    END SELECT
    SarienWillHit = rtn
END FUNCTION
 
FUNCTION IsEnemyHit (bulletX, bulletY, enemyX, enemyY, enemyOrientation$)
    SELECT CASE enemyOrientation$
        CASE "N"
            IF bulletX = enemyX - 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX AND bulletY = enemyY - 1 THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX + 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSE
                enemyIsHit = FALSE
            END IF
        CASE "W"
            IF bulletX = enemyX AND bulletY = enemyY - 1 THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX - 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX AND bulletY = enemyY + 1 THEN
                enemyIsHit = TRUE
            ELSE
                enemyIsHit = FALSE
            END IF
        CASE "S"
            IF bulletX = enemyX - 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX AND bulletY = enemyY + 1 THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX + 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSE
                enemyIsHit = FALSE
            END IF
        CASE "E"
            IF bulletX = enemyX AND bulletY = enemyY - 1 THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX + 1 AND bulletY = enemyY THEN
                enemyIsHit = TRUE
            ELSEIF bulletX = enemyX AND bulletY = enemyY + 1 THEN
                enemyIsHit = TRUE
            ELSE
                enemyIsHit = FALSE
            END IF
    END SELECT
    IsEnemyHit = enemyIsHit
END FUNCTION
 
FUNCTION LocationGood (wifranEspializer7x, wifranEspializer7y, badGuysX, badGuysY)
    wifLeftBorder = wifranEspializer7x - 30
    wifTopBorder = wifranEspializer7y - 20
    wifRightBorder = wifranEspializer7x + 30
    wifBottomBorder = wifranEspializer7y + 20
    IF wifLeftBorder < badGuysX AND badGuysX < wifRightBorder AND wifTopBorder < badGuysY AND badGuysY < wifBottomBorder THEN
        placementOK = FALSE
    ELSE
        placementOK = TRUE
    END IF
    LocationGood = placementOK
END FUNCTION
 
SUB WaitForCharacter (character$)
    DO
        readCharacter$ = INKEY$
        character$ = UCASE$(character$)
        readCharacter$ = UCASE$(readCharacter$)
    LOOP UNTIL readCharacter$ = character$
END SUB
 
FUNCTION GetCenter (text$)
    GetCenter = (80 - LEN(text$)) / 2
END FUNCTION
 
SUB UseWormHole
    DIM startingHole AS coordinate
    startingHole.x = Espializer7.x
    startingHole.y = Espializer7.y
    wormHoleLetter$ = CHR$(grid(Espializer7.x, Espializer7.y, 1))
    FOR findingX = 1 TO 80
        FOR findingY = 1 TO 45
            IF grid(findingX, findingY, 1) = ASC(wormHoleLetter$) THEN
                IF NOT (startingHole.x = findingX AND startingHole.y = findingY) THEN
                    newX = findingX
                    newY = findingY
                END IF
            END IF
        NEXT findingY
    NEXT findingX
 
    GOSUB drawCircles
    CALL DrawEspializer7("N", 41, 44, FALSE) ' true / false whether to erase the ship.
    COLOR 10, 0
    LOCATE 1, 1
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT " to move the"
    PRINT "    Espializer 7 into"
    PRINT "      the wormhole."
    CALL WaitForCharacter(" ")
    LOCATE 1, 1
    PRINT "                           "
    PRINT "                     "
    PRINT "                   "
    'move the espializer 7 into the wormhole
    PLAY movingShipBeep$
    FOR yPosition = 44 TO 22 STEP -1
        CALL DrawEspializer7("N", 41, yPosition, FALSE)
        _DELAY (movingShipDelay * 2)
        IF yPosition MOD (movingShipMod / 2) = 0 THEN PLAY movingShipBeep$
        CALL DrawEspializer7("N", 41, yPosition, TRUE)
        GOSUB drawCircles
    NEXT yPosition
 
    CALL DrawEspializer7("S", 41, yPosition, TRUE)
    GOSUB drawCircles
    _DELAY (hailDelay / 2)
 
 
    'set the espializer at the new hole
    Espializer7.x = newX
    Espializer7.y = newY
    LOCATE 1, 1
    COLOR 15, 0
    CALL DrawEspializer7("S", 41, 22, FALSE)
    PLAY movingShipBeep$
    FOR yPosition = 22 TO 44
        CALL DrawEspializer7("S", 41, yPosition, FALSE)
        _DELAY (movingShipDelay * 2)
        IF yPosition MOD (movingShipMod / 2) = 0 THEN PLAY movingShipBeep$
        CALL DrawEspializer7("S", 41, yPosition, TRUE)
        GOSUB drawCircles
    NEXT yPosition
    LOCATE 1, 1
    PRINT "                        "
    PRINT "                  "
    PRINT "                    "
    COLOR 10, 0
    LOCATE 1, 1
    PRINT "Push ";
    COLOR 14, 0
    PRINT CHR$(34) + "R" + CHR$(34);
    COLOR 10, 0
    PRINT " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 10, 0
    PRINT "eturn"
    PRINT "to the Galaxy Grid at"
    PRINT "coordinates (";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(Espializer7.x));
    COLOR 10, 0
    PRINT ", ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(Espializer7.y));
    COLOR 10, 0
    PRINT ")"
    CALL WaitForCharacter("r")
    GOTO endWormHoleSUB
 
    drawCircles:
    COLOR 13, 0
    ' outer most circle
    CALL HorizontalLine(36, 44, 1, t$)
    CALL HorizontalLine(33, 35, 2, t$)
    CALL HorizontalLine(30, 32, 3, t$)
    CALL HorizontalLine(28, 29, 4, t$)
    CALL HorizontalLine(26, 27, 5, t$)
    CALL HorizontalLine(24, 25, 6, t$)
    CALL Plot(23, 7, t$)
    CALL Plot(22, 8, t$)
    CALL VerticalLine(9, 10, 21, t$)
    CALL Plot(20, 11, t$)
    CALL VerticalLine(12, 13, 19, t$)
    CALL VerticalLine(14, 15, 18, t$)
    CALL VerticalLine(16, 18, 17, t$)
    CALL VerticalLine(19, 30, 16, t$)
    CALL VerticalLine(31, 33, 17, t$)
    CALL VerticalLine(34, 35, 18, t$)
    CALL VerticalLine(36, 37, 19, t$)
    CALL Plot(20, 38, t$)
    CALL VerticalLine(39, 40, 21, t$)
    CALL Plot(22, 41, t$)
    CALL Plot(23, 42, t$)
    CALL HorizontalLine(24, 25, 43, t$)
    CALL HorizontalLine(26, 27, 44, t$)
    CALL HorizontalLine(28, 29, 45, t$)
    CALL HorizontalLine(30, 32, 46, t$)
    CALL HorizontalLine(33, 35, 47, t$)
    CALL HorizontalLine(36, 44, 48, t$)
    CALL HorizontalLine(45, 47, 2, t$)
    CALL HorizontalLine(48, 50, 3, t$)
    CALL HorizontalLine(51, 52, 4, t$)
    CALL HorizontalLine(53, 54, 5, t$)
    CALL HorizontalLine(55, 56, 6, t$)
    CALL Plot(57, 7, t$)
    CALL Plot(58, 8, t$)
    CALL VerticalLine(9, 10, 59, t$)
    CALL Plot(60, 11, t$)
    CALL VerticalLine(12, 13, 61, t$)
    CALL VerticalLine(14, 15, 62, t$)
    CALL VerticalLine(16, 18, 63, t$)
    CALL VerticalLine(19, 30, 64, t$)
    CALL VerticalLine(31, 33, 63, t$)
    CALL VerticalLine(34, 35, 62, t$)
    CALL VerticalLine(36, 37, 61, t$)
    CALL Plot(60, 38, t$)
    CALL VerticalLine(39, 40, 59, t$)
    CALL Plot(58, 41, t$)
    CALL Plot(57, 42, t$)
    CALL HorizontalLine(55, 56, 43, t$)
    CALL HorizontalLine(53, 54, 44, t$)
    CALL HorizontalLine(51, 52, 45, t$)
    CALL HorizontalLine(48, 50, 46, t$)
    CALL HorizontalLine(45, 47, 47, t$)
 
    'Second circle
    CALL HorizontalLine(38, 44, 6, t$) 'top
    CALL HorizontalLine(38, 44, 43, t$) 'bottom
    CALL HorizontalLine(34, 37, 7, t$)
    CALL HorizontalLine(34, 37, 42, t$)
    CALL HorizontalLine(45, 48, 42, t$)
    CALL HorizontalLine(45, 48, 7, t$)
    CALL HorizontalLine(32, 33, 8, t$)
    CALL HorizontalLine(49, 50, 8, t$)
    CALL HorizontalLine(32, 33, 41, t$)
    CALL HorizontalLine(49, 50, 41, t$)
    CALL Plot(31, 9, t$)
    CALL Plot(51, 9, t$)
    CALL Plot(31, 40, t$)
    CALL Plot(51, 40, t$)
    CALL HorizontalLine(29, 30, 10, t$)
    CALL HorizontalLine(52, 53, 10, t$)
    CALL HorizontalLine(29, 30, 39, t$)
    CALL HorizontalLine(52, 53, 39, t$)
    CALL Plot(28, 11, t$)
    CALL Plot(54, 11, t$)
    CALL Plot(28, 38, t$)
    CALL Plot(54, 38, t$)
    CALL Plot(27, 12, t$)
    CALL Plot(55, 12, t$)
    CALL Plot(27, 37, t$)
    CALL Plot(55, 37, t$)
    CALL VerticalLine(13, 14, 26, t$)
    CALL VerticalLine(13, 14, 56, t$)
    CALL VerticalLine(35, 36, 26, t$)
    CALL VerticalLine(35, 36, 56, t$)
    CALL VerticalLine(15, 16, 25, t$)
    CALL VerticalLine(15, 16, 57, t$)
    CALL VerticalLine(33, 34, 25, t$)
    CALL VerticalLine(33, 34, 57, t$)
    CALL VerticalLine(17, 18, 24, t$)
    CALL VerticalLine(17, 18, 58, t$)
    CALL VerticalLine(31, 32, 24, t$)
    CALL VerticalLine(31, 32, 58, t$)
    CALL VerticalLine(19, 22, 23, t$)
    CALL VerticalLine(19, 22, 59, t$)
    CALL VerticalLine(27, 30, 23, t$)
    CALL VerticalLine(27, 30, 59, t$)
    CALL VerticalLine(23, 26, 22, t$)
    CALL VerticalLine(23, 26, 60, t$)
 
    'Third circle
    CALL HorizontalLine(39, 43, 11, t$) 'top
    CALL HorizontalLine(39, 43, 38, t$) 'bottom
    CALL HorizontalLine(36, 38, 12, t$)
    CALL HorizontalLine(44, 46, 12, t$)
    CALL HorizontalLine(36, 38, 37, t$)
    CALL HorizontalLine(44, 46, 37, t$)
    CALL HorizontalLine(34, 35, 13, t$)
    CALL HorizontalLine(47, 48, 13, t$)
    CALL HorizontalLine(34, 35, 36, t$)
    CALL HorizontalLine(47, 48, 36, t$)
    CALL Plot(33, 14, t$)
    CALL Plot(49, 14, t$)
    CALL Plot(33, 35, t$)
    CALL Plot(49, 35, t$)
    CALL Plot(32, 15, t$)
    CALL Plot(50, 15, t$)
    CALL Plot(32, 34, t$)
    CALL Plot(50, 34, t$)
    CALL Plot(31, 16, t$)
    CALL Plot(51, 16, t$)
    CALL Plot(31, 33, t$)
    CALL Plot(51, 33, t$)
    CALL Plot(30, 17, t$)
    CALL Plot(52, 17, t$)
    CALL Plot(30, 32, t$)
    CALL Plot(52, 32, t$)
    CALL VerticalLine(18, 19, 29, t$)
    CALL VerticalLine(18, 19, 53, t$)
    CALL VerticalLine(30, 31, 29, t$)
    CALL VerticalLine(30, 31, 53, t$)
    CALL VerticalLine(20, 22, 28, t$)
    CALL VerticalLine(20, 22, 54, t$)
    CALL VerticalLine(27, 29, 28, t$)
    CALL VerticalLine(27, 29, 54, t$)
    CALL VerticalLine(23, 26, 27, t$)
    CALL VerticalLine(23, 26, 55, t$)
 
    'inner most circle
    CALL HorizontalLine(39, 44, 16, t$)
    CALL HorizontalLine(39, 44, 34, t$)
    CALL HorizontalLine(37, 38, 17, t$)
    CALL HorizontalLine(45, 46, 17, t$)
    CALL HorizontalLine(37, 38, 33, t$)
    CALL HorizontalLine(45, 46, 33, t$)
    CALL HorizontalLine(35, 36, 18, t$)
    CALL HorizontalLine(47, 48, 18, t$)
    CALL HorizontalLine(35, 36, 32, t$)
    CALL HorizontalLine(47, 48, 32, t$)
    CALL VerticalLine(19, 22, 34, t$)
    CALL VerticalLine(19, 22, 49, t$)
    CALL VerticalLine(28, 31, 34, t$)
    CALL VerticalLine(28, 31, 49, t$)
    CALL Plot(33, 23, t$)
    CALL Plot(50, 23, t$)
    CALL Plot(33, 27, t$)
    CALL Plot(50, 27, t$)
    CALL VerticalLine(24, 26, 32, t$)
    CALL VerticalLine(24, 26, 51, t$)
    RETURN
 
    endWormHoleSUB:
    PLAY returnBeep
    COLOR 0, 0
    CLS
    CALL PrintGrid
END SUB
 
SUB DrawEspializer7 (direction$, centerX, centerY, eraseShip)
    SELECT CASE direction$
        CASE "N"
            IF eraseShip = FALSE THEN
                COLOR 9, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL VerticalLine(centerY, centerY + 4, centerX - 3, t$)
            CALL VerticalLine(centerY, centerY + 4, centerX + 3, t$)
            IF eraseShip = FALSE THEN
                COLOR 15, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL VerticalLine(centerY - 2, centerY, centerX - 2, t$)
            CALL VerticalLine(centerY - 2, centerY, centerX + 2, t$)
            CALL VerticalLine(centerY - 3, centerY - 1, centerX - 1, t$)
            CALL VerticalLine(centerY - 3, centerY - 1, centerX + 1, t$)
            CALL VerticalLine(centerY - 4, centerY - 1, centerX, t$)
        CASE "S"
            IF eraseShip = FALSE THEN
                COLOR 9, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL VerticalLine(centerY - 4, centerY, centerX - 3, t$)
            CALL VerticalLine(centerY - 4, centerY, centerX + 3, t$)
            IF eraseShip = FALSE THEN
                COLOR 15, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL VerticalLine(centerY, centerY + 2, centerX - 2, t$)
            CALL VerticalLine(centerY, centerY + 2, centerX + 2, t$)
            CALL VerticalLine(centerY + 1, centerY + 3, centerX - 1, t$)
            CALL VerticalLine(centerY + 1, centerY + 3, centerX + 1, t$)
            CALL VerticalLine(centerY + 1, centerY + 4, centerX, t$)
        CASE "E"
            IF eraseShip = FALSE THEN
                COLOR 9, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL HorizontalLine(centerX - 4, centerX, centerY - 3, t$)
            CALL HorizontalLine(centerX - 4, centerX, centerY + 3, t$)
            IF eraseShip = FALSE THEN
                COLOR 15, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL HorizontalLine(centerX, centerX + 2, centerY - 2, t$)
            CALL HorizontalLine(centerX, centerX + 2, centerY + 2, t$)
            CALL HorizontalLine(centerX + 1, centerX + 3, centerY - 1, t$)
            CALL HorizontalLine(centerX + 1, centerX + 3, centerY + 1, t$)
            CALL HorizontalLine(centerX + 1, centerX + 4, centerY, t$)
        CASE "W"
            IF eraseShip = FALSE THEN
                COLOR 9, 0
            ELSE
                COLOR 0, 0
            END IF
            CALL HorizontalLine(centerX, centerX + 4, centerY - 3, t$)
            CALL HorizontalLine(centerX, centerX + 4, centerY + 3, t$)
            IF eraseShip = FALSE THEN
                COLOR 15, 0
            ELSE COLOR 0, 0
            END IF
            CALL HorizontalLine(centerX - 2, centerX, centerY - 2, t$)
            CALL HorizontalLine(centerX - 2, centerX, centerY + 2, t$)
            CALL HorizontalLine(centerX - 3, centerX - 1, centerY - 1, t$)
            CALL HorizontalLine(centerX - 3, centerX - 1, centerY + 1, t$)
            CALL HorizontalLine(centerX - 4, centerX - 1, centerY, t$)
    END SELECT
END SUB
 
SUB HorizontalLine (starting, ending, vertical, character$)
    FOR drawing = starting TO ending
        LOCATE vertical, drawing
        PRINT character$
    NEXT drawing
END SUB
 
SUB VerticalLine (starting, ending, horizontal, character$)
    FOR drawing = starting TO ending
        LOCATE drawing, horizontal
        PRINT character$
    NEXT drawing
END SUB
 
SUB Plot (horizontal, vertical, character$)
    LOCATE vertical, horizontal
    PRINT character$
END SUB
 
SUB PlayGalaxyGrid (loadYN$)
    gameInProgress = TRUE
    tabPushed = 0
    IF loadYN$ = "N" THEN
        CALL SetGameElements
    ELSE
        CALL PrintGrid
    END IF
    pauseExecution = TRUE
    DO
        pauseExecution = FALSE
        commandInput$ = INKEY$
        SELECT CASE commandInput$
            CASE CHR$(0) + "H" ' up
                pauseExecution = TRUE
                IF Espializer7.y > 1 THEN
                    COLOR 0, 0
                    LOCATE Espializer7.y, Espializer7.x
                    PRINT t$
                    Espializer7.y = Espializer7.y - 1
                    fleetJumpsWhenThisReaches0 = fleetJumpsWhenThisReaches0 - 1
                    PLAY lowBeep
                    tabPushed = 0
                    shipLog.moves = shipLog.moves + 1
                END IF
            CASE CHR$(0) + "K" ' left
                pauseExecution = TRUE
                COLOR 0, 0
                LOCATE Espializer7.y, Espializer7.x
                PRINT t$
                IF Espializer7.x > 1 THEN
                    Espializer7.x = Espializer7.x - 1
                    fleetJumpsWhenThisReaches0 = fleetJumpsWhenThisReaches0 - 1
                    PLAY lowBeep
                    tabPushed = 0
                    shipLog.moves = shipLog.moves + 1
                END IF
            CASE CHR$(0) + "P" ' down
                pauseExecution = TRUE
                COLOR 0, 0
                LOCATE Espializer7.y, Espializer7.x
                PRINT t$
                IF Espializer7.y < 45 THEN
                    Espializer7.y = Espializer7.y + 1
                    fleetJumpsWhenThisReaches0 = fleetJumpsWhenThisReaches0 - 1
                    PLAY lowBeep
                    tabPushed = 0
                    shipLog.moves = shipLog.moves + 1
                END IF
            CASE CHR$(0) + "M" ' right
                pauseExecution = TRUE
                COLOR 0, 0
                LOCATE Espializer7.y, Espializer7.x
                PRINT t$
                IF Espializer7.x < 80 THEN
                    Espializer7.x = Espializer7.x + 1
                    fleetJumpsWhenThisReaches0 = fleetJumpsWhenThisReaches0 - 1
                    PLAY lowBeep
                    tabPushed = 0
                    shipLog.moves = shipLog.moves + 1
                END IF
            CASE CHR$(27) 'ESC
                COLOR 14, 1
                CLS
                LOCATE 20, 20
                PRINT "Are you sure you want to exit? ";
                definite$ = UCASE$(INPUT$(1))
                IF definite$ = "Y" OR definite$ = CHR$(27) THEN
                    PLAY errorBeep
                    END
                ELSE
                    COLOR 15, 0
                    CLS
                    CALL PrintGrid
                END IF
            CASE CHR$(9) 'TAB
                tabPushed = 1
                PLAY selectionBeep
                SELECT CASE tabToggle
                    CASE 1
                        tabToggle = 2
                    CASE 2
                        tabToggle = 3
                    CASE 3
                        tabToggle = 1
                END SELECT
                CALL PrintGrid
            CASE " "
                IF quizPassed = FALSE THEN CALL MultipleChoice
            CASE "S", "s"
                CALL SaveGame
            CASE "M", "m"
                CALL MainMenu
        END SELECT
        IF pauseExecution = TRUE AND tabPushed = 0 THEN
            IF fleetJumpsWhenThisReaches0 = 0 THEN
                CALL MoveFleet
                max = 40
                min = 20
                jump = INT(RND * (max - min + 1)) + min
                fleetJumpsWhenThisReaches0 = jump
            END IF
            CALL PrintGrid
            SELECT CASE grid(Espializer7.x, Espializer7.y, 1)
                CASE 65, 66, 67, 68, 69, 70, 71, 72, 73, 74
                    COLOR 13, 0
                    CLS
                    CALL UseWormHole
                CASE blackHole.code
                    COLOR 7, 0
                    CLS
                    CALL InsideBlackHole
                CASE wifranColony.code
                    CALL AtWifranColony
                CASE otherPlanet.code
                    CALL VisitPlanet
                CASE sarienShip.code
                    IF grid(Espializer7.x, Espializer7.y, 3) <> 0 THEN CALL Battle(0)
                CASE disabledShip.code
                    IF grid(Espializer7.x, Espializer7.y, 3) <> 0 THEN CALL AidDisabledShip
                CASE Top.code, Bottom.code
                    CALL SpaceStation
                CASE informant.code
                    IF grid(Espializer7.x, Espializer7.y, 3) <> 0 THEN CALL DockForInfo
                CASE sarienFleet.code
                    CALL BattleFleet
            END SELECT
        END IF
        LOCATE
    LOOP
END SUB
 
SUB MoveFleet
    'find the top left coordinate
    x = 0
    y = 0
    FOR locateFleetX = 1 TO 79
        FOR locateFleetY = 1 TO 44
            IF grid(locateFleetX, locateFleetY, 1) = sarienFleet.code THEN
                x = locateFleetX
                y = locateFleetY
                EXIT FOR
            END IF
        NEXT locateFleetY
        IF x <> 0 AND y <> 0 THEN EXIT FOR
    NEXT locateFleetX
 
    willNotFit:
    'find a new place for the fleet
    xTry = RNX
    IF xTry >= 80 THEN xTry = xTry - 1
    yTry = RNY
    IF yTry >= 45 THEN yTry = yTry - 1
    IF grid(xTry, yTry, 1) = 0 AND grid(xTry + 1, yTry, 1) = 0 AND grid(xTry, yTry + 1, 1) = 0 AND grid(xTry + 1, yTry + 1, 1) = 0 THEN
        'reposition the fleet
        grid(xTry, yTry, 1) = sarienFleet.code
        grid(xTry, yTry, 2) = sarienFleet.clr
        grid(xTry, yTry, 3) = grid(x, y, 3)
        grid(xTry + 1, yTry, 1) = sarienFleet.code
        grid(xTry + 1, yTry, 2) = sarienFleet.clr
        grid(xTry + 1, yTry, 3) = grid(x + 1, y, 3)
        grid(xTry, yTry + 1, 1) = sarienFleet.code
        grid(xTry, yTry + 1, 2) = sarienFleet.clr
        grid(xTry, yTry + 1, 3) = grid(x, y + 1, 3)
        grid(xTry + 1, yTry + 1, 1) = sarienFleet.code
        grid(xTry + 1, yTry + 1, 2) = sarienFleet.clr
        grid(xTry + 1, yTry + 1, 3) = grid(x + 1, y + 1, 3)
        'deduct a point or two so the fewer moves the slightly higher score
        shipLog.score = shipLog.score - 1
        'remove the previous fleet location from the grid
        grid(x, y, 1) = 0
        grid(x, y, 2) = 0
        grid(x, y, 3) = 0
        grid(x + 1, y, 1) = 0
        grid(x + 1, y, 2) = 0
        grid(x + 1, y, 3) = 0
        grid(x, y + 1, 1) = 0
        grid(x, y + 1, 2) = 0
        grid(x, y + 1, 3) = 0
        grid(x + 1, y + 1, 1) = 0
        grid(x + 1, y + 1, 2) = 0
        grid(x + 1, y + 1, 3) = 0
    ELSE
        GOTO willNotFit
    END IF
    COLOR 15, 0
    CLS
    CALL PrintGrid
END SUB
 
SUB AtWifranColony
    COLOR 15, 0
    CLS
    'Draw the ocean part of the planet
    COLOR 1
    CALL HorizontalLine(1, 32, 45, CHR$(219))
    CALL HorizontalLine(2, 32, 44, CHR$(219))
    CALL HorizontalLine(3, 33, 43, CHR$(219))
    CALL HorizontalLine(4, 33, 42, CHR$(219))
    CALL HorizontalLine(6, 34, 41, CHR$(219))
    CALL HorizontalLine(7, 34, 40, CHR$(219))
    CALL HorizontalLine(8, 35, 39, CHR$(219))
    CALL HorizontalLine(10, 36, 38, CHR$(219))
    CALL HorizontalLine(12, 37, 37, CHR$(219))
    CALL HorizontalLine(13, 39, 36, CHR$(219))
    CALL HorizontalLine(68, 69, 36, CHR$(219))
    CALL HorizontalLine(15, 41, 35, CHR$(219))
    CALL HorizontalLine(53, 69, 35, CHR$(219))
    CALL HorizontalLine(16, 45, 34, CHR$(219))
    CALL HorizontalLine(50, 68, 34, CHR$(219))
    CALL HorizontalLine(18, 67, 33, CHR$(219))
    CALL HorizontalLine(20, 65, 32, CHR$(219))
    CALL HorizontalLine(22, 64, 31, CHR$(219))
    CALL HorizontalLine(24, 62, 30, CHR$(219))
    CALL HorizontalLine(26, 60, 29, CHR$(219))
    CALL HorizontalLine(28, 58, 28, CHR$(219))
    CALL HorizontalLine(31, 56, 27, CHR$(219))
    CALL HorizontalLine(35, 53, 26, CHR$(219))
    CALL HorizontalLine(40, 50, 25, CHR$(219))
 
    'Draw the forest part of the planet
    COLOR 2
    CALL HorizontalLine(33, 52, 45, CHR$(219))
    CALL HorizontalLine(33, 53, 44, CHR$(219))
    CALL HorizontalLine(34, 54, 43, CHR$(219))
    CALL HorizontalLine(34, 55, 42, CHR$(219))
    CALL HorizontalLine(35, 56, 41, CHR$(219))
    CALL HorizontalLine(35, 57, 40, CHR$(219))
    CALL HorizontalLine(36, 65, 39, CHR$(219))
    CALL HorizontalLine(37, 67, 38, CHR$(219))
    CALL HorizontalLine(38, 70, 37, CHR$(219))
    CALL HorizontalLine(40, 67, 36, CHR$(219))
    CALL HorizontalLine(42, 52, 35, CHR$(219))
    CALL HorizontalLine(46, 49, 34, CHR$(219))
    CALL Plot(70, 36, CHR$(219))
 
    'Draw the dirt/other colored land part of the planet
    COLOR 6
    CALL HorizontalLine(53, 80, 45, CHR$(219))
    CALL HorizontalLine(54, 79, 44, CHR$(219))
    CALL HorizontalLine(55, 78, 43, CHR$(219))
    CALL HorizontalLine(56, 77, 42, CHR$(219))
    CALL HorizontalLine(57, 76, 41, CHR$(219))
    CALL HorizontalLine(58, 75, 40, CHR$(219))
    CALL HorizontalLine(66, 74, 39, CHR$(219))
    CALL HorizontalLine(68, 73, 38, CHR$(219))
    CALL HorizontalLine(71, 72, 37, CHR$(219))
    CALL Plot(71, 36, CHR$(219))
    'Draw the Espializer7 in the upper left portion of the screen
    CALL DrawEspializer7("E", 5, 6, 0)
    'Display message
    COLOR 15, 0
    a$ = "The Espializer 7 is near a Wifran colony."
    LOCATE 5, GetCenter(a$)
    PRINT a$
    LOCATE 9, GetCenter("push tspacebarj to take up orbit")
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT " to take up orbit."
    CALL WaitForCharacter(CHR$(32))
    'Move the Espializer7 to transporter range
    FOR x = 5 TO 70 '5 to 70
        CALL DrawEspializer7("E", x, 6, 0)
        _DELAY movingShipDelay
        IF x >= 19 AND x <= 59 THEN
            IF x MOD 3 = 0 THEN PLAY runOverText$
        ELSE
            IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        END IF
        CALL DrawEspializer7("E", x, 6, 1)
    NEXT x
    'reprint the Espializer7 to prepare for transport
    CALL DrawEspializer7("S", 75, 5, 0)
    a$ = "Push [esc] to hail the colony."
    LOCATE 8, GetCenter(a$)
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[ESC]";
    COLOR 10, 0
    PRINT " to hail the colony."
    CALL WaitForCharacter(CHR$(27))
    LOCATE 8
    PRINT STRING$(70, " ")
    PLAY hail
    _DELAY hailDelay
    ClearStatus
    LOCATE 3, 2
    COLOR 15, 0
    PRINT " You have ";
    COLOR esplzr.clr, 0
    PRINT LTRIM$(STR$(shipLog.currentSurvivors));
    COLOR 15, 0
    PRINT " survivor";
    IF shipLog.currentSurvivors <> 1 THEN PRINT "s";
    PRINT " on board. "
    availableHomes = grid(Espializer7.x, Espializer7.y, 3)
    IF availableHomes = -1 THEN availableHomes = 0
    pplAboard = shipLog.currentSurvivors
    IF pplAboard = 0 THEN
        PLAY errorBeep
        shipLog.morale = shipLog.morale - 10
        shipLog.score = shipLog.score - 30
        shipLog.totalMorale = shipLog.totalMorale - 10
        ClearStatus
        COLOR 15, 0
        a$ = "The colonists are irritated that you disturbed them."
        LOCATE 7, 4
        PRINT a$
        COLOR 12, 0
        a$ = "You have no survivors on board."
        b$ = "Penalty of -10 morale and -30 score applied."
        LOCATE 16, GetCenter(a$)
        PRINT a$
        COLOR 28, 0
        LOCATE 18, GetCenter(b$)
        PRINT b$
        LOCATE 8
        PRINT STRING$(70, " ")
        LOCATE 23, GetCenter("Push -x- to return to the galaxy grid.")
        COLOR 10, 0
        PRINT "Push " + CHR$(34);
        COLOR 14, 0
        PRINT "R";
        COLOR 10, 0
        PRINT CHR$(34) + " to ";
        COLOR 14, 0
        PRINT "r";
        COLOR 10, 0
        PRINT "eturn to the Galaxy Grid."
        CALL WaitForCharacter("r")
        PLAY returnBeep$
        GOTO EndOfSub
    ELSE
        IF availableHomes >= pplAboard THEN
            ppltoBeam = pplAboard
        ELSE
            ppltoBeam = availableHomes
        END IF
        IF availableHomes <> 0 THEN
            a$ = "The colonists say they can accomodate # survivor"
            ap = GetCenter(a$ + ".")
            COLOR 15, 0
            LOCATE 6, ap
            IF availableHomes <> 1 THEN
                a$ = a$ + "s."
            ELSE
                a$ = a$ + "."
            END IF
            PRINT USING a$; availableHomes
        ELSE
            ClearStatus
            a$ = "These colonists cannot assist you at this time."
            LOCATE 6, GetCenter(a$)
            COLOR 15, 0
            PRINT a$
            LOCATE 10, GetCenter("Push 'r' to return to the grid.")
            COLOR 10, 0
            PRINT "Push " + CHR$(34);
            COLOR 14, 0
            PRINT "R";
            COLOR 10, 0
            PRINT CHR$(34) + " to ";
            COLOR 14, 0
            PRINT "r";
            COLOR 10, 0
            PRINT "eturn to the Galaxy Grid."
            CALL WaitForCharacter("r")
            PLAY returnBeep
            GOTO EndOfSub
        END IF
    END IF
    grid(Espializer7.x, Espializer7.y, 3) = grid(Espializer7.x, Espializer7.y, 3) - ppltoBeam
    IF grid(Espializer7.x, Espializer7.y, 3) = 0 THEN grid(Espializer7.x, Espializer7.y, 3) = -1
    shipLog.totalSurvivorsSaved = shipLog.totalSurvivorsSaved + ppltoBeam
    shipLog.morale = shipLog.morale + (ppltoBeam * 30)
    shipLog.totalMorale = shipLog.totalMorale + shipLog.morale
    shipLog.score = shipLog.score + (ppltoBeam * 30)
    a$ = "push -b- to beam survivor ## to the surface."
    ap = GetCenter(a$)
    FOR people = 1 TO ppltoBeam
        LOCATE 15, ap
        COLOR 10, 0
        PRINT "Push " + CHR$(34);
        COLOR 14, 0
        PRINT "B";
        COLOR 10, 0
        PRINT CHR$(34) + " to ";
        COLOR 14, 0
        PRINT "b";
        COLOR 10, 0
        PRINT "eam survivor #";
        COLOR esplzr.clr, 0
        PRINT LTRIM$(STR$(people));
        COLOR 10, 0
        PRINT " to the surface.   "
        CALL WaitForCharacter("b")
        PLAY beamingBeep
        shipLog.currentSurvivors = shipLog.currentSurvivors - 1
        availableHomes = availableHomes - 1
        LOCATE 3, 3
        COLOR 15, 0
        PRINT "You have ";
        COLOR esplzr.clr, 0
        PRINT LTRIM$(STR$(shipLog.currentSurvivors));
        COLOR 15, 0
        PRINT " survivor";
        IF shipLog.currentSurvivors <> 1 THEN PRINT "s";
        PRINT " on board. "
        a$ = "The colonists say they can accomodate # survivor"
        ap = GetCenter(a$ + ".")
        COLOR 15, 0
        LOCATE 6, ap
        IF availableHomes <> 1 THEN
            a$ = a$ + "s."
        ELSE
            a$ = a$ + ". "
        END IF
        PRINT USING a$; availableHomes
        FOR y = 10 TO 30
            COLOR 7, 0
            CALL Plot(75, y, CHR$(2))
            CALL Plot(72, y + 2, CHR$(219))
            CALL Plot(78, y + 2, CHR$(219))
            COLOR 12
            CALL HorizontalLine(74, 76, y + 1, CHR$(219))
            CALL HorizontalLine(73, 77, y + 2, CHR$(219))
            CALL HorizontalLine(74, 76, y + 3, CHR$(219))
            CALL HorizontalLine(74, 76, y + 4, CHR$(219))
            CALL HorizontalLine(74, 76, y + 5, CHR$(219))
            CALL Plot(76, y + 6, CHR$(219))
            CALL Plot(74, y + 6, CHR$(219))
            COLOR 15
            CALL HorizontalLine(73, 74, y + 7, CHR$(219))
            CALL HorizontalLine(76, 77, y + 7, CHR$(219))
            _DELAY (movingShipDelay)
            COLOR 0, 0
            CALL Plot(75, y, CHR$(219))
            CALL Plot(72, y + 2, CHR$(219))
            CALL Plot(78, y + 2, CHR$(219))
            CALL HorizontalLine(74, 76, y + 1, CHR$(219))
            CALL HorizontalLine(73, 77, y + 2, CHR$(219))
            CALL HorizontalLine(74, 76, y + 3, CHR$(219))
            CALL HorizontalLine(74, 76, y + 4, CHR$(219))
            CALL HorizontalLine(74, 76, y + 5, CHR$(219))
            CALL Plot(74, y + 6, CHR$(219))
            CALL Plot(76, y + 6, CHR$(219))
            CALL HorizontalLine(73, 74, y + 7, CHR$(219))
            CALL HorizontalLine(76, 77, y + 7, CHR$(219))
        NEXT y
    NEXT people
    ClearStatus
    LOCATE 48, GetCenter("Push 'r' to return to the grid.")
    COLOR 10, 0
    PRINT "Push " + CHR$(34);
    COLOR 14, 0
    PRINT "R";
    COLOR 10, 0
    PRINT CHR$(34) + " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 10, 0
    PRINT "eturn to the Galaxy Grid."
    CALL WaitForCharacter("r")
    PLAY returnBeep
    EndOfSub:
    COLOR 0, 0
    LOCATE 46
    PRINT STRING$(75, CHR$(32))
    PRINT STRING$(75, CHR$(32))
    PRINT STRING$(75, CHR$(32))
    CLS
    CALL PrintGrid
END SUB
 
SUB Boom ()
    CLS
    a$ = message$
    IF message$ <> "" THEN
        ab = GetCenter(a$)
        LOCATE 20, ab
        PRINT a$
        _DELAY (3.5)
        LOCATE 20, ab
        PRINT STRING$(LEN(a$), " ")
    END IF
    'Espializer 7 in the center of the screen
    useDelay = 0.5
    c$ = t$
    COLOR 9, 0
    CALL VerticalLine(26, 30, 37, t$)
    CALL VerticalLine(26, 30, 43, t$)
    COLOR 15
    CALL VerticalLine(22, 25, 40, t$)
    CALL VerticalLine(23, 25, 41, t$)
    CALL VerticalLine(23, 25, 39, t$)
    CALL VerticalLine(24, 26, 38, t$)
    CALL VerticalLine(24, 26, 42, t$)
    _DELAY (0.5)
    GOTO BoomDenouement
 
    'circle to blot out the ship. first of the concussive blasts
    circlesDelay = 0.1
    FirstCircle: 'innermost to outer
    COLOR 4
    CALL HorizontalLine(39, 41, 18, t$)
    CALL HorizontalLine(36, 44, 19, t$)
    CALL HorizontalLine(35, 45, 20, t$)
    CALL HorizontalLine(34, 46, 21, t$)
    CALL HorizontalLine(34, 46, 22, t$)
    CALL HorizontalLine(33, 47, 23, t$)
    CALL HorizontalLine(33, 47, 24, t$)
    CALL HorizontalLine(33, 47, 25, t$)
    CALL HorizontalLine(33, 47, 26, t$)
    CALL HorizontalLine(33, 47, 27, t$)
    CALL HorizontalLine(34, 46, 28, t$)
    CALL HorizontalLine(35, 45, 29, t$)
    CALL HorizontalLine(36, 44, 30, t$)
    CALL HorizontalLine(37, 43, 31, t$)
    CALL HorizontalLine(39, 41, 32, t$)
    _DELAY (circlesDelay)
    RETURN
 
    SecondCircle:
    CALL HorizontalLine(38, 42, 11, t$)
    CALL HorizontalLine(35, 45, 12, t$)
    CALL HorizontalLine(33, 47, 13, t$)
    CALL HorizontalLine(32, 48, 14, t$)
    CALL HorizontalLine(31, 49, 15, t$)
    CALL HorizontalLine(30, 50, 16, t$)
    CALL HorizontalLine(29, 51, 17, t$)
    CALL HorizontalLine(28, 52, 18, t$)
    CALL HorizontalLine(28, 52, 19, t$)
    CALL HorizontalLine(27, 53, 20, t$)
    CALL HorizontalLine(27, 53, 21, t$)
    hLeft = 26
    hRight = 53
    FOR yPos = 22 TO 28
        CALL HorizontalLine(hLeft, hRight, yPos, t$)
    NEXT yPos
    CALL HorizontalLine(27, 52, 29, t$)
    CALL HorizontalLine(27, 52, 30, t$)
    CALL HorizontalLine(28, 51, 31, t$)
    CALL HorizontalLine(28, 51, 32, t$)
    CALL HorizontalLine(29, 50, 33, t$)
    CALL HorizontalLine(30, 49, 34, t$)
    CALL HorizontalLine(30, 49, 35, t$)
    CALL HorizontalLine(31, 48, 36, t$)
    CALL HorizontalLine(32, 48, 37, t$)
    CALL HorizontalLine(34, 46, 38, t$)
    CALL HorizontalLine(47, 43, 39, t$)
    RETURN
 
    ThirdCircle:
    CALL HorizontalLine(38, 43, 4, t$)
    CALL HorizontalLine(34, 48, 5, t$)
    CALL HorizontalLine(31, 50, 6, t$)
    CALL HorizontalLine(30, 51, 7, t$)
    h1 = 28
    h2 = 53
    FOR vPos = 8 TO 13
        CALL HorizontalLine(h1, h2, vPos, t$)
        h1 = h1 - 1
        h2 = h2 + 1
    NEXT vPos
    CALL HorizontalLine(23, 58, 14, t$)
    CALL HorizontalLine(22, 59, 15, t$)
    CALL HorizontalLine(22, 59, 16, t$)
    FOR vPos = 17 TO 21
        CALL HorizontalLine(21, 60, vPos, t$)
        CALL HorizontalLine(21, 60, vPos + 12, t$)
    NEXT vPos
    FOR vPos = 22 TO 28
        CALL HorizontalLine(20, 61, vPos, t$)
    NEXT vPos
    FOR vPos = 29 TO 33
        CALL HorizontalLine(21, 60, vPos, t$)
    NEXT vPos
    CALL HorizontalLine(22, 59, 34, t$)
    CALL HorizontalLine(22, 59, 35, t$)
    CALL HorizontalLine(23, 58, 36, t$)
    h1 = 23
    h2 = 58
    FOR vPos = 37 TO 42
        CALL HorizontalLine(h1, h2, vPos, t$)
        h1 = h1 + 1
        h2 = h2 - 1
    NEXT vPos
    CALL HorizontalLine(30, 51, 43, t$)
    CALL HorizontalLine(31, 50, 44, t$)
    CALL HorizontalLine(34, 48, 45, t$)
    '    CALL HorizontalLine(38, 43, 47, t$)
    RETURN
 
    FourthCircle:
    CALL HorizontalLine(33, 46, 2, t$)
    CALL HorizontalLine(30, 51, 3, t$)
    CALL HorizontalLine(29, 53, 4, t$)
    CALL HorizontalLine(28, 54, 5, t$)
    CALL HorizontalLine(26, 56, 6, t$)
    CALL HorizontalLine(25, 57, 7, t$)
    CALL HorizontalLine(24, 58, 8, t$)
    CALL HorizontalLine(22, 60, 9, t$)
    CALL HorizontalLine(22, 60, 10, t$)
    CALL HorizontalLine(21, 61, 11, t$)
    CALL HorizontalLine(20, 62, 12, t$)
    CALL HorizontalLine(19, 63, 13, t$)
    CALL HorizontalLine(19, 63, 14, t$)
    CALL HorizontalLine(18, 64, 15, t$)
    CALL HorizontalLine(18, 64, 16, t$)
    CALL HorizontalLine(17, 65, 17, t$)
    CALL HorizontalLine(17, 65, 18, t$)
    CALL HorizontalLine(17, 65, 19, t$)
    FOR vPos = 20 TO 29
        CALL HorizontalLine(16, 66, vPos, t$)
    NEXT vPos
    CALL HorizontalLine(17, 65, 30, t$)
    CALL HorizontalLine(17, 65, 31, t$)
    CALL HorizontalLine(17, 65, 32, t$)
    CALL HorizontalLine(18, 64, 33, t$)
    CALL HorizontalLine(18, 64, 34, t$)
    CALL HorizontalLine(19, 63, 35, t$)
    CALL HorizontalLine(19, 63, 36, t$)
    CALL HorizontalLine(20, 62, 37, t$)
    CALL HorizontalLine(21, 61, 38, t$)
    CALL HorizontalLine(22, 60, 39, t$)
    CALL HorizontalLine(22, 60, 40, t$)
    CALL HorizontalLine(24, 58, 41, t$)
    CALL HorizontalLine(25, 57, 42, t$)
    CALL HorizontalLine(26, 56, 43, t$)
    CALL HorizontalLine(28, 54, 44, t$)
    CALL HorizontalLine(29, 53, 45, t$)
    CALL HorizontalLine(30, 52, 46, t$)
    CALL HorizontalLine(33, 49, 47, t$)
 
    RETURN
 
    Flash:
    'Flash -- Old PC wouln't run this loop among other parts of this code. Needed a new gaming PC anyway
    useDelay = 0.1
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    _DELAY (useDelay)
    COLOR 15, 15
    CLS
    _DELAY (useDelay)
    COLOR 0, 0
    CLS
    RETURN
 
    'B
    B:
    COLOR 4, 0
    Bdelay = 0.025
    Bdelay1 = 0.01
    FOR vPos = 47 TO 3 STEP -1
        CALL Plot(18, vPos, t$) '1
        _DELAY (Bdelay1)
    NEXT vPos
    FOR hPos = 19 TO 31
        CALL Plot(hPos, 3, t$) '2
        _DELAY (Bdelay1)
    NEXT hPos
    CALL HorizontalLine(32, 34, 4, t$) '3
    _DELAY (Bdelay)
    CALL HorizontalLine(35, 36, 5, t$) '4
    _DELAY (Bdelay)
    CALL Plot(37, 6, t$) '5
    _DELAY (Bdelay)
    CALL Plot(38, 7, t$) '6
    _DELAY (Bdelay)
    CALL VerticalLine(8, 9, 39, t$) '7
    _DELAY (Bdelay)
    CALL VerticalLine(10, 12, 40, t$) '8
    _DELAY (Bdelay)
    CALL VerticalLine(13, 15, 41, t$) '9
    _DELAY (Bdelay)
    CALL VerticalLine(16, 18, 40, t$) '10
    _DELAY (Bdelay)
    CALL VerticalLine(19, 20, 39, t$) '11
    _DELAY (Bdelay)
    CALL Plot(38, 21, t$) '12
    _DELAY (Bdelay)
    CALL Plot(37, 22, t$) '13
    _DELAY (Bdelay)
    CALL HorizontalLine(35, 36, 23, t$) '14
    _DELAY (Bdelay)
    CALL HorizontalLine(32, 34, 24, t$) '15
    _DELAY (Bdelay)
    FOR hPos = 31 TO 18 STEP -1
        CALL Plot(hPos, 25, t$)
        _DELAY (Bdelay1)
    NEXT hPos
    COLOR 0, 0
    CALL HorizontalLine(19, 31, 25, t$) '16
    COLOR 4, 0
    FOR hPos = 18 TO 31
        CALL Plot(hPos, 25, t$)
        _DELAY (Bdelay1)
    NEXT hPos
    CALL HorizontalLine(32, 34, 26, t$) '17
    _DELAY (Bdelay)
    CALL HorizontalLine(35, 36, 27, t$) '18
    _DELAY (Bdelay)
    CALL Plot(37, 28, t$) '19
    _DELAY (Bdelay)
    CALL Plot(38, 29, t$) '20
    _DELAY (Bdelay)
    CALL VerticalLine(30, 31, 39, t$) '21
    _DELAY (Bdelay)
    CALL VerticalLine(32, 34, 40, t$) '22
    _DELAY (Bdelay)
    CALL VerticalLine(35, 37, 41, t$) '23
    _DELAY (Bdelay)
    CALL VerticalLine(38, 40, 40, t$) '24
    _DELAY (Bdelay)
    CALL VerticalLine(41, 42, 39, t$) '25
    _DELAY (Bdelay)
    CALL Plot(38, 43, t$) '26
    _DELAY (Bdelay)
    CALL Plot(37, 44, t$) '27
    _DELAY (Bdelay)
    CALL HorizontalLine(35, 36, 45, t$) '28
    _DELAY (Bdelay)
    CALL HorizontalLine(32, 34, 46, t$) '29
    _DELAY (Bdelay)
    FOR hPos = 31 TO 18 STEP -1
        CALL Plot(hPos, 47, t$) '30
        _DELAY (Bdelay1)
    NEXT hPos
    _DELAY (1)
    COLOR 0, 0
    CLS
    RETURN
 
    O:
    Odelay = 0.025
    COLOR 4, 0
    CALL HorizontalLine(37, 43, 3, t$) '1
    _DELAY (Odelay)
    CALL HorizontalLine(34, 36, 4, t$) '2
    _DELAY (Odelay)
    CALL HorizontalLine(31, 33, 5, t$) '3
    _DELAY (Odelay)
    CALL HorizontalLine(29, 30, 6, t$) '4
    _DELAY (Odelay)
    CALL HorizontalLine(27, 28, 7, t$) '5
    _DELAY (Odelay)
    CALL Plot(26, 8, t$) '6
    _DELAY (Odelay)
    CALL Plot(25, 9, t$) '7
    _DELAY (Odelay)
    CALL VerticalLine(10, 11, 24, t$) '8
    _DELAY (Odelay)
    CALL Plot(23, 12, t$) '9
    _DELAY (Odelay)
    CALL VerticalLine(13, 14, 22, t$) '10
    _DELAY (Odelay)
    CALL VerticalLine(15, 16, 21, t$) '11
    _DELAY (Odelay)
    CALL VerticalLine(17, 18, 20, t$) '12
    _DELAY (Odelay)
    CALL VerticalLine(19, 22, 19, t$) '13
    _DELAY (Odelay)
    CALL VerticalLine(23, 27, 18, t$) '14
    _DELAY (Odelay)
    CALL VerticalLine(28, 31, 19, t$) '15
    _DELAY (Odelay)
    CALL VerticalLine(32, 33, 20, t$) '16
    _DELAY (Odelay)
    CALL VerticalLine(36, 37, 22, t$) '16_2 -- transferring from graph paper to code, i missed two lines
    _DELAY (Odelay)
    CALL VerticalLine(34, 35, 21, t$) '17
    _DELAY (Odelay)
    CALL Plot(23, 38, t$) '18
    _DELAY (Odelay)
    CALL Plot(25, 41, t$) ' 18_2
    _DELAY (Odelay)
    CALL VerticalLine(39, 40, 24, t$) '19
    _DELAY (Odelay)
    CALL Plot(26, 42, t$) '20
    _DELAY (Odelay)
    CALL HorizontalLine(27, 28, 43, t$) '21
    _DELAY (Odelay)
    CALL HorizontalLine(29, 30, 44, t$) '22
    _DELAY (Odelay)
    CALL HorizontalLine(31, 33, 45, t$) '23
    _DELAY (Odelay)
    CALL HorizontalLine(34, 36, 46, t$) '24
    _DELAY (Odelay)
    CALL HorizontalLine(37, 43, 47, t$) '25
    _DELAY (Odelay)
    CALL HorizontalLine(44, 46, 46, t$) '26
    _DELAY (Odelay)
    CALL HorizontalLine(47, 49, 45, t$) '27
    _DELAY (Odelay)
    CALL HorizontalLine(50, 51, 44, t$) '28
    _DELAY (Odelay)
    CALL HorizontalLine(52, 53, 43, t$) '29
    _DELAY (Odelay)
    CALL Plot(54, 42, t$) '30
    _DELAY (Odelay)
    CALL Plot(55, 41, t$) '31
    _DELAY (Odelay)
    CALL VerticalLine(39, 40, 56, t$) '32
    _DELAY (Odelay)
    CALL Plot(57, 38, t$) '33
    _DELAY (Odelay)
    CALL VerticalLine(36, 37, 58, t$) '34
    _DELAY (Odelay)
    CALL VerticalLine(34, 35, 59, t$) '35
    _DELAY (Odelay)
    CALL VerticalLine(32, 33, 60, t$) '36
    _DELAY (Odelay)
    CALL VerticalLine(28, 31, 61, t$) '37
    _DELAY (Odelay)
    CALL VerticalLine(23, 27, 62, t$) '38
    _DELAY (Odelay)
    CALL VerticalLine(19, 22, 61, t$) '39
    _DELAY (Odelay)
    CALL VerticalLine(17, 18, 60, t$) '40
    _DELAY (Odelay)
    CALL VerticalLine(15, 16, 59, t$) '41
    _DELAY (Odelay)
    CALL VerticalLine(13, 14, 58, t$) '42
    _DELAY (Odelay)
    CALL Plot(57, 12, t$) '43
    _DELAY (Odelay)
    CALL VerticalLine(10, 11, 56, t$) '44
    _DELAY (Odelay)
    CALL Plot(55, 9, t$) '45
    _DELAY (Odelay)
    CALL Plot(54, 8, t$) '46
    _DELAY (Odelay)
    CALL HorizontalLine(52, 53, 7, t$) '47
    _DELAY (Odelay)
    CALL HorizontalLine(50, 51, 6, t$) '48
    _DELAY (Odelay)
    CALL HorizontalLine(47, 49, 5, t$) '49
    _DELAY (Odelay)
    CALL HorizontalLine(44, 46, 4, t$)
    _DELAY (1)
    COLOR 0, 0
    CLS
    RETURN
 
    'M
    M: Mdelay = 0.017
    COLOR 4, 0
    FOR vPos = 47 TO 3 STEP -1
        CALL Plot(18, vPos, t$)
        _DELAY (Mdelay)
    NEXT vPos
    hPos = 19
    FOR vPos = 4 TO 26
        CALL Plot(hPos, vPos, t$)
        _DELAY (Mdelay)
        hPos = hPos + 1
    NEXT vPos
    FOR vPos = 25 TO 4 STEP -1
        CALL Plot(hPos, vPos, t$)
        _DELAY (Mdelay)
        hPos = hPos + 1
    NEXT vPos
    FOR vPos = 3 TO 47
        CALL Plot(64, vPos, t$)
        _DELAY (Mdelay)
    NEXT vPos
    _DELAY (2.5)
    COLOR 0, 0
    CLS
    RETURN
 
    BoomDenouement:
    Red = 4
    Orange = 6
    Yellow = 14
    BrightRed = 12
    usingDelay = 0.33
    PLAY "MBL32O1CDEFGABL40O2CDEFGAB48O3CDEFGABL56O4CDEFGAB"
    COLOR Red, 0
    GOSUB FirstCircle
    _DELAY (usingDelay)
    COLOR BrightRed, 0
    GOSUB SecondCircle
    COLOR Red, 0
    GOSUB FirstCircle
    _DELAY (usingDelay)
    COLOR Orange, 0
    GOSUB ThirdCircle
    COLOR BrightRed, 0
    GOSUB SecondCircle
    COLOR Red
    GOSUB FirstCircle
    _DELAY (usingDelay)
    COLOR Yellow, 0
    GOSUB FourthCircle
    COLOR Orange, 0
    GOSUB ThirdCircle
    COLOR BrightRed, 0
    GOSUB SecondCircle
    COLOR Red, 0
    GOSUB FirstCircle
    PLAY "MBL64O0CDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDECDE"
    GOSUB Flash
    GOSUB B
    GOSUB O
    GOSUB O
    GOSUB M
    shipLog.ships = shipLog.ships - 1
    shipLog.score = shipLog.score - 300
    shipLog.morale = 0
    shipLog.currentMedSupply = 0
    shipLog.currentSurvivors = 0
    shipLog.currentDamage.ship = 0
    shipLog.currentDamage.medical = 0
    IF shipLog.ships <> 0 THEN
        COLOR 15, 0
        CLS
        LOCATE 15
        IF shipLog.ships = 2 THEN
            PRINT LongCenter$("Your ship was destroyed. You are the sole survivor. You did not go down with the ship. I say " + CHR$(34) + "Shame on you!" + CHR$(34) + " Luckily, you convinced your superiors that you are honorable because of your ability to survive. Anyway, you are now in command of your second Espializer 7.")
        ELSEIF shipLog.ships = 1 THEN
            PRINT LongCenter$("Your ship was destroyed. You are the sole survivor. You did not go down with the ship. I say " + CHR$(34) + "Shame on you!" + CHR$(34) + " Luckily, you convinced your superiors that you are honorable (again!) because of your ability to survive. Anyway, you are now in command of your second Espializer 7. Be cautious. You will not get a another ship.")
        END IF
        LOCATE 48, GetCenter("Push 'r' to return to the grid.")
        COLOR 10, 0
        PRINT "Push " + CHR$(34);
        COLOR 14, 0
        PRINT "R";
        COLOR 10, 0
        PRINT CHR$(34) + " to ";
        COLOR 14, 0
        PRINT "r";
        COLOR 10, 0
        PRINT "eturn to the Galaxy Grid."
        CALL WaitForCharacter("r")
        PLAY returnBeep
        COLOR 15, 0
        CLS
        CALL PrintGrid
    ELSE
        CALL EndOfGame
    END IF
END SUB
 
SUB InsideBlackHole
    GOSUB drawAccretionDisc
    LOCATE 1, 1
    COLOR 15, 0
    PRINT "Oh no! Your ship has fallen in to the gravity well of a black hole!"
    LOCATE 2, 1
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]"
    CALL WaitForCharacter(" ")
    PLAY "MBL5O5BAGFEDCL14O4BAGFEDCL22O3BAGFEDCO2L30BAGFEDCL38O1BAGFEDCL45O0BAGFEDC"
 
    'now the hard part. moving the ship through the blackhole
    FOR x = 36 TO 45
        CALL DrawEspializer7("N", x, 5, 0)
        _DELAY (movingShipDelay * 1.5)
        CALL DrawEspializer7("N", x, 5, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 46 TO 49
        CALL DrawEspializer7("E", x, 5, 0)
        _DELAY (movingShipDelay * 1.5)
        CALL DrawEspializer7("E", x, 5, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR y = 7 TO 8
        CALL DrawEspializer7("S", 50, y, 0)
        _DELAY (movingShipDelay * 1.5)
        CALL DrawEspializer7("S", 50, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR x = 51 TO 53
        CALL DrawEspializer7("S", x, 9, 0)
        _DELAY (movingShipDelay * 1.5)
        CALL DrawEspializer7("S", x, 9, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR y = 10 TO 12
        CALL DrawEspializer7("S", 54, y, 0)
        _DELAY (movingShipDelay * 1.4)
        CALL DrawEspializer7("S", 54, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 13 TO 15
        CALL DrawEspializer7("W", 55, y, 0)
        _DELAY (movingShipDelay * 1.4)
        CALL DrawEspializer7("W", 55, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 16 TO 18
        CALL DrawEspializer7("W", 56, y, 0)
        _DELAY (movingShipDelay * 1.4)
        CALL DrawEspializer7("W", 56, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 19 TO 28
        CALL DrawEspializer7("N", 57, y, 0)
        _DELAY (movingShipDelay * 1.3)
        CALL DrawEspializer7("N", 57, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 29 TO 33
        CALL DrawEspializer7("E", 56, y, 0)
        _DELAY (movingShipDelay * 1.3)
        CALL DrawEspializer7("E", 56, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR x = 55 TO 53 STEP -1
        CALL DrawEspializer7("E", x, 34, 0)
        _DELAY (movingShipDelay * 1.2)
        CALL DrawEspializer7("E", x, 34, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR y = 35 TO 36
        CALL DrawEspializer7("E", 52, y, 0)
        _DELAY (movingShipDelay * 1.1)
        CALL DrawEspializer7("E", 52, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR x = 51 TO 49 STEP -1
        CALL DrawEspializer7("S", x, 37, 0)
        _DELAY (movingShipDelay * 1.1)
        CALL DrawEspializer7("S", x, 37, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 48 TO 46 STEP -1
        CALL DrawEspializer7("S", x, 38, 0)
        _DELAY (movingShipDelay * 1.1)
        CALL DrawEspializer7("S", x, 38, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 45 TO 39 STEP -1
        CALL DrawEspializer7("W", x, 39, 0)
        _DELAY (movingShipDelay * 1)
        CALL DrawEspializer7("W", x, 39, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 38 TO 37 STEP -1
        CALL DrawEspializer7("W", x, 38, 0)
        _DELAY (movingShipDelay * 1)
        CALL DrawEspializer7("W", x, 38, 1)
        GOSUB drawAccretionDisc
    NEXT x
    CALL DrawEspializer7("N", 36, 37, 0)
    _DELAY (movingShipDelay * 1)
    CALL DrawEspializer7("N", 36, 37, 1)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("N", 35, 36, 0)
    _DELAY (movingShipDelay * 1)
    CALL DrawEspializer7("N", 35, 36, 1)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("N", 34, 35, 0)
    _DELAY (movingShipDelay * 0.9)
    CALL DrawEspializer7("N", 34, 35, 1)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("N", 33, 34, 0)
    _DELAY (movingShipDelay * 0.9)
    CALL DrawEspializer7("N", 33, 34, 1)
    GOSUB drawAccretionDisc
    FOR y = 33 TO 32 STEP -1
        CALL DrawEspializer7("E", 32, y, 0)
        _DELAY (movingShipDelay * 0.9)
        CALL DrawEspializer7("E", 32, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 31 TO 30 STEP -1
        CALL DrawEspializer7("E", 31, y, 0)
        _DELAY (movingShipDelay * 0.8)
        CALL DrawEspializer7("E", 31, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 29 TO 22 STEP -1
        CALL DrawEspializer7("S", 30, y, 0)
        _DELAY (movingShipDelay * 0.8)
        CALL DrawEspializer7("S", 30, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    FOR y = 21 TO 20 STEP -1
        CALL DrawEspializer7("S", 31, y, 0)
        _DELAY (movingShipDelay * 0.8)
        CALL DrawEspializer7("S", 31, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    CALL DrawEspializer7("W", 32, 19, 0)
    _DELAY (movingShipDelay * 0.7)
    CALL DrawEspializer7("W", 32, 19, 1)
    GOSUB drawAccretionDisc
    FOR x = 33 TO 34
        CALL DrawEspializer7("W", x, 18, 0)
        _DELAY (movingshipdelsy * 0.7)
        CALL DrawEspializer7("W", x, 18, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 35 TO 39
        CALL DrawEspializer7("W", x, 17, 0)
        _DELAY (movingshipdelsy * 0.7)
        CALL DrawEspializer7("W", x, 17, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 40 TO 45
        CALL DrawEspializer7("N", x, 17, 0)
        _DELAY (movingshipdelsy * 0.6)
        CALL DrawEspializer7("N", x, 17, 1)
        GOSUB drawAccretionDisc
    NEXT x
    CALL DrawEspializer7("E", 46, 18, 0)
    _DELAY (movingShipDelay * 0.6)
    CALL DrawEspializer7("E", 46, 18, 1)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("E", 47, 19, 0)
    _DELAY (movingShipDelay * 0.6)
    CALL DrawEspializer7("W", 47, 19, 1)
    GOSUB drawAccretionDisc
    FOR y = 20 TO 25
        CALL DrawEspializer7("E", 48, y, 0)
        _DELAY (mocingshipdelay * 0.5)
        CALL DrawEspializer7("E", 48, y, 1)
        GOSUB drawAccretionDisc
    NEXT y
    CALL DrawEspializer7("S", 47, 26, 0)
    _DELAY (movingShipDelay * 0.5)
    CALL DrawEspializer7("S", 47, 26, 1)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("S", 46, 27, 0)
    _DELAY (movingShipDelay * 0.5)
    CALL DrawEspializer7("S", 46, 27, 1)
    GOSUB drawAccretionDisc
    FOR x = 45 TO 44 STEP -1
        CALL DrawEspializer7("S", x, 28, 0)
        _DELAY (movingShipDelay * 0.4)
        CALL DrawEspializer7("S", x, 28, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 43 TO 41 STEP -1
        CALL DrawEspializer7("W", x, 29, 0)
        _DELAY (movingShipDelay * 0.4)
        CALL DrawEspializer7("W", x, 29, 1)
        GOSUB drawAccretionDisc
    NEXT x
    FOR x = 40 TO 39 STEP -1
        CALL DrawEspializer7("W", x, 28, 0)
        _DELAY (movingShipDelay * 0.4)
        CALL DrawEspializer7("W", x, 28, 1)
        GOSUB drawAccretionDisc
    NEXT x
    CALL DrawEspializer7("W", 38, 27, 0)
    _DELAY (movingShipDelay * 0.37)
    CALL DrawEspializer7("W", 38, 27, 1)
    GOSUB drawAccretionDisc
    FOR y = 26 TO 23 STEP -1
        CALL DrawEspializer7("N", 37, y, 0)
        _DELAY (movingShipDelay * 0.37)
        CALL DrawEspializer7("N", 37, y, 0)
        GOSUB drawAccretionDisc
    NEXT y
    FOR x = 38 TO 41
        CALL DrawEspializer7("E", x, 22, 0)
        _DELAY (movingShipDelay * 0.37)
        CALL DrawEspializer7("E", x, 22, 0)
        GOSUB drawAccretionDisc
    NEXT x
    'spin
    CALL DrawEspializer7("S", x, 22, 0)
    _DELAY (movingShipDelay * 0.37)
    CALL DrawEspializer7("S", x, 22, 0)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("W", x, 22, 0)
    _DELAY (movingShipDelay * 0.37)
    CALL DrawEspializer7("W", x, 22, 0)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("N", x, 22, 0)
    _DELAY (movingShipDelay * 0.37)
    CALL DrawEspializer7("N", x, 22, 0)
    GOSUB drawAccretionDisc
    CALL DrawEspializer7("E", x, 22, 0)
    _DELAY (movingShipDelay * 0.37)
    CALL DrawEspializer7("E", x, 22, 0)
    GOSUB drawAccretionDisc
    GOTO endBlackHole
 
    drawAccretionDisc:
    COLOR 8, 0
    CLS
    CALL HorizontalLine(38, 43, 2, t$) 'outer arc
    CALL HorizontalLine(44, 47, 3, t$)
    CALL HorizontalLine(48, 49, 4, t$)
    CALL HorizontalLine(50, 51, 5, t$)
    CALL HorizontalLine(52, 53, 6, t$)
    CALL Plot(54, 7, t$)
    CALL Plot(55, 8, t$)
    CALL Plot(56, 9, t$)
    CALL Plot(57, 10, t$)
    CALL VerticalLine(11, 12, 58, t$)
    CALL Plot(59, 13, t$)
    CALL VerticalLine(14, 15, 60, t$)
    CALL VerticalLine(16, 18, 61, t$)
    CALL VerticalLine(19, 22, 62, t$)
    CALL VerticalLine(23, 27, 63, t$)
    CALL VerticalLine(28, 31, 62, t$)
    CALL VerticalLine(32, 34, 61, t$)
    CALL VerticalLine(35, 36, 60, t$)
    CALL Plot(59, 37, t$)
    CALL VerticalLine(38, 39, 58, t$)
    CALL Plot(57, 40, t$)
    CALL Plot(56, 41, t$)
    CALL Plot(55, 42, t$)
    CALL HorizontalLine(53, 54, 43, t$)
    CALL HorizontalLine(51, 52, 44, t$)
    CALL HorizontalLine(49, 50, 45, t$)
    CALL HorizontalLine(46, 48, 46, t$)
    CALL HorizontalLine(39, 45, 47, t$)
    CALL HorizontalLine(36, 43, 43, t$) ' left side outer arc
    CALL HorizontalLine(33, 35, 42, t$)
    CALL HorizontalLine(31, 32, 41, t$)
    CALL HorizontalLine(29, 30, 40, t$)
    CALL Plot(28, 39, t$)
    CALL Plot(27, 38, t$)
    CALL VerticalLine(36, 37, 26, t$)
    CALL Plot(25, 35, t$)
    CALL VerticalLine(33, 34, 24, t$)
    CALL VerticalLine(30, 32, 23, t$)
    CALL VerticalLine(20, 29, 22, t$)
    CALL VerticalLine(18, 19, 23, t$)
    CALL VerticalLine(16, 17, 24, t$)
    CALL VerticalLine(14, 15, 25, t$)
    CALL Plot(26, 13, t$)
    CALL Plot(27, 12, t$)
    CALL HorizontalLine(28, 29, 11, t$)
    CALL Plot(30, 10, t$)
    CALL HorizontalLine(31, 32, 9, t$)
    CALL HorizontalLine(33, 35, 8, t$)
    CALL HorizontalLine(36, 44, 7, t$)
    CALL HorizontalLine(35, 36, 14, t$) 'right side inner arc
    CALL HorizontalLine(37, 43, 13, t$)
    CALL HorizontalLine(44, 46, 14, t$)
    CALL Plot(47, 15, t$)
    CALL Plot(48, 16, t$)
    CALL Plot(49, 17, t$)
    CALL VerticalLine(18, 19, 50, t$)
    CALL VerticalLine(20, 22, 51, t$)
    CALL VerticalLine(23, 28, 52, t$)
    CALL VerticalLine(29, 30, 51, t$)
    CALL VerticalLine(31, 32, 50, t$)
    CALL Plot(49, 33, t$)
    CALL Plot(48, 34, t$)
    CALL HorizontalLine(46, 47, 35, t$)
    CALL HorizontalLine(43, 45, 36, t$)
    CALL HorizontalLine(39, 42, 37, t$)
    CALL HorizontalLine(38, 42, 31, t$) ' smallest arc
    CALL HorizontalLine(36, 37, 30, t$)
    CALL VerticalLine(28, 29, 35, t$)
    CALL VerticalLine(23, 27, 34, t$)
    CALL VerticalLine(21, 22, 35, t$)
    CALL Plot(36, 20, t$)
    CALL HorizontalLine(37, 42, 19, t$)
    CALL Plot(43, 20, t$)
    RETURN
 
    endBlackHole:
    CALL Boom
END SUB
 
SUB PrintGrid
    FOR x = 1 TO 80
        FOR y = 1 TO 45
            IF grid(x, y, 3) <> 0 THEN
                LOCATE y, x
                COLOR grid(x, y, 2), 0
                PRINT CHR$(grid(x, y, 1))
            END IF
        NEXT y
    NEXT x
    COLOR esplzr.clr, 0
    LOCATE Espializer7.y, Espializer7.x
    PRINT CHR$(esplzr.code)
    COLOR 15, 0
    LOCATE 46
    a$ = LTRIM$(STR$(Espializer7.x))
    b$ = LTRIM$(STR$(Espializer7.y))
    gameInProgress = 1
    CALL ClearStatus
    CALL Status
END SUB
 
SUB SetGameElements
    COLOR 0, 0
    CLS
    'Set shipLog
    shipLog.ships = 3
    shipLog.morale = 0
    shipLog.score = 0
    shipLog.currentDamage.ship = 0
    shipLog.currentDamage.medical = 0
    shipLog.totalDamage.ship = 0
    shipLog.totalDamage.medical = 0
    shipLog.currentSurvivors = 0
    shipLog.totalSurvivorsSaved = 0
    shipLog.enemiesDestroyed = 0
    shipLog.currentMedSupply = 0
    shipLog.totalMedSupply = 0
 
    max = 40
    min = 20
    jump = INT(RND * (max - min + 1)) + min
    fleetJumpsWhenThisReaches0 = jump
    shipsInSarienFleet = 10
 
    'Wifran colonies
    PLAY "L32O2C"
    FOR cnt = 1 TO 50
        redoColony:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = wifranColony.code
            grid(randomX, randomY, 2) = wifranColony.clr
            grid(randomX, randomY, 3) = INT(RND * 9) + 1 'number of survivors allowed on planet (1 to 10)
            COLOR wifranColony.clr, 0
            LOCATE randomY, randomX
            PRINT CHR$(wifranColony.code)
        ELSE
            GOTO redoColony
        END IF
        _DELAY (0.011)
    NEXT cnt
 
    'space stations
    PLAY "L32O2D"
    FOR cnt = 1 TO 10
        redoBottomase:
        randomX = RNX
        randomY = RNY
        IF randomY + 1 = 46 THEN GOTO redoBottomase
        IF grid(randomX, randomY, 1) = 0 AND grid(randomX, randomY + 1, 1) = 0 AND randomY + 1 <= 45 THEN
            grid(randomX, randomY, 1) = Top.code
            grid(randomX, randomY + 1, 1) = Bottom.code
            grid(randomX, randomY, 2) = Top.clr
            grid(randomX, randomY + 1, 2) = Bottom.clr
            grid(randomX, randomY, 3) = 1
            grid(randomX, randomY + 1, 3) = 1 'not really needed. s are always there
            COLOR Top.clr
            LOCATE randomY, randomX
            PRINT CHR$(Top.code)
            LOCATE randomY + 1, randomX
            PRINT CHR$(Bottom.code)
        ELSE
            GOTO redoBottomase
        END IF
        COLOR 15, 0
        _DELAY (0.05)
    NEXT cnt
 
    'Planets not aligned with the Wifran empire that are also enemies of the Sariens
    PLAY "L32O2E"
    FOR cnt = 1 TO 50
        redoOtherPlanet:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = otherPlanet.code
            grid(randomX, randomY, 2) = otherPlanet.clr
            grid(randomX, randomY, 3) = (INT(RND * 6) + 2) ' number of medkits offered (2 to 7)
            COLOR otherPlanet.clr, 0
            LOCATE randomY, randomX
            PRINT CHR$(otherPlanet.code)
        ELSE
            GOTO redoOtherPlanet
        END IF
        _DELAY (0.011)
    NEXT cnt
 
    'Informants
    PLAY "L32O2F"
    FOR cnt = 1 TO 10
        redoInformant:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = informant.code
            grid(randomX, randomY, 2) = informant.clr
            grid(randomX, randomY, 3) = cnt 'which informant is which
        ELSE
            GOTO redoInformant
        END IF
        COLOR 6, 0
        LOCATE randomY, randomX
        PRINT CHR$(213)
        _DELAY (0.05)
    NEXT cnt
 
    'Sarien Heavy Crusiers
    PLAY "L32O2G"
    FOR cnt = 1 TO 20
        redoCruiser:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = sarienShip.code
            grid(randomX, randomY, 2) = sarienShip.clr
            grid(randomX, randomY, 3) = 11
        ELSE
            GOTO redoCruiser
        END IF
        COLOR sarienShip.clr
        LOCATE randomY, randomX
        PRINT CHR$(sarienShip.code)
        _DELAY (0.025)
    NEXT cnt
 
    'Disabled Wifran ships
    PLAY "L32O2A"
    FOR cnt = 1 TO 25
        disabledShip:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = disabledShip.code
            grid(randomX, randomY, 2) = disabledShip.clr
            grid(randomX, randomY, 3) = INT(RND * (9 - 2 + 1)) + 2 'number of survivors still on board
        ELSE
            GOTO disabledShip
        END IF
        COLOR 12, 0
        LOCATE randomY, randomX
        PRINT CHR$(15)
        _DELAY (0.015)
    NEXT cnt
 
    'Black holes
    PLAY "L32O2B"
    FOR cnt = 1 TO 10
        redoBlackHole:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            grid(randomX, randomY, 1) = blackHole.code
            grid(randomX, randomY, 2) = blackHole.clr
            grid(randomX, randomY, 3) = 1
        ELSE
            GOTO redoBlackHole
        END IF
        COLOR 8, 0
        LOCATE randomY, randomX
        PRINT CHR$(blackHole.code)
        _DELAY (0.05)
    NEXT cnt
 
    'Wormholes
    PLAY "L32O3C"
    FOR cnt = 1 TO 20
        redoWormHole:
        randomX = RNX
        randomY = RNY
        IF grid(randomX, randomY, 1) = 0 THEN
            '            wormHoles(cnt).x = randomX
            '            wormHoles(cnt).y = randomY
            '            wormHoles(cnt).f = cnt
            IF cnt <= 10 THEN
                grid(randomX, randomY, 1) = cnt + 64
                COLOR wormHole.clr, 0
                LOCATE randomY, randomX
                PRINT CHR$(cnt + 64)
            ELSE
                grid(randomX, randomY, 1) = cnt + 54
                COLOR wormHole.clr, 0
                LOCATE randomY, randomX
                PRINT CHR$(cnt + 54)
            END IF
            grid(randomX, randomY, 2) = wormHole.clr
            grid(randomX, randomY, 3) = cnt
        ELSE
            GOTO redoWormHole
        END IF
    NEXT cnt
    _DELAY (0.5)
 
    'The Sarien Fleet
    PLAY "L32O3D"
    redoFleet:
    randomX = RNX
    randomY = RNY
    IF randomX = 80 OR randomY = 45 THEN GOTO redoFleet
    IF grid(randomX, randomY, 1) = 0 AND grid(randomX + 1, randomY, 1) = 0 AND grid(randomX, randomY + 1, 1) = 0 AND grid(randomX + 1, randomY + 1, 1) = 0 THEN
        grid(randomX, randomY, 1) = sarienFleet.code
        grid(randomX, randomY, 2) = sarienFleet.clr
        newFlag = 10
        sarienJumpOn = jump
        grid(randomX, randomY, 3) = newFlag
        grid(randomX + 1, randomY, 1) = sarienFleet.code
        grid(randomX + 1, randomY, 2) = sarienFleet.clr
        grid(randomX + 1, randomY, 3) = newFlag
        grid(randomX, randomY + 1, 1) = sarienFleet.code
        grid(randomX, randomY + 1, 2) = sarienFleet.clr
        grid(randomX, randomY + 1, 3) = newFlag
        grid(randomX + 1, randomY + 1, 1) = sarienFleet.code
        grid(randomX + 1, randomY + 1, 2) = sarienFleet.clr
        grid(randomX + 1, randomY + 1, 3) = newFlag
    ELSE
        GOTO redoFleet
    END IF
    COLOR 2, 0
    LOCATE randomY, randomX
    PRINT CHR$(176)
    LOCATE randomY, randomX + 1
    PRINT CHR$(176)
    LOCATE randomY + 1, randomX
    PRINT CHR$(176)
    LOCATE randomY + 1, randomX + 1
    PRINT CHR$(176)
    _DELAY (0.5)
 
    'espializer 7
    PLAY "L32O3E"
    anotherX = 0
    anotherY = 1
    redoespializer7:
    anotherX = anotherX + 1
    IF grid(anotherX, anotherY, 1) = 0 THEN
        Espializer7.x = anotherX
        Espializer7.y = anotherY
        Espializer7.f = 1
    ELSEIF anotherX = 0 OR anotherY = 0 OR anotherX > 80 OR anotherY > 45 THEN
        GOTO redoespializer7
    ELSE
        GOTO redoespializer7
    END IF
    COLOR 11, 1
    LOCATE Espializer7.y, Espializer7.x
    PRINT CHR$(234)
    _DELAY (0.5)
 
    CALL PrintGrid
    gameInProgress = 1
END SUB
 
'SUB l
'END SUB
 
SUB ClearStatus
    LOCATE 46, 1
    PRINT "                                                                               "
    PRINT "                                                                               "
    PRINT "                                                                               "
END SUB
 
FUNCTION RNX
    rtn = INT(RND * 80) + 1
    RNX = rtn
END FUNCTION
 
FUNCTION RNY
    rtn = INT(RND * 45) + 1
    RNY = rtn
END FUNCTION
 
SUB VisitPlanet
    COLOR 0, 0
    CLS
 
    'Draw the ocean part of the planet
    COLOR 1
    CALL HorizontalLine(1, 32, 45, CHR$(219))
    CALL HorizontalLine(2, 32, 44, CHR$(219))
    CALL HorizontalLine(3, 33, 43, CHR$(219))
    CALL HorizontalLine(4, 33, 42, CHR$(219))
    CALL HorizontalLine(6, 34, 41, CHR$(219))
    CALL HorizontalLine(7, 34, 40, CHR$(219))
    CALL HorizontalLine(8, 35, 39, CHR$(219))
    CALL HorizontalLine(10, 36, 38, CHR$(219))
    CALL HorizontalLine(12, 37, 37, CHR$(219))
    CALL HorizontalLine(13, 39, 36, CHR$(219))
    CALL HorizontalLine(68, 69, 36, CHR$(219))
    CALL HorizontalLine(15, 41, 35, CHR$(219))
    CALL HorizontalLine(53, 69, 35, CHR$(219))
    CALL HorizontalLine(16, 45, 34, CHR$(219))
    CALL HorizontalLine(50, 68, 34, CHR$(219))
    CALL HorizontalLine(18, 67, 33, CHR$(219))
    CALL HorizontalLine(20, 65, 32, CHR$(219))
    CALL HorizontalLine(22, 64, 31, CHR$(219))
    CALL HorizontalLine(24, 62, 30, CHR$(219))
    CALL HorizontalLine(26, 60, 29, CHR$(219))
    CALL HorizontalLine(28, 58, 28, CHR$(219))
    CALL HorizontalLine(31, 56, 27, CHR$(219))
    CALL HorizontalLine(35, 53, 26, CHR$(219))
    CALL HorizontalLine(40, 50, 25, CHR$(219))
 
    'Draw the forest part of the planet
    COLOR 2
    CALL HorizontalLine(33, 52, 45, CHR$(219))
    CALL HorizontalLine(33, 53, 44, CHR$(219))
    CALL HorizontalLine(34, 54, 43, CHR$(219))
    CALL HorizontalLine(34, 55, 42, CHR$(219))
    CALL HorizontalLine(35, 56, 41, CHR$(219))
    CALL HorizontalLine(35, 57, 40, CHR$(219))
    CALL HorizontalLine(36, 65, 39, CHR$(219))
    CALL HorizontalLine(37, 67, 38, CHR$(219))
    CALL HorizontalLine(38, 70, 37, CHR$(219))
    CALL HorizontalLine(40, 67, 36, CHR$(219))
    CALL HorizontalLine(42, 52, 35, CHR$(219))
    CALL HorizontalLine(46, 49, 34, CHR$(219))
    CALL Plot(70, 36, CHR$(219))
 
    'Draw the dirt/other colored land part of the planet
    COLOR 6
    CALL HorizontalLine(53, 80, 45, CHR$(219))
    CALL HorizontalLine(54, 79, 44, CHR$(219))
    CALL HorizontalLine(55, 78, 43, CHR$(219))
    CALL HorizontalLine(56, 77, 42, CHR$(219))
    CALL HorizontalLine(57, 76, 41, CHR$(219))
    CALL HorizontalLine(58, 75, 40, CHR$(219))
    CALL HorizontalLine(66, 74, 39, CHR$(219))
    CALL HorizontalLine(68, 73, 38, CHR$(219))
    CALL HorizontalLine(71, 72, 37, CHR$(219))
    CALL Plot(71, 36, CHR$(219))
 
    'Draw the Espializer7 in the upper right portion of the screen
    CALL DrawEspializer7("W", 76, 9, 0)
 
    'Display message
    COLOR 15, 0
    a$ = "The Espializer 7 has arrived at a planet"
    b$ = "known for its medical expertise."
    LOCATE 6, 16
    PRINT a$
    LOCATE 7, 20
    PRINT b$
    c$ = "Push [spacebar] to move into orbit"
    LOCATE 12, 25
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[SPACEBAR]";
    COLOR 10, 0
    PRINT " to move into orbit."
    CALL WaitForCharacter(" ")
    'Move Espializer7
    FOR x = 76 TO 16 STEP -1
        CALL DrawEspializer7("W", x, 9, 0)
        _DELAY (movingShipDelay)
        IF x <= 55 AND x >= 16 THEN
            IF x MOD 3 = 0 THEN PLAY runOverText$
        ELSE
            IF x MOD movingShipMod = 0 THEN PLAY movingShipBeep
        END IF
        CALL DrawEspializer7("W", x, 9, 1)
    NEXT x
 
    'Rotate the Espializer7 90 degrees counter-clockwise
    CALL DrawEspializer7("S", 12, 5, 0)
    PLAY movingShipBeep
    a$ = "Push -esc- to hail the people of this planet."
    LOCATE 10, GetCenter(a$)
    COLOR 10, 0
    PRINT "Push ";
    COLOR 14, 0
    PRINT "[ESC]";
    COLOR 10, 0
    PRINT " to hail the people of this planet."
    CALL WaitForCharacter(CHR$(27))
    PLAY hail
    LOCATE 10, GetCenter(a$)
    PRINT STRING$(LEN(a$), " ")
    _DELAY (hailDelay)
 
    IF grid(Espializer7.x, Espializer7.y, 3) > 0 THEN
        numMedKits = grid(Espializer7.x, Espializer7.y, 3)
 
        COLOR 15, 0
        ClearStatus
        COLOR 15, 0
        a$ = "The concerned people of this world have offered"
        LOCATE 12, GetCenter(a$)
        PRINT a$
        d$ = "you a box of # medical kits to"
        LOCATE 13, GetCenter(d$)
        PRINT "you a box of ";
        COLOR 12, 0
        PRINT LTRIM$(STR$(numMedKits));
        COLOR 15, 0
        PRINT " medical kits to"
        b$ = "help you battle the evil Sariens."
        LOCATE 14, GetCenter(b$)
        PRINT b$
        IF shipLog.currentMedSupply + numMedKits <= 15 THEN
            c$ = "Push [spacebar] to accept or n to decline."
            LOCATE 19, GetCenter(c$)
            COLOR 10, 0
            PRINT "Push ";
            COLOR 14, 0
            PRINT "[SPACEBAR]";
            COLOR 10, 0
            PRINT " to accept or ";
            PRINT CHR$(34);
            COLOR 14, 0
            PRINT "D";
            COLOR 10, 0
            PRINT CHR$(34);
            PRINT " to ";
            COLOR 14, 0
            PRINT "d";
            COLOR 10, 0
            PRINT "ecline.     "
            DO
                pause$ = INKEY$
                pause$ = UCASE$(pause$)
            LOOP UNTIL pause$ = CHR$(32) OR pause$ = "D"
            LOCATE 12, GetCenter(a$)
            PRINT STRING$(LEN(a$), " ")
            LOCATE 13, GetCenter(d$)
            PRINT STRING$(LEN(d$), " ")
            LOCATE 14, GetCenter(b$)
            PRINT STRING$(LEN(b$), " ")
            LOCATE 19, GetCenter(t$)
            PRINT STRING$(LEN(t$), " ")
            IF pause$ = "D" THEN
                PLAY errorBeep$
                GOTO anotherEndSub
            ELSE
                shipLog.currentMedSupply = shipLog.currentMedSupply + numMedKits
                shipLog.score = shipLog.score + (5 * numMedKits)
                grid(Espializer7.x, Espializer7.y, 3) = -1
            END IF
            ClearStatus
            PLAY beamingBeep
            FOR y = 32 TO 10 STEP -1
                IF y <= 31 THEN 'Put the planet back
                    COLOR 1
                    CALL HorizontalLine(8, 14, 40, CHR$(219))
                END IF
                IF y <= 30 THEN
                    COLOR 1
                    CALL HorizontalLine(8, 14, 39, CHR$(219))
                END IF
                IF y <= 29 THEN
                    COLOR 1
                    CALL HorizontalLine(10, 14, 38, CHR$(219))
                END IF
                IF y <= 28 THEN
                    COLOR 1
                    CALL HorizontalLine(12, 14, 37, CHR$(219))
                END IF
                IF y <= 27 THEN
                    COLOR 1
                    CALL HorizontalLine(13, 14, 36, CHR$(219))
                END IF
                COLOR 12
                CALL VerticalLine(y, y + 8, 8, CHR$(219))
                CALL VerticalLine(y, y + 8, 9, CHR$(219))
                CALL VerticalLine(y, y + 8, 10, CHR$(219))
                CALL VerticalLine(y, y + 8, 11, CHR$(219))
                CALL VerticalLine(y, y + 8, 12, CHR$(219))
                CALL VerticalLine(y, y + 8, 13, CHR$(219))
                CALL VerticalLine(y, y + 8, 14, CHR$(219))
                COLOR 15, 12
                CALL VerticalLine(y + 2, y + 6, 10, CHR$(219))
                CALL Plot(11, y + 4, CHR$(219))
                CALL VerticalLine(y + 2, y + 6, 12, CHR$(219))
                _DELAY movingShipDelay
                COLOR 0
                CALL VerticalLine(y, y + 8, 8, CHR$(219))
                CALL VerticalLine(y, y + 8, 9, CHR$(219))
                CALL VerticalLine(y, y + 8, 10, CHR$(219))
                CALL VerticalLine(y, y + 8, 11, CHR$(219))
                CALL VerticalLine(y, y + 8, 12, CHR$(219))
                CALL VerticalLine(y, y + 8, 13, CHR$(219))
                CALL VerticalLine(y, y + 8, 14, CHR$(219))
            NEXT y
        ELSE
            a$ = "You already have " + LTRIM$(STR$(shipLog.currentMedSupply)) + " medical kits aboard."
            b$ = "Because you cannot hold more than 15, you will have"
            c$ = "to come back here when you have space for these."
            COLOR 12, 0
            LOCATE 16, GetCenter(a$)
            PRINT a$
            LOCATE 17, GetCenter(b$)
            PRINT b$
            LOCATE 18, GetCenter(c$)
            PRINT c$
        END IF
    ELSE
        COLOR 15, 0
        a$ = "The people living on this planet regretfully"
        b$ = "inform you that they cannot help you again"
        LOCATE 12, GetCenter(a$)
        PRINT a$
        LOCATE 13, GetCenter(b$)
        PRINT b$ + "."
    END IF
    anotherEndSub:
    COLOR 15, 0
    ClearStatus
    LOCATE 23, GetCenter("Push -x- to return to the galaxy grid.")
    COLOR 10, 0
    PRINT "Push "; CHR$(34);
    COLOR 14, 0
    PRINT "R";
    COLOR 10, 0
    PRINT CHR$(34); " to ";
    COLOR 14, 0
    PRINT "r";
    COLOR 10, 0
    PRINT "eturn to the galaxy grid."
    CALL WaitForCharacter("r")
    PLAY returnBeep$
    CLS
    CALL PrintGrid
END SUB
 
 
 

bplus · « **Reply #1 on:** March 14, 2021, 10:54:10 pm »

Wow that's quite a game! Didn't take me long to find B O O M ;-))

Does your father still code?

@Jaze oh say, I went to save this and... what should we call this? _title "Sarien Sunsets" ?

Put _title "something" at top and QB64 will suggest that as the File name to save under.

Jaze · « **Reply #2 on:** March 18, 2021, 11:30:00 am »

Yeah, he still codes. He likes Visual Basic

bplus · « **Reply #3 on:** March 18, 2021, 11:32:15 am »

Oh yeah, I luv'd it before the .net thing, specially liked the version for DOS.

Jaze · « **Reply #4 on:** March 18, 2021, 11:36:03 am »

I get rather nostalgic about DOS. My first PC was an IBM compatible 386sx at a whopping 15 megahertz. DOS came with qbasic and I wrote hundreds of extra levels for nibbles.bas

bplus · « **Reply #5 on:** March 18, 2021, 11:46:52 am »

Yeah, really tight relationship between Basic and DOS, back in days when you owned your computer and knew 99% of what was on it. Now I think <1% ;(

But! I would NOT trade what you can do today with yesterday! With QB64 you can do so much more than before!

Jaze · « **Reply #6 on:** March 18, 2021, 01:15:49 pm »

by the way, if you change the t$ constant the game will make most of the graphics out of that character. but if you try to use more than a single character the game will shoot out errors everywhere

News:

Author Topic: I wanted to do something with strings... so I did (Read 2166 times)

Jaze

I wanted to do something with strings... so I did

bplus

Re: I wanted to do something with strings... so I did

Jaze

Re: I wanted to do something with strings... so I did

bplus

Re: I wanted to do something with strings... so I did

Jaze

Re: I wanted to do something with strings... so I did

bplus

Re: I wanted to do something with strings... so I did

Jaze

Re: I wanted to do something with strings... so I did