Commodore 128 Handbuch Seite 182

180 PR1NT#1,D$
190 GOTO 160
200 CLOSE 1
200 END
Hier wird das
Einlesen wird es jedoch wieder eingesetzt. Die Datei muß
mit Sekundäradresse 2 geöffnet werden, da das einlesende
Programm unbedingt die Endemarke benötigt.
Übrigens: Wenn Sie diese Programmteile als Unterprogramme
(Routinen) verwenden möchten, so ändern Sie den Befehl
'END um in 'RETURN'
Das mit dem ersten Abschnitt erfasste Array soll nun als
Datei abgelegt werden.
200 REM *** SPEICHERN ***
210 PR1NT''B1TTE DATASETTE VORBEREITEN"
220 PRINT"UND RETURN DRUECKEN"
230 INPUT X$
240 OPEN 1,1,2,"TEST0ATEI"
250 FOR 1=1 TO Z: REM Z AUS EINGABE UEBERNOMMEN
260 PRINT#1,D$(Z)
270 NEXT I
280 CLOSE 1
290 END
Zunächst wurde die Datei zum Schreiben geöffnet. Die
anschließende Schleife überträgt das Array Satz für Satz
(sequentiell)
Endemarke hinter dem letzen Datensatz geschrieben. Wie
kann den nun ohne Endemarke, also mit Sekundäradresse 1
geschrieben werden? Dazu ist es notwendig, die Anzahl der
zu speichernden Datensätze VOR den Daten aufzuzeichnen.
Das lesende Programm liest dann die Anzahl und kann die
Datensätze in einer gezielten Schleife einiesen.
Array nicht
auf die Kassette.
benötigt.
Auch
170
Beim späteren
hier wird die