Commodore 128 Handbuch Seite 162

In diesen Zeilen dreht sich fast alles um die Ausgabe des
gefundenen Datensatzes. Die Zeilen 30250 bis 30280 bilden
eine Schleife, in der die 7 Felder der Adresse mit ihrer
Bezeichnung ausgegeben werden. Abhängig vom Inhalt der
Variablen G$ wird die Adresse auf dem Drucker oder auf
dem Bildschirm dargestellt.
Wenn Bildschirmausgabe ausgewählt wurde, wird erst nach
Drücken von
Weitersuchen heißt hier, die Schleife Y mit dem Befehl
NEXT um eins zu erhöhen. Ist die Druckerausgabe aktuell,
so wird die Zeile zum Betätigen von RETURN übersprungen.
Es werden also alle Adressen hintereinander ausgedruckt.
Hinter dem Ende der Schleife Y ist die Suche beendet. Das
wird durch die Meldung "DATEIENDE" signalisiert. Wenn der
Anwender nun RETURN drückt, wird der Programmabschnitt
beendet, also zurück zum Menü verzweigt. Vorher wird der
Druckerkanal
ausgegeben wurde.
Dies war
Adr essen Verwaltung. Nun müssen nur noch die Teile zum
Laden und Speichern der Datei auf Diskette geschrieben
werden.
Mit dem folgenden
Programmteil "ADRESSEN AUSGEBEN" kontrollieren:
30000 REM ===================
30010 REM ADRESSEN AUSGEBEN
30020 REM ===================
30030 GOSUB 300:PRINT
30040 GOSUB 500
30050 IF Z=0 THEN 1000
30060 INPUT"DRUCKER ODER BILDSCHIRM (D/B) •■;G$
30070 IF G$o"B" AND G$<>«D" THEN PRINT CHR$(145); :GOTO 3
0060
30075 IF G$="D" THEN OPEN 1,4
30080 GOSUB 300:PRINT
30090 PRINT"SUCHBEGRIFFE:"
30100 PRINT". . . . . . . ..
RETURN mit
geschlossen,
ein weiterer
Listing
150
-
der Suche
falls auf den
Meilenstein
können Sie nochmals
-
fortgefahren.
Drucker
zu unserer
Ihr