home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TSPA3260.ZIP / TSUNTL.INT < prev    next >
Encoding:
Text File  |  1993-02-24  |  2.8 KB  |  80 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT L
  5. A Turbo Pascal unit of miscellaneous additional routines
  6. All rights reserved 24-Feb-93
  7.  
  8. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  9. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  10. ANY other usage, such as use in a business enterprise or a university,
  11. contact the author for the terms of registration.
  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@uwasa.fi            (preferred)
  17. Bitnet address:   SALMI@FINFUN.BITNET
  18.  
  19. The author shall not be liable to the user for any direct, indirect or
  20. consequential loss arising from the use of, or inability to use, any unit,
  21. program or file howsoever caused. No warranty is given that the units and
  22. programs will work under all circumstances.
  23.  
  24. Timo Salmi
  25. Professor of Accounting and Business Finance
  26. Faculty of Accounting & Industrial Management; University of Vaasa
  27. P.O. BOX 297, SF-65101 Vaasa, Finland
  28. *)
  29.  
  30. unit TSUNTL;
  31.  
  32. (* ======================================================================= *)
  33.                           interface
  34. (* ======================================================================= *)
  35.  
  36. (* =======================================================================
  37.                    Screen and video related
  38.    ======================================================================= *)
  39.  
  40. uses Dos;
  41.  
  42. (* Scroll up a window *)
  43. procedure SCROLLUP (NumberOfLinesToScroll : byte;
  44.                     BlankLineAttribute    : byte;
  45.                     UpperLeftRow          : byte;
  46.                     UpperLeftColumn       : byte;
  47.                     LowerRightRow         : byte;
  48.                     LowerRightColumn      : byte);
  49.  
  50. (* Scroll down a window *)
  51. procedure SCROLLDN (NumberOfLinesToScroll : byte;
  52.                     BlankLineAttribute    : byte;
  53.                     UpperLeftRow          : byte;
  54.                     UpperLeftColumn       : byte;
  55.                     LowerRightRow         : byte;
  56.                     LowerRightColumn      : byte);
  57.  
  58. (* Test if the system has EGA or beyond. Does not require the graph unit *)
  59. function ISEGAFN : boolean;
  60.  
  61. (* =======================================================================
  62.                       Disk services
  63.    ======================================================================= *)
  64.  
  65. {$IFNDEF VER40}  (* Not Turbo Pascal 4.0 *)
  66.  
  67. type string11 = string[11];
  68.  
  69. (* Set a disk's volume label *)
  70. procedure SETLABEL (drive     : char;
  71.                     DiskLabel : string11;
  72.                     var ok    : boolean);
  73.  
  74. (* Delete a disk's volume label *)
  75. procedure NOLABEL (drive  : char;
  76.                    var ok : boolean);
  77.  
  78. {$ENDIF}  (* Not Turbo Pascal 4.0 *)
  79.  
  80.