From 828b2493a4127f5cc76bdb08ad0232c29ce9000b Mon Sep 17 00:00:00 2001
From: Michael Mikonos <mb@iinet.net.au>
Date: Tue, 30 Jan 2024 20:40:37 +0800
Subject: [PATCH] for newline, RawPutChar() is called at least once, so convert
 loop to do-while

---
 src/Kernel/Display.ZC | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Kernel/Display.ZC b/src/Kernel/Display.ZC
index f8cadcb9..5c0ce6f7 100755
--- a/src/Kernel/Display.ZC
+++ b/src/Kernel/Display.ZC
@@ -47,9 +47,8 @@ See also $LK,"GrUpdateScreen",A="MN:GrUpdateScreen"$().
 	}
 	else if (ch == '\n')
 	{
-		RawPutChar(CH_SPACE);
-		while (text.raw_col % text.cols)
-			RawPutChar(CH_SPACE);
+		do RawPutChar(CH_SPACE);
+		while (text.raw_col % text.cols);
 	}
 	else if (Bt(char_bmp_displayable, ch))
 	{