%%HP: T(3)A(D)F(.);
@ Lunar Lander - By Stanley Lui
@ Updated 9/2013 - It now work for HP48/49/50g.  For HP50g, the game uses the full screen (131x80). 
@
@ Instructions:
@ - Transfer this variable to the HP and evaluate to play
@ - Game Instruction
@   -  When variable is evaluated, game is in demo mode
@   -  To start a new game,  press 'A'
@   -  To exit the variable execution (end the game), press 'F'
@   -  You are to land your space ship on the moon's surface without crashing by burning fuel to counter the lunar
@        gravitational force.  The trick is to burn fuel at the right time and the right amount such that you don't wait
@        too long to use your fuel that by the time you use it, it's too late; and that you don't use up all your fuel 
@        prematurely before reaching the surface.  Once the game is started, the space ship will start descending 
@        toward the surface.  It's downward speed will keep increasing due to gravity unless you input units of fuel
@        to burn to counter the downward speed.  When the input fuel box is flashing, you can key in the amount of fuel to
@        burn.  You can skip the input by not keying in the amount (a zero is indicated).  This process will repeat
@        until you are safely on the ground, or your space ship is crashed.  The starting velocity is -50 (downward)
@        and at a height of 500.
@   -  Game Display:
@        The "V: " shows the current velocity of your space ship
@        The "D: " shows the distance from the ground
@        The fuel gauge shows the units of fuel remaining (you have 120 units to start each game)
@


\<< RCLF 0 -50 500 120 0 0 0 0 0 0 0 0 

GROB 15 17 08000C100630036089C080808FF080808C9086B0EC93A082A082AFF23F761B641144
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16744193 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -65536 -65536 -65536 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -65536 -65536 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16777216 -16744193 -16777216 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -65536 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16744193 -16777216 -16744448 -16777216 -16744448 -16777216 -16777216 -16744448 -65536 -65536 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16777216 -16744193 -16777216 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -65536 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16744193 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 

GROB 7 11 808094A2C1F7C1A2948080
@ZGROBCOLORS -16777216 -16777216 -32768 -16777216 -16777216 -32768 -16777216 -16777216 -32768 -16777216 -16777216 -16777216 -16777216 -16777216 -32768 -16777216 -32768 -16777216 -32768 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -32768 -32768 -32768 -16777216 -16777216 -16777216 -16777216 -32768 -32768 -32768 -32768 -32768 -32768 -32768 -32768 -32768 -32768 -32768 -16777216 -16777216 -16777216 -16777216 -32768 -32768 -32768 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -32768 -16777216 -32768 -16777216 -32768 -16777216 -16777216 -16777216 -16777216 -16777216 -32768 -16777216 -16777216 -32768 -16777216 -16777216 -32768 -16777216 -16777216 

GROB 49 5 00000000400000010071C9F00400BB9BDB3EB0DF006E6E06180FE91000640000020000
@ZGROBCOLORS -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -8372224 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -8372224 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -8372224 -16777216 -16777216 -16777216 -16777216 -8372224 -16777216 

GROB 5 8 4051E0F1E0514040
@ZGROBCOLORS -16777216 -3250432 -16777216 -3250432 -16777216 -3250432 -16777216 -16777216 -16777216 -16777216 -3250432 -3250432 -3250432 -16777216 -16777216 -16777216 -3250432 -3250432 -3250432 -3250432 -3250432 -3250432 -3250432 -3250432 -16777216 -16777216 -3250432 -3250432 -3250432 -16777216 -16777216 -16777216 -16777216 -3250432 -16777216 -3250432 -16777216 -3250432 -16777216 -16777216 

GROB 15 17 08000C100630036089C080808FF080808C9086B0EC93A082A082AFF2300610041004
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16744193 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16777216 -16744193 -16777216 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16744193 -16777216 -16744448 -16777216 -16744448 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16777216 -16744193 -16777216 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16777216 -16744193 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16744193 -16744193 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 

GROB 14 11 008300E0032085E1491121415171217141018F9101F0
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16777216 -16744193 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16777216 -16777216 -16777216 -16777216 -16777216 -16744193 -16777216 -16777216 -16777216 -16744193 -16744193 -16744193 -16744193 -16744193 -16744193 -16744193 -16744193 -16744193 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16744448 -16744448 -16777216 -16744448 -16744448 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16744448 -16744448 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -16777216 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16744448 -16777216 -16777216 -16777216 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 


GROB 17 9 EFFF00FFFF101DB5105D55101D1B10DD5B10D15B10FFFF10EFFF00

