00000000: 01 04 22 04 0A 00 8F 20 59 4F 55 20 4D 41 59 20 |..".... YOU MAY |
00000010: 43 4F 50 59 20 54 48 49 53 20 20 50 52 4F 47 52 |COPY THIS PROGR|
00000020: 41 4D 00 39 04 14 00 8F 20 46 4F 52 20 59 4F 55 |AM.9.... FOR YOU|
00000030: 52 20 4F 57 4E 20 55 53 45 00 5E 04 1E 00 8F 20 |R OWN USE.^.... |
00000040: 53 45 4E 44 20 32 35 20 43 45 4E 54 53 20 28 55 |SEND 25 CENTS (U|
00000050: 53 20 4F 52 20 43 41 4E 41 44 49 41 4E 29 00 79 |S OR CANADIAN).y|
00000060: 04 28 00 8F 20 54 4F 2D 20 20 4A 49 4D 20 42 55 |.(.. TO- JIM BU|
00000070: 54 54 45 52 46 49 45 4C 44 00 97 04 32 00 8F 20 |TTERFIELD...2.. |
00000080: 20 20 20 20 20 31 34 20 42 52 4F 4F 4B 4C 59 4E | 14 BROOKLYN|
00000090: 20 41 56 45 4E 55 45 00 BA 04 3C 00 8F 20 20 20 | AVENUE...<.. |
000000A0: 20 20 20 54 4F 52 4F 4E 54 4F 20 43 41 4E 41 44 | TORONTO CANAD|
000000B0: 41 20 20 4D 34 4D 20 32 58 35 00 DA 04 46 00 8F |A M4M 2X5...F..|
000000C0: 20 44 4F 20 4E 4F 54 20 52 45 4D 4F 56 45 20 54 | DO NOT REMOVE T|
000000D0: 48 49 53 20 4E 4F 54 49 43 45 00 E0 04 50 00 8F |HIS NOTICE...P..|
000000E0: 00 00 05 5A 00 8F 20 20 20 20 20 20 20 2E 2E 45 |...Z.. ..E|
000000F0: 4E 4A 4F 59 20 54 48 45 20 50 52 4F 47 52 41 4D |NJOY THE PROGRAM|
00000100: 00 28 05 64 00 99 22 11 4C 55 4E 41 52 20 4C 41 |.(.d..".LUNAR LA|
00000110: 4E 44 45 52 20 20 20 20 20 4A 20 42 55 54 54 45 |NDER J BUTTE|
00000120: 52 46 49 45 4C 44 11 22 00 50 05 6E 00 99 22 54 |RFIELD.".P.n.."T|
00000130: 4F 20 43 4F 50 59 20 54 48 49 53 20 50 52 4F 47 |O COPY THIS PROG|
00000140: 52 41 4D 2C 20 4C 49 53 54 20 31 30 2D 39 30 22 |RAM, LIST 10-90"|
00000150: 00 7B 05 78 00 85 22 11 57 41 4E 54 20 49 4E 53 |.{.x..".WANT INS|
00000160: 54 52 55 43 54 49 4F 4E 53 22 3B 5A 24 3A 8B C6 |TRUCTIONS";Z$:..|
00000170: 28 5A 24 29 B2 37 38 89 32 30 30 00 A8 05 82 00 |(Z$).78.200.....|
00000180: 99 22 11 59 4F 55 52 20 43 52 41 46 54 20 49 53 |.".YOUR CRAFT IS|
00000190: 20 44 45 53 43 45 4E 44 49 4E 47 20 54 4F 57 41 | DESCENDING TOWA|
000001A0: 52 44 53 20 54 48 45 22 00 D6 05 8C 00 99 22 4D |RDS THE"......"M|
000001B0: 4F 4F 4E 27 53 20 53 55 52 46 41 43 45 2E 20 47 |OON'S SURFACE. G|
000001C0: 52 41 56 49 54 59 20 50 55 4C 4C 53 20 59 4F 55 |RAVITY PULLS YOU|
000001D0: 20 44 4F 57 4E 22 00 04 06 96 00 99 22 2E 2E 42 | DOWN"......"..B|
000001E0: 55 54 20 59 4F 55 52 20 52 4F 43 4B 45 54 20 4D |UT YOUR ROCKET M|
000001F0: 4F 54 4F 52 20 57 49 4C 4C 20 53 4C 4F 57 20 59 |OTOR WILL SLOW Y|
00000200: 4F 55 52 22 00 2D 06 A0 00 99 22 44 45 53 43 45 |OUR".-...."DESCE|
00000210: 4E 54 2E 20 20 4B 45 59 20 27 30 27 20 49 53 20 |NT. KEY '0' IS |
00000220: 5A 45 52 4F 20 54 48 52 55 53 54 2C 22 00 53 06 |ZERO THRUST,".S.|
00000230: AA 00 99 22 4B 45 59 20 27 39 27 20 49 53 20 4D |..."KEY '9' IS M|
00000240: 41 58 20 52 4F 43 4B 45 54 20 54 48 52 55 53 54 |AX ROCKET THRUST|
00000250: 2E 11 22 00 7E 06 B4 00 99 22 44 4F 4E 27 54 20 |..".~...."DON'T |
00000260: 54 41 4B 45 20 54 4F 4F 20 4C 4F 4E 47 20 43 4F |TAKE TOO LONG CO|
00000270: 4D 49 4E 47 20 44 4F 57 4E 2C 20 4F 52 22 00 A8 |MING DOWN, OR"..|
00000280: 06 BE 00 99 22 59 4F 55 27 4C 4C 20 52 55 4E 20 |...."YOU'LL RUN |
00000290: 4F 55 54 20 4F 46 20 46 55 45 4C 2E 11 47 4F 4F |OUT OF FUEL..GOO|
000002A0: 44 20 4C 55 43 4B 21 22 00 CC 06 C3 00 99 22 11 |D LUCK!"......".|
000002B0: 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 53 |HIT ANY KEY TO S|
000002C0: 54 41 52 54 20 46 4C 49 47 48 54 22 00 E0 06 C6 |TART FLIGHT"....|
000002D0: 00 A1 20 5A 24 3A 8B 5A 24 B2 22 22 89 31 39 38 |.. Z$:.Z$."".198|
000002E0: 00 F6 06 C8 00 86 53 24 28 32 29 2C 50 24 28 33 |......S$(2),P$(3|
000002F0: 29 2C 50 28 33 29 00 14 07 D2 00 52 24 B2 22 CE |),P(3).....R$.".|
00000300: A3 A3 CD 91 9D 9D 9D CF D0 91 9D 9D CA CB 91 9D |................|
00000310: 9D D5 C9 22 00 2C 07 DC 00 53 24 28 31 29 B2 22 |...".,...S$(1)."|
00000320: AC 22 3A 53 24 28 30 29 B2 22 BC 22 00 4A 07 E6 |.":S$(0).".".J..|
00000330: 00 54 24 B2 22 20 20 20 20 91 9D 9D 9D 20 20 91 |.T$." .... .|
00000340: 9D 9D 20 20 91 9D 9D 20 20 22 00 6D 07 F0 00 58 |.. ... ".m...X|
00000350: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000360: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 83 07 |............"...|
00000370: FA 00 59 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..Y$."..........|
00000380: 1D 1D 22 00 A0 07 2C 01 48 B2 31 30 30 30 30 3A |.."...,.H.10000:|
00000390: 53 B2 AB 35 30 3A 41 B2 30 3A 46 B2 31 32 30 30 |S..50:A.0:F.1200|
000003A0: 00 B1 07 36 01 54 49 24 B2 22 30 30 30 30 30 30 |...6.TI$."000000|
000003B0: 22 00 BC 07 40 01 45 24 B2 22 20 22 00 C6 07 4A |"...@.E$." "...J|
000003C0: 01 99 22 93 22 3A 00 E7 07 54 01 81 4A B2 31 A4 |..".":...T..J.1.|
000003D0: 32 32 3A 58 B2 BB 28 31 29 AC 32 30 3A 8B 58 B1 |22:X..(1).20:.X.|
000003E0: 39 A7 58 B2 58 AA 34 00 FA 07 5E 01 99 A3 58 AA |9.X.X.4...^...X.|
000003F0: 31 35 29 3B 22 2E 22 3A 82 4A 00 20 08 68 01 99 |15);".":.J. .h..|
00000400: A3 31 35 29 3B 22 A3 C5 C4 C3 C4 C5 A3 A3 C5 A3 |.15);"..........|
00000410: A3 C5 A3 C5 C4 C5 C4 C3 C0 C3 C0 C6 D2 C6 22 3B |..............";|
00000420: 00 3A 08 90 01 99 22 13 20 20 20 20 20 20 20 20 |.:....". |
00000430: 12 54 49 4D 45 20 20 20 20 22 00 53 08 9A 01 99 |.TIME ".S....|
00000440: 22 20 20 20 20 20 20 20 20 12 41 4C 54 49 54 55 |" .ALTITU|
00000450: 44 45 22 00 6C 08 A4 01 99 22 20 20 20 20 20 20 |DE".l...." |
00000460: 20 20 12 53 50 45 45 44 20 20 20 22 00 85 08 AE | .SPEED "....|
00000470: 01 99 22 20 20 20 20 20 20 20 20 12 54 48 52 55 |.." .THRU|
00000480: 53 54 20 20 22 00 9E 08 B8 01 99 22 20 20 20 20 |ST "......" |
00000490: 20 20 20 20 12 46 55 45 4C 20 20 20 20 22 00 A7 | .FUEL "..|
000004A0: 08 C2 01 54 B2 54 49 00 AD 08 F4 01 8F 00 D9 08 |...T.TI.........|
000004B0: FE 01 50 28 30 29 B2 B5 28 48 29 3A 50 28 31 29 |..P(0)..(H):P(1)|
000004C0: B2 B5 28 53 29 3A 50 28 32 29 B2 B5 28 41 29 3A |..(S):P(2)..(A):|
000004D0: 50 28 33 29 B2 B5 28 46 29 00 17 09 08 02 81 4A |P(3)..(F)......J|
000004E0: B2 30 A4 33 3A 50 24 28 4A 29 B2 C4 28 50 28 4A |.0.3:P$(J)..(P(J|
000004F0: 29 29 3A 50 24 28 4A 29 B2 CA 28 22 20 20 20 20 |)):P$(J)..(" |
00000500: 20 1D 9D 22 2C C3 28 50 24 28 4A 29 29 29 AA 50 | ..",.(P$(J))).P|
00000510: 24 28 4A 29 3A 82 4A 00 4A 09 12 02 99 22 13 20 |$(J):.J.J....". |
00000520: 22 3B CA 28 54 49 24 2C 33 2C 32 29 3B 22 3A 22 |";.(TI$,3,2);":"|
00000530: 3B C9 28 54 49 24 2C 32 29 3A 81 4A B2 30 A4 33 |;.(TI$,2):.J.0.3|
00000540: 3A 99 50 24 28 4A 29 3A 82 4A 00 5D 09 1C 02 A1 |:.P$(J):.J.]....|
00000550: 5A 24 3A 8B 5A 24 B2 22 22 89 35 36 30 00 7B 09 |Z$:.Z$."".560.{.|
00000560: 26 02 5A B2 C6 28 5A 24 29 AB 34 38 3A 8B 5A B1 |&.Z..(Z$).48:.Z.|
00000570: B2 30 AF 5A B3 B2 39 A7 41 B2 5A 00 8A 09 30 02 |.0.Z..9.A.Z...0.|
00000580: 8B 48 B3 31 30 30 89 36 34 30 00 9C 09 3A 02 50 |.H.100.640...:.P|
00000590: B2 B5 28 34 36 AB 48 AD 32 30 30 29 00 A9 09 44 |..(46.H.200)...D|
000005A0: 02 8B 50 B3 32 A7 50 B2 32 00 BD 09 4E 02 56 24 |..P.2.P.2...N.V$|
000005B0: B2 C8 28 58 24 2C 50 AD 32 29 AA 59 24 00 CF 09 |..(X$,P.2).Y$...|
000005C0: 58 02 50 31 B2 50 AB 32 AC B5 28 50 AD 32 29 00 |X.P1.P.2..(P.2).|
000005D0: E4 09 62 02 99 45 24 3B 56 24 3B 59 24 3B 53 24 |..b..E$;V$;Y$;S$|
000005E0: 28 50 31 29 00 F5 09 6C 02 45 24 B2 56 24 AA 59 |(P1)...l.E$.V$.Y|
000005F0: 24 AA 22 20 22 00 FE 09 76 02 89 37 30 30 00 0E |$." "...v..700..|
00000600: 0A 80 02 50 B2 B5 28 32 33 AB 48 AD 35 29 00 1B |...P..(23.H.5)..|
00000610: 0A 8A 02 8B 50 B3 35 A7 50 B2 35 00 2D 0A 94 02 |....P.5.P.5.-...|
00000620: 56 24 B2 C8 28 58 24 2C 50 29 AA 59 24 00 3E 0A |V$..(X$,P).Y$.>.|
00000630: 9E 02 99 45 24 3B 56 24 3B 59 24 3B 52 24 00 4E |...E$;V$;Y$;R$.N|
00000640: 0A A8 02 45 24 B2 56 24 AA 59 24 AA 54 24 00 5C |...E$.V$.Y$.T$.\|
00000650: 0A BC 02 8B 54 B2 54 49 89 37 30 30 00 6C 0A C6 |....T.TI.700.l..|
00000660: 02 58 B2 54 49 AB 54 3A 54 B2 54 49 00 79 0A D0 |.X.TI.T:T.TI.y..|
00000670: 02 8B 48 B2 30 89 38 30 30 00 8E 0A DA 02 53 B2 |..H.0.800.....S.|
00000680: 53 AA 28 28 41 AB 35 29 AC 58 AD 36 30 29 00 9D |S.((A.5).X.60)..|
00000690: 0A E4 02 48 B2 48 AA 53 AC 58 AD 36 30 00 AC 0A |...H.H.S.X.60...|
000006A0: EE 02 46 B2 46 AB 41 AC 58 AD 36 30 00 BE 0A F8 |..F.F.A.X.60....|
000006B0: 02 8B 48 B3 B2 30 A7 41 B2 30 3A 48 B2 30 00 D0 |..H..0.A.0:H.0..|
000006C0: 0A 02 03 8B 46 B3 B2 30 A7 41 B2 30 3A 46 B2 30 |....F..0.A.0:F.0|
000006D0: 00 DA 0A 0C 03 89 20 35 30 30 00 EE 0A 20 03 53 |...... 500... .S|
000006E0: B2 B6 28 53 29 3A 8B 53 B3 36 89 38 34 30 00 F7 |..(S):.S.6.840..|
000006F0: 0A 2A 03 99 45 24 3B 00 1E 0B 34 03 8B 53 B3 31 |.*..E$;...4..S.1|
00000700: 32 A7 99 22 11 9D CD 9D 11 A7 D0 D5 C9 9D 9D 9D |2.."............|
00000710: 9D 11 9D CD BA BA CA CB 22 3A 89 38 34 30 00 34 |........":.840.4|
00000720: 0B 3E 03 99 22 11 11 11 11 9D 9D 9D 9D CD A4 AF |.>.."...........|
00000730: D2 A4 CE 22 00 45 0B 48 03 99 22 13 11 11 11 11 |...".E.H..".....|
00000740: 11 11 11 22 3B 00 60 0B 52 03 8B 53 B3 32 A7 99 |...";.`.R..S.2..|
00000750: 22 46 45 41 54 48 45 52 2D 4C 49 47 48 54 21 22 |"FEATHER-LIGHT!"|
00000760: 00 81 0B 5C 03 8B 53 B3 36 A7 99 22 41 20 47 4F |...\..S.6.."A GO|
00000770: 4F 44 20 4C 41 4E 44 49 4E 47 2E 22 3A 89 39 32 |OD LANDING.":.92|
00000780: 30 00 93 0B 66 03 99 22 12 20 43 52 41 53 48 21 |0...f..". CRASH!|
00000790: 21 20 22 00 C2 0B 70 03 8B 53 B3 31 32 A7 99 22 |! "...p..S.12.."|
000007A0: 59 4F 55 20 53 55 52 56 49 56 45 44 2E 2E 22 3A |YOU SURVIVED..":|
000007B0: 99 22 42 55 54 20 48 4F 57 20 41 52 45 20 59 4F |."BUT HOW ARE YO|
000007C0: 55 22 00 E4 0B 7A 03 8B 53 B3 31 32 A7 99 22 47 |U"...z..S.12.."G|
000007D0: 4F 4E 4E 41 20 47 45 54 20 48 4F 4D 45 3F 22 3A |ONNA GET HOME?":|
000007E0: 89 39 32 30 00 10 0C 84 03 99 22 43 52 41 46 54 |.920......"CRAFT|
000007F0: 20 56 41 50 4F 52 49 5A 45 44 3B 22 3A 99 22 54 | VAPORIZED;":."T|
00000800: 48 45 20 4D 4F 4F 4E 20 4E 4F 57 20 48 41 53 22 |HE MOON NOW HAS"|
00000810: 00 3E 0C 8E 03 99 22 41 20 4E 45 57 20 43 52 41 |.>...."A NEW CRA|
00000820: 54 45 52 2C 22 3A 99 B5 28 BA 28 53 AA 35 29 29 |TER,":..(.(S.5))|
00000830: 3B 22 4D 45 54 45 52 53 20 44 45 45 50 22 00 59 |;"METERS DEEP".Y|
00000840: 0C 98 03 99 58 24 3B 22 41 4E 4F 54 48 45 52 20 |....X$;"ANOTHER |
00000850: 46 4C 49 47 48 54 3F 22 3B 00 71 0C A2 03 85 20 |FLIGHT?";.q.... |
00000860: 5A 24 3A 8B C6 28 5A 24 29 B3 B1 37 38 89 33 30 |Z$:..(Z$)..78.30|
00000870: 30 00 00 00 0A |0.... |
..".... YOU MAY COPY THIS PROGRAM.9....
FOR YOUR OWN USE.^.... SEND 25 CENTS (U
S OR CANADIAN).Y.(.. TO- JIM BUTTERFIEL
D...2.. 14 BROOKLYN AVENUE...<..
TORONTO CANADA M4M 2X5.Z.F.. DO NOT
REMOVE THIS NOTICE...P.....Z.. ..E
NJOY THE PROGRAM.(.D..".LUNAR LANDER
J BUTTERFIELD.".P.N.."TO COPY THIS PROG
RAM, LIST 10-90".{.X..".WANT INSTRUCTION
S";Z$:.F(Z$).78.200......".YOUR CRAFT IS
DESCENDING TOWARDS THE".V...."MOON'S SU
RFACE. GRAVITY PULLS YOU DOWN"......"..B
UT YOUR ROCKET MOTOR WILL SLOW YOUR".-.
.."DESCENT. KEY '0' IS ZERO THRUST,".S.
..."KEY '9' IS MAX ROCKET THRUST..".~...
."DON'T TAKE TOO LONG COMING DOWN, OR"..
...."YOU'LL RUN OUT OF FUEL..GOOD LUCK!"
.L.C..".HIT ANY KEY TO START FLIGHT"...F
.. Z$:.Z$."".198...H..S$(2),P$(3),P(3)..
.R.R$."N..M....OP...JK...UI".,...S$(1)."
.":S$(0).".".J...T$." .... ... ...
".M...X$."........................."...
..Y$."............". .,.H.10000:S..50:A.
0:F.1200...6.TI$."000000"...@.E$." ".F.J
..".":...T..J.1.22:X..(1).20:.X.9.X.X.4.
..^...X.15);".":.J. .H...15);".EDCDE..E.
.E.EDEDC.C.FRF";.:....". .TIME
".S...." .ALTITUDE".L...."
.SPEED "......" .THRUST "...
..." .FUEL "...B.T.TI.......Y.
..P(0)..(H):P(1)..(S):P(2)..(A):P(3)..(F
)......J.0.3:P$(J).D(P(J)):P$(J).J("
..",C(P$(J))).P$(J):.J.J....". ";J(TI$,
3,2);":";I(TI$,2):.J.0.3:.P$(J):.J.]....
Z$:.Z$."".560.{.&.Z.F(Z$).48:.Z..0.Z..9.
A.Z...0..H.100.640...:.P..(46.H.200)...D
..P.2.P.2...N.V$.H(X$,P.2).Y$.O.X.P1.P.2
..(P.2)...B..E$;V$;Y$;S$(P1)...L.E$.V$.Y
$." "...V..700.....P..(23.H.5)......P.5.
P.5.-...V$.H(X$,P).Y$.>....E$;V$;Y$;R$.N
...E$.V$.Y$.T$.\....T.TI.700.L.F.X.TI.T:
T.TI.Y.P..H.0.800...Z.S.S.((A.5).X.60)..
...H.H.S.X.60.....F.F.A.X.60......H..0.A
.0:H.0.P....F..0.A.0:F.0.Z.... 500... .S
..(S):.S.6.840...*..E$;...4..S.12.."..M.
..PUI......M..JK":.840.4.>.."........M..
R.N".E.H.."........";.`.R..S.2.."FEATHER
-LIGHT!"...\..S.6.."A GOOD LANDING.":.92
0...F..". CRASH!! ".B.P..S.12.."YOU SURV
IVED..":."BUT HOW ARE YOU"...Z..S.12.."G
ONNA GET HOME?":.920......"CRAFT VAPORIZ
ED;":."THE MOON NOW HAS".>...."A NEW CRA
TER,":..(.(S.5));"METERS DEEP".Y....X$;"
ANOTHER FLIGHT?";.Q.... Z$:.F(Z$)..78.30
0....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL