Commodore 128 Handbuch Seite 181

nach dem letzen
folgenden Beispiele bringen hier mehr Licht hinein.
Spielen wir zuerst die Methode mit der Sekundäradresse 1
durch. Große Dateien mit einheitlichem Datensatzaufbau
werden wie bei der Adressenverwaltung rechnerintern in
einem Array
Programms muß
(DIM-Anweisung).
10 REM *** PROGRAHHVORLAUF ***
20 DIM D$(100)
Dieses Array
sein. Nun schreiben wir den Programmabschnitt zum Füllen
des Arrays über die Tastatur.
100 REM *** DATENEINGABE A***
110 Z=1: REM DATENSATZZÄHLER
120 PRINT"EINGABE MIT '***' ABSCHLIESSEN!"
120 PRINT"DATENSATZ NR.";Z;": "
130 INPUT D$
U O IF D$="***"THEN 140
150 D$(Z)=D$
160 Z=Z+1: REM SATZZÄHLER ERHÖHEN
170 GOTO 120
180 END: REM PROGRAMM BEENDEN
Wir haben die Eingabe so einfach wie möglich gestaltet.
Es soll nur demonstrieren, wie man die Datei im Rechner
aufbaut. Soll
Eingabe abgespeichert werden, so sieht dieser Teil wie
folgt aus:
100 REM *** DATENEINGABE B ***
110 PRINT"BITTE DATASETTE VORBEREITEN"
120 PRINT"UND RETURN DRUECKEN"
130 INPUT X$
140 PRINT"EINGABE MIT '***■ ABSCHLIESSEN!"
150 OPEN 1,1,2,"TESTDATEI": REM OPEN HIT EOF
160 INPUT"DATENSATZ: »;D$
170 IF D$="***"THEN 200
Datensatz
(Tabelle) gespeichert.
dieses Array
soll in unserem
jeder Datensatz
169
- -
gezielt abbrechen,
Zu Anfang
aufgebaut
Beispiel eindimensional
unmittelbar nach
Die
des
werden
der