Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

034086,000002:                                                                                                  ## Copyright:   Public domain.
034087,000003:                                                                                                  ## Filename:    THE_LUNAR_LANDING.agc
034088,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
034089,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
034090,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
034091,000007:                                                                                                  ## Assembler:   yaYUL
034092,000008:                                                                                                  ## Contact:     Hartmuth Gutsche<hgutsche@xplornet.com>.
034093,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
034094,000010:                                                                                                  ## Pages:       785-792
034095,000011:                                                                                                  ## Mod history: 2009-05-20 HG   Transcribed from page images.
034096,000012:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
034097,000013:                                                                                                  ##              2016-12-16 RSB  Proofed text comments with octopus/ProoferComments
034098,000014:                                                                                                  ##                              and corrected the errors found.
034099,000015:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
034100,000016:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
034101,000017:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
034102,000018: 
034103,000019:                                                                                                  ## This source code has been transcribed or otherwise adapted from
034104,000020:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
034105,000021:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
034106,000022:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
034107,000023:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
034108,000024:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
034109,000025:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
034110,000026:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
034111,000027:                                                                                                  ## actually created.
034112,000028:                                                                                                  ##
034113,000029:                                                                                                  ## Notations on the hardcopy document read, in part:
034114,000030:                                                                                                  ##
034115,000031:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
034116,000032:                                                                                                  ##      16:27 JULY 14, 1969 
034117,000033: 

Page 785

034119,000035: 32,2776                                           BANK     32                                    
034120,000036: 32,2000                                           SETLOC   F2DPS*32                              
034121,000037: 32,2000                                           BANK                                           
034122,000038: 
034123,000039: 32,2776  E7,1621                                  EBANK=   E2DPS                                 
034124,000040: 
034125,000041:                                                                                                  #        ****************************************
034126,000042:                                                                                                  #        P63: THE LUNAR LANDING, BRAKING PHASE
034127,000043:                                                                                                  #        ****************************************
034128,000044: 
034129,000045: 32,2776                                           COUNT*   $$/P63                                
034130,000046: 
034131,000047: 32,2776           05353        P63LM              TC       PHASCHNG                              
034132,000048: 32,2777           04024                           OCT      04024                                 
034133,000049: 
034134,000050: 32,3000           04616                           TC       BANKCALL                              #  DO IMU STATUS CHECK ROUTINE R02
034135,000051: 32,3001           11254                           CADR     R02BOTH                               
034136,000052: 
034137,000053: 32,3002           33253                           CAF      P63ADRES                              #  INITIALIZE WHICH FOR BURNBABY
034138,000054: 32,3003           55455                           TS       WHICH                                 
034139,000055: 
034140,000056: 32,3004           32000                           CAF      DPSTHRSH                              #  INITIALIZE DVMON
034141,000057: 32,3005           55251                           TS       DVTHRUSH                              
034142,000058: 32,3006           34751                           CAF      FOUR                                  
034143,000059: 32,3007           55515                           TS       DVCNTR                                
034144,000060: 
034145,000061: 32,3010           44753                           CS       ONE                                   #  INITIALIZE WCHPHASE AND FLPASSO
034146,000062: 32,3011           55351                           TS       WCHPHASE                              
034147,000063: 
034148,000064: 32,3012           34755                           CA       ZERO                                  
034149,000065: 32,3013           55623                           TS       FLPASS0                               
034150,000066: 
034151,000067: 32,3014           44736                           CS       BIT14                                 
034152,000068: 32,3015           00006                           EXTEND                                         
034153,000069: 32,3016           03012                           WAND     CHAN12                                #  REMOVE TRACK-ENABLE DISCRETE.
034154,000070: 
034155,000071: 32,3017           06037        FLAGORGY           TC       INTPRET                               #  DIONYSIAN FLAG WAVING
034156,000072: 32,3020           43014                           CLEAR    CLEAR                                 
034157,000073: 32,3021           02663                                    NOTHROTL                              
034158,000074: 32,3022           03271                                    REDFLAG                               
034159,000075: 32,3023           43014                           CLEAR    SET                                   
034160,000076: 32,3024           05660                                    LRBYPASS                              
034161,000077: 32,3025           03067                                    MUNFLAG                               
034162,000078: 32,3026           43014                           CLEAR    CLEAR                                 
034163,000079: 32,3027           00266                                    P25FLAG                               #  TERMINATE P25 IF IT IS RUNNING.
034164,000080: 32,3030           00270                                    RNDVZFLG                              #  TERMINATE P20 IF IT IS RUNNING
034165,000081: 
034166,000082:                                                                                                  #  ****************************************
034167,000083: 
034168,000084: 32,3031           77201        IGNALG             SETPD    VLOAD                                 #  FIRST SET UP INPUTS FOR RP-TO-R:-

