Commodore 128 Handbuch Seite 152

die Datei über- oder unterschreiten wollten. Dann werden
die Tasten einfach
verzweigt. In
abgefragt.
Nun fehlt nur
Datensatzes ab Zeile 20160. Dort soll zuerst nach der
Nummer und anschließend nach dem neuen Inhalt des zu
ändernden Feldes gefragt werden.
20160 PRINT
20170 INPUT"FELDNUMMER (1-7) ";X
20180 IF X<1 OR X>7 THEN PRINT CHR$(145);:GOTO 20170
20190 PRINT
20200 INPUT"NEUER INHALT: ";D$(ZZ,X)
20210 GOTO 20040
Dies war schon der Rest unseres Programmteils. Zunächst
wird die Nummer des zu ädernden Feldes in X eingelesen.
Danach wird getestet, ob X einen ungültigen Wert enthält.
Ist dies nicht der Fall, so wird der neue Inalt dieses
Feldes eingelesen und der neu entstandene Adressensatz ab
der Zeile 20040 ausgegeben. Dieser Programmteil kann nur
über die Taste F7 verlassen werden. Nun folgt auch hier
die Auflistung des kompletten Teils "ADRESSEN AENDERN":
20000 REM ====================
20010 REM ADRESSEN AENDERN
20020 REM ====================
20030 ZZ=1
20040 GOSUB 300
20050 PRINT
20060 FOR 1=1 TO 7
20070 PRINT I;F$(I);D$(ZZ,I)
20080 NEXT I
20090 GETKEY X$
20100 IF ASC(X$)<133 OR ASC(X$)>136 THEN 20090
20110 IF ASC(X$)=136 THEN 1000
20120 IF ASC(X$)=133 AND ZZ<Z THEN ZZ=ZZ+1:GOTO 20040
20130 IF ASC(X$)=134 AND ZZ>1 THEN ZZ=ZZ-1:GOTO 20040
20140 IF ASC(X$)=135 THEN 20160
20150 GOTO 20090
ignoriert
dieser Zeile
noch die
140
und zur
wird erneut
eigentliche Änderung
Zeile 20090
die Tastatur
des