HEADING: H2587 (H2587.PR) THICK S&R 25'S 6-10-96 SH STEP 1 GOTO STEP 9 2 GOTO STEP 194 3 GOTO STEP 171 4 GOSU STEP 114 5 GOTO STEP 9 6 GOTO STEP 143 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 122 12 LET DLTA 900 = POS 900 - POS 899 13 DISP DLTA 900 14 MOVE POS 899 SPD 0 16 REM " *** DIELECTRIC SHORT TEST ***" 17 FOR I = 5.01000E+02 TO 5.03000E+02 18 TEST UNK 500 CODE 8 TOL 500 ACC 0 REJ 22 REG 0 19 TEST UNK 500 CODE 1 TOL 500 ACC 0 REJ 22 REG 0 20 PRIN "SHORT REJECT # " I 21 LET REG 3 = 01 22 NEXT I 23 IF REG 3 # 00 THEN GOTO STEP 109 24 LET M = DUM 811 25 FOR I = 01 TO M 26 IF BIT 4 = 01 THEN GOTO STEP 42 27 IF NOM I < - 01 THEN LET I = - NOM I 28 IF I # 1.18000E+02 THEN GOTO STEP 31 29 LET NOM 118 = ( NOM 30 + ( NOM 30 * DUM 30 / 1.00000E+02 ) ) / DUM 499 30 PRIN "NOM 118 = " NOM 118 31 LET J = 02 32 IF NOM I > 9.00000E+04 THEN LET J = J + 1.00000E+01 33 TEST UNK 1 CODE J TOL I ACC 35 REJ 0 REG 0 34 TEST UNK 1 CODE 1 TOL I ACC 0 REJ 36 REG 1 35 IF BIT 8 = 01 THEN GOTO STEP 37 36 PRIN "R" I " = " DUM I "%" 37 NEXT I 38 IF DUM 4 < - 2.00000E+00 THEN GOSU STEP 156 39 IF BIT 4 = 01 THEN GOTO STEP 42 40 IF REG 1 # 00 THEN GOTO STEP 109 41 REM "**************************************" 42 LET M = DUM 811 43 FOR I = 01 TO M 44 IF NOM I < - 01 THEN LET I = - NOM I 45 IF MASK I = 00 THEN GOTO STEP 82 46 IF MASK I # - 01 THEN GOTO STEP 49 47 REM "** CALCULATE NOMINAL FOR 2-PLUNGE L-TRIM ROUTINE **" 48 LET NOM 300 = NOM I + ( NOM I * DUM I * TURN I / 1.00000E+04 ) 49 LET J = I * 02 50 LET K = J + 01 51 LET L = I + 1.00000E+02 52 IF REG 50 = 02 THEN GOSU STEP 131 53 IF REG 50 = 02 THEN GOTO STEP 82 54 IF BIT 4 = 01 THEN GOTO STEP 122 55 IF DUM I > TOL L THEN GOTO STEP 79 56 MOVE POS J SPD 0 57 LET J = 02 58 IF DUM I > - 4.50000E+01 THEN LET J = 03 59 IF DUM I > - 2.00000E+01 THEN LET J = 04 60 IF DUM I > - 1.00000E+01 THEN LET J = 05 61 IF DUM I > - 5.00000E+00 THEN LET J = 06 62 IF NOM I > 2.00000E+04 THEN LET J = J + 1.00000E+01 63 LET N = 01 64 IF NOM I < 2.00000E+02 THEN LET N = 02 65 IF MASK I # - 01 THEN GOTO STEP 75 66 REM "***BEGIN '2-PLUNGE L-TRIM ROUTINE***" 67 LET M = 04 68 TRIM UNK 300 CODE 104 CUT 202 MODE 202 POS K DENS M BRAN 0 69 TRIM UNK 300 CODE 105 CUT 2 MODE I POS K DENS M BRAN 0 70 IF N < 1.00000E+01 THEN LET N = N + 1.00000E+01 71 LET M = 1.04000E+02 72 TRIM UNK 1 CODE J CUT L MODE L POS K DENS M BRAN 0 73 GOTO STEP 78 74 REM "END" 75 TRIM UNK 1 CODE J CUT I MODE I POS K DENS N BRAN 0 76 IF I = 1.10000E+01 THEN GOSU STEP 241 77 IF I = 1.30000E+01 THEN GOSU STEP 244 78 IF MASK I = - 01 THEN GOSU STEP 216 79 TEST UNK 1 CODE 15 TOL L ACC 0 REJ 81 REG 2 80 IF BIT 8 = 01 THEN GOTO STEP 82 81 PRIN "R" I " = " DUM I "%" 82 NEXT I 83 IF REG 50 = 00 THEN GOTO STEP 96 84 IF REG 50 = 01 THEN GOTO STEP 89 85 LET REG 50 = 00 86 PRIN "END OF DRIFT TEST, HIT RETURN TO CONTINUE.." STRG 1 87 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 88 GOTO STEP 97 89 PRIN "WAITING 2 MINUTES" STRG 3 90 LET REG 50 = 02 91 LET BIT 8 = 01 92 FOR I = 1.00000E+00 TO 3.00000E+05 93 NEXT I 94 PRIN STRG 2 " SHORT TERM DRIFT TEST RESULTS" 95 GOTO STEP 42 96 IF BIT 4 = 01 THEN GOTO STEP 111 97 IF REG 2 # 00 THEN GOTO STEP 110 98 PRIN "GOOD PART" 99 REM "** TRIM LOT#, SUB# AND CIRCUIT# ON GOOD PARTS **" 100 MOVE POS 800 SPD 0 101 LET J = 02 102 LET K = 03 103 LET L = 05 104 LET DUM 805 = ( ( DUM 799 * 1.00000E+01 ) + DUM 807 ) / 1.00000E+05 105 LET STRG 1000 = %5.5 DUM 805 106 LET STRG 12 = J J STRG 333 + K L STRG 1000 107 PRIN "LOT/SERIAL CODE IS: " STRG 12 108 CGEN DENS 333 SCAL 1 POS 801 STRG 12 109 IF REG 1 # 00 THEN PRIN "INITIAL REJECT" STRG 3 110 IF REG 2 # 00 THEN PRIN "TRIM REJECT" STRG 3 111 MOVE POS 899 SPD 0 112 HAND 113 EXIT 114 PRIN "DRIFT TEST ON" STRG 3 115 LET REG 50 = 01 116 LET BIT 8 = 00 117 EXIT 118 LET NOM 300 = NOM I + ( NOM I * DUM I / 1.00000E+02 ) 119 TEST UNK 300 CODE 15 TOL 1 ACC 0 REJ 0 REG 0 120 PRIN " R" I " CHANGE = " %5.3 DUM 300 "%" 121 EXIT 122 IF DUM 807 = 00 THEN GOTO STEP 129 123 PRIN STRG 3 124 PRIN "PROGRAM STOPPED AT PART # " DUM 807 125 PRIN STRG 3 126 PRIN "ENTER PART # YOU WANT TO START ON >" STRG 1 127 READ TTY:;DUM 808 %1.0 THEN QUIT 128 LET DUM 807 = 00 129 SHOM REG 30 130 SHOM REG 0 131 REM "ALIGN THETA" 132 ALIN POS 998 REF 999 REG 998 133 REM "ALIGN X-Y" 134 ALIN POS 0 REF 0 REG 0 135 LET DLTA 998 = POS 997 - POS 999 136 GOTO STEP 138 137 LET DLTA 998 = DLTA 998 + DLTA 999 138 GOSU STEP 147 139 IF DUM 807 < DUM 999 THEN GOTO STEP 137 140 LET DUM 807 = 00 141 LET DUM 808 = 00 142 LET DUM 799 = DUM 799 + 01 143 SHOM REG 30 144 SHOM REG 0 145 SHOM REG 32 146 QUIT 147 LET DUM 807 = DUM 807 + 01 148 IF DUM 808 > DUM 807 THEN EXIT 149 SMOV DLTA 998 SPD 0 REG 0 150 SMOV DLTA 0 SPD 0 REG 0 151 LET DLTA 998 = 00 152 PRIN "" 153 PRIN "PART # " DUM 807 154 GOSU STEP 12 155 EXIT 156 LET M = DUM 811 157 FOR N = 01 TO M 158 GOSU STEP 210 159 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 162 160 PRIN "DID NOT LOG" 161 EXIT 162 NEXT N 163 PRIN "DATA LOGGING" 164 LET DUM 800 = DUM 800 + 01 165 FOR N = 01 TO M 166 GOSU STEP 210 167 LET DUM J = DUM J + DUM I 168 LET DUM K = DUM K + ( DUM I * DUM I ) 169 NEXT N 170 EXIT 171 GOSU STEP 184 172 LET M = DUM 811 173 FOR N = 01 TO M 174 GOSU STEP 210 175 LET DUM 804 = DUM J / DUM 800 176 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 177 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 178 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 179 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 180 PRIN "R" I " " %5.3 DUM 804 %8.3 DUM 805 STRG 1 181 PRIN %15.3 DUM 806 %15.3 NOM I 182 NEXT N 183 QUIT 184 PRIN STRG 2 " LOT " STRG 333 STRG 1 185 PRIN " RESISTOR PRETRIM DATA BASED ON" DUM 800 " PARTS" 186 PRIN " " 187 PRIN " DATE: " STRG 340 " LAST ARRAY # (DUM 799): " STRG 1 188 LET DUM 805 = DUM 799 - 1.00000E+00 189 PRIN %5.0 DUM 805 190 PRIN " " 191 PRIN " AVE DEV STD DEV AVERAGE OHMS" STRG 1 192 PRIN " NOMINAL" 193 EXIT 194 LET M = DUM 811 195 FOR N = 01 TO M 196 GOSU STEP 210 197 LET DUM I = 00 198 LET DUM J = 00 199 LET DUM K = 00 200 LET DUM 118 = 00 201 NEXT N 202 FOR I = 8.00000E+02 TO 8.08000E+02 203 LET DUM I = 00 204 NEXT I 205 PRIN STRG 3 "READY TO SAVE PROGRAM NOW ?" STRG 1 206 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 207 IF STRG 1000 # "Y" THEN LET DUM 801 = 01 208 PRIN "DUMMIES ZEROED" STRG 3 209 QUIT 210 IF NOM N < 00 THEN LET N = - NOM N 211 LET I = N 212 LET J = I + 3.00000E+02 213 LET K = I + 6.00000E+02 214 LET L = I + 1.00000E+02 215 EXIT 216 REM "** MULTIPLE BOX TRIM ROUTINE, USE GOSU AFTER L-TRIM **" 217 LET J = I * 02 218 NIBL DLTA 800 POS J DENS 800 BRAN 0 219 NIBL DLTA 801 POS J DENS 800 BRAN 223 220 NIBL DLTA 802 POS J DENS 800 BRAN 224 221 NIBL DLTA 803 POS K DENS 1 BRAN 0 222 GOTO STEP 219 223 EXIT 224 NIBL DLTA 804 POS J DENS 800 BRAN 228 225 NIBL DLTA 805 POS J DENS 1 BRAN 0 226 GOTO STEP 219 227 EXIT 228 PRIN STRG 3 "CANNOT DO BOX TRIM !! CHECK POSITIONS!" 229 PRIN STRG 3 "PROGRAM STOPPED ON R" I ", FIX OR GET HELP!" 230 QUIT 231 PRIN STRG 3 "ENTER LOT NUMBER >" STRG 1 232 READ TTY:;"_" STRG 333 %1.0 THEN QUIT 233 PRIN STRG 3 "ENTER TODAY'S DATE >" STRG 1 234 READ TTY:;"_" STRG 340 %1.0 THEN QUIT 235 PRIN  "LOT NUMBER IS: " STRG 333 236 PRIN "TODAY'S DATE IS: " STRG 340 237 PRIN STRG 3 238 LET DUM 801 = 01 239 PRIN "POSITIONS SET FOR 16 PHASE ONLY" 240 QUIT 241 NIBL DLTA 502 POS 22 DENS 3 BRAN 0 242 TRIM UNK 1 CODE 1 CUT 99 MODE 100 POS 22 DENS 99 BRAN 0 243 EXIT 244 NIBL DLTA 503 POS 26 DENS 3 BRAN 0 245 TRIM UNK 1 CODE 1 CUT 99 MODE 100 POS 26 DENS 100 BRAN 0 246 EXIT MODE 1 TURN 0 CROS 0 INC 0 2 TURN 0 CROS 202 INC 2 3 TURN 0 CROS 0 INC 0 4 TURN 4 CROS 0 INC 0 5 TURN 5 CROS 0 INC 0 6 TURN 0 CROS 202 INC 6 7 TURN 7 CROS 0 INC 0 8 TURN 8 CROS 0 INC 0 9 TURN 9 CROS 0 INC 0 10 TURN 10 CROS 0 INC 0 11 TURN 11 CROS 11 INC 11 12 TURN 12 CROS 0 INC 0 13 TURN 13 CROS 13 INC 13 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 19 TURN 19 CROS 0 INC 0 100 TURN 0 CROS 0 INC 0 102 TURN 0 CROS 102 INC 102 106 TURN 0 CROS 102 INC 102 107 TURN 0 CROS 107 INC 107 111 TURN 0 CROS 11 INC 11 113 TURN 0 CROS 13 INC 13 118 TURN 0 CROS 0 INC 0 202 TURN 0 CROS 2 INC 0 206 TURN 0 CROS 2 INC 0 207 TURN 0 CROS 2 INC 0 DENS 1 SPD 1 PWR 1 2 SPD 2 PWR 1 3 SPD 3 PWR 1 4 SPD 4 PWR 1 99 SPD 99 PWR 1 100 SPD 100 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 REG 1 00 2 00 3 00 4 00 30 03 32 04 50 00 998 -01 MASK 1 01 2 -01 3 01 4 01 5 01 6 -01 7 01 8 01 9 01 10 01 11 01 12 01 13 01 14 01 15 01 16 01 17 01 18 00 19 01 30 00 118 01 201 00 202 00 POS 2 4989, 3820 3 2880, 3820 4 2862, 1073 5 5234, 1545 6 8294, 3769 7 6778, 3769 8 1973, 2210 9 2289, 1287 10 1200, 3410 11 1983, 3734 12 -513, 1443 13 1576, 1901 14 -521, 2090 15 -111, 2622 16 -1491, 2102 17 -1188, 1130 18 -559, 2941 19 -363, 3233 20 -3484, 1892 21 -3187, 1238 22 11985, -3901 23 10559, -3276 24 9010, -2667 25 9188, -2138 26 5300, -421 27 3650, -2724 28 550, -1068 29 879, -762 30 -500, -2484 31 -1826, -2376 32 -578, -2882 33 -230, -4038 34 -4884, -3109 35 -4526, -2472 38 -702, 3505 39 -289, 3811 122 0, 0 123 0, 0 236 9620, -4020 237 6290, -4020 300 -1763, -2689 800 -3811, -3616 801 -5791, -3616 899 684, 2430 900 647, 2477 997 0, -5450 998 -5046, 8660 999 -5046, -11661 REF 999 POS 999 NOM 1 1.94000E+04 2 1.98060E+06 3 5.00000E+00 4 1.60000E+02 5 1.30000E+02 6 1.80600E+06 7 1.94000E+05 8 1.60000E+02 9 4.50000E+01 10 1.10000E+02 11 2.00000E+01 12 2.00000E+01 13 3.00000E+01 14 5.60000E+01 15 3.00000E+04 16 9.70000E+05 17 2.00000E+05 18 1.50000E+04 19 8.00000E+01 20 -3.00000E+01 21 -1.18000E+02 30 7.50000E+04 31 -1.18000E+02 118 1.19255E+04 119 -2.01000E+02 201 1.00000E+00 202 1.00000E+00 300 1.28587E+06 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 330 -1.00000E+00 418 0.00000E+00 500 2.00000E+00 SCAN 1 14, 17, 0, 0 2 14, 6, 0, 0 3 15, 16, 0, 0 4 17, 6, 0, 0 5 18, 14, 0, 0 6 21, 6, 0, 0 7 21, 18, 0, 0 8 19, 6, 0, 0 9 20, 18, 0, 0 10 21, 22, 0, 0 11 11, 12, 0, 0 12 9, 12, 0, 0 13 9, 7, 0, 0 14 7, 5, 0, 0 15 4, 4, 0, 0 16 5, 4, 0, 0 17 3, 4, 0, 0 18 10, 10, 0, 0 19 18, 19, 0, 0 30 8, 10, 0, 0 118 10, 10, 0, 0 201 23, 1, 0, 0 202 1, 23, 0, 0 501 6, 10, 0, 0 502 14, 16, 0, 0 503 18, 18, 0, 0 CODE 1 3, 1, 0, 0 2 3, 2, 0, 0 3 3, 3, 0, 0 4 3, 4, 0, 0 5 3, 5, 0, 0 6 3, 6, 0, 0 8 8, 2, 0, 0 10 3, 8, 200, 0 12 3, 2, 35, 0 13 3, 3, 35, 0 14 3, 4, 35, 0 15 3, 5, 75, 0 16 3, 6, 35, 0 104 3, 7, 30, 0 105 3, 7, 40, 0 TOL 1 -5.00000E+01, 0.00000E+00 2 -5.00000E+01, 0.00000E+00 3 -5.00000E+01, 4.50000E+00 4 -5.00000E+01, 1.50000E+00 5 -5.00000E+01, 1.50000E+00 6 -5.00000E+01, 0.00000E+00 7 -5.00000E+01, 0.00000E+00 8 -5.00000E+01, 1.50000E+00 9 -5.00000E+01, 1.50000E+00 10 -5.00000E+01, 1.50000E+00 11 -5.00000E+01, 0.00000E+00 12 -5.00000E+01, 4.50000E+00 13 -5.00000E+01, 0.00000E+00 14 -5.00000E+01, 0.00000E+00 15 -5.00000E+01, 5.00000E-01 16 -5.00000E+01, 0.00000E+00 17 -5.00000E+01, 4.50000E+00 18 -1.00000E+02, 1.00000E+02 19 -5.00000E+01, 1.50000E+00 30 -3.90000E+01, 3.90000E+01 101 -3.80000E-01, 0.00000E+00 102 -3.80000E-01, 0.00000E+00 103 -4.00000E+00, 4.00000E+00 104 -1.00000E+00, 1.00000E+00 105 -1.00000E+00, 1.00000E+00 106 -3.80000E-01, 0.00000E+00 107 -3.80000E-01, 0.00000E+00 108 -1.00000E+00, 1.00000E+00 109 -1.00000E+00, 1.00000E+00 110 -1.00000E+00, 1.00000E+00 111 -3.00000E-01, 0.00000E+00 112 -4.00000E+00, 4.00000E+00 113 -3.00000E-01, 0.00000E+00 114 -1.00000E+00, 1.00000E+00 115 -5.00000E-01, 5.00000E-01 116 -3.80000E-01, 0.00000E+00 117 -4.00000E+00, 4.00000E+00 118 -1.00000E+02, 1.00000E+01 119 -1.00000E+00, 1.00000E+00 201 -1.00000E+02, 1.00000E+02 202 -1.00000E+02, 1.00000E+02 218 -5.00000E-01, 1.00000E+01 500 -1.50000E+02, 1.50000E+02 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 30 0.00000E+00 118 0.00000E+00 201 0.00000E+00 202 0.00000E+00 218 0.00000E+00 300 2.01796E-02 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 330 0.00000E+00 418 0.00000E+00 499 4.99097E+00 501 0.00000E+00 502 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 630 0.00000E+00 701 0.00000E+00 702 0.00000E+00 718 0.00000E+00 799 4.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 1.30000E+02 810 -8.00000E+01 811 2.02000E+02 812 1.90000E+01 813 1.90000E+01 814 1.60000E+02 999 3.00000E+00 CUT 1 -1.50000E-01 2 -3.50000E-01 3 -2.00000E-01 4 -2.50000E-01 5 -2.50000E-01 7 -1.50000E-01 8 -2.50000E-01 9 -1.50000E-01 10 -2.50000E-01 11 0.00000E+00 12 -2.00000E-01 13 0.00000E+00 14 -1.50000E-01 15 -1.50000E-01 16 -1.50000E-01 17 -4.00000E-01 19 -1.50000E-01 99 9.90000E+01 102 -1.50000E-01 106 -1.50000E-01 107 -1.50000E-01 118 -2.00000E-01 202 1.00000E+00 TURN 2 9.40000E+01 4 8.50000E+01 5 7.50000E+01 6 9.30000E+01 7 6.50000E+01 8 8.50000E+01 9 7.00000E+01 10 8.50000E+01 11 5.50000E+01 12 4.50000E+01 13 6.50000E+01 14 7.00000E+01 15 1.50000E+01 16 9.00000E+01 17 6.50000E+01 19 7.00000E+01 CROS 2 1.00000E-01 11 -1.50000E-01 13 -1.50000E-01 102 -8.00000E-01 107 -1.00000E+00 202 -1.20000E+00 INC 2 25 6 25 7 10 11 0 13 0 102 17 107 5 SPD 1 1.40000E+01, 1.40000E+01 2 9.00000E+00, 9.00000E+00 3 9.00000E+00, 9.00000E+00 4 0.00000E+00, 1.40000E+01 99 9.00000E+00, 0.00000E+00 100 0.00000E+00, 9.00000E+00 104 1.40000E+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 H2587 3  12 E100033 333 EE1 340 10 JUNE 96 1000 Y DLTA 80 3, 0 502 3, -80 503 80, 3 800 0, -8 801 -200, 0 802 0, -250 803 0, 250 804 0, -150 805 0, 150 900 -37, 47 998 0, 0 999 0, 10160 SCAL 1 1.20000E+01