HostDialog: ShowParamMsg and ShowParamStatus implementation updated

BlackBox/HostDialog.txt

@@ -8,15 +8,26 @@ MODULE HostDialog;
 		ShowHook = POINTER TO RECORD (Dialog.ShowHook) END;
 
 	PROCEDURE ShowParamMsg* (IN str, p0, p1, p2: ARRAY OF CHAR);
+		VAR st: ARRAY 512 OF CHAR;
 	BEGIN
-		Console.WriteStr(str$ + " " + p0$ + " " + p1$ + " " + p2$);
-		Console.WriteLn
+		ASSERT(str # "", 20);
+(*
+		IF Dialog.showsStatus THEN
+			ShowParamStatus(str, p0, p1, p2)
+		ELSE
+*)
+			Dialog.MapParamString(str, p0, p1, p2, st);
+			Console.WriteStr(st); Console.WriteLn
+(*
+		END
+*)
 	END ShowParamMsg;
 
 	PROCEDURE ShowParamStatus* (IN str, p0, p1, p2: ARRAY OF CHAR);
+		VAR st: ARRAY 513 OF CHAR;
 	BEGIN
-		Console.WriteStr(str$ + " " + p0$ + " " + p1$ + " " + p2$);
-		Console.WriteLn
+		Dialog.MapParamString(str, p0, p1, p2, st);
+		Console.WriteStr(st); Console.WriteLn
 	END ShowParamStatus;
 
 	PROCEDURE (h: ShowHook) ShowParamMsg (IN str, p0, p1, p2: ARRAY OF CHAR);