home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tspas18.arj / TSUNTH.INT < prev    next >
Text File  |  1990-02-24  |  2KB  |  46 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT H
  5. A Turbo Pascal 5.0 unit of more miscellania
  6. All rights reserved 24-Feb-90
  7.  
  8. TSUNTH.TPU is contains just one function, but I decided to add it in the
  9. TSPAS18.ARC revision, even if the main theme of this revision is the support
  10. for Turbo 5.5 in addition to the earlier support to versions 4.0 and 5.0.
  11.  
  12. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  13. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  14. ANY other usage, contact the author.
  15.  
  16. The units are under development. Comments and contacts are solicited. If
  17. you have any questions, please do not hesitate to use electronic mail for
  18. communication.
  19. InterNet address: ts@chyde.uwasa.fi         (preferred)
  20. Funet address:    GADO::SALMI
  21. Bitnet address:   SALMI@FINFUN
  22. FidoNet address:  2:515/1 (Micro Maniacs Opus, To: Timo Salmi)
  23.  
  24. The author shall not be liable to the user for any direct, indirect or
  25. consequential loss arising from the use of, or inability to use, any unit,
  26. program or file howsoever caused. No warranty is given that the units and
  27. programs will work under all circumstances.
  28.  
  29. Timo Salmi
  30. Professor of Accounting and Business Finance
  31. School of Business Studies, University of Vaasa
  32. P.O. BOX 297, SF-65101 Vaasa, Finland
  33. *)
  34.  
  35. unit TSUNTH;
  36.  
  37. (* ======================================================================= *)
  38.                           interface
  39. (* ======================================================================= *)
  40.  
  41. (* Graftabl MsDos command loads the extended character set to be used in
  42.    the graphics mode.  This function tells whether the table has been
  43.    already loaded, or not *)
  44. function GRTABLFN : boolean;
  45.  
  46.