home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 42 / Commodore_Disc_42_19xx_-_de.d64 / stoerfalldiagn. (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  19KB  |  800 lines
  1. 90 rem  *****************************
  2. 100 rem * stoerfalldiagnose am auto *
  3. 110 rem *          von              *
  4. 120 rem *       m.bilawa  02.1990   *
  5. 130 rem *****************************
  6. 140 printchr$(147)
  7. 150 poke 53280,0:poke 53281,0
  8. 170 poke199,1:print"      stoerfalliagnose am auto          "
  9. 180 for i=1 to40:print"[197]";:next
  10. 185 poke199,1:print"           von m.bilawa                 "
  11. 190 print:print:print:print
  12. 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]"
  13. 200 print"   [180]elektrische anlage...........1[170]"
  14. 210 print"   [180]motor........................2[170]"
  15. 220 print"   [180]schmieranlage................3[170]"
  16. 230 print"   [180]vergaseranlage...............4[170]"
  17. 240 print"   [180]einspritzanlage..............5[170]"
  18. 250 print"   [180]kuehlanlage..................6[170]"
  19. 260 print"   [180]zuendanlage (kontakte).......7[170]"
  20. 265 print"   [180]zuendanlage (elektronisch)...8[170]"
  21. 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]"
  22. 270 print:print:print
  23. 280 print"    bitte nummer eingeben (1-8)"
  24. 300 get n$:if n$="" then 300
  25. 310 if n$="1" then goto 550
  26. 320 if n$="2" then goto 1500
  27. 330 if n$="3" then goto 3300
  28. 340 if n$="4" then goto 4010
  29. 350 if n$="5" then goto 4790
  30. 360 if n$="6" then goto 5780
  31. 370 if n$="7" then goto 6780
  32. 375 if n$="8" then goto 7880
  33. 376 if n$>"8" or n$=" " then goto 300
  34. 550 printchr$(147)
  35. 552 print:print
  36. 554 for i=1to40:print"[166]";:next
  37. 556 print
  38. 570 print"ladeleuchte brennt bei eingeschalteter"
  39. 580 print"zuendung nicht.......................1"
  40. 582 for i=1to40:print"[197]";:next
  41. 590 print"ladeleuchte brennt bei hoher drehzahl"
  42. 600 print"nicht................................2"
  43. 602 for i=1to40:print"[197]";:next
  44. 610 print"lampe erlischt bei kleiner und glimmt"
  45. 620 print"bei hoher drehzahl...................3"
  46. 622 for i=1to40:print"[197]";:next
  47. 630 print"lampe glimmt wenn verbraucher eingesch-"
  48. 640 print"altet werden.........................4"
  49. 642 for i=1to40:print"[197]";:next
  50. 643 print"batterieladung zu gering.............5"
  51. 644 for i=1to40:print"[197]";:next
  52. 650 print"lampe flackert.......................6"
  53. 652 for i=1to40:print"[197]";:next
  54. 656 for i=1to40:print"[166]";:next
  55. 660 print
  56. 670 print"bitte nummer eigeben     "
  57. 680 get n$:if n$="" then 680
  58. 700 if n$="1"then goto 780
  59. 710 if n$="2"then goto 880
  60. 720 if n$="3"then goto 1000
  61. 730 if n$="4"then goto 1100
  62. 735 if n$="5" then goto 1300
  63. 740 if n$="6"then goto 1200
  64. 750 if n$>"6"or n$=" "then goto 680
  65. 780 printchr$(147)
  66. 800 print"moegliche stoerungen sind:"
  67. 802 print:print
  68. 810 print"1.batteriespannung zu schwach"
  69. 820 print"2.batterie defekt"
  70. 830 print"3.gluehlampe defekt"
  71. 840 print"4.zuend-anlasschalter defekt"
  72. 850 print"5.regler defekt"
  73. 860 print"6.leitungsunterbrechung"
  74. 862 goto 8915
  75. 880 printchr$(147)
  76. 890 print"moegliche stoerungen sind:"
  77. 892 print:print
  78. 900 print"1.ladespannung zu niedrig"
  79. 910 print"2.lichtmaschiene defekt"
  80. 920 print"3.regler defekt"
  81. 930 print"4.keilriemen lose oder gerissen"
  82. 940 print"5.leitungsunterbrechung"
  83. 950 print"6.uebergangswiderstand zu gross"
  84. 960 print"7.masseschluss"
  85. 962 goto 8915
  86. 1000 printchr$(147)
  87. 1020 print"moegliche stoerungen sind:"
  88. 1030 print:print
  89. 1040 print"1.regelereinstellung"
  90. 1050 print"2.uebergangswiderstand zu gross"
  91. 1060 goto 8915
  92. 1100 printchr$(147)
  93. 1110 print"moegliche stoerungen sind:"
  94. 1120 print:print
  95. 1130 print"1.verbraucherleistung zu hoch"
  96. 1140 print"2.uebertragungswiderstand zu hoch"
  97. 1150 goto 8915
  98. 1200 printchr$(147)
  99. 1210 print"moegliche stoerungen sind:"
  100. 1220 print:print
  101. 1230 print"1.keilriemen gerissen"
  102. 1240 print"2.wackelkontakt"
  103. 1250 goto 8915
  104. 1300 printchr$(147)
  105. 1310 print"moegliche stoerungen sind:"
  106. 1320 print:print
  107. 1330 print"1.windungsschluss der lichtmaschine"
  108. 1340 print"2.kollektor defekt"
  109. 1350 print"3.batterie defekt"
  110. 1360 print"4.lichtmaschine defekt"
  111. 1370 print"5.buersten verschlissen"
  112. 1380 print"6.regler defekt"
  113. 1390 print"7.keilriemen lose"
  114. 1400 print"8.leitungsunterbrechung"
  115. 1410 print"9.masseschluss"
  116. 1430 goto 8915
  117. 1500 printchr$(147)
  118. 1510 for i=1to40:print"[166]";:next
  119. 1520 print
  120. 1530 print"motorstart erfolglos.................1"
  121. 1540 for i=1to40:print"[197]";:next
  122. 1550 print"motor springt kalt schlecht an.......2"
  123. 1560 for i=1to40:print"[197]";:next
  124. 1570 print"motor springt warm schlecht an.......3"
  125. 1580 for i=1to40:print"[197]";:next
  126. 1590 print"motor stirbt beim beschleunigen......4"
  127. 1600 for i=1to40:print"[197]";:next
  128. 1610 print"motor stirbt beim bremsen ...........5"
  129. 1620 for i=1to40:print"[197]";:next
  130. 1630 print"motor stirbt im leerlauf ............6"
  131. 1640 for i=1to40:print"[197]";:next
  132. 1650 print"beschleunigung ungenuegend ..........7"
  133. 1660 print
  134. 1670 for i=1to40:print"[166]";:next
  135. 1680 print
  136. 1690 print"bitte nummer eingeben"
  137. 1692 print"oder 'w' fuer weiter"
  138. 1693 print"[197][197][197][197]"
  139. 1695 get n$:if n$="" then 1695
  140. 1700 if n$="w" then goto 1800
  141. 1710 if n$="1" then goto 2090
  142. 1720 if n$="2" then goto 2190
  143. 1730 if n$="3" then goto 2300
  144. 1740 if n$="4" then goto 2400
  145. 1750 if n$="5" then goto 2500
  146. 1760 if n$="6" then goto 2600
  147. 1770 if n$="7" then goto 2690
  148. 1772 if n$>"7"or n$=" "then goto 1695
  149. 1800 printchr$(147)
  150. 1810 for i=1to40:print"[166]";:next
  151. 1820 print
  152. 1830 print"leistung schwankend .................8"
  153. 1840 for i=1to40:print"[197]";:next
  154. 1850 print"kraftstoffverbrauch zu hoch .........9"
  155. 1860 for i=1to40:print"[197]";:next
  156. 1890 print"motor klopft ........................a"
  157. 1900 for i=1to40:print"[197]";:next
  158. 1910 print"motor klingelt ......................b"
  159. 1920 for i=1to40:print"[197]";:next
  160. 1930 print"bleibt ploetzlich stehen ............c"
  161. 1940 print
  162. 1950 for i=1to40:print"[166]";:next
  163. 1960 print
  164. 1990 print"bitte nummer eingeben"
  165. 2000 print"oder 'z' fuer zurueck"
  166. 2002 print"[197][197][197][197]"
  167. 2005 get n$:if n$="" then 2005
  168. 2010 if n$="z"then goto 1500
  169. 2020 if n$="8"then goto 2800
  170. 2030 if n$="9"then goto 2900
  171. 2050 if n$="a"then goto 3000
  172. 2060 if n$="b"then goto 3100
  173. 2070 if n$="c"then goto 3180
  174. 2072 if n$=" " then goto 2005
  175. 2090 printchr$(147)
  176. 2100 print"moegliche stoerunen sind:"
  177. 2110 print:print
  178. 2120 print"1.kraftstoffanlage"
  179. 2130 print"2.vergaseranlage"
  180. 2140 print"3.startanlage"
  181. 2150 print"4.zuendanlage"
  182. 2180 goto 8915
  183. 2190 printchr$(147)
  184. 2200 print"moegliche stoerungen sind:"
  185. 2210 print:print
  186. 2220 print"1.batterieladung zu gering"
  187. 2230 print"2.zuendanlage"
  188. 2240 print"3.anlasser"
  189. 2250 print"4.vergaseranlage"
  190. 2260 print"5.spannungsverlust zu hoch"
  191. 2290 goto 8915
  192. 2300 printchr$(147)
  193. 2310 print"moegliche stoerungen sind:"
  194. 2320 print:print
  195. 2330 print"1.magnetschalter"
  196. 2340 print"2.vergaseranlage"
  197. 2390 goto 8915
  198. 2400 printchr$(147)
  199. 2410 print"moegliche stoerungen sind:"
  200. 2420 print:print
  201. 2430 print"1.kraftstoffanlage"
  202. 2440 print"2.vergaseranlage"
  203. 2450 print"3.zuendanlage"
  204. 2490 goto 8915
  205. 2500 printchr$(147)
  206. 2510 print"moegliche stoerungen sind:"
  207. 2520 print:print
  208. 2530 print"1.vergaseranlage"
  209. 2540 print"2.ansaugsystem undicht"
  210. 2590 goto 8915
  211. 2600 printchr$(147)
  212. 2610 print"moegliche stoerungen sind:"
  213. 2620 print:print
  214. 2630 print"1.vergaseranlage"
  215. 2640 print"2.ansaugsystem undicht"
  216. 2650 print"3.starteranlage"
  217. 2680 goto 8915
  218. 2690 printchr$(147)
  219. 2700 print"moegliche stoerungen sind:"
  220. 2710 print:print
  221. 2720 print"1.kompression zu gering"
  222. 2730 print"2.ventilspiel"
  223. 2740 print"3.kraftstoffanlage"
  224. 2750 print"4.vergaseranlage"
  225. 2760 print"5.ansaugsystem undicht"
  226. 2770 print"6.zuendanlage"
  227. 2790 goto 8915
  228. 2800 printchr$(147)
  229. 2810 print"moegliche stoerungen sind:"
  230. 2820 print:print
  231. 2830 print"1.zylinderkopfdichtung"
  232. 2840 print"2.schwungscheibe"
  233. 2850 print"3.vergaseranlage"
  234. 2860 print"3.zuendanlage"
  235. 2890 goto 8915
  236. 2900 printchr$(147)
  237. 2910 print"moegliche stoerungen sind:"
  238. 2920 print:print
  239. 2930 print"1.kurbeltrieb (kolben)"
  240. 2940 print"2.ventile"
  241. 2950 print"3.vergaseranlage"
  242. 2960 print"4.zuendanlage"
  243. 2970 print"5.kraftstoff"
  244. 2990 goto 8915
  245. 3000 printchr$(147)
  246. 3010 print"moegliche stoerungen sind:"
  247. 3020 print:print
  248. 3030 print"1.pleuellager"
  249. 3040 print"2.kurbelwellenlager"
  250. 3050 print"3.ventile"
  251. 3060 print"4.kraftstoff"
  252. 3070 print"5.zuendanlage"
  253. 3090 goto 8915
  254. 3100 printchr$(147)
  255. 3110 print"moegliche stoerungen sind:"
  256. 3120 print:print
  257. 3130 print"1.kraftstoff"
  258. 3140 print"2.zuendanlage"
  259. 3150 print"3.gluehende rueckstaende im brennraum"
  260. 3170 goto 8915
  261. 3180 printchr$(147)
  262. 3190 print"moegliche stoerungen sind:"
  263. 3200 print:print
  264. 3210 print"1.vergaseranlage"
  265. 3220 print"2.kuehlanlage"
  266. 3230 print"3.kraftstoff"
  267. 3240 print"4.zuendanlage"
  268. 3250 print"5.ansaugsystem undicht"
  269. 3280 goto 8915
  270. 3300 printchr$(147)
  271. 3310 rem schmieranlage
  272. 3320 for i=1to40:print"[166]";:next
  273. 3330 print
  274. 3340 print"motordrehzahl zu gering...............1"
  275. 3350 for i=1to40:print"[197]";:next
  276. 3360 print"motortemperatur zu hoch...............2"
  277. 3370 for i=1to40:print"[197]";:next
  278. 3380 print"motorleistung zu gering...............3"
  279. 3390 for i=1to40:print"[197]";:next
  280. 3400 print"schmieroelverlust zu hoch.............4"
  281. 3410 for i=1to40:print"[197]";:next
  282. 3420 print"motor laeuft laut.....................5"
  283. 3430 print
  284. 3440 for i=1to40:print"[166]";:next
  285. 3450 print:print
  286. 3460 print"bitte nummer eingeben  "
  287. 3465 get n$:if n$="" then 3465
  288. 3470 if n$="1" then goto 3540
  289. 3480 if n$="2" then goto 3600
  290. 3490 if n$="3" then goto 3730
  291. 3500 if n$="4" then goto 3830
  292. 3510 if n$="5" then goto 3930
  293. 3512 if n$>"5"or n$=" "then goto 3465
  294. 3540 printchr$(147)
  295. 3550 print"moegliche stoerungen sind :"
  296. 3560 print:print
  297. 3570 print"1.viskositaet des oels zu hoch"
  298. 3571 print"2.vergaseranlage"
  299. 3572 print"3.zuendanlage"
  300. 3580 goto 8915
  301. 3600 printchr$(147)
  302. 3610 print"moegliche stoerungen sind :"
  303. 3620 print:print
  304. 3630 print"1.schmieroelmenge zu gering"
  305. 3640 print"2.ueberdruckventil defekt"
  306. 3650 print"3.oeldruckpumpe defekt"
  307. 3660 print"4.oelsaugpumpe defekt"
  308. 3670 print"5.oelfilter verstopft"
  309. 3680 print"6.oelleitung bzw.kanaele verstopft"
  310. 3690 print"7.oelkuehler verstopft"
  311. 3700 print"8.kuehlwasserthermostat defekt"
  312. 3710 goto 8915
  313. 3730 printchr$(147)
  314. 3740 print"moegliche stoerungen sind :"
  315. 3750 print:print
  316. 3760 print"1.ueberdruckventil defekt"
  317. 3770 print"2.oeldruckpumpe defekt"
  318. 3780 print"3.oelfilter verstopft"
  319. 3790 print"4.oelkuehler verstopft"
  320. 3800 print"5.kuehlwasserthermostat defekt"
  321. 3810 goto 8915
  322. 3830 printchr$(147)
  323. 3840 print"moegliche stoerungen sind :"
  324. 3850 print:print
  325. 3860 print"1.zylinderkopfdichtung defekt"
  326. 3870 print"2.simmerring undicht"
  327. 3880 print"3.dichtungen undicht"
  328. 3890 print"4.ventilschaftdichtungen defekt"
  329. 3900 print"5.motorverschleiss"
  330. 3910 goto 8915
  331. 3930 printchr$(147)
  332. 3940 print"moegliche stoerungen sind :"
  333. 3950 print:print
  334. 3960 print"1.oelsaugpumpe defekt"
  335. 3970 print"2.oeldruckpumpe defekt"
  336. 3980 print"3.motorverschleiss"
  337. 4000 goto 8915
  338. 4010 rem vergaser
  339. 4020 printchr$(147)
  340. 4030 print
  341. 4040 for i=1to40:print"[166]";:next
  342. 4050 print
  343. 4060 print"kaltstart schwierig ..................1"
  344. 4070 for i=1to40:print"[197]";:next
  345. 4080 print"warmstart schwierig...................2"
  346. 4090 for i=1to40:print"[197]";:next
  347. 4100 print"motor bleibt nach kaltstart stehen....3"
  348. 4102 for i=1to40:print"[197]";:next
  349. 4110 print"beschleunigung zu gering..............4"
  350. 4120 for i=1to40:print"[197]";:next
  351. 4130 print"kraftstoffverbrauch zu hoch...........5"
  352. 4140 for i=1to40:print"[197]";:next
  353. 4150 print"motortemperatur zu hoch...............6"
  354. 4160 print
  355. 4170 for i=1to40:print"[166]";:next
  356. 4180 print:print
  357. 4190 print"bitte nummer eingeben  "
  358. 4195 get n$:if n$="" then 4195
  359. 4200 if n$="1" then goto 4280
  360. 4210 if n$="2" then goto 4370
  361. 4220 if n$="3" then goto 4450
  362. 4230 if n$="4" then goto 4630
  363. 4240 if n$="5" then goto 4530
  364. 4250 if n$="6" then goto 4710
  365. 4260 if n$>"6"or n$=" "then goto 4195
  366. 4280 printchr$(147)
  367. 4300 print"moegliche stoerungen sind :"
  368. 4310 print:print
  369. 4320 print"1.einstellung der drosselklappe"
  370. 4330 print"2.startautomatik"
  371. 4340 print"3.viskositaet des schmieroeles zu hoch"
  372. 4360 goto 8915
  373. 4370 printchr$(147)
  374. 4390 print"moegliche stoerungen sind :"
  375. 4400 print:print
  376. 4410 print"umschaltventil fuer die schwimmer-"
  377. 4420 print"kammerbelueftung"
  378. 4440 goto 8915
  379. 4450 printchr$(147)
  380. 4470 print"moegliche stoerungen sind :"
  381. 4480 print:print
  382. 4490 print"1.einstellung der drosselklappe"
  383. 4500 print"2.viskositaet des schmieroeles zu hoch"
  384. 4520 goto 8915
  385. 4530 printchr$(147)
  386. 4550 print"moegliche stoerungen sind :"
  387. 4560 print:print
  388. 4570 print"1.kraftstoffanlage"
  389. 4580 print"2.startautomatik"
  390. 4590 print"3.unterdruckkolben klemmt"
  391. 4600 print"4.leerlaufgemischeinstellung"
  392. 4620 goto 8915
  393. 4630 printchr$(147)
  394. 4650 print"moegliche stoerungen sind :"
  395. 4660 print:print
  396. 4670 print"1.schmieroelviskositaet zu hoch"
  397. 4680 print"2.schmieroelmenge zu gering"
  398. 4700 goto 8915
  399. 4710 printchr$(147)
  400. 4730 print"moegliche stoerungen sind :"
  401. 4740 print:print
  402. 4750 print"1.kraftstoffluftgemisch zu mager"
  403. 4760 print"2.ansaugkanal undicht"
  404. 4780 goto 8915
  405. 4790 rem einspritzanlage
  406. 4800 printchr$(147)
  407. 4810 for i=1to40:print"[166]";:next
  408. 4820 print
  409. 4830 print"start erfolglos.......................1"
  410. 4840 for i=1to40:print"[197]";:next
  411. 4850 print"kaltstart schwierig...................2"
  412. 4860 for i=1to40:print"[197]";:next
  413. 4870 print"motor bleibt ploetzlich stehen........3"
  414. 4880 for i=1to40:print"[197]";:next
  415. 4890 print"kraftstoffverbrauch zu hoch...........4"
  416. 4900 for i=1to40:print"[197]";:next
  417. 4910 print"motordrehzahl schwankend..............5"
  418. 4920 for i=1to40:print"[197]";:next
  419. 4930 print"motorleistung zu gering...............6"
  420. 4940 for i=1to40:print"[197]";:next
  421. 4950 print"motordrehzahl zu gering...............7"
  422. 4970 print
  423. 4980 for i=1to40:print"[166]";:next
  424. 4990 print:print
  425. 5000 print"bitte nummer eingeben  "
  426. 5005 get n$:if n$=""then 5005
  427. 5010 if n$="1" then goto 5100
  428. 5020 if n$="2" then goto 5240
  429. 5030 if n$="3" then goto 5300
  430. 5040 if n$="4" then goto 5440
  431. 5050 if n$="5" then goto 5540
  432. 5060 if n$="6" then goto 5630
  433. 5070 if n$="7" then goto 5630
  434. 5080 if n$>"7" or n$=" "then goto 5005
  435. 5100 printchr$(147)
  436. 5110 print"moegliche stoerungen sind :"
  437. 5120 print:print
  438. 5130 print"a) stromversorgung"
  439. 5140 print"b) zuendanlage"
  440. 5150 print"c) leitungsnetz"
  441. 5160 print"d) einspritzanlage"
  442. 5170 print
  443. 5180 print"d1.elektronisches steuergeraet"
  444. 5190 print"d2.hauptrelais"
  445. 5200 print"d3.kraftstoffpumpenrelais"
  446. 5210 print"d4.kraftstoffpumpe"
  447. 5230 goto 8915
  448. 5240 printchr$(147)
  449. 5250 print"moegliche stoerungen sind :"
  450. 5260 print:print
  451. 5270 print"kaltstartventil"
  452. 5290 goto 8915
  453. 5300 printchr$(147)
  454. 5310 print"moegliche stoerungen sind :"
  455. 5320 print:print
  456. 5330 print"a) zuendanlage"
  457. 5340 print"b) leitungsnetz"
  458. 5350 print"c) einspritzanlage"
  459. 5360 print
  460. 5370 print"c1.elektronisches steuergeraet"
  461. 5380 print"c2.hauptrelais"
  462. 5390 print"c3.kraftstoffrelais"
  463. 5400 print"c4.kraftstoffpumpe"
  464. 5410 print"c5.ausloesekontakte"
  465. 5430 goto 8915
  466. 5440 printchr$(147)
  467. 5450 print"moegliche stoerungen sind :"
  468. 5460 print:print
  469. 5470 print"a) zuendanlage"
  470. 5480 print"b) einspritzanlage"
  471. 5490 print
  472. 5500 print"b1.elektronisches steuergeraet"
  473. 5510 print"b2.kraftstoffpumpe"
  474. 5530 goto 8915
  475. 5540 printchr$(147)
  476. 5550 print"moegliche stoerungen sind :"
  477. 5560 print:print
  478. 5570 print"a) zuendanlage"
  479. 5580 print"b) einspritzanlage"
  480. 5590 print
  481. 5600 print"b1.einspritzventile"
  482. 5620 goto 8915
  483. 5630 printchr$(147)
  484. 5640 print"moegliche stoerungen sind :"
  485. 5650 print:print
  486. 5660 print"a) zuendanlage"
  487. 5670 print"b) leitungsnetz"
  488. 5680 print"c) einspritzanlage"
  489. 5690 print
  490. 5700 print"c1.kraftstoffpumpe"
  491. 5710 print"c2.ausloesekontakte"
  492. 5720 print"c3.temperatur im saugrohr"
  493. 5730 print"c4.druck im saugrohr"
  494. 5740 print"c5.drosselklappenschalter"
  495. 5750 print"c6.einspritzventile"
  496. 5770 goto 8915
  497. 5780 rem kuehlanlage
  498. 5800 printchr$(147)
  499. 5810 for i=1to40:print"[166]";:next
  500. 5820 print
  501. 5830 print"motortemperatur zu hoch...............1"
  502. 5840 for i=1to40:print"[197]";:next
  503. 5850 print"motortemperatur zu gering.............2"
  504. 5860 for i=1to40:print"[197]";:next
  505. 5870 print"kuehlwasser kocht.....................3"
  506. 5880 for i=1to40:print"[197]";:next
  507. 5890 print"blasenbildung im kuehler..............4"
  508. 5900 for i=1to40:print"[197]";:next
  509. 5910 print"kuehlwasserverlust....................5"
  510. 5920 for i=1to40:print"[197]";:next
  511. 5930 print"kuehlergeblaese lauft nicht...........6"
  512. 5940 for i=1to40:print"[197]";:next
  513. 5950 print"motortemperatur steigt zu schnell.....7"
  514. 5970 print
  515. 5980 for i=1to40:print"[166]";:next
  516. 5990 print:print
  517. 6000 print"bitte nummer eingeben  "
  518. 6010 get n$:if n$="" then 6010
  519. 6020 if n$="1" then goto 6110
  520. 6030 if n$="2" then goto 6290
  521. 6040 if n$="3" then goto 6350
  522. 6050 if n$="4" then goto 6430
  523. 6060 if n$="5" then goto 6500
  524. 6070 if n$="6" then goto 6610
  525. 6080 if n$="7" then goto 6710
  526. 6090 if n$>"7"or n$=" "then goto 6010
  527. 6110 printchr$(147)
  528. 6120 print"moegliche stoerungen sind :"
  529. 6130 print:print
  530. 6140 print"a) zuendanlage"
  531. 6150 print"b) vergaseranlage"
  532. 6160 print"c) kuehlanlage"
  533. 6170 print
  534. 6180 print"c1.kuehlwasser zu wenig"
  535. 6190 print"c2.thermostat"
  536. 6200 print"c3.wasserpumpe"
  537. 6210 print"c4.keilriemen"
  538. 6220 print"c5.luefter"
  539. 6230 print"c6.ueberdruckventil"
  540. 6240 print"c7.kuehler"
  541. 6250 print"c8.kuehlerverschluss"
  542. 6260 print"c9.fahrweise falsch"
  543. 6280 goto 8915
  544. 6290 printchr$(147)
  545. 6300 print"moegliche stoerungen sind :"
  546. 6310 print:print
  547. 6320 print"thermostat"
  548. 6340 goto 8915
  549. 6350 printchr$(147)
  550. 6360 print"moegliche stoerungen sind :"
  551. 6370 print:print
  552. 6380 print"1.kuelwassermenge zu gering"
  553. 6390 print"2.thermostat"
  554. 6400 print"3.falsche fahrweise"
  555. 6420 goto 8915
  556. 6430 printchr$(147)
  557. 6440 print"moegliche stoerungen sind :"
  558. 6450 print:print
  559. 6460 print"1.zylinderkopfdichtung"
  560. 6470 print"2.riss im zylinderkopf"
  561. 6490 goto 8915
  562. 6500 printchr$(147)
  563. 6510 print:print
  564. 6520 print"a) motor"
  565. 6530 print"b) kuehlanlage"
  566. 6540 print
  567. 6550 print"b1.wasserpumpe"
  568. 6560 print"b2.kuehler"
  569. 6570 print"b3.ueberdruckventil"
  570. 6580 print"b4.leitungssystem"
  571. 6600 goto 8915
  572. 6610 printchr$(147)
  573. 6620 print"moegliche stoerungen sind :"
  574. 6630 print:print
  575. 6640 print"1.temperaturwaechter"
  576. 6650 print"2.relais"
  577. 6660 print"3.kuehlergeblaese"
  578. 6670 print"4.leitungsnetz"
  579. 6680 print"5.notwendige temperatur nicht erreicht"
  580. 6700 goto 8915
  581. 6710 printchr$(147)
  582. 6720 print"moegliche stoerungen sind :"
  583. 6730 print:print
  584. 6740 print"1.kuehlwassermenge zu gering"
  585. 6750 print"2.kuehlwasser gefroren"
  586. 6770 goto 8915
  587. 6780 rem kontaktzuendung
  588. 6790 printchr$(147)
  589. 6800 for i=1to40:print"[166]";:next
  590. 6810 print
  591. 6820 print"motor springt nicht an................1"
  592. 6830 for i=1to40:print"[197]";:next
  593. 6840 print"aussetzer beim beschleunigen..........2"
  594. 6850 for i=1to40:print"[197]";:next
  595. 6860 print"hoechstgeschwindigkeit zu gering......3"
  596. 6870 for i=1to40:print"[197]";:next
  597. 6880 print"keine zuendung........................4"
  598. 6890 for i=1to40:print"[197]";:next
  599. 6900 print"schwacher zuendfunke..................5"
  600. 6910 for i=1to40:print"[197]";:next
  601. 6920 print"aussetzender zuendfunke...............6"
  602. 6940 print
  603. 6950 for i=1to40:print"[166]";:next
  604. 6960 print:print
  605. 6970 print"bitte nummer eingeben  "
  606. 6975 get n$:if n$="" then 6975
  607. 6980 if n$="1" then goto 7060
  608. 6990 if n$="2" then goto 7220
  609. 7000 if n$="3" then goto 7380
  610. 7010 if n$="4" then goto 7520
  611. 7020 if n$="5" then goto 7660
  612. 7030 if n$="6" then goto 7780
  613. 7040 if n$>"6"or n$=" "then goto 6975
  614. 7060 printchr$(147)
  615. 7070 print"moegliche stoerungen sind :"
  616. 7080 print:print
  617. 7090 print"a) stromversorgung"
  618. 7100 print"b) leitungsnetz"
  619. 7110 print"c) zuendanlage"
  620. 7120 print
  621. 7130 print"c1.zuendspule"
  622. 7140 print"c2.unterbrecher"
  623. 7150 print"c3.kondensator"
  624. 7160 print"c4.entstoerwiderstaende"
  625. 7170 print"c5.zuendkerzen"
  626. 7180 print"c6.zuendeinstellung"
  627. 7190 print"c7.zuendverteiler"
  628. 7210 goto 8915
  629. 7220 printchr$(147)
  630. 7230 print"moegliche stoerungen sind :"
  631. 7240 print:print
  632. 7250 print"a) leitungsnetz"
  633. 7260 print"b) zuendanlage"
  634. 7270 print
  635. 7280 print"b1.zuendspule"
  636. 7290 print"b2.unterbrecher"
  637. 7300 print"b3.kondensator"
  638. 7310 print"b4.zuendkerzen"
  639. 7320 print"b5.zuendeinstellung"
  640. 7330 print"b6.zuendverteiler"
  641. 7340 print"b7.unterdruckversteller"
  642. 7350 print"b8.fliehkraftversteller"
  643. 7370 goto 8915
  644. 7380 printchr$(147)
  645. 7390 print"moegliche stoerungen sind :"
  646. 7400 print:print
  647. 7410 print"a) leitungsnetz"
  648. 7420 print"b) motor"
  649. 7425 print"c) zuendanlage"
  650. 7430 print
  651. 7440 print"c1.unterbrecher"
  652. 7450 print"c2.entstoerwiderstaende"
  653. 7460 print"c3.zuendkerzen"
  654. 7470 print"c4.zuendeinstellung"
  655. 7480 print"c5.zuendverteiler"
  656. 7490 print"c6.fliehkraftversteller"
  657. 7510 goto 8915
  658. 7520 printchr$(147)
  659. 7530 print"moegliche stoerungen sind :"
  660. 7540 print:print
  661. 7550 print"a) stromversorgung"
  662. 7560 print"b) leitungsnetz"
  663. 7570 print"c) zuendanlage"
  664. 7580 print
  665. 7590 print"c1.zuend-anlassschalter"
  666. 7600 print"c2.zuendspule"
  667. 7610 print"c3.unterbrecher"
  668. 7620 print"c4.kondensator"
  669. 7630 print"c5.entstoerwiderstaende"
  670. 7650 goto 8915
  671. 7660 printchr$(147)
  672. 7670 print"moegliche stoerungen sind :"
  673. 7680 print:print
  674. 7690 print"a) stromversorgung"
  675. 7700 print"b) leitungsnetz"
  676. 7710 print"c) zuendanlage"
  677. 7720 print
  678. 7730 print"c1.zuendspule"
  679. 7740 print"c2.zuendkerzen"
  680. 7750 print"c3.zuendverteiler"
  681. 7770 goto 8915
  682. 7780 printchr$(147)
  683. 7790 print"moegliche stoerungen sind :"
  684. 7800 print:print
  685. 7810 print"a) leitungsnetz"
  686. 7820 print"b) zuendanlage"
  687. 7830 print
  688. 7840 print"b1.unterbrecher"
  689. 7850 print"b2.zuendverteiler"
  690. 7870 goto 8915
  691. 7880 rem elektronische zuendung
  692. 7890 printchr$(147)
  693. 7900 for i=1to40:print"[166]";:next                                 
  694. 7910 print
  695. 7920 print"motor springt nicht an................1"
  696. 7930 for i=1to40:print"[197]";:next                                 
  697. 7940 print"motoraussetzer beim beschleunigen.....2"
  698. 7950 for i=1to40:print"[197]";:next                                 
  699. 7960 print"hoechstgeschwindigkeit zu gering......3"
  700. 7970 for i=1to40:print"[197]";:next                                 
  701. 7980 print"keine zuendung........................4"
  702. 7990 for i=1to40:print"[197]";:next                                 
  703. 8000 print"schwacher zuendfunke..................5"
  704. 8010 for i=1to40:print"[197]";:next                                 
  705. 8020 print"aussetzender zuendfunke...............6"
  706. 8030 for i=1to40:print"[197]";:next
  707. 8040 print"kraftstoffverbrauch zu hoch...........7"
  708. 8060 print
  709. 8070 for i=1to40:print"[166]";:next
  710. 8080 print:print
  711. 8090 print"bitte nummer eingeben  "
  712. 8095 get n$:if n$="" then 8095
  713. 8100 if n$="1" then goto 8190
  714. 8110 if n$="2" then goto 8360
  715. 8120 if n$="3" then goto 8470
  716. 8130 if n$="4" then goto 8190
  717. 8140 if n$="5" then goto 8610
  718. 8150 if n$="6" then goto 8730
  719. 8160 if n$="7" then goto 8820
  720. 8170 if n$>"7" then goto 8090
  721. 8190 print chr$(147)
  722. 8200 print"moegliche stoerungen sind :"
  723. 8210 print:print
  724. 8220 print"a) stromversorgung"
  725. 8230 print"b) leitungsnetz"
  726. 8240 print"c) zuendanlage"
  727. 8250 print
  728. 8260 print"c1.zuendanlassschalter"
  729. 8270 print"c2.zuendspule"
  730. 8280 print"c3.impulsgeber"
  731. 8290 print"c4.totpunktmarkengeber"
  732. 8300 print"c5.schaltwerk"
  733. 8310 print"c6.entstoerwiderstaende"
  734. 8320 print"c7.zuendkerzen"
  735. 8330 print"c8.zuendverteiler"
  736. 8350 goto 8915
  737. 8360 printchr$(147)
  738. 8370 print"moegliche stoerungen sind :"
  739. 8380 print:print
  740. 8390 print"a) leitungsnetz"
  741. 8400 print"b) zuendanlage"
  742. 8410 print
  743. 8420 print"b1.zuendspule"
  744. 8430 print"b2.zuendkerzen"
  745. 8440 print"b3.zuendverteiler"
  746. 8460 goto 8915
  747. 8470 printchr$(147)
  748. 8480 print"moegliche stoerungen sind :"
  749. 8490 print:print
  750. 8500 print"a) motor"
  751. 8510 print"b) leitungsnetz"
  752. 8520 print"c) kuehlanlage"
  753. 8530 print"d) zuendanlage"
  754. 8540 print
  755. 8550 print"d1.messwertgeber"
  756. 8560 print"d2.schaltgeraet"
  757. 8570 print"d3.entstoerwiderstaende"
  758. 8580 print"d4.zuendverteiler"
  759. 8600 goto 8915
  760. 8610 printchr$(147)
  761. 8620 print"moegliche stoerungen sind :"
  762. 8630 print:print
  763. 8640 print"a) stromversorgung"
  764. 8650 print"b) leitungsnetz"
  765. 8660 print"c) zuendanlage"
  766. 8670 print
  767. 8680 print"c1.zuendspule"
  768. 8690 print"c2.zuendkerzen"
  769. 8700 print"c3.zuendverteiler"
  770. 8720 goto 8915
  771. 8730 printchr$(147)
  772. 8740 print"moegliche stoerungen sind :"
  773. 8750 print:print
  774. 8760 print"a) leitungsnetz"
  775. 8770 print"b) zuendanlage"
  776. 8780 print
  777. 8790 print"b1.zuendverteiler"
  778. 8810 goto 8915
  779. 8820 printchr$(147)
  780. 8830 print"moegliche stoerungen sind :"
  781. 8840 print:print
  782. 8850 print"a) vergaseranlage"
  783. 8860 print"b) zuendanlage"
  784. 8870 print
  785. 8880 print"b1.messwertgeber"
  786. 8890 print"b2.schaltgeraet"
  787. 8910 goto 8915
  788. 8915 print:print
  789. 8920 print"noch eine diagnose ?(j/n)"
  790. 8930 get n$:if n$="" then 8930
  791. 8940 if n$="j" then goto 140
  792. 8950 if n$="n" then goto 9010
  793. 9000 if n$=" " then goto 8930
  794. 9010 printchr$(147)
  795. 9020 print:print:print
  796. 9030 print"viel erfolg bei der reparatur!"
  797. 9040 for i=1 to1200:next
  798. 9050 sys 49152
  799. 9060 end
  800.