home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / POPTXT22.ZIP / FW.DOC next >
Encoding:
Text File  |  1989-08-13  |  1.6 KB  |  52 lines
  1. Unit FW;
  2.  
  3. {***********************************************}
  4. {**** POPTEXT Version 2.1                   ****}
  5. {**** (C) 1989 Tone Zone Computing          ****}
  6. {**** FW - Fast ScreenWrite Utility         ****}
  7. {**** Interface section for Unit FW         ****}
  8. {***********************************************}
  9.  
  10. {***********************************************}
  11. {** License to incorportate FW.TPU to        ***}
  12. {** REGISTERED USERS only  (See Register.doc)***}
  13. {***********************************************}
  14.  
  15.  
  16. Interface
  17.  
  18. Uses Crt;
  19.  
  20. Procedure FastWrite(buf:String;Y,X,C:Byte);
  21. {Usage:  Fastwrite(String,Row,Column,attr);
  22.         Writes String to specified coordinates using attr for attribute.
  23.         Interprets #129 as HighVideo and
  24.                    #130 as Lowvideo in text stream}
  25.  
  26. Procedure ChangeAttr(L,Y,X,C:Byte);
  27. {Usage:  ChangeAttr(Length,Row,Column,attr);
  28.         Sets specified length of Row,Column to specified Attribute}
  29.  
  30.  
  31. Procedure SetFWColors(LoVid,HiVid,InvLo,InvHi:Byte);
  32. {Usage: SetFWColors(Lo,Hi,ILow,IHigh);
  33.         Sets the attribute values for global variables LowVid,HighVid,
  34.         InvHigh,InvLow.  Default values are 7,11,112,11 respectively}
  35.  
  36.  
  37. Var Highvid,
  38.     Lowvid,
  39.     InvHigh,
  40.     InvLow:byte;
  41.  
  42. {Contain the values used by Fastwrite in interpreting the #129 and #130
  43.  Highlight values.  Can be used as parameters to Attrs of ChangeAttr and
  44.  Fastwrite to increase monitor compatability.  Default values are set
  45.  to     Highvid = 11
  46.         Lowvid  = 7
  47.         InvLow  = 112
  48.         InvHigh = 11}
  49.  
  50.  
  51. implementation
  52.