Page 786

034170,000086: 32,3032           00001                                    0                                     #        AT 0D LANDING SITE IN MOON FIXED FRAME
034171,000087: 32,3033           02023                                    RLS                                   #        AT 6D ESTIMATED TIME OF LANDING
034172,000088: 32,3034           41525                           PDDL     PUSH                                  #        MPAC NON-ZERO TO INDICATE LUNAR CASE
034173,000089: 32,3035           02401                                    TLAND                                 
034174,000090: 32,3036           37625                           STCALL   TPIP                                  #  ALSO SET TPIP FOR FIRST GUIDANCE PASS
034175,000091: 32,3037           55716                                    RP-TO-R                               
034176,000092: 32,3040           64312                           VSL4     MXV                                   
034177,000093: 32,3041           01734                                    REFSMMAT                              
034178,000094: 32,3042           37635                           STCALL   LAND                                  
034179,000095: 32,3043           46432                                    GUIDINIT                              #  GUIDINIT INITIALIZES WM AND /LAND/
034180,000096: 32,3044           45345                           DLOAD    DSU                                   
034181,000097: 32,3045           02401                                    TLAND                                 
034182,000098: 32,3046           25260                                    GUIDDURN                              
034183,000099: 32,3047           34041                           STCALL   TDEC1                                 #  INTEGRATE STATE FORWARD TO THAT TIME
034184,000100: 32,3050           27057                                    LEMPREC                               
034185,000101: 32,3051           77331                           SSP      VLOAD                                 
034186,000102: 32,3052           03647                                    NIGNLOOP                              
034187,000103: 32,3053           00050                                    40D                                   
034188,000104: 32,3054           06520                                    UNITX                                 
034189,000105: 32,3055           26603                           STOVL    CG                                    
034190,000106: 32,3056           06516                                    UNITY                                 
034191,000107: 32,3057           26611                           STOVL    CG         +6                         
034192,000108: 32,3060           06514                                    UNITZ                                 
034193,000109: 32,3061           16617                           STODL    CG         +14                        
034194,000110: 32,3062           25256                                    99999CON                              
034195,000111: 32,3063           27665                           STOVL    DELTAH                                #  INITIALIZE DELTAH FOR V16N68 DISPLAY
034196,000112: 32,3064           06522                                    ZEROVECS                              
034197,000113: 32,3065           17254                           STODL    UNFC/2                                #  INITIALIZE TRIM VELOCITY CORRECTION TERM
034198,000114: 32,3066           06522                                    HI6ZEROS                              
034199,000115: 32,3067           03643                           STORE    TTF/8                                 
034200,000116: 
034201,000117: 32,3070           77745        IGNALOOP           DLOAD                                          
034202,000118: 32,3071           00015                                    TAT                                   
034203,000119: 32,3072           27561                           STOVL    PIPTIME1                              
034204,000120: 32,3073           00017                                    RATT1                                 
034205,000121: 32,3074           64312                           VSL4     MXV                                   
034206,000122: 32,3075           01734                                    REFSMMAT                              
034207,000123: 32,3076           37521                           STCALL   R                                     
034208,000124: 32,3077           67130                                    MUNGRAV                               
034209,000125: 32,3100           35237                           STCALL   GDT/2                                 
034210,000126: 32,3101           62454                                    ?GUIDSUB                              #  WHICH DELIVERS N PASSES OF GUIDANCE
034211,000127: 
034212,000128:                                                                                                  #  DDUMCALC IS PROGRAMMED AS FOLLOWS:-
034213,000129:                                                                                                  #                                          2                                           -
034214,000130:                                                                                                  #               (RIGNZ - RGU )/16 + 16(RGU  )KIGNY/B8 + (RGU - RIGNX)KIGNX/B4 + (ABVAL(VGU) - VIGN)KIGNV/B4
034215,000131:                                                                                                  #                           2             1                 0
034216,000132:                                                                                                  #        DDUM = -------------------------------------------------------------------------------------------
034217,000133:                                                                                                  #                                                 10
034218,000134:                                                                                                  #                                                2   (VGU - 16 VGU KIGNX/B4)

