Troubleshooting program written by an auto mechanic.
Gallery
Source Code
1 GO SUB 9996: REM **AUTO ANALYSIS**FOR TS-2068 or SPECTRUM**from SYNCWARE NEWS entered by Thomas Skapinski*****
2 LET X=0
3 LET Y=0
4 LET Z=0
5 LET Q=0
6 LET V=0
7 LET C=0
8 LET N=0
10 LET SM=500
11 LET LG=0
12 LET SUM=0
13 LET CC=1
40 PRINT AT 5,2;"AUTOMOTIVE ANALYZER PART 1:"
45 PRINT ,,TAB 6;"""TROUBLESHOOTING"""
50 PRINT ,,TAB 2;"PROGRAM BY E. PARDO,BS,SAE"
55 PRINT ,,,,"PRESS ENTER WHEN EVER THERE ARE NO OTHER INPUT INSTRUCTIONS."
60 INPUT A$
90 CLS
99 REM MENUE=LETTER SELECTOR
100 PRINT INVERSE 1;"AUTOMOTIVE ANALYZER MENUE (EAP)"
122 PRINT "A.STARTER DOES NOT TURN"
123 PRINT "B. STARTER TURNS,BUT ENGINE DOES NOT CRANK"
124 PRINT "C. STARTER TURNS ENGINE SLOWLY"
125 PRINT "D. STARTER CRANKS NORMAL SPEED"
126 PRINT "E. STARTER CRANKS ENGINE, BUT FASTER THAN NORMAL"
127 PRINT "F. ENGINE FIRES INTERMITTANTLY"
128 PRINT "G. ENGINE FIRES CONSTANTLY"
142 PRINT "H. HARD STARTING, STALLING, OR LACKS POWER."
143 PRINT "I. BLUE SMOKE"
144 PRINT "J. BLACK SMOKE, ROUGH IDLE, ENGINE DIES AT HIGH SPEED, POOR PICKUP,HESITATION"
145 PRINT "K. BACKFIRE/AFTERFIRE"
146 PRINT "L. MISS-FIRES AT SPEED (CRUISE)"
147 PRINT "M. RUN-ON (DIESELING)"
148 PRINT "N. MISS-FIRES UNDER LOAD"
149 PRINT "P. MISS-FIRES AT IDLE"
150 PRINT INVERSE 1;"X. EXIT ANALYSIS"
151 INPUT A$
152 GO SUB 8000
190 CLS
195 GO TO N
1001 CLS
1003 PRINT "ENTER CODE FROM MENU LISTING:"
1004 PRINT AT 3,7;"BATTERY AND CABLES"
1005 PRINT AT 6,2;"ENTER 0 TO CONTINUE."
1011 PRINT ,, INVERSE 1;"VISUAL BATTERY INSPECTION"; INVERSE 0;TAB 5;"1.CRACKED CASE";TAB 5;"2. FLUID LEVEL"
1012 PRINT ,, INVERSE 1;"CHECK CABLE TERMINAL CONNECTIONS"; INVERSE 0;TAB 5;"3. PROCURE"
1013 PRINT ,, INVERSE 1;" INSPECT CABLES "; INVERSE 0;TAB 5;"5. CRACKED OR BROKEN"
1014 PRINT ,, INVERSE 1;" HYDROMETER TEST "; INVERSE 0;TAB 5;"6. PROCEDURE"
1016 INPUT S
1017 IF S=0 THEN GO TO 1021
1018 GO SUB (S*10+1100)
1019 INPUT A$
1020 GO TO 1000
1021 GO TO 9000
1022 PRINT "TEST THE STARTER MOTOR:",,TAB 0;"CONNECT JUMPER FROM THE BATTERY POWER TERMINAL TO THE IGNITION +TERMINAL OF STARTER RELAY OR SOL"
1023 PRINT ,,"DOES ENGINE CRANK NORMAL? (Y/N)"
1024 INPUT A$
1025 IF A$="Y" THEN GO SUB 1180
1026 IF A$="N" THEN GO SUB 1185
1027 INPUT A$
1028 IF A$="C" THEN LET X=1041
1029 IF A$="C" THEN LET Y=1061
1030 GO TO 9000
1032 PRINT "WITH THE IGNITION ON> CONNECT A JUMPER FROM COIL - AND GROUND. REMOVE HIGH VOLTAGE WIRE FROM COIL."
1033 PRINT ,,"CONNECT TEST LIGHT TO COIL + AND GROUND, TURN IGN ON AND JIGGLE THE KEY."
1034 PRINT ,,"DOES THE LAMP LIGHT?(L);FLICKER?(F);OR DO NOTHING?(N)."
1035 INPUT A$
1036 IF A$="L" THEN GO SUB 1190
1037 IF A$="F" THEN GO SUB 1210
1038 IF A$="N" THEN GO SUB 1220
1039 INPUT A$
1040 GO TO 9000
1041 PRINT INVERSE 1;" CHECK SPARK "
1042 GO SUB 2000
1043 INPUT A$
1044 CLS
1045 PRINT "DO YOU WISH TO:";TAB 5;"CONTINUE? (C)";TAB 5;"RETURN TO SPARK CHECKS? (R)"
1046 INPUT A$
1047 CLS
1048 IF A$="R" THEN GO TO 1041
1050 GO TO 9000
1051 PRINT INVERSE 1;" CHECK FUEL SYSTEM "
1052 GO SUB 2900
1059 INPUT A$
1060 GO TO 9000
1061 PRINT INVERSE 1;" CHECK COMPRESSION "
1062 GO SUB 4000
1069 INPUT A$
1070 GO TO 9000
1071 PRINT INVERSE 1;" VACUME TEST "
1072 GO SUB 5000
1079 INPUT A$
1080 GO TO 9000
1081 PRINT INVERSE 1;"CHECK IGNITION TIMING"
1082 GO SUB 6000
1089 INPUT A$
1090 GO TO 9000
1091 PRINT INVERSE 1;"CHECK VALVE TRAIN"
1092 GO SUB 7000
1099 INPUT A$
1100 GO TO 9000
1111 CLS
1112 PRINT "REPLACE BATTERY WITH HEAVY DUTY"
1113 PRINT "TYPE, THEN CHECK CHARGING SYSTEM"
1114 INPUT A$
1116 GO SUB 1150
1119 RETURN
1121 CLS
1122 PRINT "CHECK FLUID LEVEL:"
1123 PRINT ,,"IF LOW, TOP OFF WITH DISTILLED WATER AND CHARGE BATTERY; THEN"
1124 PRINT "CHECK CHARGING SYSTEM"
1125 PRINT ,,"CLEAN BATTERY WITH BAKING SODA / WATER SOLUTION"
1126 PRINT ,,"COAT TERMINALS WITH VASOLINE"
1127 INPUT A$
1131 CLS
1132 PRINT "INSERT SCREWDRIVER BETWEEN CABLECLAMP AND TERMINAL POST. TURN ONHIGH BEAMS AMD OBSERVE INTENSITYOF LIGHT, TWISTING SCREWDRIVER"
1133 PRINT ,,"IF LIGHTS BRIGHTEN, CLEAN POSTS AND CABLE CLAMPS."
1134 PRINT ,,"DID LIGHTS BRIGHTEN? (ENTER Y/N)"
1135 INPUT A$
1137 IF A$="N" THEN GO SUB 1160
1151 CLS
1152 PRINT "CHECK CABLES:"
1153 PRINT ,,"VISUALLY INSPECT CABLES FOR BAD GROUND,CRACKS,BAD STARTER CONN."
1154 PRINT "TIGHTEN OR REPLACE AS NEEDED"
1155 PRINT ,,"IF PROBLEM IS STILL UNKNOWN THEN PROCEED TO NEXT STEP"
1159 RETURN
1160 CLS
1161 PRINT "FOR HYDROMETER WITHOUT NUMERIC INDICATORS, INTERPET FROM SCALE"
1162 PRINT ,,"GOOD=1.250>1.3","FAIR=1.2>1.25","POOR=1.15>1.2","BAD=BELOW1.15"
1163 PRINT ,,"ENTER SPECIFIC GRAVITY:";
1164 INPUT S
1165 PRINT ,,"ENTER TEMPERATURE DEG.F:";
1167 INPUT F
1168 PRINT F
1169 LET CS=((F-80)*.0004)+S
1170 PRINT ,,"CORRECTED READING=";CS
1171 IF CS<=1.225 THEN PRINT ,,; INVERSE 1;"RECHARGE BATTERY"
1172 IF CS>1.221 THEN PRINT ,,; INVERSE 1;"BATTERY IS OK"
1178 INPUT A$
1179 RETURN
1180 PRINT ,,"1.CHECK NUTRAL START SWITCH(S)"
1181 PRINT ,,"2.CHECK IGNITION SWITCH"
1184 RETURN
1185 PRINT ,,"CAN ENGINE BE TURNED BY HAND?"
1186 INPUT A$
1187 IF A$="Y" THEN PRINT ; INVERSE 1;"PROBLEM INDICATED IN STARTER"
1188 IF A$="N" THEN PRINT "REMOVE SPARK PLUGS AND CRANK THEENGINE.";TAB 0;"IF IT DOESN'T TURN-OVER NOW, THEN DISASSEMBLY IS REQUIRED.";TAB 0;"IF THE ENGINE CRANKS ENTER""C""."
1189 PRINT ,,"LIGHTS= SWITCH IS OK."
1191 PRINT ,,"CHECK FOR OPEN CIRCUITS:";TAB 5;"1. BALLAST RESISTOR";TAB 5;"2. RESISTANCE WIRE HARNESS";TAB 5;"3. MAIN RELAY,ENGINE FUSE"
1192 PRINT "CHECK DISTRIBUTER:";TAB 5;"3. CONTACT POINTS";TAB 5;"4. SIGNAL GENERATOR"
1193 PRINT TAB 5;"5. CONDENSOR";TAB 5;"6. IGNITER (TRANSISTORIZED)"
1209 RETURN
1210 PRINT ,,"FLICKERS= REPLACE THE IGNITION SWITCH"
1219 RETURN
1220 PRINT ,,"NO RESPONSE= CHECK FOR LOOSE OR OPEN CONNECTIONS"
1221 PRINT "IF NONE ARE FOUND,REMOVE THE IGNSWITCH AND CHECK FOR CONTINUITY.IF NO CONTINUITY REPLACE SWITCH."
1239 RETURN
2000 PRINT ,,"HOLD EACH PLUG CABLE ABOUT 1/4"" FROM GROUND AND CRANK ENGINE"
2001 PRINT INVERSE 1;"CAUTION WEAR GLOVES"
2002 PRINT "IS THERE SPARK? (Y/N)"
2003 INPUT A$
2004 IF A$="N" THEN GO TO 2200
2005 PRINT "IS SPARK GOOD TO ALL CYCLINDERS?"
2006 INPUT A$
2007 IF A$="N" THEN GO TO 2100
2008 PRINT ,,"REMOVE AND CHECK SPARK PLUGS:", INVERSE 1;"CODE CONDITION"
2009 PRINT "2.0 ELECTRODES ERODED,BROWN"
2010 PRINT "2.5 CARBON FOULED,(DRY BLACK)"
2011 PRINT "3.0 OIL FOULED,(WET BLACK)"
2012 PRINT "3.5 LEAD FOULED,GLAZED"
2013 PRINT "4.0 BRIDGED GAP,(SHORTED)"
2014 PRINT "4.5 BURNED ELECTRODES,WHITE";TAB 6;"INSULATOR WITH BLACK SPOTS"
2016 PRINT "5.0 MELTED OR BADLY BURNT",,TAB 5; INVERSE 1;"ENTER LINE NUMBER,,,"
2017 INPUT S
2018 GO SUB (S*10+2000)
2019 RETURN
2020 CLS
2021 PRINT INVERSE 1;"NORMAL WEAR"
2022 PRINT ,,"NORMAL WEAR OF STANDARD PLUGS ISINDICATED BY 0.001""PER 1000 MILES OF USE"
2023 PRINT ,,"CLEAN AND REGAP IF WEAR IS NOT EXCESSIVE, OR REPLACE"
2024 RETURN
2025 CLS
2026 PRINT INVERSE 1;"CARBON FOULING"
2027 PRINT ,,"IF PRESENT ON ONE OR TWO PLUGS:";TAB 5;"CHECK CORD SET";TAB 5;"CHECK VALVE TRAIN"
2028 PRINT ,,"PRESENT ON MOST PLUGS=TOO RICH";TAB 5;"CHECK FUEL SYSTEM"
2029 RETURN
2030 CLS
2031 PRINT INVERSE 1;"OIL FOULED"
2032 PRINT ,,"WORN ENGINE COMPONENTS OR ENGINEBREAK-IN ON NEW OR REBUILT MOTOR"
2033 PRINT ,,TAB 5;"CHECK VACUME";TAB 5;"CHECK COMPRESSION";TAB 5;"REPLACE SPARK PLUG"
2034 RETURN
2035 CLS
2036 PRINT INVERSE 1;"LEAD FOULING"
2037 PRINT ,,"CAN BE GRAY,BLACK,RED,GREEN,TAN,OR YELLOW DEPOSITS WHICH APPEAR GLAZED OR CINDER-LIKE."
2038 PRINT ,, INVERSE 1;"COMBUSTION BY PRODUCTS";TAB 5;"REPLACE WITH NEW PLUGS."
2039 RETURN
2040 CLS
2041 PRINT INVERSE 1;"BRIDGED GAP"; INVERSE 0;"(DEPOSITS LODGED BETWEN ELECTRODES)"
2042 PRINT ,,"INCOMPLETE COMBUSTION.";TAB 5; INVERSE 1;"REPLACE SPARK PLUGS"
2044 RETURN
2045 CLS
2046 PRINT INVERSE 1;"OVERHEATING (BURNT ELECTRODES)"
2047 PRINT ,,"1) TOO MUCH ADVANCE;CHECK TIMING2) MIXTURE TOO LEAN;FUEL SYSTEM 3) SPARK PLUGS NOT SEATED TIGHT; CLEAN SEAT, REPLACE PLUGS"
2049 RETURN
2050 CLS
2051 PRINT INVERSE 1;"PREIGNITION"; INVERSE 0;"(MELTED OR SEVERLY BURNT ELECTRODES, BLISTERED OR CRACKED INSULATORS, OR METALIC DEPOSITS ON THE INSULATOR."
2052 PRINT ,,"1) INCORECT HEAT RANGE PLUGS. 2) TOO MUCH DISTRIBUTER ADVANCE.3) PLUGS NOT COLLING PROPERLY"
2053 PRINT " CHECK PLUG SEAT AND COOLANT. 4) FUEL MIXTURE TOO LEAN.","5) CHECK COMPRESSION.","6) OCTANE TOO LOW."
2099 RETURN
2100 PRINT ,,"INSPECT DISTRIBUTER CAP + ROTOR FOR BURNED OR CORRODED CONTACTS,CRACKS,CARBON TRACKS OR MOISTURE"
2101 PRINT ,,"CHECK THE FIT OF THE ROTOR ON THE DISTRIBUTER SHAFT."
2102 PRINT "IF MOISTURE PRESENT,DRY & RETESTAS DESCRIBED ABOVE."
2103 PRINT "IF PROBLEM FOUND,REPLACE PARTS& RETEST"
2104 PRINT ,, INVERSE 1;"IS SPARK GOOD?"; INVERSE 0;"(Y/N)"
2105 INPUT A$
2106 CLS
2107 IF A$="Y" THEN GO TO 2008
2108 IF A$="N" THEN GO TO 2300
2200 PRINT ,,"DOES VEHICLE HAVE TRANSISTORIZEDIGNITION? (Y/N)"
2201 INPUT A$
2202 IF A$="Y" THEN GO TO 2300
2203 PRINT ,,"CHECK FOR SPARK AT CIOL WIRE."
2204 PRINT "(SAME AS FOR PLUG WIRES)"
2205 PRINT "IF SPARK IS WEAK OR NO SPARK, REPLACE WIRE AND RETEST."
2207 PRINT ,,"DID YOU CHECK CAP AND ROTOR? (Y/N)"
2208 INPUT A$
2209 CLS
2210 IF A$="N" THEN GO TO 2100
2300 CLS
2301 PRINT INVERSE 1;"IGNITION COIL RESISTANCE CHECK";TAB 5; INVERSE 0;"CONNECT OHMETER TO TOWER";TAB 5;"AND TO COIL NEG.(-)TERM."
2302 PRINT ,,"READING SHOULD BE >4K OHM, <12K OHM; EXCEPT FOR HEI IGNITION."
2303 PRINT "(FOR HEI, >6, <30K)"
2304 PRINT ,,"HIGH PERFORMANCE COILS DIFFER, CHECK MANUFACTURERS SPECS."
2305 PRINT ,,"CHECK FOR RESISTANCE BETWEEN +/-COIL PRIMARY TERMINALS."
2306 PRINT ,,"CHECK COIL POLARITY:","CONNECT VOLTMETER NEGETIVE LEAD TO HIGH VOLT TOWER,AND POSITIVE LEAD TO GROUND."
2307 PRINT INVERSE 1;"IF VOLTMETER SWINGS UP SCALE WHEN ENGINE IS CRANKED THE POLARITY IS CORRECT"
2350 INPUT A$
2390 CLS
2500 PRINT INVERSE 1;"INSPECT SPARK PLUG CABLES"
2501 PRINT "CHECK FOR BRITTLENESS OR CRACKS."
2502 PRINT "CHECK CORDS WITH AN OHMMETER."
2503 PRINT "CHECK FOR OPEN CIRCUITS OR FOR RESISTANCE OVER 8000 OHMS/FT."
2504 PRINT "IF ANY CABLE IS BAD REPLACE THE ENTIRE CORD SET."
2699 RETURN
2900 PRINT ,,"CHECK AIR FILTER ELEMENT FOR EXCESSIVE DUST OR RESTRICTIONS"
2910 PRINT ,,"CLEAN OR REPLACE ELEMENT"
2920 PRINT ,,"IS ENGINE FUEL-INJECTED? (F) OR CARBURETED? (C)"
2925 INPUT A$
2930 IF A$="F" THEN GO TO 3080
3000 CLS
3003 PRINT ,,"CHECK FOR FUEL IN CARBURETOR."
3004 PRINT ,,"A. CHECK FOR FLOODED CARBURATOR (STRONG ODOR,FUEL VISIBLE INSIDEINTAKE MANIFOLD)"
3005 PRINT ,,"B. CHECK FOR ABSENCE OF GASOLINEIN THE CARBURATOR: OPERATE THE THROTTLE LINKAGE AND OBSERVE THEFUEL SPRAY FROM ACCELERATOR PUMP"
3006 PRINT ,, INVERSE 1;"ENTER RESULTS"; INVERSE 0;TAB 5;"NO FUEL? (N)";TAB 5;"OK? (K)"
3007 INPUT A$
3008 IF A$="F" THEN GO TO 3027
3009 IF A$="K" THEN GO TO 3070
3010 CLS
3011 PRINT "CHECK FUEL DELIVERY:DETACH FUEL LINE AT CARB INLET,AIM LINE INTOCONTAINER AND CRANK ENGINE"
3012 PRINT ,,"DOES FUEL FLOW FREELY? (Y/N)"
3013 INPUT A$
3014 IF A$="Y" THEN GO TO 3028
3015 PRINT ,,"REMOVE LINES FROM FUEL PUMP;WITHVACUME/PRESSURE GAUGE CHEK PUMP"
3016 PRINT ,,"IF PUMP DOES NOT DEVELOPE VACUMEAT INLET REPLACE THEPUMP."
3017 PRINT ,,"(CHECK FUEL PRESSURE AT OUTLET AND COMPARE READINGS AGAINST OEM SPECIFACTIONS)"
3018 PRINT ,,"IF PUMP IS OK,CHECK GAS DELIVERYWITHOUT THE FILLER CAP INSTALLED"
3019 PRINT ,,"DOES THE FUEL FLOW FREELY? (Y/N)"
3020 INPUT A$
3021 IF A$="Y" THEN PRINT INVERSE 1;"REPLACE FUEL FILLER CAP"
3022 IF A$="Y" THEN RETURN
3023 CLS
3024 PRINT "BLOW OUT THE FUEL LINES TO THE TANK WITH LOW PRESSURE AIR UNTILBUBBLING IS HEARD AT FILLER NECKTHEN CLEAN OUT FUEL LINE TO CARBAND REPLACE FUEL FILTER."
3025 INPUT A$
3026 GO TO 3050
3027 CLS
3028 PRINT ,,"CHECK THE FLOAT NEDLE AND SEAT"
3029 PRINT ,,"TAP CARBURATOR NEAR INLET. IF ITSTOPS CONDITION REPLACE NEEDLE AND SEAT."
3030 PRINT ,,"NOTE: WHEN REPLACING NEEDLE AND SEAT, IT IS ADVISABLE TO CHECK ALL RELATED PARTS IN CARBURATOR AND REPLACE OR REBUILD AS NEEDED"
3040 INPUT A$
3050 CLS
3051 PRINT "DETERMINE IF THE MAIN CARBURATORCIRCUITS ARE WORKING:SPRAY CARB STARTER INTO AIR HORN AND START ENGINE"
3052 PRINT ,,"IF ENGINE STARTS AND THEN DIES, ONE OF THE FOLLOWING CONDITIONS MAY BE THE PROBLEM..."
3053 PRINT ,, INVERSE 1;"1. VAPOR LOCK"
3054 PRINT "(VERY HOT AMBIENT TEMPERATURES)"
3059 PRINT ,, INVERSE 1;"2. CARBURATOR ICING"
3060 PRINT "(COLD, HUMID AMBIENT CONDITIONS)"
3063 PRINT ,, INVERSE 1;"3. FUEL CONTAMINATION WITH WATER"
3064 PRINT "(HIGH HUMIDITY,EXTREME AMBIENT CHANGES OR INFREQUENT FILLING OFFUEL TANK)"
3065 INPUT A$
3070 CLS
3080 PRINT ,,"VISIBLY INSPECT FOR STICKING OR GUMMY LINKAGES AND BUTTERFLIES."
3081 PRINT ,,"CLEAN WITH CARBURATOR / LINKAGE SPRAY CLEANER"
3082 PRINT ,,"CHECK ALL ELECTRICAL CONNECTIONSFOR CORROSION, OPEN CIRCUITS."
3999 RETURN
4000 PRINT ,, INVERSE 1;"DISABLE IGNITION SYSTEM"; INVERSE 0;" GROUND COIL HIGH-VOLTAGE CORD"
4001 PRINT ,,"REMOVE SPARK PLUGS,PLACE TESTER IN FIRST PLUG PORT,CRANK ENGINE TO MAXIMUM GAUGE READING."
4002 PRINT TAB 4; INVERSE 1;"ENTER "; INVERSE 0;"NO.OF CYL.=";
4003 INPUT NC
4004 PRINT NC
4005 CLS
4006 PRINT "ENTER COMPRESSION READINGS TAKEN"
4009 DIM A(NC)
4010 FOR T=1 TO NC
4011 INPUT A(NC)
4012 PRINT " PSI=";A(NC);
4013 IF A(NC)>LG THEN LET LG=A(NC)
4014 IF A(NC)<SM THEN LET SM=A(NC)
4015 LET SUM=SUM+A(NC)
4016 NEXT T
4017 IF CC=2 THEN GO TO 4060
4021 PRINT ,,TAB 0;"LOWES READING=";SM
4022 PRINT "HIGHEST READING=";LG
4023 LET PC=(LG-SM)/LG
4024 PRINT ,,"MAX DROP=";PC;"(PERCENT)"
4025 IF PC>0.25 THEN PRINT INVERSE 1;"EXCESSIVE COMPRESSION IMBALANCE"
4026 IF PC<=0.25 AND PC>0.1 THEN PRINT INVERSE 1;"ACCEPTABLE COMPRESSION BALANCE"
4027 IF PC<=0.1 THEN PRINT INVERSE 1;"COMPRESSION WELL BALANCED"
4028 IF LG>200 THEN PRINT INVERSE 1;"CAUTION"; INVERSE 0;"HIGH COMPRESSION"
4029 IF SM<100 THEN PRINT INVERSE 1;"CAUTION"; INVERSE 0;" LOW COMPRESSION"
4030 PRINT ,,"COMPARE READINGS AGAINST SPECS."
4031 LET MEAN=SUM/NC
4032 PRINT "AVERAGE=";MEAN
4035 PRINT ,,"IS COMPRESSION TOO LOW? (Y/N)"
4036 INPUT A$
4040 IF A$="N" THEN GO TO 4100
4050 CLS
4051 PRINT "IF TWO ADJECENT CYLINDERS WERE VERY LOW, REPLACE HEAD GASKET."
4052 PRINT ,,"WET COMPRESSION TEST:"
4053 PRINT "SQUIRT 2 TABLESPOONS(ABOUT 25CC)OF MOTOR OIL INTO A LOW CYLINDERAND RECHECK COMPRESSION."
4054 LET CC=2
4055 PRINT ,, INVERSE 1;"ENTER"; INVERSE 0;"NO. OF CYL. TO RECHECK:";
4056 GO TO 4003
4060 PRINT ,,TAB 0;"IF READINGS ARE IMPROVED, PISTONAND/OR PISTON RINGS ARE FAULTY."
4061 PRINT ,,"IF NO IMPROVEMENT, VALVE TRAIN IS PROBABLE CAUSE:CHECK VALVE SEATS GUIDES, CHAINS, ETC."
4070 GO TO 4500
4100 PRINT "IS COMPRESSION TOO HIGH?"
4101 INPUT A$
4102 IF A$="N" THEN GO TO 4500
4103 CLS
4104 PRINT "CHECK FOR LIQUIDS IN CYCLINDERS.OIL OR WATER PRESENT INDICATES THAT THE HEAD(S) MUST BE PULLED FOR VISUAL INSPECTION."
4105 GO SUB 7000
4500 PRINT INVERSE 1;" END COMPRESSION TEST "
4999 RETURN
5000 PRINT "CONNECT VACUME GAUGE TO INTAKE MANIFOLD ACCESS PORT"
5001 PRINT "START ENGINE AND READ AT IDLE:"
5002 PRINT INVERSE 1;"GAUGE READS ,INDICATIONS"
5003 PRINT "17-22 IN.HG.","NORMAL",,,"10-16 IN.HG.","LATE TIMING*;OR",,"LOW COMPRESSION"
5004 PRINT ,,"<10 IN.HG.","VACUME LEAK",,"STUCK ERG VALVE",,,">22 IN.HG.","EARLY IGNITION",,,"DRIFTING","MIXTURE TOO RICH"
5005 PRINT ,,"FLUCTUATES","STICKY VALVE OR",,"IGNITION MISS"
5010 PRINT ,," * (IGNITION OR VALVE TIMING)"
5100 INPUT A$
5101 CLS
5102 PRINT "GRADUALLY INCREASE ENGINE RPM;"
5110 PRINT ,, INVERSE 1;"GAUGE READS INDICATIONS"
5111 PRINT "FLUCTUATES","IGNITION MISS",,"HEAD GASKET(S)",,"LEAKING VALVE",,"VALVE SPRING"
5112 PRINT ,,"GRADUAL DROP","BACK PRESSURE"
5113 PRINT ,,"15-20 IN.HG.","NORMAL"
5114 PRINT ,, INVERSE 1;"BACK PRESSURE CHECK"
5115 PRINT "REV AND RELEASE THROTTLE QUICKLY"
5116 PRINT ,,"NEEDLE SHOULD REGISTER <5,THEN SNAP TO>25 AND DRIFR BACK TO NORMAL."
5117 PRINT ,,"IF NOT,CHECK EXHAUST SYSTEM FOR SOURCE OF BACK PRESSURE."
5999 RETURN
6000 PRINT ,,"CONNECT TIMING LIGHT AS PER MFG.INSTRUCTIONS, AND CHECK STATIC (INITAL) TIMING"
6001 PRINT ,,"CHECK WITH + WITHOUT DISTRIBUTERVACUME TO CHECK ADVANCER"
6002 PRINT ,,"WITH DIST.VAC.LINE OFF,CHECK THECENTRIFUGAL ADVANCE MECHANISM"
6003 PRINT ,,"COMPARE RESULTS WITH OEM SPECS."
6004 PRINT ,, INVERSE 1;"SPECS FOR DISTRIBUTOR ADVANCE MAY BE GIVEN IN CRANKSHAFT OR INDISTRIBUTOR DEGREES/RPM (1/2) "
6999 RETURN
7000 PRINT ,,"WITH STETHOSCOPE,(OR FACIMILE), LISTEN AT VALVE COVER FOR LOUD TAPPING. THIS CAN LOCATE LIFTERSTHAT REQUIRE EXTRA ATTENTION"
7002 PRINT ,, INVERSE 1;"STOP ENGINE": PRINT INVERSE 0;"REMOVE COVERS,ATTEMPT TO DEPRESSLIFTER BY HAND"
7003 PRINT ,,"IF EASILY DEPRESSED,REPLACE PART"
7005 PRINT ,,"ADJUST VALVE LASH TO OEM SPECS."
7006 PRINT ,, INVERSE 1;"IF NOISE PERSISTS,CHECK CAMSHAFT"
7999 RETURN
8000 REM STACKS GOTO PROCEDURES
8001 IF A$="A" OR A$="C" THEN LET N=1000
8002 IF A$="A" OR A$="C" THEN LET X=1022
8003 IF A$="B" THEN LET N=1022
8004 IF A$="J" OR A$="K" OR A$="F" OR A$="N" OR A$="L" THEN LET N=1041
8005 IF A$="M" OR A$="P" OR A$="D" OR A$="H" THEN LET N=1031
8006 IF A$="P" OR A$="H" OR A$="D" THEN LET X=1041
8007 IF A$="H" OR A$="P" THEN LET Y=1051
8008 IF A$="E" OR A$="I" THEN LET N=1061
8009 IF A$="H" THEN LET Z=1081
8010 IF A$="G" THEN LET N=1051
8011 IF A$="G" THEN LET X=1061
8013 IF A$="H" THEN LET Q=1091
8014 IF A$="I" OR A$="N" THEN LET X=1071
8015 IF A$="P" THEN LET Z=1071
8016 IF A$="P" THEN LET Q=1081
8017 IF A$="J" THEN LET X=1051
8018 IF A$="K" OR A$="L" OR A$="M" THEN LET X=1081
8019 IF A$="J" OR A$="N" THEN LET Y=1081
8020 IF A$="K" THEN LET Y=1091
8021 IF A$="N" THEN LET Z=1091
8025 IF A$="X" THEN GO TO 9900
8999 RETURN
9000 REM RESTACKS GOTO POSITIONS
9001 CLS
9002 LET N=X
9003 LET N=Y
9004 LET Y=Z
9005 LET Z=Q
9006 LET Q=V
9007 LET V=C
9008 LET C=0
9010 GO TO 80
9101 GO TO 1
9995 STOP
9996 POKE 23609,5: POKE 23658,8: RETURN
9998 STOP
9999 CLS : SAVE "ANALYZER": BEEP .1,50: BEEP .1,17: CLS : PRINT AT 10,5;"REWIND THE TAPE AND PRESS PLAY WHEN REWOUND": VERIFY "": BEEP .1,10: BEEP .1,60: BEEP .1,60: CLS : PRINT AT 10,5;"ALL IS O.K."