GROB 14 9 EFF1FFF31D23D9A211A2D5A21D23FFF3EFF1

GROB 52 6 700000C10001002000008000091028236380CC85D02AA45188A25D402AA45188A25540FBB461CFC29950

GROB 16 33 FFF110012001400D800F800D800D800D800D800D800F800D80018001800180018001800180018001800180018001800180018FF100000000EAE22A22EAE22A222EEE
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 

GROB 24 11 FFFFFF1000081300889400885033B8509A8954929A5413AA93081A100008FFFFFF
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -65536 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -65536 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 

GROB 8 24 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
@ZGROBCOLORS -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 -16776961 

GROB 9 10 F70014002C104410441044104C0044004400C700
@ZGROBCOLORS -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 

GROB 44 23 FFFFFFFFFFF0100000000080DFFFFFFFFFB05D2A2E3A2AB059AA6FBBABB0512A6F3A2AB055AB6FBBABB05DA36FB322A0DFFFFFFFFFB010000000008010000000008018F383E83080180244154080101E44154080102A44154080102A87E97080102A0401408010260401408010220280208010228168108010E300000080100000000080FFFFFFFFFFF0
@ZGROBCOLORS -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -16777216 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 -8388480 

GROB 24 11 FFFFFF100008100088988088501888509498569498559418D88498100008FFFFFF
@ZGROBCOLORS -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16711936 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16711936 -16711936 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16711936 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16711936 -16711936 -16711936 -16711936 -16711936 -16777216 -16711936 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 


GROB 67 9 FFFFFFFFFFFFFFFF70100000000000000040DDC991421CD1C58450555440451841454550DDC980070841C5C94054501105084144494054DDC00508C14C5940100000000000000040FFFFFFFFFFFFFFFF70

GROB 64 9 FFFFFFFFFFFFFFFF1000000000000008DDC991471CD1C5A95554404118414CAADDC980070841CDBA54501101084144BA54DDC00108C1C5A91000000000000008FFFFFFFFFFFFFFFF

GROB 46 9 FFFFFFFFFFF3100000000002D418D94288A2551484D288A2D8088CD388A25900945388A2D80C84528BB2100000000002FFFFFFFFFFF3

GROB 7 7 80C1E3F7C1C1C1
@ZGROBCOLORS -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16744448 -16744448 -16744448 -16744448 -16744448 -16744448 -16777216 -16777216 -16744448 -16744448 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -16744448 -16777216 -16777216 -16777216 

GROB 7 7 C1C1C1F7E3C180
@ZGROBCOLORS -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -16777216 -16777216 -65536 -65536 -65536 -65536 -65536 -65536 -16777216 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -65536 -65536 -16777216 -16777216 -16777216 -16777216 -16777216 -65536 -16777216 -16777216 -16777216 

0 0

\-> 
fs a v d f y k infuel infi c fy d1 y1 
SHIP STAR GROUND STAR1 SHIPSAVE SHIPCRSH PLAYGROB ENDGROB TITLE
FUEL CRASH FULLFUEL FUELFLSH INFUEL WIN PLAYHELP ENDHELP BYME UPARR DOWNARR uu dspinfo

\<<

  \<< \-> u \<<
    IF u u SIZE DUP SUB "." == THEN u 1 u SIZE 1 - SUB ELSE u END
  \>> \>> 'uu' STO

