home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL4.ZIP / PRINTC.INC < prev    next >
Encoding:
Text File  |  1987-04-24  |  259 b   |  18 lines
  1.  
  2. var
  3.    reg: regpack;
  4.  
  5. procedure printc(s: anystring);  {print character, 3x faster than dos}
  6. var
  7.    i: integer;
  8. begin
  9.    for i := 1 to ORD(s[0]) do
  10.    begin
  11.       reg.ax := ord (s[i]);
  12.       reg.dx := 0;
  13.       intr(23, reg);
  14.    end;
  15. end;
  16.  
  17.  
  18.