path: root/hp48g20230307/D.01/D.01/JUL

%%HP: T(1)A(D)F(,);
� -32 31
  FOR i -65 65
    FOR j 0 j 30 /
i NEG 30 / R�C
      WHILE DUP DUP
DUP DUP RE 2 < SWAP
IM 2 < AND SWAP RE
-2 > AND SWAP IM -2
> AND 3 PICK 6 PICK
< AND
      REPEAT 2 ^ 3
PICK + SWAP 1 +
SWAP
      END DROP j 10
/ i NEG 10 / R�C
      IF SWAP 4
PICK ==
      THEN PIXON
      ELSE PIXOFF {
# 0d # 0d } PVIEW
      END 1
    STEP 1
  STEP
