Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sleep working?

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@84 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2017-05-17 18:13:22 +00:00
parent 70aca15211
commit 7a8034196b
20 changed files with 26 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/console.pas
View File

@ -15,7 +15,7 @@ uses
util,
bios_data_area;
const DEBUG = FALSE;
var DEBUG : Boolean;
type
TColor = ( Black = $0,
@ -103,6 +103,7 @@ var
procedure init(); [public, alias: 'console_init'];
Begin
Debug:= False;
Console_Properties.Default_Attribute:= console.combinecolors(White, Black);
console.clear();
end;
@ -373,7 +374,7 @@ begin
end;
Console_Cursor.X:= 0;
console._update_cursor;
if DEBUG then psleep(500);
if Debug then psleep(1000);
end;
procedure _newline(); [public, alias: '_console_newline'];