Index: /Include/basic/prompt.sbp
===================================================================
--- /Include/basic/prompt.sbp	(revision 126)
+++ /Include/basic/prompt.sbp	(revision 127)
@@ -11,5 +11,5 @@
 Dim _PromptSys_hWnd As HWND
 Dim _PromptSys_dwThreadID As DWord
-Dim _PromptSys_bInitFinish As BOOL
+Dim _PromptSys_hInitFinish As HANDLE
 
 'text
@@ -47,10 +47,7 @@
 Dim _PromptSys_GlobalPos As POINTAPI
 
-CreateEvent(0, FALSE, FALSE, 0)
-_PromptSys_bInitFinish = 0
+_PromptSys_hInitFinish = CreateEvent(0, FALSE, FALSE, 0)
 CreateThread(0, 0, AddressOf(PromptMain) As LPTHREAD_START_ROUTINE, 0, 0, _PromptSys_dwThreadID)
-Do
-	Sleep(20)
-Loop Until _PromptSys_bInitFinish
+WaitForSingleObject(_PromptSys_hInitFinish, INFINITE)
 
 Sub DrawPromptBuffer(hDC As HDC, StartLine As Long, EndLine As Long)
@@ -85,8 +82,5 @@
 
 			Dim sz As SIZE
-			i3 = lstrlen(_PromptSys_TextLine[i].Text) '_PromptSys_TextLine[i].Length
-			If i3 <> 0 Then
-				OutputDebugString(Str$(i3) + ":" + Str$(_PromptSys_TextLine[i].Length) + Ex"\r\n")
-			End If
+			i3 = _PromptSys_TextLine[i].Length
 			GetTextExtentPoint32(hDC, _PromptSys_TextLine[i].Text, i3, sz)
 
@@ -250,6 +244,4 @@
 	DrawPromptBuffer(hdc, -1, 0)
 	EndPaint(hwnd, ps)
-
-	_PromptSys_bInitFinish = TRUE
 End Sub
 
@@ -447,5 +439,5 @@
 	ShowWindow(_PromptSys_hWnd, SW_SHOW)
 	UpdateWindow(_PromptSys_hWnd)
-
+	SetEvent(_PromptSys_hInitFinish)
 	Dim msg As MSG
 	Do