Page 787

034220,000136:                                                                                                  #                                                        2        0
034221,000137:                                                                                                  #  THE NUMERATOR IS SCALED IN METERS AT 2(28).  THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS.
034222,000138:                                                                                                  #  THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS.  THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
034223,000139:                                                                                                  #  THERE IS NO DAMPING FACTOR.  THE CONSTANTS KIGNX/B4, KIGNY/B8 AND KIGNV/B4 ARE ALL NEGATIVE IN SIGN.
034224,000140: 
034225,000141: 32,3102           55646        DDUMCALC           TS       NIGNLOOP                              
034226,000142: 32,3103           06037                           TC       INTPRET                               
034227,000143: 32,3104           57345                           DLOAD    DMPR                                  #  FORM DENOMINATOR FIRST
034228,000144: 32,3105           03627                                    VGU                                   
034229,000145: 32,3106           02501                                    KIGNX/B4                              
034230,000146: 32,3107           44232                           SL4R     BDSU                                  
034231,000147: 32,3110           03633                                    VGU        +4                         
034232,000148: 32,3111           45325                           PDDL     DSU                                   
034233,000149: 32,3112           02477                                    RIGNZ                                 
034234,000150: 32,3113           02643                                    RGU        +4                         
034235,000151: 32,3114           65222                           SR4R     PDDL                                  
034236,000152: 32,3115           02641                                    RGU        +2                         
034237,000153: 32,3116           57316                           DSQ      DMPR                                  
034238,000154: 32,3117           02503                                    KIGNY/B8                              
034239,000155: 32,3120           65232                           SL4R     PDDL                                  
034240,000156: 32,3121           02637                                    RGU                                   
034241,000157: 32,3122           57225                           DSU      DMPR                                  
034242,000158: 32,3123           02475                                    RIGNX                                 
034243,000159: 32,3124           02501                                    KIGNX/B4                              
034244,000160: 32,3125           51515                           PDVL     ABVAL                                 
034245,000161: 32,3126           03627                                    VGU                                   
034246,000162: 32,3127           57225                           DSU      DMPR                                  
034247,000163: 32,3130           02473                                    VIGN                                  
034248,000164: 32,3131           02505                                    KIGNV/B4                              
034249,000165: 32,3132           43215                           DAD      DAD                                   
034250,000166: 32,3133           56215                           DAD      DDV                                   
034251,000167: 32,3134           77661                           SRR                                            
034252,000168: 32,3135           21613                                    10D                                   
034253,000169: 
034254,000170: 32,3136           43206                           PUSH     DAD                                   
034255,000171: 32,3137           03561                                    PIPTIME1                              
034256,000172: 32,3140           14041                           STODL    TDEC1                                 #  STORE NEW GUESS FOR NEXT INTEGRATION
034257,000173: 32,3141           45246                           ABS      DSU                                   
034258,000174: 32,3142           25262                                    DDUMCRIT                              
034259,000175: 32,3143           45040                           BMN      CALL                                  
034260,000176: 32,3144           65163                                    DDUMGOOD                              
034261,000177: 32,3145           27414                                    INTSTALL                              
034262,000178: 32,3146           43014                           SET      SET                                   
034263,000179: 32,3147           01473                                    INTYPFLG                              
034264,000180: 32,3150           00063                                    MOONFLAG                              
034265,000181: 32,3151           77745                           DLOAD                                          
034266,000182: 32,3152           03561                                    PIPTIME1                              
034267,000183: 32,3153           25517                           STOVL    TET                                   #  HOPEFULLY ?GUIDSUB DID NOT
034268,000184: 32,3154           00017                                    RATT1                                 #        CLOBBER RATT1 AND VATT1

