HEADING: 300-2587-00 "A PASS" (P20487.A1) S&R 25'S 17-AUG-00 JR STEP 1 GOTO STEP 9 2 GOTO STEP 196 3 GOTO STEP 173 4 GOSU STEP 116 5 GOTO STEP 9 6 GOTO STEP 145 7 GOTO STEP 232 8 IF DUM 807 = 00 THEN LET DUM 807 = 01 9 IF DUM 801 = 00 THEN GOTO STEP 232 10 MOVE POS 300 SPD 0 11 GOSU STEP 124 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 15 FOR I = 5.01000E+02 TO 5.04000E+02 16 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 20 REG 0 17 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 20 REG 0 18 PRIN "SHORT REJECT # " I 19 LET REG 3 = 01 20 NEXT I 21 IF REG 3 # 00 THEN GOTO STEP 111 22 FOR I = 6.01000E+02 TO 6.02000E+02 23 IF BIT 10 = 01 THEN GOTO STEP 25 24 TEST UNK 600 CODE 8 TOL 600 ACC 27 REJ 0 REG 0 25 TEST UNK 600 CODE 2 TOL 600 ACC 27 REJ 0 REG 4 26 PRIN "THRUHOLE REJECT #" I 27 NEXT I 28 IF REG 4 # 00 THEN GOTO STEP 113 29 LET M = DUM 811 30 FOR I = 01 TO M 31 IF NOM I < - 01 THEN LET I = - NOM I 32 LET J = 03 33 IF NOM I > 9.00000E+04 THEN LET J = J + 1.00000E+01 34 IF BIT 4 = 01 THEN IF MASK I # 00 THEN GOTO STEP 39 35 TEST UNK 1 CODE J TOL I ACC 37 REJ 0 REG 0 36 TEST UNK 1 CODE 1 TOL I ACC 0 REJ 38 REG 1 37 IF BIT 8 = 01 THEN GOTO STEP 39 38 PRIN "R" I " = " DUM I "%" 39 NEXT I 40 IF DUM 7 < - 2.00000E+00 THEN GOSU STEP 158 41 IF BIT 4 = 01 THEN GOTO STEP 44 42 IF REG 1 # 00 THEN GOTO STEP 111 43 REM "**************************************" 44 LET M = DUM 811 45 FOR I = 01 TO M 46 IF NOM I < - 01 THEN LET I = - NOM I 47 IF MASK I = 00 THEN GOTO STEP 84 48 IF MASK I # - 01 THEN GOTO STEP 51 49 REM "** CALCULATE NOMINAL FOR 2-PLUNGE L-TRIM ROUTINE **" 50 LET NOM 300 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 51 LET J = I * 02 52 LET K = J + 01 53 LET L = I + 1.00000E+02 54 IF REG 50 = 02 THEN GOSU STEP 120 55 IF REG 50 = 02 THEN GOTO STEP 84 56 IF BIT 4 = 01 THEN GOTO STEP 81 57 IF DUM I > TOL L THEN GOTO STEP 81 58 MOVE POS J SPD 0 59 LET J = 02 60 IF DUM I > - 4.50000E+01 THEN LET J = 03 61 IF DUM I > - 2.00000E+01 THEN LET J = 04 62 IF DUM I > - 1.00000E+01 THEN LET J = 05 63 IF DUM I > - 5.00000E+00 THEN LET J = 06 64 IF NOM I > 2.00000E+04 THEN LET J = J + 1.00000E+01 65 LET N = 01 66 IF NOM I < 1.00000E+03 THEN LET N = 02 67 IF NOM I < 1.00000E+02 THEN LET N = 03 68 IF MASK I # - 01 THEN GOTO STEP 79 69 REM "***BEGIN '2-PLUNGE L-TRIM ROUTINE***" 70 TRIM UNK 300 CODE 104 CUT 207 MODE 207 POS K DENS 4 BRAN 0 71 PRIN "FIRST TRIM" 72 TRIM UNK 300 CODE 105 CUT 7 MODE I POS K DENS 4 BRAN 0 73 PRIN "SECOND TRIM" STRG 3 74 IF N < 1.00000E+01 THEN LET N = N + 1.00000E+01 75 PRIN "FINAL TRIM" 76 TRIM UNK 1 CODE 6 CUT L MODE L POS K DENS 104 BRAN 0 77 GOTO STEP 80 78 REM "END" 79 TRIM UNK 1 CODE J CUT I MODE I POS K DENS N BRAN 0 80 IF MASK I = - 01 THEN GOSU STEP 217 81 TEST UNK 1 CODE 15 TOL L ACC 0 REJ 83 REG 2 82 IF BIT 8 = 01 THEN GOTO STEP 84 83 PRIN "R" I " = " DUM I "%" 84 NEXT I 85 IF REG 50 = 00 THEN GOTO STEP 98 86 IF REG 50 = 01 THEN GOTO STEP 91 87 LET REG 50 = 00 88 PRIN "END OF DRIFT TEST, HIT RETURN TO CONTINUE.." STRG 1 89 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 90 GOTO STEP 99 91 PRIN "WAITING 2 MINUTES" STRG 3 92 LET REG 50 = 02 93 LET BIT 8 = 01 94 FOR I = 1.00000E+00 TO 3.00000E+05 95 NEXT I 96 PRIN STRG 2 " SHORT TERM DRIFT TEST RESULTS" 97 GOTO STEP 44 98 IF BIT 4 = 01 THEN GOTO STEP 113 99 IF REG 2 # 00 THEN GOTO STEP 112 100 PRIN "GOOD PART" 101 REM "** TRIM LOT#, SUB# AND CIRCUIT# ON GOOD PARTS **" 102 MOVE POS 800 SPD 0 103 LET J = 02 104 LET K = 03 105 LET L = 05 106 LET DUM 805 = ( ( DUM 799 * 1.00000E+01 ) + DUM 807 ) / 1.00000E+05 107 LET STRG 1000 = %5.5 DUM 805 108 LET STRG 12 = J J STRG 333 + K L STRG 1000 109 PRIN "LOT/SERIAL CODE IS: " STRG 12 110 CGEN DENS 333 SCAL 1 POS 801 STRG 12 111 IF REG 1 # 00 THEN PRIN "INITIAL REJECT" STRG 3 112 IF REG 2 # 00 THEN PRIN "TRIM REJECT" STRG 3 113 MOVE POS 899 SPD 0 114 HAND 115 EXIT 116 PRIN "DRIFT TEST ON" STRG 3 117 LET REG 50 = 01 118 LET BIT 8 = 00 119 EXIT 120 LET NOM 300 = NOM I + ( NOM I * DUM I / 1.00000E+02 ) 121 TEST UNK 300 CODE 15 TOL 1 ACC 0 REJ 0 REG 0 122 PRIN " R" I " CHANGE = " %5.3 DUM 300 "%" 123 EXIT 124 IF DUM 807 = 00 THEN GOTO STEP 131 125 PRIN "" 126 PRIN "PROGRAM STOPPED AT PART # " DUM 807 127 PRIN "" 128 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 129 READ TTY:;DUM 808 %1.0 THEN QUIT 130 LET DUM 807 = 00 131 SHOM REG 30 132 SHOM REG 0 133 REM "ALIGN THETA" 134 ALIN POS 998 REF 999 REG 998 135 REM "ALIGN X-Y" 136 ALIN POS 0 REF 0 REG 0 137 LET DLTA 998 = POS 997 - POS 999 138 GOTO STEP 140 139 LET DLTA 998 = DLTA 998 + DLTA 999 140 GOSU STEP 149 141 IF DUM 807 < DUM 999 THEN GOTO STEP 139 142 LET DUM 807 = 00 143 LET DUM 808 = 00 144 LET DUM 799 = DUM 799 + 01 145 SHOM REG 30 146 SHOM REG 0 147 SHOM REG 32 148 QUIT 149 LET DUM 807 = DUM 807 + 01 150 IF DUM 808 > DUM 807 THEN EXIT 151 SMOV DLTA 998 SPD 0 REG 0 152 SMOV DLTA 0 SPD 0 REG 0 153 LET DLTA 998 = 00 154 PRIN "" 155 PRIN "PART # " DUM 807 156 GOSU STEP 12 157 EXIT 158 LET M = DUM 811 159 FOR N = 01 TO M 160 GOSU STEP 211 161 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 164 162 PRIN "DID NOT LOG" 163 EXIT 164 NEXT N 165 PRIN "DATA LOGGING" 166 LET DUM 800 = DUM 800 + 01 167 FOR N = 01 TO M 168 GOSU STEP 211 169 LET DUM J = DUM J + DUM I 170 LET DUM K = DUM K + ( DUM I * DUM I ) 171 NEXT N 172 EXIT 173 GOSU STEP 186 174 LET M = DUM 811 175 FOR N = 01 TO M 176 GOSU STEP 211 177 LET DUM 804 = DUM J / DUM 800 178 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 179 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 180 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 181 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 182 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 183 PRIN %15.3 DUM 806 %15.3 NOM I 184 NEXT N 185 QUIT 186 PRIN STRG 2 " LOT " STRG 333 STRG 1 187 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 188 PRIN " " 189 PRIN " DATE: " STRG 340 " LAST ARRAY # (DUM 799): " STRG 1 190 LET DUM 805 = DUM 799 - 1.00000E+00 191 PRIN %5.0 DUM 805 192 PRIN " " 193 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 194 PRIN " NOMINAL" 195 EXIT 196 LET M = DUM 811 197 FOR N = 01 TO M 198 GOSU STEP 211 199 LET DUM I = 00 200 LET DUM J = 00 201 LET DUM K = 00 202 NEXT N 203 FOR I = 8.00000E+02 TO 8.08000E+02 204 LET DUM I = 00 205 NEXT I 206 PRIN STRG 3 "READY TO SAVE PROGRAM NOW ? (Y/N) " STRG 1 207 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 208 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 209 PRIN "DUMMIES ZEROED" STRG 3 210 QUIT 211 IF NOM N < 00 THEN LET N = - NOM N 212 LET I = N 213 LET J = I + 3.00000E+02 214 LET K = I + 6.00000E+02 215 LET L = I + 1.00000E+02 216 EXIT 217 REM "** MULTIPLE BOX TRIM ROUTINE, USE GOSU AFTER L-TRIM **" 218 LET J = I * 02 219 NIBL DLTA 800 POS J DENS 800 BRAN 0 220 NIBL DLTA 801 POS J DENS 800 BRAN 224 221 NIBL DLTA 802 POS J DENS 800 BRAN 225 222 NIBL DLTA 803 POS K DENS 4 BRAN 0 223 GOTO STEP 220 224 EXIT 225 NIBL DLTA 804 POS J DENS 800 BRAN 229 226 NIBL DLTA 805 POS K DENS 4 BRAN 0 227 GOTO STEP 220 228 EXIT 229 PRIN STRG 3 "CANNOT DO BOX TRIM !! CHECK POSITIONS!" 230 PRIN STRG 3 "PROGRAM STOPPED ON R" I ", FIX OR GET HELP!" 231 QUIT 232 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 233 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 234 PRIN STRG 3 "ENTER TODAY'S DATE >" STRG 1 235 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 236 PRIN  "LOT NUMBER IS: " STRG 333 237 PRIN "TODAY'S DATE IS: " STRG 340 238 PRIN STRG 3 239 LET DUM 801 = 01 240 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 241 QUIT MODE 1 TURN 1 CROS 0 INC 0 5 TURN 1 CROS 0 INC 0 6 TURN 6 CROS 0 INC 0 7 TURN 0 CROS 207 INC 7 8 TURN 8 CROS 0 INC 0 9 TURN 9 CROS 0 INC 0 11 TURN 11 CROS 0 INC 0 12 TURN 12 CROS 12 INC 12 13 TURN 13 CROS 0 INC 0 14 TURN 14 CROS 0 INC 0 15 TURN 15 CROS 0 INC 0 16 TURN 0 CROS 207 INC 7 17 TURN 17 CROS 0 INC 0 20 TURN 0 CROS 207 INC 7 23 TURN 23 CROS 0 INC 0 24 TURN 24 CROS 12 INC 12 25 TURN 25 CROS 0 INC 0 26 TURN 26 CROS 12 INC 12 27 TURN 27 CROS 0 INC 0 28 TURN 27 CROS 0 INC 0 29 TURN 29 CROS 0 INC 0 30 TURN 29 CROS 0 INC 0 31 TURN 31 CROS 0 INC 0 32 TURN 32 CROS 0 INC 0 33 TURN 33 CROS 0 INC 0 34 TURN 34 CROS 0 INC 0 35 TURN 35 CROS 0 INC 0 37 TURN 37 CROS 0 INC 0 107 TURN 0 CROS 107 INC 107 116 TURN 0 CROS 107 INC 107 120 TURN 0 CROS 120 INC 120 207 TURN 0 CROS 7 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 4 SPD 4 PWR 1 104 SPD 104 PWR 1 333 SPD 333 PWR 1 800 SPD 800 PWR 0 UNK 1 NOM I SCAN I MAT 0 FUNC 0 DUM I 300 NOM 300 SCAN I MAT 0 FUNC 0 DUM 300 500 NOM 500 SCAN I MAT 0 FUNC 0 DUM 0 600 NOM 600 SCAN I MAT 0 FUNC 0 DUM 0 REG 1 00 2 03 3 00 4 00 30 03 32 04 50 00 998 -01 MASK 1 01 5 01 6 01 7 -01 8 01 9 01 11 01 12 01 13 01 14 01 15 01 16 -01 17 01 20 -01 23 01 24 01 25 01 26 01 27 01 28 01 29 01 30 01 31 01 32 01 33 01 34 01 35 01 37 01 48 00 POS 2 12890, -1076 3 13074, -724 12 3198, -300 13 3535, -408 14 2818, 1580 15 5207, 2100 16 -4651, 2810 17 -4397, 3180 18 4269, 3777 19 4464, 4500 22 1239, 1738 23 1981, 2083 24 948, 4441 25 1640, 3900 26 1222, -1564 27 1423, -1071 28 -450, -3493 29 236, -3116 30 -4293, -2284 31 -3992, -1919 32 -2282, -1564 33 203, -1046 40 -2354, 1649 41 134, 2025 46 -3662, 1807 47 -3057, 2163 48 -3460, 3324 49 -2702, 2803 50 285, 3643 51 423, 4900 52 632, -2771 53 1381, -3268 54 -10802, -450 55 -10440, -550 56 -10825, 231 57 -10434, 124 58 -10993, -1983 59 -10793, -1613 60 -10971, 1220 61 -10744, 1507 62 -8642, -2317 63 -8321, -2823 64 -9761, -2852 65 -9266, -2548 66 -10914, 1772 67 -10410, 2081 68 -10856, 2408 69 -10341, 2737 70 10221, -2589 71 10903, -2264 74 -6494, 2953 75 -6034, 2813 300 -10378, -2885 800 5914, 4130 801 5914, 2408 899 -2381, -1010 900 -2071, -3568 997 1250, -5804 998 3156, 18561 999 3156, -11012 REF 999 POS 999 NOM 1 1.50000E+01 2 -6.00000E+00 6 1.80000E+01 7 1.80000E+06 8 1.30000E+02 9 7.20000E+01 10 -1.10000E+01 11 2.90000E+02 12 2.22220E+05 13 1.00000E+02 14 4.90000E+01 15 1.62000E+02 16 1.80420E+06 17 -2.00000E+01 20 1.80420E+06 21 -2.30000E+01 23 3.38000E+02 24 1.95800E+05 25 4.50000E+01 26 1.95800E+05 27 1.20000E+01 28 1.20000E+01 29 2.20000E+01 30 2.20000E+01 31 4.00000E+01 32 4.00000E+01 33 4.00000E+01 34 4.00000E+01 35 5.00000E+01 36 -3.70000E+01 37 1.00000E+02 38 -4.80000E+01 48 5.00000E+02 300 1.31351E+06 301 0.00000E+00 305 0.00000E+00 306 0.00000E+00 307 0.00000E+00 308 0.00000E+00 309 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 320 0.00000E+00 323 0.00000E+00 324 0.00000E+00 325 0.00000E+00 326 0.00000E+00 327 0.00000E+00 328 0.00000E+00 329 0.00000E+00 330 0.00000E+00 331 0.00000E+00 332 0.00000E+00 333 0.00000E+00 334 0.00000E+00 335 0.00000E+00 337 0.00000E+00 500 2.00000E+00 600 3.00000E+00 SCAN 1 11, 12, 0, 0 6 9, 13, 0, 0 7 13, 17, 0, 0 8 21, 19, 0, 0 9 15, 14, 0, 0 11 8, 17, 0, 0 12 14, 17, 0, 0 13 13, 3, 0, 0 14 6, 7, 0, 0 15 5, 4, 0, 0 16 5, 3, 0, 0 20 8, 8, 0, 0 23 4, 8, 0, 0 24 17, 8, 0, 0 25 17, 16, 0, 0 26 7, 7, 0, 0 27 20, 15, 0, 0 28 22, 5, 0, 0 29 18, 15, 0, 0 30 22, 6, 0, 0 31 0, 18, 0, 0 32 12, 2, 0, 0 33 23, 22, 0, 0 34 10, 23, 0, 0 35 11, 10, 0, 0 37 2, 21, 0, 0 48 19, 1, 0, 0 501 3, 4, 0, 0 502 5, 8, 0, 0 503 15, 17, 0, 0 504 13, 17, 0, 0 601 5, 0, 0, 0 602 16, 19, 0, 0 CODE 1 3, 1, 150, 0 2 3, 2, 50, 0 3 3, 3, 50, 0 4 3, 4, 50, 0 5 3, 5, 50, 0 6 3, 6, 100, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 12 3, 2, 100, 0 13 3, 3, 100, 0 14 3, 4, 100, 0 15 3, 5, 150, 0 16 3, 6, 100, 0 104 3, 7, 100, 0 105 3, 7, 100, 0 TOL 1 -6.00000E+01, 4.50000E+00 6 -6.00000E+01, 4.50000E+00 7 -6.00000E+01, 1.00000E+01 8 -6.00000E+01, 4.50000E+00 9 -6.00000E+01, 1.50000E+00 11 -6.00000E+01, 4.50000E+00 12 -6.00000E+01, 0.00000E+00 13 -6.00000E+01, 1.50000E+00 14 -6.00000E+01, 1.50000E+00 15 -6.00000E+01, 1.50000E+00 16 -6.00000E+01, 0.00000E+00 20 -6.00000E+01, 0.00000E+00 23 -6.00000E+01, 1.50000E+00 24 -6.00000E+01, 0.00000E+00 25 -6.00000E+01, 1.50000E+00 26 -6.00000E+01, 0.00000E+00 27 -6.00000E+01, 4.50000E+00 28 -6.00000E+01, 4.50000E+00 29 -6.00000E+01, 4.50000E+00 30 -6.00000E+01, 4.50000E+00 31 -6.00000E+01, 1.50000E+00 32 -6.00000E+01, 1.50000E+00 33 -6.00000E+01, 1.50000E+00 34 -6.00000E+01, 1.50000E+00 35 -6.00000E+01, 4.50000E+00 37 -6.00000E+01, 4.50000E+00 48 -3.30000E+01, 3.30000E+01 101 -4.00000E+00, 4.00000E+00 106 -4.00000E+00, 4.00000E+00 107 -3.30000E-01, 0.00000E+00 108 -4.00000E+00, 4.00000E+00 109 -1.00000E+00, 1.00000E+00 111 -4.00000E+00, 4.00000E+00 112 -3.30000E-01, 0.00000E+00 113 -1.00000E+00, 1.00000E+00 114 -1.00000E+00, 1.00000E+00 115 -1.00000E+00, 1.00000E+00 116 -3.30000E-01, 0.00000E+00 120 -3.30000E-01, 0.00000E+00 123 -1.00000E+00, 1.00000E+00 124 -3.30000E-01, 0.00000E+00 125 -1.00000E+00, 1.00000E+00 126 -3.30000E-01, 0.00000E+00 127 -4.00000E+00, 4.00000E+00 128 -4.00000E+00, 4.00000E+00 129 -4.00000E+00, 4.00000E+00 130 -4.00000E+00, 4.00000E+00 131 -1.00000E+00, 1.00000E+00 132 -1.00000E+00, 1.00000E+00 133 -1.00000E+00, 1.00000E+00 134 -1.00000E+00, 1.00000E+00 135 -4.00000E+00, 4.00000E+00 137 -4.00000E+00, 4.00000E+00 500 -1.50000E+02, 1.50000E+02 600 -1.00000E+02, 1.00000E+02 DUM 1 -6.51042E-02 5 0.00000E+00 6 9.22336E+18 7 1.74222E-01 8 -2.70433E-01 9 6.51042E-02 11 -2.15517E-01 12 -1.13401E-01 13 -2.53906E-01 14 -2.07270E-01 15 -6.26929E-02 16 1.85789E-01 17 0.00000E+00 20 -2.86288E+01 23 -3.28402E+01 24 -2.64556E+01 25 -3.01215E+01 26 -3.03779E+01 27 -2.80111E+01 28 -2.62370E+01 29 -2.59410E+01 30 -2.48402E+01 31 -2.91992E+01 32 -2.80664E+01 33 -2.58984E+01 34 -2.71680E+01 35 -2.41406E+01 37 -3.13750E+01 48 -4.37500E-01 300 3.91190E-03 301 -3.64206E+02 305 0.00000E+00 306 -5.09723E+02 307 -7.97974E+02 308 -7.75818E+02 309 -8.00109E+02 311 -8.17781E+02 312 -7.89586E+02 313 -8.14875E+02 314 -6.12532E+02 315 -7.71818E+02 316 -7.41979E+02 317 0.00000E+00 320 -7.65590E+02 323 -8.24612E+02 324 -7.30926E+02 325 -8.17136E+02 326 -7.84221E+02 327 -6.60092E+02 328 -6.24756E+02 329 -6.28126E+02 330 -6.51794E+02 331 -7.10508E+02 332 -6.48906E+02 333 -6.61797E+02 334 -6.70449E+02 335 -6.00219E+02 337 -8.08890E+02 348 -2.52875E+01 365 0.00000E+00 601 5.17843E+03 605 0.00000E+00 606 1.01063E+04 607 2.46940E+04 608 2.32508E+04 609 2.46653E+04 611 2.57449E+04 612 2.44058E+04 613 2.55710E+04 614 1.45353E+04 615 2.29438E+04 616 2.13572E+04 617 0.00000E+00 620 2.27264E+04 623 2.61882E+04 624 2.07703E+04 625 2.57217E+04 626 2.38105E+04 627 1.69027E+04 628 1.51417E+04 629 1.52418E+04 630 1.64104E+04 631 1.94752E+04 632 1.63075E+04 633 1.69049E+04 634 1.73484E+04 635 1.39067E+04 637 2.52408E+04 648 1.21295E+02 799 4.60000E+02 800 2.60000E+01 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 3.00000E+00 808 3.00000E+00 809 1.30000E+02 810 -8.00000E+01 811 4.80000E+01 812 2.80000E+01 813 2.80000E+01 814 1.60000E+02 999 3.00000E+00 CUT 1 -3.00000E-01 5 -3.00000E-01 6 -3.00000E-01 7 -3.50000E-01 8 -3.00000E-01 9 -1.00000E-01 11 -3.00000E-01 12 -2.00000E-01 13 -3.00000E-01 14 -3.00000E-01 15 -3.00000E-01 17 -3.00000E-01 23 -3.00000E-01 24 -2.10000E-01 25 -1.00000E-01 26 -2.50000E-01 27 -2.50000E-01 28 -2.50000E-01 29 -3.00000E-01 30 -3.00000E-01 31 -3.00000E-01 32 -3.00000E-01 33 -3.00000E-01 34 -3.00000E-01 35 -3.00000E-01 37 -3.00000E-01 107 -2.30000E-01 116 -2.30000E-01 120 -2.30000E-01 207 0.00000E+00 TURN 1 5.80000E+01 6 5.50000E+01 7 9.40000E+01 8 5.50000E+01 9 3.20000E+01 11 7.70000E+01 12 7.10000E+01 13 4.50000E+01 14 8.50000E+01 15 6.50000E+01 16 9.40000E+01 17 8.00000E+01 20 9.50000E+01 23 8.30000E+01 24 6.50000E+01 25 2.20000E+01 26 6.70000E+01 27 4.50000E+01 29 6.20000E+01 31 8.00000E+01 32 8.00000E+01 33 7.80000E+01 34 7.80000E+01 35 8.50000E+01 37 4.50000E+01 CROS 7 -5.00000E-01 12 -1.20000E-01 107 -5.00000E-01 120 -5.00000E-01 207 -6.50000E-01 INC 7 10 12 15 107 8 120 8 SPD 1 1.00000E+01, 1.00000E+01 2 7.00000E+00, 7.00000E+00 3 6.00000E+00, 6.00000E+00 4 0.00000E+00, 1.10000E+01 104 1.10000E+01, 0.00000E+00 333 4.00000E+00, 4.00000E+00 800 3.00000E+02, 3.00000E+02 PWR 1 100, 100 STRG 1 _ 2 H2587E PASS "A" 3  12 0000000 333 L77 340 06/20/01 1000 Y DLTA 800 0, -8 801 -200, 0 802 0, -220 803 0, 220 804 0, -150 805 0, 150 900 310, -2558 998 0, 0 999 0, 10160 SCAL 1 1.10000E+01