Technische Tips & Tricks: QuickAdress
Teil 6

B. Kühnast

Zu den bisherigen Funktionen gehört na-
türlich eine Löschfunktion. Das Pro-
gramm dazu gibt's diesen Monat.

Statt einfach zu Löschen, d. h. den
entsprechenden Eintrag aus dem Speicher
zu löschen, habe ich die Funktion durch
Markierungen erweitert. Im Hauptteil
ist dieser Teil bei "KEY=155". Mit der
Returntaste wird der Datensatz (die
Adresse) markiert oder die Markierung
entfernt. Die Lösch-Prozedur löscht
dann die Daten, die markiert sind. An-
schließend wird die modifizierte Liste
gespeichert.

Die Markierungs-Methode hat einen Vor-
teil: Mit Markierungen kann man eine
ganze Menge anstellen. Wenn man z. B.
statt allen Adressen nur einige aus-
drucken will, kann man diese markieren,
so daß nur diese markierten gedruckt
werden.

Das Markieren geschieht über das Inver-
tieren des Anfangsbuchstaben. Wenn man
RETURN drückt, wird überprüft, ob das
Zeichen invertiert ist. Wenn ja, wird
die Kennzeichnung rückgängig gemacht
(vom Zeichencode 128 abziehen, zum
Markieren 128 addieren).

Die eigentliche Löschroutine prüft auf
Markierung. Wenn das der Fall ist, wer-
den die nachfolgenden Sätze um einen
Satz verschoben und so der alte über-
schrieben. Außerdem wird die End-Adres-
se (die Speicheradresse, die auf das
Datenende zeigt) entsprechend verklei-
nert.

Grafisch dargestellt sieht das ganze so
aus:

$9000 *Adresse1  -vor dem Löschen
       Adresse2
       Adresse3
               (Endmarke)

$9000  Adresse2  -nach dem Löschen
       Adresse3
       Adresse3(Endmarke)

Statt die Adresse3 zu löschen, wird
einfach die Endmarke verschoben. Ge-
speichert werden die Daten nämlich nur
bis zur Endmarke.

Soweit für diesmal, nächstes mal geht's
an's Drucken.

CU!