home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / PUTCHAR.INC < prev    next >
Encoding:
Text File  |  1984-09-25  |  403 b   |  12 lines
  1. {procedure to display a character without going thru BIOS-20% faster}
  2. {attributes: 7-lowvideo, 14-highvideo, add 128 to also blink}
  3.  
  4. procedure PutCharDsp(var x,y:integer; var dspchar,attribute: char);
  5. var Video : array[1..4000] of char absolute $B800:$0000;
  6.     location : integer;
  7. Begin
  8.     location:=((x+(y-1)*80)*2-1);
  9.     Video[location]:=dspchar;
  10.     Video[location+1]:=attribute;
  11. end;
  12.