56,6 → 56,7 |
cls* : PROCEDURE [stdcall] (); |
get_cursor_pos* : PROCEDURE [stdcall] (VAR x, y: INTEGER); |
set_cursor_pos* : PROCEDURE [stdcall] (x, y: INTEGER); |
set_title* : PROCEDURE [stdcall] (title: INTEGER); |
|
PROCEDURE open*(wnd_width, wnd_height, scr_width, scr_height: INTEGER; title: ARRAY OF CHAR); |
BEGIN |
94,6 → 95,7 |
GetProc(sys.ADR(cls), "con_cls"); |
GetProc(sys.ADR(get_cursor_pos), "con_get_cursor_pos"); |
GetProc(sys.ADR(set_cursor_pos), "con_set_cursor_pos"); |
GetProc(sys.ADR(set_title), "con_set_title"); |
END main; |
|
BEGIN |