HP 5526A Operating Note And Program Listings page 46

41: if V>=80;dsp "BEAM has been BROKEN!!!";beep;wait 4000;gto "LAST"
42: W+sgn(W)(V*1e8)}r(B+1}B)
43: "PRINT":prt rB
44: rE*r19}rE
45: gto "NEXTPOS"
46: "LAST":(B-r5+1)*1e3+rA}rA
47: spc 2;r5}A;0}Z
48: rA+Z}rA}Z;jmp (A+1}A)>B
49: r5}A
50: rB*(B-A)}r1
51: 0}Z
52: rA-Z*rl}rA;Z+1}Z;jmp (A+1}A)>B
53: r5}A;B-A+1}C
54: 8}Z;gsb "L"
55: B+1}B;gto "NEXT"
56: "DOne":1}X}r20
57: qsb "M"
58: rA-rl}rA;jmp (A+1)A)>B
59: if X=1;2}X;jmp -2
60: 1}X
61: gsb "A"
62: rA}r(X*2-1)
63: rB}r(X*2)
64: if X=1;2}X;imp -3
65: 3}X;r3)Y;r1}Z;gsb "E"
66: 4}X;r3}Y;r2}Z;gsb "E"
67: 5}X;r2)Y;r4}Z;gsb "E"
68: 6}X;r1}Y;r4}2;gsb "E"
69: 3}X
70: gsb "M"
71: r1}rX;if (X+1}X)<=6;jmp -1
72: 7}X;r4}Y;r6}Z;gsb "E"
73: 8}X;r3}Y;r5}Z;gsb "E"
74: 7}X
75: gsb "M"
76: r1}rX;if X=7;8}X;jmp -1
77: 21}A;rA}X}Y;r20}B
78: if X>rA;rA}X
79: if rR>Y;rA}Y
80: if (A+1}F1)<=E;jmp -2
81: abs(X-Y)}r1
82: prt "CLOSURE ERROR","LINE 7",r7,"LINE 8",r8,"MAX ELEV",r1;spc 8
83: 21}A
84: rA-X}rA;jmp (A+1}A)>B
85: 1}X}Z
86: ent "Data Printout?
"STORE"
87: gsb "A"
NO(0) or YES(1)",2;if (Z=0)+flg13;gto
44