Program 1 (Surface Plate calibration)
1:
"*************************************************":
2:
"*** Program One *** Surface Plate calibration ***":
3:
"*************************************************":
4:
"START":cfg ;fxd 0;dsp "
Surface Plate calibration"
5:
spc 5;prt " SURFACE PLATE"," CALIBRATION";spc 2
6:
wait 2000
7:
ent "ENGLISH(0) or METRIC(1) units?",Z
8:
if flg13+(Z=0);sfg 2;dsp "ENGLISH units selected.";jmp 2
9:
dsp "METRIC units selected.";prt "METRIC Units"
10:
wait 1500
11:
0}F;ent "CREATE(0) or EDIT(file#) data?",F
12:
if F;trk 1;ldf F,r0;trk 0
13:
r9}J;r10}K;r19}L;r20}M
14:
if F=0;jmp 4
15:
dsp "Date:",J,K,L," Plate#",M
16:
prt "File #",F,"Plate #",M;spc ;prt
"Month",J,"Day",K,"Year",L;spc 2
17:
wait 2000
18:
21}B;2.0625}Y
19:
ent "Data via 5526(0) or KEYBOARD(1)?",Z
20:
if flg13+(Z=0);sfg 1;dsp "Data entry direct from Laser.";wait
2000;jmp 2
21:
dsp "Data entry via KEYBOARD";wait 2000
22:
ent "Foot spacinq?",Y
23:
if flg1=0;gto "NEXT"
24:
prt " Laser Display","MUST be in X10"," Mode.";spc
3
25:
dsp "Set Laser to X10 MODE CONT";beep;stp
26:
"NEXT":ent "(+/->line#? (+:Away)(-:Toward)",Z;if flg13;gto
"DOne"
27:
if Z=0;beep;dsp "LINE # FIRST !!!!!";wait 2000;gto "NEXT"
28:
abs(2)}X;X/Z}r19
29:
if X>8;beep;dsp "Line# must be between 1 & 8.";wait 2000;gto
"NEXT"
30:
X+10}R;if rA=0;gto +3
31:
gsb "A"
32:
A}B;X+10}A
33:
r19*Y/2.0625}r19
34:
if flg2;jmp 2
35:
r19/25.4}r19
36:
B}rA}r5;0}rB;-1}Z
37:
"NEXTPOS":if flg1;gto "LASER"
38:
"KEYBOARD":ent "Data ?",r(B+1}B);if flg13;B-1}B;gto "LAST" 36:
gto "PRINT"
39:
"LASER":dsp "Break Beam and Push PRINT to end."
40:
red 3,W,V
43
Содержание 9825A
Страница 5: ...Figure 1 System configuration 3 ...
Страница 13: ...11 Figure 2 1 Isometric Plot ...
Страница 15: ...Figure 3 1 Numeric data in absolute form 13 ...
Страница 16: ...Figure 3 2 Numeric data in relative form 14 ...
Страница 18: ...Example 16 ...
Страница 20: ...Example 18 ...
Страница 25: ...Figure 6 1 Standard Error Plot 23 ...
Страница 28: ...Squareness sign convention guide 26 ...
Страница 29: ...Squareness 27 ...
Страница 34: ...32 Parallelism 32 ...
Страница 35: ...Figure 7 1 Out of straightness of axis 1 Figure 7 2 Out of straightness of axis 2 33 ...
Страница 36: ...34 Squareness 34 ...
Страница 37: ...Figure 7 3 Out of straightness of axis 1 Figure 7 4 Out of straightness of axis 2 35 ...