home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / KTOOLS.ZIP / KTOOLS.DOC < prev    next >
Encoding:
Text File  |  1988-01-03  |  2.8 KB  |  68 lines
  1. GLOBAL TYPE
  2.     Colors = 0..15;       (* Standard Black thru White         *)
  3.  
  4. GLOBAL VARIABLES
  5.  
  6.     ActiveDP : Byte;      (* Active Display Page               *)
  7.     LineWidth : Integer;  (* Line Width of current video mode  *)
  8.     VideoMode : Byte;     (* Current Video Mode i.e. 0,1,2,3,7 *)
  9.  
  10.  
  11. FUNCTION CurrentVideoMode : Byte;
  12. PROCEDURE CursorOn;
  13. PROCEDURE CursorOff;
  14. FUNCTION KUCase(S:String):String;
  15. FUNCTION KLCase(S:String):String;
  16. FUNCTION Color(FG,BG:Colors):Byte;
  17. PROCEDURE KAttr(Row,Col,Rows,Cols:Integer;Attr:Byte);
  18. PROCEDURE KFill(Row,Col,Rows,Cols:Integer;Ch:Char;Attr:Byte);
  19. PROCEDURE KTrim(VAR S:String);
  20. PROCEDURE KWrite(Row,Col:Integer;Attr:Byte;S:String);
  21. PROCEDURE KWriteV(Row,Col:Integer;Attr:Byte;VAR S:String);
  22. PROCEDURE KWriteC(Row:Integer;Attr:Byte;S:String);
  23. PROCEDURE KWriteCV(Row:Integer;Attr:Byte;VAR S:String);
  24.  
  25. Listed are the procedures and function contained in KTOOLS1.TPU
  26.  
  27. The arrival of Turbo 4 was welcomed by most everyone.  It is by far the best
  28. yet with a few small draw backs.
  29.  
  30. These simple routines take advantage of the new abilities of TP4 and are 
  31. hereby declared Public Domain property if such a statement is needed.  
  32. Also it is fashionable to say that these routines did not blow my CPU's mind,
  33. but if yours has one foot in the grave and the other on a banana peel and  
  34. croaks off well..... if you use these routines, you in what ever language is 
  35. in use, agree with me that I didn't have a thing to do with it.  If you
  36. like them and want to support my programming then 5 bucks cash is helpful. 
  37. If you don't care if I program to help others then I don't either I guess.  
  38. If you just like what they may have shown you about writing such routines 
  39. then a call will be welcomed.
  40.  
  41. The Programmers'Source
  42. Rt 2 Box 54
  43. Center, Tx. 75935
  44. Data 409-598-9057
  45. Voice 409-598-3809 if I or the XYL are home.
  46.  
  47. I have tried to use things that TP4 provides as well as BIOS calls to show
  48. their usage in the routines.
  49.  
  50. KTOOLS.pas has documentation enough to point you in the right direction if
  51. you wish to change these to suit your own needs.  If you do modify them and
  52. figure on turning them loose in the world, please make a note to the effect
  53. that you made the modifications.  Also do me a favor and change name of the
  54. file as I will be adding to these as I go along and they will be released
  55. with a version extention to KTOOLS.
  56.  
  57. If you use these routines in your program don't forget to send along all these
  58. source files if you release your program source code.
  59.  
  60. I hope these provide help to some TP4 programmers.  Don't forget call,write or
  61. drop by anytime.
  62.                                       Drue Kennon
  63.  
  64. P.S. Not responsible for typo errors in documentation.
  65.  
  66. KTOOLS Copyright (c) 1987 by Personalized Computer Programming Co.
  67.  
  68.