HP 5526A Operating Note And Program Listings page 57

43: 1}Z;ent "Squareness?
44: 11}B
45: 0}rB;B+1}B;if B>140;gto 7
46: gto 44
47: pen;ldp 0
48: "L":spc 2;prt "Line Fit:","0:
Pts";spc 2
49: 0}Z;ent "Type of Line Fit ? C0 or 17",Z;if 2=0;gto 62
50: 0}r3}r4}r5}r6;11}B
51: r4+rE}r4;r5+rB*r2*(B-11)}r5;(B-11)*r2+r3}r3
52: (B-11)*(B-11)*r2*r2+r6}r6;B+1}B
53: if B-11=r1;gto 54
54: gto 50
55: (r4*r3-rl*r5)/(r3*r3-rl*r6)}r7
56: (r4-r7*r3)/r1}C
57: if flg3;r7}r8
58: 11}B;0}A
59: rB-(r7*A+C)}rB
60: A+r2}R;B+1}B
61: if B-11=r1;ret
62: gto 58
63: (r(r1+10)-r11)/(rl*r2-r2)}r7;r11}C
64: gto 56
65: "S":
66: 11}B;rB}A}C
67: if rB>A;rB}A
68: if rB<=C;rB}C
69: B+1}E;if B-11=r1;gto 70
70: gto 66
71: prt "MAX Dev=",A;spc 1;prt "MIN Dev=",C;spc 8;if flg1;gto 72
72: ret
73: if abs(C)>A;-C}A
74: ent "Max Error?.... (for plot scaling)",A
75: scl 0,rI*r2-r2,-A,A
76: if flg3;gto 77
77: gto 87
78: pen* 1;pen;plt 0,-A;plt 0,-.05*A;pen;plt 0,.05*A;plt 0,A;pen
79: xax A/2,r2,0
80: xax -A/2,r2,0
81: plt 0,.8A;plt .01*rl*r2,.8A;pen
82: plt 0,.2A;plt .01*rl*r2,.2A;pen
83: plt 0,-.2A;plt .01*r1*r2,-.2A;pen
84: plt 0,-.8A;plt .01*rl*r2,-.6A;pen
85: pen# 2;plt .01*r1*r2,.8A,1;lbl A
86: plt .01*r1*r2,.2A;lbl -A
87: pen* 3;pit .01*rl*r2,.9*A;fxd 0;lbl "AXIS ",r10;fxd 2
88: if flg3;gto 91
89: pen# 2;plt .01*rl*r2,-.2A;lbl A
[Yes=1 No=0]",Z;if Z=0;gto 46
Least Square","1:
55
Zero End