3,7 → 3,7 |
(************************************************) |
(* VTSCUI.PAS *) |
(* Author: Daniel Marschall *) |
(* Revision: 2022-02-16 *) |
(* Revision: 2022-02-14 *) |
(* License: Apache 2.0 *) |
(* This file contains: *) |
(* - ViaThinkSoft CUI (Console User Interface) *) |
36,7 → 36,6 |
procedure ShowMessage(msg: string; title: string; dobeep: boolean); |
procedure CursorOn; |
procedure CursorOff; |
procedure ResetDefaultDosColors; |
|
implementation |
|
375,7 → 374,6 |
iEndScope := itemIndex; |
goto doAgain; |
end; |
(* TODO: Implement PgUp and PgDown keys *) |
end; |
|
if sc = #13(*Return*) then |
597,10 → 595,4 |
int 10h |
end; |
|
procedure ResetDefaultDosColors; |
begin |
TextBackground(Black); |
TextColor(LightGray); |
end; |
|
end. |