\<<  \-> vv dd \<<
@  9/2013
      PICT IF 10 FC? THEN {# 66d,# 55d} ELSE {# 66d,# 70d} END 
      IF vv 0 \>= THEN UPARR ELSE DOWNARR END REPL
      
      PICT IF 10 FC? THEN {# 103d,# 55d} ELSE {# 103d,# 70d} END
      IF dd 0 \>= THEN UPARR ELSE DOWNARR END REPL
      
      PICT IF 10 FC? THEN {# 75d,# 57d} ELSE {# 75d,# 72d} END # 17d # 5d BLANK REPL 
      PICT IF 10 FC? THEN {# 75d,# 57d} ELSE {# 75d,# 72d} END vv ABS 1 RND \->STR uu EVAL 1 \->GROB REPL
      PICT IF 10 FC? THEN {# 112d,# 57d} ELSE {# 112d,# 72d}  END # 20d # 5d BLANK REPL 
      PICT IF 10 FC? THEN {# 112d,# 57d} ELSE {# 112d,# 72d} END dd ABS 1 RND \->STR uu EVAL 1 \->GROB REPL
\>> \>> 'dspinfo' STO

\<<
  -50 'v' STO 500 'd' STO 120 'f' STO 0 'y' STO
  PICT {# 117d,# 20d} # 8d # 24d BLANK REPL
  PICT {# 19d,# 0d} SHIP REPL
  v d dspinfo EVAL
  PICT {# 115d,# 12d} f \->STR uu EVAL 1 \->GROB REPL
  PICT {# 79d,# 31d} # 17d # 9d BLANK REPL
  PICT {# 117d,# 20d} FULLFUEL GOR
  IF 3 FS? THEN
    IF 6 FS? THEN
      PICT IF 10 FC? THEN {#19d #42d} ELSE {#19d #57d} END SHIPSAVE GXOR
    ELSE 
      PICT IF 10 FC? THEN {#19d #48d} ELSE {#19d #63d} END SHIPCRSH GXOR
    END
  END
\>>
\<<
PICT {#9d #7d}  {#75d #15d} SUB PICT {# 58d,# 7d} {# 121d,# 15d} SUB \-> p1 e1 \<<
1 CF 2 CF 9 CF WHILE 1 FC? REPEAT
  IF 9 FC? THEN
    PICT {# 1d,# 1d} PLAYGROB GXOR PICT {# 1d,# 1d} PLAYGROB REPL
    PICT {#9d #7d} PLAYHELP REPL 1 WAIT PICT {#9d #7d} p1 REPL
    PICT {# 116d,# 1d} ENDGROB GXOR PICT {# 116d,# 1d} ENDGROB REPL
    PICT {#58d #7d} ENDHELP REPL 1 WAIT PICT {#58d #7d} e1 REPL 9 SF
  END
  PICT #19d y R\->B 2 \->LIST SHIP 
  IF 2 FC? THEN GOR 2 SF 1 WAIT
  ELSE 
    GXOR 2 CF 
    IF y IF 10 FC? THEN 42 ELSE 57 END  \>= THEN
      0 9 CF PICT IF 10 FC? THEN {# 2d,# 58d} ELSE {# 2d,# 73d} END GROUND REPL
    ELSE 
      y 6 + 
    END 'y' STO 
  END 
  IF KEY THEN 
    'k' STO 
    IF k 11 == k 16 == OR THEN
      1 SF IF 2 FS? THEN PICT #19d y R\->B 2 \->LIST SHIP GXOR END
    END
  END
END
\>> 
\>>
\<<
PICT #19d y R\->B 2 \->LIST SHIP GXOR
PICT IF 10 FC? THEN {#19d #48d} ELSE {#19d #63d} END SHIPCRSH GOR
70 .1 BEEP 90 .1 BEEP 100 .1 BEEP 120 .1 BEEP 150 .1 BEEP 170 .1 BEEP
\>>
\-> initg intros dshpcrsh \<<

@ system flags status for hp49g/hp50g
@ HP49G/HP50G : flag -3 set : symbolic constants evaluate to numbers
@ HP49G/HP50G : flag -105 clear: Exact Mode
@ HP49G/HP50G : flag -120 set: silence mode on

3 CF 6 CF -3 SF -105 CF -120 SF ERASE {#0h #0h} PVIEW

IFERR
@ 9/2013 running on a HP 50g
  PICT {# 2d,# 73d} GROUND GOR 10 SF
THEN
  PICT {# 2d,# 58d} GROUND GOR 10 CF
END


PICT {# 54d,# 2d} TITLE GOR PICT {# 1d,# 1d} PLAYGROB GOR
PICT {# 116d,# 1d} ENDGROB GOR PICT {# 61d,# 20d} INFUEL GOR
PICT {# 113d,# 19d} FUEL GOR PICT {# 36d,# 5d} STAR GOR
PICT {# 4d,# 25d} STAR1 GOR 

IF 10 FC? THEN
  PICT {# 55d,# 55d} "V:" 2 \->GROB GOR
  PICT {# 92d,# 55d} "D:" 2 \->GROB GOR
ELSE
  PICT {# 55d,# 70d} "V:" 2 \->GROB GOR
  PICT {# 92d,# 70d} "D:" 2 \->GROB GOR
END

initg EVAL
PICT {# 42d,# 44d} BYME REPL 2 WAIT PICT {# 42d,# 44d} # 46d # 9d BLANK REPL
intros EVAL 2 SF
1 CF WHILE 1 FC? REPEAT
  IF 2 FS? THEN 2 CF ELSE DO UNTIL KEY END 'k' STO END 
  CASE
   k 11 == THEN
    initg EVAL 20 'fy' STO 3 CF 6 CF
    PICT IF 10 FC? THEN {# 2d,# 58d} ELSE {# 2d,# 73d} END GROUND REPL
    WHILE 3 FC? REPEAT
      0 'infuel' STO 0 'infi' STO 0 'c' STO 4 CF 5 CF
      PICT {# 79d,# 31d} # 17d # 9d BLANK REPL
      WHILE 4 FC? f 0 > AND REPEAT
       PICT {#68d #31d} FUELFLSH
       IF 5 FC? THEN GOR 5 SF ELSE GXOR 5 CF END
       IF KEY THEN 
         'k' STO 
         IF k 72 \>= k 74 \<= AND THEN
            k 65 - 
         ELSE
            IF k 82 \>= k 84 \<= AND THEN
               k 78 -
            ELSE
               IF k 92 \>= k 94 \<= AND THEN
                  k 91 -
               ELSE
                  IF k 102 == THEN
                      0
                  ELSE -1 END
               END
            END
         END 'k' STO
         IF k -1  \=/ THEN
           PICT [79 85 91] infi 1 + GET R\->B #31d 2 \->LIST k \->STR uu EVAL
           3 \->GROB REPL
           infuel 10 * k + 'infuel' STO 0 'c' STO
           IF 'infi' INCR 3 \>= THEN 4 SF END
         END
       ELSE
         IF 'c' INCR 12 > THEN 4 SF END
       END
      END
      IF infuel NOT THEN PICT {#79d #31d} "0" 3 \->GROB REPL END
      IF 5 FC? THEN PICT {#68d #31d} FUELFLSH REPL END
      IF infuel THEN
        IF infuel f \<= THEN
          PICT #117d fy R\->B 2 \->LIST
          #8d  infuel 5 / IP IF infuel 5 MOD THEN 1 + END 
          DUP fy + 'fy' STO R\->B  BLANK REPL
          {# 116d,# 44d} {# 125d,# 44d} LINE
        ELSE
          PICT {# 117d,# 20d} # 8d # 24d BLANK REPL
        END
      END
      IF f infuel  \>= THEN
        f infuel - 'f' STO
      ELSE
        f 'infuel' STO 0 'f' STO
      END
      PICT {# 115d,# 12d} # 11d # 5d BLANK REPL
      PICT {#115d,#12d} f \->STR uu EVAL 1 \->GROB REPL
      infuel 5 - 'a' STO
      a 2 / v + d + 'd1' STO 
      IF f 0 == d1 5 > AND THEN
        v v * 10 d * + \v/ -1 * 'v' STO 3 SF  0 'd' STO dshpcrsh EVAL
      ELSE
        IF d1 0 \>= THEN
          v a + 'v' STO 
          IF v 0 == d1 5 \<= AND THEN 
            3 SF 6 SF IF 10 FC? THEN 42 ELSE 57 END 'y1' STO d1 'd' STO
            PICT #19d y R\->B 2 \->LIST SHIP GXOR
            PICT {#19d #42d} SHIPSAVE GOR
            70 .1 BEEP 90 .1 BEEP 100 .1 BEEP 120 .1 BEEP 150 .1 BEEP 170 .1 BEEP
          ELSE
            IF d d1 > THEN
              500 d1 - 1 + IF 10 FC? THEN 12 ELSE 9 END / DUP IP SWAP IF FP 0 > THEN 1 + END 'y1' STO
              PICT #19d y R\->B 2 \->LIST SHIP GXOR
              PICT #19d y1 R\->B 2 \->LIST SHIP GOR
              y1 'y' STO d1 'd' STO
            END
          END
        ELSE
          3 SF IF 10 FC? THEN 48 ELSE 63 END 'y1' STO d1 'd' STO dshpcrsh EVAL
        END
      END

      v d dspinfo EVAL
    END
   
    7 CF 8 CF WHILE 7 FC? REPEAT
      PICT {#36d #25} IF 6 FS? THEN WIN ELSE CRASH END
      IF 8 FC? THEN GOR 8 SF ELSE GXOR 8 CF END 1 WAIT
      IF KEY THEN 
        'k' STO 
        IF k 11 == k 16 == OR THEN
          7 SF 2 SF 
          IF 8 FS? THEN 
            PICT {#36d #25} IF 6 FS? THEN WIN ELSE CRASH END GXOR
          END
        END
      END
    END
    
   END
   k 16 == THEN
     1 SF 
   END
  END
END
fs STOF
\>>
\>>
\>>

