From 41fce058b3b8cfdb0e924297ad79d8d1bcaed3bc Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Fri, 12 Nov 2021 15:48:47 -0500
Subject: [PATCH] logo_demo: getting close

---
 demos/logo_demo/demo.logo | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/demos/logo_demo/demo.logo b/demos/logo_demo/demo.logo
index 15230378..c7676e09 100644
--- a/demos/logo_demo/demo.logo
+++ b/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