OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* PROGRAM NAME: 8Car.Passive2000.sas UPDATED: 09/05/2001 */ /* THIS PROGRAM ASSIGNS RESTRAINT TYPE FOR MY 1981-2000 PASSENGER CARS */ /* RUN AFTER U:\NPP22\VINDECODE\2000\7Car.Bodystyle2000.SAS */ DATA CHUCK1(DROP=VINPASS NPASS NPASS2 NPASS3 NPASS4); SET CAR3; LENGTH PASSIVE 4; MY=MY-1900; IF MY LE 84 THEN DO; IF MM2=4935 THEN PASSIVE=303; ELSE IF MM2=3036 AND V6='9' THEN PASSIVE=707; ELSE PASSIVE=0; RETURN; END; IF MY GE 97 THEN DO; PASSIVE=1010; RETURN; END; IF MM2=9999 THEN DO; PASSIVE=9999; RETURN; END; VINPASS=8; NPASS=10; NPASS2=10; NPASS3=10; NPASS4=10; IF 85 LE MY LE 86 THEN DO; IF 4231 LE MM2 LE 4249 THEN GOTO MEBE; IF MM2=4935 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; END; IF 1801 LE MM2 LE 2449 THEN GOTO GM; IF 1201 LE MM2 LE 1449 THEN GOTO FORD; IF MM2=1040 AND MY=88 THEN GOTO RENAULT; IF 601 LE MM2 LE 1049 THEN GOTO CHRYS; IF 4931 LE MM2 LE 4949 THEN GOTO TOYOTA; IF 3731 LE MM2 LE 3749 THEN GOTO HONDA; IF 3531 LE MM2 LE 3549 THEN GOTO NISSAN; IF 101 LE MM2 LE 129 THEN DO; VINPASS=0; GOTO C; END; IF 3031 LE MM2 LE 3049 THEN GOTO VW; IF 3231 LE MM2 LE 3249 THEN GOTO AUDI; IF 3431 LE MM2 LE 3449 THEN GOTO BMW; IF 3831 LE MM2 LE 3849 THEN GOTO ISUZU; IF 3931 LE MM2 LE 3949 THEN GOTO JAGUAR; IF 4131 LE MM2 LE 4149 THEN GOTO MAZDA; IF 4231 LE MM2 LE 4249 THEN GOTO MEBE; IF 4431 LE MM2 LE 4449 THEN GOTO PEUGEOT; IF 4531 LE MM2 LE 4549 THEN GOTO PORSCHE; IF 4631 LE MM2 LE 4649 THEN GOTO RENAULT; IF 4731 LE MM2 LE 4749 THEN GOTO SAAB; IF 4831 LE MM2 LE 4849 THEN GOTO SUBARU; IF 5131 LE MM2 LE 5149 THEN GOTO VOLVO; IF 5231 LE MM2 LE 5249 THEN GOTO MITS; IF 5331 LE MM2 LE 5349 THEN GOTO SUZUKI; IF 5431 LE MM2 LE 5449 THEN GOTO ACURA; IF 5531 LE MM2 LE 5549 THEN GOTO HYUNDAI; IF 5631 LE MM2 LE 5649 THEN GOTO FORD; IF MM2=5731 THEN GOTO YUGO; IF 5831 LE MM2 LE 5849 THEN GOTO INFI; IF 5931 LE MM2 LE 5949 THEN GOTO LEXUS; IF MM2=6031 THEN GOTO DAIHATSU; IF MM2=6131 THEN GOTO STERLING; IF MM2=6331 THEN GOTO KIA; GOTO C; /* THE FOLLOWING SESSION DECODES THE VIN FOR OCCUPANT PROTECTION DEVICE AVAILABLE. */ CHRYS: V4=TRANSLATE(V4,'12B','IZ8'); IF 94 LE MY LE 96 AND 5201 LE CG LE 5299 THEN GOTO CHIMP94; IF 94 LE MY LE 96 THEN GOTO CHRYS94; IF V4='B' AND MM2=713 THEN VINPASS=505; ELSE IF V4='A' OR V4='X' OR (V4='B' AND MY=93) THEN VINPASS=1000; ELSE IF V4='Y' THEN VINPASS=1606; ELSE IF V4='B' OR V4='1' THEN VINPASS=0; ELSE IF MY LE 89 AND V4='E' AND V3='4' THEN VINPASS=0; ELSE IF 90 LE MY LE 91 AND V4='E' AND CG=5205 THEN VINPASS=404; ELSE IF MY=93 AND V4='E' THEN VINPASS=1010; ELSE IF MY LE 89 AND V4='F' AND V3='4' THEN VINPASS=0; ELSE IF 90 LE MY LE 91 AND CG=5208 THEN VINPASS=404; ELSE IF (V4='C' OR V4='2') AND (MM2=616 OR MM2=715) THEN VINPASS=606; ELSE IF (V4='C' OR V4='2') AND MM2=713 THEN VINPASS=505; ELSE IF V4='C' OR V4='2' THEN VINPASS=404; GOTO NCHRYS; CHIMP94: IF V4='A' THEN VINPASS=1010; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='B' OR V4='X' THEN VINPASS=1000; ELSE IF V4='E' THEN VINPASS=1004; GOTO NCHRYS; CHRYS94: IF V4='E' OR V4='H' THEN VINPASS=1010; ELSE IF V4='B' AND MM2=713 THEN VINPASS=505; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='A' THEN VINPASS=1004; GOTO NCHRYS; FORD: V4=TRANSLATE(V4,'OIZSGB','012568'); IF V4='B' AND MM2=1213 AND MY=88 THEN VINPASS=9; ELSE IF V4='B' THEN VINPASS=0; ELSE IF V4='P' THEN VINPASS=303; ELSE IF V4='C' THEN VINPASS=1000; ELSE IF V4='L' THEN VINPASS=1010; ELSE IF V4='R' THEN VINPASS=1303; ELSE IF V4='S' THEN VINPASS=1313; ELSE IF MY GE 94 AND V4='A' THEN VINPASS=1003; GOTO NFORD; GM: V7=TRANSLATE(V7,'012568','OIZSGB'); IF V7='1' OR (V7='2' AND MY LE 90) THEN VINPASS=0; ELSE IF V7='2' THEN VINPASS=1010; ELSE IF V7='3' AND MM2=2032 AND MY=94 THEN VINPASS=1010; ELSE IF V7='3' THEN VINPASS=1000; ELSE IF 92 LE MY LE 96 AND V7='5' THEN DO; IF 2401 LE MM2 LE 2403 THEN VINPASS=1404; ELSE VINPASS=1505; END; ELSE IF 92 LE MY LE 96 AND V7='6' THEN DO; IF 2401 LE MM2 LE 2403 THEN VINPASS=1414; ELSE VINPASS=1515; END; ELSE IF MY=96 AND V7='7' THEN VINPASS=1015; ELSE IF V7='4' THEN DO; IF MM2=2231 THEN VINPASS=404; ELSE IF MM2=2032 THEN VINPASS=606; ELSE IF 2401 LE MM2 LE 2403 THEN VINPASS=404; ELSE VINPASS=505; END; GOTO NGM; VW: V6=TRANSLATE(V6,'012568','OIZSGB'); IF V6='0' THEN VINPASS=0; ELSE IF V6='1' AND MY=90 THEN VINPASS=606; ELSE IF V6='9' OR V6='1' THEN VINPASS=707; ELSE IF V6='2' THEN VINPASS=606; ELSE IF V6='4' THEN VINPASS=404; ELSE IF V6='5' THEN VINPASS=1000; ELSE IF V6='8' THEN VINPASS=1010; GOTO NVW; AUDI: V6=TRANSLATE(V6,'012568','OIZSGB'); IF V6='0' THEN VINPASS=0; ELSE IF V6='9' OR V6='1' OR V6='2' OR V6='5' THEN VINPASS=1000; ELSE IF V6='8' THEN VINPASS=1010; GOTO NAUDI; BMW: V8=TRANSLATE(V8,'012568','OIZSGB'); IF V8='0' THEN VINPASS=0; ELSE IF V8='1' THEN VINPASS=1000; ELSE IF V8='2' THEN VINPASS=1010; GOTO NBMW; NISSAN: V8=TRANSLATE(V8,'O1ZSGB','0I2568'); IF 91 LE MY LE 95 AND V8='H' THEN VINPASS=1505; ELSE IF 92 LE MY LE 95 AND V8='F' THEN VINPASS=1404; ELSE IF V8='S' OR V8='Y' OR V8='H' OR V8='1' THEN VINPASS=0; ELSE IF V8='B' OR V8='P' OR V8='J' THEN VINPASS=404; ELSE IF V8='A' THEN VINPASS=505; ELSE IF V8='C' AND MM2=3546 AND MY=93 THEN VINPASS=1505; ELSE IF V8='C' THEN VINPASS=1000; ELSE IF V8='D' THEN VINPASS=1010; GOTO NNISSAN; HONDA: V8=TRANSLATE(V8,'012568','OIZSGB'); IF MY=91 THEN GOTO HONDA91; IF MY=92 THEN GOTO HONDA92; IF MY=93 THEN GOTO HONDA93; IF 94 LE MY LE 96 THEN DO; VINPASS=1010; GOTO C; END; IF 3707 LE CG LE 3709 THEN VINPASS=0; ELSE IF MM2=3731 AND MY LE 89 THEN VINPASS=0; ELSE IF CG=3716 THEN VINPASS=505; ELSE IF CG=3718 THEN VINPASS=404; ELSE IF MM2=3732 AND CG=3710 AND (V8='6' OR V8='8') THEN VINPASS=505; ELSE IF MM2=3732 AND CG=3710 THEN VINPASS=0; ELSE IF CG=3714 THEN DO; IF MY=88 THEN VINPASS=0; ELSE IF MY=90 THEN VINPASS=505; ELSE IF MY=89 AND V6='9' AND V8='6' THEN VINPASS=505; ELSE IF MY=89 AND V6='8' AND V8='5' THEN VINPASS=505; ELSE IF MY=89 AND V6='8' AND V8='6' THEN VINPASS=0; END; ELSE IF CG=3715 AND MY=90 THEN DO; IF V6='6' OR V6='7' THEN VINPASS=505; ELSE VINPASS=404; END; GOTO C; HONDA91: IF CG=3718 AND V6='9' THEN VINPASS=1000; ELSE IF CG=3714 OR CG=3716 OR (CG=3715 AND (V6='6' OR V6='7')) THEN VINPASS=505; ELSE VINPASS=404; GOTO C; HONDA92: IF MM2=3733 AND V8='6' THEN VINPASS=1010; ELSE VINPASS=1000; GOTO C; HONDA93: IF MM2=3733 AND (V8='6' OR V8='7') THEN VINPASS=1010; ELSE IF MM2=3732 AND (V7='5' OR V7='6') AND V8='8' THEN VINPASS=1010; ELSE IF MM2=3735 AND V5='J' AND V6='1' AND V8='6' THEN VINPASS=1010; ELSE VINPASS=1000; GOTO C; ISUZU: IF 90 LE MY LE 93 THEN VINPASS=1000; ELSE IF MM2=3832 AND 88 LE MY LE 89 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; JAGUAR: V5=TRANSLATE(V5,'OIZSGB','012568'); IF V5='V' THEN VINPASS=0; ELSE IF V5='A' OR V5='Y' THEN VINPASS=404; ELSE IF V5='W' THEN VINPASS=1000; ELSE IF V5='X' OR V5='N' THEN VINPASS=1010; GOTO NJAGUAR; MAZDA: V8=TRANSLATE(V8,'2B','Z8'); V7=TRANSLATE(V7,'5','S'); IF MY=87 THEN DO; IF MM2=4137 AND V8='A' THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF MY=88 THEN DO; IF MM2=4137 AND (V8='2' OR V8='4') THEN VINPASS=404; ELSE IF MM2=4144 AND (V8='2' OR V8='4' OR V8='B' OR V8='D') THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF MY=89 THEN DO; IF MM2=4137 THEN VINPASS=404; ELSE IF MM2=4134 AND V7='3' THEN VINPASS=404; ELSE IF MM2=4144 AND (V8='2' OR V8='4' OR V8='B' OR V8='D') THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF 90 LE MY LE 91 THEN DO; IF MM2=4145 THEN VINPASS=1000; ELSE IF MM2=4134 AND V7='5' THEN VINPASS=1000; ELSE VINPASS=404; END; ELSE IF MY=92 THEN DO; IF MM2=4143 THEN VINPASS=1010; ELSE IF MM2=4145 THEN VINPASS=1000; ELSE IF MM2=4134 AND V7='5' THEN VINPASS=1000; ELSE VINPASS=404; END; ELSE IF MY=93 THEN DO; IF MM2=4143 THEN VINPASS=1010; ELSE IF MM2=4135 OR MM2=4146 THEN VINPASS=404; ELSE VINPASS=1000; END; ELSE IF MY=94 THEN DO; IF MM2=4135 THEN VINPASS=404; ELSE VINPASS=1010; END; ELSE IF 95 LE MY LE 96 THEN VINPASS=1010; GOTO C; MEBE: V8=TRANSLATE(V8,'OIZSGB','012568'); IF V8='A' OR V8='C' THEN VINPASS=0; ELSE IF V8='B' OR V8='D' THEN VINPASS=1000; ELSE IF V8='E' OR V8='F' THEN VINPASS=1010; /* V8='F' SIDE IMPACT BAGS ALSO */ GOTO NMEBE; PEUGEOT: V7=TRANSLATE(V7,'012568','OIZSGB'); IF V7='1' THEN VINPASS=0; ELSE IF V7='2' THEN VINPASS=606; ELSE IF V7='3' THEN VINPASS=404; GOTO NPEUGEOT; PORSCHE: V6=TRANSLATE(V6,'012568','OIZSGB'); IF MY GE 90 THEN VINPASS=1010; ELSE IF V6='0' THEN VINPASS=0; ELSE IF V6='2' THEN VINPASS=1010; GOTO NPORSCHE; RENAULT: IF MM2=4639 AND (V8='A' OR V8='D' OR V8='G' OR V8='H' OR V8='K') THEN VINPASS=505; ELSE IF CG=4609 AND V7='B' THEN VINPASS=404; ELSE IF MM2=4644 AND MY=89 THEN VINPASS=404; ELSE VINPASS=0; GOTO C; SAAB: V5=TRANSLATE(V5,'OIZSGB','012568'); IF 95 LE MY LE 96 THEN VINPASS=1010; ELSE IF MY=94 THEN DO; IF V5='M' OR V5='N' THEN VINPASS=1010; ELSE IF V5='K' OR V5='L' THEN VINPASS=1000; END; ELSE IF 90 LE MY LE 93 THEN VINPASS=1000; ELSE IF V5='R' OR V5='S' OR V5='T' THEN VINPASS=0; ELSE IF V5='J' OR V5='K' OR V5='L' THEN DO; IF MM2=4731 THEN VINPASS=404; ELSE IF MM2=4734 THEN VINPASS=1000; END; GOTO NSAAB; SUBARU: V8=TRANSLATE(V8,'01256B','OIZSG8'); IF MY=96 THEN VINPASS=1010; ELSE IF 87 LE MY LE 89 THEN DO; IF V8='A' OR V8='B' THEN VINPASS=0; ELSE IF V8='1' OR V8='2' THEN VINPASS=404; END; ELSE IF MY=90 THEN DO; IF V8='1' THEN VINPASS=0; ELSE IF V8='3' THEN VINPASS=1404; ELSE IF (V8='2' OR V8='A') AND MM2=4836 THEN VINPASS=505; ELSE IF V8='B' AND MM2=4831 THEN VINPASS=9; ELSE IF V8='C' THEN VINPASS=404; ELSE IF V8='2' THEN VINPASS=404; END; ELSE IF MY=91 THEN DO; IF MM2=4836 THEN VINPASS=505; ELSE VINPASS=404; END; ELSE IF 92 LE MY LE 95 THEN DO; IF V8='3' THEN VINPASS=1404; ELSE IF V8='4' THEN VINPASS=1000; ELSE IF V8='5' THEN VINPASS=1010; ELSE IF MM2=4836 THEN VINPASS=505; ELSE VINPASS=404; END; GOTO NSUBARU; TOYOTA: IF 87 LE MY LE 89 THEN DO; IF MM2=4935 OR MM2=4940 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; END; ELSE IF 90 LE MY LE 91 THEN DO; IF MM2=4932 OR MM2=4938 THEN VINPASS=606; ELSE IF MM2=4935 OR MM2=4940 THEN VINPASS=303; ELSE IF MM2=4933 OR MM2=4934 OR MM2=4941 THEN VINPASS=1000; GOTO C; END; ELSE IF MY=92 THEN DO; IF MM2=4935 THEN VINPASS=303; ELSE IF MM2=4933 OR MM2=4934 OR MM2=4940 OR MM2=4941 THEN VINPASS=1000; ELSE VINPASS=606; GOTO C; END; ELSE IF MY=93 THEN DO; IF MM2=4938 OR MM2=4942 THEN VINPASS=1006; ELSE VINPASS=1000; GOTO C; END; ELSE IF 94 LE MY LE 95 THEN DO; IF (MY=94 AND MM2=4938) OR MM2=4942 THEN VINPASS=1006; ELSE VINPASS=1010; GOTO C; END; ELSE IF MY=96 THEN VINPASS=1010; GOTO C; VOLVO: V5=TRANSLATE(V5,'OIZSGB','012568'); IF 94 LE MY LE 96 THEN VINPASS=1010; ELSE IF 90 LE MY LE 92 THEN VINPASS=1000; ELSE IF MY=93 THEN DO; IF MM2=5141 OR MM2=5142 THEN VINPASS=1010; ELSE VINPASS=1000; END; ELSE IF V5='X' THEN VINPASS=0; ELSE IF V5='A' THEN VINPASS=1000; GOTO NVOLVO; MITS: IF MM2 NE 5236 THEN DO; V4=TRANSLATE(V4,'OIZSGB','012568'); IF V4='A' THEN VINPASS=1010; ELSE IF V4='B' AND 93 LE MY LE 94 THEN VINPASS=1000; ELSE IF V4='B' AND 91 LE MY LE 92 THEN VINPASS=404; ELSE IF V4='B' THEN VINPASS=0; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='E' THEN VINPASS=1004; ELSE IF V4='X' THEN VINPASS=1000; END; ELSE IF MM2=5236 THEN DO; V7=TRANSLATE(V7,'012568','OIZSGB'); IF V7='1' THEN VINPASS=0; ELSE IF MY LE 89 AND V7='2' THEN VINPASS=707; ELSE IF V7='2' THEN VINPASS=606; END; GOTO NMITS; SUZUKI: IF 90 LE MY LE 94 THEN VINPASS=505; ELSE IF 95 LE MY LE 96 THEN VINPASS=1010; ELSE VINPASS=0; GOTO C; ACURA: V8=TRANSLATE(V8,'012568','OIZSGB'); IF MY=91 THEN GOTO ACURA91; IF MY=92 THEN GOTO ACURA92; IF MY=93 THEN GOTO ACURA93; IF 94 LE MY LE 96 THEN DO; VINPASS=1010; GOTO C; END; IF CG=3707 OR CG=3712 THEN VINPASS=0; ELSE IF MM2=5431 THEN VINPASS=404; ELSE IF MY GE 89 AND MM2=5432 THEN VINPASS=1000; ELSE IF 87 LE MY LE 88 AND MM2=5432 AND CG=3711 AND V8='6' THEN VINPASS=1000; ELSE IF 87 LE MY LE 88 AND MM2=5432 THEN VINPASS=0; GOTO C; ACURA91: IF MM2=5432 AND V8='7' THEN VINPASS=1010; ELSE IF MM2=5431 THEN VINPASS=404; ELSE VINPASS=1000; GOTO C; ACURA92: IF MM2=5431 THEN VINPASS=404; ELSE IF MM2=5432 AND (V8='5' OR V8='6' OR V8='7') THEN VINPASS=1010; ELSE VINPASS=1000; GOTO C; ACURA93: IF MM2=5431 THEN VINPASS=404; ELSE IF MM2=5432 OR MM2=5433 THEN VINPASS=1010; ELSE IF MM2=5434 AND V8='6' THEN VINPASS=1010; ELSE VINPASS=1000; GOTO C; HYUNDAI: V7=TRANSLATE(V7,'012568','OIZSGB'); IF MY=96 THEN VINPASS=1010; ELSE IF MY=95 AND V7='1' THEN VINPASS=1010; ELSE IF V7='1' THEN VINPASS=0; ELSE IF V7='2' THEN DO; IF 87 LE MY LE 89 THEN VINPASS=707; ELSE IF MM2=5533 THEN VINPASS=404; ELSE IF MM2=5535 AND 94 LE MY LE 95 THEN VINPASS=1006; ELSE VINPASS=606; END; ELSE IF V7='3' THEN VINPASS=1006; ELSE IF V7='4' THEN VINPASS=1010; GOTO NHYUNDAI; YUGO: V8=TRANSLATE(V8,'012568','OIZSGB'); IF V8='1' THEN VINPASS=0; ELSE IF MY LE 89 AND V8='2' THEN VINPASS=707; ELSE IF V8='2' THEN VINPASS=606; GOTO NYUGO; INFI: IF MY LE 91 AND V8='C' THEN VINPASS=1000; ELSE IF 92 LE MY LE 93 AND V8='C' THEN VINPASS=1505; ELSE IF V8='D' THEN VINPASS=1010; ELSE IF V8='P' THEN VINPASS=404; GOTO NINFI; LEXUS: IF MY LE 92 THEN VINPASS=1000; ELSE IF MY=93 THEN DO; IF MM2=5931 THEN VINPASS=1000; ELSE VINPASS=1010; END; ELSE IF 94 LE MY LE 96 THEN VINPASS=1010; GOTO C; DAIHATSU: V7=TRANSLATE(V7,'012568','OIZSGB'); IF MY=88 THEN DO; IF V7='2' THEN VINPASS=606; ELSE VINPASS=0; END; ELSE IF MY=89 THEN DO; IF V7='1' OR V7='2' THEN VINPASS=606; ELSE VINPASS=0; END; ELSE IF 90 LE MY LE 92 THEN DO; IF V4='E' OR V4='H' THEN VINPASS=404; ELSE VINPASS=606; END; GOTO NDAIH; STERLING: V7=TRANSLATE(V7,'012568','OIZSGB'); IF V7='3' THEN VINPASS=404; ELSE IF V7='4' OR V7='5' THEN VINPASS=0; IF MY LE 89 AND (VINPASS=0 OR VINPASS=404) THEN GOTO C; ELSE IF MY LE 89 THEN DELETE; ELSE IF 89 LE MY LE 91 THEN DO; VINPASS=404; GOTO C; END; KIA: IF MY=96 THEN VINPASS=1010; /* OR 1313 */ ELSE IF MY=95 AND V8='5' THEN VINPASS=1010; /* SOME MY95 CAN BE 1010 OR 1313 FROM VIN BOOK 96 */ ELSE VINPASS=303; GOTO C; /* THE FOLLOWING SESION ASSIGNS OCCUPANT PROTECTION DEVICE */ /* BASED ON THE TYPE OF PASSENGER CAR. */ NCHRYS: IF CG=614 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF MY=88 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF MY=89 THEN NPASS=1000; GOTO C; END; IF CG=615 OR CG=616 OR 621 LE CG LE 623 THEN DO; IF 87 LE MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 95 THEN NPASS=1004; GOTO C; END; IF MM2=711 OR MM2=911 OR CG=619 OR MM2=615 THEN DO; NPASS=0; GOTO C; END; IF MM2=616 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF MY=88 THEN DO; NPASS=0; NPASS2=606; NPASS3=1000; NPASS4=1606; END; ELSE IF MY=89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 AND CG=622 THEN NPASS=1004; ELSE IF 94 LE MY LE 95 THEN NPASS=1010; GOTO C; END; IF MM2=715 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF MY=88 THEN DO; NPASS=0; NPASS2=606; NPASS3=1000; NPASS4=1606; END; ELSE IF 89 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=717 OR MM2=917 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN NPASS=1004; GOTO C; END; /* DODGE VIPER */ IF CG=624 THEN DO; NPASS=505; GOTO C; END; /* LATEST MY VEHICLES */ IF 625 LE CG LE 627 THEN DO; NPASS=1010; GOTO C; END; IF CG=4609 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 90 LE MY LE 92 THEN NPASS=404; GOTO C; END; IF CG=5205 OR CG=5208 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE NPASS=404; GOTO C; END; IF CG=5206 OR 5210 LE CG LE 5212 THEN DO; NPASS=404; GOTO C; END; IF CG=5213 THEN DO; IF MY LE 93 THEN NPASS=1000; ELSE NPASS=1010; GOTO C; END; IF CG=5214 OR CG=5216 OR CG=5217 THEN DO; IF MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN NPASS=1004; ELSE NPASS=1010; GOTO C; END; IF CG=5218 OR CG=5219 THEN DO; NPASS=1010; GOTO C; END; NFORD: IF MM2=1203 THEN DO; /* MUSTANG */ IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1302 THEN DO; IF MY LE 89 THEN NPASS=0; /* MARK7,MARK8 */ ELSE IF 90 LE MY LE 92 THEN NPASS=1000; ELSE IF 93 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1213 OR MM2=1413 THEN DO; /* ESCORT,LYNX */ IF MY=87 THEN DO; NPASS=0; NPASS2=303; END; ELSE IF MY=88 THEN DO; NPASS=9; NPASS2=303; END; ELSE IF 89 LE MY LE 93 THEN NPASS=303; ELSE IF MY=94 THEN NPASS=1303; ELSE IF 95 LE MY LE 96 THEN NPASS=1313; GOTO C; END; IF MM2=1214 THEN DO; NPASS=0; GOTO C; END; /* EXP */ IF CG=1234 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 88 LE MY LE 93 THEN DO; NPASS=303; NPASS2=1000; END; ELSE IF MY=94 THEN DO; NPASS=303; NPASS2=1003; END; GOTO C; END; IF MM2=1204 OR MM2=1404 THEN DO; IF MY LE 88 THEN NPASS=0; /* THUNDERBIRD,COUGAR */ ELSE IF 89 LE MY LE 93 THEN NPASS=303; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1216 OR MM2=1217 THEN DO; IF MY LE 89 THEN NPASS=0; /* TAURUS,CROWN VICTORIA */ ELSE IF 90 LE MY LE 91 THEN NPASS=1000; ELSE IF 92 LE MY LE 93 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1416 OR MM2=1417 THEN DO; IF MY LE 89 THEN NPASS=0; /* GRAND MARQUIS,SABLE */ ELSE IF 90 LE MY LE 91 THEN NPASS=1000; ELSE IF MY=92 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 93 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1301 THEN DO; IF MY LE 89 THEN NPASS=0; /* TOWN CAR */ ELSE IF 90 LE MY LE 91 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 92 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1305 THEN DO; IF MY LE 88 THEN NPASS=0; /* CONTINENTAL */ ELSE IF MY=91 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 89 LE MY LE 90 OR MY GE 92 THEN NPASS=1010; GOTO C; END; IF MM2=1234 OR MM2=5631 OR MM2=5632 THEN DO; /* FESTIVA,XR4Ti,SCORPIO */ IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=303; GOTO C; END; IF MM2=1436 THEN DO; IF MY LE 89 THEN NPASS=0; /* TRACER */ ELSE IF 90 LE MY LE 93 THEN NPASS=303; ELSE IF MY=94 THEN NPASS=1303; ELSE IF 95 LE MY LE 96 THEN NPASS=1313; GOTO C; END; IF MM2=1218 THEN DO; IF MY LE 89 THEN NPASS=0; /* PROBE */ ELSE IF 90 LE MY LE 92 THEN NPASS=303; ELSE IF MY=93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=1431 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF MY=90 THEN NPASS=303; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF CG=1239 OR CG=6303 OR CG=6304 THEN DO; NPASS=1010; GOTO C; END; NGM: IF MM2=2013 OR MM2=2213 OR MM2=2205 OR CG=1845 THEN DO; /* CHEVETTE,REGAL,T1000,FIERO */ NPASS=0; GOTO C; END; /* MONTE CARLO,CUTLASS,GRAND PRIX */ IF CG=1839 OR CG=1840 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF MY=90 THEN NPASS=505; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF CG=1842 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 92 THEN NPASS=505; ELSE IF MY=93 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF CG=1848 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 94 THEN NPASS=505; GOTO C; END; IF CG=1849 OR MM2=1905 OR MM2=1914 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 92 THEN NPASS=1000; ELSE IF 93 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF CG=1850 THEN DO; IF MY LE 89 THEN NPASS=0; /* CENTURY,CIERRA */ ELSE IF 90 LE MY LE 92 THEN NPASS=505; ELSE IF MY=93 THEN DO; NPASS=505; NPASS2=1505; END; ELSE IF 94 LE MY LE 96 THEN NPASS=1505; GOTO C; END; IF MM2=1805 OR MM2=1821 OR MM2=1909 OR MM2=2004 OR MM2=2105 /* RIVERIA,REATTA,ALLANTE,CORVETTE */ OR MM2=2122 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF CG=1854 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=505; END; /* TORNADO,AURORA */ ELSE IF 88 LE MY LE 93 THEN NPASS=505; ELSE IF 94 LE MY LE 95 THEN NPASS=1505; GOTO C; END; IF CG=1856 THEN DO; IF MY=87 THEN NPASS=0; /* BERETTA,CORSICA */ ELSE IF MY=88 THEN DO; NPASS=0; NPASS2=505; END; ELSE IF 89 LE MY LE 90 THEN NPASS=505; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1505; GOTO C; END; IF CG=1859 THEN DO; IF 88 LE MY LE 93 THEN NPASS=505; ELSE IF MY=94 THEN DO; IF MM2=1820 OR MM2=2120 THEN NPASS=1505; ELSE IF MM2=2020 THEN NPASS=505; ELSE IF MM2=2220 THEN NPASS=1010; END; ELSE IF 95 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF CG=1852 AND 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=1802 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=505; END; /* LE SABRE */ ELSE IF 88 LE MY LE 91 THEN NPASS=505; ELSE IF 92 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=2202 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=505; END; /* BONNEVILLE */ ELSE IF 88 LE MY LE 91 THEN NPASS=505; ELSE IF 92 LE MY LE 93 THEN DO; NPASS=1000; NPASS2=1010; END; GOTO C; END; IF MM2=2102 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=505; END; /* DELTA 88 */ ELSE IF 88 LE MY LE 91 THEN DO; NPASS=505; NPASS2=1000; END; ELSE IF 92 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=1803 THEN DO; IF MY LE 88 THEN NPASS=0; /* ELECTRA,PARK AVENUE */ ELSE IF 89 LE MY LE 90 THEN NPASS=505; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=2103 THEN DO; IF MY LE 88 THEN NPASS=0; /* OLDS 98 */ ELSE IF 89 LE MY LE 90 THEN DO; NPASS=505; NPASS2=1000; END; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=1903 THEN DO; IF MY LE 88 THEN NPASS=0; /* DEVILLE */ ELSE IF MY=89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 92 THEN NPASS=1000; ELSE IF MY=93 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 94 LE MY LE 95 THEN NPASS=1010; GOTO C; END; IF 2401 LE MM2 LE 2403 THEN DO; IF MY=91 THEN NPASS=404; /* SATURN */ ELSE IF 92 LE MY LE 93 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF MY=94 THEN NPASS=1404; ELSE IF 95 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=2031 OR MM2=2033 THEN DO; NPASS=0; GOTO C; END; /* SECTRUM,SPRINT */ IF MM2=2032 THEN DO; IF MY LE 88 THEN NPASS=0; /* NOVA,GEO PRIZM */ ELSE IF 89 LE MY LE 90 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 91 LE MY LE 92 THEN NPASS=606; ELSE IF MY=93 THEN NPASS=1000; ELSE IF 94 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=2034 THEN DO; IF MY LE 89 THEN NPASS=0; /* METRO */ ELSE IF 90 LE MY LE 94 THEN DO; NPASS=505; NPASS2=1000; END; ELSE IF 95 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=2035 THEN DO; NPASS=1000; GOTO C; END; /* STORM */ IF MM2=2231 THEN DO; IF MY LE 89 THEN NPASS=0; /* LEMANS */ ELSE IF 90 LE MY LE 93 THEN NPASS=404; GOTO C; END; NVW: IF MM2=3038 OR MM2=3041 THEN DO; NPASS=0; GOTO C; END; /* SCIROCCO,QUANTUM */ IF MM2=3042 AND CG=3004 THEN DO; IF MY LE 89 THEN NPASS=0; /* CABRIOLET */ ELSE IF 90 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=3040 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; /* JETTA */ ELSE IF 90 LE MY LE 92 THEN NPASS=606; ELSE IF 93 LE MY LE 94 THEN DO; NPASS=606; NPASS2=1010; END; ELSE IF 95 LE MY LE 96 THEN NPASS=1010; GOTO C; END; IF MM2=3042 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; /* GOLF,GTI */ ELSE IF 90 LE MY LE 93 THEN NPASS=606; ELSE IF MY=94 THEN DO; NPASS=606; NPASS2=1010; END; ELSE IF MY=95 THEN DO; NPASS=404; NPASS2=1010; END; ELSE IF MY=96 THEN DO; NPASS=1010; END; GOTO C; END; IF MM2=3044 THEN DO; IF MY LE 89 THEN NPASS=0; /* FOX */ ELSE IF MY=90 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 91 LE MY LE 93 THEN NPASS=606; GOTO C; END; IF MM2=3045 OR MM2=3046 THEN DO; /* CORRADO,PASSAT */ IF 95 LE MY LE 96 THEN NPASS=1010; ELSE NPASS=404; GOTO C; END; NAUDI: IF 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=3234 OR MM2=3235 THEN DO; NPASS=0; GOTO C; END; IF MM2=3236 THEN DO; IF 88 LE MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 92 THEN NPASS=1000; ELSE IF MY=93 THEN DO; NPASS=1000; NPASS2=1010; END; GOTO C; END; IF MM2=3237 THEN DO; IF MY=89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 91 THEN NPASS=1000; ELSE IF MY=92 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF MY=93 THEN NPASS=1010; GOTO C; END; NBMW: IF MY=96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=3434 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF 94 LE MY LE 95 THEN NPASS=1010; GOTO C; END; IF MM2=3435 THEN DO; IF MY LE 88 THEN NPASS=0; ELSE IF MY=89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF MY=95 THEN NPASS=1010; GOTO C; END; IF MM2=3436 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN NPASS=1000; GOTO C; END; IF MM2=3437 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 88 LE MY LE 92 THEN NPASS=1000; ELSE IF 93 LE MY LE 95 THEN NPASS=1010; GOTO C; END; IF MM2=3438 THEN DO; IF 91 LE MY LE 92 THEN NPASS=1000; ELSE IF 93 LE MY LE 95 THEN NPASS=1010; GOTO C; END; NNISSAN: IF 95 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=3534 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF MY=90 THEN NPASS=505; ELSE IF MY=91 THEN DO; NPASS=505; NPASS2=1505; END; ELSE IF 92 LE MY LE 93 THEN NPASS=1505; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF MM2=3532 THEN DO; IF MY LE 88 THEN NPASS=0; ELSE IF MY=89 THEN DO; NPASS=404; NPASS2=505; END; ELSE IF 90 LE MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN NPASS=505; GOTO C; END; IF MM2=3539 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 88 LE MY LE 91 THEN NPASS=404; ELSE IF 92 LE MY LE 93 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF MY=94 THEN NPASS=1404; GOTO C; END; IF MM2=3542 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 92 THEN NPASS=404; GOTO C; END; IF MM2=3543 THEN DO; IF MY LE 88 THEN NPASS=0; ELSE IF MY=89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 90 LE MY LE 92 THEN DO; NPASS=404; NPASS2=505; END; ELSE IF 93 LE MY LE 94 THEN DO; NPASS=404; NPASS2=505; NPASS3=1404; NPASS4=1505; END; GOTO C; END; IF MM2=3544 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF MY=90 THEN DO; NPASS=404; NPASS2=1000; END; GOTO C; END; IF MM2=3546 THEN DO; IF 91 LE MY LE 92 THEN NPASS=1000; ELSE IF MY=93 THEN NPASS=1505; GOTO C; END; IF MM2=3547 THEN DO; IF MY=93 THEN NPASS=1404; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF MM2=3548 THEN DO; NPASS=404; GOTO C; END; NJAGUAR: IF 95 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=3932 THEN DO; IF MY LE 88 THEN NPASS=0; ELSE IF 89 LE MY LE 92 THEN NPASS=404; ELSE IF MY=93 THEN NPASS=1000; ELSE IF MY=94 THEN DO; NPASS=1000; NPASS2=1010; END; GOTO C; END; IF MM2=3931 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF MY=90 THEN DO; NPASS=404; NPASS2=1000; END; ELSE IF 91 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; NMEBE: IF 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; /* MY96 HAS SIDE IMPACT AIR BAGS */ IF MM2=4231 THEN DO; IF MY=85 THEN NPASS=0; ELSE IF 86 LE MY LE 88 THEN NPASS=1000; ELSE IF 89 LE MY LE 92 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF MY=93 THEN NPASS=1010; GOTO C; END; IF MM2=4233 THEN DO; IF MY=85 THEN NPASS=0; ELSE IF 86 LE MY LE 89 THEN NPASS=1000; ELSE IF MY=90 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 91 LE MY LE 93 THEN NPASS=1010; GOTO C; END; IF MM2=4236 THEN DO; IF MY=85 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 86 LE MY LE 88 THEN NPASS=1000; ELSE IF 89 LE MY LE 90 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 91 LE MY LE 93 THEN NPASS=1010; GOTO C; END; IF MM2=4237 THEN DO; IF MY=85 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 86 LE MY LE 88 THEN NPASS=1000; ELSE IF 89 LE MY LE 91 THEN DO; NPASS=1000; NPASS2=1010; END; ELSE IF 92 LE MY LE 93 THEN NPASS=1010; GOTO C; END; IF MM2=4239 THEN DO; IF MY=85 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 86 LE MY LE 89 THEN NPASS=1000; ELSE IF 90 LE MY LE 93 THEN DO; NPASS=1000; NPASS2=1010; END; GOTO C; END; NPEUGEOT: IF MM2=4434 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 90 LE MY LE 91 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; END; IF MM2=4436 THEN DO; IF MY=89 THEN DO; NPASS=0; NPASS2=404; NPASS3=606; END; ELSE IF 90 LE MY LE 91 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; END; NPORSCHE: IF 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=4531 OR MM2=4534 OR MM2=4535 OR MM2=4540 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1010; GOTO C; END; IF MM2=4537 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=1010; END; ELSE IF 90 LE MY LE 91 THEN NPASS=1010; GOTO C; END; NSAAB: IF 95 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF CG=4704 THEN DO; IF 87 LE MY LE 89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 90 LE MY LE 94 THEN NPASS=1000; GOTO C; END; IF MM2=4734 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF CG=4706 THEN DO; NPASS=1010; GOTO C; END; NSUBARU: IF 95 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=4831 THEN DO; IF MY=87 THEN NPASS=0; ELSE IF 88 LE MY LE 89 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF MY=90 THEN DO; NPASS=0; NPASS2=404; NPASS3=9; END; ELSE IF 91 LE MY LE 94 THEN NPASS=404; GOTO C; END; IF MM2=4834 THEN DO; IF 90 LE MY LE 91 THEN NPASS=404; ELSE IF MY=92 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF 93 LE MY LE 94 THEN NPASS=1404; GOTO C; END; IF MM2=4835 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 88 LE MY LE 91 THEN NPASS=404; GOTO C; END; IF MM2=4836 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 94 THEN NPASS=505; GOTO C; END; IF MM2=4837 THEN DO; IF 92 LE MY LE 93 THEN NPASS=1404; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF MM2=4838 THEN DO; IF MY=93 THEN NPASS=1000; ELSE IF MY=94 THEN DO; NPASS=1000; NPASS2=1010; END; GOTO C; END; NVOLVO: IF 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=5134 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=1000; GOTO C; END; IF MM2=5138 THEN DO; IF MY=87 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 88 LE MY LE 91 THEN NPASS=1000; GOTO C; END; IF MM2=5139 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=1000; END; ELSE IF 90 LE MY LE 92 THEN NPASS=1000; GOTO C; END; IF MM2=5140 THEN DO; NPASS=1000; GOTO C; END; IF MM2=5141 THEN DO; IF 91 LE MY LE 92 THEN NPASS=1000; ELSE IF MY=93 THEN NPASS=1010; GOTO C; END; IF MM2=5142 THEN DO; NPASS=1010; GOTO C; END; NMITS: IF 95 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=5235 THEN DO; IF MY LE 88 THEN NPASS=0; ELSE IF 89 LE MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN NPASS=1004; GOTO C; END; IF MM2=5236 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 90 LE MY LE 94 THEN NPASS=606; GOTO C; END; IF MM2=5231 THEN DO; NPASS=404; GOTO C; END; IF MM2=5232 OR MM2=5233 THEN DO; NPASS=0; GOTO C; END; IF MM2=5237 THEN DO; NPASS=404; GOTO C; END; IF MM2=5234 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF MM2=5238 THEN DO; IF MY LE 89 THEN NPASS=0; ELSE IF 90 LE MY LE 91 THEN NPASS=1000; GOTO C; END; IF MM2=5239 OR MM2=5240 THEN DO; IF 91 LE MY LE 93 THEN NPASS=1000; ELSE IF MY=94 THEN NPASS=1010; GOTO C; END; IF MM2=5244 OR MM2=5245 THEN DO; IF 92 LE MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN NPASS=1004; GOTO C; END; NHYUNDAI: IF MY=96 THEN DO; NPASS=1010; GOTO C; END; /* IF MY96 1010 FOR MM2=5535 THEN ALL MY96 ARE 1010 */ IF MM2=5532 OR MM2=5534 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 90 LE MY LE 95 THEN NPASS=606; GOTO C; END; IF MM2=5535 THEN DO; IF 90 LE MY LE 93 THEN NPASS=606; ELSE IF 94 LE MY LE 95 THEN NPASS=1006; GOTO C; END; IF MM2=5533 THEN DO; IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 90 LE MY LE 93 THEN NPASS=404; ELSE IF MY=94 THEN DO; NPASS=404; NPASS2=1010; END; ELSE IF MY=95 THEN NPASS=1010; GOTO C; END; IF MM2=5536 THEN DO; NPASS=1010; GOTO C; END; NYUGO: IF MY LE 89 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 90 LE MY LE 91 THEN NPASS=606; GOTO C; NINFI: IF 94 LE MY LE 96 THEN DO; NPASS=1010; GOTO C; END; IF MM2=5831 OR MM2=5832 THEN DO; IF MY LE 91 THEN NPASS=1000; ELSE IF 92 LE MY LE 93 THEN NPASS=1505; GOTO C; END; IF MM2=5833 THEN DO; IF 91 LE MY LE 92 THEN NPASS=404; ELSE IF MY=93 THEN DO; NPASS=404; NPASS2=1010; END; GOTO C; END; IF MM2=5834 THEN DO; NPASS=1010; GOTO C; END; NDAIH: IF MY LE 89 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 90 LE MY LE 92 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; C: IF VINPASS=8 AND NPASS=10 THEN PASSIVE=9; ELSE IF VINPASS NE 8 AND NPASS=10 THEN PASSIVE=VINPASS; ELSE IF NPASS2=10 AND NPASS=1000 AND VINPASS NE 1000 THEN GOTO FYAB; ELSE IF NPASS2=10 THEN PASSIVE=NPASS; ELSE IF NPASS3=10 AND (VINPASS=NPASS OR VINPASS=NPASS2) THEN PASSIVE=VINPASS; ELSE IF NPASS3=10 THEN PASSIVE=9; ELSE IF NPASS4=10 AND (VINPASS=NPASS OR VINPASS=NPASS2 OR VINPASS=NPASS3) THEN PASSIVE=VINPASS; ELSE IF NPASS4=10 THEN PASSIVE=9; ELSE IF VINPASS=NPASS OR VINPASS=NPASS2 OR VINPASS=NPASS3 OR VINPASS=NPASS4 THEN PASSIVE=VINPASS; ELSE PASSIVE=9; RETURN; FYAB: IF MY=86 AND (MM2=4231 OR MM2=4233 OR MM2=4236 OR MM2=4237 OR MM2=4239) THEN PASSIVE=9; ELSE IF MY=88 AND (MM2=3436 OR MM2=3437 OR MM2=5138) THEN PASSIVE=9; ELSE IF MY=89 AND (MM2=610 OR MM2=707 OR MM2=904 OR MM2=715 OR MM2=1305 OR MM2=5432) THEN PASSIVE=9; ELSE IF MY=90 AND MM2 IN (708,908,616,717,917,618,718,719,919, 1203,1216,1301,1302,1217,1417,2009,2209,2004,1805,1905,1914,2105, 1909,1821,3237,3236,3434,3435,2035,3832,3833,4537,4535,4731,4734, 4934,4933,5134,5139,5238) THEN PASSIVE=9; ELSE IF MY=90 AND ((MM2=1903 AND CG=1852) OR (MM2=1903 AND CG=1860) OR (MM2=3042 AND CG=3004)) THEN PASSIVE=9; ELSE IF MY=91 AND (MM2=1804 OR MM2=2002 OR MM2=1803 OR MM2=2103 OR MM2=2019 OR MM2=3546 OR MM2=3931 OR MM2=1431) THEN PASSIVE=9; ELSE IF MY=91 AND CG=1840 THEN PASSIVE=9; ELSE IF MY=92 AND (MM2=3534 OR MM2=3735 OR MM2=3732 OR MM2=3731 OR MM2=4940) THEN PASSIVE=9; ELSE IF MY=93 AND (CG=1842 OR MM2=3932 OR MM2=1218 OR MM2=4137 OR MM2=4144 OR MM2=4134 OR MM2=1218 OR MM2=4137 OR MM2=4144) THEN PASSIVE=9; ELSE PASSIVE=1000; RUN; DATA CAR4; SET CHUCK1; MY=MY+1900; RUN;