Erstellt am 1.Juli 1998 um 19:10
Diese Homepage wurde mit dem HomePage Penguin Pro erstellt. © by Matthias Jaap 1998.
Zusaetzlich zum RESTORE-Befehl kann noch eine bestimmte Zeilennummer angegeben
werden. Der Computer setzt dann den DATA-Zeiger auf den Anfang der DATA-Zeile, die
die Zahl hinter dem RESTORE Befehl angibt
z. B. RESTORE 120
Obige Zeile setzt den DATA-Zeiger auf den ersten Wert der Zeile 120.
Mit dem READ-Befehl lassen sich aber auch Zeichenfolgen in Stringvariablen einlesen.
10 DIM OBST$ ( 20 )
In folgendem Programm werden mit einer READ-Anweisung gleichzeitig zwei Werte aus
den DATA-Zeilen gelesen. Dies wird dadurch erreicht, dass hinter dem READ-Befehl zwei
Variablen angegeben werden. Es koennen mehr als zwei Variablen verwendet werden.
Jede Variable muss dabei durch ein Komma von der naechsten getrennt werden.
10 DIM O$ ( 20 ), OBST$ ( 20 )
Die Null am Ende der Zeile 140 ist sehr wichtig. Der Computer liest mit dem READ-Befehl
immer zwei Werte aus den DATA-Zeilen ein. Bei fehlender Null koennte der Computer der
Variablen PREIS keinen Wert zuweisen und das Programm wuerde mit einer Fehlermeldung abbrechen.
20 READ OBST$
30 IF OBST$="END " THEN END
40 PRINT OBST$
50 GOTO 20
60 DATA APFEL, APFELSINE, BANANE, BIRNE, ENDE
20 PRINT " GEBEN SIE EINE OBSTSORTE EIN"
30 INPUT O$
40 RESTORE
50 READ OBST$, PREIS
60 IF OBST$="END " THEN GOTO 100
70 IF O$=OBST$ THEN PRINT "DER PREIS BETRAEGT " ; PREIS ; " DM" : GOTO
20
80 GOTO 50
100 PRINT "FALSCHE SORTE" : GOTO 20
120 DATA APFEL, 1.34, APFELSINE, 1.99
130 DATA BANANE, 0.78, BIRNE, 2.13
140 DATA END, 0