Commodore 128 Handbuch Seite 183

Codieren wir nun den Teil eines Programmes, der die Daten
mit Sekundäradresse
führender Datensatzanzahl speichert.
200 REM *** SPEICHERN OHNE ENDEMARKE ***
210 PRINT"BITTE DATASETTE VORBEREITEN"
220 PRINT"UND RETURN DRUCKEN"
230 INPUT X$
240 0PEN1,1,1,"TESTDATEI"
250 PRINT#1,Z: REM SPEICHERN SATZZAEHLER
260 FOR 1=1 TO Z
270 PRINT#1,D$(Z)
280 NEXT
290 CLOSEI
300 END
Entgegen dem vorherigen
Sekundäradresse 1 geöffnet und vor dem ersten Datensatz,
also vor der
gespeichert. Der Programmteil zum Auslesen dieser Datei
ist folgender:
300 REM *** LESEN OHNE ENDEMARKE ***
310 PRINT"BITTE DATASETTE VORBEREITEN"
320 PRINT"UND RETURN DRUECKEN"
330 INPUT X$
340 OPEN 1,1,0,"TESTDATEI"
350 INPUT#1,Z: REM LESEN SATZZAHL
360 FOR 1=1 TO Z
370 INPUT#1,D$(Z)
380 NEXT I
390 CLOSEI
400 END
Da in Zeile 350 die Anzahl der Datensätze eingelesen
wird, kann die folgende Schleife zum Lesen der Datensätze
gezielt bis zum Dateiende gesteuert werden.
Nun wollen wir eine Datei mit Endemarke lesen. Erinnern
Sie sich: Das Dateiende wird an der Statusvariablen ST
erkannt, die dann den Wert 64 enthält.
1, also ohne Endemarke und mit
Beispiel
Schleife die
171
-
wurde
Anzahl der
hier mit
Datensätze