Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TURBO9.ZIP/PUTCHAR.INC

Text File | 1984-09-25 | 403 b | 12 lines

{procedure to display a character without going thru BIOS-20% faster}
{attributes: 7-lowvideo, 14-highvideo, add 128 to also blink}

procedure PutCharDsp(var x,y:integer; var dspchar,attribute: char);
var Video : array[1..4000] of char absolute $B800:$0000;
    location : integer;
Begin
    location:=((x+(y-1)*80)*2-1);
    Video[location]:=dspchar;
    Video[location+1]:=attribute;
end;