Page 788

034270,000186: 32,3155           25535                           STOVL    RCV                                   
034271,000187: 32,3156           00025                                    VATT1                                 
034272,000188: 32,3157           35543                           STCALL   VCV                                   
034273,000189: 32,3160           27107                                    INTEGRVS                              
034274,000190: 32,3161           77650                           GOTO                                           
034275,000191: 32,3162           65070                                    IGNALOOP                              
034276,000192: 
034277,000193: 32,3163           54335        DDUMGOOD           SLOAD    SR                                    
034278,000194: 32,3164           03423                                    ZOOMTIME                              
034279,000195: 32,3165           20617                                    14D                                   
034280,000196: 32,3166           77621                           BDSU                                           
034281,000197: 32,3167           00041                                    TDEC1                                 
034282,000198: 32,3170           27442                           STOVL    TIG                                   #  COMPUTE DISTANCE LANDING SITE WILL BE
034283,000199: 32,3171           03527                                    V                                     #        OUT OF LM'S ORBITAL PLANE AT IGNITION:
034284,000200: 32,3172           53435                           VXV      UNIT                                  #        SIGN IS + IF LANDING SITE IS TO THE
034285,000201: 32,3173           03521                                    R                                     #        RIGHT, NORTH; - IF TO THE LEFT, SOUTH.
034286,000202: 32,3174           72441                           DOT      SL1                                   
034287,000203: 32,3175           03635                                    LAND                                  
034288,000204: 32,3176           26627        R60INIT            STOVL    OUTOFPLN                              #  INITIALIZATION FOR CALCMANU
034289,000205: 32,3177           03254                                    UNFC/2                                
034290,000206: 32,3200           02631                           STORE    R60VSAVE                              #  STORE UNFC/2 TEMPORARILY IN R60SAVE
034291,000207: 32,3201           77776                           EXIT                                           
034292,000208:                                                                                                  #  ****************************************
034293,000209: 
034294,000210: 32,3202           05353        IGNALGRT           TC       PHASCHNG                              #  PREVENT REPEATING IGNALG
034295,000211: 32,3203           04024                           OCT      04024                                 
034296,000212: 
034297,000213: 32,3204           44362        ASTNCLOK           CS       ASTNDEX                               
034298,000214: 32,3205           04616                           TC       BANKCALL                              
034299,000215: 32,3206           74664                           CADR     STCLOK2                               
034300,000216: 32,3207           15155                           TCF      ENDOFJOB                              #  RETURN IN NEW JOB AND IN EBANK FIVE
034301,000217: 
034302,000218: 32,3210           06037        ASTNRET            TC       INTPRET                               
034303,000219: 32,3211           47131                           SSP      RTB                                   #  GO PICK UP DISPLAY AT END OF R51:
034304,000220: 32,3212           02747                                    QMAJ                                  #        "PROCEED" WILL DO A FINE ALIGNMENT
034305,000221: 32,3213           65215                           FCADR    P63SPOT2                              #        "ENTER" WILL RETURN TO P63SPOT2
034306,000222: 32,3214           31135                                    R51P63                                
034307,000223: 32,3215           53575        P63SPOT2           VLOAD    UNIT                                  #  INITIALIZE KALCMANU FOR BURN ATTITUDE
034308,000224: 32,3216           02631                                    R60VSAVE                              
034309,000225: 32,3217           27773                           STOVL    POINTVSM                              
034310,000226: 32,3220           06520                                    UNITX                                 
034311,000227: 32,3221           03765                           STORE    SCAXIS                                
034312,000228: 32,3222           77776                           EXIT                                           
034313,000229: 
034314,000230: 32,3223           35016                           CAF      EBANK7                                
034315,000231: 32,3224           54003                           TS       EBANK                                 
034316,000232: 
034317,000233: 32,3225           00004                           INHINT                                         
034318,000234: 32,3226           04674                           TC       IBNKCALL                              
034319,000235: 32,3227           40142                           CADR     PFLITEDB                              

