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