:1→P
:
:47→U
:31→V
:0→D
:2→N
:0→C
:
:Lbl 0
:
:Goto 1
:Lbl 3
:
:If D=0
:U+1→U
:If D=1
:V-1→V
:If D=2
:U-1→U
:If D=3
:V+1→VJ
:
:C+1→C
:If C=N or C=N/2
:Then
::D+1→D
::If D=4:0→D
::If C=N
:Then
:::0→C
:::N+2→N
::End
:End
:
:P+1→P
:Goto 0
:
:
:
:Lbl 1
:√(P)→P
:3→Q
:1→I
:
:If ((P>2) and (fPart(P/2)=0)) or P=1
:0→I
:If ((V≥0) and (V≤62))
:Pxl-Change(V,U)
:
:While ((Q≤R) and (I = 1))
:If iPart(P/Q)=P/Q
:0→I
:
:Q+2→Q
:End
:
:If ((I=0) and (V≥0) and (V≤62))
:Pxl-Change(V,U)
:Goto 3