Page 789

034321,000237: 32,3230           00003                           RELINT                                         
034322,000238: 
034323,000239: 32,3231           04616                           TC       BANKCALL                              
034324,000240: 32,3232           54123                           CADR     R60LEM                                
034325,000241: 
034326,000242: 32,3233           05353                           TC       PHASCHNG                              #  PREVENT RECALLING R60
034327,000243: 32,3234           04024                           OCT      04024                                 
034328,000244: 
034329,000245: 32,3235           34746        P63SPOT3           CA       BIT6                                  #  IS THE LR ANTENNA IN POSITION 1 YET
034330,000246: 32,3236           00006                           EXTEND                                         
034331,000247: 32,3237           02033                           RAND     CHAN33                                
034332,000248: 32,3240           00006                           EXTEND                                         
034333,000249: 32,3241           13247                           BZF      P63SPOT4                              #  BRANCH IF ANTENNA ALREADY IN POSITION 1
034334,000250: 
034335,000251: 32,3242           33254                           CAF      CODE500                               #  ASTRONAUT:    PLEASE CRANK THE
034336,000252: 32,3243           04616                           TC       BANKCALL                              #                SILLY THING AROUND
034337,000253: 32,3244           20623                           CADR     GOPERF1                               
034338,000254: 32,3245           16001                           TCF      GOTOPOOH                              #  TERMINATE
034339,000255: 32,3246           13235                           TCF      P63SPOT3                              #  PROCEED       SEE IF HE'S LYING
034340,000256: 
034341,000257: 32,3247           04616        P63SPOT4           TC       BANKCALL                              #  ENTER         INITIALIZE LANDING RADAR
034342,000258: 32,3250           67721                           CADR     SETPOS1                               
034343,000259: 
034344,000260: 32,3251           04635                           TC       POSTJUMP                              #  OFF TO SEE THE WIZARD ...
034345,000261: 32,3252           74126                           CADR     BURNBABY                              
034346,000262: 
034347,000263:                                                                                                  #        ----------------------------------------
034348,000264: 
034349,000265:                                                                                                  #  CONSTANTS FOR P63LM AND IGNALG
034350,000266: 
034351,000267: 32,3253           02076        P63ADRES           GENADR   P63TABLE                              
034352,000268: 
034353,000269: 32,3254     4362               ASTNDEX            =        MD1                                   #  OCT 25; INDEX FOR CLOKTASK
034354,000270: 
034355,000271: 32,3254           00500        CODE500            OCT      00500                                 
034356,000272: 
034357,000273: 32,3255           00035 30373  99999CON           2DEC     30479.7    B-24                       
034358,000274: 
034359,000275: 32,3257           00004 01610  GUIDDURN           2DEC     +66440     B-28                       #  GUIDDURN +6.64400314 E+2
034360,000276: 32,3261           00000 00010  DDUMCRIT           2DEC     +8         B-28                       #  CRITERION FOR IGNALG CONVERGENCE
034361,000277: 

Page 790

034363,000279:                                                                                                  #        ----------------------------------------
034364,000280: 

Page 791

