HEADING:307-1272-00 (P20090.R1) RES TRIM S&R 25'S 7-3-97 GF
STEP
1 GOTO STEP 9
2 GOTO STEP 209
3 GOTO STEP 233
4 GOSU STEP 143
5 GOTO STEP 9
6 GOTO STEP 132
7 GOTO STEP 270
8 IF DUM 807 = 00 THEN LET DUM 807 = 01
9 IF DUM 801 = 00 THEN GOTO STEP 270
10 IF DUM 807 = 00 THEN GOSU STEP 93
11 GOTO STEP 15
12 GOTO STEP 99
13 REM "> TYPE 12^T TO PRINT INIT & TRIM VALUES FOR LAST STRIP <"
14 REM "> IF REG 333 = 01 PROGRAM SKIPS PART # TRIM,FOR REWORKS <"
15 GOSU STEP 111
16 LET DLTA 900 = POS 900 - POS 899
17 DISP DLTA 900
18 MOVE POS 899 SPD 0
19 TEST UNK 1 CODE 3 TOL 1 ACC 21 REJ 0 REG 0
20 TEST UNK 1 CODE 2 TOL 1 ACC 0 REJ 0 REG 1
21 IF BIT 4 = 01 THEN GOTO STEP 27
22 LET N = DUM 807 + 1.00000E+03
23 LET DUM N = DUM 1
24 LET DUM 101 = DUM 1
25 IF REG 1 # 00 THEN GOTO STEP 75
26 REM " TRIM ROUTINE "
27 LET NOM 101 = NOM 1
28 IF BIT 4 = 01 THEN GOTO STEP 54
29 IF DUM 1 > DUM 56 THEN GOTO STEP 55
30 FOR I = 5.00000E+00 TO 9.00000E+00
31 IF DUM 1 > DUM I THEN LET L = I
32 NEXT I
33 IF DUM 1 > DUM 78 THEN GOTO STEP 37
34 FOR I = 1.00000E+00 TO 5.00000E+00
35 LET M = I + 7.00000E+02
36 GOTO STEP 39
37 FOR I = 1.00000E+00 TO 5.00000E+00 02
38 LET M = I + 7.10000E+02
39 LET K = I * 02
40 LET NOM 101 = DUM M * DUM 1 * NOM 1 / 1.00000E+02 + NOM 1
41 LET NOM 77 = NOM 101
42 TEST UNK 77 CODE 75 TOL 77 ACC 0 REJ 0 REG 0
43 LET NOM 77 = NOM 77 + ( NOM 77 * DUM 77 * TURN L / 1.00000E+04 )
44 LET J = K - 1.00000E+00
45 MOVE POS J SPD 0
46 TRIM UNK 77 CODE 77 CUT 77 MODE 77 POS K DENS 77 BRAN 0
47 TRIM UNK 77 CODE 78 CUT 78 MODE 78 POS K DENS 77 BRAN 0
48 TRIM UNK 101 CODE 88 CUT 1 MODE 88 POS K DENS 101 BRAN 0
49 IF I < 5.00000E+00 THEN GOSU STEP 84
50 NEXT I
51 TRIM UNK 101 CODE 100 CUT 1 MODE 1 POS 10 DENS 101 BRAN 0
52 TRIM UNK 101 CODE 101 CUT 1 MODE 1 POS 10 DENS 101 BRAN 0
53 GOSU STEP 84
54 TEST UNK 101 CODE 10 TOL 1 ACC 0 REJ 69 REG 2
55 IF DUM 101 > TOL 101 THEN GOTO STEP 71
56 FOR I = 1.10000E+01 TO 1.30000E+01 02
57 LET M = 1.00000E+02
58 IF I = 1.30000E+01 THEN LET M = 1.01000E+02
59 LET J = I + 01
60 MOVE POS I SPD 0
61 IF DUM 101 > CUT M THEN GOTO STEP 67
62 NIBL DLTA 201 POS J DENS 1 BRAN 0
63 TRIM UNK 101 CODE 100 CUT M MODE M POS J DENS 1 BRAN 0
64 TRIM UNK 101 CODE 101 CUT M MODE M POS J DENS 1 BRAN 0
65 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS I DENS 200 BRAN 0
66 TEST UNK 101 CODE 10 TOL 1 ACC 0 REJ 69 REG 2
67 NEXT I
68 TEST UNK 101 CODE 10 TOL 101 ACC 71 REJ 0 REG 2
69 IF DUM 101 < 1.00000E+03 THEN GOTO STEP 71
70 TEST UNK 101 CODE 2 TOL 101 ACC 0 REJ 0 REG 0
71 IF REG 50 = 01 THEN GOSU STEP 146
72 IF REG 2 = 00 THEN GOTO STEP 77
73 REM "REJECT MARK"
74 PRIN STRG 3
75 MOVE POS 97 SPD 0
76 NIBL DLTA 777 POS 98 DENS 1 BRAN 0
77 MOVE POS 899 SPD 0
78 LET N = DUM 807 + 1.10000E+03
79 LET DUM N = DUM 101
80 IF BIT 0 = 00 THEN GOSU STEP 185
81 IF DUM 807 = DUM 999 THEN GOSU STEP 87
82 HAND
83 EXIT
84 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS J DENS 201 BRAN 0
85 TRIM UNK 101 CODE 99 CUT 99 MODE 99 POS J DENS 202 BRAN 0
86 EXIT
87 IF REG 333 = 01 THEN EXIT
88 FOR I = 1.00000E+00 TO 2.00000E+00
89 MOVE POS 99 SPD 0
90 CGEN DENS 300 SCAL 300 POS 100 STRG 300
91 NEXT I
92 EXIT
93 FOR I = 1.00100E+03 TO 1.05000E+03
94 LET J = I + 1.00000E+02
95 LET DUM I = 00
96 LET DUM J = 00
97 NEXT I
98 EXIT
99 PRIN "PART INIT DEV TRIM DEV"
100 FOR I = 1.00000E+00 TO 5.00000E+01
101 IF DUM 999 < I THEN QUIT
102 LET J = I + 1.00000E+03
103 LET K = I + 1.10000E+03
104 IF I < 1.00000E+01 THEN PRIN " " STRG 1
105 PRIN I " " DUM J " " DUM K STRG 1
106 IF DUM K > ! TOL 101 THEN PRIN "<< REJ-HI" STRG 1
107 IF DUM K < TOL 101 THEN PRIN "<< REJ-LO" STRG 1
108 PRIN " "
109 NEXT I
110 QUIT
111 IF DUM 807 = 00 THEN GOTO STEP 118
112 PRIN STRG 3
113 PRIN "PROGRAM STOPPED AT PART # " DUM 807
114 PRIN STRG 3
115 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1
116 READ TTY:;DUM 808 %1.0 THEN QUIT
117 LET DUM 807 = 00
118 MOVE POS 990 SPD 0
119 SHOM REG 30
120 SHOM REG 0
121 PRIN "ALIGN THETA"
122 ALIN POS 998 REF 999 REG 998
123 PRIN "ALIGN X-Y"
124 ALIN POS 0 REF 0 REG 0
125 LET DLTA 998 = POS 997 - POS 999
126 GOTO STEP 128
127 LET DLTA 998 = DLTA 998 + DLTA 999
128 GOSU STEP 136
129 IF DUM 807 < DUM 999 THEN GOTO STEP 127
130 LET DUM 807 = 00
131 LET DUM 808 = 00
132 SHOM REG 30
133 SHOM REG 31
134 SHOM REG 32
135 QUIT
136 LET DUM 807 = DUM 807 + 01
137 IF DUM 808 > DUM 807 THEN EXIT
138 SMOV DLTA 998 SPD 0 REG 0
139 LET DLTA 998 = 00
140 PRIN "PART # " DUM 807
141 GOSU STEP 16
142 EXIT
143 LET REG 50 = 01
144 PRIN STRG 3 "DRIFT TEST ON" STRG 3
145 EXIT
146 GOSU STEP 175 01
147 LET I = 1.00000E+00
148 TEST UNK 1 CODE 2 TOL I ACC 0 REJ 0 REG 0
149 LET J = I + 3.00000E+02
150 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I )
151 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0
152 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J )
153 PRIN BIT 11 "R" I " NOM" J "=" NOM J
154 LET M = DUM 811
155 GOSU STEP 174 1.20000E+02
156 GOSU STEP 166 01
157 GOSU STEP 162 02
158 PRIN "COMPLETE" STRG 3
159 LET REG 50 = 00
160 GOSU STEP 175 05
161 EXIT
162 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1
163 READ TTY:;%1.0 THEN QUIT
164 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333
" "
165 PRIN "DRIFT IS BASED ON 120 SECONDS"
166 LET I = M
167 LET J = I + 3.00000E+02
168 IF VALU 1 = 02 THEN GOTO STEP 172
169 GOSU STEP 175 DUM 805
170 PRIN BIT 11 "TESTING R" I
171 TEST UNK 300 CODE 10 TOL I ACC 173 REJ 173 REG 0
172 PRIN "R" I " CHANGE =" %6.3 DUM I "%"
173 EXIT
174 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3
175 LET L = VALU 1 * 2.50000E+03
176 FOR K = 01 TO L
177 NEXT K
178 EXIT
179 IF NOM N < 00 THEN LET N = - NOM N
180 LET I = N
181 LET J = I + 3.00000E+02
182 LET K = I + 5.00000E+02
183 LET L = I + 1.00000E+02
184 EXIT
185 FOR N = 1.00000E+00 TO 1.01000E+02
186 GOSU STEP 179
187 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 190
188 PRIN "DID NOT LOG"
189 EXIT
190 NEXT N
191 PRIN "DATA LOGGING"
192 LET DUM 800 = DUM 800 + 01
193 FOR N = 1.00000E+00 TO 1.01000E+02
194 GOSU STEP 179
195 LET DUM J = DUM J + DUM I
196 LET DUM K = DUM K + ( DUM I * DUM I )
197 NEXT N
198 GOSU STEP 201 1.00000E+00 1.80100E+03 1.82400E+03
199 GOSU STEP 201 1.01000E+02 1.82800E+03 1.88300E+03
200 EXIT
201 LET I = VALU 1
202 LET J = VALU 2
203 LET K = VALU 3
204 FOR L = J TO K
205 LET M = L + 01
206 IF DUM I > DUM L THEN IF DUM I < DUM M THEN LET REG L = REG L + 01
207 NEXT L
208 EXIT
209 FOR N = 1.00000E+00 TO 1.01000E+02
210 GOSU STEP 179
211 LET DUM I = 00
212 LET DUM J = 00
213 LET DUM K = 00
214 LET DUM L = 00
215 NEXT N
216 FOR I = 8.00000E+02 TO 8.08000E+02
217 LET DUM I = 00
218 NEXT I
219 GOSU STEP 93
220 GOSU STEP 226 1.80100E+03 1.88300E+03
221 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1
222 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
223 IF STRG 1000 # "Y" THEN LET DUM 801 = 01
224 PRIN "DUMS ARE ZEROED" STRG 3
225 QUIT
226 LET M = VALU 1
227 LET N = VALU 2
228 FOR I = M TO N
229 LET REG I = 00
230 NEXT I
231 PRIN "DISTRIBUTION DUMS ARE ZEROED" STRG 3
232 EXIT
233 GOSU STEP 253
234 FOR N = 01 TO 1.01000E+02
235 GOSU STEP 179
236 LET DUM 804 = DUM J / DUM 800
237 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) )
238 LET DUM 805 = SQRT ( DUM 805 * DUM 805 )
239 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) )
240 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02
241 LET DUM 803 = I
242 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1
243 PRIN " " %14.4 DUM 806 " " %14.4 NOM I
244 NEXT N
245 GOSU STEP 260 1.00000E+00 1.80100E+03 1.82400E+03
246 GOSU STEP 250
247 GOSU STEP 260 1.01000E+02 1.82800E+03 1.88300E+03
248 PRIN "END OF DATA, " STRG 350
249 QUIT
250 PRIN STRG 3 "HIT PAGE THEN RETURN FOR NEXT PAGE. ." STRG 1
251 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT
252 EXIT
253 PRIN STRG 2 " LOT # " STRG 333 " DATA ON" DUM 800 " PARTS" STRG 1
254 PRIN " DATE: " STRG 350
255 PRIN " "
256 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1
257 PRIN " NOMINAL"
258 PRIN " "
259 EXIT
260 PRIN " "
261 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 " DATE:" STRG 350
262 LET M = VALU 2
263 LET N = VALU 3
264 FOR I = M TO N
265 LET J = I + 01
266 IF I = 1.85600E+03 THEN GOSU STEP 250
267 PRIN "# BETWEEN " %8.3 DUM I " AND " %8.3 DUM J " =" %6.0 REG I
268 NEXT I
269 EXIT
270 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1
271 READ TTY:;"_" STRG 333 %1.0 THEN QUIT
272 PRIN "LOT NUMBER IS " STRG 333
273 PRIN STRG 3
274 PRIN STRG 3 "ENTER TODAY'S DATE >" STRG 1
275 READ TTY:;"_" STRG 350 %1.0 THEN QUIT
276 PRIN "DATE IS " STRG 350
277 PRIN "POSITIONS SET FOR 16 PHASE, NO 4-16 PHASE ROUTINE." STRG 3
278 LET DUM 801 = 01
279 QUIT
MODE
1 TURN 0 CROS 1 INC 1
5 TURN 5 CROS 5 INC 5
6 TURN 6 CROS 6 INC 6
7 TURN 7 CROS 7 INC 7
8 TURN 8 CROS 8 INC 8
9 TURN 9 CROS 9 INC 9
77 TURN 0 CROS 77 INC 0
78 TURN 0 CROS 78 INC 78
88 TURN 0 CROS L INC L
99 TURN 0 CROS 0 INC 0
100 TURN 0 CROS 100 INC 100
101 TURN 0 CROS 101 INC 101
DENS
1 SPD 1 PWR 1
5 SPD 5 PWR 1
77 SPD 77 PWR 1
101 SPD 101 PWR 1
200 SPD 200 PWR 1
201 SPD 201 PWR 1
202 SPD 202 PWR 1
300 SPD 5 PWR 1
UNK
1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1
77 NOM 77 SCAN 1 MAT 0 FUNC 0 DUM 77
101 NOM 101 SCAN 1 MAT 0 FUNC 0 DUM 101
300 NOM J SCAN I MAT 0 FUNC 0 DUM I
REG
1 00
2 00
3 00
4 00
5 00
6 00
30 03
31 00
32 04
50 00
333 00
998 -01
999 00
1801 00
1802 00
1803 00
1804 00
1805 00
1806 00
1807 00
1808 00
1809 00
1810 00
1811 00
1812 00
1813 00
1814 00
1815 00
1816 00
1817 00
1818 00
1819 00
1820 00
1821 00
1822 00
1823 00
1824 00
1825 00
1826 00
1827 00
1828 00
1829 00
1830 00
1831 00
1832 00
1833 00
1834 00
1835 00
1836 00
1837 00
1838 00
1839 00
1840 00
1841 00
1842 00
1843 00
1844 00
1845 00
1846 00
1847 00
1848 00
1849 00
1850 00
1851 00
1852 00
1853 00
1854 00
1855 00
1856 00
1857 00
1858 00
1859 00
1860 00
1861 00
1862 00
1863 00
1864 00
1865 00
1866 00
1867 00
1868 00
1869 00
1870 00
1871 00
1872 00
1873 00
1874 00
1875 00
1876 00
1877 00
1878 00
1879 00
1880 00
1881 00
1882 00
1883 00
POS
1 -520, 1750
2 -260, 1250
3 -520, 1110
4 -260, 510
5 -520, 270
6 -260, -230
7 -520, -370
8 -260, -970
9 -520, -1110
10 -260, -1850
11 -480, 400
12 -260, 400
13 -480, 1880
14 -260, 1880
97 -450, -2276
98 -450, -2532
99 650, -900
100 650, 1400
101 600, 0
102 600, 800
200 -60, -1850
201 -220, -1500
202 -145, -1800
899 -440, -2000
900 -1210, -6679
990 -552, -2413
997 16460, 5220
998 -12949, 9490
999 16812, 9490
REF
999 POS 999
NOM
1 9.00000E+06
2 -1.01000E+02
77 8.35196E+06
101 9.00000E+06
301 9.00179E+06
SCAN
1 6, 20, 0, 0
CODE
2 3, 2, 75, 0
3 3, 3, 75, 0
5 3, 5, 75, 0
6 3, 6, 75, 0
7 3, 7, 75, 0
8 3, 7, 75, 0
9 3, 7, 75, 0
10 3, 8, 200, 0
28 2, 0, 0, 0
75 3, 4, 25, 0
77 2, 6, 50, 0
78 2, 6, 30, 0
88 2, 6, 50, 0
99 1, 1, 5, 0
100 3, 7, 25, 0
101 3, 7, 75, 0
TOL
1 -4.50000E+01, 1.00000E-01
77 -1.00000E+02, 1.00000E+02
101 -1.50000E-01, 1.00000E-01
DUM
1 0.00000E+00
5 -4.50000E+01
6 -2.00000E+01
7 -1.20000E+01
8 -9.00000E+00
9 -4.00000E+00
56 -1.00000E-01
77 -9.00053E+00
78 -1.00000E+01
101 0.00000E+00
201 0.00000E+00
301 0.00000E+00
401 0.00000E+00
501 0.00000E+00
601 0.00000E+00
701 7.70000E-01
702 5.80000E-01
703 3.90000E-01
704 2.00000E-01
705 0.00000E+00
711 6.00000E-01
713 3.00000E-01
715 0.00000E+00
777 1.05000E+00
800 0.00000E+00
801 0.00000E+00
802 0.00000E+00
803 0.00000E+00
804 0.00000E+00
805 0.00000E+00
806 0.00000E+00
807 0.00000E+00
808 0.00000E+00
809 3.00000E+01
810 -7.00000E+01
811 1.00000E+00
812 1.00000E+00
813 5.00000E+00
814 4.90000E+01
820 0.00000E+00
998 5.08000E+02
999 4.90000E+01
1001 0.00000E+00
1002 0.00000E+00
1003 0.00000E+00
1004 0.00000E+00
1005 0.00000E+00
1006 0.00000E+00
1007 0.00000E+00
1008 0.00000E+00
1009 0.00000E+00
1010 0.00000E+00
1011 0.00000E+00
1012 0.00000E+00
1013 0.00000E+00
1014 0.00000E+00
1015 0.00000E+00
1016 0.00000E+00
1017 0.00000E+00
1018 0.00000E+00
1019 0.00000E+00
1020 0.00000E+00
1021 0.00000E+00
1022 0.00000E+00
1023 0.00000E+00
1024 0.00000E+00
1025 0.00000E+00
1026 0.00000E+00
1027 0.00000E+00
1028 0.00000E+00
1029 0.00000E+00
1030 0.00000E+00
1031 0.00000E+00
1032 0.00000E+00
1033 0.00000E+00
1034 0.00000E+00
1035 0.00000E+00
1036 0.00000E+00
1037 0.00000E+00
1038 0.00000E+00
1039 0.00000E+00
1040 0.00000E+00
1041 0.00000E+00
1042 0.00000E+00
1043 0.00000E+00
1044 0.00000E+00
1045 0.00000E+00
1046 0.00000E+00
1047 0.00000E+00
1048 0.00000E+00
1049 0.00000E+00
1050 0.00000E+00
1101 0.00000E+00
1102 0.00000E+00
1103 0.00000E+00
1104 0.00000E+00
1105 0.00000E+00
1106 0.00000E+00
1107 0.00000E+00
1108 0.00000E+00
1109 0.00000E+00
1110 0.00000E+00
1111 0.00000E+00
1112 0.00000E+00
1113 0.00000E+00
1114 0.00000E+00
1115 0.00000E+00
1116 0.00000E+00
1117 0.00000E+00
1118 0.00000E+00
1119 0.00000E+00
1120 0.00000E+00
1121 0.00000E+00
1122 0.00000E+00
1123 0.00000E+00
1124 0.00000E+00
1125 0.00000E+00
1126 0.00000E+00
1127 0.00000E+00
1128 0.00000E+00
1129 0.00000E+00
1130 0.00000E+00
1131 0.00000E+00
1132 0.00000E+00
1133 0.00000E+00
1134 0.00000E+00
1135 0.00000E+00
1136 0.00000E+00
1137 0.00000E+00
1138 0.00000E+00
1139 0.00000E+00
1140 0.00000E+00
1141 0.00000E+00
1142 0.00000E+00
1143 0.00000E+00
1144 0.00000E+00
1145 0.00000E+00
1146 0.00000E+00
1147 0.00000E+00
1148 0.00000E+00
1149 0.00000E+00
1150 0.00000E+00
1801 -5.00000E+01
1802 -4.75000E+01
1803 -4.50000E+01
1804 -4.25000E+01
1805 -4.00000E+01
1806 -3.75000E+01
1807 -3.50000E+01
1808 -3.25000E+01
1809 -3.00000E+01
1810 -2.75000E+01
1811 -2.50000E+01
1812 -2.25000E+01
1813 -2.00000E+01
1814 -1.75000E+01
1815 -1.50000E+01
1816 -1.25000E+01
1817 -1.00000E+01
1818 -7.50000E+00
1819 -5.00000E+00
1820 -2.50000E+00
1821 0.00000E+00
1822 2.50000E+00
1823 5.00000E+00
1824 7.50000E+00
1825 1.00000E+01
1828 -1.00000E+00
1829 -7.00000E-01
1830 -4.00000E-01
1831 -2.50000E-01
1832 -2.40000E-01
1833 -2.30000E-01
1834 -2.20000E-01
1835 -2.10000E-01
1836 -2.00000E-01
1837 -1.90000E-01
1838 -1.80000E-01
1839 -1.70000E-01
1840 -1.60000E-01
1841 -1.50000E-01
1842 -1.40000E-01
1843 -1.30000E-01
1844 -1.20000E-01
1845 -1.10000E-01
1846 -1.00000E-01
1847 -9.00002E-02
1848 -8.00002E-02
1849 -7.00002E-02
1850 -6.00002E-02
1851 -5.00002E-02
1852 -4.00002E-02
1853 -3.00002E-02
1854 -2.00002E-02
1855 -1.00002E-02
1856 0.00000E+00
1857 1.00000E-02
1858 2.00000E-02
1859 3.00000E-02
1860 4.00000E-02
1861 5.00000E-02
1862 6.00000E-02
1863 7.00000E-02
1864 8.00000E-02
1865 9.00000E-02
1866 1.00000E-01
1867 1.10000E-01
1868 1.20000E-01
1869 1.30000E-01
1870 1.40000E-01
1871 1.50000E-01
1872 1.60000E-01
1873 1.70000E-01
1874 1.80000E-01
1875 1.90000E-01
1876 2.00000E-01
1877 2.10000E-01
1878 2.20000E-01
1879 2.30000E-01
1880 2.40000E-01
1881 2.50000E-01
1882 4.00000E-01
1883 6.00000E-01
1884 1.00000E+00
CUT
1 -1.40000E-01
5 0.00000E+00
6 0.00000E+00
7 0.00000E+00
8 -2.50000E-01
9 -2.50000E-01
77 2.00000E+00
78 -1.00000E-01
99 5.00000E+01
100 -3.00000E-01
101 -1.20000E-01
TURN
5 8.00000E+01
6 7.50000E+01
7 7.00000E+01
8 6.00000E+01
9 5.50000E+01
CROS
1 -3.30000E+00
5 -4.00000E-01
6 -4.00000E-01
7 -4.00000E-01
8 -2.00000E+00
9 -2.00000E+00
77 -3.00000E-01
78 -7.50000E-01
100 -1.20000E+00
101 -3.15000E+00
INC
1 10
5 0
6 0
7 0
8 30
9 30
78 30
100 8
101 5
SPD
1 8.00000E+00, 8.00000E+00
5 5.00000E+00, 5.00000E+00
77 1.00000E+01, 0.00000E+00
101 0.00000E+00, 1.00000E+01
200 2.00000E+01, 0.00000E+00
201 0.00000E+00, 8.00000E+00
202 3.00000E+01, 0.00000E+00
PWR
1 100, 100
STRG
1 _
2 307-1272-00
3
300 1272
333 M52B
350 29-JUN-2004
444 COARSE & FINE
1000
DLTA
201 100, 0
777 0, -240
900 -770, -4679
997 550, -2166
998 0, 0
999 -620, 0
SCAL
300 1.60000E+01