Table of Contents
Advertisement
88:
gsb "L"
89:
if (X+1}X)<=8;jmp -2
90:
spc 10
91:
"STORE":dsp "Enter date of Calibration
92:
ent "Month? (1-12)?",J;if flg13;gto "ID"
93:
ent "Day?
94:
ent "Year?
95:
"ID":ent "Surface Plate ID# ?",M
96:
r20}B
97:
J}r9;K}r10;L}r19;M}r20
98:
ent "Data to be stored on FILE#?",F;if (F=0)+flg13;gto "END"
99:
trk 1;rcf F,r0,rB;trk 0
100:
prt "Data stored in File #",F
101:
"END":beep;wait 100;beep;wait 100;beep
102:
dsp "SURFACE PLATE CAL. COMPLETED";wait 3000;beep
103:
dsp "Press CONT for more Calibration";stp
104:
gto "START"
105:
"A":
106:
X+10}B;int(rB/1e3)}C
107:
rB-C*1e3}A
108:
if (A+C-1}B)>r20;B}r20
109:
ret
110:
"L":
111:
spc 2
112:
prt "LINE NUMBER",X,""
113:
prt rA;jmp (A+1}A)>B
114:
prt "",C;spc Z
115:
ret
116:
"E":
117:
0}r7;gsb "A"
118:
Y-rA}r9
119:
(Z-rB-r9)/(C-1)}r8
120:
rA+r9+r7*r8}rA;r7+1}r7;jmp (A+1}A)>B
121:
ret
122:
"M":
123:
qsb "A"
124:
(A+B)/2}Z;rZ}r1
125:
if Z-int(Z)>0;(rZ+r(Z+1))/2}r1
126:
ret
127:
end
(1-31)",K;if flg13;gto "ID"
(00-99)",L
45
";wait 1000
- Quick Links:
- Hardware Description
Hide quick links:
Advertisement
Table of Contents
