home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TSPAS19.ZIP / TSUNTH.INT < prev    next >
Encoding:
Text File  |  1990-04-16  |  2.4 KB  |  69 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. Updated 15-Apr-90
  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 TSUNTH;
  33.  
  34. (* ======================================================================= *)
  35.                           interface
  36. (* ======================================================================= *)
  37.  
  38. uses Dos;
  39.  
  40. (* Graftabl MsDos command loads the extended character set to be used in
  41.    the graphics mode.  This function tells whether the table has been
  42.    already loaded, or not *)
  43. function GRTABLFN : boolean;
  44.  
  45. (* This function returns whether a name is a directory or not *)
  46. function ISDIRFN (name : string) : boolean;
  47.  
  48. (* Copy a file (of any type)
  49.    Status codes:
  50.    0 : ok
  51.    1 : FromFile does not exits
  52.    2 : ToFile already exists
  53.    3 : ToFile cannot be opened for writing (read-only,
  54.          write protected, invalid device)
  55.    4 : Error in writing to ToFile
  56.    5 : Copy error (disk probably full)
  57.    6 : Date stamp error
  58.    7 : Out of memory
  59. *)
  60. procedure COPYFILE (FromFile, ToFile : string; var status : byte);
  61.  
  62. (* This function returns whether a text file is open or closed.
  63.                                    ----
  64.    Naturally the FilePointer must have been assigned at an earlier stage.
  65.    Very convenient as a test in routines which close a file.
  66.    e.g. use: if OPENEDFN(f) then close(f);                                *)
  67. function OPENEDFN (var FilePointer : text) : boolean;
  68.  
  69.