PREFIX :Polygon:	~
poly	IS     $0   das Polygon
n	IS     $0   das Ergebnis
e       IS     $1   das Element

anzahl  LDO    e,poly,anfang	~
	SET    n,0
	JMP    test
loop    INCL   n,1
        LDO    e,e,next
test	PBNZ   e,loop
	POP	1,0