home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_TXT.INT < prev    next >
Text File  |  1993-05-05  |  789b  |  27 lines
  1. Unit SPX_TXT;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. Uses SPX_VGA,SPX_FNC;
  8.  
  9. type
  10.   chartype = array[0..15] of word;
  11.   charlist = array[1..255] of chartype;
  12.  
  13. var
  14.   cp      : integer;                  { current X postion }
  15.   ot,                                 { character width }
  16.   cofs    : array[1..255] of byte;    { character offset }
  17.   cdata   : charlist;                 { default character set }
  18.   maxltx,                             { max width of font }
  19.   maxlty  : byte;                     { max height of font }
  20.  
  21. function stlen(s:string):word;
  22. procedure putletter(x,y:integer;c:byte;s:string);
  23. procedure putchar(x,y:integer;h:char;c:byte);
  24. procedure setchb(var buff);
  25. procedure loadchb(fn:string;var cdata:charlist);
  26.  
  27.