Werbung
Mit den Befehlen READ, DATA und RESTaRE können in einem SuperBASIC Pro-
gramm enthaltene Daten bei der Ausführung Variablen zugewiesen werden.
Mit DA TA werden die Daten markiert und definiert. READ greift auf die Daten zu und
weist sie Variablen zu. Mit RESTaRE können schließlich bestimmte Data-Anweisun-
gen ausgewählt werden.
DATA:
READ:
RESTaRE :
Beispiel:
Vor der Ausführung eines Programms wird kein implizierter RESTORE-Befehl aus-
geführt. Dadurch kann ein einziges Programm mit verschiedenen
ausgeführt werden. Vor der Ausführung des Programms muß entweder ein expli-
zierter RESTORE- bzw. CLEAR-Befehl
RESTORE-Anweisung
(
3/85
Mit diesem Befehl können Daten innerhalb eines Programms defi-
niert werden. Die Daten können mit einer READ-Anweisung gelesen
und Variablen zugewiesen werden. Eine DATA-Anweisung wird von
SuperBASIC ignoriert, wenn sie während der normalen Verarbeitung
angetroffen wird.
Syntax:
DATA Ausdruck *[, Ausdruck]*
Mit diesem Befehl werden die in DATA-Anweisungen stehenden Da-
ten gelesen und einer Liste mit Variablen zugewiesen. Ursprünglich
zeigt der Datenzeiger auf die erste DATA-Anweisung
gramm. Er wird nach jedem READ-Befehl um die Anzahl von Posten
weitergesetzt, die der READ-Befehl verarbeitet hat. Wird das Pro-
gramm erneut ausgeführt, so wird der Datenzeiger nicht zurückge-
setzt. Deshalb muß ein Programm normalerweise einen expliziten
RESTORE-Befehl enthalten.
Wird versucht, einen READ-Befehl auszuführen, für den kein DATA-
Befehl vorhanden ist, so wird eine Fehlermeldung ausgegeben.
Syntax:
READ Name *[, Name]*
Mit diesem Befehl wird der Datenzeiger, d. h. die Position, von der aus
nachfolgende
READ-Befehle ihre Daten lesen, gesetzt. Folgt auf
RESTaRE eine Zeilennummer, so wird der Datenzeiger auf diese Zei-
le gesetzt. Wird kein Parameter angegeben, so wird der Datenzeiger
auf den Anfang des Programms zurückgesetzt.
Syntax:
RESTaRE [Zeilennummer]
a)
100 REMark BeispieL
110 DIM wochentags$(7,4)
120 RESTORE
=
130 FOR zahL
1 TO 7: READ wochentags$(zahL>
140 PRINT wochentags$:
150 DATA "MON","DIE","MIT","DON","FRE"
160 DATA "SAM" ,"SON"
b)
100 DIM monate$(12,9)
110 RESTORE
120 REMark BeispieL
=
130 FOR zahL
1 TO 12: READ monate$(zahL>
140 PRINT monateS:
150 DATA "Januar","
160 DATA "ApriL","Mai","Juni"
170 DATA "JuLi","
180 DATA "Oktober"
im Programm enthalten sein.
zum 'DATA' BefehL
NEXT zahL
zum 'DATA' BefehL
NEXT zahL
Februar"
,"März"
August","
September"
,"November"
,"Dezember"
ausgeführt werden, oder es muß eine
DATA
READ
RESTORE
BASIC
in dem Pro-
Hinweis
Datengruppen
13
Werbung
Kapitel
