Commodore 128 Handbuch Seite 156

Wird die Schleife komplett durchlaufen, also nicht durch
auffinden des Namens abgebrochen, so ist der Name nicht
gefunden worden. Hier geben wir eine Meldung aus und
verzweigen zurück ins Menü.
Wir müssen das Programm nun an der Stelle fortsetzen, zu
der beim Auffinden des gesuchten Namens verzweigt wird.
Dies ist die Zeile
löschende Adresse nochmals angezeigt werden, wonach der
Anwender dann
werden soll.
25130 GOSUB 300:PRINT
25135 FOR 1=1 TO 7
25140 PRINT F$(I);D$(X,I)
25150 NEXT 1
25155 PRINT
25160 INPUT"ADRESSE LOESCHEN (J/N) ";X$
25170 IF X$="J" THEN 25200
25180 IF X$="N" THEN 1000
25190 PRINT CHR$(145);:GOTO 25160
Hier wird zunächst ein neuer Bildschirm aufgebaut (Zeile
25130). Danach wir mit der Schleife in Zeile 25135 bis
25150 der Adressensatz ausgegeben. Nun fragen wir nach,
ob diese Adresse
diese Adresse
Leute gibt
verzweigt. Soll die
geschieht dies ab Zeile 25200. Nehmen
zunächst Einblick
Programmteils.
25200 FOR Y=X TO 2-1
25210 FOR 1=1 TO 7
25220 D$(Y,I)=D$(Y+1,I)
25230 NEXT I
25240 NEXT Y
25250 2=2-1
25260 GOTO 1000
Zum Löschen
25130. Hier soll die
entscheidet,
wirklich
nicht gelöscht
es überall),
Adresse
in die
einer Adresse
-
ob sie wirklich
gelöscht werden
werden
so wird zurück
doch gelöscht werden,
letzten
reicht
144
komplete zu
gelöscht
soll. Soll
(unentschlossene
ins Menü
so
wir auch nun
Zeilen dieses
es nicht, den