home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / SCRTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-25  |  195 b   |  7 lines
  1. procedure scrtest(var x,y,location:integer; var dspchar: char);
  2. var Video : array[1..4000] of char absolute $B800:$0000;
  3.  
  4. Begin
  5.     location:=x+(y-1)*80;
  6.     Video[location]:=dspchar;
  7. end;