home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
amouse10.zip
/
DEMO.INC
< prev
next >
Wrap
Text File
|
1992-07-22
|
911b
|
54 lines
procedure SetCursor(StartLine,EndLine:integer);
{ -Set Cursor Size}
var r : registers;
begin
with r do
begin
CH:=StartLine;
CL:=EndLine;
Ah:=1;
intr($10,r);
end;
end;
procedure NormalCursor;
{-Set normal cursor }
begin
SetCursor(6,7);
end;
procedure HiddenCursor;
{-Set Hide cursor}
begin
SetCursor($20, 0);
end;
Procedure ATR(t,b : integer);
{-Set background and color}
begin
Textcolor(t);
TextBackGround(b);
end;
procedure Time;
{-Draw time}
var
h, m, s, hund : Word;
function LeadingZero(w : Word) : String;
var
s : String;
begin
Str(w:0,s);
if Length(s) = 1 then
s := '0' + s;
LeadingZero := s;
end;
begin
GetTime(h,m,s,hund);
gotoxy(70,1);
Write(LeadingZero(h),':',
LeadingZero(m),':',LeadingZero(s),
'.',LeadingZero(hund));
end;