TEILER==T
ZEIGER==Z0$
ZAEHLER==Z1
PRIMZAHL==P
DIM P(500),Z0$(4)