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