Category : Pascal Source Code
Archive   : TSPA3370.ZIP
Filename : TSUNTL.INT
(*
Timo Salmi UNiT L
A Turbo Pascal unit of miscellaneous additional routines
All rights reserved 24-Feb-93
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
ANY other usage, such as use in a business enterprise or a university,
contact the author for the terms of registration.
The units are under development. Comments and contacts are solicited. If
you have any questions, please do not hesitate to use electronic mail for
communication.
InterNet address: [email protected] (preferred)
Bitnet address: [email protected]
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi
Professor of Accounting and Business Finance
Faculty of Accounting & Industrial Management; University of Vaasa
P.O. BOX 297, SF-65101 Vaasa, Finland
*)
unit TSUNTL;
(* ======================================================================= *)
interface
(* ======================================================================= *)
(* =======================================================================
Screen and video related
======================================================================= *)
uses Dos;
(* Scroll up a window *)
procedure SCROLLUP (NumberOfLinesToScroll : byte;
BlankLineAttribute : byte;
UpperLeftRow : byte;
UpperLeftColumn : byte;
LowerRightRow : byte;
LowerRightColumn : byte);
(* Scroll down a window *)
procedure SCROLLDN (NumberOfLinesToScroll : byte;
BlankLineAttribute : byte;
UpperLeftRow : byte;
UpperLeftColumn : byte;
LowerRightRow : byte;
LowerRightColumn : byte);
(* Test if the system has EGA or beyond. Does not require the graph unit *)
function ISEGAFN : boolean;
(* =======================================================================
Disk services
======================================================================= *)
{$IFNDEF VER40} (* Not Turbo Pascal 4.0 *)
type string11 = string[11];
(* Set a disk's volume label *)
procedure SETLABEL (drive : char;
DiskLabel : string11;
var ok : boolean);
(* Delete a disk's volume label *)
procedure NOLABEL (drive : char;
var ok : boolean);
{$ENDIF} (* Not Turbo Pascal 4.0 *)
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/