Commodore 128 Handbuch Seite 146

15050 PRINT
15060 FOR 1=1 TO 7
15070 PRINT F$(I);
15080 INPUT D$(Z,I)
15090 NEXT I
Starten Sie das
eingegeben haben und wählen die Funktion 3 aus. Was nun
geschieht, bewirkt
Ein gesamter Adressensatz wird mit 4 Befehlen eingelesen.
Innerhalb der Schleife wird zunächst der Name des Feldes
ausgegeben. Die Variable I wird als Index für das Array
der Feldnamen
(Semikolon!) wird dann der Feldinhalt eingelesen.
wird zweimal indiziert, da die Adressen bekanntlich in
einem zweidimensionalen Array gespeichert werden. Der
erste Index ergibt sich aus der Variablen Z, die nach
jeder Eingabe einer Adresse um 1 erhöht wird. Als zweiter
Index wird wiederum die Variable I eingesetzt. Es werden
also alle 7
eingegeben.
Nachdem wir die Felder eingelesen haben, müssen wir dem
Anwender die
wiederholen. Er kann sich irgendwo verschrieben haben und
muß dann korrigieren.
15100 PRINT
15110 PRINT"DATEN RICHTIG EINGEGEBEN (J/N)";
15120 X$="":INPUT X$
15130 IF X$="J" THEN 15160
15140 IF X$="N" THEN Z=Z-1:GOTO 15000
15150 PRINT CHR$(145);:GOTO 15110
Das Löschen der Variablen X$ ist notwendig, da sonst mit
RETURN der letzte Inhalt übernommen wird. Wenn die Daten
richtig eingegeben wurden, wird das Programm fortgesetzt.
Sind die Daten nicht richtig eingegeben worden, wird der
Programmteil nochmals gestartet. Vorher wird jedoch der
Satzzähler um eins vermindert, da sonst in Zeile 15040
ein Datensatz weiter
letzen Satz jedoch nochmals eingeben. In Zeile 15150 wird
Programm
allein diese
benutzt. Gleich
Felder nacheinander
Möglichkeit
geschaltet wird.
134
-
nachdem Sie
ausgetüftelte
hinter dem
über
geben, die
Wir wollen den
-
diese Zeilen
Schleife.
Feldnamen
Hier
die Tastatur
Eingabe zu