1 DISABLE
2 Time1$=TIME$
3 PRINT "JB-077,V1.03 MA":SLEEP 3000:PRINT "File1.Bas":ON ERROR GOTO 358
4 Time2$=TIME$
5 IF Time1$=Time2$ THEN PRINT "Setting Clock":TIME$="00:00:01":DATE$="01-01-2001"
6 CLEAR
7 DIM SclDa$(5):DEFSHR SclDa$(1),Lit11:DEFSHR SclDa$(2),Lit12
8 DEFSHR SclDa$(3),Lit13:DEFSHR SclDa$(4),Lit14:DEFSHR SclDa$(5),Lit15
9 DEFSHR ScrSt$,bd015:DEFSHR SerDisp$,var01
10 DIM SPO%(4)
11 NEWLADDER
12 DIM TCM%(20)
13 DIM LVar$(24)
14 DEFSHR LVar$(1),Lit01:DEFSHR LVar$(2),Lit02:DEFSHR LVar$(3),Lit03
15 DEFSHR LVar$(4),Lit04:DEFSHR LVar$(5),Lit05:DEFSHR LVar$(6),Lit06
16 DEFSHR LVar$(7),Lit07:DEFSHR LVar$(8),Lit08:DEFSHR LVar$(9),Lit09
17 DEFSHR LVar$(10),Lit10:DEFSHR LVar$(11),Lit11:DEFSHR LVar$(12),Lit12
18 DEFSHR LVar$(13),Lit13:DEFSHR LVar$(14),Lit14:DEFSHR LVar$(15),Lit15
19 DEFSHR LVar$(16),Lit16:DEFSHR LVar$(17),Lit17:DEFSHR LVar$(18),Lit18
20 DEFSHR LVar$(19),Lit19:DEFSHR LVar$(20),Lit20:DEFSHR LVar$(21),Lit47
21 DEFSHR LVar$(22),Lit48:DEFSHR LVar$(23),Lit49:DEFSHR LVar$(24),Lit50
22 DEFSHR HMITerm$,Pmt20
23 DIM IOP%(26):DIM PIO%(26):DIM IOF%(26):DIM IOMAP%(11)
24 DEFSHR IOP%(1),p_100:DEFSHR IOP%(2),p_101:DEFSHR IOP%(3),p_102
25 DEFSHR IOP%(4),p_103:DEFSHR IOP%(5),p_108:DEFSHR IOP%(6),p_109
26 DEFSHR IOP%(7),p_10a:DEFSHR IOP%(8),p_10b:DEFSHR IOP%(9),p_10c
27 DEFSHR IOP%(10),p_10d:DEFSHR IOP%(11),p_10e:DEFSHR IOP%(12),p_10f
28 DEFSHR IOP%(13),p_500:DEFSHR IOP%(14),p_501:DEFSHR IOP%(15),p_502
29 DEFSHR IOP%(16),p_503:DEFSHR IOP%(17),p_508:DEFSHR IOP%(18),p_509
30 DEFSHR IOP%(19),p_50a:DEFSHR IOP%(20),p_50b:DEFSHR IOP%(21),p_50c
31 DEFSHR IOP%(22),p_50d:DEFSHR IOP%(23),p_50e:DEFSHR IOP%(24),p_50f
32 DIM RxD%(33):DIM Cfg%(33)
33 DEFSHR RxD%(1),bx201:DEFSHR RxD%(2),bx202:DEFSHR RxD%(3),bx203
34 DEFSHR RxD%(4),bx204:DEFSHR RxD%(5),bx205:DEFSHR RxD%(6),bx206
35 DEFSHR RxD%(7),bx207:DEFSHR RxD%(8),bx208:DEFSHR RxD%(9),bx209
36 DEFSHR RxD%(10),bx210:DEFSHR RxD%(11),bx211:DEFSHR RxD%(12),bx212
37 DEFSHR RxD%(13),bx213:DEFSHR RxD%(14),bx214:DEFSHR RxD%(15),bx215
38 DEFSHR RxD%(16),bx216:DEFSHR RxD%(17),bx217:DEFSHR RxD%(18),bx218
39 DEFSHR RxD%(19),bx219:DEFSHR RxD%(20),bx220:DEFSHR RxD%(21),bx221
40 DEFSHR RxD%(22),bx222:DEFSHR RxD%(23),bx223:DEFSHR RxD%(24),bx224
41 DEFSHR RxD%(25),bx225:DEFSHR RxD%(26),bx226:DEFSHR RxD%(27),bx227
42 DEFSHR RxD%(28),bx228:DEFSHR RxD%(29),bx229:DEFSHR RxD%(30),bx230
43 DEFSHR RxD%(31),bx231:DEFSHR RxD%(32),bx232:DEFSHR RxD%(33),bx233
44 DIM TxD%(31):DEFSHR TxD%(1),bx251:DEFSHR TxD%(2),bx252:DEFSHR TxD%(3),bx253
45 DEFSHR TxD%(4),bx254:DEFSHR TxD%(5),bx255:DEFSHR TxD%(6),bx256
46 DEFSHR TxD%(7),bx257:DEFSHR TxD%(8),bx258:DEFSHR TxD%(9),bx259
47 DEFSHR TxD%(10),bx260:DEFSHR TxD%(11),bx261:DEFSHR TxD%(12),bx262
48 DEFSHR TxD%(13),bx263:DEFSHR TxD%(14),bx264:DEFSHR TxD%(15),bx265
49 DEFSHR TxD%(16),bx266:DEFSHR TxD%(17),bx267:DEFSHR TxD%(18),bx268
50 DEFSHR TxD%(19),bx269:DEFSHR TxD%(20),bx270:DEFSHR TxD%(21),bx271
51 DEFSHR TxD%(22),bx272:DEFSHR TxD%(23),bx273:DEFSHR TxD%(24),bx274
52 DEFSHR TxD%(25),bx275:DEFSHR TxD%(26),bx276:DEFSHR TxD%(27),bx277
53 DEFSHR TxD%(28),bx278:DEFSHR TxD%(29),bx279:DEFSHR TxD%(30),bx280
54 DEFSHR TxD%(31),bx281
55 DIM AxlWt!(15)
56 DEFSHR AxlWt!(1),bas18:DEFSHR AxlWt!(2),bas20:DEFSHR AxlWt!(3),bas26
57 DEFSHR AxlWt!(4),bas28:DEFSHR AxlWt!(5),bas30:DEFSHR AxlWt!(6),bas32
58 DEFSHR AxlWt!(7),bas34:DEFSHR AxlWt!(8),bas36:DEFSHR AxlWt!(9),bas38
59 DEFSHR AxlWt!(10),bas40:DEFSHR AxlWt!(11),bas42:DEFSHR AxlWt!(12),bas44
60 DEFSHR AxlWt!(13),bas46:DEFSHR AxlWt!(14),bas48:DEFSHR AxlWt!(15),bas50
61 DIM WtG!(4):DIM WtD$(5):DIM WtS$(5):DIM WrkGW!(4)
62 DEFSHR WtG!(1),bas14:DEFSHR WtG!(2),bas16:DEFSHR WtG!(3),bas22
63 DEFSHR WtG!(4),bas24:DEFSHR NumScales%,Bx198
64 DEFSHR WtUn$,bas19:DEFSHR WtS$(1),Pmt01:DEFSHR WtS$(2),Pmt02
65 DEFSHR WtS$(3),Pmt03:DEFSHR WtS$(4),Pmt04:DEFSHR WtS$(5),Pmt05
66 DEFSHR WtGr$,Pmt06:DEFSHR WtNt$,Pmt07:DEFSHR WtInc%,bx197
67 DIM WtS%(4):DEFSHR WtS%(1),bx193:DEFSHR WtS%(2),bx194:DEFSHR WtS%(3),bx195
68 DEFSHR WtS%(4),bx196:DEFSHR BeTheScl,bx192:DEFSHR AWtUn$,wt103
69 DIM WtMot%(4):DIM WtNet%(4):DIM WtUnZ%(4):DIM WtOvC%(4):DIM WtCOZ%(4)
70 DIM WtRng%(4)
71 DEFSHR MFunc%,Bd091
72 DIM OMS$(5):DIM OMT$(5):DIM OMR%(5):DIM OMIP$(5)
73 DIM SVC$(4):DIM SVPtr%(4):DIM SVStr$(4)
74 DIM Cheat%(2):DEFSHR Cheat%(1),bx250:DEFSHR Cheat%(2),bx249
75 DEFSHR IP#,net02:DEFSHR browser%,t_61e
76 DEFSHR RxDMsg%,bx297:DEFSHR TxDMsg%,bx298:DEFSHR TxDTrg%,s_250
77 DEFSHR LRxDMsg%,bx295:DEFSHR TransStat%,bx296
78 ON ERROR GOTO 85
79 RemoteNode%=0:RemNdScl%=0
80 OPEN "RemNode" FOR INPUT AS #0
81 INPUT #0,Tmp1$
82 RemoteNode%=VAL(Tmp1$)
83 INPUT #0,Tmp1$
84 RemNdScl%=VAL(Tmp1$)
85 ON ERROR GOTO 358
86 CLOSE #0
87 IF RemoteNode%>6 THEN RemoteNode%=6
88 IF RemoteNode%<0 THEN RemoteNode%=0
89 IF RemNdScl%<0 THEN RemNdScl%=0
90 IF RemNdScl%>5 THEN RemNdScl%=5
91 DIM TCDGWt#(5):DIM TCDM%(5):DIM TCDZ%(5):DIM TCDO%(5)
92 DIM TCDU%(5):DIM TCDN%(5):DIM TCDX$(5):DIM ZScl%(5):DIM WghRng%(5)
93 DIM SclState%(5)
94 IF RemoteNode%>0 THEN GoTo 118
95 DEFSHR JagDisp$,wt101:DEFSHR JagSum$,wt501
96 DEFSHR TCDGWt#(1),wt110:DEFSHR TCDGWt#(2),wt210
97 DEFSHR TCDGWt#(3),wt310:DEFSHR TCDGWt#(4),wt410:DEFSHR TCDGWt#(5),wt510
98 DEFSHR TCDM%(1),s_200:DEFSHR TCDM%(2),s_208:DEFSHR TCDM%(3),s_270
99 DEFSHR TCDM%(4),s_280:DEFSHR TCDM%(5),s_2f0
100 DEFSHR TCDZ%(1),s_201:DEFSHR TCDZ%(2),s_209:DEFSHR TCDZ%(3),s_271
101 DEFSHR TCDZ%(4),s_281:DEFSHR TCDZ%(5),s_2f1
102 DEFSHR TCDO%(1),s_202:DEFSHR TCDO%(2),s_20A:DEFSHR TCDO%(3),s_272
103 DEFSHR TCDO%(4),s_282:DEFSHR TCDO%(5),s_2f2
104 DEFSHR TCDU%(1),s_203:DEFSHR TCDU%(2),s_20B:DEFSHR TCDU%(3),s_273
105 DEFSHR TCDU%(4),s_283:DEFSHR TCDU%(5),s_2f3
106 DEFSHR TCDN%(1),s_204:DEFSHR TCDN%(2),s_20C:DEFSHR TCDN%(3),s_274
107 DEFSHR TCDN%(4),s_284:DEFSHR TCDN%(5),s_2f4
108 DEFSHR TCDX$(1),wt103:DEFSHR TCDX$(2),wt203:DEFSHR TCDX$(3),wt303
109 DEFSHR TCDX$(4),wt403:DEFSHR TCDX$(5),wt503
110 DEFSHR ZScl%(1),t_693:DEFSHR ZScl%(2),t_6a3:DEFSHR ZScl%(3),t_623
111 DEFSHR ZScl%(4),t_633:DEFSHR ZScl%(5),t_643
112 DEFSHR WghRng%(1),wt119:DEFSHR WghRng%(2),wt219
113 DEFSHR WghRng%(3),wt319:DEFSHR WghRng%(4),wt419:DEFSHR WghRng%(5),wt519
114 DEFSHR SclState%(1),wt115:DEFSHR SclState%(2),wt215
115 DEFSHR SclState%(3),wt315:DEFSHR SclState%(4),wt415:DEFSHR SclState%(5),wt515
116 DEFSHR LocScls,jag15
117 GoTo 260
118 IF RemoteNode%>1 THEN GoTo 142
119 DEFSHR JagDisp$,J1/wt101:DEFSHR JagSum$,J1/wt501
120 DEFSHR TCDGWt#(1),J1/wt110:DEFSHR TCDGWt#(2),J1/wt210
121 DEFSHR TCDGWt#(3),J1/wt310:DEFSHR TCDGWt#(4),J1/wt410:DEFSHR TCDGWt#(5),J1/wt510
122 DEFSHR TCDM%(1),J1/s_200:DEFSHR TCDM%(2),J1/s_208:DEFSHR TCDM%(3),J1/s_270
123 DEFSHR TCDM%(4),J1/s_280:DEFSHR TCDM%(5),J1/s_2f0
124 DEFSHR TCDZ%(1),J1/s_201:DEFSHR TCDZ%(2),J1/s_209:DEFSHR TCDZ%(3),J1/s_271
125 DEFSHR TCDZ%(4),J1/s_281:DEFSHR TCDZ%(5),J1/s_2f1
126 DEFSHR TCDO%(1),J1/s_202:DEFSHR TCDO%(2),J1/s_20A:DEFSHR TCDO%(3),J1/s_272
127 DEFSHR TCDO%(4),J1/s_282:DEFSHR TCDO%(5),J1/s_2f2
128 DEFSHR TCDU%(1),J1/s_203:DEFSHR TCDU%(2),J1/s_20B:DEFSHR TCDU%(3),J1/s_273
129 DEFSHR TCDU%(4),J1/s_283:DEFSHR TCDU%(5),J1/s_2f3
130 DEFSHR TCDN%(1),J1/s_204:DEFSHR TCDN%(2),J1/s_20C:DEFSHR TCDN%(3),J1/s_274
131 DEFSHR TCDN%(4),J1/s_284:DEFSHR TCDN%(5),J1/s_2f4
132 DEFSHR TCDX$(1),J1/wt103:DEFSHR TCDX$(2),J1/wt203:DEFSHR TCDX$(3),J1/wt303
133 DEFSHR TCDX$(4),J1/wt403:DEFSHR TCDX$(5),J1/wt503
134 DEFSHR ZScl%(1),J1/t_693:DEFSHR ZScl%(2),J1/t_6a3:DEFSHR ZScl%(3),J1/t_623
135 DEFSHR ZScl%(4),J1/t_633:DEFSHR ZScl%(5),J1/t_643
136 DEFSHR WghRng%(1),J1/wt119:DEFSHR WghRng%(2),J1/wt219
137 DEFSHR WghRng%(3),J1/wt319:DEFSHR WghRng%(4),J1/wt419:DEFSHR WghRng%(5),J1/wt519
138 DEFSHR SclState%(1),J1/wt115:DEFSHR SclState%(2),J1/wt215
139 DEFSHR SclState%(3),J1/wt315:DEFSHR SclState%(4),J1/wt415
140 DEFSHR SclState%(5),J1/wt515:DEFSHR LocScls,J1/jag15
141 GoTo 260
142 IF RemoteNode%>2 THEN GoTo 166
143 DEFSHR JagDisp$,J2/wt101:DEFSHR JagSum$,J2/wt501
144 DEFSHR TCDGWt#(1),J2/wt110:DEFSHR TCDGWt#(2),J2/wt210
145 DEFSHR TCDGWt#(3),J2/wt310:DEFSHR TCDGWt#(4),J2/wt410:DEFSHR TCDGWt#(5),J2/wt510
146 DEFSHR TCDM%(1),J2/s_200:DEFSHR TCDM%(2),J2/s_208:DEFSHR TCDM%(3),J2/s_270
147 DEFSHR TCDM%(4),J2/s_280:DEFSHR TCDM%(5),J2/s_2f0
148 DEFSHR TCDZ%(1),J2/s_201:DEFSHR TCDZ%(2),J2/s_209:DEFSHR TCDZ%(3),J2/s_271
149 DEFSHR TCDZ%(4),J2/s_281:DEFSHR TCDZ%(5),J2/s_2f1
150 DEFSHR TCDO%(1),J2/s_202:DEFSHR TCDO%(2),J2/s_20A:DEFSHR TCDO%(3),J2/s_272
151 DEFSHR TCDO%(4),J2/s_282:DEFSHR TCDO%(5),J2/s_2f2
152 DEFSHR TCDU%(1),J2/s_203:DEFSHR TCDU%(2),J2/s_20B:DEFSHR TCDU%(3),J2/s_273
153 DEFSHR TCDU%(4),J2/s_283:DEFSHR TCDU%(5),J2/s_2f3
154 DEFSHR TCDN%(1),J2/s_204:DEFSHR TCDN%(2),J2/s_20C:DEFSHR TCDN%(3),J2/s_274
155 DEFSHR TCDN%(4),J2/s_284:DEFSHR TCDN%(5),J2/s_2f4
156 DEFSHR TCDX$(1),J2/wt103:DEFSHR TCDX$(2),J2/wt203:DEFSHR TCDX$(3),J2/wt303
157 DEFSHR TCDX$(4),J2/wt403:DEFSHR TCDX$(5),J2/wt503
158 DEFSHR ZScl%(1),J2/t_693:DEFSHR ZScl%(2),J2/t_6a3:DEFSHR ZScl%(3),J2/t_623
159 DEFSHR ZScl%(4),J2/t_633:DEFSHR ZScl%(5),J2/t_643
160 DEFSHR WghRng%(1),J2/wt119:DEFSHR WghRng%(2),J2/wt219
161 DEFSHR WghRng%(3),J2/wt319:DEFSHR WghRng%(4),J2/wt419:DEFSHR WghRng%(5),J2/wt519
162 DEFSHR SclState%(1),J2/wt115:DEFSHR SclState%(2),J2/wt215
163 DEFSHR SclState%(3),J2/wt315:DEFSHR SclState%(4),J2/wt415
164 DEFSHR SclState%(5),J2/wt515:DEFSHR LocScls,J2/jag15
165 GoTo 260
166 IF RemoteNode%>3 THEN GoTo 190
167 DEFSHR JagDisp$,J3/wt101:DEFSHR JagSum$,J3/wt501
168 DEFSHR TCDGWt#(1),J3/wt110:DEFSHR TCDGWt#(2),J3/wt210
169 DEFSHR TCDGWt#(3),J3/wt310:DEFSHR TCDGWt#(4),J3/wt410:DEFSHR TCDGWt#(5),J3/wt510
170 DEFSHR TCDM%(1),J3/s_200:DEFSHR TCDM%(2),J3/s_208:DEFSHR TCDM%(3),J3/s_270
171 DEFSHR TCDM%(4),J3/s_280:DEFSHR TCDM%(5),J3/s_2f0
172 DEFSHR TCDZ%(1),J3/s_201:DEFSHR TCDZ%(2),J3/s_209:DEFSHR TCDZ%(3),J3/s_271
173 DEFSHR TCDZ%(4),J3/s_281:DEFSHR TCDZ%(5),J3/s_2f1
174 DEFSHR TCDO%(1),J3/s_202:DEFSHR TCDO%(2),J3/s_20A:DEFSHR TCDO%(3),J3/s_272
175 DEFSHR TCDO%(4),J3/s_282:DEFSHR TCDO%(5),J3/s_2f2
176 DEFSHR TCDU%(1),J3/s_203:DEFSHR TCDU%(2),J3/s_20B:DEFSHR TCDU%(3),J3/s_273
177 DEFSHR TCDU%(4),J3/s_283:DEFSHR TCDU%(5),J3/s_2f3
178 DEFSHR TCDN%(1),J3/s_204:DEFSHR TCDN%(2),J3/s_20C:DEFSHR TCDN%(3),J3/s_274
179 DEFSHR TCDN%(4),J3/s_284:DEFSHR TCDN%(5),J3/s_2f4
180 DEFSHR TCDX$(1),J3/wt103:DEFSHR TCDX$(2),J3/wt203:DEFSHR TCDX$(3),J3/wt303
181 DEFSHR TCDX$(4),J3/wt403:DEFSHR TCDX$(5),J3/wt503
182 DEFSHR ZScl%(1),J3/t_693:DEFSHR ZScl%(2),J3/t_6a3:DEFSHR ZScl%(3),J3/t_623
183 DEFSHR ZScl%(4),J3/t_633:DEFSHR ZScl%(5),J3/t_643
184 DEFSHR WghRng%(1),J3/wt119:DEFSHR WghRng%(2),J3/wt219
185 DEFSHR WghRng%(3),J3/wt319:DEFSHR WghRng%(4),J3/wt419:DEFSHR WghRng%(5),J3/wt519
186 DEFSHR SclState%(1),J3/wt115:DEFSHR SclState%(2),J3/wt215
187 DEFSHR SclState%(3),J3/wt315:DEFSHR SclState%(4),J3/wt415
188 DEFSHR SclState%(5),J3/wt515:DEFSHR LocScls,J3/jag15
189 GoTo 260
190 IF RemoteNode%>4 THEN GoTo 214
191 DEFSHR JagDisp$,J4/wt101:DEFSHR JagSum$,J4/wt501
192 DEFSHR TCDGWt#(1),J4/wt110:DEFSHR TCDGWt#(2),J4/wt210
193 DEFSHR TCDGWt#(3),J4/wt310:DEFSHR TCDGWt#(4),J4/wt410:DEFSHR TCDGWt#(5),J4/wt510
194 DEFSHR TCDM%(1),J4/s_200:DEFSHR TCDM%(2),J4/s_208:DEFSHR TCDM%(3),J4/s_270
195 DEFSHR TCDM%(4),J4/s_280:DEFSHR TCDM%(5),J4/s_2f0
196 DEFSHR TCDZ%(1),J4/s_201:DEFSHR TCDZ%(2),J4/s_209:DEFSHR TCDZ%(3),J4/s_271
197 DEFSHR TCDZ%(4),J4/s_281:DEFSHR TCDZ%(5),J4/s_2f1
198 DEFSHR TCDO%(1),J4/s_202:DEFSHR TCDO%(2),J4/s_20A:DEFSHR TCDO%(3),J4/s_272
199 DEFSHR TCDO%(4),J4/s_282:DEFSHR TCDO%(5),J4/s_2f2
200 DEFSHR TCDU%(1),J4/s_203:DEFSHR TCDU%(2),J4/s_20B:DEFSHR TCDU%(3),J4/s_273
201 DEFSHR TCDU%(4),J4/s_283:DEFSHR TCDU%(5),J4/s_2f3
202 DEFSHR TCDN%(1),J4/s_204:DEFSHR TCDN%(2),J4/s_20C:DEFSHR TCDN%(3),J4/s_274
203 DEFSHR TCDN%(4),J4/s_284:DEFSHR TCDN%(5),J4/s_2f4
204 DEFSHR TCDX$(1),J4/wt103:DEFSHR TCDX$(2),J4/wt203:DEFSHR TCDX$(3),J4/wt303
205 DEFSHR TCDX$(4),J4/wt403:DEFSHR TCDX$(5),J4/wt503
206 DEFSHR ZScl%(1),J4/t_693:DEFSHR ZScl%(2),J4/t_6a3:DEFSHR ZScl%(3),J4/t_623
207 DEFSHR ZScl%(4),J4/t_633:DEFSHR ZScl%(5),J4/t_643
208 DEFSHR WghRng%(1),J4/wt119:DEFSHR WghRng%(2),J4/wt219
209 DEFSHR WghRng%(3),J4/wt319:DEFSHR WghRng%(4),J4/wt419:DEFSHR WghRng%(5),J4/wt519
210 DEFSHR SclState%(1),J4/wt115:DEFSHR SclState%(2),J4/wt215
211 DEFSHR SclState%(3),J4/wt315:DEFSHR SclState%(4),J4/wt415
212 DEFSHR SclState%(5),J4/wt515:DEFSHR LocScls,J4/jag15
213 GoTo 260
214 IF RemoteNode%>5 THEN GoTo 238
215 DEFSHR JagDisp$,J5/wt101:DEFSHR JagSum$,J5/wt501
216 DEFSHR TCDGWt#(1),J5/wt110:DEFSHR TCDGWt#(2),J5/wt210
217 DEFSHR TCDGWt#(3),J5/wt310:DEFSHR TCDGWt#(4),J5/wt410:DEFSHR TCDGWt#(5),J5/wt510
218 DEFSHR TCDM%(1),J5/s_200:DEFSHR TCDM%(2),J5/s_208:DEFSHR TCDM%(3),J5/s_270
219 DEFSHR TCDM%(4),J5/s_280:DEFSHR TCDM%(5),J5/s_2f0
220 DEFSHR TCDZ%(1),J5/s_201:DEFSHR TCDZ%(2),J5/s_209:DEFSHR TCDZ%(3),J5/s_271
221 DEFSHR TCDZ%(4),J5/s_281:DEFSHR TCDZ%(5),J5/s_2f1
222 DEFSHR TCDO%(1),J5/s_202:DEFSHR TCDO%(2),J5/s_20A:DEFSHR TCDO%(3),J5/s_272
223 DEFSHR TCDO%(4),J5/s_282:DEFSHR TCDO%(5),J5/s_2f2
224 DEFSHR TCDU%(1),J5/s_203:DEFSHR TCDU%(2),J5/s_20B:DEFSHR TCDU%(3),J5/s_273
225 DEFSHR TCDU%(4),J5/s_283:DEFSHR TCDU%(5),J5/s_2f3
226 DEFSHR TCDN%(1),J5/s_204:DEFSHR TCDN%(2),J5/s_20C:DEFSHR TCDN%(3),J5/s_274
227 DEFSHR TCDN%(4),J5/s_284:DEFSHR TCDN%(5),J5/s_2f4
228 DEFSHR TCDX$(1),J5/wt103:DEFSHR TCDX$(2),J5/wt203:DEFSHR TCDX$(3),J5/wt303
229 DEFSHR TCDX$(4),J5/wt403:DEFSHR TCDX$(5),J5/wt503
230 DEFSHR ZScl%(1),J5/t_693:DEFSHR ZScl%(2),J5/t_6a3:DEFSHR ZScl%(3),J5/t_623
231 DEFSHR ZScl%(4),J5/t_633:DEFSHR ZScl%(5),J5/t_643
232 DEFSHR WghRng%(1),J5/wt119:DEFSHR WghRng%(2),J5/wt219
233 DEFSHR WghRng%(3),J5/wt319:DEFSHR WghRng%(4),J5/wt419:DEFSHR WghRng%(5),J5/wt519
234 DEFSHR SclState%(1),J5/wt115:DEFSHR SclState%(2),J5/wt215
235 DEFSHR SclState%(3),J5/wt315:DEFSHR SclState%(4),J5/wt415
236 DEFSHR SclState%(5),J5/wt515:DEFSHR LocScls,J5/jag15
237 GoTo 260
238 DEFSHR JagDisp$,J6/wt101:DEFSHR JagSum$,J6/wt501
239 DEFSHR TCDGWt#(1),J6/wt110:DEFSHR TCDGWt#(2),J6/wt210
240 DEFSHR TCDGWt#(3),J6/wt310:DEFSHR TCDGWt#(4),J6/wt410:DEFSHR TCDGWt#(5),J6/wt510
241 DEFSHR TCDM%(1),J6/s_200:DEFSHR TCDM%(2),J6/s_208:DEFSHR TCDM%(3),J6/s_270
242 DEFSHR TCDM%(4),J6/s_280:DEFSHR TCDM%(5),J6/s_2f0
243 DEFSHR TCDZ%(1),J6/s_201:DEFSHR TCDZ%(2),J6/s_209:DEFSHR TCDZ%(3),J6/s_271
244 DEFSHR TCDZ%(4),J6/s_281:DEFSHR TCDZ%(5),J6/s_2f1
245 DEFSHR TCDO%(1),J6/s_202:DEFSHR TCDO%(2),J6/s_20A:DEFSHR TCDO%(3),J6/s_272
246 DEFSHR TCDO%(4),J6/s_282:DEFSHR TCDO%(5),J6/s_2f2
247 DEFSHR TCDU%(1),J6/s_203:DEFSHR TCDU%(2),J6/s_20B:DEFSHR TCDU%(3),J6/s_273
248 DEFSHR TCDU%(4),J6/s_283:DEFSHR TCDU%(5),J6/s_2f3
249 DEFSHR TCDN%(1),J6/s_204:DEFSHR TCDN%(2),J6/s_20C:DEFSHR TCDN%(3),J6/s_274
250 DEFSHR TCDN%(4),J6/s_284:DEFSHR TCDN%(5),J6/s_2f4
251 DEFSHR TCDX$(1),J6/wt103:DEFSHR TCDX$(2),J6/wt203:DEFSHR TCDX$(3),J6/wt303
252 DEFSHR TCDX$(4),J6/wt403:DEFSHR TCDX$(5),J6/wt503
253 DEFSHR ZScl%(1),J6/t_693:DEFSHR ZScl%(2),J6/t_6a3:DEFSHR ZScl%(3),J6/t_623
254 DEFSHR ZScl%(4),J6/t_633:DEFSHR ZScl%(5),J6/t_643
255 DEFSHR WghRng%(1),J6/wt119:DEFSHR WghRng%(2),J6/wt219
256 DEFSHR WghRng%(3),J6/wt319:DEFSHR WghRng%(4),J6/wt419:DEFSHR WghRng%(5),J6/wt519
257 DEFSHR SclState%(1),J6/wt115:DEFSHR SclState%(2),J6/wt215
258 DEFSHR SclState%(3),J6/wt315:DEFSHR SclState%(4),J6/wt415
259 DEFSHR SclState%(5),J6/wt515:DEFSHR LocScls,J6/jag15
260 IF RemNdScl%>0 THEN LNS=1:GOTO 269
261 IF RemoteNode%>0 THEN GoTo 264
262 LNS=LocScls:IF SclState%(5)=1 THEN LNS=LNS-1
263 GoTo 269
264 ReTry%=60:LNS=0:ON Error GOTO 267
265 LNS=LocScls:IF SclState%(5)=1 THEN LNS=LNS-1
266 GoTo 269
267 IF ReTry%<1 THEN Print "READ FAIL NODE";RemoteNode%:SLEEP 5000:GoTo 264
268 Print ReTry%;" ReTry Node ";RemoteNode%:Sleep 1000:ReTry%=ReTry%-1:GoTo 265
269 ON ERROR GOTO 358
270 IF LNS<0 THEN LNS=0
271 IF LNS>4 THEN LNS=4
272 WtUn$=AWtUn$+"":NumScales%=1:WtS$(1)="":WtS$(2)="":WtS$(3)=""
273 WtS$(4)="":WtS$(5)="":WtGr$="G":WtNt$="N":WtInc%=0:SerDisp$="00"
274 DIM SPTRef#(4):DIM SPTerm%(4):DIM SPFilt%(4)
275 DEFSHR SOMmsg$,CLV01:DEFSHR SOMstr$,CLV02
276 DEFSHR SOMsrc$,CLV03:DEFSHR SOMterm$,CLV04
277 DIM SlavDsp$(4)
278 DEFSHR SlavDsp$(1),CLV05:DEFSHR SlavDsp$(2),CLV06:DEFSHR SlavDsp$(3),CLV07
279 DEFSHR SlavDsp$(4),CLV08
280 DIM JS%(8):DEFSHR JS%(1),bas10:DEFSHR JS%(2),bas86:DEFSHR JS%(3),bas87
281 DEFSHR JS%(4),bas11:DEFSHR JS%(5),bas85:DEFSHR JS%(6),bas88
282 DEFSHR JS%(7),bas89:DEFSHR JS%(8),s_60b
283 JS%(1)=2:JS%(2)=1:JS%(3)=1:JS%(5)=1:JS%(6)=1:JS%(7)=0:JS%(8)=0
284 DIM SKT%(256)
285 COMMON SclDa$,ScrSt$,SPO%,TCM%,LVar$,HMITerm$,IOP%,PIO%,IOF%,IOMAP%,IP#
286 COMMON RxD%,Cfg%,TxD%,WtG!,WtD$,WtS$,WrkGW!,NumScales%,AxlWt!,SerDisp$
287 COMMON WtUn$,WtGr$,WtNt$,WtInc%,WtS%,MFunc%,OMS$,OMT$,OMR%,OMIP$,browser%
288 COMMON RxDMsg%,TxDMsg%,TxDTrg%,SVC$,SVPtr%,SVStr$,Cheat%,TCDGWt#,JagDisp$,JagSum$
289 COMMON BeTheScl,Thresh#,SclTyp%,ExcTm%,ExcWt#,EndTm%,TCDM%,TCDZ%,TCDO%,TCDU%
290 COMMON TCDN%,TCDX$,WghRng%,WtMot%,WtNet%,WtUnZ%,WtOvC%,WtCOZ%,WtRng%,LNS
291 COMMON SclState%,SPTRef#,SPTerm%,SPFilt%,LRxDMsg%,TransStat%,JS%,SKT%,ZScl%
292 COMMON SOMmsg$,SOMstr$,SOMsrc$,SOMterm$,SlavDsp$,RemoteNode%,RemNdScl%
293 GOSUB 301:GOSUB 332:GOSUB 345
294 IF SclTyp%<>2 THEN GOTO 296
295 CHAIN "Type2.bas"
296 IF SclTyp%<>1 THEN GOTO 298
297 CHAIN "Type1.bas"
298 CHAIN "Type0.bas"
299 LVar$(17)="":KPStr$="":KPPtr%=1:KPPtrMem%=1:HMITerm$="":RETURN
300 NumOM%=0:NxtInOM%=1:NxtOtOM%=1:RxDMsg%=0:RETURN
301 RxDMsg%=0:TxDMsg%=0:ScrSt$="0":IF NumScales%>4 THEN NumScales%=4
302 PhCell%=0:DspSt%=0:TrnSt%=0:TrnMd%=0:Msg52%=0:Msg53%=0:GoSub 300
303 TMSTC%=0:GOSUB 299
304 FOR SS%=1 TO 33
305 RxD%(SS%)=0:Cfg%(SS%)=0
306 NEXT SS%
307 FOR SS%=1 TO 24
308 LVar$(SS%)=""
309 NEXT SS%
310 FOR SS%=5 TO 1 STEP -1
311 SclDa$(SS%)=""
312 NEXT SS%
313 FOR SS%=1 TO 4
314 SPO%(SS%)=0:WrkGW!(SS%)=0
315 NEXT SS%
316 FOR SS%=1 TO 20
317 TCM%(SS%)=0
318 NEXT SS%
319 SOMmsg$="0":SOMstr$="":SOMsrc$="":SOMterm$=""
320 SlavDsp$(1)="":SlavDsp$(2)="":SlavDsp$(3)="":SlavDsp$(4)=""
321 RETURN
322 FOR SSV%=1 TO 4
323 Tmp%=Cfg%(SSV%)
324 IF Tmp%>=40 AND Tmp%<50 THEN SPTerm%(SSV%)=4:Tmp%=Tmp%-40:GOTO 329
325 IF Tmp%>=50 AND Tmp%<60 THEN SPTerm%(SSV%)=5:Tmp%=Tmp%-50:GOTO 329
326 IF Tmp%>=60 AND Tmp%<70 THEN SPTerm%(SSV%)=6:Tmp%=Tmp%-60:GOTO 329
327 IF Tmp%>=70 AND Tmp%<80 THEN SPTerm%(SSV%)=7:Tmp%=Tmp%-70:GOTO 329
328 SPTerm%(SSV%)=0:Tmp%=0
329 SPFilt%(SSV%)=Tmp%
330 NEXT SSV%
331 RETURN
332 Cfg%(29)=500:Cfg%(30)=0:OpGuide%=0
333 ON ERROR GOTO 340
334 OPEN "Setup" FOR INPUT AS #0
335 FOR LS%=1 TO 33
336 INPUT #0,LS$
337 Cfg%(LS%)=VAL(LS$)
338 NEXT LS%
339 CLOSE #0
340 Thresh#=Cfg%(29)/10.0
341 SclTyp%=Cfg%(30):ExcTm%=Cfg%(31):ExcWt#=Cfg%(32)/10.0:EndTm%=Cfg%(33)
342 ON ERROR GOTO 358
343 GOSUB 322
344 RETURN
345 FOR LKT%=1 TO 256
346 SKT%(LKT%)=65
347 NEXT LKT%
348 ON ERROR GOTO 356
349 OPEN "SERKEYB.MAP" FOR INPUT AS #0
350 Print "Map Serial Kybrd"
351 FOR LKT%=1 TO 256
352 INPUT #0,LKT$
353 SKT%(LKT%)=VAL(LKT$)
354 NEXT LKT%
355 CLOSE #0
356 ON ERROR GOTO 358
357 RETURN
358 PRINT "ERR";ERR();",LIN":ERL()
359 JS%(1)=2:JS%(2)=1:JS%(3)=1:SLEEP 1000
360 END
361 DELEVENT
362 JS%(1)=2:JS%(2)=1:JS%(3)=1:Print "Exiting . . .":GOSUB 301:SLEEP 1000
363 NEW