90 REM  *****************************
100 REM * STOERFALLDIAGNOSE AM AUTO *
110 REM *          VON              *
120 REM *       M.BILAWA  02.1990   *
130 REM *****************************
140 PRINTCHR$(147)
150 POKE 53280,0:POKE 53281,0
170 POKE199,1:PRINT"      STOERFALLIAGNOSE AM AUTO          "
180 FOR I=1 TO40:PRINT"[197]";:NEXT
185 POKE199,1:PRINT"           VON M.BILAWA                 "
190 PRINT:PRINT:PRINT:PRINT
192 PRINT"   [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
200 PRINT"   [180]ELEKTRISCHE ANLAGE...........1[170]"
210 PRINT"   [180]MOTOR........................2[170]"
220 PRINT"   [180]SCHMIERANLAGE................3[170]"
230 PRINT"   [180]VERGASERANLAGE...............4[170]"
240 PRINT"   [180]EINSPRITZANLAGE..............5[170]"
250 PRINT"   [180]KUEHLANLAGE..................6[170]"
260 PRINT"   [180]ZUENDANLAGE (KONTAKTE).......7[170]"
265 PRINT"   [180]ZUENDANLAGE (ELEKTRONISCH)...8[170]"
266 PRINT"   [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
270 PRINT:PRINT:PRINT
280 PRINT"    BITTE NUMMER EINGEBEN (1-8)"
300 GET N$:IF N$="" THEN 300
310 IF N$="1" THEN GOTO 550
320 IF N$="2" THEN GOTO 1500
330 IF N$="3" THEN GOTO 3300
340 IF N$="4" THEN GOTO 4010
350 IF N$="5" THEN GOTO 4790
360 IF N$="6" THEN GOTO 5780
370 IF N$="7" THEN GOTO 6780
375 IF N$="8" THEN GOTO 7880
376 IF N$>"8" OR N$=" " THEN GOTO 300
550 PRINTCHR$(147)
552 PRINT:PRINT
554 FOR I=1TO40:PRINT"[166]";:NEXT
556 PRINT
570 PRINT"LADELEUCHTE BRENNT BEI EINGESCHALTETER"
580 PRINT"ZUENDUNG NICHT.......................1"
582 FOR I=1TO40:PRINT"[197]";:NEXT
590 PRINT"LADELEUCHTE BRENNT BEI HOHER DREHZAHL"
600 PRINT"NICHT................................2"
602 FOR I=1TO40:PRINT"[197]";:NEXT
610 PRINT"LAMPE ERLISCHT BEI KLEINER UND GLIMMT"
620 PRINT"BEI HOHER DREHZAHL...................3"
622 FOR I=1TO40:PRINT"[197]";:NEXT
630 PRINT"LAMPE GLIMMT WENN VERBRAUCHER EINGESCH-"
640 PRINT"ALTET WERDEN.........................4"
642 FOR I=1TO40:PRINT"[197]";:NEXT
643 PRINT"BATTERIELADUNG ZU GERING.............5"
644 FOR I=1TO40:PRINT"[197]";:NEXT
650 PRINT"LAMPE FLACKERT.......................6"
652 FOR I=1TO40:PRINT"[197]";:NEXT
656 FOR I=1TO40:PRINT"[166]";:NEXT
660 PRINT
670 PRINT"BITTE NUMMER EIGEBEN     "
680 GET N$:IF N$="" THEN 680
700 IF N$="1"THEN GOTO 780
710 IF N$="2"THEN GOTO 880
720 IF N$="3"THEN GOTO 1000
730 IF N$="4"THEN GOTO 1100
735 IF N$="5" THEN GOTO 1300
740 IF N$="6"THEN GOTO 1200
750 IF N$>"6"OR N$=" "THEN GOTO 680
780 PRINTCHR$(147)
800 PRINT"MOEGLICHE STOERUNGEN SIND:"
802 PRINT:PRINT
810 PRINT"1.BATTERIESPANNUNG ZU SCHWACH"
820 PRINT"2.BATTERIE DEFEKT"
830 PRINT"3.GLUEHLAMPE DEFEKT"
840 PRINT"4.ZUEND-ANLASSCHALTER DEFEKT"
850 PRINT"5.REGLER DEFEKT"
860 PRINT"6.LEITUNGSUNTERBRECHUNG"
862 GOTO 8915
880 PRINTCHR$(147)
890 PRINT"MOEGLICHE STOERUNGEN SIND:"
892 PRINT:PRINT
900 PRINT"1.LADESPANNUNG ZU NIEDRIG"
910 PRINT"2.LICHTMASCHIENE DEFEKT"
920 PRINT"3.REGLER DEFEKT"
930 PRINT"4.KEILRIEMEN LOSE ODER GERISSEN"
940 PRINT"5.LEITUNGSUNTERBRECHUNG"
950 PRINT"6.UEBERGANGSWIDERSTAND ZU GROSS"
960 PRINT"7.MASSESCHLUSS"
962 GOTO 8915
1000 PRINTCHR$(147)
1020 PRINT"MOEGLICHE STOERUNGEN SIND:"
1030 PRINT:PRINT
1040 PRINT"1.REGELEREINSTELLUNG"
1050 PRINT"2.UEBERGANGSWIDERSTAND ZU GROSS"
1060 GOTO 8915
1100 PRINTCHR$(147)
1110 PRINT"MOEGLICHE STOERUNGEN SIND:"
1120 PRINT:PRINT
1130 PRINT"1.VERBRAUCHERLEISTUNG ZU HOCH"
1140 PRINT"2.UEBERTRAGUNGSWIDERSTAND ZU HOCH"
1150 GOTO 8915
1200 PRINTCHR$(147)
1210 PRINT"MOEGLICHE STOERUNGEN SIND:"
1220 PRINT:PRINT
1230 PRINT"1.KEILRIEMEN GERISSEN"
1240 PRINT"2.WACKELKONTAKT"
1250 GOTO 8915
1300 PRINTCHR$(147)
1310 PRINT"MOEGLICHE STOERUNGEN SIND:"
1320 PRINT:PRINT
1330 PRINT"1.WINDUNGSSCHLUSS DER LICHTMASCHINE"
1340 PRINT"2.KOLLEKTOR DEFEKT"
1350 PRINT"3.BATTERIE DEFEKT"
1360 PRINT"4.LICHTMASCHINE DEFEKT"
1370 PRINT"5.BUERSTEN VERSCHLISSEN"
1380 PRINT"6.REGLER DEFEKT"
1390 PRINT"7.KEILRIEMEN LOSE"
1400 PRINT"8.LEITUNGSUNTERBRECHUNG"
1410 PRINT"9.MASSESCHLUSS"
1430 GOTO 8915
1500 PRINTCHR$(147)
1510 FOR I=1TO40:PRINT"[166]";:NEXT
1520 PRINT
1530 PRINT"MOTORSTART ERFOLGLOS.................1"
1540 FOR I=1TO40:PRINT"[197]";:NEXT
1550 PRINT"MOTOR SPRINGT KALT SCHLECHT AN.......2"
1560 FOR I=1TO40:PRINT"[197]";:NEXT
1570 PRINT"MOTOR SPRINGT WARM SCHLECHT AN.......3"
1580 FOR I=1TO40:PRINT"[197]";:NEXT
1590 PRINT"MOTOR STIRBT BEIM BESCHLEUNIGEN......4"
1600 FOR I=1TO40:PRINT"[197]";:NEXT
1610 PRINT"MOTOR STIRBT BEIM BREMSEN ...........5"
1620 FOR I=1TO40:PRINT"[197]";:NEXT
1630 PRINT"MOTOR STIRBT IM LEERLAUF ............6"
1640 FOR I=1TO40:PRINT"[197]";:NEXT
1650 PRINT"BESCHLEUNIGUNG UNGENUEGEND ..........7"
1660 PRINT
1670 FOR I=1TO40:PRINT"[166]";:NEXT
1680 PRINT
1690 PRINT"BITTE NUMMER EINGEBEN"
1692 PRINT"ODER 'W' FUER WEITER"
1693 PRINT"[197][197][197][197]"
1695 GET N$:IF N$="" THEN 1695
1700 IF N$="W" THEN GOTO 1800
1710 IF N$="1" THEN GOTO 2090
1720 IF N$="2" THEN GOTO 2190
1730 IF N$="3" THEN GOTO 2300
1740 IF N$="4" THEN GOTO 2400
1750 IF N$="5" THEN GOTO 2500
1760 IF N$="6" THEN GOTO 2600
1770 IF N$="7" THEN GOTO 2690
1772 IF N$>"7"OR N$=" "THEN GOTO 1695
1800 PRINTCHR$(147)
1810 FOR I=1TO40:PRINT"[166]";:NEXT
1820 PRINT
1830 PRINT"LEISTUNG SCHWANKEND .................8"
1840 FOR I=1TO40:PRINT"[197]";:NEXT
1850 PRINT"KRAFTSTOFFVERBRAUCH ZU HOCH .........9"
1860 FOR I=1TO40:PRINT"[197]";:NEXT
1890 PRINT"MOTOR KLOPFT ........................A"
1900 FOR I=1TO40:PRINT"[197]";:NEXT
1910 PRINT"MOTOR KLINGELT ......................B"
1920 FOR I=1TO40:PRINT"[197]";:NEXT
1930 PRINT"BLEIBT PLOETZLICH STEHEN ............C"
1940 PRINT
1950 FOR I=1TO40:PRINT"[166]";:NEXT
1960 PRINT
1990 PRINT"BITTE NUMMER EINGEBEN"
2000 PRINT"ODER 'Z' FUER ZURUECK"
2002 PRINT"[197][197][197][197]"
2005 GET N$:IF N$="" THEN 2005
2010 IF N$="Z"THEN GOTO 1500
2020 IF N$="8"THEN GOTO 2800
2030 IF N$="9"THEN GOTO 2900
2050 IF N$="A"THEN GOTO 3000
2060 IF N$="B"THEN GOTO 3100
2070 IF N$="C"THEN GOTO 3180
2072 IF N$=" " THEN GOTO 2005
2090 PRINTCHR$(147)
2100 PRINT"MOEGLICHE STOERUNEN SIND:"
2110 PRINT:PRINT
2120 PRINT"1.KRAFTSTOFFANLAGE"
2130 PRINT"2.VERGASERANLAGE"
2140 PRINT"3.STARTANLAGE"
2150 PRINT"4.ZUENDANLAGE"
2180 GOTO 8915
2190 PRINTCHR$(147)
2200 PRINT"MOEGLICHE STOERUNGEN SIND:"
2210 PRINT:PRINT
2220 PRINT"1.BATTERIELADUNG ZU GERING"
2230 PRINT"2.ZUENDANLAGE"
2240 PRINT"3.ANLASSER"
2250 PRINT"4.VERGASERANLAGE"
2260 PRINT"5.SPANNUNGSVERLUST ZU HOCH"
2290 GOTO 8915
2300 PRINTCHR$(147)
2310 PRINT"MOEGLICHE STOERUNGEN SIND:"
2320 PRINT:PRINT
2330 PRINT"1.MAGNETSCHALTER"
2340 PRINT"2.VERGASERANLAGE"
2390 GOTO 8915
2400 PRINTCHR$(147)
2410 PRINT"MOEGLICHE STOERUNGEN SIND:"
2420 PRINT:PRINT
2430 PRINT"1.KRAFTSTOFFANLAGE"
2440 PRINT"2.VERGASERANLAGE"
2450 PRINT"3.ZUENDANLAGE"
2490 GOTO 8915
2500 PRINTCHR$(147)
2510 PRINT"MOEGLICHE STOERUNGEN SIND:"
2520 PRINT:PRINT
2530 PRINT"1.VERGASERANLAGE"
2540 PRINT"2.ANSAUGSYSTEM UNDICHT"
2590 GOTO 8915
2600 PRINTCHR$(147)
2610 PRINT"MOEGLICHE STOERUNGEN SIND:"
2620 PRINT:PRINT
2630 PRINT"1.VERGASERANLAGE"
2640 PRINT"2.ANSAUGSYSTEM UNDICHT"
2650 PRINT"3.STARTERANLAGE"
2680 GOTO 8915
2690 PRINTCHR$(147)
2700 PRINT"MOEGLICHE STOERUNGEN SIND:"
2710 PRINT:PRINT
2720 PRINT"1.KOMPRESSION ZU GERING"
2730 PRINT"2.VENTILSPIEL"
2740 PRINT"3.KRAFTSTOFFANLAGE"
2750 PRINT"4.VERGASERANLAGE"
2760 PRINT"5.ANSAUGSYSTEM UNDICHT"
2770 PRINT"6.ZUENDANLAGE"
2790 GOTO 8915
2800 PRINTCHR$(147)
2810 PRINT"MOEGLICHE STOERUNGEN SIND:"
2820 PRINT:PRINT
2830 PRINT"1.ZYLINDERKOPFDICHTUNG"
2840 PRINT"2.SCHWUNGSCHEIBE"
2850 PRINT"3.VERGASERANLAGE"
2860 PRINT"3.ZUENDANLAGE"
2890 GOTO 8915
2900 PRINTCHR$(147)
2910 PRINT"MOEGLICHE STOERUNGEN SIND:"
2920 PRINT:PRINT
2930 PRINT"1.KURBELTRIEB (KOLBEN)"
2940 PRINT"2.VENTILE"
2950 PRINT"3.VERGASERANLAGE"
2960 PRINT"4.ZUENDANLAGE"
2970 PRINT"5.KRAFTSTOFF"
2990 GOTO 8915
3000 PRINTCHR$(147)
3010 PRINT"MOEGLICHE STOERUNGEN SIND:"
3020 PRINT:PRINT
3030 PRINT"1.PLEUELLAGER"
3040 PRINT"2.KURBELWELLENLAGER"
3050 PRINT"3.VENTILE"
3060 PRINT"4.KRAFTSTOFF"
3070 PRINT"5.ZUENDANLAGE"
3090 GOTO 8915
3100 PRINTCHR$(147)
3110 PRINT"MOEGLICHE STOERUNGEN SIND:"
3120 PRINT:PRINT
3130 PRINT"1.KRAFTSTOFF"
3140 PRINT"2.ZUENDANLAGE"
3150 PRINT"3.GLUEHENDE RUECKSTAENDE IM BRENNRAUM"
3170 GOTO 8915
3180 PRINTCHR$(147)
3190 PRINT"MOEGLICHE STOERUNGEN SIND:"
3200 PRINT:PRINT
3210 PRINT"1.VERGASERANLAGE"
3220 PRINT"2.KUEHLANLAGE"
3230 PRINT"3.KRAFTSTOFF"
3240 PRINT"4.ZUENDANLAGE"
3250 PRINT"5.ANSAUGSYSTEM UNDICHT"
3280 GOTO 8915
3300 PRINTCHR$(147)
3310 REM SCHMIERANLAGE
3320 FOR I=1TO40:PRINT"[166]";:NEXT
3330 PRINT
3340 PRINT"MOTORDREHZAHL ZU GERING...............1"
3350 FOR I=1TO40:PRINT"[197]";:NEXT
3360 PRINT"MOTORTEMPERATUR ZU HOCH...............2"
3370 FOR I=1TO40:PRINT"[197]";:NEXT
3380 PRINT"MOTORLEISTUNG ZU GERING...............3"
3390 FOR I=1TO40:PRINT"[197]";:NEXT
3400 PRINT"SCHMIEROELVERLUST ZU HOCH.............4"
3410 FOR I=1TO40:PRINT"[197]";:NEXT
3420 PRINT"MOTOR LAEUFT LAUT.....................5"
3430 PRINT
3440 FOR I=1TO40:PRINT"[166]";:NEXT
3450 PRINT:PRINT
3460 PRINT"BITTE NUMMER EINGEBEN  "
3465 GET N$:IF N$="" THEN 3465
3470 IF N$="1" THEN GOTO 3540
3480 IF N$="2" THEN GOTO 3600
3490 IF N$="3" THEN GOTO 3730
3500 IF N$="4" THEN GOTO 3830
3510 IF N$="5" THEN GOTO 3930
3512 IF N$>"5"OR N$=" "THEN GOTO 3465
3540 PRINTCHR$(147)
3550 PRINT"MOEGLICHE STOERUNGEN SIND :"
3560 PRINT:PRINT
3570 PRINT"1.VISKOSITAET DES OELS ZU HOCH"
3571 PRINT"2.VERGASERANLAGE"
3572 PRINT"3.ZUENDANLAGE"
3580 GOTO 8915
3600 PRINTCHR$(147)
3610 PRINT"MOEGLICHE STOERUNGEN SIND :"
3620 PRINT:PRINT
3630 PRINT"1.SCHMIEROELMENGE ZU GERING"
3640 PRINT"2.UEBERDRUCKVENTIL DEFEKT"
3650 PRINT"3.OELDRUCKPUMPE DEFEKT"
3660 PRINT"4.OELSAUGPUMPE DEFEKT"
3670 PRINT"5.OELFILTER VERSTOPFT"
3680 PRINT"6.OELLEITUNG BZW.KANAELE VERSTOPFT"
3690 PRINT"7.OELKUEHLER VERSTOPFT"
3700 PRINT"8.KUEHLWASSERTHERMOSTAT DEFEKT"
3710 GOTO 8915
3730 PRINTCHR$(147)
3740 PRINT"MOEGLICHE STOERUNGEN SIND :"
3750 PRINT:PRINT
3760 PRINT"1.UEBERDRUCKVENTIL DEFEKT"
3770 PRINT"2.OELDRUCKPUMPE DEFEKT"
3780 PRINT"3.OELFILTER VERSTOPFT"
3790 PRINT"4.OELKUEHLER VERSTOPFT"
3800 PRINT"5.KUEHLWASSERTHERMOSTAT DEFEKT"
3810 GOTO 8915
3830 PRINTCHR$(147)
3840 PRINT"MOEGLICHE STOERUNGEN SIND :"
3850 PRINT:PRINT
3860 PRINT"1.ZYLINDERKOPFDICHTUNG DEFEKT"
3870 PRINT"2.SIMMERRING UNDICHT"
3880 PRINT"3.DICHTUNGEN UNDICHT"
3890 PRINT"4.VENTILSCHAFTDICHTUNGEN DEFEKT"
3900 PRINT"5.MOTORVERSCHLEISS"
3910 GOTO 8915
3930 PRINTCHR$(147)
3940 PRINT"MOEGLICHE STOERUNGEN SIND :"
3950 PRINT:PRINT
3960 PRINT"1.OELSAUGPUMPE DEFEKT"
3970 PRINT"2.OELDRUCKPUMPE DEFEKT"
3980 PRINT"3.MOTORVERSCHLEISS"
4000 GOTO 8915
4010 REM VERGASER
4020 PRINTCHR$(147)
4030 PRINT
4040 FOR I=1TO40:PRINT"[166]";:NEXT
4050 PRINT
4060 PRINT"KALTSTART SCHWIERIG ..................1"
4070 FOR I=1TO40:PRINT"[197]";:NEXT
4080 PRINT"WARMSTART SCHWIERIG...................2"
4090 FOR I=1TO40:PRINT"[197]";:NEXT
4100 PRINT"MOTOR BLEIBT NACH KALTSTART STEHEN....3"
4102 FOR I=1TO40:PRINT"[197]";:NEXT
4110 PRINT"BESCHLEUNIGUNG ZU GERING..............4"
4120 FOR I=1TO40:PRINT"[197]";:NEXT
4130 PRINT"KRAFTSTOFFVERBRAUCH ZU HOCH...........5"
4140 FOR I=1TO40:PRINT"[197]";:NEXT
4150 PRINT"MOTORTEMPERATUR ZU HOCH...............6"
4160 PRINT
4170 FOR I=1TO40:PRINT"[166]";:NEXT
4180 PRINT:PRINT
4190 PRINT"BITTE NUMMER EINGEBEN  "
4195 GET N$:IF N$="" THEN 4195
4200 IF N$="1" THEN GOTO 4280
4210 IF N$="2" THEN GOTO 4370
4220 IF N$="3" THEN GOTO 4450
4230 IF N$="4" THEN GOTO 4630
4240 IF N$="5" THEN GOTO 4530
4250 IF N$="6" THEN GOTO 4710
4260 IF N$>"6"OR N$=" "THEN GOTO 4195
4280 PRINTCHR$(147)
4300 PRINT"MOEGLICHE STOERUNGEN SIND :"
4310 PRINT:PRINT
4320 PRINT"1.EINSTELLUNG DER DROSSELKLAPPE"
4330 PRINT"2.STARTAUTOMATIK"
4340 PRINT"3.VISKOSITAET DES SCHMIEROELES ZU HOCH"
4360 GOTO 8915
4370 PRINTCHR$(147)
4390 PRINT"MOEGLICHE STOERUNGEN SIND :"
4400 PRINT:PRINT
4410 PRINT"UMSCHALTVENTIL FUER DIE SCHWIMMER-"
4420 PRINT"KAMMERBELUEFTUNG"
4440 GOTO 8915
4450 PRINTCHR$(147)
4470 PRINT"MOEGLICHE STOERUNGEN SIND :"
4480 PRINT:PRINT
4490 PRINT"1.EINSTELLUNG DER DROSSELKLAPPE"
4500 PRINT"2.VISKOSITAET DES SCHMIEROELES ZU HOCH"
4520 GOTO 8915
4530 PRINTCHR$(147)
4550 PRINT"MOEGLICHE STOERUNGEN SIND :"
4560 PRINT:PRINT
4570 PRINT"1.KRAFTSTOFFANLAGE"
4580 PRINT"2.STARTAUTOMATIK"
4590 PRINT"3.UNTERDRUCKKOLBEN KLEMMT"
4600 PRINT"4.LEERLAUFGEMISCHEINSTELLUNG"
4620 GOTO 8915
4630 PRINTCHR$(147)
4650 PRINT"MOEGLICHE STOERUNGEN SIND :"
4660 PRINT:PRINT
4670 PRINT"1.SCHMIEROELVISKOSITAET ZU HOCH"
4680 PRINT"2.SCHMIEROELMENGE ZU GERING"
4700 GOTO 8915
4710 PRINTCHR$(147)
4730 PRINT"MOEGLICHE STOERUNGEN SIND :"
4740 PRINT:PRINT
4750 PRINT"1.KRAFTSTOFFLUFTGEMISCH ZU MAGER"
4760 PRINT"2.ANSAUGKANAL UNDICHT"
4780 GOTO 8915
4790 REM EINSPRITZANLAGE
4800 PRINTCHR$(147)
4810 FOR I=1TO40:PRINT"[166]";:NEXT
4820 PRINT
4830 PRINT"START ERFOLGLOS.......................1"
4840 FOR I=1TO40:PRINT"[197]";:NEXT
4850 PRINT"KALTSTART SCHWIERIG...................2"
4860 FOR I=1TO40:PRINT"[197]";:NEXT
4870 PRINT"MOTOR BLEIBT PLOETZLICH STEHEN........3"
4880 FOR I=1TO40:PRINT"[197]";:NEXT
4890 PRINT"KRAFTSTOFFVERBRAUCH ZU HOCH...........4"
4900 FOR I=1TO40:PRINT"[197]";:NEXT
4910 PRINT"MOTORDREHZAHL SCHWANKEND..............5"
4920 FOR I=1TO40:PRINT"[197]";:NEXT
4930 PRINT"MOTORLEISTUNG ZU GERING...............6"
4940 FOR I=1TO40:PRINT"[197]";:NEXT
4950 PRINT"MOTORDREHZAHL ZU GERING...............7"
4970 PRINT
4980 FOR I=1TO40:PRINT"[166]";:NEXT
4990 PRINT:PRINT
5000 PRINT"BITTE NUMMER EINGEBEN  "
5005 GET N$:IF N$=""THEN 5005
5010 IF N$="1" THEN GOTO 5100
5020 IF N$="2" THEN GOTO 5240
5030 IF N$="3" THEN GOTO 5300
5040 IF N$="4" THEN GOTO 5440
5050 IF N$="5" THEN GOTO 5540
5060 IF N$="6" THEN GOTO 5630
5070 IF N$="7" THEN GOTO 5630
5080 IF N$>"7" OR N$=" "THEN GOTO 5005
5100 PRINTCHR$(147)
5110 PRINT"MOEGLICHE STOERUNGEN SIND :"
5120 PRINT:PRINT
5130 PRINT"A) STROMVERSORGUNG"
5140 PRINT"B) ZUENDANLAGE"
5150 PRINT"C) LEITUNGSNETZ"
5160 PRINT"D) EINSPRITZANLAGE"
5170 PRINT
5180 PRINT"D1.ELEKTRONISCHES STEUERGERAET"
5190 PRINT"D2.HAUPTRELAIS"
5200 PRINT"D3.KRAFTSTOFFPUMPENRELAIS"
5210 PRINT"D4.KRAFTSTOFFPUMPE"
5230 GOTO 8915
5240 PRINTCHR$(147)
5250 PRINT"MOEGLICHE STOERUNGEN SIND :"
5260 PRINT:PRINT
5270 PRINT"KALTSTARTVENTIL"
5290 GOTO 8915
5300 PRINTCHR$(147)
5310 PRINT"MOEGLICHE STOERUNGEN SIND :"
5320 PRINT:PRINT
5330 PRINT"A) ZUENDANLAGE"
5340 PRINT"B) LEITUNGSNETZ"
5350 PRINT"C) EINSPRITZANLAGE"
5360 PRINT
5370 PRINT"C1.ELEKTRONISCHES STEUERGERAET"
5380 PRINT"C2.HAUPTRELAIS"
5390 PRINT"C3.KRAFTSTOFFRELAIS"
5400 PRINT"C4.KRAFTSTOFFPUMPE"
5410 PRINT"C5.AUSLOESEKONTAKTE"
5430 GOTO 8915
5440 PRINTCHR$(147)
5450 PRINT"MOEGLICHE STOERUNGEN SIND :"
5460 PRINT:PRINT
5470 PRINT"A) ZUENDANLAGE"
5480 PRINT"B) EINSPRITZANLAGE"
5490 PRINT
5500 PRINT"B1.ELEKTRONISCHES STEUERGERAET"
5510 PRINT"B2.KRAFTSTOFFPUMPE"
5530 GOTO 8915
5540 PRINTCHR$(147)
5550 PRINT"MOEGLICHE STOERUNGEN SIND :"
5560 PRINT:PRINT
5570 PRINT"A) ZUENDANLAGE"
5580 PRINT"B) EINSPRITZANLAGE"
5590 PRINT
5600 PRINT"B1.EINSPRITZVENTILE"
5620 GOTO 8915
5630 PRINTCHR$(147)
5640 PRINT"MOEGLICHE STOERUNGEN SIND :"
5650 PRINT:PRINT
5660 PRINT"A) ZUENDANLAGE"
5670 PRINT"B) LEITUNGSNETZ"
5680 PRINT"C) EINSPRITZANLAGE"
5690 PRINT
5700 PRINT"C1.KRAFTSTOFFPUMPE"
5710 PRINT"C2.AUSLOESEKONTAKTE"
5720 PRINT"C3.TEMPERATUR IM SAUGROHR"
5730 PRINT"C4.DRUCK IM SAUGROHR"
5740 PRINT"C5.DROSSELKLAPPENSCHALTER"
5750 PRINT"C6.EINSPRITZVENTILE"
5770 GOTO 8915
5780 REM KUEHLANLAGE
5800 PRINTCHR$(147)
5810 FOR I=1TO40:PRINT"[166]";:NEXT
5820 PRINT
5830 PRINT"MOTORTEMPERATUR ZU HOCH...............1"
5840 FOR I=1TO40:PRINT"[197]";:NEXT
5850 PRINT"MOTORTEMPERATUR ZU GERING.............2"
5860 FOR I=1TO40:PRINT"[197]";:NEXT
5870 PRINT"KUEHLWASSER KOCHT.....................3"
5880 FOR I=1TO40:PRINT"[197]";:NEXT
5890 PRINT"BLASENBILDUNG IM KUEHLER..............4"
5900 FOR I=1TO40:PRINT"[197]";:NEXT
5910 PRINT"KUEHLWASSERVERLUST....................5"
5920 FOR I=1TO40:PRINT"[197]";:NEXT
5930 PRINT"KUEHLERGEBLAESE LAUFT NICHT...........6"
5940 FOR I=1TO40:PRINT"[197]";:NEXT
5950 PRINT"MOTORTEMPERATUR STEIGT ZU SCHNELL.....7"
5970 PRINT
5980 FOR I=1TO40:PRINT"[166]";:NEXT
5990 PRINT:PRINT
6000 PRINT"BITTE NUMMER EINGEBEN  "
6010 GET N$:IF N$="" THEN 6010
6020 IF N$="1" THEN GOTO 6110
6030 IF N$="2" THEN GOTO 6290
6040 IF N$="3" THEN GOTO 6350
6050 IF N$="4" THEN GOTO 6430
6060 IF N$="5" THEN GOTO 6500
6070 IF N$="6" THEN GOTO 6610
6080 IF N$="7" THEN GOTO 6710
6090 IF N$>"7"OR N$=" "THEN GOTO 6010
6110 PRINTCHR$(147)
6120 PRINT"MOEGLICHE STOERUNGEN SIND :"
6130 PRINT:PRINT
6140 PRINT"A) ZUENDANLAGE"
6150 PRINT"B) VERGASERANLAGE"
6160 PRINT"C) KUEHLANLAGE"
6170 PRINT
6180 PRINT"C1.KUEHLWASSER ZU WENIG"
6190 PRINT"C2.THERMOSTAT"
6200 PRINT"C3.WASSERPUMPE"
6210 PRINT"C4.KEILRIEMEN"
6220 PRINT"C5.LUEFTER"
6230 PRINT"C6.UEBERDRUCKVENTIL"
6240 PRINT"C7.KUEHLER"
6250 PRINT"C8.KUEHLERVERSCHLUSS"
6260 PRINT"C9.FAHRWEISE FALSCH"
6280 GOTO 8915
6290 PRINTCHR$(147)
6300 PRINT"MOEGLICHE STOERUNGEN SIND :"
6310 PRINT:PRINT
6320 PRINT"THERMOSTAT"
6340 GOTO 8915
6350 PRINTCHR$(147)
6360 PRINT"MOEGLICHE STOERUNGEN SIND :"
6370 PRINT:PRINT
6380 PRINT"1.KUELWASSERMENGE ZU GERING"
6390 PRINT"2.THERMOSTAT"
6400 PRINT"3.FALSCHE FAHRWEISE"
6420 GOTO 8915
6430 PRINTCHR$(147)
6440 PRINT"MOEGLICHE STOERUNGEN SIND :"
6450 PRINT:PRINT
6460 PRINT"1.ZYLINDERKOPFDICHTUNG"
6470 PRINT"2.RISS IM ZYLINDERKOPF"
6490 GOTO 8915
6500 PRINTCHR$(147)
6510 PRINT:PRINT
6520 PRINT"A) MOTOR"
6530 PRINT"B) KUEHLANLAGE"
6540 PRINT
6550 PRINT"B1.WASSERPUMPE"
6560 PRINT"B2.KUEHLER"
6570 PRINT"B3.UEBERDRUCKVENTIL"
6580 PRINT"B4.LEITUNGSSYSTEM"
6600 GOTO 8915
6610 PRINTCHR$(147)
6620 PRINT"MOEGLICHE STOERUNGEN SIND :"
6630 PRINT:PRINT
6640 PRINT"1.TEMPERATURWAECHTER"
6650 PRINT"2.RELAIS"
6660 PRINT"3.KUEHLERGEBLAESE"
6670 PRINT"4.LEITUNGSNETZ"
6680 PRINT"5.NOTWENDIGE TEMPERATUR NICHT ERREICHT"
6700 GOTO 8915
6710 PRINTCHR$(147)
6720 PRINT"MOEGLICHE STOERUNGEN SIND :"
6730 PRINT:PRINT
6740 PRINT"1.KUEHLWASSERMENGE ZU GERING"
6750 PRINT"2.KUEHLWASSER GEFROREN"
6770 GOTO 8915
6780 REM KONTAKTZUENDUNG
6790 PRINTCHR$(147)
6800 FOR I=1TO40:PRINT"[166]";:NEXT
6810 PRINT
6820 PRINT"MOTOR SPRINGT NICHT AN................1"
6830 FOR I=1TO40:PRINT"[197]";:NEXT
6840 PRINT"AUSSETZER BEIM BESCHLEUNIGEN..........2"
6850 FOR I=1TO40:PRINT"[197]";:NEXT
6860 PRINT"HOECHSTGESCHWINDIGKEIT ZU GERING......3"
6870 FOR I=1TO40:PRINT"[197]";:NEXT
6880 PRINT"KEINE ZUENDUNG........................4"
6890 FOR I=1TO40:PRINT"[197]";:NEXT
6900 PRINT"SCHWACHER ZUENDFUNKE..................5"
6910 FOR I=1TO40:PRINT"[197]";:NEXT
6920 PRINT"AUSSETZENDER ZUENDFUNKE...............6"
6940 PRINT
6950 FOR I=1TO40:PRINT"[166]";:NEXT
6960 PRINT:PRINT
6970 PRINT"BITTE NUMMER EINGEBEN  "
6975 GET N$:IF N$="" THEN 6975
6980 IF N$="1" THEN GOTO 7060
6990 IF N$="2" THEN GOTO 7220
7000 IF N$="3" THEN GOTO 7380
7010 IF N$="4" THEN GOTO 7520
7020 IF N$="5" THEN GOTO 7660
7030 IF N$="6" THEN GOTO 7780
7040 IF N$>"6"OR N$=" "THEN GOTO 6975
7060 PRINTCHR$(147)
7070 PRINT"MOEGLICHE STOERUNGEN SIND :"
7080 PRINT:PRINT
7090 PRINT"A) STROMVERSORGUNG"
7100 PRINT"B) LEITUNGSNETZ"
7110 PRINT"C) ZUENDANLAGE"
7120 PRINT
7130 PRINT"C1.ZUENDSPULE"
7140 PRINT"C2.UNTERBRECHER"
7150 PRINT"C3.KONDENSATOR"
7160 PRINT"C4.ENTSTOERWIDERSTAENDE"
7170 PRINT"C5.ZUENDKERZEN"
7180 PRINT"C6.ZUENDEINSTELLUNG"
7190 PRINT"C7.ZUENDVERTEILER"
7210 GOTO 8915
7220 PRINTCHR$(147)
7230 PRINT"MOEGLICHE STOERUNGEN SIND :"
7240 PRINT:PRINT
7250 PRINT"A) LEITUNGSNETZ"
7260 PRINT"B) ZUENDANLAGE"
7270 PRINT
7280 PRINT"B1.ZUENDSPULE"
7290 PRINT"B2.UNTERBRECHER"
7300 PRINT"B3.KONDENSATOR"
7310 PRINT"B4.ZUENDKERZEN"
7320 PRINT"B5.ZUENDEINSTELLUNG"
7330 PRINT"B6.ZUENDVERTEILER"
7340 PRINT"B7.UNTERDRUCKVERSTELLER"
7350 PRINT"B8.FLIEHKRAFTVERSTELLER"
7370 GOTO 8915
7380 PRINTCHR$(147)
7390 PRINT"MOEGLICHE STOERUNGEN SIND :"
7400 PRINT:PRINT
7410 PRINT"A) LEITUNGSNETZ"
7420 PRINT"B) MOTOR"
7425 PRINT"C) ZUENDANLAGE"
7430 PRINT
7440 PRINT"C1.UNTERBRECHER"
7450 PRINT"C2.ENTSTOERWIDERSTAENDE"
7460 PRINT"C3.ZUENDKERZEN"
7470 PRINT"C4.ZUENDEINSTELLUNG"
7480 PRINT"C5.ZUENDVERTEILER"
7490 PRINT"C6.FLIEHKRAFTVERSTELLER"
7510 GOTO 8915
7520 PRINTCHR$(147)
7530 PRINT"MOEGLICHE STOERUNGEN SIND :"
7540 PRINT:PRINT
7550 PRINT"A) STROMVERSORGUNG"
7560 PRINT"B) LEITUNGSNETZ"
7570 PRINT"C) ZUENDANLAGE"
7580 PRINT
7590 PRINT"C1.ZUEND-ANLASSSCHALTER"
7600 PRINT"C2.ZUENDSPULE"
7610 PRINT"C3.UNTERBRECHER"
7620 PRINT"C4.KONDENSATOR"
7630 PRINT"C5.ENTSTOERWIDERSTAENDE"
7650 GOTO 8915
7660 PRINTCHR$(147)
7670 PRINT"MOEGLICHE STOERUNGEN SIND :"
7680 PRINT:PRINT
7690 PRINT"A) STROMVERSORGUNG"
7700 PRINT"B) LEITUNGSNETZ"
7710 PRINT"C) ZUENDANLAGE"
7720 PRINT
7730 PRINT"C1.ZUENDSPULE"
7740 PRINT"C2.ZUENDKERZEN"
7750 PRINT"C3.ZUENDVERTEILER"
7770 GOTO 8915
7780 PRINTCHR$(147)
7790 PRINT"MOEGLICHE STOERUNGEN SIND :"
7800 PRINT:PRINT
7810 PRINT"A) LEITUNGSNETZ"
7820 PRINT"B) ZUENDANLAGE"
7830 PRINT
7840 PRINT"B1.UNTERBRECHER"
7850 PRINT"B2.ZUENDVERTEILER"
7870 GOTO 8915
7880 REM ELEKTRONISCHE ZUENDUNG
7890 PRINTCHR$(147)
7900 FOR I=1TO40:PRINT"[166]";:NEXT                                 
7910 PRINT
7920 PRINT"MOTOR SPRINGT NICHT AN................1"
7930 FOR I=1TO40:PRINT"[197]";:NEXT                                 
7940 PRINT"MOTORAUSSETZER BEIM BESCHLEUNIGEN.....2"
7950 FOR I=1TO40:PRINT"[197]";:NEXT                                 
7960 PRINT"HOECHSTGESCHWINDIGKEIT ZU GERING......3"
7970 FOR I=1TO40:PRINT"[197]";:NEXT                                 
7980 PRINT"KEINE ZUENDUNG........................4"
7990 FOR I=1TO40:PRINT"[197]";:NEXT                                 
8000 PRINT"SCHWACHER ZUENDFUNKE..................5"
8010 FOR I=1TO40:PRINT"[197]";:NEXT                                 
8020 PRINT"AUSSETZENDER ZUENDFUNKE...............6"
8030 FOR I=1TO40:PRINT"[197]";:NEXT
8040 PRINT"KRAFTSTOFFVERBRAUCH ZU HOCH...........7"
8060 PRINT
8070 FOR I=1TO40:PRINT"[166]";:NEXT
8080 PRINT:PRINT
8090 PRINT"BITTE NUMMER EINGEBEN  "
8095 GET N$:IF N$="" THEN 8095
8100 IF N$="1" THEN GOTO 8190
8110 IF N$="2" THEN GOTO 8360
8120 IF N$="3" THEN GOTO 8470
8130 IF N$="4" THEN GOTO 8190
8140 IF N$="5" THEN GOTO 8610
8150 IF N$="6" THEN GOTO 8730
8160 IF N$="7" THEN GOTO 8820
8170 IF N$>"7" THEN GOTO 8090
8190 PRINT CHR$(147)
8200 PRINT"MOEGLICHE STOERUNGEN SIND :"
8210 PRINT:PRINT
8220 PRINT"A) STROMVERSORGUNG"
8230 PRINT"B) LEITUNGSNETZ"
8240 PRINT"C) ZUENDANLAGE"
8250 PRINT
8260 PRINT"C1.ZUENDANLASSSCHALTER"
8270 PRINT"C2.ZUENDSPULE"
8280 PRINT"C3.IMPULSGEBER"
8290 PRINT"C4.TOTPUNKTMARKENGEBER"
8300 PRINT"C5.SCHALTWERK"
8310 PRINT"C6.ENTSTOERWIDERSTAENDE"
8320 PRINT"C7.ZUENDKERZEN"
8330 PRINT"C8.ZUENDVERTEILER"
8350 GOTO 8915
8360 PRINTCHR$(147)
8370 PRINT"MOEGLICHE STOERUNGEN SIND :"
8380 PRINT:PRINT
8390 PRINT"A) LEITUNGSNETZ"
8400 PRINT"B) ZUENDANLAGE"
8410 PRINT
8420 PRINT"B1.ZUENDSPULE"
8430 PRINT"B2.ZUENDKERZEN"
8440 PRINT"B3.ZUENDVERTEILER"
8460 GOTO 8915
8470 PRINTCHR$(147)
8480 PRINT"MOEGLICHE STOERUNGEN SIND :"
8490 PRINT:PRINT
8500 PRINT"A) MOTOR"
8510 PRINT"B) LEITUNGSNETZ"
8520 PRINT"C) KUEHLANLAGE"
8530 PRINT"D) ZUENDANLAGE"
8540 PRINT
8550 PRINT"D1.MESSWERTGEBER"
8560 PRINT"D2.SCHALTGERAET"
8570 PRINT"D3.ENTSTOERWIDERSTAENDE"
8580 PRINT"D4.ZUENDVERTEILER"
8600 GOTO 8915
8610 PRINTCHR$(147)
8620 PRINT"MOEGLICHE STOERUNGEN SIND :"
8630 PRINT:PRINT
8640 PRINT"A) STROMVERSORGUNG"
8650 PRINT"B) LEITUNGSNETZ"
8660 PRINT"C) ZUENDANLAGE"
8670 PRINT
8680 PRINT"C1.ZUENDSPULE"
8690 PRINT"C2.ZUENDKERZEN"
8700 PRINT"C3.ZUENDVERTEILER"
8720 GOTO 8915
8730 PRINTCHR$(147)
8740 PRINT"MOEGLICHE STOERUNGEN SIND :"
8750 PRINT:PRINT
8760 PRINT"A) LEITUNGSNETZ"
8770 PRINT"B) ZUENDANLAGE"
8780 PRINT
8790 PRINT"B1.ZUENDVERTEILER"
8810 GOTO 8915
8820 PRINTCHR$(147)
8830 PRINT"MOEGLICHE STOERUNGEN SIND :"
8840 PRINT:PRINT
8850 PRINT"A) VERGASERANLAGE"
8860 PRINT"B) ZUENDANLAGE"
8870 PRINT
8880 PRINT"B1.MESSWERTGEBER"
8890 PRINT"B2.SCHALTGERAET"
8910 GOTO 8915
8915 PRINT:PRINT
8920 PRINT"NOCH EINE DIAGNOSE ?(J/N)"
8930 GET N$:IF N$="" THEN 8930
8940 IF N$="J" THEN GOTO 140
8950 IF N$="N" THEN GOTO 9010
9000 IF N$=" " THEN GOTO 8930
9010 PRINTCHR$(147)
9020 PRINT:PRINT:PRINT
9030 PRINT"VIEL ERFOLG BEI DER REPARATUR!"
9040 FOR I=1 TO1200:NEXT
9050 SYS 49152
9060 END