logo_demo: getting close

demos/logo_demo/demo.logo

@@ -38,7 +38,7 @@ PD RT 90 FD 50 RT 90 FD 50
 PU SETPOS [-110 -45]
 PD FD 220
 LT 90 PU FD 10 LT 45
-REPEAT 8 [WAIT 15 RT 90 WAIT 15 LT 90]
+REPEAT 6 [WAIT 15 RT 90 WAIT 15 LT 90]
 END
 
 TO SUN
@@ -76,7 +76,15 @@ END
 TO FISH
 PU SETPOS [0 -50]
 PD SETPC 1 REPEAT 40 [FD 1 RT 3] RT 90
-REPEAT 40 [FD 1 RT 3] HT
+REPEAT 40 [FD 1 RT 3]
+END
+
+TO MOVEFISH
+MAKE "X ((RANDOM 280) - 140)
+MAKE "Y (-(RANDOM 100))
+MAKE "XY SENTENCE :X :Y
+SETPOS :XY
+WAIT 60
 END
 
 TO OCEAN
@@ -85,7 +93,8 @@ SUN
 BOAT
 WATER
 FISH
-WAIT 300
+SETH 90 PU
+REPEAT 5 [MOVEFISH]
 END
 
 TO POLYSPI4 :S :A :D :L
@@ -159,11 +168,11 @@ CS FS ST
 .CALL 19456
 DSR
 OCEAN
-WARGAMES
 POLY
+WARGAMES
 MYST
 CS SETBG 0
-REPEAT 3 [ CTREE ]
+REPEAT 4 [ CTREE ]
 CREDITS
 END