HOPL

from http://www.fridaycs.com/icl1900/lunarbug.html

1.01 TYPE #,#
1.02 TYPE "CONTROL CALLING LUNAR MODULE. YOU ARE ON SCHEDULED"
1.03 TYPE "VERTICAL LANDING COURSE, BUT AUTO LANDING CONTROL"
1.04 TYPE "SYSTEM IS OUT. YOU MUST LAND ON MANUAL CONTROL. YOU"
1.05 TYPE "WILL HAVE ALTITUDE CHECKS EACH TEN SECONDS, AND YOU"
1.06 TYPE "MAY THEN RESET THE RETRO ROCKET FUEL RATE K FOR THE"
1.07 TYPE "NEXT INTERVAL TO 0 OR ANY VALUE BETWEEN 8 AND 200 LBS/SEC."
1.08 TYPE "YOU HAVE 16000 LBS OF FUEL. YOUR ESTIMATED"
1.09 TYPE "FREE FALL IMPACT TIME IS 114 SECS AFTER FIRST CHECK"
1.10 TYPE #,"FIRST RADAR CHECK COMING UP"
1.11 TYPE #,#,"COMMENCE LANDING PROCEDURE",FORM 2,FORM21
1.21 DO PART 21
1.22 A=FALSE
1.23 DO PART 31
1.27 K=0
1.28 B=1
1.3 DO STEP 1.9
1.5 DEMAND K AS "BURN"
1.51 TO STEP 1.6 IF K=0
1.511 TO STEP 1.60 IF NOT (K<8 OR K>200)
1.512 TYPE "PLEASE RESET K WITHIN THE RANGE 8 TO 200 LBS PER SECOND"
1.513 TO STEP 1.5
1.6 I=10
1.61 DO PART 15
1.71 TO PART 2 IF N=<16500
1.72 TO PART 3 IF Y>X
1.8 DO PART 18
1.9 TYPE T,IP(X),5280*FP(X),3600*V,M-16500 IN FORM 1
1.91 TO STEP 4.82 IF A
1.92 TO STEP 1.5
2.11 I=(M-16500)/K
2.12 DO PART 15
2.13 TO PART 3 IF Y>=X
2.15 DO STEP 1.8
2.2 W=SQRT(V^2+2*G*X)
2.3 E=I+(W-V)/G
2.4 DO STEP 1.9
2.45 TYPE FORM 3
2.5 TYPE E,3600*W IN FORM 4
2.51 TO PART 3.8 IF 3600*W<30
2.52 TYPE "FIRE ASCENT STAGE AT ONCE AND RETURN INTO ORBIT"
2.6 TO PART 4
3.1 R=X/Y
3.15 Y=X
3.2 W=V-R*(V-W)
3.3 E=T+I*R
3.4 N=M-K*I*R
3.5 DO STEP 1.8,STEP 1.9
3.60 Z=3600*W
3.61 TO STEP 3.81 IF Z>1000
3.62 TO STEP 3.83 IF Z>200
3.63 TO STEP 3.85 IF Z>100
3.64 TO STEP 3.87 IF Z>60
3.65 TO STEP 3.89 IF Z>40
3.66 TO STEP 3.91 IF Z>20
3.67 TO STEP 3.93 IF Z>5
3.68 TYPE #,"INSTANT PROMOTION FOR A PERFECT LANDING."
3.69 TO PART 4
3.80 TYPE #
3.81 TYPE #,"WE WILL NAME THE CRATER AFTER YOU."
3.82 TO PART 4
3.83 TYPE #,"THE WRECKAGE IS SCATTERED OVER 10 SQUARE MILES."
3.84 TO PART 4
3.85 TYPE #,"HIGH VELOCITY IMPACT - NO SURVIVORS."
3.86 TO PART 4
3.87 TYPE #,"SERIOUS INJURY SUSTAINED BY CREW - AWAIT RESCUE MISSION."
3.88 TO PART 4
3.89 TYPE #,"MINOR DAMAGE SUSTAINED - RETURN TO EARTH - ABANDON EVA."
3.90 TO PART 4
3.91 TYPE #,"SUPERFICIAL DAMAGE, CHECKOUT AND PROCEED WITH EVA."
3.92 TO PART 4
3.93 TYPE #,"CONGRATULATIONS ON A NORMAL LANDING."
3.94 TO PART 4
4.1 DEMAND A AS "DO YOU WANT TO TRY AGAIN?"
4.3 TO STEP 4.6 IF NOT A
4.4 TYPE #,#,#
4.5 TO STEP 1.1
4.6 DEMAND A AS "AUTO LANDING NOW AVAILABLE. WILL YOU TRY IT?"
4.7 TYPE #
4.75 TO STEP 4.9 IF NOT A
4.81 DO STEP 1.11, STEP 1.21, STEP 1.9
4.816 H=0
4.82 H=H+1
4.825 K=L(H)
4.83 TYPE K IN FORM 5
4.84 TO STEP 1.51
4.9 TYPE "WE HOPE YOU ENJOYED THE GAME. GOODBYE"
15.1 N=M-I*K
15.2 B=LOG(M/N)*U
15.3 W=I*G+V-B
15.4 Y=G*I*I/2+I*V
15.5 Y=Y-I*U+B*(M/K-I) IF K#0
15.6 E=T+I
18.1 V=W
18.2 X=X-Y
18.3 M=N
18.4 T=E
21.21 T=0
21.22 M=32500
21.23 X=120
21.24 V=1
21.25 G=.001
21.26 U=1.8
31.3 L(J)=0 FOR J=1(1)7
31.31 L(J)=200 FOR J=8(1)13
31.32 L(14)=150
31.33 L(15)=100
31.34 L(16)=75
31.35 L(17)=18
31.36 L(18)=14
31.37 L(19)=13
31.38 L(20)=10
31.39 L(21)=10
31.40 L(J)=0 FOR J=22(1)30
FORM1:
            ###     ###  ####     #####     #####
FORM2:
   FUEL     TIME     ALTITUDE    VELOCITY   FUEL
FORM3:
YOU USED UP ALL YOUR FUEL.   YOU WILL HIT THE
FORM4:
LUNAR SURFACE IN A FURTHER ##### SECONDS AT ####MPH.
FORM5:
   K=###
FORM21:
   RATE     SECS    MILES FEET      MPH     LBS
A IS FALSE
B=19420725847B-37
E=134538581921B-30
G=35184372089B-45
H=21
I=10
J=30
K=200
L(1)=0
L(2)=0
L(3)=0
L(4)=0
L(5)=0
L(6)=0
L(7)=0
L(8)=200
L(9)=200
L(10)=200
L(11)=200
L(12)=200
L(13)=200
L(14)=150
L(15)=100
L(16)=75
L(17)=18
L(18)=14
L(19)=13
L(20)=10
L(21)=10
L(22)=0
L(23)=0
L(24)=0
L(25)=0
L(26)=0
L(27)=0
L(28)=0
L(29)=0
L(30)=0
M=3333191931B-17
N=3333191931B-17
R=72826407547B-37
T=134538581921B-30
U=123695058125B-36
V=93784655407B-37
W=93784655407B-37
X=0
Y=62559804481B-34
Z=41213959889B-24

JEAN(ID:2135/jea001)