VAR MarkList: TBit[100]
// zweiten und fünften Eintrag der Kunden-Tabelle markieren
SetMark(KUNDEN, 2)
SetMark(KUNDEN, 5)
// Markierungen merken
GetMarks(KUNDEN, MarkList)
DelMarks(KUNDEN) // aktive Markierungen löschen
// den ersten und fünften Datensatz markieren
SetMark(KUNDEN, 1)
SetMark(KUNDEN, 5)
// logische Verknüpfung der aktiven und gemerkten Markierungen durchführen
AndMarks(KUNDEN, MarkList)
// Jetzt ist nur noch der fünfte Datensatz markiert
|