1 files changed, 39 insertions, 0 deletions
diff --git a/hp48g20230307/D.01/D.01/D.02/Snake b/hp48g20230307/D.01/D.01/D.02/Snake
new file mode 100644
index 0000000..5ee6756
--- /dev/null
+++ b/hp48g20230307/D.01/D.01/D.02/Snake
@@ -0,0 +1,39 @@
+%%HP: T(1)A(D)F(,);
+« (0;0) (13;6,3)
+PDIM { } 'T' STO
+(6,5;3,1) 'H' STO 0
+'K' STO (,1;0) 'D'
+STO (1;1) 'F' STO
+  WHILE GETKEY 21 ‹
+  REPEAT ,2 WAIT
+GETKEY 'K' STO
+    CASE K 25 ==
+      THEN (0;,1)
+'D' STO
+      END K 34 ==
+      THEN (-,1;0)
+'D' STO
+      END K 36 ==
+      THEN (,1;0)
+'D' STO
+      END K 35 ==
+      THEN (0;-,1)
+'D' STO
+      END
+    END F PIXON
+    IF F H ==
+    THEN T (0;0) +
+'T' STO RAND 0 1 0
+6,5 MAP 1 RND RAND
+0 1 0 3,1 MAP 1 RND
+RC 'F' STO
+    END H T + 'T'
+STO H D + 'H' STO H
+PIXON T DUP SIZE
+GET PIXOFF T DUP
+SIZE 1 - 1 SWAP SUB
+'T' STO { # 0d # 0d
+} PVIEW
+  END { F D K H T
+PPAR PICT } PURGE
+»