Commodore 128 Handbuch Seite 157

entsprechenden Tabellenplatz zu löschen. Würden wir dies
tun, so bleibt die Größe der Tabelle trotz Löschen einer
Adresse erhalten. Dies ist nicht im Sinne des Erfinders.
Alle Adressen, die sich hinter der zu löschenden Adresse
befinden, müssen eins nach vorne aufrücken. Wenn z.B. die
Adresse mit dem Index 5 gelöscht wird und 7 Adressen im
Rechner gespeichert sind, so rückt die 6. Adresse auf die
5., die somit gelöscht wird. Die letzte, also 7. Adresse
rückt auf die 6. Wenn wir nun die Anzahl der Adressen auf
6, also um eins vermindern, so ist die Adresse mit dem
Index 5 "echt" gelöschtworden.
Bei der Programmierung dieses Prinzips taucht zum ersten
Mal eine verschachtelte
Schleife mit der Variablen Y befindet sich die Schleife
I. Die Schleife Y durchläuft alle Datensätze ab dem zu
löschenden Datensatz.
nachgerückt.
nächste Datensatz bearbeitet werden. Die äußere Schleife
läuft nur bis Z-1, da der letzte Datensatz in Zeile 25220
mit Y+1 indiziert wird.
Zeilen studieren,
"Aufrückens".
Nun haben wir auch diesen Teil unseres zur Zeit schon
recht umfangreichen
nun wie immer die komplette Auflistung dieses Teils:
25000 REH ===================
25010 REM ADRESSEN LOESCHEN
25020 REH ===================
25030 GOSUB 300:REM KOPF
25040 PRINT
25050 GOSUB 500:REH DATEN IM RECHNER
25055 IF Z=0 THEN 1000
25060 INPUT "VORNAME: ";D1$
25070 INPUT "NAME
25080 X=1
25090 IF D$(X,2)=D1$ AND D$(X,3)=D2$ THEN 25130
25100 IF X<Z THEN X=X+1:GOTO 25090
25110 FE$="NAMEN NICHT GEFUNDEN!:"
25120 GOSUB 200:GOTO 1000
Die
Sind alle Felder
so erkennen
Programms
: ";D2$
-
Schleife auf.
Felder werden
aufgerückt,
Wenn Sie die entsprechenden
Sie die
fertiggestellt.
145
-
Innerhalb der
alle einzeln
so kan der
Technik dieses
Es folgt