PREFIX :Polygon:
poly	IS     $0   das Polygon
n	IS     $1   das Ergebnis
e	IS     $2   der Zeiger auf das Element
ze      IS     $3   Zeiger auf den Zeiger auf das Element
tmp	IS     $4

loesche  LDA    zz,poly,anfang
        JMP    test

loop    LDA    ze,e,next
test	LDO    e,ze,0
	BZ     e,return
	SUB    n,1
	BP    n,loop
$*$      nun ist die richtige Stelle gefunden
        LDO    tmp,e,next Umkopieren des Zeigers
	STO    tmp,ze,0
	PUSHJ  e-1,:free  Speicherplatz freigeben
	
return	POP	0,0