034366,000282:                                                                                                  #        ****************************************
034367,000283:                                                                                                  #        P68: LANDING CONFIRMATION
034368,000284:                                                                                                  #        ****************************************
034369,000285: 
034370,000286: 31,2144                                           BANK     31                                    
034371,000287: 31,2000                                           SETLOC   F2DPS*31                              
034372,000288: 31,2000                                           BANK                                           
034373,000289: 
034374,000290: 31,2144                                           COUNT*   $$/P6567                              
034375,000291: 
034376,000292: 31,2144           05353        LANDJUNK           TC       PHASCHNG                              
034377,000293: 31,2145           04024                           OCT      04024                                 
034378,000294: 
034379,000295: 31,2146           00004                           INHINT                                         
034380,000296: 31,2147           04616                           TC       BANKCALL                              #  ZERO ATTITUDE ERROR
034381,000297: 31,2150           40153                           CADR     ZATTEROR                              
034382,000298: 
034383,000299: 31,2151           04616                           TC       BANKCALL                              #  SET 5 DEGREE DEADBAND
034384,000300: 31,2152           40127                           CADR     SETMAXDB                              
034385,000301: 
034386,000302: 31,2153           06037                           TC       INTPRET                               #  TO INTERPRETIVE AS TIME IS NOT CRITICAL
034387,000303: 31,2154           43014                           SET      CLEAR                                 
034388,000304: 31,2155           04067                                    SURFFLAG                              
034389,000305: 31,2156           04666                                    LETABORT                              
034390,000306: 31,2157           77214                           SET      VLOAD                                 
034391,000307: 31,2160           05062                                    APSFLAG                               
034392,000308: 31,2161           01221                                    RN                                    
034393,000309: 31,2162           16032                           STODL    ALPHAV                                
034394,000310: 31,2163           01235                                    PIPTIME                               
034395,000311: 31,2164           45014                           SET      CALL                                  
034396,000312: 31,2165           01463                                    LUNAFLAG                              
034397,000313: 31,2166           26351                                    LAT-LONG                              
034398,000314: 31,2167           77201                           SETPD    VLOAD                                 #  COMPUTE RLS AND STORE IT AWAY
034399,000315: 31,2170           00001                                    0                                     
034400,000316: 31,2171           01221                                    RN                                    
034401,000317: 31,2172           65352                           VSL2     PDDL                                  
034402,000318: 31,2173           01235                                    PIPTIME                               
034403,000319: 31,2174           45006                           PUSH     CALL                                  
034404,000320: 31,2175           51670                                    R-TO-RP                               
034405,000321: 31,2176           02023                           STORE    RLS                                   
034406,000322: 31,2177           77776                           EXIT                                           
034407,000323: 31,2200           32215                           CAF      V06N43*                               #  ASTRONAUT:  NOW LOOK WHERE YOU ENDED UP
034408,000324: 31,2201           04616                           TC       BANKCALL                              
034409,000325: 31,2202           20476                           CADR     GOFLASH                               
034410,000326: 31,2203           16001                           TCF      GOTOPOOH                              #  TERMINATE
034411,000327: 31,2204           12206                           TCF      +2                                    #  PROCEED
034412,000328: 31,2205           12200                           TCF      -5                                    #  RECYCLE
034413,000329: 
034414,000330: 31,2206           06037                           TC       INTPRET                               

Page 792

034416,000332: 31,2207           77775                           VLOAD                                          #  INITIALIZE GSAV AND (USING REFMF)
034417,000333: 31,2210           06520                                    UNITX                                 #  YNBSAV, ZNBSAV AND ATTFLAG FOR P57
034418,000334: 31,2211           36231                           STCALL   GSAV                                  
034419,000335: 31,2212           33506                                    REFMF                                 
034420,000336: 31,2213           77776                           EXIT                                           
034421,000337: 
034422,000338: 31,2214           16001                           TCF      GOTOPOOH                              #  ASTRONAUT:  PLEASE SELECT P57
034423,000339: 
034424,000340: 31,2215           01453        V06N43*            VN       0643                                  
034425,000341: 

End of include-file THE_LUNAR_LANDING.agc.  Parent file is MAIN.agc