home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02043 / formular / ekl.bas < prev    next >
BASIC Source File  |  1987-11-09  |  19KB  |  284 lines
  1. 1 WIDTH 80: KEY OFF: COLOR 15,0,0
  2. 2 KEY 7,"<": KEY 8,"@": KEY 9,"^": KEY 10,"\"
  3. 11 GOTO 100
  4. 20  LOCATE 22,5: COLOR 0,15: PRINT " WEITER = F 9            ZURÜCK = F 10                     MENÜ = ESC   ": COLOR 15,0: X=0
  5. 25  E$=INKEY$: IF E$="" THEN 25
  6. 26  IF E$="^" THEN X=1: RETURN
  7. 27  IF E$="\" THEN X=2: RETURN
  8. 28  IF E$=CHR$(27) THEN 100
  9. 29  GOTO  25
  10. 30  LOCATE 22,5: COLOR 0,15: PRINT " DATENENDE               BELIEBIGE TASTE ZUM MENÜ .....                 ": COLOR 15,0: GOSUB 60: GOTO 100
  11. 60  E$=INKEY$: IF E$="" THEN 60
  12. 61 RETURN
  13. 65 LOCATE 22,1: PRINT SPACE$(79): RETURN
  14. 80 CLS: LOCATE 1,1: PRINT STRING$(79,205)
  15. 81 LOCATE 2,1: PRINT "    Karlheinz Herpel             F O R M U L A R E                 (C) 1987)      "
  16. 82 LOCATE 3,1: PRINT STRING$(79,205): RETURN
  17. 100 GOSUB 80: LOCATE ,,0
  18. 101 LOCATE 6,20: PRINT "[1] STAMMDATEN eingeben/ausgeben"
  19. 102 LOCATE 7,20: PRINT "[2] Unfallprotokoll OHNE EINGABEN"
  20. 103 LOCATE 8,20: PRINT "[3] Unfallprotokoll MIT  EINGABEN"
  21. 104 LOCATE 9,20: PRINT "[4] KFZ-Kaufvertrag OHNE EINGABEN"
  22. 105 LOCATE 10,20: PRINT "[5] KFZ-Kaufvertrag MIT  EINGABEN"
  23. 106 LOCATE 11,20: PRINT "[6] Brief an ZULASSUNGSSTELLE (Abmeldung)"
  24. 107 LOCATE 12,20: PRINT "[7] Brief an VERSICHERUNG     (Abmeldung)"
  25. 108 LOCATE 13,20: PRINT "[8] GEBRAUCHTWAGEN-Checkliste (Drucker)"
  26. 109 LOCATE 14,20: PRINT "[9] Anforderung einer Vers.-DECKUNGSKARTE"
  27. 110 LOCATE 15,20: PRINT "[0] Anforderung einer GRÜNEN VERS.KARTE"
  28. 111 LOCATE 17,20: PRINT "[K] Ausgabe KUNDENANSCHRIFT / SCHIRM"
  29. 112 LOCATE 18,20: PRINT "[U] Umrechnung PS/KW"
  30. 113 LOCATE 20,20: PRINT "[X] Programm BEENDEN"
  31. 114 LOCATE 22,20: PRINT "[L] Hauptprogramm LADEN"
  32. 120 E$=INKEY$: IF E$="" THEN 120
  33. 121 IF E$="1" THEN 200
  34. 122 IF E$="2" THEN 310
  35. 123 IF E$="3" THEN 310
  36. 124 IF E$="4" THEN 340
  37. 125 IF E$="5" THEN 360
  38. 126 IF E$="6" THEN 400
  39. 127 IF E$="7" THEN 420
  40. 128 IF E$="8" THEN 430
  41. 129 IF E$="9" THEN 450
  42. 130 IF E$="0" THEN 470
  43. 131 IF E$="K" OR E$="k" THEN 490
  44. 132 IF E$="X" OR E$="x" THEN 150
  45. 133 IF E$="U" OR E$="u" THEN 510
  46. 134 IF E$="l" OR E$="L" THEN GOSUB 140: RUN "kfz"
  47. 135 GOTO 120
  48. 140 LOCATE 22,20: PRINT "Bitte warten ..........": RETURN
  49. 150 CLS
  50. 151 LOCATE 8,20: PRINT "(c) 1987"
  51. 152 LOCATE 10,20: PRINT "Karlheinz Herpel"
  52. 153 LOCATE 11,20: PRINT "Pfalzplatz 12   "
  53. 154 LOCATE 12,20: PRINT "6800 Mannheim 1 "
  54. 155 LOCATE 14,20: PRINT "Tel.: 0621 - 81 33 02": END
  55. 200 GOSUB 80
  56. 201 LOCATE 5,5: PRINT "-1- STAMMDATEN EINGABE/AUSGABE"
  57. 202 LOCATE 7,5: PRINT "Wenn Sie Formulare mit Daten ausgeben wollen, sind zunächst Stammdaten"
  58. 203 LOCATE 8,5: PRINT "einzugeben. Wählen Sie dazu Ziffer 1 im Menü. Es folgt :"
  59. 204 LOCATE 10,5: PRINT "NEUEINGABE = F 9  AUSGABE = F 10  ENDE = F 7"
  60. 205 LOCATE 12,5: PRINT "Taste F 7 bringt Sie wieder zum Hauptmenü,falls Sie keine Daten"
  61. 206 LOCATE 13,5: PRINT "eingeben wollen."
  62. 207 LOCATE 15,5: PRINT "Zu den Stammdaten gehören Ihre eigenen Daten, Daten zur Versicherung"
  63. 208 LOCATE 16,5: PRINT "Finanzamt sowie Zulassungsstelle und Fahrzeugdaten. Alle Datenteile"
  64. 209 LOCATE 17,5: PRINT "werden automatisch auf der Diskette gespeichert, sofern Sie nicht"
  65. 210 LOCATE 18,5: PRINT "vorher die Eingabe mit ESC frühzeitig abbrechen.": GOSUB 20
  66. 211 IF X=1 THEN 220
  67. 212 IF X=2 THEN GOSUB 20: GOTO 212
  68. 220 GOSUB 80
  69. 221 LOCATE 5,5: PRINT "EINGABE DER STAMMDATEN"
  70. 222 LOCATE 7,5: PRINT "Nummer  Art der Eingabe  Länge  Eingabeform Eingabepflicht"
  71. 223 LOCATE 8,5: PRINT "__________________________________________________________"
  72. 224 LOCATE 9,5: PRINT "1       VORNAME          15       ALPHA          NEIN"
  73. 225 LOCATE 10,5: PRINT "2       NACHNAME         20       ALPHA          JA"
  74. 226 LOCATE 11,5: PRINT "3       STRASSE          25       ALPHA          JA"
  75. 227 LOCATE 12,5: PRINT "4       POSTLEITZAHL      4       NUMERISCH      JA"
  76. 228 LOCATE 13,5: PRINT "5       WOHNORT          20       ALPHA          JA"
  77. 229 LOCATE 14,5: PRINT "6       TELEFON-NUMMER   15       ALPHA          NEIN"
  78. 230 LOCATE 15,5: PRINT "7       BANKVERBINDUNG   20       ALPHA          JA"
  79. 231 LOCATE 16,5: PRINT "8       ORT DER BANK     20       ALPHA          JA"
  80. 232 LOCATE 17,5: PRINT "9       KONTO-NUMMER     20       ALPHA          JA"
  81. 233 LOCATE 18,5: PRINT "0       BANKLEITZAHL     10       NUMERISCH      JA": GOSUB 20
  82. 234 IF X=1 THEN 240
  83. 235 IF X=2 THEN 200
  84. 240 GOSUB 80
  85. 241 LOCATE 5,5: PRINT "Nach der letzten Eingabe können Sie mit der entsprechenden Zeilennummer"
  86. 242 LOCATE 6,5: PRINT "von 1-0 gezielt korrigieren. Dabei wird das Eingabefeld vollständig"
  87. 243 LOCATE 7,5: PRINT "gelöscht und steht zur neuen Eingabe bereit."
  88. 244 LOCATE 8,5: PRINT "Mit Taste ESC verlassen Sie den Eingabemodus der Stammdaten und"
  89. 245 LOCATE 9,5: PRINT "kehren zum Hauptmenü zurück. Dabei werden alle bisher eingegebenen"
  90. 246 LOCATE 10,5: PRINT "Daten gelöscht."
  91. 247 LOCATE 11,5: PRINT "Mit Taste F 10 werden zunächst die Daten zur eigenen Anschrift"
  92. 248 LOCATE 12,5: PRINT "auf der Diskette gespeichert. Dann folgen die Eingaben zur"
  93. 249 LOCATE 13,5: PRINT "Versicherung, Finanzamt und Zulassungsstelle. Beachten Sie"
  94. 250 LOCATE 14,5: PRINT "bitte, daß alle nachfolgenden Eingaben nur dann eingegeben werden"
  95. 251 LOCATE 15,5: PRINT "können, wenn Sie die Daten zur eigenen Anschrift eingegeben haben."
  96. 252 LOCATE 16,5: PRINT "Ein Überspringen dieser Eingabe ist nicht möglich.": GOSUB 20
  97. 253 IF X=1 THEN 260
  98. 254 IF X=2 THEN 220
  99. 260 GOSUB 80
  100. 261 LOCATE 5,5: PRINT "EINGABE VERSICHERUNG, FINANZAMT, ZULASSUNGSSTELLE"
  101. 262 LOCATE 7,5: PRINT "Nummer  Art der Eingabe  Länge  Eingabeform Eingabepflicht"
  102. 263 LOCATE 8,5: PRINT "__________________________________________________________"
  103. 264 LOCATE 9,5: PRINT "1       VERS.-NUMMER     12       ALPHA          JA"
  104. 265 LOCATE 10,5: PRINT "2       NAME             25       ALPHA          JA"
  105. 266 LOCATE 11,5: PRINT "3       STRASSE          25       ALPHA          JA"
  106. 267 LOCATE 12,5: PRINT "4       POSTLEITZAHL      4       NUMERISCH      JA"
  107. 268 LOCATE 13,5: PRINT "5       ORT              25       ALPHA          JA"
  108. 269 LOCATE 14,5: PRINT "6       FINANZAMT ORT    20       ALPHA          JA"
  109. 270 LOCATE 15,5: PRINT "7       STRASSE          25       ALPHA          JA"
  110. 271 LOCATE 15,5: PRINT "8       PLZ UND ORT      25       ALPHA          JA"
  111. 272 LOCATE 16,5: PRINT "9       STEUERNUMMER     12       ALPHA          JA"
  112. 273 LOCATE 17,5: PRINT "0       ZULASSUNG STRAS. 25       ALPHA          JA"
  113. 274 LOCATE 18,5: PRINT "A       PLZ UND ORT      30       ALPHA          JA"
  114. 275 LOCATE 20,5: PRINT "Auch hier können Sie korrigieren, mit ESC abbrechen oder mit F 10"
  115. 276 LOCATE 21,5: PRINT "zu den KFZ-Daten weitergehen.": GOSUB 20
  116. 277 IF X=1 THEN 280
  117. 278 IF X=2 THEN 240
  118. 280 GOSUB 80
  119. 281 LOCATE 5,5: PRINT "EINGABE DER FAHRZEUGDATEN"
  120. 282 LOCATE 7,5: PRINT "Nummer  Art der Eingabe  Länge  Eingabeform Eingabepflicht"
  121. 283 LOCATE 8,5: PRINT "__________________________________________________________"
  122. 284 LOCATE 9,5: PRINT "1       KENNZEICHEN       9       ALPHA          JA"
  123. 285 LOCATE 10,5: PRINT "2       FAHRZEUGTYP      25       ALPHA          JA"
  124. 286 LOCATE 11,5: PRINT "3       ERSTZULASSUNG    10       ALPHA          JA"
  125. 287 LOCATE 12,5: PRINT "4       PS                3       NUMERISCH      JA"
  126. 288 LOCATE 13,5: PRINT "5       KFZ-BRIEF-NR.    20       ALPHA          JA"
  127. 289 LOCATE 14,5: PRINT "6       MOTOR-NUMMER     20       ALPHA          JA"
  128. 290 LOCATE 15,5: PRINT "7       FAHRGESTELL.-NR  20       ALPHA          JA"
  129. 291 LOCATE 16,5: PRINT "8       TÜV BIS ABLAUF   10       ALPHA          NEIN"
  130. 292 LOCATE 17,5: PRINT "9       ASU BIS ABLAUF   10       ALPHA          NEIN"
  131. 293 LOCATE 18,5: PRINT "0       ABLAUF VERSICH.  10       ALPHA          NEIN"
  132. 295 LOCATE 20,5: PRINT "Auch hier können Sie korrigieren, mit ESC abbrechen oder mit F 10"
  133. 296 LOCATE 21,5: PRINT "zum Menü zurückkehren.": GOSUB 20
  134. 297 IF X=1 THEN 300
  135. 298 IF X=2 THEN 260
  136. 300 GOSUB 80
  137. 301 LOCATE 5,5: PRINT "Nun stehen die Daten auf der Diskette für den Ausdruck der Formulare"
  138. 302 LOCATE 6,5: PRINT "zur Verfügung."
  139. 303 LOCATE 8,5: PRINT "AUSGABE DER DATEN"
  140. 304 LOCATE 10,5: PRINT "Wählen Sie dazu Taste F 10 und dann je nach Wunsch:"
  141. 305 LOCATE 12,5: PRINT "STAMMDATEN = F 9  VERSICHERUNG = F 10  FAHRZEUG = F 8 ENDE = ESC"
  142. 306 LOCATE 14,5: PRINT "In jeder Ausgabeform können Sie nachträglich korrigieren. Sofern"
  143. 307 LOCATE 15,5: PRINT "korrigiert wurde, werden die Daten bei Taste ESC automatisch"
  144. 308 LOCATE 16,5: PRINT "auf der Diskette gespeichert. Erfolgte keine Korrektur, unter-"
  145. 309 LOCATE 17,5: PRINT "bleibt die Speicherung auf der Diskette.": GOTO 30
  146. 310 GOSUB 80
  147. 311 LOCATE 5,5: PRINT "-2- UNFALLPROTOKOLL OHNE EINGABEN"
  148. 312 LOCATE 7,5: PRINT "Mit diesem Unfallprotokoll erleichtern Sie sich die Arbeit bei"
  149. 313 LOCATE 8,5: PRINT "einem eventuellen Unfall (den Sie hoffentlich nie erleben)."
  150. 314 LOCATE 9,5: PRINT "Alle wichtigen Daten sind bereits vorgedruckt und müssen nur noch"
  151. 315 LOCATE 10,5: PRINT "von Ihnen ergänzt werden. "
  152. 316 LOCATE 11,5: PRINT "Ihre Anschrift und die des Unfallgegners, Versicherungsdaten"
  153. 317 LOCATE 12,5: PRINT "Wetter, Datum mit Uhrzeit, Unfallhergang und Schäden an den"
  154. 318 LOCATE 13,5: PRINT "Fahrzeugen."
  155. 319 LOCATE 14,5: PRINT "Schalten Sie dazu den Drucker an und drücken Sie Taste F 9, wenn"
  156. 320 LOCATE 15,5: PRINT "der Ausdruck beginnen kann. Mit Taste ESC unterbrechen Sie den"
  157. 321 LOCATE 16,5: PRINT "Druckvorgang und kehren zum Hauptmenü zurück."
  158. 322 LOCATE 18,5: PRINT "-3- UNFALLPROTOKOLL MIT EINGABEN"
  159. 323 LOCATE 20,5: PRINT "Alle wichtigen Daten werden bereits mit ausgedruckt.": GOTO 30
  160. 340 GOSUB 80
  161. 341 LOCATE 5,5: PRINT "-4- KAUFVERTRAG OHNE EINGABEN"
  162. 342 LOCATE 7,5: PRINT "Mit diesem Kaufvertrag erleichtern Sie sich den Formularkrieg"
  163. 343 LOCATE 8,5: PRINT "beim Verkauf Ihres Gebrauchten. Alle wichtigen Angaben, die zu"
  164. 344 LOCATE 9,5: PRINT "einem Kaufvertrag gehören, sind bereits vorgegeben."
  165. 345 LOCATE 10,5: PRINT "Anschriften des Verkäufers/Käufers, Fahrzeugdaten wie Kilometerstand,"
  166. 346 LOCATE 11,5: PRINT "Motor-Nummer,KFZ-Brief-Nummer, Zubehör, eventuelle Mängel des"
  167. 347 LOCATE 12,5: PRINT "Fahrzeugs sowie der Kaufpreis. Das Verkaufsdatum wird übernommen"
  168. 348 LOCATE 13,5: PRINT "vom Datum, daß Sie zu Beginn des Programms eingegeben haben."
  169. 349 LOCATE 15,5: PRINT "Natürlich fehlt auch nicht die Unterschriftszeile."
  170. 350 LOCATE 17,5: PRINT "Drücken Sie im Hauptmenü Ziffer 4 und dann Taste F 9, wenn Sie den"
  171. 351 LOCATE 18,5: PRINT "Drucker eingeschaltet haben. Nach dem Druck kehren Sie automatisch"
  172. 352 LOCATE 19,5: PRINT "zum Hauptmenü zurück.": GOTO 30
  173. 360 GOSUB 80
  174. 361 LOCATE 5,5: PRINT "-5- KAUFVERTRAG MIT EINGABEN"
  175. 362 LOCATE 7,5: PRINT "Lesen Sie dazu auch die Erklärungen unter Ziffer 4."
  176. 363 LOCATE 8,5: PRINT "Ihre eigene Anschrift und weitere Fahrzeugdaten werden automatisch"
  177. 364 LOCATE 9,5: PRINT "von der Diskette eingelesen und für den Kaufvertrag vorbereitet."
  178. 365 LOCATE 10,5: PRINT "Weitere Angaben sind wie folgt einzugeben."
  179. 366 LOCATE 11,5: PRINT "Nummer  Art der Eingabe  Länge  Eingabeform Eingabepflicht"
  180. 367 LOCATE 12,5: PRINT "__________________________________________________________"
  181. 368 LOCATE 13,5: PRINT "1       KILOMETERSTAND    6       NUMERISCH      JA  "
  182. 369 LOCATE 14,5: PRINT "2       ZUBEHÖR 1-4      12       ALPHA          NEIN"
  183. 370 LOCATE 15,5: PRINT "6       KAUFPREIS        10       NUMERISCH      JA  "
  184. 371 LOCATE 16,5: PRINT "7       MÄNGEL 1-2       12       ALPHA          NEIN"
  185. 372 LOCATE 18,5: PRINT "Korrigieren Sie mit Angabe der Ziffern 1-8 die zu korrigierende"
  186. 373 LOCATE 19,5: PRINT "Zeile. Mit Taste ESC brechen Sie den Ausdruck ab und kehren"
  187. 374 LOCATE 20,5: PRINT "zum Hauptmenü zurück.": GOSUB 20
  188. 375 IF X=1 THEN 380
  189. 376 IF X=2 THEN GOSUB 20: GOTO 376
  190. 380 GOSUB 80
  191. 381 LOCATE 5,5: PRINT "Sofern Sie bereits die Adresse des Käufers wissen, drücken Sie"
  192. 382 LOCATE 6,5: PRINT "Taste F 10 und geben die Anschrift ein. Nach der letzten Eingabe"
  193. 383 LOCATE 7,5: PRINT "können Sie auch hier korrigieren und/oder die Käuferanschrift mit"
  194. 384 LOCATE 8,5: PRINT "Taste F 8 auf der Diskette speichern. Nur bei Speicherung können Sie"
  195. 385 LOCATE 9,5: PRINT "später im Hauptmenü die Kundenanschrift mit Taste K über den "
  196. 386 LOCATE 10,5: PRINT "Bildschirm abrufen !"
  197. 387 LOCATE 11,5: PRINT "Mit Taste F 10 kommen Sie wieder zur Eingabe des Kaufvertrages"
  198. 388 LOCATE 12,5: PRINT "zurück."
  199. 389 LOCATE 14,5: PRINT "Für den Druck des Vertrages wählen Sie F 9. Nach dem Druck können"
  200. 390 LOCATE 15,5: PRINT "Sie mit F 9 den Ausdruck des Vertrages wiederholen (Kopie für"
  201. 391 LOCATE 16,5: PRINT "Ihre Akten) oder mit ESC zum Hauptmenü zurückkehren."
  202. 392 LOCATE 18,5: PRINT "Mit gespeicherter Käuferadresse können Sie diesen Vorgang"
  203. 393 LOCATE 19,5: PRINT "beliebig oft wiederholen. Nur müssen immer neu die Zusatzdaten"
  204. 394 LOCATE 20,5: PRINT "eingegeben werden, da diese nicht gespeichert werden.": GOTO 30
  205. 400 GOSUB 80
  206. 401 LOCATE 5,5: PRINT "-6- BRIEF AN ZULASSUNGSSTELLE ABMELDUNG"
  207. 402 LOCATE 7,5: PRINT "Bei einem Fahrzeugverkauf ist unmittelbar die zuständige"
  208. 403 LOCATE 8,5: PRINT "Zulassungsstelle sowie das Finanzamt zu unterrichten. Auch hierzu"
  209. 404 LOCATE 9,5: PRINT "finden Sie die entsprechenden Formbriefe."
  210. 405 LOCATE 10,5: PRINT "Schalten Sie den Drucker ein und drücken Sie F 9 für den Druck."
  211. 406 LOCATE 11,5: PRINT "Der Brief an die Zulassungsstelle wird mit den entsprechenden"
  212. 407 LOCATE 12,5: PRINT "Angaben gedruckt. Nach dem Druck können Sie das Schreiben mit F 9"
  213. 408 LOCATE 13,5: PRINT "wiederholen (Kopie für Ihre Akten) oder gleich mit ESC zum nächsten"
  214. 409 LOCATE 14,5: PRINT "Ausdruck weitergehen. Ein weiteres Schreiben wird an das zuständige"
  215. 410 LOCATE 15,5: PRINT "Finanzamt ausgedruckt, wobei auch gleich auf die Rückerstattung"
  216. 411 LOCATE 16,5: PRINT "zuviel gezahlter KFZ-Steuer hingewiesen wird (unter gleichzeitiger"
  217. 412 LOCATE 17,5: PRINT "Angabe Ihrer Bankverbindung). Auch diesen Druckteil können Sie mit"
  218. 413 LOCATE 18,5: PRINT "F 9 wiederholen.  Mit ESC beenden Sie die beiden Ausdrucke und"
  219. 414 LOCATE 19,5: PRINT "kehren zum Hauptmenü zurück.": GOTO 30
  220. 420 GOSUB 80
  221. 421 LOCATE 5,5: PRINT "-7- BRIEF AN VERSICHERUNG     ABMELDUNG"
  222. 422 LOCATE 7,5: PRINT "Bei einem Fahrzeugverkauf ist die KFZ-Versicherung zu unterrichten."
  223. 423 LOCATE 8,5: PRINT "Das Programm nimmt Ihnen auch diese Tätigkeit ab. Wählen Sie dazu"
  224. 424 LOCATE 9,5: PRINT "Ziffer 7 im Hauptmenü und schalten Sie den Drucker ein. Drücken Sie"
  225. 425 LOCATE 10,5: PRINT "dann Taste F 9, wenn der Ausdruck beginnen soll. "
  226. 426 LOCATE 11,5: PRINT "Nach dem Druck können Sie mit F 9 eine Druckwiederholung herstellen"
  227. 427 LOCATE 12,5: PRINT "(Kopie für Ihre Akten) oder mit ESC zum Hauptmenü zurückkehren."
  228. 428 LOCATE 13,5: PRINT "Alle wichtigen Daten werden automatisch von der Diskette gelesen"
  229. 429 LOCATE 14,5: PRINT "und entsprechend dem Schreiben aufbereitet.": GOTO 30
  230. 430 GOSUB 80
  231. 431 LOCATE 5,5: PRINT "-8- GEBRAUCHTWAGEN CHECKLISTE"
  232. 432 LOCATE 7,5: PRINT "Wenn Sie sich mit dem Gedanken tragen, einen Gebrauchtwagen"
  233. 433 LOCATE 8,5: PRINT "zuzulegen, dann sollten Sie sich diese Checkliste einmal ausdrucken."
  234. 434 LOCATE 9,5: PRINT "Sie enthält einen komplexen Fragekatalog mit entsprechenden"
  235. 435 LOCATE 10,5: PRINT "Randbemerkungen über fast alle möglichen Mängel, die an einem"
  236. 436 LOCATE 11,5: PRINT "gebrauchten Fahrzeug vorkommen können. Anhand dieser Liste"
  237. 437 LOCATE 12,5: PRINT "brauchen Sie dann nur noch anzukreuzen und können sich dann"
  238. 438 LOCATE 13,5: PRINT "entscheiden, ob Sie das Fahrzeug erwerben wollen oder lieber"
  239. 439 LOCATE 14,5: PRINT "sich woanders umschauen möchten."
  240. 440 LOCATE 16,5: PRINT "Schalten Sie den Drucker an und drücken Sie Taste F 9. Der"
  241. 441 LOCATE 17,5: PRINT "Druck beginnt. Automatisch kehren Sie danach wieder zum Hauptmenü"
  242. 442 LOCATE 18,5: PRINT "zurück.": GOTO 30
  243. 450 GOSUB 80
  244. 451 LOCATE 5,5: PRINT "-9- ANFORDERUNG VERSICHERUNGS-DECKUNGSKARTE"
  245. 452 LOCATE 7,5: PRINT "Bei einem Fahrzeugwechsel oder Neukauf eines Wagens benötigen Sie"
  246. 453 LOCATE 8,5: PRINT "von Ihrer gewählten Versicherung eine Doppelkarte. Wählen Sie"
  247. 454 LOCATE 9,5: PRINT "dazu Ziffer 9 im Hauptmenü und wählen Sie entsprechend :"
  248. 455 LOCATE 11,5: PRINT "1 wegen Fahrzeugwechsel          2 wegen Wiederzulassung"
  249. 456 LOCATE 12,5: PRINT "3 wegen Ummeldung                4 wegen Neuzulassung"
  250. 457 LOCATE 14,5: PRINT "Taste 5 bringt Sie zum Hauptmenü. Es folgt weiters  :"
  251. 458 LOCATE 15,5: PRINT "Wohin soll die Doppelkarte versandt werden ..."
  252. 459 LOCATE 17,5: PRINT "1 an Ihre Anschrift       2 Anschrift des Autohauses"
  253. 460 LOCATE 18,5: PRINT "Sofern Sie die Karte an das Autohaus direkt senden wollen,geben"
  254. 461 LOCATE 19,5: PRINT "Sie die komplette Anschrift ein. "
  255. 462 LOCATE 20,5: PRINT "Schalten Sie dann den Drucker ein und drücken Sie Taste F 9.": GOTO 30
  256. 470 GOSUB 80
  257. 471 LOCATE 5,5: PRINT "-0- ANFORDERUNG GRÜNE VERSICHERUNGSKARTE"
  258. 472 LOCATE 7,5: PRINT "Die grüne Versicherungskarte benötigen Sie in der Regel für"
  259. 473 LOCATE 8,5: PRINT "Auslandsaufenthalte. Weiters auch für Unfälle im Ausland. Sofern"
  260. 474 LOCATE 9,5: PRINT "Sie noch keine grüne Versicherungskarte besitzen, sollten Sie diese"
  261. 475 LOCATE 10,5: PRINT "bei Ihrer Versicherung anfordern. Wählen Sie dazu Ziffer 0 im"
  262. 476 LOCATE 11,5: PRINT "Menü und schalten Sie den Drucker ein. Mit F 9 beginnt der"
  263. 477 LOCATE 12,5: PRINT "Ausdruck. Die dazu benötigten Daten werden automatisch von der"
  264. 478 LOCATE 13,5: PRINT "Diskette eingelesen und im Brief weiterverarbeitet.": GOTO 30
  265. 490 GOSUB 80
  266. 491 LOCATE 5,5: PRINT "-K- AUSGABE KUNDENADRESSE BILDSCHIRM"
  267. 492 LOCATE 6,5: PRINT "Sofern Sie die Adresse des Käufers gespeichert haben,"
  268. 493 LOCATE 7,5: PRINT "können Sie diese mit Taste K auf den Bildschirm abrufen."
  269. 494 LOCATE 8,5: PRINT "Dies dient Ihnen zur Kontrolle, da die Anschrift bei den"
  270. 495 LOCATE 9,5: PRINT "Menüteilen BRIEF AN ZULASSUNGSSTELLE, VERSICHERUNG mit"
  271. 496 LOCATE 10,5: PRINT "verwendet wird. "
  272. 497 LOCATE 12,5: PRINT "Die Käuferanschrift können Sie jedoch nur in Ziffer 5"
  273. 498 LOCATE 13,5: PRINT "KAUFVERTRAG MIT ANGABEN auf die Diskette speichern."
  274. 499 LOCATE 15,5: PRINT "Mit jeder beliebigen Taste verlassen Sie die Ausgabe und"
  275. 500 LOCATE 16,5: PRINT "kehren zum Hauptmenü zurück.": GOTO 30
  276. 510 GOSUB 80
  277. 511 LOCATE 5,5: PRINT "-U- UMRECHNUNG PS / KW"
  278. 512 LOCATE 7,5: PRINT "Mit diesem Programmteil können Sie von PS nach KW und umgekehrt"
  279. 513 LOCATE 8,5: PRINT "umrechnen. Wählen Sie Ziffer 1-2 (je nach Wunsch) und geben Sie"
  280. 514 LOCATE 9,5: PRINT "den Wert ein. Die entsprechende Umrechnungsformel wird Ihnen dabei"
  281. 515 LOCATE 10,5: PRINT "eingeblendet. Nach Druck der Return-Taste erfahren Sie das "
  282. 516 LOCATE 11,5: PRINT "Ergebnis. Drücken Sie eine beliebige Taste für eine neue"
  283. 517 LOCATE 12,5: PRINT "Berechnung oder Taste ESC für Abbruch und Rückkehr zum Menü.": GOTO 30
  284.