HEADING:300-2433-00 (P20431.01) THICK S&R 25'S 24-APR-2000 JR STEP 1 GOTO STEP 9 2 GOTO STEP 210 3 GOTO STEP 190 4 GOSU STEP 133 5 GOTO STEP 9 6 GOTO STEP 122 7 GOTO STEP 231 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 231 10 MOVE POS 300 SPD 0 11 GOSU STEP 81 3.00000E+00 3.00000E+00 8.84000E+03 8.84000E+03 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 LET M = DUM 811 16 FOR I = 01 TO M 17 IF NOM I < - 01 THEN LET I = - NOM I 18 IF BIT 4 = 01 THEN IF MASK I > 00 THEN GOTO STEP 21 19 TEST UNK I CODE 3 TOL I ACC 21 REJ 0 REG 0 20 TEST UNK I CODE 1 TOL I ACC 0 REJ 0 REG 1 21 NEXT I 22 IF BIT 4 = 01 THEN GOTO STEP 25 23 IF DUM 7 < - 2.00000E+00 THEN GOSU STEP 175 24 IF REG 1 # 00 THEN GOTO STEP 69 25 LET M = DUM 811 26 FOR I = 01 TO M 27 IF NOM I < - 01 THEN LET I = - NOM I 28 IF MASK I = 00 THEN GOTO STEP 51 29 LET J = I * 2.00000E+00 30 LET K = J + 1.00000E+00 31 LET L = I + 1.00000E+02 32 IF BIT 4 = 01 THEN GOTO STEP 48 33 IF DUM I > 00 THEN GOTO STEP 50 34 MOVE POS J SPD 0 35 LET N = 01 36 LET J = 02 37 IF NOM I < 4.50000E+02 THEN LET N = 02 38 IF NOM I < 3.00000E+02 THEN LET N = 03 39 IF DUM I > - 4.50000E+01 THEN LET J = 03 40 IF DUM I > - 2.00000E+01 THEN LET J = 04 41 IF DUM I > - 1.00000E+01 THEN LET J = 05 42 IF MASK I = 05 THEN GOTO STEP 241 43 IF MASK I > 02 THEN IF MASK I < 05 THEN GOTO STEP 46 44 TRIM UNK I CODE J CUT I MODE I POS K DENS N BRAN 0 45 GOTO STEP 47 46 SERP UNK I CODE J CUT I MODE I POS K DENS N BRAN 0 47 IF MASK I > 01 THEN IF MASK I < 04 THEN GOSU STEP 75 48 TEST UNK I CODE 4 TOL L ACC 50 REJ 0 REG 0 49 TEST UNK I CODE 1 TOL L ACC 0 REJ 0 REG 2 50 IF REG 50 = 01 THEN GOSU STEP 138 51 NEXT I 52 IF BIT 4 = 01 THEN GOTO STEP 72 53 IF REG 50 = 01 THEN GOSU STEP 146 54 IF REG 2 # 00 THEN GOTO STEP 71 55 PRIN "GOOD PART" 56 MOVE POS 800 SPD 0 57 LET J = 2.00000E+00 58 LET K = 3.00000E+00 59 LET L = 1.00000E+00 60 LET M = 4.00000E+00 61 LET DUM 805 = DUM 799 / 1.00000E+04 62 LET STRG 11 = %4.4 DUM 805 63 LET STRG 10 = %1.0 DUM 807 64 LET STRG 12 = J J STRG 333 + K M STRG 11 + J L STRG 10 65 PRIN "LOT/SERIAL CODE IS: " STRG 12 66 CGEN DENS 1 SCAL 1 POS 801 STRG 12 67 NEXT I 68 GOTO STEP 72 69 PRIN STRG 3 " INITIAL REJECT" STRG 3 70 GOTO STEP 72 71 PRIN STRG 3 " TRIM REJECT" STRG 3 72 MOVE POS 899 SPD 0 73 HAND 74 EXIT 75 LET J = I * 02 + 1.00000E+02 76 LET K = J + 01 77 LET L = I + 1.00000E+02 78 MOVE POS J SPD 0 79 TRIM UNK I CODE 4 CUT L MODE 100 POS K DENS N BRAN 0 80 EXIT 81 IF DUM 807 = 00 THEN GOTO STEP 88 82 PRIN "" 83 PRIN "PROGRAM STOPPED AT PART # " DUM 807 84 PRIN "" 85 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 86 READ TTY:;DUM 808 %1.0 THEN QUIT 87 LET DUM 807 = 00 88 SHOM REG 30 89 SHOM REG 0 90 LET DUM 998 = VALU 3 91 LET DUM 999 = VALU 4 92 LET REG 990 = 00 93 LET REG 991 = 00 94 PRIN "ALIGN THETA" 95 ALIN POS 998 REF 999 REG 998 96 PRIN "ALIGN X-Y" 97 ALIN POS 0 REF 0 REG 0 98 LET DLTA 995 = DLTA 993 99 LET DLTA 998 = POS 997 - POS 999 100 GOSU STEP 126 101 LET REG 990 = REG 990 + 01 102 LET REG 991 = REG 991 + 01 103 LET REG 999 = ( REG 991 - 01 ) * DUM 999 104 LET REG 999 = REG 991 * DUM 999 - REG 999 105 LET DLTA 999 = REG 999 * DLTA 995 106 LET DLTA 998 = DLTA 998 + DLTA 999 107 GOSU STEP 126 108 IF REG 991 < ( VALU 2 - 01 ) THEN GOTO STEP 102 109 IF REG 990 = VALU 1 THEN GOTO STEP 117 110 LET DLTA 995 = DLTA 995 * ( - 01 ) 111 LET REG 999 = ( REG 990 - 01 ) * DUM 998 112 LET REG 999 = REG 990 * DUM 998 - REG 999 113 LET DLTA 997 = REG 999 * DLTA 994 114 LET DLTA 998 = DLTA 998 + DLTA 997 115 GOSU STEP 126 116 LET REG 991 = 00 117 IF REG 990 < VALU 1 THEN GOTO STEP 101 118 LET DUM 807 = 00 119 LET DUM 808 = 00 120 IF BIT 4 = 1.00000E+00 THEN GOTO STEP 122 121 LET DUM 799 = DUM 799 + 1.00000E+00 122 SHOM REG 30 123 SHOM REG 31 124 SHOM REG 32 125 QUIT 126 LET DUM 807 = DUM 807 + 01 127 IF DUM 808 > DUM 807 THEN EXIT 128 SMOV DLTA 998 SPD 0 REG 0 129 LET DLTA 998 = 00 130 PRIN "PART # " DUM 807 131 GOSU STEP 12 132 EXIT 133 LET REG 50 = 01 134 PRIN STRG 3 "DRIFT TEST ON" STRG 3 135 LET DUM 805 = ( DUM 812 + DUM 813 ) / DUM 812 136 LET DUM 804 = ( 1.20000E+02 - DUM 805 ) - ( DUM 812 + DUM 813 ) 137 EXIT 138 GOSU STEP 171 01 139 TEST UNK I CODE 2 TOL I ACC 0 REJ 0 REG 0 140 LET J = I + 3.00000E+02 141 LET NOM J = NOM I + ( DUM I / 1.00000E+02 * NOM I ) 142 TEST UNK 300 CODE 10 TOL I ACC 0 REJ 0 REG 0 143 LET NOM J = NOM J + ( DUM I / 1.00000E+02 * NOM J ) 144 PRIN BIT 11 "R" I " NOM" J "=" NOM J 145 EXIT 146 LET M = DUM 811 147 GOSU STEP 170 DUM 804 148 GOSU STEP 160 01 149 GOSU STEP 154 02 150 PRIN "COMPLETE" STRG 3 151 LET REG 50 = 00 152 GOSU STEP 171 05 153 EXIT 154 PRIN STRG 3 "HIT PAGE THEN RETURN" STRG 1 155 READ TTY:;%1.0 THEN QUIT 156 PRIN "DRIFT TEST FOR " STRG 2 " LOT #" STRG 333  " " 157 PRIN "DRIFT IS BASED ON 120 SECONDS" 158 PRIN "WAIT TIME (SEC) " %6.2 DUM 804 159 PRIN "PAUSE TIME (SEC) " %5.2 DUM 805  " " 160 FOR N = 01 TO M 161 GOSU STEP 225 162 IF NOM J < 00 THEN GOTO STEP 168 163 IF VALU 1 = 02 THEN GOTO STEP 167 164 GOSU STEP 171 DUM 805 165 PRIN BIT 11 "TESTING R" I 166 TEST UNK 300 CODE 10 TOL I ACC 168 REJ 168 REG 0 167 PRIN "R" I " CHANGE =" %6.3 DUM I "%" 168 NEXT N 169 EXIT 170 PRIN "WAITING " VALU 1 " SECOND(S)" STRG 3 171 LET L = VALU 1 * 2.50000E+03 172 FOR K = 01 TO L 173 NEXT K 174 EXIT 175 LET M = DUM 811 176 FOR N = 01 TO M 177 GOSU STEP 225 178 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 181 179 PRIN "DID NOT LOG" 180 EXIT 181 NEXT N 182 PRIN "DATA LOGGING" 183 LET DUM 800 = DUM 800 + 01 184 FOR N = 01 TO M 185 GOSU STEP 225 186 LET DUM J = DUM J + DUM I 187 LET DUM K = DUM K + ( DUM I * DUM I ) 188 NEXT N 189 EXIT 190 GOSU STEP 203 191 LET M = DUM 811 192 FOR N = 01 TO M 193 GOSU STEP 225 194 LET DUM 804 = DUM J / DUM 800 195 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 196 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 197 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 198 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 199 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 200 PRIN %15.3 DUM 806 %15.3 NOM I 201 NEXT N 202 QUIT 203 PRIN STRG 2 " LOT " STRG 333 STRG 1 204 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 205 PRIN " DATE: " STRG 340 206 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 207 PRIN " NOMINAL" 208 PRIN " " 209 EXIT 210 LET M = DUM 811 211 FOR N = 01 TO M 212 GOSU STEP 225 213 LET DUM I = 00 214 LET DUM J = 00 215 LET DUM K = 00 216 NEXT N 217 FOR I = 8.00000E+02 TO 8.08000E+02 218 LET DUM I = 00 219 NEXT I 220 PRIN STRG 3 "ARE YOU GOING TO RE-SAVE THIS PROGRAM NOW ?" STRG 1 221 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 222 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 223 PRIN "DUMMIES ZEROED" STRG 3 224 QUIT 225 IF NOM N < 00 THEN LET N = - NOM N 226 LET I = N 227 LET J = I + 3.00000E+02 228 LET K = I + 6.00000E+02 229 LET L = I + 1.00000E+02 230 EXIT 231 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 232 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 233 PRIN "LOT NUMBER IS " STRG 333 234 PRIN " "  "ENTER TODAY'S DATE >" STRG 1 235 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 236 PRIN "DATE IS: " STRG 340 237 PRIN STRG 3 238 LET DUM 801 = 01 239 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 240 QUIT 241 REM "STEPS FOR EQUAL SCAN SERP" 242 LET CUT I = DUM I / 02 243 SERP UNK I CODE J CUT I MODE 99 POS K DENS 99 BRAN 0 244 TEST UNK I CODE J TOL I ACC 0 REJ 0 REG 0 245 LET J = I * 02 + 1.00000E+02 246 LET K = J + 1.00000E+00 247 LET L = I + 1.00000E+02 248 MOVE POS J SPD 0 249 SERP UNK I CODE 4 CUT L MODE 99 POS K DENS 99 BRAN 0 250 GOTO STEP 48 251 FOR I = 5.00000E+01 TO 5.10000E+01 252 LET POS I = POS I - DLTA 900 253 NEXT I MODE 1 TURN 1 CROS 0 INC 0 2 TURN 0 CROS 0 INC 0 3 TURN 3 CROS 0 INC 0 4 TURN 4 CROS 0 INC 0 5 TURN 5 CROS 0 INC 0 6 TURN 0 CROS 0 INC 0 7 TURN 7 CROS 0 INC 0 8 TURN 0 CROS 0 INC 0 12 TURN 12 CROS 0 INC 0 13 TURN 13 CROS 0 INC 0 14 TURN 14 CROS 0 INC 0 15 TURN 15 CROS 0 INC 0 16 TURN 16 CROS 0 INC 0 17 TURN 17 CROS 0 INC 0 18 TURN 18 CROS 0 INC 0 19 TURN 19 CROS 0 INC 0 20 TURN 0 CROS 0 INC 0 21 TURN 21 CROS 0 INC 0 23 TURN 23 CROS 0 INC 0 24 TURN 0 CROS 0 INC 0 25 TURN 0 CROS 0 INC 0 26 TURN 26 CROS 0 INC 0 28 TURN 28 CROS 0 INC 0 29 TURN 29 CROS 0 INC 0 99 TURN 99 CROS 0 INC 99 100 TURN 0 CROS 0 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 99 SPD 99 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 7 NOM 7 SCAN 7 MAT 0 FUNC 0 DUM 7 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 19 NOM 19 SCAN 19 MAT 0 FUNC 0 DUM 19 20 NOM 20 SCAN 20 MAT 0 FUNC 0 DUM 20 21 NOM 21 SCAN 21 MAT 0 FUNC 0 DUM 21 23 NOM 23 SCAN 23 MAT 0 FUNC 0 DUM 23 24 NOM 24 SCAN 24 MAT 0 FUNC 0 DUM 24 25 NOM 25 SCAN 25 MAT 0 FUNC 0 DUM 25 26 NOM 26 SCAN 26 MAT 0 FUNC 0 DUM 26 28 NOM 28 SCAN 28 MAT 0 FUNC 0 DUM 28 29 NOM 29 SCAN 29 MAT 0 FUNC 0 DUM 29 300 NOM J SCAN I MAT 0 FUNC 0 DUM I REG 1 00 2 00 3 00 4 00 30 03 31 00 32 04 50 00 990 00 991 00 998 -01 999 021210 MASK 1 01 2 00 3 01 4 01 5 01 6 00 7 01 8 00 9 00 10 00 11 00 12 01 13 01 14 01 15 01 16 01 17 01 18 01 19 01 20 00 21 01 23 01 24 00 25 01 26 01 28 01 29 01 POS 2 -2700, -2520 3 -1857, -2662 6 -650, -2740 7 -434, -2950 8 1465, -2718 9 689, -2592 10 534, 2320 11 194, 2459 14 2920, 2865 15 2465, 2538 24 3097, -670 25 2968, -816 26 -2459, -1250 27 -2026, -1392 28 -700, -1700 29 231, -1854 30 -700, -1080 31 230, -1230 32 3344, -2735 33 2900, -2541 34 2666, -1868 35 2520, -2068 36 3402, -1895 37 3073, -1534 38 2535, -1685 39 2686, -1485 42 -1837, 2326 43 -1597, 2099 46 -2158, 320 47 -2268, 108 50 3232, 2012 51 2716, 2012 52 -843, 854 53 -1921, 1000 56 1960, -2754 57 2190, -2870 58 532, 2010 59 950, 1697 300 329, -1704 800 3720, -4270 801 7000, -4270 899 -1737, 35 900 -968, 984 901 -1404, -3048 997 10483, -2761 998 -9602, 13105 999 -9602, -4592 REF 999 POS 999 NOM 1 1.70000E+01 2 1.00000E+03 3 2.50000E+04 4 1.70000E+01 5 5.00000E+01 6 2.00000E+01 7 4.00000E+02 8 2.00000E+01 9 8.80000E+02 10 8.80000E+02 11 8.80000E+02 12 5.00000E+01 13 9.70000E+02 14 4.60000E+02 15 4.60000E+02 16 1.10000E+03 17 5.00000E+01 18 1.00000E+02 19 5.00000E+01 20 2.00000E+01 21 2.50000E+04 22 -2.30000E+01 23 5.00000E+01 24 5.00000E+01 25 5.00000E+01 26 5.00000E+01 27 -2.80000E+01 28 5.00000E+01 29 1.00000E+06 301 1.68761E+01 302 -1.00000E+00 303 2.54129E+04 304 1.68737E+01 305 4.96772E+01 306 -1.00000E+00 307 3.99070E+02 308 -1.00000E+00 309 -1.00000E+00 310 -1.00000E+00 311 -1.00000E+00 312 4.70347E+01 313 9.67828E+02 314 4.58654E+02 315 4.59225E+02 316 1.09888E+03 317 4.61497E+01 318 9.92895E+01 319 5.16536E+01 320 -1.00000E+00 321 2.73109E+04 322 -1.00000E+00 323 4.27898E+01 324 -1.00000E+00 325 4.50942E+01 326 4.98674E+01 327 0.00000E+00 328 4.43801E+01 329 9.93180E+05 SCAN 1 2, 3, 0, 0 2 3, 4, 0, 0 3 5, 2, 0, 0 4 6, 6, 0, 0 5 20, 19, 0, 0 6 15, 20, 0, 0 7 17, 15, 0, 0 8 13, 13, 0, 0 9 0, 23, 0, 0 10 7, 5, 0, 0 11 12, 12, 0, 0 12 11, 11, 0, 0 13 1, 0, 0, 0 14 4, 1, 0, 0 15 21, 1, 0, 0 16 9, 9, 0, 0 17 10, 8, 0, 0 18 10, 10, 0, 0 19 12, 10, 0, 0 20 18, 17, 0, 0 21 22, 21, 0, 0 23 22, 16, 0, 0 24 16, 18, 0, 0 25 14, 14, 0, 0 26 23, 22, 0, 0 28 8, 7, 0, 0 29 19, 20, 0, 0 CODE 1 2, 2, 0, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 TOL 1 -5.00000E+01, 4.50000E+00 2 -2.45000E+01, 2.45000E+01 3 -5.00000E+01, 2.45000E+01 4 -5.00000E+01, 4.50000E+00 5 -5.00000E+01, 4.50000E+00 6 -2.45000E+01, 2.45000E+01 7 -5.00000E+01, 7.50000E-01 8 -2.45000E+01, 2.45000E+01 9 -4.00000E+01, 0.00000E+00 10 -4.00000E+01, 0.00000E+00 11 -4.00000E+01, 0.00000E+00 12 -5.00000E+01, 2.45000E+01 13 -5.00000E+01, 7.50000E-01 14 -5.00000E+01, 7.50000E-01 15 -5.00000E+01, 7.50000E-01 16 -5.00000E+01, 7.50000E-01 17 -5.00000E+01, 2.45000E+01 18 -5.00000E+01, 4.50000E+00 19 -5.00000E+01, 2.45000E+01 20 -2.45000E+01, 2.45000E+01 21 -5.00000E+01, 2.45000E+01 23 -5.00000E+01, 2.45000E+01 24 -2.45000E+01, 2.45000E+01 25 -5.00000E+01, 2.45000E+01 26 -5.00000E+01, 7.50000E-01 28 -5.00000E+01, 2.45000E+01 29 -5.50000E+01, 4.50000E+00 101 -4.00000E+00, 4.00000E+00 103 -2.40000E+01, 2.40000E+01 104 -4.00000E+00, 4.00000E+00 105 -4.00000E+00, 4.00000E+00 107 -5.00000E-01, 5.00000E-01 112 -2.40000E+01, 2.40000E+01 113 -5.00000E-01, 5.00000E-01 114 -5.00000E-01, 5.00000E-01 115 -5.00000E-01, 5.00000E-01 116 -5.00000E-01, 5.00000E-01 117 -2.40000E+01, 2.40000E+01 118 -4.00000E+00, 4.00000E+00 119 -2.40000E+01, 2.40000E+01 121 -2.40000E+01, 2.40000E+01 123 -2.40000E+01, 2.40000E+01 125 -2.40000E+01, 2.40000E+01 126 -5.00000E-01, 5.00000E-01 128 -2.40000E+01, 2.40000E+01 129 -4.00000E+00, 4.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 7 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 19 0.00000E+00 20 0.00000E+00 21 0.00000E+00 23 0.00000E+00 24 0.00000E+00 25 0.00000E+00 26 0.00000E+00 28 0.00000E+00 29 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 307 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 319 0.00000E+00 320 0.00000E+00 321 0.00000E+00 323 0.00000E+00 324 0.00000E+00 325 0.00000E+00 326 0.00000E+00 328 0.00000E+00 329 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 607 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 619 0.00000E+00 620 0.00000E+00 621 0.00000E+00 623 0.00000E+00 624 0.00000E+00 625 0.00000E+00 626 0.00000E+00 628 0.00000E+00 629 0.00000E+00 799 4.10000E+01 800 0.00000E+00 801 1.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 8.00000E+01 810 -8.00000E+01 811 2.90000E+01 812 1.10000E+01 813 1.10000E+01 814 1.60000E+02 998 8.84000E+03 999 8.84000E+03 1000 1.60000E+01 CUT 1 -8.00000E-01 2 -2.20000E+01 3 -2.00000E+01 4 -8.00000E-01 5 -8.00000E-01 6 -2.20000E+01 7 -3.00000E-01 8 -2.20000E+01 12 -1.40000E+01 13 -3.00000E-01 14 -3.00000E-01 15 -3.00000E-01 16 -3.00000E-01 17 -1.40000E+01 18 -8.00000E-01 19 -1.40000E+01 20 -2.20000E+01 21 -2.00000E+01 23 -2.00000E+01 24 -2.20000E+01 25 -1.40000E+01 26 -3.00000E-01 28 -2.00000E+01 29 -8.00000E-01 TURN 1 2.50000E+01 3 7.00000E+01 4 2.50000E+01 5 5.00000E+01 7 7.70000E+01 12 6.00000E+01 13 4.30000E+01 14 2.50000E+01 15 2.50000E+01 16 5.50000E+01 17 6.50000E+01 18 7.60000E+01 19 6.50000E+01 21 7.00000E+01 23 7.50000E+01 26 2.10000E+01 28 7.00000E+01 29 6.90000E+01 99 9.90000E+01 INC 99 1 SPD 1 1.00000E+01, 1.00000E+01 2 7.00000E+00, 7.00000E+00 3 6.00000E+00, 6.00000E+00 99 3.00000E+01, 3.00000E+01 PWR 1 100, 100 STRG 1 _ 2 300-2433-00 3  10 9 11 .0040 12 1900409 333 ML 340 06/29/01 1000 Y DLTA 900 769, 949 993 0, 1 994 -1, 0 995 0, 1 996 0, 0 997 -8840, 0 998 0, 0 999 0, 8840 SCAL 1 6.00000E+00 333 0.00000E+00