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

git-svn-id: https://spexeah.com:8443/svn/Asuro@522 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-04-14 01:48:55 +00:00
parent e261f84ed5
commit 64c96db1bf
63 changed files with 25 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/console.pas
View File

@ -94,6 +94,8 @@ procedure _increment_y();
procedure _safeincrement_y();
procedure _safeincrement_x();
procedure _newline();
procedure outputChar(c : char; x : uint8; y : uint8; fgcolor : uint16; bgcolor : uint16);
implementation
@ -176,8 +178,8 @@ var
x,y: Byte;
begin
for x:=0 to 159 do begin
for y:=0 to 63 do begin
for y:=0 to 63 do begin
for x:=0 to 159 do begin
Console_Matrix[y][x].Character:= ' ';
Console_Matrix[y][x].Attributes:= Console_Properties.Default_Attribute;
OutputChar(Console_Matrix[y][x].Character, x, y, Console_Matrix[y][x].Attributes SHR 16, Console_Matrix[y][x].Attributes AND $FFFF);