From ff175b5d1e0bad75af1df467be99e183b078d653 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.com>
Date: Tue, 30 Dec 2025 08:33:30 -0800
Subject: [PATCH] Script cleanup

---
 images/apple/PLFORTH.po | Bin 143360 -> 143360 bytes
 src/scripts/hny26.4th   |  21 ++++++---------------
 2 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/images/apple/PLFORTH.po b/images/apple/PLFORTH.po
index 68ff8e3066667ae0a07487968a097f56f4f0b84c..c8b0b466e136c95b24ac8fa560478fa61d5b353a 100644
GIT binary patch
delta 1312
zcmZva!E4iS6vy9-v8#fcC_1f`g^AN1GIX7T4n?}ywXtaulQ>q<LzTiRI-%V`J?L&;
z6oejrFeTt+3=tfzG+IOi(bIYp1W)?|dh#eN`de*k^GkCGKa$_)z3=<J@A6i7c`Ljw
z@%!xfNEqM?2s?+W&POJ_FR*jqK-86_nM;nFdDBYe0RF^b0PgK=|NRfzLGXtu8M1Df
z(0PWMfB;+<Y#*vEJ~HU<SVgY&E)>1Pw-pKH6J3q}2))c`Ou*r}86~M^y-wgNwAB@4
zTG>HxSkct<<(%%3u1ditz<{kjV8)o$3@g(G4GNxR!Rbnb5nreT#GjN^D?Z^B0&tgr
zhwa^rhPOd*G<B(WXmB6E5x5}w!Hw<8$Q%Do6EJ4Vs-$%{11^DGaGqHW(FF{MJ(Wq*
z!BxwX>)H^4>tTOSV)r4(D5=OZ9tiFl?15i{4B4XOIbR+U5C~GOPmrF|*nF*zVsy5h
z8zL+q6C9#1u=CU)CTXgyjZb=;<Qvq9*Q^tEKe9be5BZsr1(s~}A&+%D^jQ8Io#!c&
z9Wq@)COo7-Kl#n6LBzUhSW3#P1^gy0_JN6hjhds^Z)5aK$DEa*IV-F=O^BuqUv>UF
zt^Js(O>9c~RW%`&QS%d1T~WaQq%pb4#H6`_+(E3r#I<1})p35ch8%fO$MxgFX`xbj
zSQJZ(Vtk6eZ<UL8i;GJYK@^1;$vP+=pjS-!T1wDV!L*W6R){(G9UMST6rD%!@fnh#
t1|B*}uSuGs8T68@C_T5yTmuu%jRw9#KAXy4bV48TH&*v^^Q)h*{1-7RBXR%$

delta 1255
zcmZvaKWNl&6vy9-u|36BL1;A|G*ql~xKevnxKf8}dViw1Bqq^X=yF>XLAY~qvYShX
z!ht_1n(?S2wRj=16{H|KdEg)jojN*Xa&PLd@p5f`x!?3i_`LUh-}hbFPp#~ywj_Sw
zO?Ko0z*i8DiiXY$)6o|=DmcjKO5UvGC(K3DDpUXtv(OJu&xU`GK|2ZlHYG#WEfYHL
zd>ase>w;m?@Ofb{KCywE|FJLqgbx*owX0o?{|UXuXw1RTgE=Ly-i;<fpwLnGkQrqs
z!C^&HOLr=IL<TAaUjhUAJ;1V2)C{ZK1q}+`V8NNXz=*Hb6XLJQs+FCJ8UX~)fQN(A
zjD`<MaI`Rga%l*j!zH+#iG!_!`pEnEO>;12%BrMwF9QLAQ!vY%hUg+D#9l9#=;Eps
z$qj7igQZk_Cb4^vW0X|nxd?<{1J1zTL5B1xc{7%W93+C|^a#=#jm<ZA6w}2pH$+@U
zCOAZ2X7_PmT+&ooo0yI+$?s4n-my;Dy~uE#6XY%>t1RjFAg^>hj9C6V-Dj1_4w-p`
zOn69@eu|spfMDG>ETs_j0{#bWw#`J}q2}oBV@ywW%vn#Gv(B2+hIGk@b?1N4-Y=Nm
z#HM6iRU5|3>f+R`t|;L5XiRpPn6z8ST}1aaZVZ#9O?=pNkR#3}&Xcz-TzKW;7HPYf
x@y>bJkKWKHT*b=+B7KvyqFf9sQKVi<nxYxr&u!d8verbw+x?7xu=xdR{{R(@7<>Q#

diff --git a/src/scripts/hny26.4th b/src/scripts/hny26.4th
index 7dff6ed..a2cb5fd 100644
--- a/src/scripts/hny26.4th
+++ b/src/scripts/hny26.4th
@@ -20,13 +20,6 @@ SRC" TURTLE.4TH"
   $C053 C@ DROP
   280 160 [ LOOKUP LINESPANS ] LITERAL INITTURTLE
 ;
-: CLEAR 0 0 279 159 HGRRECT ;
-
-: CLEARTO HGRCOLOR 0 0 279 159 HGRRECT ;
-
-: INVERT 0 0 279 159 HGRXORRECT ;
-
-: RESET PENUP 140 80 MOVETO 0 TURNTO PENDOWN ;
 
 0 VARIABLE RECT.WIDTH
 0 VARIABLE RECT.HEIGHT
@@ -41,12 +34,12 @@ SRC" TURTLE.4TH"
   RECT.HEIGHT @ MOVE 90 TURN
 ;
 
-: STARBURST
+: STARBURST ( size-in-36-increments -- )
   PENUP
   0 TURNTO
   MOVETO
   PENDOWN
-  0 DO
+  0 DO ( SIZE ON STACK )
     PENUP
     I 2 / MOVE
     PENDOWN
@@ -62,7 +55,7 @@ SRC" TURTLE.4TH"
 0 VARIABLE MISSILE.YPOS
 0 VARIABLE MISSILE.YOLD
 
-: SHOOT ( COLOR XVELOCITY YVELOCITY )
+: SHOOT ( COLOR XVELOCITY YVELOCITY -- )
   MISSILE.YVELOCITY !
   MISSILE.XVELOCITY !
   140 DUP MISSILE.XPOS ! MISSILE.XOLD !
@@ -76,9 +69,8 @@ SRC" TURTLE.4TH"
     PENUP
     MISSILE.XPOS @ DUP MISSILE.XOLD ! MISSILE.YPOS @ DUP MISSILE.YOLD ! MOVETO
     PENDOWN
-    MISSILE.YVELOCITY @ 1- DUP MISSILE.YVELOCITY !
-    0< IF
-      HGRCOLOR
+    MISSILE.YVELOCITY @ 1- DUP MISSILE.YVELOCITY ! 0< IF
+      HGRCOLOR ( COLOR STILL ON STACK )
       144 MISSILE.XPOS @ MISSILE.YPOS @ STARBURST
       144 MISSILE.XPOS @ MISSILE.YPOS @ STARBURST
       EXIT
@@ -96,8 +88,7 @@ SRC" TURTLE.4TH"
     DUP 0=  IF 1+ THEN ( CHECK FOR BLACK1: 0 )
     DUP 4 = IF 1+ THEN ( CHECK FOR BLACK2: 4 )
     RAND 10 MOD 5 - RAND 10 MOD 10 + SHOOT
-    KEY?
-  UNTIL
+  KEY? UNTIL
   KEY DROP
 ;