More telnet-friendly clearing.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 50b3fba64f22689e6d8957a81e63639e2c21c094..1bdfea08b8fa9f7169a9be157fad25f945341a0d 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -431,7 +431,7 @@ sub output_screen {
                return;
        }
 
-       print  "\ecAnalysis:\n";
+       print  "\e[H\e[2JAnalysis:\n\n";
 
        return unless (exists($ficsinfo{'board'}));