Program 7 (Straightness And Squareness) - HP 5526A Operating Note And Program Listings

Program 7 (Straightness and Squareness)

1: "****************************************************":
2: "** Program SEVEN *** Straightness and Squareness ***":
3: "****************************************************":
4: prt " Straightness,"," Squareness,"," & Parallelism";spc 2
5: pclr;0}r10)r2)r1}r0;sfg 3;fxd 1;1}r9
6: prt "ENTER";prt "CALIBRATION";prt "NUMBER OF ";prt
"Straightness"
7: 1}r9;prt "INTERFEROMETOR";spc 2;ent "Straightness Calibration
Number?",r9
8: cfg 1;cfg 2;ent "Axis Number?",r10
9: ent "Number of points on axis?",r1,"Distance between points?",r2
10: 1}Z;ent "Plot?
11: 0}Z;ent "Data via Laser(0) or Keyboard(1)",Z;if Z=0;sfg 2
12: -1};11}E;1>rO;fxd 0;prt "AXIS",r10;fxd 1;spc 1;prt "Input Data"
13: 0}Z;if flg2;gto 17
14: if Z=r1;gto 23
15: ent "Data?",A;Z+1}Z
16: A'r9>A;prt A;A+rB}rB;if Y<=0;B+1}B;gto 13
17: E-1}B;gto 13
18: if Z=r1;gto 23
19: red 3,X,Q;if Q>=80;dsr "BEAM is BROKEN !!!";beep;wait 4000;gto
"AGAIN"
20: (X+sgn(X)(Q*1e8))/r9}X
21: Z+1>Z
22: prt X;X+rB}rB;if Y<=0;B+1}B;gto 17
23: B-1}B;gto 17
24: 1}Z;spc 4;ent "More Data?
25: 1}Z;ent "Direction?
26: if Z<=0;if Y<=0;1}Y;B-1}B;gto 27
27: 11}B;-1}Y
28: r0+1}r0;gto 12
29: 11}B
30: rB/r0)rB;B+1}B;if B-11=r1;gto 31
31: gto 29
32: gsb "L"
33: 11}E;prt "Straightness"
34: prt rB;B+1}B;if 8-11=r1;gto 35
35: gto 33
36: spc 2;gsb "S'
37: if flg1;qsb "P"
38: if flg3;cfg 3;gto 40
39: gsb "SO"
40: gto 46
41: 1}Z;ent "Parallelism? [Yes=1
42: sfg 4;gto 43
[Yes=1 No=0]",Z;if Z;sfg 1
[Yes=1
+1=Same -1=Oppos",Z
54
No=0]",Z;if Z=0;gto 28
No=0]",Z;if Z=0;gto 42