From 742b2fad7293e083258d981f351b2a0f24b33a41 Mon Sep 17 00:00:00 2001
From: Michael Mikonos <mb@iinet.net.au>
Date: Thu, 19 Dec 2024 10:30:58 +0800
Subject: [PATCH] tab case in RawPutChar() can also be converted to do-while

---
 src/Kernel/Display.ZC | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
 mode change 100755 => 100644 src/Kernel/Display.ZC

diff --git a/src/Kernel/Display.ZC b/src/Kernel/Display.ZC
old mode 100755
new mode 100644
index 97ae3793..9d2a31f9
--- a/src/Kernel/Display.ZC
+++ b/src/Kernel/Display.ZC
@@ -35,9 +35,9 @@ See also $LK,"GrUpdateScreen",A="MN:GrUpdateScreen"$().
 	}
 	if (ch == '\t')
 	{
-		RawPutChar(CH_SPACE);
-		while (text.raw_col & 3)
+		do
 			RawPutChar(CH_SPACE);
+		while (text.raw_col & 3);
 	}
 	else if (ch == CH_BACKSPACE)
 	{