Listenmethoden

First

wenn die Liste nicht leer ist, dann:
setze die Marke auf die erste Listenposition

if not IsEmpty():
s.aktPos = 1

Last

wenn die Liste nicht leer ist, dann:
setze die Marke auf die letzte Listenposition

if not IsEmpty():
s.aktPos=s.Lilaeng

Next

wenn nicht das Ende der Liste erreicht ist, dann:
erhöhe die aktuelle Listenposition (Marke) um eins

if not EoList():
s.aktP=s.aktP + 1

Append

gehe zum letzten Listenelement
erhöhe die Listenlänge um eins
setze die Marke auf die nächste Position
füge das Element (Parameter Elem) a.d. akt. Pos. ein

s.Last()
s.Lilaeng=s.Lilaeng+1
s.Next()
s.PutElement(Elem)