diff --git a/flagpole/tests/glendasay.fp b/flagpole/tests/glendasay.fp
index 58e707c..881b6a4 100644
--- a/flagpole/tests/glendasay.fp
+++ b/flagpole/tests/glendasay.fp
@@ -1,28 +1,32 @@
 $inc fvmstd.fp
 
 proc main
-  "  /----------------------\ " :puts :newline
+  "  /--------------------------------\ " :puts :newline
   0 @skip
   while &skip not do
     "  | " :puts
     0 @i
-    while &i 20 u< &skip not band do
+    0 @tmpSkip
+    while &i 30 u< &skip not &tmpSkip not band band do
       :getchar @c
-      if &c 0x0A == &c 0x00 == &c 0xFF == bor bor then
+      if &c 0x00 == &c 0xFF == bor then
         1 @skip
       endif
-      if &skip not then
+      if &c 0x0A == then
+        1 @tmpSkip
+      endif
+      if &skip not &tmpSkip not band then
         &c :putchar
         &i 1 u+ @i
       endif
     endwhile
-    while &i 20 u< do
+    while &i 30 u< do
       0x20 :putchar
       &i 1 u+ @i
     endwhile
     " |" :puts :newline
   endwhile
-  "  \----------------------/ " :puts :newline
+  "  \--------------------------------/ " :puts :newline
   "                           " :puts :newline
   "             \             " :puts :newline
   "              \            " :puts :newline