home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tspas18.arj / TSUNTG.INT < prev    next >
Text File  |  1990-02-24  |  3KB  |  81 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT G
  5. A Turbo Pascal 5.0 unit of miscellania
  6. All rights reserved 26-Nov-89
  7. Updated 6-Dec-89
  8.  
  9. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  10. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  11. ANY other usage, contact the author.
  12.  
  13. The units are under development. Comments and contacts are solicited. If
  14. you have any questions, please do not hesitate to use electronic mail for
  15. communication.
  16. InterNet address: ts@chyde.uwasa.fi         (preferred)
  17. Funet address:    GADO::SALMI
  18. Bitnet address:   SALMI@FINFUN
  19. FidoNet address:  2:515/1 (Micro Maniacs Opus, To: Timo Salmi)
  20.  
  21. The author shall not be liable to the user for any direct, indirect or
  22. consequential loss arising from the use of, or inability to use, any unit,
  23. program or file howsoever caused. No warranty is given that the units and
  24. programs will work under all circumstances.
  25.  
  26. Timo Salmi
  27. Professor of Accounting and Business Finance
  28. School of Business Studies, University of Vaasa
  29. P.O. BOX 297, SF-65101 Vaasa, Finland
  30. *)
  31.  
  32. unit TSUNTG;
  33.  
  34. (* ======================================================================= *)
  35.                           interface
  36. (* ======================================================================= *)
  37.  
  38. uses Dos;
  39.  
  40. (* Number of diskette drives on the system *)
  41. function DRIVESFN : byte;
  42.  
  43. (* The name of the first diskette drive on the system *)
  44. function FDRIVEFN : char;
  45.  
  46. (* Is a media present in the given drive *)
  47. function INDRIVFN (drive : char) : boolean;
  48.  
  49. (* As Turbo Pascal GoToYX but does not require the Crt unit *)
  50. procedure GOATXY (x, y : integer);
  51.  
  52. (* As Turbo Pascal WhereX but does not require the Crt unit *)
  53. function WHEREXFN : byte;
  54.  
  55. (* As Turbo Pascal WhereY but does not require the Crt unit *)
  56. function WHEREYFN : byte;
  57.  
  58. (* As Turbo Pascal KeyPressed but does not require the Crt unit *)
  59. function KEYPREFN : boolean;
  60.  
  61. (* As Turbo Pascal ReadKey but does not require the Crt unit *)
  62. function READKEFN : char;
  63.  
  64. (* This function resembles the traditional Basic inkey function.
  65.    It returns the pressed character with no echo. Special chacarters
  66.    are returned in the usual paired manner (chr(0) + code).
  67.    If timelimit seconds is exceeded timeout becomes true (and a
  68.    chr(0) is returned by inkeyfn). *)
  69. function INKEYFN (timelimit : real; var timeout : boolean) : char;
  70.  
  71. (* Reverse the colors of an area.
  72.    This is slow. For fast screen routines see TSUNTA. *)
  73. procedure REVAREA (x1, y1, x2, y2 : integer);
  74.  
  75. (* Direct write and writeln to printer *)
  76. procedure USEPRN;
  77.  
  78. (* Direct write and writeln to the screen *)
  79. procedure USECON;
  80.  
  81.