1 files changed, 25 insertions, 0 deletions
diff --git a/hp48g20230307/D.01/D.01/JUL b/hp48g20230307/D.01/D.01/JUL
new file mode 100644
index 0000000..49a5eb1
--- /dev/null
+++ b/hp48g20230307/D.01/D.01/JUL
@@ -0,0 +1,25 @@
+%%HP: T(1)A(D)F(,);
+« -32 31
+  FOR i -65 65
+    FOR j 0 j 30 /
+i NEG 30 / RC
+      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 / RC
+      IF SWAP 4
+PICK ==
+      THEN PIXON
+      ELSE PIXOFF {
+# 0d # 0d } PVIEW
+      END 1
+    STEP 1
+  STEP
+»