run turtle graphics demo in PLFORTH disk image

This commit is contained in:
David Schmenk committed 2025-12-22 07:29:47 -08:00
1 parent e3550d4a83
commit c143596032
4 files changed
+39 -39

No files matched your search

+1 -1
View File
@@ -64,7 +64,7 @@ SRC" TURTLE.4TH"
: TRIEDGE
DEPTH @ MAXDEPTH @ = IF
8960 DEPTH @ POW3 / 1 + 1 RSHIFT MOVEP4
8960 DEPTH @ POW3 / 1+ 1 RSHIFT MOVEP4
ELSE
1 DEPTH +!
RECURSE -60 TURN