Adressen Ändern - Commodore 128 Handbuch

15180 IF X$="J" THEN 15000
15190 IF X$="N" THEN 1000
15200 PRINT CHR$(145);:GOTO 15160
Adressen ändern
Nun möchten wir dem Anwender unseres Programms die
Möglichkeit geben,
Datensatzes
Funktionstasten. Mit der Taste Fl soll vorwärts, und mit
der Taste F3
Adresse geändert werden, so wird die Taste F5 gedrückt.
Mit der Taste F7 wird zurück ins Menü verzweigt, die
Änderung also abgeschlossen.
Das hört sich alles gut an, muß aber erst programmiert
werden. Fangen wir zunächst mit den ersten Zeilen an:
20000 REM ====================
20010 REH ADRESSEN AENDERN
20020 REM ====================
Diese Zeilen benötigen keinen Kommentar. Nun aber wird es
kritisch. Wie gehen wir dieses Problem an? Wir wählen uns
zunächst eine Variable aus, die den ersten Index des
Arrays der
Varibale ZZ, die den Anfangswert 1 erhält.
zz=i
20030
Nun können wir den Programmkopf und den Namen des Arrays
ausgeben:
20040 GOSUB 300
20050 PRINT
In den folgenden Zeilen können wir die erste Adresse
(ZZ=1) ausgeben. Sie besteht bekanntlich aus 7 Feldern,
deren Namen in einem Array gespeichert sind. Wir codieren
wieder eine Schleife, die die Nummer des Feldes, den
Namen und den Inhalt ausgibt.
einzelne
zu ändern.
rückwärts "geblättert"
Adressen darstellen
-
Felder eines
Wir benutzen
werden.
soll.
136
-
bestimmten
dazu die
Soll eine
Dies ist die