home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02043 / formular / kfz.bas < prev    next >
BASIC Source File  |  1987-11-09  |  62KB  |  1,054 lines
  1. 1 WIDTH 80: KEY OFF: COLOR 15,0,0
  2. 2 KEY 7,"<": KEY 8,"@": KEY 9,"^": KEY 10,"\"
  3. 10 GOSUB 1020
  4. 11 GOTO 100
  5. 20 ZZ$=LEFT$(ZZ$,L):ZZ$=ZZ$+STRING$(L-LEN(ZZ$),95):Z2=0:Y=1
  6. 21 LOCATE R,S,O:PRINT ZZ$;
  7. 22 LOCATE R,S+Y-1,1
  8. 23 Z$=INKEY$: IF Z$="" THEN 23 ELSE Z=ASC(Z$): Z1=0: IF Z=0 THEN Z1=ASC(RIGHT$(Z$,1))
  9. 24 IF Z<>13 THEN 28 ELSE IF Z2 >0 THEN 23
  10. 25 IF Y=1 THEN ZZ$=CHR$(13): LOCATE ,,0: RETURN
  11. 26 IF RIGHT$(ZZ$,1)="_" THEN ZZ$=LEFT$(ZZ$,INSTR(ZZ$,"_")-1)
  12. 27 LOCATE ,,0: RETURN
  13. 28 IF Z<>0 THEN 48
  14. 29 IF Z1<>71 THEN 31 ELSE IF Y=1 OR Z2 THEN 23
  15. 30 Y=1:GOTO 22
  16. 31 IF Z1<>75 THEN 33 ELSE IF Y=1 OR Z2 THEN 23
  17. 32 Y=Y-1:GOTO 22
  18. 33 IF Z1<>77 THEN 35 ELSE IF MID$(ZZ$,Y,1)="_" OR Y=>L THEN 23
  19. 34 Y=Y+1:GOTO 22
  20. 35 IF Z1<>79 THEN 39 ELSE IF Y>L OR Z2 THEN 23
  21. 36 IF MID$(ZZ$,Y,1)="_" THEN 23
  22. 37 Y=Y+1
  23. 38 IF MID$(ZZ$,Y,1)="_" THEN 22 ELSE 37
  24. 39 IF Z1<>82 THEN 42 ELSE IF RIGHT$(ZZ$,1)<>"_" THEN 23
  25. 40 IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  26. 41 ZZ$=LEFT$(ZZ$,Y-1)+"_"+MID$(ZZ$,Y,L-Y):Z2=Z2+1:GOTO 21
  27. 42 IF Z1<>83 THEN 44 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  28. 43 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+MID$(ZZ$,Y+1)+"_":GOTO 21
  29. 44 IF Z1<>117 THEN 46 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  30. 45 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+STRING$(L-Y+1,95):GOTO 21
  31. 46 IF Z1<>119 THEN 23 ELSE IF Y=1 THEN 23
  32. 47 ZZ$=MID$(ZZ$,Y)+STRING$(Y-1,95):Y=1:GOTO 21
  33. 48 IF Z<>8 THEN 50 ELSE IF Y=1 THEN 23
  34. 49 ZZ$=LEFT$(ZZ$,Y-2)+MID$(ZZ$,Y)+"_":Y=Y-1:GOTO 21
  35. 50 IF Z<>27 THEN 51 ELSE ZZ$=STRING$(L,95):Y=1:Z2=0: GOTO 21
  36. 51 IF Z=95 OR Y>L THEN 23
  37. 52 ON PK% GOTO 55,53,54
  38. 53 IF Z<32 OR Z>58 THEN 23 ELSE 55
  39. 54 IF Z<>106 AND Z<>110 THEN 23
  40. 55 IF Z=44 THEN 23 ELSE GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+Z$+MID$(ZZ$,Y+1):PRINT Z$;:Y=Y+1:GOTO 22
  41. 56 IF Z2 THEN Z2=Z2-1
  42. 57 RETURN
  43. 60  E$=INKEY$: IF E$="" THEN 60
  44. 61 RETURN
  45. 65 LOCATE 22,1: PRINT SPACE$(79): RETURN
  46. 80 CLS: LOCATE 1,1: PRINT STRING$(79,205)
  47. 81 LOCATE 2,1: PRINT "    Karlheinz Herpel             F O R M U L A R E                 (C) 1987)      "
  48. 82 LOCATE 3,1: PRINT STRING$(79,205): RETURN
  49. 90 LOCATE 22,5: COLOR 0,15: PRINT "  Neues Papier einlegen und beliebige Taste drücken      Abbruch = ESC  ": COLOR 15,0
  50. 91  E$=INKEY$: IF E$="" THEN 91
  51. 92  IF E$=CHR$(27) THEN 100
  52. 93  GOSUB 189 : RETURN
  53. 100 GOSUB 80: GOSUB 156: LOCATE ,,0
  54. 101 LOCATE 6,20: PRINT "[1] STAMMDATEN eingeben/ausgeben"
  55. 102 LOCATE 7,20: PRINT "[2] Unfallprotokoll OHNE EINGABEN"
  56. 103 LOCATE 8,20: PRINT "[3] Unfallprotokoll MIT  EINGABEN"
  57. 104 LOCATE 9,20: PRINT "[4] KFZ-Kaufvertrag OHNE EINGABEN"
  58. 105 LOCATE 10,20: PRINT "[5] KFZ-Kaufvertrag MIT  EINGABEN"
  59. 106 LOCATE 11,20: PRINT "[6] Brief an ZULASSUNGSSTELLE (Abmeldung)"
  60. 107 LOCATE 12,20: PRINT "[7] Brief an VERSICHERUNG     (Abmeldung)"
  61. 108 LOCATE 13,20: PRINT "[8] GEBRAUCHTWAGEN-Checkliste (Drucker)"
  62. 109 LOCATE 14,20: PRINT "[9] Anforderung einer Vers.-DECKUNGSKARTE"
  63. 110 LOCATE 15,20: PRINT "[0] Anforderung einer GRÜNEN VERS.KARTE"
  64. 111 LOCATE 17,20: PRINT "[K] Ausgabe KUNDENANSCHRIFT / SCHIRM"
  65. 112 LOCATE 18,20: PRINT "[U] Umrechnung PS/KW"
  66. 113 LOCATE 20,20: PRINT "[X] Programm BEENDEN"
  67. 120 E$=INKEY$: IF E$="" THEN 120
  68. 121 IF E$="1" THEN 140
  69. 122 IF E$="3" THEN GOSUB 160: GOSUB 10090: GOSUB 10190:GOTO 200
  70. 123 IF E$="2" THEN GOSUB 156: GOTO 200
  71. 124 IF E$="4" THEN GOSUB 156: GOTO 400
  72. 125 IF E$="5" THEN 500
  73. 126 IF E$="6" THEN 1080
  74. 127 IF E$="7" THEN 1280
  75. 128 IF E$="8" THEN 700
  76. 129 IF E$="9" THEN 1400
  77. 130 IF E$="0" THEN 1500
  78. 131 IF E$="K" OR E$="k" THEN 13000
  79. 132 IF E$="X" OR E$="x" THEN 1700
  80. 133 IF E$="U" OR E$="u" THEN 1600
  81. 135 GOTO 120
  82. 140 LOCATE 22,2: COLOR 0,15: PRINT "STAMMDATEN : Eingabe = F 9    Ausgabe = F 10                  ENDE = F 7": COLOR 15,0
  83. 141 E$=INKEY$: IF E$="" THEN 141
  84. 142 IF E$="^" THEN GOSUB 156: GOTO 300
  85. 143 IF E$="\" THEN 170
  86. 145 IF E$="<" THEN 100
  87. 146 GOTO 141
  88. 150 LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden gespeichert. Bitte warten ......                ": COLOR 15,0
  89. 151 OPEN "stamm.dat" FOR OUTPUT AS #1
  90. 152 PRINT #1,K1$: PRINT #1,K2$: PRINT #1,K3$: PRINT #1,K4$: PRINT #1,K5$
  91. 153 PRINT #1,K6$: PRINT #1,K7$: PRINT #1,K8$: PRINT #1,K9$: PRINT #1,K10$
  92. 155 CLOSE #1: CLOSE: RETURN
  93. 156 K1$="": K2$="": K3$="": K4$="": K5$="": K6$="": K7$="": K8$="": K9$="": K10$="": V1$="": V2$="": V3$="": V4$="": V5$="": V6$="": V7$="": V8$="": V9$="":
  94. 157 V10$="": V11$="": F1$="": F2$="": F3$="": F4$="": F5$="": F6$="": F7$="": F8$="": F9$="": F10$="": W9$="": W1$="": W2$="": W3$="": W4$="": W5$=""
  95. 158 W6$="": W7$="": W8$="": B1$="": B2$="": B3$="": B4$="": B5$="": B6$="": SUM$="": RETURN
  96. 160 GOSUB 65: LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden eingelesen . Bitte warten ......                ": COLOR 15,0: ON ERROR GOTO 164
  97. 161 OPEN "stamm.dat" FOR INPUT AS #1
  98. 162 INPUT #1,K1$,K2$,K3$,K4$,K5$,K6$,K7$,K8$,K9$,K10$
  99. 163 CLOSE #1: CLOSE: IF K1$="" THEN 166 ELSE RETURN
  100. 164 IF ERR=53 AND ERR=58 OR ERR=1230 THEN 166
  101. 165 RESUME NEXT
  102. 166 LOCATE 22,2: COLOR 0,15: PRINT "Keine Dateien auf Diskette gefunden. Bitte erst Daten eingeben. Taste ..": COLOR 15,0: GOSUB 60: GOTO 100
  103. 168 F1$="": F2$="": F3$="": F4$="": F5$="": F6$="": F7$="": F8$="": F9$="": F10$="": F11$="": F12$="": F13$="": DATUM$="": B1$="": B2$="": B3$="": B4$="": RETURN
  104. 170 LOCATE 22,2: COLOR 0,15: PRINT "STAMMDATEN = F 9  VERSICHERUNG = F 10  FAHRZEUG = F 8         ENDE = ESC": COLOR 15,0
  105. 171 E$=INKEY$: IF E$="" THEN 171
  106. 172 IF E$="^" THEN GOSUB 160: GOTO 10200
  107. 173 IF E$="\" THEN GOSUB 10090: GOTO 10300
  108. 174 IF E$="@" THEN GOSUB 10190: GOTO 10400
  109. 175 IF E$=CHR$(27) THEN 100
  110. 176 GOTO 171
  111. 180 LOCATE 22,5: COLOR 0,15: PRINT "  Bitte Drucker einschalten und Taste F 9 drücken.       Abbruch = ESC  ": COLOR 15,0
  112. 185 E$=INKEY$: IF E$="" THEN 185
  113. 186 IF E$="^" THEN GOSUB 189 : RETURN
  114. 187 IF E$=CHR$(27) THEN 100
  115. 188 GOTO 185
  116. 189 LOCATE 22,5: COLOR 0,15: PRINT "        Drucker in Betrieb. Bitte warten ...........                    ": COLOR 15,0: RETURN
  117. 195 LOCATE 22,5: COLOR 0,15: PRINT "           Korrekturmodus .......... mit Return bestätigen              ": COLOR 15,0: PP=1: RETURN
  118. 200 GOSUB 180: LPRINT TAB(5)CHR$(14)"UNFALLPROTOKOLL......": LPRINT " "
  119. 201 LPRINT TAB(5)"EIGENE ANGABEN :                             ANGABEN UNFALL-GEGNER"
  120. 202 LPRINT TAB(5)"__________________________________________________________________"
  121. 205 LPRINT TAB(5)"Vorname     : ";K1$;TAB(45);"Vorname     : "
  122. 206 LPRINT TAB(5)"Nachname    : ";K2$;TAB(45);"Nachname    : "
  123. 207 LPRINT TAB(5)"Straße      : ";K3$;TAB(45);"Straße      : "
  124. 208 LPRINT TAB(5)"PLZ / Ort   : ";K4$;" ";K5$;TAB(45);"PLZ / Ort   : "
  125. 209 LPRINT TAB(5)"Versicherung: ";V2$;TAB(45);"Versicherung: "
  126. 210 LPRINT TAB(5)"Straße      : ";V3$;TAB(45);"Straße      : "
  127. 211 LPRINT TAB(5)"PLZ / Ort   : ";V4$;" ";V5$;TAB(45);"PLZ / Ort   : "
  128. 212 LPRINT TAB(5)"Vers.Nummer : ";V1$;TAB(45);"Vers.Nummer : "
  129. 213 LPRINT TAB(5)"Fahrzeug Typ: ";F2$;TAB(45);"Fahrzeug Typ: "
  130. 214 LPRINT TAB(5)"Kennzeichen : ";F1$;TAB(45);"Kennzeichen : ": LPRINT " "
  131. 215 LPRINT TAB(5)"Unfallhergang ....": LPRINT " "
  132. 216 LPRINT TAB(5)"Unfallort   : ";TAB(45);"Heut. Datum : "
  133. 217 LPRINT TAB(5)"Uhrzeit     : ";TAB(45);"Wetterlage  : ": LPRINT " "
  134. 218 LPRINT TAB(5)"Unfallhergang : ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " "
  135. 219 LPRINT TAB(5)"Beschädigungen eigenes Fahrzeug :       Unfall-Gegner-Fahrzeug : ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " "
  136. 220 LPRINT TAB(5)"Verletzte (Eigenes Fahrzeug ):          Unfall-Gegner-Fahrzeug : ": LPRINT " ": LPRINT " ": LPRINT " "
  137. 221 LPRINT TAB(5)"Bemerkungen :  ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " ": LPRINT " "
  138. 222 LPRINT TAB(5)"__________________________________________________________________": LPRINT " "
  139. 224 LPRINT CHR$(27);"@": GOTO 100
  140. 300 GOSUB 80: GOSUB 301: GOTO 320
  141. 301 LOCATE 5,5: PRINT "Geben Sie bitte Ihre persönlichen Daten ein..."
  142. 305 LOCATE 7,5: PRINT "[1] Vorname           : "
  143. 306 LOCATE 8,5: PRINT "[2] Nachname          : "
  144. 307 LOCATE 9,5: PRINT "[3] Straße            : "
  145. 308 LOCATE 10,5: PRINT "[4] Postleitzahl      : "
  146. 309 LOCATE 11,5: PRINT "[5] Wohnort           : "
  147. 310 LOCATE 12,5: PRINT "[6] Telefon-Nummer    : "
  148. 311 LOCATE 14,5: PRINT "[7] Bankverbindung    : "
  149. 312 LOCATE 15,5: PRINT "[8] Ort der Bank      : "
  150. 313 LOCATE 16,5: PRINT "[9] Konto-Nummer      : "
  151. 314 LOCATE 17,5: PRINT "[0] Bankleitzahl      : "
  152. 315 RETURN
  153. 320 ZZ$="": R=7:S=29: L=15: PK%=1: GOSUB 20: K1$=ZZ$
  154. 321 IF K1$=CHR$(13) THEN K1$="-"
  155. 322 IF PP=1 THEN RETURN
  156. 325 ZZ$="": R=8:S=29: L=20: PK%=1: GOSUB 20: K2$=ZZ$
  157. 326 IF K2$=CHR$(13) THEN BEEP: GOTO 325
  158. 327 IF PP=1 THEN RETURN
  159. 330 ZZ$="": R=9:S=29: L=25: PK%=1: GOSUB 20: K3$=ZZ$
  160. 331 IF K3$=CHR$(13) THEN BEEP: GOTO 330
  161. 332 IF PP=1 THEN RETURN
  162. 335 ZZ$="": R=10:S=29: L=4: PK%=2: GOSUB 20: K4$=ZZ$
  163. 336 IF K4$=CHR$(13) THEN BEEP: GOTO 335
  164. 337 IF PP=1 THEN RETURN
  165. 340 ZZ$="": R=11:S=29: L=20: PK%=1: GOSUB 20: K5$=ZZ$
  166. 341 IF K5$=CHR$(13) THEN BEEP: GOTO 340
  167. 342 IF PP=1 THEN RETURN
  168. 345 ZZ$="": R=12:S=29: L=15: PK%=1: GOSUB 20: K6$=ZZ$
  169. 346 IF K6$=CHR$(13) THEN K6$="-"
  170. 347 IF PP=1 THEN RETURN
  171. 350 ZZ$="": R=14:S=29: L=20: PK%=1: GOSUB 20: K7$=ZZ$
  172. 351 IF K7$=CHR$(13) THEN BEEP: GOTO 350
  173. 352 IF PP=1 THEN RETURN
  174. 355 ZZ$="": R=15:S=29: L=20: PK%=1: GOSUB 20: K8$=ZZ$
  175. 356 IF K8$=CHR$(13) THEN BEEP: GOTO 355
  176. 357 IF PP=1 THEN RETURN
  177. 360 ZZ$="": R=16:S=29: L=20: PK%=1: GOSUB 20: K9$=ZZ$
  178. 361 IF K9$=CHR$(13) THEN BEEP: GOTO 360
  179. 362 IF PP=1 THEN RETURN
  180. 365 ZZ$="": R=17:S=29: L=10: PK%=2: GOSUB 20: K10$=ZZ$
  181. 366 IF K10$=CHR$(13) THEN BEEP: GOTO 365
  182. 367 IF PP=1 THEN RETURN
  183. 379 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0                Abbruch = ESC          Weiter = F 10 ": COLOR 15,0: PP=0
  184. 380 E$=INKEY$: IF E$="" THEN 380
  185. 381 IF E$="\" THEN GOSUB 150: GOTO 10000
  186. 382 IF E$=CHR$(27) THEN 100
  187. 383 IF E$="1" THEN GOSUB 195: GOSUB 320: GOTO 379
  188. 384 IF E$="2" THEN GOSUB 195: GOSUB 325: GOTO 379
  189. 385 IF E$="3" THEN GOSUB 195: GOSUB 330: GOTO 379
  190. 386 IF E$="4" THEN GOSUB 195: GOSUB 335: GOTO 379
  191. 387 IF E$="5" THEN GOSUB 195: GOSUB 340: GOTO 379
  192. 388 IF E$="6" THEN GOSUB 195: GOSUB 345: GOTO 379
  193. 389 IF E$="7" THEN GOSUB 195: GOSUB 350: GOTO 379
  194. 390 IF E$="8" THEN GOSUB 195: GOSUB 355: GOTO 379
  195. 391 IF E$="9" THEN GOSUB 195: GOSUB 360: GOTO 379
  196. 392 IF E$="0" THEN GOSUB 195: GOSUB 365: GOTO 379
  197. 400 GOSUB 180
  198. 401 LPRINT TAB(23)CHR$(14)"KAUFVERVERTRAG"
  199. 402 LPRINT TAB(23)CHR$(14)"==============": LPRINT " "
  200. 403 LPRINT TAB(8)"über den Verkauf eines Gebrauchtwagens.": LPRINT " "
  201. 405 LPRINT TAB(8)"Der Verkäufer :  Vor-/Zuname : ";K1$;" ";K2$
  202. 406 LPRINT TAB(8)"                 Straße      : ";K3$
  203. 407 LPRINT TAB(8)"                 Wohnort     : ";K4$;" ";K5$: LPRINT " "
  204. 410 LPRINT TAB(8)"verkauft an   :  Vor-/Zuname : ";B1$;" ";B2$
  205. 411 LPRINT TAB(8)"              :  Straße      : ";B3$
  206. 412 LPRINT TAB(8)"              :  Wohnort     : ";B4$;" ";B5$:  LPRINT " "
  207. 415 LPRINT TAB(8)"folgendes Fahrzeug :": LPRINT " "
  208. 416 LPRINT TAB(8)"Fahrzeug-Typ  : ";F2$;TAB(50)"Kennzeichen  : ";F1$
  209. 417 LPRINT TAB(8)"Kilometerstand: ";W1$;TAB(50)"Motor-Nummer : ";F6$
  210. 418 LPRINT TAB(8)"Fahrgestell-Nr: ";F7$;TAB(50)"KFZ-Brief.Nr.: ";F5$
  211. 419 LPRINT TAB(8)"TÜV bis       : ";F8$;TAB(50)"ASU bis      : ";F9$
  212. 420 LPRINT TAB(8)"Zubehör       : ";W2$;TAB(50)"Zubehör      : ";W3$
  213. 421 LPRINT TAB(8)"Zubehör       : ";W4$;TAB(50)"Zubehör      : ";W5$: LPRINT " "
  214. 422 LPRINT TAB(8)"in gebrauchtem Zustand wie besichtigt zum Preis von...": LPRINT " "
  215. 424 IF SUM$="1" THEN 428
  216. 426 LPRINT TAB(8)"Kaufpreis     : ________________  DM IN BAR _______ V-SCHECK ______": GOTO 430
  217. 428 LPRINT TAB(8)"Kaufpreis     : ";W6$;" DM in bar _______ V-Scheck ______": GOTO 430
  218. 430 LPRINT " ": LPRINT TAB(8)"Mit der Übergabe des Fahrzeugschlüssels erhält der Käufer ...": LPRINT " "
  219. 431 LPRINT TAB(8)"2  KFZ-Schlüssel _____ KFZ-Schein _____  KFZ-Brief _____": LPRINT " "
  220. 432 LPRINT TAB(8)"Der Verkäufer erklärt, daß das Fahrzeug nebst Zubehör sein Eigentum ist."
  221. 433 LPRINT TAB(8)"Eventuell vorhandene Mängel ....": LPRINT " "
  222. 434 LPRINT TAB(8)W7$
  223. 435 LPRINT TAB(8)W8$
  224. 436 LPRINT " "
  225. 437 LPRINT TAB(8)"Der Verkäufer verpflichtet sich, das Kraftfahrzeug unverzüglich bei"
  226. 438 LPRINT TAB(8)"der zuständigen Zulassungsstelle umzumelden. Eventuelle Mahnge-"
  227. 439 LPRINT TAB(8)"bühren der Zulassungsstelle trägt der Käufer "
  228. 440 LPRINT TAB(8)"(bei nicht rechtzeitiger Ummeldung).": LPRINT " "
  229. 441 IF K1$="" THEN 443
  230. 442 GOTO 445
  231. 443 LPRINT TAB(8)"_____________________ , den ";DATUM$: LPRINT " ": GOTO 446
  232. 445 LPRINT TAB(8)K5$", den ";DATUM$: LPRINT " "
  233. 446 LPRINT TAB(8)"Verkäufer                                  Käufer": LPRINT " "
  234. 448 LPRINT TAB(8)"__________________________                 _________________________"
  235. 449 LPRINT TAB(10)K1$;" ";K2$: LPRINT CHR$(27);"@"
  236. 450 LOCATE 22,5: COLOR 0,15: PRINT "  Ausdruck wiederholen = F 9                             Abbruch = ESC  ": COLOR 15,0
  237. 455 E$=INKEY$: IF E$="" THEN 455
  238. 456 IF E$="^" THEN 400
  239. 457 IF E$=CHR$(27) THEN 100
  240. 458 GOTO 455
  241. 500 GOSUB 80
  242. 501 LOCATE 5,5: PRINT "Geben Sie weitere Zusatzangaben zum Kaufvertrag ein..."
  243. 505 LOCATE 7,5: PRINT "[1] Kilometer-Stand  : "
  244. 511 LOCATE 8,5: PRINT "[2] Zubehör          : "
  245. 512 LOCATE 9,5: PRINT "[3] Zubehör          : "
  246. 513 LOCATE 10,5: PRINT "[4] Zubehör          : "
  247. 514 LOCATE 11,5: PRINT "[5] Zubehör          : "
  248. 515 LOCATE 12,5: PRINT "[6] Kaufbetrag DM    : "
  249. 516 LOCATE 13,5: PRINT "[7] Mängel           : "
  250. 517 LOCATE 14,5: PRINT "[8] Mängel           : "
  251. 520 ZZ$="": R=7: S=29: L=6: PK%=2: GOSUB 20: W1$=ZZ$
  252. 521 IF W1$=CHR$(13) THEN BEEP: GOTO 520
  253. 522 IF PP=1 THEN RETURN
  254. 525 ZZ$="": R=8: S=29: L=12: PK%=1: GOSUB 20: W2$=ZZ$
  255. 526 IF W2$=CHR$(13) THEN W2$="-"
  256. 527 IF PP=1 THEN RETURN
  257. 530 ZZ$="": R=9: S=29: L=12: PK%=1: GOSUB 20: W3$=ZZ$
  258. 531 IF W3$=CHR$(13) THEN W3$="-"
  259. 532 IF PP=1 THEN RETURN
  260. 535 ZZ$="": R=10: S=29: L=12: PK%=1: GOSUB 20: W4$=ZZ$
  261. 536 IF W4$=CHR$(13) THEN W4$="-"
  262. 537 IF PP=1 THEN RETURN
  263. 540 ZZ$="": R=11: S=29: L=12: PK%=1: GOSUB 20: W5$=ZZ$
  264. 541 IF W5$=CHR$(13) THEN W5$="-"
  265. 542 IF PP=1 THEN RETURN
  266. 545 ZZ$="": R=12: S=29: L=10: PK%=2: GOSUB 20: W6$=ZZ$
  267. 546 IF W6$=CHR$(13) THEN BEEP: GOTO 545
  268. 547 IF PP=1 THEN RETURN
  269. 550 ZZ$="": R=13: S=29: L=12: PK%=1: GOSUB 20: W7$=ZZ$
  270. 551 IF W7$=CHR$(13) THEN W7$="-"
  271. 552 IF PP=1 THEN RETURN
  272. 555 ZZ$="": R=14: S=29: L=12: PK%=1: GOSUB 20: W8$=ZZ$
  273. 556 IF W8$=CHR$(13) THEN W8$="-"
  274. 557 IF PP=1 THEN RETURN
  275. 589 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 8   Druck = F 9  Kunden-Adresse = F 10 Abbruch = ESC  ": COLOR 15,0: PP=0
  276. 590 E$=INKEY$: IF E$="" THEN 590
  277. 591 IF E$="^" THEN GOSUB 160: GOSUB 10090: GOSUB 10190: SUM$="1": GOTO 400
  278. 592 IF E$="\" THEN GOSUB 10700: GOTO 589
  279. 593 IF E$=CHR$(27) THEN 100
  280. 594 IF E$="1" THEN GOSUB 195: GOSUB 520: GOTO 589
  281. 595 IF E$="2" THEN GOSUB 195: GOSUB 525: GOTO 589
  282. 596 IF E$="3" THEN GOSUB 195: GOSUB 530: GOTO 589
  283. 597 IF E$="4" THEN GOSUB 195: GOSUB 535: GOTO 589
  284. 598 IF E$="5" THEN GOSUB 195: GOSUB 540: GOTO 589
  285. 599 IF E$="6" THEN GOSUB 195: GOSUB 545: GOTO 589
  286. 600 IF E$="7" THEN GOSUB 195: GOSUB 550: GOTO 589
  287. 601 IF E$="8" THEN GOSUB 195: GOSUB 555: GOTO 589
  288. 608 GOTO 590
  289. 610 GOSUB 80:
  290. 611 LOCATE 6,5: PRINT "Geben Sie die Käuferanschrift ein....": GOSUB 615: GOTO 625
  291. 615 LOCATE 8,5: PRINT "[1] Vorname     : "
  292. 616 LOCATE 9,5: PRINT "[2] Nachname    : "
  293. 617 LOCATE 10,5: PRINT "[3] Straße      : "
  294. 618 LOCATE 11,5: PRINT "[4] PLZ         : "
  295. 619 LOCATE 12,5: PRINT "[5] Wohnort     : "
  296. 620 LOCATE 13,5: PRINT "[6] Telefon     : ": RETURN
  297. 625 ZZ$="": R=8: S=24: L=15: PK%=1: GOSUB 20: B1$=ZZ$
  298. 626 IF B1$=CHR$(13) THEN B1$="-"
  299. 627 IF PP=1 THEN RETURN
  300. 630 ZZ$="": R=9: S=24: L=15: PK%=1: GOSUB 20: B2$=ZZ$
  301. 631 IF B2$=CHR$(13) THEN BEEP: GOTO 630
  302. 633 IF PP=1 THEN RETURN
  303. 635 ZZ$="": R=10: S=24: L=20: PK%=1: GOSUB 20: B3$=ZZ$
  304. 636 IF B3$=CHR$(13) THEN BEEP: GOTO 635
  305. 637 IF PP=1 THEN RETURN
  306. 640 ZZ$="": R=11: S=24: L=4: PK%=2: GOSUB 20: B4$=ZZ$
  307. 641 IF B4$=CHR$(13) THEN BEEP: GOTO 640
  308. 642 IF PP=1 THEN RETURN
  309. 645 ZZ$="": R=12: S=24: L=15: PK%=1: GOSUB 20: B5$=ZZ$
  310. 646 IF B5$=CHR$(13) THEN BEEP: GOTO 645
  311. 647 IF PP=1 THEN RETURN
  312. 650 ZZ$="": R=13: S=24: L=15: PK%=1: GOSUB 20: B6$=ZZ$
  313. 651 IF B6$=CHR$(13) THEN B6$="-"
  314. 652 IF PP=1 THEN RETURN
  315. 659 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 6    Anschrift speichern = F 8         zurück = F 10  ": COLOR 15,0: PP=0
  316. 660 E$=INKEY$: IF E$="" THEN 660
  317. 661 IF E$="\" THEN RETURN
  318. 662 IF E$="1" THEN GOSUB 195: GOSUB 625: GOTO 659
  319. 663 IF E$="2" THEN GOSUB 195: GOSUB 630: GOTO 659
  320. 664 IF E$="3" THEN GOSUB 195: GOSUB 635: GOTO 659
  321. 665 IF E$="4" THEN GOSUB 195: GOSUB 640: GOTO 659
  322. 666 IF E$="5" THEN GOSUB 195: GOSUB 645: GOTO 659
  323. 667 IF E$="6" THEN GOSUB 195: GOSUB 650: GOTO 659
  324. 668 IF E$="@" THEN GOSUB 10600: GOTO 659
  325. 669 GOTO 660
  326. 700 GOSUB 80
  327. 711 LOCATE 7,5: PRINT "GEBRAUCHTWAGEN-CHECKLISTE"
  328. 712 GOSUB 180: LPRINT " ": GOSUB 715: GOTO 717
  329. 715 LPRINT TAB(5)"Prüfung                                         Ja  Nein  Mittel"
  330. 716 LPRINT TAB(5)"──────────────────────────────────────────────┬────┬──────┬─────┐": RETURN
  331. 717 LPRINT TAB(5)"Ist die Lackierung gleichmäßig glänzend.      │    │      │     │"
  332. 718 LPRINT TAB(5)"Matte Lacke kann man aufpolieren.Kleinere     │    │      │     │"
  333. 719 LPRINT TAB(5)"Rostschäden sind leicht auszubessern.         │    │      │     │"
  334. 720 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  335. 721 LPRINT TAB(5)"Wurden Lackausbesserungen fachmännisch aus-   │    │      │     │"
  336. 722 LPRINT TAB(5)"geführt ? Warum wurden diese ausgeführt ?     │    │      │     │"
  337. 723 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  338. 724 LPRINT TAB(5)"Sind Lackränder an den Stoßstangen,Einfas-    │    │      │     │"
  339. 725 LPRINT TAB(5)"sungen der Scheiben und Farbnebel an den      │    │      │     │"
  340. 726 LPRINT TAB(5)"Zierleisten zu erkennen ?                     │    │      │     │"
  341. 727 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  342. 728 LPRINT TAB(5)"Sind Rostansätze zu erkennen an:              │    │      │     │"
  343. 729 LPRINT TAB(5)"oberhalb der Scheinwerfer ....                │    │      │     │"
  344. 730 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  345. 731 LPRINT TAB(5)"an Türschwellen  .............                │    │      │     │"
  346. 732 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  347. 733 LPRINT TAB(5)"im Bereich der Kotflügel .....                │    │      │     │"
  348. 734 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  349. 735 LPRINT TAB(5)"im Bereich der Türen .........                │    │      │     │"
  350. 736 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  351. 737 LPRINT TAB(5)"Öffnen Sie alle Hauben und Türen.             │    │      │     │"
  352. 738 LPRINT TAB(5)"Lassen sich alle Hauben und Türen             │    │      │     │"
  353. 739 LPRINT TAB(5)"einwandfrei verschließen ?                    │    │      │     │"
  354. 740 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  355. 741 LPRINT TAB(5)"Achten Sie auf gleichmäßige Fugen am          │    │      │     │"
  356. 742 LPRINT TAB(5)"benachbarten Karosserieteil. Sind diese       │    │      │     │"
  357. 743 LPRINT TAB(5)"unterschiedlich breit ?                       │    │      │     │"
  358. 744 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  359. 745 LPRINT TAB(5)"Prüfen Sie im Motorraum und Kofferraum        │    │      │     │"
  360. 746 LPRINT TAB(5)"die Lackierung der Radhäuser sowie Ab-        │    │      │     │"
  361. 747 LPRINT TAB(5)"schlußbleche,Bodenbleche und Rahmenteile.     │    │      │     │"
  362. 748 LPRINT TAB(5)"Erkennen Sie Abweichungen von der             │    │      │     │"
  363. 749 LPRINT TAB(5)"Original-Lackierung ?                         │    │      │     │"
  364. 750 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  365. 751 LPRINT TAB(5)"Sind Farbspritzer auf dem Motor zu er-        │    │      │     │"
  366. 752 LPRINT TAB(5)"kennen ? Es könnte dann ein Unfallwagen       │    │      │     │"
  367. 753 LPRINT TAB(5)"sein....                                      │    │      │     │"
  368. 754 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  369. 755 LPRINT TAB(5)"Leuchten Sie mit der Taschenlampe in          │    │      │     │"
  370. 756 LPRINT TAB(5)"den Motorraum. Sind Undichtigkeiten zu        │    │      │     │"
  371. 757 LPRINT TAB(5)"erkennen an den Bauteilen ....                │    │      │     │"
  372. 758 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  373. 759 LPRINT TAB(5)"an der Ölwanne  ..............                │    │      │     │"
  374. 760 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  375. 761 LPRINT TAB(5)"am Getriebe  .................                │    │      │     │"
  376. 762 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  377. 763 LPRINT TAB(5)"am Stoßdämpfer ...............                │    │      │     │"
  378. 764 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  379. 765 LPRINT TAB(5)"an der Bremsanlage ...........                │    │      │     │"
  380. 766 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  381. 767 LPRINT TAB(5)"Sind die Kühlschläuche porös ?                │    │      │     │"
  382. 768 LPRINT TAB(5)"──────────────────────────────────────────────┴────┴──────┴─────┘"
  383. 769 GOSUB 90: LPRINT " "
  384. 770 LPRINT TAB(5)"Prüfung                                         Ja  Nein  Mittel"
  385. 771 LPRINT TAB(5)"──────────────────────────────────────────────┬────┬──────┬─────┐"
  386. 772 LPRINT TAB(5)"Sind bei den Fahrwerkteilen verbogene         │    │      │     │"
  387. 773 LPRINT TAB(5)"Stellen zu erkennen, die auf der anderen      │    │      │     │"
  388. 774 LPRINT TAB(5)"Seite eine ganz andere Position haben ?       │    │      │     │"
  389. 775 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  390. 776 LPRINT TAB(5)"Ist der Unterbodenschutz noch einwand-        │    │      │     │"
  391. 777 LPRINT TAB(5)"frei ? Mit Schraubenzieher prüfen.Wenn        │    │      │     │"
  392. 778 LPRINT TAB(5)"frisch aufgetragen,kein gutes Zeichen         │    │      │     │"
  393. 779 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  394. 780 LPRINT TAB(5)"Nehmen Sie die Bodenmatten heraus und         │    │      │     │"
  395. 781 LPRINT TAB(5)"kontrollieren Sie den Boden auf der           │    │      │     │"
  396. 782 LPRINT TAB(5)"Innenseite. Rostansätze ?                     │    │      │     │"
  397. 783 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  398. 784 LPRINT TAB(5)"Sind mit schwarzem Lack oder Unterboden-      │    │      │     │"
  399. 785 LPRINT TAB(5)"schutz abgedeckt                              │    │      │     │"
  400. 786 LPRINT TAB(5)"Radhäuser ...............                     │    │      │     │"
  401. 787 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  402. 788 LPRINT TAB(5)"Kotflügel ...............                     │    │      │     │"
  403. 789 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  404. 790 LPRINT TAB(5)"Karosserieabschlußschürzen ..                 │    │      │     │"
  405. 791 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  406. 792 LPRINT TAB(5)"Mit Schraubenzieher den Auspuff prüfen.       │    │      │     │"
  407. 793 LPRINT TAB(5)"Besteht dieser noch aus Stahlblech            │    │      │     │"
  408. 794 LPRINT TAB(5)"oder nur noch aus Rost ?                      │    │      │     │"
  409. 795 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  410. 796 LPRINT TAB(5)"Funktionieren                                 │    │      │     │"
  411. 797 LPRINT TAB(5)"Blinkanlage ............                      │    │      │     │"
  412. 798 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  413. 799 LPRINT TAB(5)"Scheinwerfer ...........                      │    │      │     │"
  414. 800 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  415. 801 LPRINT TAB(5)"Bremslichter ...........                      │    │      │     │"
  416. 802 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  417. 803 LPRINT TAB(5)"Rückfahrscheinwerfer ...                      │    │      │     │"
  418. 804 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  419. 805 LPRINT TAB(5)"Nebelscheinwerfer ......                      │    │      │     │"
  420. 806 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  421. 807 LPRINT TAB(5)"Nebelrücklicht .........                      │    │      │     │"
  422. 808 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  423. 809 LPRINT TAB(5)"Innenraumbeleuchtung ...                      │    │      │     │"
  424. 810 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  425. 811 LPRINT TAB(5)"Kofferraumbeleuchtung ...                     │    │      │     │"
  426. 812 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  427. 813 LPRINT TAB(5)"Sind die Gläser der Scheinwerfer,Lampen       │    │      │     │"
  428. 814 LPRINT TAB(5)"vergilbt, matt oder beschädigt ?              │    │      │     │"
  429. 815 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  430. 816 LPRINT TAB(5)"Ist die Windschutzscheibe frei von            │    │      │     │"
  431. 817 LPRINT TAB(5)"Kratzern ? Folgt meist durch die              │    │      │     │"
  432. 818 LPRINT TAB(5)"Scheibenwischer,Steinschlag.                  │    │      │     │"
  433. 819 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  434. 820 LPRINT TAB(5)"Trägt die Windschutzscheibe an einer          │    │      │     │"
  435. 821 LPRINT TAB(5)"Ecke die Kennung 'ESG' oder 'Securit'?        │    │      │     │"
  436. 822 LPRINT TAB(5)"Dann ist die Scheibe aus Krümmel-             │    │      │     │"
  437. 823 LPRINT TAB(5)"glas. Verbundscheiben sind teurer.            │    │      │     │"
  438. 824 LPRINT TAB(5)"──────────────────────────────────────────────┴────┴──────┴─────┘": GOSUB 90: LPRINT " ": GOSUB 715
  439. 825 LPRINT TAB(5)"Ist die Profiltiefe der Reifen mindes-        │    │      │     │"
  440. 826 LPRINT TAB(5)"tens noch 4-5 mm ?                            │    │      │     │"
  441. 827 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  442. 828 LPRINT TAB(5)"Sind alle 4 Reifen gleichmäßig abgefahren?    │    │      │     │"
  443. 829 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  444. 830 LPRINT TAB(5)"Ist der Reservereifen in Ordnung ?            │    │      │     │"
  445. 831 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  446. 832 LPRINT TAB(5)"Ist Werkzeug zum Reifenwechsel vorhanden ?    │    │      │     │"
  447. 833 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  448. 834 LPRINT TAB(5)"Steht in der Reserveradmulde Wasser ?         │    │      │     │"
  449. 835 LPRINT TAB(5)"(undichte Karosserie im Kofferraum)           │    │      │     │"
  450. 836 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  451. 837 LPRINT TAB(5)"Haben die Pedale ein großes seitliches        │    │      │     │"
  452. 838 LPRINT TAB(5)"Spiel ? Bei niedrigem Kilometerstand          │    │      │     │"
  453. 839 LPRINT TAB(5)"ist Vorsicht geboten.                         │    │      │     │"
  454. 840 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  455. 841 LPRINT TAB(5)"Sind neue Pedalgummis aufgezogen ?            │    │      │     │"
  456. 842 LPRINT TAB(5)"Dann große Vorsicht walten lassen.            │    │      │     │"
  457. 843 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  458. 844 LPRINT TAB(5)"Die Lenkung muß sich ruckfrei von links       │    │      │     │"
  459. 845 LPRINT TAB(5)"nach rechts ohne Spiel aus dem Stand be-      │    │      │     │"
  460. 846 LPRINT TAB(5)"wegen lassen. Ältere Lenksysteme dürfen       │    │      │     │"
  461. 847 LPRINT TAB(5)"bis zu 2 c, Spiel am Lenkrad aufweisen.       │    │      │     │"
  462. 848 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  463. 849 LPRINT TAB(5)"Drücken Sie den Wagen an allen vier           │    │      │     │"
  464. 850 LPRINT TAB(5)"Ecken nach unten und beobachten Sie, ob       │    │      │     │"
  465. 851 LPRINT TAB(5)"der Wagen nachfedert. Stoßdämpfertest.        │    │      │     │"
  466. 852 LPRINT TAB(5)"Sind Klappergeräusche beim Aus- Einfedern     │    │      │     │"
  467. 853 LPRINT TAB(5)"zu hören ?                                    │    │      │     │"
  468. 854 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  469. 855 LPRINT TAB(5)"Wenn Sie das Vorderrad im oberen Bereich      │    │      │     │"
  470. 856 LPRINT TAB(5)"mit beiden Händen kräftig nach außen          │    │      │     │"
  471. 857 LPRINT TAB(5)"ziehen, darf bei den meisten Fahrzeugen       │    │      │     │"
  472. 858 LPRINT TAB(5)"kein oder nur geringes Spiel spürbar sein.    │    │      │     │"
  473. 859 LPRINT TAB(5)"Wenn ja, ist sicherlich ein Radlager          │    │      │     │"
  474. 860 LPRINT TAB(5)"defekt.                                       │    │      │     │"
  475. 861 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  476. 862 LPRINT TAB(5)"Sind die Schließzylinder in Ordnung von       │    │      │     │"
  477. 863 LPRINT TAB(5)"allen vier/fünf Türen ................        │    │      │     │"
  478. 864 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  479. 865 LPRINT TAB(5)"allen Kofferraum .....................        │    │      │     │"
  480. 866 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  481. 867 LPRINT TAB(5)"Tankschloß ...........................        │    │      │     │"
  482. 868 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  483. 869 LPRINT TAB(5)"Läßt sich die Motorhaube leicht öffnen        │    │      │     │"
  484. 870 LPRINT TAB(5)"und schließen ?                               │    │      │     │"
  485. 871 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  486. 872 LPRINT TAB(5)"Ist der Kilometerzähler in Ordnung ?          │    │      │     │"
  487. 873 LPRINT TAB(5)"Fahren Sie einige Kilometer und beo-          │    │      │     │"
  488. 874 LPRINT TAB(5)"bachten Sie den Tachostand.                   │    │      │     │"
  489. 875 LPRINT TAB(5)"──────────────────────────────────────────────┴────┴──────┴─────┘": GOSUB 90: LPRINT " ": GOSUB 715
  490. 876 LPRINT TAB(5)"Ist ein Warndreieck vorhanden ?               │    │      │     │"
  491. 877 LPRINT TAB(5)"Da Pflicht, muß es auf alle Fälle vor-        │    │      │     │"
  492. 878 LPRINT TAB(5)"handen sein oder mitgeliefert werden.         │    │      │     │"
  493. 879 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  494. 880 LPRINT TAB(5)"Ist ein Verbandskasten vorhanden ?            │    │      │     │"
  495. 881 LPRINT TAB(5)"Da Pflicht, muß dieser auf alle Fälle vor-    │    │      │     │"
  496. 882 LPRINT TAB(5)"handen sein oder mitgeliefert werden.         │    │      │     │"
  497. 883 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  498. 884 LPRINT TAB(5)"Sind die Scheibenwischer noch O.K. ?          │    │      │     │"
  499. 885 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  500. 886 LPRINT TAB(5)"Sind die Sitze bereits abgesessen  ?          │    │      │     │"
  501. 887 LPRINT TAB(5)"Deutet auf langes Fahren hin und              │    │      │     │"
  502. 888 LPRINT TAB(5)"mangelnde Pflege ?                            │    │      │     │"
  503. 889 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  504. 890 LPRINT TAB(5)"Ist die Autoantenne (sofern vorhanden)        │    │      │     │"
  505. 891 LPRINT TAB(5)"voll betriebsbereit und funktionsfähig ?      │    │      │     │"
  506. 892 LPRINT TAB(5)"Ausziehen und nachprüfen.                     │    │      │     │"
  507. 893 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  508. 894 LPRINT TAB(5)"Springt der Motor im kalten Zustand           │    │      │     │"
  509. 895 LPRINT TAB(5)"sofort an ? Vor dem Start einmal aufs         │    │      │     │"
  510. 896 LPRINT TAB(5)"Gaspedal drehen.                              │    │      │     │"
  511. 897 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  512. 898 LPRINT TAB(5)"Läuft der Motor im Leerlauf rund ?            │    │      │     │"
  513. 899 LPRINT TAB(5)"Klappernde Geräusche und unrunder Lauf        │    │      │     │"
  514. 900 LPRINT TAB(5)"deuten auf Fehler in der Zündanlage hin.      │    │      │     │"
  515. 901 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  516. 902 LPRINT TAB(5)"Lassen sich die Gänge butterweich             │    │      │     │"
  517. 903 LPRINT TAB(5)"schalten ? Schwergängige Schaltungen          │    │      │     │"
  518. 904 LPRINT TAB(5)"deuten auf ein neues Getriebe hin.            │    │      │     │"
  519. 905 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  520. 906 LPRINT TAB(5)"Fassen die Bremsen sofort ? Kurzer            │    │      │     │"
  521. 907 LPRINT TAB(5)"Bremsweg.                                     │    │      │     │"
  522. 908 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  523. 909 LPRINT TAB(5)"Beim Fahren kurz das Lenkrad loslassen.       │    │      │     │"
  524. 910 LPRINT TAB(5)"Fährt der Wagen gerade aus oder weicht        │    │      │     │"
  525. 911 LPRINT TAB(5)"er nach links/rechts ab.                      │    │      │     │"
  526. 912 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  527. 913 LPRINT TAB(5)"Sind Wasserflecken im Bereich der Fenster     │    │      │     │"
  528. 914 LPRINT TAB(5)"zu sehen ?                                    │    │      │     │"
  529. 915 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  530. 916 LPRINT TAB(5)"Sind Wasserflecken am Himmel (bei             │    │      │     │"
  531. 917 LPRINT TAB(5)"Schiebedach) zu sehen ?                       │    │      │     │"
  532. 918 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  533. 919 LPRINT TAB(5)"Funktionieren alle Kontrollinstrumente        │    │      │     │"
  534. 920 LPRINT TAB(5)"wie Tankanzeige, Geschwindigkeitsmesser,      │    │      │     │"
  535. 921 LPRINT TAB(5)"Drehzahlmesser, Beleuchtungskontrollen,       │    │      │     │"
  536. 922 LPRINT TAB(5)"anzeige ?                                     │    │      │     │"
  537. 923 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  538. 924 LPRINT TAB(5)"Läßt sich die Handbremse mindestens um        │    │      │     │"
  539. 925 LPRINT TAB(5)"3-4 Zähne feststellen ?                       │    │      │     │"
  540. 926 LPRINT TAB(5)"──────────────────────────────────────────────┴────┴──────┴─────┘": GOSUB 90: LPRINT " ": GOSUB 715
  541. 927 LPRINT TAB(5)"Getriebetest. Handbremse feststellen. 4.      │    │      │     │"
  542. 928 LPRINT TAB(5)"Gang einlegen und losfahren. Rollt der        │    │      │     │"
  543. 929 LPRINT TAB(5)"Wagen an, ist bald ein neues Getriebe         │    │      │     │"
  544. 930 LPRINT TAB(5)"(Kupplung) fällig.                            │    │      │     │"
  545. 931 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  546. 932 LPRINT TAB(5)"Macht sich beim Leerlauf oder beim            │    │      │     │"
  547. 933 LPRINT TAB(5)"Fahren der Auspuff bemerkbar ?                │    │      │     │"
  548. 934 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  549. 935 LPRINT TAB(5)"Ist der Wagen für noch mindestens ein         │    │      │     │"
  550. 936 LPRINT TAB(5)"halbes Jahr TÜV zugelassen ?                  │    │      │     │"
  551. 937 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  552. 938 LPRINT TAB(5)"Besteht mindestens noch für ein halbes        │    │      │     │"
  553. 939 LPRINT TAB(5)"Jahr ASU (Abgassonderuntersuchung) ?          │    │      │     │"
  554. 940 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  555. 941 LPRINT TAB(5)"Sind alle Inspektionen, Ölkontrollen          │    │      │     │"
  556. 942 LPRINT TAB(5)"durchgeführt worden ?                         │    │      │     │"
  557. 943 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  558. 944 LPRINT TAB(5)"Allgemeinzustand.                             │    │      │     │"
  559. 945 LPRINT TAB(5)"Ist der äußere Zustand gut ?                  │    │      │     │"
  560. 946 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  561. 947 LPRINT TAB(5)"Ist der innere Zustand gut ?                  │    │      │     │"
  562. 948 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  563. 949 LPRINT TAB(5)"Ist die Bedienungsanleitung vorhanden ?       │    │      │     │"
  564. 950 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  565. 951 LPRINT TAB(5)"Hat der Wagen mehr als 3 Vorbesitzer  ?       │    │      │     │"
  566. 952 LPRINT TAB(5)"Dann ist Vorsicht geboten.                    │    │      │     │"
  567. 953 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  568. 954 LPRINT TAB(5)"Entsprechen die gefahrenen Kilometer          │    │      │     │"
  569. 955 LPRINT TAB(5)"in etwa dem Baujahr ? Jährlicher              │    │      │     │"
  570. 956 LPRINT TAB(5)"Fahrleistung ca. 15-20 000.                   │    │      │     │"
  571. 957 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  572. 958 LPRINT TAB(5)"Gibt es für das Fahrzeug noch Er-             │    │      │     │"
  573. 959 LPRINT TAB(5)"satzteile ? Bei älteren Modellen.             │    │      │     │"
  574. 960 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  575. 961 LPRINT TAB(5)"Sind Unfallschäden erkennbar ?                │    │      │     │"
  576. 962 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  577. 963 LPRINT TAB(5)"Läßt sich der Fahrer/Beifahrersitz            │    │      │     │"
  578. 964 LPRINT TAB(5)"problemlos verstellen ?                       │    │      │     │"
  579. 966 LPRINT TAB(5)"──────────────────────────────────────────────┼────┼──────┼─────┤"
  580. 967 LPRINT TAB(5)"Arbeitet die Heizung ordnungsgemäß ?          │    │      │     │"
  581. 968 LPRINT TAB(5)"──────────────────────────────────────────────┴────┴──────┴─────┘"
  582. 969 LPRINT CHR$(27);"@": GOTO 100
  583. 1000 GOSUB 180
  584. 1001 LPRINT TAB(5);K1$;" ";K2$
  585. 1002 LPRINT TAB(5);K3$: LPRINT " "
  586. 1003 LPRINT TAB(5);K4$;" ";K5$: LPRINT " "
  587. 1004 LPRINT TAB(5);"Tel.: ";K6$: LPRINT " "
  588. 1005 LPRINT TAB(5)"_______________________________________________________________________": LPRINT " "
  589. 1006 LPRINT TAB(5);ANREDE$
  590. 1007 LPRINT TAB(5);AN1$;TAB(46);"Bankverbindung : ";K7$
  591. 1008 LPRINT TAB(5);AN2$;TAB(46);"                 ";K8$
  592. 1009 LPRINT TAB(46);"Konto-Nummer   : ";K9$
  593. 1010 LPRINT TAB(5);AN3$;TAB(46)"Bankleitzahl   : ";K10$: LPRINT " "
  594. 1011 LPRINT TAB(5)"_______________________________________________________________________": LPRINT " "
  595. 1012 LPRINT TAB(5);K5$", den ";DATUM$: LPRINT " ": LPRINT " ": RETURN
  596. 1020 CLS: LOCATE 22,5: PRINT "Heutiges Datum :   .  .19  "
  597. 1021 ZZ$=MID$(DATE$,4,2)
  598. 1022 R=22: S=22: L=2: PK%=2: GOSUB 20: D1$=ZZ$
  599. 1023 IF D1$=CHR$(13) THEN D1$=MID$(DATE$,4,2)
  600. 1024 Z=VAL(D1$): IF Z<=0 OR Z>31 THEN BEEP: GOTO 1021
  601. 1025 ZZ$=LEFT$(DATE$,2)
  602. 1026 R=22: S=25: L=2: PK%=2: GOSUB 20: D2$=ZZ$
  603. 1027 IF D2$=CHR$(13) THEN D2$=LEFT$(DATE$,2)
  604. 1028 Z=VAL(D2$): IF Z<=0 OR Z>12 THEN BEEP: GOTO 1025
  605. 1030 ZZ$=RIGHT$(DATE$,2)
  606. 1031 R=22: S=30: L=2: PK%=2: GOSUB 20: D3$=ZZ$
  607. 1032 IF D3$=CHR$(13) THEN D3$=RIGHT$(DATE$,2)
  608. 1033 Z=VAL(D3$): IF Z<80 OR Z>99 THEN BEEP: GOTO 1030
  609. 1035 DATUM$=D1$+"."+D2$+".19"+D3$: RETURN
  610. 1080 GOSUB 10700
  611. 1081 GOSUB 160: GOSUB 10090: GOSUB 10190
  612. 1100 GOSUB 80
  613. 1101 LOCATE 5,5: PRINT "Brief an Zulassungsstelle....": ANREDE$="An die"
  614. 1102 AN1$="Zulassungsstelle "+K5$
  615. 1103 AN2$=V10$: AN3$=V11$
  616. 1110 GOSUB 1000
  617. 1111 LPRINT TAB(5)"Betreff : Verkauf meines Fahrzeugs": LPRINT " "
  618. 1112 LPRINT TAB(5)"Sehr geehrte Damen und Herren,": LPRINT " "
  619. 1113 LPRINT TAB(5)"ich habe mein nachstehend näher bezeichnetes Fahrzeug verkauft :": LPRINT " "
  620. 1115 LPRINT TAB(5)"Fabrikat     : ";F2$
  621. 1116 LPRINT TAB(5)"Kennzeichen  : ";F1$
  622. 1117 LPRINT TAB(5)"Fahrgestell  : ";F7$
  623. 1118 LPRINT TAB(5)"KFZ-Briefnr. : ";F5$
  624. 1119 LPRINT TAB(5)"Datum        : ";DATUM$: LPRINT " "
  625. 1120 LPRINT TAB(5)"an .....": LPRINT " "
  626. 1121 LPRINT TAB(5)"Name         : ";B1$;" ";B2$
  627. 1122 LPRINT TAB(5)"Straße       : ";B3$
  628. 1123 LPRINT TAB(5)"PLZ / Ort    : ";B4$;" ";B5$: LPRINT " "
  629. 1125 LPRINT TAB(5)"Der Käufer ";B2$;" hat von mir den Fahrzeugbrief nebst dem"
  630. 1126 LPRINT TAB(5)"Kraftfahrzeugschein erhalten. Er wurde von mir unterrichtet,"
  631. 1127 LPRINT TAB(5)"daß er das Fahrzeug binnen 8 Tagen umzumelden hat.": LPRINT " "
  632. 1128 LPRINT TAB(5)"Mit freundlichen Grüßen": LPRINT " "
  633. 1129 LPRINT TAB(7);K1$;" ";K2$: LPRINT CHR$(27);"@"
  634. 1130 LOCATE 22,5: COLOR 0,15: PRINT "  Ausdruck wiederholen (Kopie) = F 9                      Weiter = ESC  ": COLOR 15,0
  635. 1131 E$=INKEY$: IF E$="" THEN 1131
  636. 1132 IF E$="^" THEN 1110
  637. 1133 IF E$=CHR$(27) THEN 1200
  638. 1134 GOTO 1131
  639. 1200 GOSUB 80
  640. 1201 LOCATE 5,5: PRINT "Brief an Finanzamt ....": ANREDE$="An das Finanzamt"
  641. 1202 AN1$=V6$
  642. 1203 AN2$=V7$: AN3$=V8$
  643. 1210 GOSUB 1000
  644. 1211 LPRINT TAB(5)"Betreff : Verkauf meines Fahrzeugs": LPRINT " "
  645. 1212 LPRINT TAB(5)"Sehr geehrte Damen und Herren,": LPRINT " "
  646. 1213 LPRINT TAB(5)"ich habe mein nachstehend näher bezeichnetes Fahrzeug verkauft :": LPRINT " "
  647. 1215 LPRINT TAB(5)"Fabrikat     : ";F2$
  648. 1216 LPRINT TAB(5)"Kennzeichen  : ";F1$
  649. 1217 LPRINT TAB(5)"Steuernummer : ";V9$
  650. 1218 LPRINT TAB(5)"Erstzulassung: ";F3$
  651. 1219 LPRINT TAB(5)"Datum        : ";DATUM$: LPRINT " "
  652. 1220 LPRINT TAB(5)"Der Verkauf meines Fahrzeugs wurde der Zulassungsstelle"
  653. 1221 LPRINT TAB(5)"in ";K5$;" mit heutigem Datum mitgeteilt.": LPRINT " "
  654. 1222 LPRINT TAB(5)"Ich bitte um Überweisung der zuviel gezahlten KFZ-Steuer"
  655. 1223 LPRINT TAB(5)"auf mein Konto :": LPRINT " "
  656. 1224 LPRINT TAB(15);K7$;" ";K8$
  657. 1225 LPRINT TAB(15)"Konto : ";K9$
  658. 1226 LPRINT TAB(15)"BLZ   : ";K10$: LPRINT " "
  659. 1227 LPRINT TAB(5)"Gerne hoffe ich auf umgehende Erledigung und verbleibe": LPRINT " "
  660. 1228 LPRINT TAB(5)"Mit freundlichen Grüßen": LPRINT " "
  661. 1229 LPRINT TAB(7);K1$;" ";K2$: LPRINT CHR$(27);"@"
  662. 1230 LOCATE 22,5: COLOR 0,15: PRINT "  Ausdruck wiederholen (Kopie) = F 9                        Ende = ESC  ": COLOR 15,0
  663. 1231 E$=INKEY$: IF E$="" THEN 1231
  664. 1232 IF E$="^" THEN 1210
  665. 1233 IF E$=CHR$(27) THEN 100
  666. 1234 GOTO 1231
  667. 1280 GOSUB 10700
  668. 1281 GOSUB 160: GOSUB 10090: GOSUB 10190
  669. 1300 GOSUB 80
  670. 1301 LOCATE 5,5: PRINT "Brief an Versicherung ....": ANREDE$="An die"
  671. 1302 AN1$=V2$
  672. 1303 AN2$=V3$: AN3$=V4$+" "+V5$
  673. 1310 GOSUB 1000
  674. 1311 LPRINT TAB(5)"Betreff : Verkauf meines Fahrzeugs": LPRINT " "
  675. 1312 LPRINT TAB(5)"Sehr geehrte Damen und Herren,": LPRINT " "
  676. 1313 LPRINT TAB(5)"ich habe mein nachstehend näher bezeichnetes Fahrzeug verkauft :": LPRINT " "
  677. 1315 LPRINT TAB(5)"Fabrikat     : ";F2$
  678. 1316 LPRINT TAB(5)"Kennzeichen  : ";F1$
  679. 1317 LPRINT TAB(5)"Versich.-Nr. : ";V1$: K=VAL(F4$): KW=K*.735
  680. 1318 LPRINT TAB(5)"Erstzulassung: ";F3$
  681. 1319 LPRINT TAB(5)"PS / KW      : ";F4$;" / ";USING"###";KW;: LPRINT " KW"
  682. 1320 LPRINT TAB(5)"Vers.-Ablauf : ";F10$
  683. 1321 LPRINT TAB(5)"Verk.-Datum  : ";DATUM$: LPRINT " "
  684. 1322 LPRINT TAB(5)"Der Verkauf meines Fahrzeugs wurde der Zulassungsstelle"
  685. 1323 LPRINT TAB(5)"in ";K5$;" mit heutigem Datum mitgeteilt.": LPRINT " "
  686. 1324 LPRINT TAB(5)"Ich bitte um Überweisung des zuviel gezahlten KFZ-Beitrages"
  687. 1325 LPRINT TAB(5)"auf mein Konto :": LPRINT " "
  688. 1326 LPRINT TAB(15);K7$;" ";K8$
  689. 1327 LPRINT TAB(15)"Konto : ";K9$
  690. 1328 LPRINT TAB(15)"BLZ   : ";K10$: LPRINT " "
  691. 1329 LPRINT TAB(5)"Gerne hoffe ich auf umgehende Erledigung und verbleibe": LPRINT " "
  692. 1330 LPRINT TAB(5)"Mit freundlichen Grüßen": LPRINT " "
  693. 1331 LPRINT TAB(7);K1$;" ";K2$: LPRINT CHR$(27);"@"
  694. 1340 LOCATE 22,5: COLOR 0,15: PRINT "  Ausdruck wiederholen (Kopie) = F 9                        Ende = ESC  ": COLOR 15,0
  695. 1341 E$=INKEY$: IF E$="" THEN 1341
  696. 1342 IF E$="^" THEN 1310
  697. 1343 IF E$=CHR$(27) THEN 100
  698. 1344 GOTO 1341
  699. 1350 GOSUB 80
  700. 1351 LOCATE 5,10: PRINT "Anforderung einer Vers.-Doppelkarte"
  701. 1352 LOCATE 8,20: PRINT "[1] wegen Fahrzeugwechsel"
  702. 1353 LOCATE 10,20: PRINT "[2] wegen Wiederzulassung"
  703. 1354 LOCATE 12,20: PRINT "[3] wegen Ummeldung"
  704. 1355 LOCATE 14,20: PRINT "[4] wegen Neuzulassung"
  705. 1356 LOCATE 16,20: PRINT "[5] zum Hauptmenü"
  706. 1360 E$=INKEY$: IF E$="" THEN 1360
  707. 1361 IF E$="1" THEN Y$="Fahrzeugwechsel": RETURN
  708. 1362 IF E$="2" THEN Y$="Wiederzulassung": RETURN
  709. 1363 IF E$="3" THEN Y$="Ummeldung": RETURN
  710. 1364 IF E$="4" THEN Y$="Neuzulassung": RETURN
  711. 1365 IF E$="5" THEN 100
  712. 1366 GOTO 1360
  713. 1370 GOSUB 80
  714. 1371 LOCATE 5,10: PRINT "Anforderung einer Vers.-Doppelkarte"
  715. 1372 LOCATE 8,15: PRINT "[1] Zusendung an eigene Anschrift"
  716. 1373 LOCATE 10,15: PRINT "[2] Zusendung an Autohaus"
  717. 1375 E$=INKEY$: IF E$="" THEN 1375
  718. 1376 IF E$="1" THEN KENN$="1": RETURN
  719. 1377 IF E$="2" THEN KENN$="2": GOTO 1380
  720. 1378 GOTO 1375
  721. 1380 LOCATE 12,15: PRINT "[1] Autohaus     : ": LOCATE 13,15: PRINT "[2] Straße       : ": LOCATE 14,15: PRINT "[3] PLZ          : ": LOCATE 15,15: PRINT "[4] Ort          : "
  722. 1381 ZZ$="": R=12: S=33: L=25: PK%=1: GOSUB 20: AU1$=ZZ$
  723. 1382 IF AU1$=CHR$(13) THEN BEEP: GOTO 1384
  724. 1383 IF PP=1 THEN RETURN
  725. 1384 ZZ$="": R=13: S=33: L=25: PK%=1: GOSUB 20: AU2$=ZZ$
  726. 1385 IF AU2$=CHR$(13) THEN BEEP: GOTO 1386
  727. 1386 IF PP=1 THEN RETURN
  728. 1387 ZZ$="": R=14: S=33: L= 4: PK%=2: GOSUB 20: AU3$=ZZ$
  729. 1388 IF AU3$=CHR$(13) THEN BEEP: GOTO 1388
  730. 1389 IF PP=1 THEN RETURN
  731. 1390 ZZ$="": R=15: S=33: L=25: PK%=1: GOSUB 20: AU4$=ZZ$
  732. 1391 IF AU4$=CHR$(13) THEN BEEP: GOTO 1390
  733. 1392 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 4                                       weiter = ESC  ": COLOR 15,0: PP=0
  734. 1393  E$=INKEY$: IF E$="" THEN 1393
  735. 1394  IF E$=CHR$(27) THEN RETURN
  736. 1395  IF E$="1" THEN GOSUB 195: GOSUB 1381: GOTO 1392
  737. 1396  IF E$="2" THEN GOSUB 195: GOSUB 1384: GOTO 1392
  738. 1397  IF E$="3" THEN GOSUB 195: GOSUB 1387: GOTO 1392
  739. 1398  IF E$="4" THEN GOSUB 195: GOSUB 1390: GOTO 1392
  740. 1399 GOTO 1393
  741. 1400 GOSUB 1350: GOSUB 1370: GOSUB 160: GOSUB 10090
  742. 1401 GOSUB 80: LOCATE 5,10: PRINT "Anforderung Doppelkarte": ANREDE$="An die"
  743. 1402 AN1$=V2$
  744. 1403 AN2$=V3$: AN3$=V4$+" "+V5$
  745. 1410 GOSUB 1000
  746. 1411 LPRINT TAB(5)"Betreff : Versicherungs-Doppelkarte"
  747. 1412 LPRINT TAB(5)"Nummer  : ";V1$: LPRINT " "
  748. 1414 LPRINT TAB(5)"Sehr geehrte Damen und Herren,": LPRINT " "
  749. 1415 LPRINT TAB(5)"ich bitte um Zusendung einer neuen Versicherungs-Doppelkarte"
  750. 1416 LPRINT TAB(5)"wegen ";Y$;".": LPRINT " "
  751. 1417 IF KENN$="2" THEN 1419
  752. 1418 LPRINT TAB(5)"Senden Sie die Doppelkarte direkt an meine Anschrift.": LPRINT " ": GOTO 1423
  753. 1419 LPRINT TAB(5)"Senden Sie die Doppelkarte direkt an das Autohaus :": LPRINT " "
  754. 1420 LPRINT TAB(15)AU1$
  755. 1421 LPRINT TAB(15)AU2$
  756. 1422 LPRINT TAB(15)AU3$;" ";AU4$: LPRINT " "
  757. 1423 LPRINT TAB(5)"Gerne hoffe ich auf umgehende Erledigung und verbleibe": LPRINT " "
  758. 1424 LPRINT TAB(5)"Mit freundlichen Grüßen": LPRINT " "
  759. 1425 LPRINT TAB(7)K1$;" ";K2$: LPRINT CHR$(27);"@": GOTO 100
  760. 1500 GOSUB 160: GOSUB 10090: GOSUB 10190
  761. 1501 GOSUB 80: LOCATE 5,10: PRINT "Anforderung Grüne Versicherungskarte": ANREDE$="An die"
  762. 1502 AN1$=V2$
  763. 1503 AN2$=V3$: AN3$=V4$+" "+V5$
  764. 1510 GOSUB 1000
  765. 1511 LPRINT TAB(5)"Betreff : Grüne Versicherungskarte"
  766. 1512 LPRINT TAB(5)"Nummer  : ";V1$: LPRINT " "
  767. 1514 LPRINT TAB(5)"Sehr geehrte Damen und Herren,": LPRINT " "
  768. 1515 LPRINT TAB(5)"ich bitte um Zusendung einer grünen Versicherungskarte"
  769. 1516 LPRINT TAB(5)"für nachstehendes Fahrzeug.": LPRINT " "
  770. 1517 LPRINT TAB(5)"Fahrzeug-Typ  : ";F2$
  771. 1518 LPRINT TAB(5)"Kennzeichen   : ";F1$
  772. 1519 LPRINT TAB(5)"Vers.-Nummer  : ";V1$: K=VAL(F4$): KW=K*.735
  773. 1520 LPRINT TAB(5)"Erstzulassung : ";F3$
  774. 1521 LPRINT TAB(5)"PS / KW       : ";F4$; "/ ";USING"###";KW;: LPRINT " KW": LPRINT " ": GOTO 1423
  775. 1600 GOSUB 80: LOCATE 5,5: PRINT "Umrechnungen PS/KW"
  776. 1601 LOCATE 10,20: PRINT "[1] Umrechnung PS nach KW"
  777. 1602 LOCATE 11,20: PRINT "[2] Umrechnung KW nach PS"
  778. 1605 E$=INKEY$: IF E$="" THEN 1605
  779. 1606 IF E$="1" THEN 1610
  780. 1607 IF E$="2" THEN 1630
  781. 1608 GOTO 1605
  782. 1610 LOCATE 13,20: PRINT "Umrechnungsfaktor KW 0.735"
  783. 1611 LOCATE 15,20: PRINT "Angabe von PS : "
  784. 1612 ZZ$=""
  785. 1613 R=15: S=36: L=3: PK%=2: GOSUB 20: PS$=ZZ$
  786. 1614 IF PS$=CHR$(13) THEN 1622
  787. 1615 PS=VAL(PS$): KW=PS*.735
  788. 1616 LOCATE 17,20: PRINT "Umrechnung KW : ";USING"###";KW
  789. 1617  LOCATE 22,5: COLOR 0,15: PRINT "  Beliebige Taste für weitere Berechnungen               Abbruch = ESC  ": COLOR 15,0
  790. 1620  E$=INKEY$: IF E$="" THEN 1620
  791. 1621  IF E$=CHR$(27) THEN 100
  792. 1622 FOR T=1 TO 12: LOCATE 11+T,1: PRINT SPACE$(79): NEXT: GOTO 1601
  793. 1630 LOCATE 13,20: PRINT "Umrechnungsfaktor PS 1.359"
  794. 1631 LOCATE 15,20: PRINT "Angabe von KW : "
  795. 1632 ZZ$=""
  796. 1633 R=15: S=36: L=3: PK%=2: GOSUB 20: KW$=ZZ$
  797. 1634 IF KW$=CHR$(13) THEN 1622
  798. 1635 KW=VAL(KW$): PS=KW*1.359
  799. 1636 LOCATE 17,20: PRINT "Umrechnung PS : ";USING"###";PS : GOTO 1617
  800. 1700 CLS
  801. 1701 LOCATE 8,20: PRINT "(c) 1987 by"
  802. 1702 LOCATE 10,20: PRINT "Karlheinz Herpel"
  803. 1703 LOCATE 11,20: PRINT "Pfalzplatz 12  "
  804. 1704 LOCATE 12,20: PRINT "6800 Mannheim 1"
  805. 1705 LOCATE 14,20: PRINT "Tel.: 0621 - 81 33 02": END
  806. 10000 GOSUB 80: GOSUB 10001: GOTO 10015
  807. 10001 LOCATE 5,5: PRINT "Geben Sie bitte die Daten zur Versicherung ein ..."
  808. 10002 LOCATE 7,5: PRINT "[1] Versich.Nummer    : "
  809. 10003 LOCATE 8,5: PRINT "[2] Vers.Name         : "
  810. 10004 LOCATE 9,5: PRINT "[3] Straße            : "
  811. 10005 LOCATE 10,5: PRINT "[4] Postleitzahl      : "
  812. 10006 LOCATE 11,5: PRINT "[5] Ort               : "
  813. 10007 LOCATE 12,5: PRINT "Geben Sie bitte die Daten zum Finanzamt ein ..."
  814. 10008 LOCATE 13,5: PRINT "[6] Finanzamt         : "
  815. 10009 LOCATE 14,5: PRINT "[7] Straße            : "
  816. 10010 LOCATE 15,5: PRINT "[8] PLZ und Ort       : "
  817. 10011 LOCATE 16,5: PRINT "[9] Steuer-Nummer     : "
  818. 10012 LOCATE 17,5: PRINT "[0] Zulassungs/straße : "
  819. 10013 LOCATE 18,5: PRINT "[A] PLZ und Ort       : "
  820. 10014 RETURN
  821. 10015 ZZ$=""
  822. 10016 R=7: S=29: L=12: PK%=1: GOSUB 20: V1$=ZZ$
  823. 10017 IF V1$=CHR$(13) THEN BEEP: GOTO 10015
  824. 10018 IF PP=1 THEN RETURN
  825. 10020 ZZ$=""
  826. 10021 R=8: S=29: L=25: PK%=1: GOSUB 20: V2$=ZZ$
  827. 10022 IF V2$=CHR$(13) THEN BEEP: GOTO 10020
  828. 10023 IF PP=1 THEN RETURN
  829. 10025 ZZ$=""
  830. 10026 R=9: S=29: L=25: PK%=1: GOSUB 20: V3$=ZZ$
  831. 10027 IF V3$=CHR$(13) THEN BEEP: GOTO 10025
  832. 10028 IF PP=1 THEN RETURN
  833. 10030 ZZ$=""
  834. 10031 R=10: S=29: L=4: PK%=2: GOSUB 20: V4$=ZZ$
  835. 10032 IF V4$=CHR$(13) THEN BEEP: GOTO 10030
  836. 10033 IF PP=1 THEN RETURN
  837. 10035 ZZ$=""
  838. 10036 R=11: S=29: L=25: PK%=1: GOSUB 20: V5$=ZZ$
  839. 10037 IF V5$=CHR$(13) THEN BEEP: GOTO 10035
  840. 10038 IF PP=1 THEN RETURN
  841. 10040 ZZ$=""
  842. 10041 R=13: S=29: L=20: PK%=1: GOSUB 20: V6$=ZZ$
  843. 10042 IF V6$=CHR$(13) THEN BEEP: GOTO 10040
  844. 10043 IF PP=1 THEN RETURN
  845. 10045 ZZ$=""
  846. 10046 R=14: S=29: L=25: PK%=1: GOSUB 20: V7$=ZZ$
  847. 10047 IF V7$=CHR$(13) THEN BEEP: GOTO 10045
  848. 10048 IF PP=1 THEN RETURN
  849. 10050 ZZ$=""
  850. 10051 R=15: S=29: L=25: PK%=1: GOSUB 20: V8$=ZZ$
  851. 10052 IF V8$=CHR$(13) THEN BEEP: GOTO 10050
  852. 10053 IF PP=1 THEN RETURN
  853. 10055 ZZ$=""
  854. 10056 R=16: S=29: L=12: PK%=1: GOSUB 20: V9$=ZZ$
  855. 10057 IF V9$=CHR$(13) THEN BEEP: GOTO 10055
  856. 10058 IF PP=1 THEN RETURN
  857. 10060 ZZ$=""
  858. 10061 R=17: S=29: L=25: PK%=1: GOSUB 20: V10$=ZZ$
  859. 10062 IF V10$=CHR$(13) THEN BEEP: GOTO 10060
  860. 10063 IF PP=1 THEN RETURN
  861. 10065 ZZ$=""
  862. 10066 R=18: S=29: L=30: PK%=1: GOSUB 20: V11$=ZZ$
  863. 10067 IF V11$=CHR$(13) THEN BEEP: GOTO 10065
  864. 10068 IF PP=1 THEN RETURN
  865. 10069 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0/A              Abbruch = ESC          Weiter = F 10 ": COLOR 15,0: PP=0
  866. 10070 E$=INKEY$: IF E$="" THEN 10070
  867. 10071 IF E$="\" THEN GOSUB 10085: GOTO 10100
  868. 10072 IF E$=CHR$(27) THEN GOSUB 156: GOTO 100
  869. 10073 IF E$="1" THEN GOSUB 195: GOSUB 10015: GOTO 10069
  870. 10074 IF E$="2" THEN GOSUB 195: GOSUB 10020: GOTO 10069
  871. 10075 IF E$="3" THEN GOSUB 195: GOSUB 10025: GOTO 10069
  872. 10076 IF E$="4" THEN GOSUB 195: GOSUB 10030: GOTO 10069
  873. 10077 IF E$="5" THEN GOSUB 195: GOSUB 10035: GOTO 10069
  874. 10078 IF E$="6" THEN GOSUB 195: GOSUB 10040: GOTO 10069
  875. 10079 IF E$="7" THEN GOSUB 195: GOSUB 10045: GOTO 10069
  876. 10080 IF E$="8" THEN GOSUB 195: GOSUB 10050: GOTO 10069
  877. 10081 IF E$="9" THEN GOSUB 195: GOSUB 10055: GOTO 10069
  878. 10082 IF E$="0" THEN GOSUB 195: GOSUB 10060: GOTO 10069
  879. 10083 IF E$="A" OR E$="a" THEN GOSUB 195: GOSUB 10065: GOTO 10069
  880. 10084 GOTO 10070
  881. 10085 LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden gespeichert. Bitte warten ......                ": COLOR 15,0
  882. 10086 OPEN "vers.dat" FOR OUTPUT AS #1
  883. 10087 PRINT #1,V1$: PRINT #1,V2$: PRINT #1,V3$: PRINT #1,V4$: PRINT #1,V5$
  884. 10088 PRINT #1,V6$: PRINT #1,V7$: PRINT #1,V8$: PRINT #1,V9$: PRINT #1,V10$: PRINT #1,V11$
  885. 10089 CLOSE #1: CLOSE: RETURN
  886. 10090 GOSUB 65: LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden eingelesen . Bitte warten ......                ": COLOR 15,0: ON ERROR GOTO 10094
  887. 10091 OPEN "vers.dat" FOR INPUT AS #1
  888. 10092 INPUT #1,V1$,V2$,V3$,V4$,V5$,V6$,V7$,V8$,V9$,V10$,V11$
  889. 10093 CLOSE #1: CLOSE: IF V1$="" THEN 166 ELSE RETURN
  890. 10094 IF ERR=53 AND ERR=58 OR ERR=1230 THEN 166
  891. 10095 RESUME NEXT
  892. 10100 GOSUB 80: GOSUB 10101: GOTO 10120
  893. 10101 LOCATE 5,5: PRINT "Geben Sie bitte die Daten zu Ihrem Fahrzeug ein..."
  894. 10102 LOCATE 7,5: PRINT "[1] Kennzeichen       : "
  895. 10103 LOCATE 8,5: PRINT "[2] Fahrzeugtyp       : "
  896. 10104 LOCATE 9,5: PRINT "[3] Erstzulassung     : "
  897. 10105 LOCATE 10,5: PRINT "[4] PS                : "
  898. 10106 LOCATE 11,5: PRINT "[5] KFZ-Brief-Nr.     : "
  899. 10107 LOCATE 12,5: PRINT "[6] Motor-Nummer      : "
  900. 10108 LOCATE 13,5: PRINT "[7] Fahrgestell-Nr.   : "
  901. 10109 LOCATE 14,5: PRINT "[8] TÜV bis           : "
  902. 10110 LOCATE 15,5: PRINT "[9] ASU bis           : "
  903. 10111 LOCATE 16,5: PRINT "[0] Ablauf Versich.   : "
  904. 10112 RETURN
  905. 10120 ZZ$=""
  906. 10121 R=7: S=29: L= 9: PK%=1: GOSUB 20: F1$=ZZ$
  907. 10122 IF F1$=CHR$(13) THEN BEEP: GOTO 10120
  908. 10123 IF PP=1 THEN RETURN
  909. 10125 ZZ$=""
  910. 10126 R=8: S=29: L=25: PK%=1: GOSUB 20: F2$=ZZ$
  911. 10127 IF F2$=CHR$(13) THEN BEEP: GOTO 10125
  912. 10128 IF PP=1 THEN RETURN
  913. 10130 ZZ$=""
  914. 10131 R=9: S=29: L=10: PK%=1: GOSUB 20: F3$=ZZ$
  915. 10132 IF F3$=CHR$(13) THEN BEEP: GOTO 10130
  916. 10133 IF LEN(F3$)<>10 THEN BEEP: GOTO 10130
  917. 10134 IF PP=1 THEN RETURN
  918. 10135 ZZ$=""
  919. 10136 R=10: S=29: L= 3: PK%=1: GOSUB 20: F4$=ZZ$
  920. 10137 IF F4$=CHR$(13) THEN BEEP: GOTO 10135
  921. 10138 PS=VAL(F4$): KW=PS*.735: LOCATE 10,34: PRINT "PS sind "; USING"###";KW;: PRINT " KW"
  922. 10139 IF PP=1 THEN RETURN
  923. 10140 ZZ$=""
  924. 10141 R=11: S=29: L=20: PK%=1: GOSUB 20: F5$=ZZ$
  925. 10142 IF F5$=CHR$(13) THEN F5$="-"
  926. 10143 IF PP=1 THEN RETURN
  927. 10145 ZZ$=""
  928. 10146 R=12: S=29: L=20: PK%=1: GOSUB 20: F6$=ZZ$
  929. 10147 IF F6$=CHR$(13) THEN F6$="-"
  930. 10148 IF PP=1 THEN RETURN
  931. 10150 ZZ$=""
  932. 10151 R=13: S=29: L=20: PK%=1: GOSUB 20: F7$=ZZ$
  933. 10152 IF F7$=CHR$(13) THEN F7$="-"
  934. 10153 IF PP=1 THEN RETURN
  935. 10155 ZZ$=""
  936. 10156 R=14: S=29: L=10: PK%=2: GOSUB 20: F8$=ZZ$
  937. 10157 IF F8$=CHR$(13) THEN F8$="-"
  938. 10158 IF PP=1 THEN RETURN
  939. 10160 ZZ$=""
  940. 10161 R=15: S=29: L=10: PK%=2: GOSUB 20: F9$=ZZ$
  941. 10162 IF F9$=CHR$(13) THEN F9$="-"
  942. 10163 IF PP=1 THEN RETURN
  943. 10165 ZZ$=""
  944. 10166 R=16: S=29: L=10: PK%=2: GOSUB 20: F10$=ZZ$
  945. 10167 IF F10$=CHR$(13) THEN F10$="-"
  946. 10168 IF PP=1 THEN RETURN
  947. 10169 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0                Abbruch = ESC          Weiter = F 10 ": COLOR 15,0: PP=0
  948. 10170 E$=INKEY$: IF E$="" THEN 10170
  949. 10171 IF E$="\" THEN GOSUB 10185: GOTO 100
  950. 10172 IF E$=CHR$(27) THEN GOSUB 156: GOTO 100
  951. 10173 IF E$="1" THEN GOSUB 195: GOSUB 10020: GOTO 10169
  952. 10174 IF E$="2" THEN GOSUB 195: GOSUB 10025: GOTO 10169
  953. 10175 IF E$="3" THEN GOSUB 195: GOSUB 10030: GOTO 10169
  954. 10176 IF E$="4" THEN GOSUB 195: GOSUB 10035: GOTO 10169
  955. 10177 IF E$="5" THEN GOSUB 195: GOSUB 10040: GOTO 10169
  956. 10178 IF E$="6" THEN GOSUB 195: GOSUB 10045: GOTO 10169
  957. 10179 IF E$="7" THEN GOSUB 195: GOSUB 10050: GOTO 10169
  958. 10180 IF E$="8" THEN GOSUB 195: GOSUB 10055: GOTO 10169
  959. 10181 IF E$="9" THEN GOSUB 195: GOSUB 10060: GOTO 10169
  960. 10182 IF E$="0" THEN GOSUB 195: GOSUB 10065: GOTO 10169
  961. 10183 GOTO 10170
  962. 10185 LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden gespeichert. Bitte warten ......                ": COLOR 15,0
  963. 10186 OPEN "fahrz.dat" FOR OUTPUT AS #1
  964. 10187 PRINT #1,F1$: PRINT #1,F2$: PRINT #1,F3$: PRINT #1,F4$: PRINT #1,F5$
  965. 10188 PRINT #1,F6$: PRINT #1,F7$: PRINT #1,F8$: PRINT #1,F9$: PRINT #1,F10$
  966. 10189 CLOSE #1: CLOSE: RETURN
  967. 10190 GOSUB 65: LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden eingelesen . Bitte warten ......                ": COLOR 15,0: ON ERROR GOTO 10194
  968. 10191 OPEN "fahrz.dat" FOR INPUT AS #1
  969. 10192 INPUT #1,F1$,F2$,F3$,F4$,F5$,F6$,F7$,F8$,F9$,F10$
  970. 10193 CLOSE #1: CLOSE: IF F1$="" THEN 166 ELSE RETURN
  971. 10194 IF ERR=53 AND ERR=58 OR ERR=1230 THEN 166
  972. 10195 RESUME NEXT
  973. 10200 GOSUB 80: GOSUB 301: MM=0
  974. 10201 LOCATE 7,29: PRINT K1$: LOCATE 8,29: PRINT K2$: LOCATE 9,29: PRINT K3$: LOCATE 10,29: PRINT K4$: LOCATE 11,29: PRINT K5$
  975. 10202 LOCATE 12,29: PRINT K6$: LOCATE 14,29: PRINT K7$: LOCATE 15,29: PRINT K8$: LOCATE 16,29: PRINT K9$: LOCATE 17,29: PRINT K10$
  976. 10205 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0                                      Abbruch = ESC  ": COLOR 15,0: PP=0
  977. 10206 E$=INKEY$: IF E$="" THEN 10206
  978. 10207 IF E$=CHR$(27) THEN 10219
  979. 10208 IF E$="1" THEN GOSUB 195: GOSUB 320: MM=1: GOTO 10205
  980. 10209 IF E$="2" THEN GOSUB 195: GOSUB 325: MM=1: GOTO 10205
  981. 10210 IF E$="3" THEN GOSUB 195: GOSUB 330: MM=1: GOTO 10205
  982. 10211 IF E$="4" THEN GOSUB 195: GOSUB 335: MM=1: GOTO 10205
  983. 10212 IF E$="5" THEN GOSUB 195: GOSUB 340: MM=1: GOTO 10205
  984. 10213 IF E$="6" THEN GOSUB 195: GOSUB 345: MM=1: GOTO 10205
  985. 10214 IF E$="7" THEN GOSUB 195: GOSUB 350: MM=1: GOTO 10205
  986. 10215 IF E$="8" THEN GOSUB 195: GOSUB 355: MM=1: GOTO 10205
  987. 10216 IF E$="9" THEN GOSUB 195: GOSUB 360: MM=1: GOTO 10205
  988. 10217 IF E$="0" THEN GOSUB 195: GOSUB 365: MM=1: GOTO 10205
  989. 10218 GOSUB 10206
  990. 10219 IF MM=1 THEN GOSUB 150: GOTO 100
  991. 10220 GOTO 100
  992. 10300 GOSUB 80: GOSUB 10001: MM=0
  993. 10301 LOCATE 7,29: PRINT V1$: LOCATE 8,29: PRINT V2$: LOCATE 9,29: PRINT V3$: LOCATE 10,29: PRINT V4$: LOCATE 11,29: PRINT V5$
  994. 10302 LOCATE 13,29: PRINT V6$: LOCATE 14,29: PRINT V7$: LOCATE 15,29: PRINT V8$: LOCATE 16,29: PRINT V9$: LOCATE 17,29: PRINT V10$
  995. 10303 LOCATE 18,29: PRINT V11$
  996. 10305 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0/A                                    Abbruch = ESC  ": COLOR 15,0: PP=0
  997. 10306 E$=INKEY$: IF E$="" THEN 10306
  998. 10307 IF E$=CHR$(27) THEN 10320
  999. 10308 IF E$="1" THEN GOSUB 195: GOSUB 10015: MM=1: GOTO 10305
  1000. 10309 IF E$="2" THEN GOSUB 195: GOSUB 10020: MM=1: GOTO 10305
  1001. 10310 IF E$="3" THEN GOSUB 195: GOSUB 10025: MM=1: GOTO 10305
  1002. 10311 IF E$="4" THEN GOSUB 195: GOSUB 10030: MM=1: GOTO 10305
  1003. 10312 IF E$="5" THEN GOSUB 195: GOSUB 10035: MM=1: GOTO 10305
  1004. 10313 IF E$="6" THEN GOSUB 195: GOSUB 10040: MM=1: GOTO 10305
  1005. 10314 IF E$="7" THEN GOSUB 195: GOSUB 10045: MM=1: GOTO 10305
  1006. 10315 IF E$="8" THEN GOSUB 195: GOSUB 10050: MM=1: GOTO 10305
  1007. 10316 IF E$="9" THEN GOSUB 195: GOSUB 10055: MM=1: GOTO 10305
  1008. 10317 IF E$="0" THEN GOSUB 195: GOSUB 10060: MM=1: GOTO 10305
  1009. 10318 IF E$="A" OR E$="a" THEN GOSUB 195: GOSUB 10065: MM=1: GOTO 10305
  1010. 10319 GOTO 10306
  1011. 10320 IF MM=1 THEN GOSUB 10085: GOTO 100
  1012. 10321 GOTO 100
  1013. 10400 GOSUB 80: GOSUB 10101: MM=0
  1014. 10401 LOCATE 7,29: PRINT F1$: LOCATE 8,29: PRINT F2$: LOCATE 9,29: PRINT F3$: LOCATE 10,29: PRINT F4$: LOCATE 11,29: PRINT F5$
  1015. 10402 LOCATE 12,29: PRINT F6$: LOCATE 13,29: PRINT F7$: LOCATE 14,29: PRINT F8$: LOCATE 15,29: PRINT F9$: LOCATE 16,29: PRINT F10$
  1016. 10405 LOCATE 22,5: COLOR 0,15: PRINT "  Korrektur = 1 - 0                                      Abbruch = ESC  ": COLOR 15,0: PP=0
  1017. 10406 E$=INKEY$: IF E$="" THEN 10406
  1018. 10407 IF E$=CHR$(27) THEN 10419
  1019. 10408 IF E$="1" THEN GOSUB 195: GOSUB 10120: MM=1: GOTO 10405
  1020. 10409 IF E$="2" THEN GOSUB 195: GOSUB 10125: MM=1: GOTO 10405
  1021. 10410 IF E$="3" THEN GOSUB 195: GOSUB 10130: MM=1: GOTO 10405
  1022. 10411 IF E$="4" THEN GOSUB 195: GOSUB 10135: MM=1: GOTO 10405
  1023. 10412 IF E$="5" THEN GOSUB 195: GOSUB 10140: MM=1: GOTO 10405
  1024. 10413 IF E$="6" THEN GOSUB 195: GOSUB 10145: MM=1: GOTO 10405
  1025. 10414 IF E$="7" THEN GOSUB 195: GOSUB 10150: MM=1: GOTO 10405
  1026. 10415 IF E$="8" THEN GOSUB 195: GOSUB 10155: MM=1: GOTO 10405
  1027. 10416 IF E$="9" THEN GOSUB 195: GOSUB 10160: MM=1: GOTO 10405
  1028. 10417 IF E$="0" THEN GOSUB 195: GOSUB 10165: MM=1: GOTO 10405
  1029. 10418 GOTO 10406
  1030. 10419 IF MM=1 THEN GOSUB 10185: GOTO 100
  1031. 10420 GOTO 100
  1032. 10600 LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden gespeichert. Bitte warten ......                ": COLOR 15,0
  1033. 10601 OPEN "kunde.dat" FOR OUTPUT AS #1
  1034. 10602 PRINT #1,B1$: PRINT #1,B2$: PRINT #1,B3$: PRINT #1,B4$: PRINT #1,B5$: PRINT #1,B6$
  1035. 10603 CLOSE #1: CLOSE: RETURN
  1036. 10610 LOCATE 22,5: COLOR 0,15: PRINT "           Daten werden eingelesen . Bitte warten ......                ": COLOR 15,0: ON ERROR GOTO 10614
  1037. 10611 OPEN "kunde.dat" FOR INPUT AS #1
  1038. 10612 INPUT #1,B1$,B2$,B3$,B4$,B5$,B6$
  1039. 10613 CLOSE #1: CLOSE: IF B1$="" THEN 166 ELSE RETURN
  1040. 10614 IF ERR=53 AND ERR=58 OR ERR=1230 THEN 166
  1041. 10615 RESUME NEXT
  1042. 10700 LOCATE 22,5: COLOR 0,15: PRINT "  Neu eingeben = F 9  gespeicherte Ansch. einlesen = F 8   Ende = F 10  ": COLOR 15,0: PP=0
  1043. 10705 E$=INKEY$: IF E$="" THEN 10705
  1044. 10706 IF E$="^" THEN GOSUB 610: RETURN
  1045. 10707 IF E$="@" THEN GOSUB 10610: RETURN
  1046. 10708 IF E$="\" THEN RETURN
  1047. 10709 GOTO 10705
  1048. 13000 GOSUB 10610: GOSUB 80
  1049. 13005 GOSUB 615
  1050. 13006 LOCATE 8,24: PRINT B1$: LOCATE 9,24: PRINT B2$
  1051. 13007 LOCATE 10,24: PRINT B3$: LOCATE 11,24: PRINT B4$
  1052. 13008 LOCATE 12,24: PRINT B5$: LOCATE 13,24: PRINT B6$
  1053. 13009 LOCATE 22,5: COLOR 0,15: PRINT "  Beliebige Taste drücken  .........                                    ": COLOR 15,0: GOSUB 60: GOTO 100
  1054.