mandel()
Prgm
Local x,y,z,c,m
For y,0,76
 For x,0,168
  x/(158.)*(xmax-xmin)+xmin+i*((1-y/(76.))*(ymax-ymin)+ymin) -> c
  0 -> z
  5 -> m
  While abs(z)<4 and m>0
   m-1 -> m
   z^2+c -> z
  EndWhile
  If m=0 Then
   PxlOn y,x
  Else
   PxlOff y,x
  EndIf
 EndFor
EndFor
EndPrgm