From 15488e61c796d392ab584bdefc563983bbc8e55b Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.com>
Date: Mon, 1 Dec 2025 17:51:04 -0800
Subject: [PATCH] Add hires turtle graphics sample

---
 src/scripts/hrturtle.4th   | 32 ++++++++++++++++++++++++++++++++
 src/vmsrc/apple/cmd.pla    |  4 ++--
 src/vmsrc/apple/cmdjit.pla |  4 ++--
 3 files changed, 36 insertions(+), 4 deletions(-)
 create mode 100644 src/scripts/hrturtle.4th

diff --git a/src/scripts/hrturtle.4th b/src/scripts/hrturtle.4th
new file mode 100644
index 0000000..7803889
--- /dev/null
+++ b/src/scripts/hrturtle.4th
@@ -0,0 +1,32 @@
+LOOKUP HRFORTH  ( HGR page 1 reserved )
+NOT ?ABORT" Must run with HRFORTH."
+
+SRC" PLASMA.4TH"
+SRC" CONIO.4TH"
+SRC" HGRLIB.4TH"
+SRC" TURTLE.4TH"
+
+: SHOW
+  0 HGRMODE HGRDRAWBUF TILEDRAWBUF DROP
+  280 192 INITTURTLE
+  1 HGRCOLOR
+;
+
+: SQUARE
+    DUP MOVEFORWARD 90 TURNRIGHT
+    DUP MOVEFORWARD 90 TURNRIGHT
+    DUP MOVEFORWARD 90 TURNRIGHT
+        MOVEFORWARD 90 TURNRIGHT
+;
+
+: SPIN
+    360 0 DO
+        50 SQUARE
+        I TURNTO
+    10 +LOOP
+;
+
+: SPIN
+    SHOW
+    SPIN
+;
diff --git a/src/vmsrc/apple/cmd.pla b/src/vmsrc/apple/cmd.pla
index d988f88..a1c0575 100755
--- a/src/vmsrc/apple/cmd.pla
+++ b/src/vmsrc/apple/cmd.pla
@@ -61,7 +61,7 @@ predef lookuptbl(dci)#1, execsys(sysfile)#0
 //
 // Exported CMDSYS table
 //
-word version     = $0220 // 02.20
+word version     = $0221 // 02.21
 word syspath
 word syscmdln
 word             = @execmod, @open, @close, @read, 0
@@ -1433,7 +1433,7 @@ if  ^MACHID & MACHID_80COL
     *CSW = $C300
     crout; cout(12)
 fin
-prstr("PLEIADES 64K VM v2.30\n")
+prstr("PLEIADES 64K VM v2.21\n")
 //
 // Init symbol table.
 //
diff --git a/src/vmsrc/apple/cmdjit.pla b/src/vmsrc/apple/cmdjit.pla
index cb132e1..7b8e8f3 100755
--- a/src/vmsrc/apple/cmdjit.pla
+++ b/src/vmsrc/apple/cmdjit.pla
@@ -78,7 +78,7 @@ predef lookuptbl(dci)#1, execsys(sysfile)#0
 //
 // Exported CMDSYS table
 //
-word version    = $0220 // 02.20
+word version    = $0221 // 02.21
 word syspath
 word syscmdln
 word            = @execmod, @open, @close, @read, 0
@@ -1514,7 +1514,7 @@ if  ^MACHID & MACHID_80COL
     *CSW = $C300
     cout(12)
 fin
-prstr("PLEIADES 128K VM v2.30\n")
+prstr("PLEIADES 128K VM v2.21\n")
 //
 // Init symbol table.
 //