HEADING:300-2159-02 (P20435.03) >3K, 1.0W< S&R 25'S 5-6-95 SH,GF STEP 1 GOTO STEP 9 2 GOTO STEP 151 3 GOTO STEP 130 4 GOSU STEP 219 5 GOTO STEP 9 6 GOTO STEP 207 7 GOTO STEP 171 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 171 10 MOVE POS 600 SPD 0 11 GOSU STEP 186 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 FOR I = 01 TO 2.10000E+01 16 IF NOM I < 00 THEN LET I = - NOM I 17 IF I = 1.20000E+01 THEN GOTO STEP 19 18 TEST UNK I CODE 1 TOL I ACC 20 REJ 0 REG 0 19 TEST UNK I CODE 12 TOL I ACC 0 REJ 0 REG 1 20 NEXT I 21 REM "TEST R21 WITH TIGHTER CODE - CONVERT TO OHMS & STORE IN NOM 321" 22 LET DUM 421 = DUM 21 23 LET I = 2.10000E+01 24 LET K = 1.00000E+01 25 GOSU STEP 227 26 LET DUM 21 = DUM 421 27 REM "CALCULATE NOM FOR R12 BASED ON R21 AND DUM 499" 28 LET NOM 112 = ( NOM 321 / DUM 499 ) 29 PRIN "NOM 112 = " NOM 112 30 TEST UNK 112 CODE 2 TOL 112 ACC 0 REJ 0 REG 1 31 TEST UNK 114 CODE 13 TOL 114 ACC 0 REJ 0 REG 1 32 IF DUM 2 < - 2.00000E+00 THEN GOSU STEP 116 33 IF STRG 444 = "TEST" THEN GOTO STEP 35 34 IF REG 1 # 00 THEN GOTO STEP 101 35 LET DUM 103 = 00 36 LET DUM 105 = 00 37 PRIN "FINAL TRIM VALUES" 38 FOR I = 01 TO 1.14000E+02 39 IF NOM I < 00 THEN LET I = - NOM I 40 IF MASK I = 00 THEN GOTO STEP 87 41 LET L = I + 1.00000E+02 42 IF STRG 444 = "TEST" THEN GOTO STEP 85 43 IF MASK I < 02 THEN GOTO STEP 73 44 GOSU STEP 110 45 IF I # 1.14000E+02 THEN GOTO STEP 57 46 TEST UNK 114 CODE 3 TOL 114 ACC 0 REJ 0 REG 0 47 FOR M = 01 TO 04 48 LET CROS 14 = DUM 114 * ( 01 - ( 01 / 05 * M ) ) 49 IF CROS 14 > CUT 14 THEN LET CROS 14 = CUT 14 - 1.00000E-01 50 LET J = I * 02 + ( M * 1.00000E+02 ) 51 LET K = J + 01 52 MOVE POS J SPD 0 53 TRIM UNK 114 CODE N CUT 14 MODE 14 POS K DENS 114 BRAN 0 54 TRIM UNK 114 CODE 1 CUT 99 MODE 100 POS J DENS 114 BRAN 0 55 NEXT M 56 GOTO STEP 73 57 LET J = I * 02 + 1.00000E+02 58 LET K = J + 01 59 IF DUM I > CUT I THEN GOTO STEP 73 60 MOVE POS J SPD 0 61 IF I = 1.10000E+01 THEN GOTO STEP 65 62 IF I # 1.12000E+02 THEN GOTO STEP 71 63 SERP UNK 112 CODE 5 CUT 100 MODE 212 POS 325 DENS 112 BRAN 0 64 GOTO STEP 73 65 SERP UNK 111 CODE 16 CUT 211 MODE 211 POS 123 DENS 11 BRAN 0 66 TEST UNK 111 CODE 16 TOL 11 ACC 0 REJ 0 REG 0 67 MOVE POS 422 SPD 0 68 LET CUT 311 = DUM 111 + CUT 511 69 SERP UNK 111 CODE 16 CUT 311 MODE 311 POS 423 DENS 311 BRAN 0 70 GOTO STEP 72 71 TRIM UNK L CODE N CUT 100 MODE L POS K DENS I BRAN 0 72 TEST UNK L CODE N TOL I ACC 0 REJ 0 REG 0 73 REM "== END OF COARSE TRIM PORTION ==" 74 LET J = I * 02 75 LET K = J + 1.00000E+00 76 IF NOM I = NOM 3 THEN GOTO STEP 79 77 IF NOM I = NOM 15 THEN GOTO STEP 79 78 IF DUM I > TOL L THEN GOTO STEP 86 79 MOVE POS J SPD 0 80 GOSU STEP 110 81 IF I = 1.10000E+01 THEN LET N = 06 82 TRIM UNK L CODE N CUT I MODE I POS K DENS I BRAN 0 83 IF NOM I = NOM 3 THEN GOSU STEP 106 84 IF I = 1.10000E+01 THEN TRIM UNK 11 CODE 1 CUT 99 MODE 100 POS J DENS 1 BRAN 0 85 TEST UNK L CODE 16 TOL L ACC 86 REJ 0 REG 2 86 IF REG 50 = 01 THEN GOSU STEP 224 87 NEXT I 88 IF REG 50 = 01 THEN GOSU STEP 233 89 IF REG 2 # 00 THEN GOTO STEP 101 90 LET DUM 799 = DUM 799 + 01 91 LET L = DUM 807 + 1.00000E+03 92 LET J = 01 93 LET STRG 4 = %4.0 DUM 799 94 LET K = 02 95 LET STRG 1000 = STRG 4 + J J STRG L + K K STRG 333 96 PRIN "SERIAL # " STRG 1000 97 IF STRG 444 = "TEST" THEN GOTO STEP 100 98 MOVE POS 98 SPD 0 99 CGEN DENS 333 SCAL 333 POS 99 STRG 1000 100 PRIN "GOOD PART" 101 MOVE POS 899 SPD 0 102 IF REG 1 # 00 THEN PRIN "PRE-TRIM REJECT!" STRG 3 103 IF REG 2 # 00 THEN PRIN "TRIM REJECT!" STRG 3 104 HAND 105 EXIT 106 TRIM UNK L CODE 17 CUT I MODE 103 POS K DENS 100 BRAN 0 107 NIBL DLTA 502 POS J DENS 3 BRAN 0 108 TRIM UNK I CODE 1 CUT 99 MODE 100 POS J DENS 99 BRAN 0 109 EXIT 110 LET N = 02 111 IF DUM I > - 4.50000E+01 THEN LET N = 03 112 IF DUM I > - 2.00000E+01 THEN LET N = 04 113 IF DUM I > - 1.00000E+01 THEN LET N = 05 114 IF NOM I > 1.00000E+05 THEN LET N = N + 1.00000E+01 115 EXIT 116 FOR I = 01 TO 1.14000E+02 117 GOSU STEP 166 118 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 121 119 PRIN "DID NOT LOG" 120 EXIT 121 NEXT I 122 PRIN "DATA LOGGING" 123 LET DUM 800 = DUM 800 + 01 124 FOR I = 01 TO 1.14000E+02 125 GOSU STEP 166 126 LET DUM J = DUM J + DUM I 127 LET DUM K = DUM K + ( DUM I * DUM I ) 128 NEXT I 129 EXIT 130 GOSU STEP 143 131 FOR I = 01 TO 1.14000E+02 132 GOSU STEP 166 133 LET DUM 804 = DUM J / DUM 800 134 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 135 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 136 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 137 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 138 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 139 PRIN %15.3 DUM 806 %15.3 NOM I 140 NEXT I 141 PRIN "R21 IS ACTUALLY RT1 (THERMISTOR)" 142 QUIT 143 PRIN STRG 2 " LOT " STRG 333 " PRETRIM DATA ON " DUM 800 " PARTS" 144 PRIN " " 145 PRIN "THERMISTOR COLD>HOT RATIO, DUM 499 =" %8.5 DUM 499 146 PRIN " " 147 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 148 PRIN " NOMINAL" 149 PRIN " " 150 EXIT 151 FOR I = 01 TO 1.14000E+02 152 GOSU STEP 166 153 LET DUM I = 00 154 LET DUM J = 00 155 LET DUM K = 00 156 LET DUM L = 00 157 NEXT I 158 FOR I = 8.00000E+02 TO 8.08000E+02 159 LET DUM I = 00 160 NEXT I 161 PRIN "SAVING PROGRAM ?" STRG 1 162 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 163 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 164 PRIN "DUMMIES ZEROED" STRG 3 165 QUIT 166 IF NOM I < - 01 THEN LET I = - NOM I 167 LET J = I + 3.00000E+02 168 LET K = I + 6.00000E+02 169 LET L = I + 1.00000E+02 170 EXIT 171 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 172 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 173 FOR M = 4.99000E+02 TO 7.99000E+02 3.00000E+02 174 PRIN STRG 3 175 PRIN " CURRENT DUM " M " IS >>> " %10.5 DUM M 176 PRIN "DO YOU WANT TO CHANGE DUM " M "? " STRG 1 177 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 178 IF STRG 1000 # "Y" THEN GOTO STEP 182 179 PRIN "ENTER NEW DUM " M " > " STRG 1 180 READ TTY:;DUM M %1.0 THEN QUIT 181 GOTO STEP 174 182 NEXT M 183 LET DUM 801 = 01 184 PRIN "TRIM ON 16 PHASE SYSTEM ONLY" STRG 3 185 QUIT 186 IF DUM 807 = 00 THEN GOTO STEP 193 187 PRIN STRG 3 188 PRIN "PROGRAM STOPPED AT PART # " DUM 807 189 PRIN STRG 3 190 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 191 READ TTY:;DUM 808 %1.0 THEN QUIT 192 LET DUM 807 = 00 193 SHOM REG 30 194 SHOM REG 0 195 PRIN "ALIGN THETA" 196 ALIN POS 998 REF 999 REG 998 197 PRIN "ALIGN X-Y" 198 ALIN POS 0 REF 0 REG 0 199 LET DLTA 998 = POS 997 - POS 999 200 GOTO STEP 203 201 LET J = DUM 807 + 1.00000E+03 202 LET DLTA 998 = DLTA 998 + DLTA J 203 GOSU STEP 211 204 IF DUM 807 < DUM 999 THEN GOTO STEP 201 205 LET DUM 807 = 00 206 LET DUM 808 = 00 207 SHOM REG 30 208 SHOM REG 0 209 SHOM REG 32 210 QUIT 211 LET DUM 807 = DUM 807 + 01 212 IF DUM 808 > DUM 807 THEN EXIT 213 SMOV DLTA 998 SPD 0 REG 0 214 LET DLTA 998 = 00 215 PRIN "" 216 PRIN "PART # " DUM 807 217 GOSU STEP 12 218 EXIT 219 LET REG 50 = 01 220 PRIN STRG 3 "DRIFT TEST ON" STRG 3 221 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 222 LET DUM 804 = ( 1.80000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 223 EXIT 224 GOSU STEP 262 01 225 LET K = 1.00000E+01 226 TEST UNK I CODE 2 TOL 1 ACC 0 REJ 0 REG 0 227 LET J = I + 3.00000E+02 228 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 229 TEST UNK 300 CODE K TOL 12 ACC 0 REJ 0 REG 0 230 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 231 PRIN BIT 11 "R" I " NOM" J "=" NOM J 232 EXIT 233 LET M = 1.90000E+01 234 GOSU STEP 261 DUM 804 235 GOSU STEP 247 01 236 GOSU STEP 241 02 237 PRIN "COMPLETE" STRG 3 238 LET REG 50 = 00 239 GOSU STEP 262 05 240 EXIT 241 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 242 READ TTY:;%1.0 THEN QUIT 243 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 244 PRIN "DRIFT IS BASED ON 180 SECONDS" 245 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 246 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 247 FOR N = 01 TO M 248 GOSU STEP 257 249 IF MASK I = 00 THEN GOTO STEP 255 250 IF VALU 1 = 02 THEN GOTO STEP 254 251 GOSU STEP 262 DUM 805 252 PRIN BIT 11 "TESTING R" I 253 TEST UNK 300 CODE 10 TOL 12 ACC 255 REJ 255 REG 0 254 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 255 NEXT N 256 EXIT 257 IF NOM N < 00 THEN LET N = - NOM N 258 LET I = N 259 LET J = I + 3.00000E+02 260 EXIT 261 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 262 LET L = VALU 1 * 2.50000E+03 263 FOR K = 01 TO L 264 NEXT K 265 EXIT MODE 1 TURN 95 CROS 0 INC 0 2 TURN 8 CROS 2 INC 1 3 TURN 90 CROS 3 INC 3 4 TURN 35 CROS 0 INC 0 5 TURN 90 CROS 3 INC 3 6 TURN 0 CROS 0 INC 0 8 TURN 70 CROS 0 INC 0 9 TURN 0 CROS 0 INC 0 10 TURN 40 CROS 0 INC 0 11 TURN 0 CROS 11 INC 11 13 TURN 75 CROS 0 INC 0 14 TURN 0 CROS 14 INC 0 15 TURN 0 CROS 0 INC 0 16 TURN 0 CROS 0 INC 0 17 TURN 0 CROS 0 INC 0 18 TURN 0 CROS 0 INC 0 100 TURN 0 CROS 0 INC 0 103 TURN 0 CROS 1 INC 1 106 TURN 0 CROS 0 INC 0 112 TURN 0 CROS 0 INC 0 114 TURN 0 CROS 114 INC 0 115 TURN 55 CROS 0 INC 0 116 TURN 60 CROS 0 INC 0 117 TURN 55 CROS 0 INC 0 118 TURN 0 CROS 0 INC 0 211 TURN 99 CROS 0 INC 211 212 TURN 60 CROS 0 INC 12 311 TURN 99 CROS 0 INC 311 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 1 PWR 1 4 SPD 2 PWR 1 5 SPD 1 PWR 1 6 SPD 2 PWR 1 8 SPD 2 PWR 1 9 SPD 1 PWR 1 10 SPD 2 PWR 1 11 SPD 1 PWR 1 13 SPD 3 PWR 1 14 SPD 3 PWR 1 15 SPD 1 PWR 1 16 SPD 3 PWR 1 17 SPD 1 PWR 1 18 SPD 2 PWR 1 99 SPD 99 PWR 1 100 SPD 100 PWR 1 112 SPD 2 PWR 1 114 SPD 3 PWR 1 311 SPD 311 PWR 1 333 SPD 333 PWR 1 UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 2 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 2 3 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 3 4 NOM 4 SCAN 4 MAT 0 FUNC 0 DUM 4 5 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 5 6 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 6 8 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 8 9 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 9 10 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 10 11 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 11 12 NOM 12 SCAN 12 MAT 0 FUNC 0 DUM 12 13 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 13 14 NOM 14 SCAN 14 MAT 0 FUNC 0 DUM 14 15 NOM 15 SCAN 15 MAT 0 FUNC 0 DUM 15 16 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 16 17 NOM 17 SCAN 17 MAT 0 FUNC 0 DUM 17 18 NOM 18 SCAN 18 MAT 0 FUNC 0 DUM 18 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 101 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 101 102 NOM 2 SCAN 2 MAT 0 FUNC 0 DUM 102 103 NOM 3 SCAN 3 MAT 0 FUNC 0 DUM 103 104 NOM 4 SCAN 4 MAT 0 FUNC 0 DUM 104 105 NOM 5 SCAN 5 MAT 0 FUNC 0 DUM 105 106 NOM 6 SCAN 6 MAT 0 FUNC 0 DUM 106 108 NOM 8 SCAN 8 MAT 0 FUNC 0 DUM 108 109 NOM 9 SCAN 9 MAT 0 FUNC 0 DUM 109 110 NOM 10 SCAN 10 MAT 0 FUNC 0 DUM 110 111 NOM 11 SCAN 11 MAT 0 FUNC 0 DUM 111 112 NOM 112 SCAN 12 MAT 0 FUNC 0 DUM 112 113 NOM 13 SCAN 13 MAT 0 FUNC 0 DUM 113 114 NOM 114 SCAN 114 MAT 0 FUNC 0 DUM 114 115 NOM 15 SCAN 15 MAT 103 FUNC 0 DUM 115 116 NOM 16 SCAN 16 MAT 0 FUNC 0 DUM 116 117 NOM 17 SCAN 17 MAT 105 FUNC 0 DUM 117 118 NOM 18 SCAN 18 MAT 0 FUNC 0 DUM 118 212 NOM 112 SCAN 12 MAT 0 FUNC 0 DUM 212 214 NOM 114 SCAN 114 MAT 0 FUNC 0 DUM 214 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 30 03 32 04 50 00 998 -01 999 00 MASK 1 01 2 01 3 01 4 01 5 01 6 02 8 01 9 01 10 01 11 02 12 00 13 01 14 00 15 02 16 02 17 02 18 02 21 00 112 03 114 05 POS 2 -4270, -1660 3 -3800, -3900 4 -4280, -760 5 -3730, 363 6 -1620, 1150 7 -1125, -1048 8 -4740, 5600 9 -3250, 5600 10 -1620, 4520 11 -1125, 2237 12 -2910, 1300 13 -2910, 2470 16 -1900, 6155 17 -1420, 5910 18 -5580, 7080 19 -3900, 7080 20 -1166, 6800 21 -2430, 7300 22 -680, 8248 23 -680, 7034 26 1800, -5070 27 2850, -6187 30 3837, -300 31 3120, -300 32 5080, 1160 33 5080, 772 34 3900, 3850 35 3200, 3850 36 5600, 4300 37 5600, 5666 98 4340, 8300 99 3500, 8300 112 -3000, 1300 113 -3000, 2469 122 -800, 8240 123 -750, 7050 130 3845, -670 131 3085, -300 132 5357, 1177 133 5100, 761 134 3900, 3480 135 3200, 3850 136 5550, 4300 137 5550, 5673 222 545, 8246 223 -301, 8020 224 550, -7460 225 550, -6100 228 6420, -3200 229 4870, -3200 230 3000, 1810 231 4300, 1810 234 3000, 6510 235 4300, 6510 324 900, -5560 325 350, -7460 328 6420, -6730 329 4870, -6730 422 -795, 8240 423 -755, 7050 428 4100, -5850 429 5570, -5850 528 6420, -4965 529 4870, -4965 600 838, -1603 628 4080, -4080 629 5570, -4080 899 -1425, -1245 900 -2553, -1720 901 -1343, -1567 997 5838, -3678 998 -13525, 20038 999 -13525, -12883 REF 999 POS 999 NOM 1 1.00000E+06 2 9.70000E+01 3 9.00000E+05 4 2.80000E+01 5 9.00000E+05 6 4.90000E+01 7 -8.00000E+00 8 1.80000E+02 9 2.50000E+03 10 9.60000E+01 11 1.00000E+06 12 1.68000E+04 13 1.66500E+01 14 3.32500E+01 15 1.11100E+05 16 2.10000E+01 17 1.11100E+05 18 2.40000E+01 19 -2.10000E+01 21 7.50000E+04 22 -1.12000E+02 112 1.96979E+04 113 -1.14000E+02 114 4.99000E+01 301 9.95718E+05 302 9.68475E+01 303 8.98992E+05 304 2.79727E+01 305 8.98603E+05 306 4.89033E+01 308 1.80057E+02 309 2.49206E+03 310 9.58564E+01 311 9.98108E+05 312 0.00000E+00 313 1.65709E+01 314 -9.99000E+02 315 1.10968E+05 316 2.09208E+01 317 1.10897E+05 318 2.39729E+01 321 7.93130E+04 412 1.96769E+04 414 4.97754E+01 SCAN 1 4, 1, 0, 0 2 16, 1, 0, 0 3 10, 1, 0, 0 4 23, 22, 0, 0 5 10, 20, 0, 0 6 10, 22, 0, 0 8 22, 20, 0, 0 9 22, 18, 0, 0 10 22, 19, 0, 0 11 14, 19, 0, 0 12 7, 6, 0, 0 13 8, 5, 0, 0 14 8, 11, 0, 0 15 13, 14, 0, 0 16 12, 14, 0, 0 17 17, 14, 0, 0 18 15, 14, 0, 0 21 7, 11, 0, 0 112 7, 6, 0, 0 114 11, 5, 0, 0 CODE 1 3, 3, 50, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 6 3, 6, 75, 0 10 3, 8, 200, 0 12 3, 2, 75, 0 13 3, 3, 75, 0 14 3, 4, 75, 0 15 3, 5, 75, 0 16 3, 6, 150, 0 17 3, 7, 150, 0 TOL 1 -5.00000E+01, 4.50000E+00 2 -5.00000E+01, 7.50000E-01 3 -5.00000E+01, 1.50000E-01 4 -5.00000E+01, 7.50000E-01 5 -5.00000E+01, 1.50000E-01 6 -5.00000E+01, 7.50000E-01 8 -5.00000E+01, 7.50000E-01 9 -5.00000E+01, 4.50000E+00 10 -5.00000E+01, 7.50000E-01 11 -5.00000E+01, 0.00000E+00 12 -7.50000E+01, 1.00000E+02 13 -4.00000E+01, 1.50000E+00 14 -4.00000E+01, 2.50000E+00 15 -5.00000E+01, 3.50000E-01 16 -5.00000E+01, 7.50000E-01 17 -5.00000E+01, 3.50000E-01 18 -5.00000E+01, 7.50000E-01 21 -3.95000E+01, 3.95000E+01 101 -4.00000E+00, 4.00000E+00 102 -5.00000E-01, 5.00000E-01 103 -2.50000E-01, 1.50000E-01 104 -5.00000E-01, 5.00000E-01 105 -2.50000E-01, 1.50000E-01 106 -5.00000E-01, 5.00000E-01 108 -5.00000E-01, 5.00000E-01 109 -4.00000E+00, 4.00000E+00 110 -5.00000E-01, 5.00000E-01 111 -3.00000E-01, 0.00000E+00 112 -8.60000E+01, 4.00000E+00 113 -1.00000E+00, 1.00000E+00 114 -4.00000E+01, 0.00000E+00 115 -2.00000E-01, 2.00000E-01 116 -5.00000E-01, 5.00000E-01 117 -2.00000E-01, 2.00000E-01 118 -5.00000E-01, 5.00000E-01 212 -5.00000E-01, 4.00000E+00 214 -3.30000E-01, 0.00000E+00 DUM 1 0.00000E+00 2 0.00000E+00 3 0.00000E+00 4 0.00000E+00 5 0.00000E+00 6 0.00000E+00 8 0.00000E+00 9 0.00000E+00 10 0.00000E+00 11 0.00000E+00 12 0.00000E+00 13 0.00000E+00 14 0.00000E+00 15 0.00000E+00 16 0.00000E+00 17 0.00000E+00 18 0.00000E+00 21 0.00000E+00 101 0.00000E+00 102 0.00000E+00 103 0.00000E+00 104 0.00000E+00 105 0.00000E+00 106 0.00000E+00 108 0.00000E+00 109 0.00000E+00 110 0.00000E+00 111 0.00000E+00 112 0.00000E+00 113 0.00000E+00 114 0.00000E+00 115 0.00000E+00 116 0.00000E+00 117 0.00000E+00 118 0.00000E+00 121 0.00000E+00 212 0.00000E+00 214 0.00000E+00 301 0.00000E+00 302 0.00000E+00 303 0.00000E+00 304 0.00000E+00 305 0.00000E+00 306 0.00000E+00 308 0.00000E+00 309 0.00000E+00 310 0.00000E+00 311 0.00000E+00 312 0.00000E+00 313 0.00000E+00 314 0.00000E+00 315 0.00000E+00 316 0.00000E+00 317 0.00000E+00 318 0.00000E+00 321 0.00000E+00 412 0.00000E+00 414 0.00000E+00 421 5.74933E+00 499 4.02646E+00 512 0.00000E+00 514 0.00000E+00 601 0.00000E+00 602 0.00000E+00 603 0.00000E+00 604 0.00000E+00 605 0.00000E+00 606 0.00000E+00 608 0.00000E+00 609 0.00000E+00 610 0.00000E+00 611 0.00000E+00 612 0.00000E+00 613 0.00000E+00 614 0.00000E+00 615 0.00000E+00 616 0.00000E+00 617 0.00000E+00 618 0.00000E+00 621 0.00000E+00 712 0.00000E+00 714 0.00000E+00 799 6.00000E+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 4.00000E+01 810 -9.00000E+01 811 1.14000E+02 812 1.70000E+01 813 3.00000E+01 999 4.00000E+00 CUT 1 -5.00000E-01 2 -2.00000E-01 3 -1.80000E-01 4 -2.20000E-01 5 -1.80000E-01 6 -2.00000E-01 8 -2.20000E-01 9 -5.00000E-01 10 -2.00000E-01 11 -2.00000E-01 13 -5.00000E-01 14 -6.00000E-01 15 -5.00000E-02 16 -4.00000E-01 17 -5.00000E-02 18 -1.50000E-01 99 9.90000E+01 100 -1.00000E+00 112 -2.00000E-01 114 -2.50000E-01 211 -1.30000E+00 311 -9.55200E-01 511 4.00000E-01 TURN 8 3.50000E+01 20 2.00000E+01 25 2.50000E+01 30 3.00000E+01 35 3.50000E+01 40 3.50000E+01 45 4.20000E+01 50 5.00000E+01 55 5.50000E+01 60 6.00000E+01 63 6.20000E+01 65 6.50000E+01 70 6.00000E+01 75 7.50000E+01 80 8.00000E+01 85 8.50000E+01 90 9.20000E+01 93 9.30000E+01 95 9.50000E+01 99 9.90000E+01 CROS 1 -6.00000E-01 2 -1.50000E-01 3 -8.00000E-01 11 -6.00000E-01 14 -3.47633E+00 114 -1.50000E-01 INC 1 2 2 8 3 10 11 40 12 470 211 6 311 6 SPD 1 1.70000E+01, 1.70000E+01 2 1.40000E+01, 1.40000E+01 3 1.10000E+01, 1.10000E+01 99 1.70000E+01, 0.00000E+00 100 0.00000E+00, 1.00000E+01 311 2.00000E+01, 2.00000E+01 333 7.00000E+00, 7.00000E+00 PWR 1 100, 100 STRG 1 _ 2 300-2159-02 3  4 6 333 L17 444 TRIM 1000 Y 1001 D 1002 B 1003 A 1004 C DLTA 500 1150, 0 501 -1150, 0 502 -5, 100 900 -1128, -475 998 0, 0 1001 0, 16970 1002 -13732, 0 1003 0, -16970 1004 0, 0 SCAL 333 8.00000E+00