Script cleanup

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 !
+    MISSILE.YVELOCITY @ 1- DUP MISSILE.YVELOCITY ! 0< IF
-    0< IF
+      HGRCOLOR ( COLOR STILL ON STACK )
-      HGRCOLOR
       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?
+  KEY? UNTIL
-  UNTIL
   KEY DROP
 ;