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? NO(0)
or
YES(1)",2;if (Z=0)+flg13;gto
"STORE"
87:
gsb "A"
44
Summary of Contents for 9825A
Page 5: ...Figure 1 System configuration 3 ...
Page 13: ...11 Figure 2 1 Isometric Plot ...
Page 15: ...Figure 3 1 Numeric data in absolute form 13 ...
Page 16: ...Figure 3 2 Numeric data in relative form 14 ...
Page 18: ...Example 16 ...
Page 20: ...Example 18 ...
Page 25: ...Figure 6 1 Standard Error Plot 23 ...
Page 28: ...Squareness sign convention guide 26 ...
Page 29: ...Squareness 27 ...
Page 34: ...32 Parallelism 32 ...
Page 35: ...Figure 7 1 Out of straightness of axis 1 Figure 7 2 Out of straightness of axis 2 33 ...
Page 36: ...34 Squareness 34 ...
Page 37: ...Figure 7 3 Out of straightness of axis 1 Figure 7 4 Out of straightness of axis 2 35 ...
