Category : Pascal Source Code
Archive   : PPC50S.ZIP
Filename : PPC0C.INC

{ PPC0C.INC Pascal Integrated Communications System Overlays }
{ 5/31/87 IBM PC VERS 5.0 Copyright 1987 by Les Archambault}

Overlay procedure Show_user_stats;
var str:strtad;
time_on,time_left,time_today,time_total:integer;
begin
seek(logr_file,0);
read(logr_file,logr_rec);
str := FormTAD(login_t);
Writeln(USR);
Writeln(USR, 'Login : ', str);
if user_rec.access>=val_acc then write(usr,'Validated User : ')
else write(usr,'Non-Validated User:');
writeln(usr,user_rec.fn,' ',user_rec.ln);
Writeln(USR);
timer(time_on, time_left);
time_today := user_rec.time_today + time_on;
time_total := user_rec.time_total + time_on;
Writeln(USR, 'Caller number : ', logr_rec.user);
Writeln(USR, 'Access time today : ', time_today);
Writeln(USR, 'Access time total : ', time_total);
str := FormTAD(user_rec.laston);
Writeln(USR, 'Last on system : ', str);
Writeln(USR, 'Last high message : ', user_rec.lasthi);
Writeln(usr, 'Uploads to date : ',user_rec.upload);
Writeln(usr, 'Downloads to date : ',user_rec.download);
writeln(usr);
end;

Overlay Procedure Update_Newin(Xfrname:filename);
var i:integer;
t:tad_array;
found:boolean;

begin
found:=false;
if ok then
begin
setsect(homName);
i:=pred(filesize(nwin_file));
while (ok) and (i>=0) and (not found) do
with nwin_rec do
begin
seek(nwin_file,i);
read(nwin_file,nwin_rec);
if xfrname=name then
begin
dnloads:=succ(dnloads);
gettad(t);
last_dnload:=t;
found:=true;
seek(nwin_file,i);
write(nwin_file,nwin_rec);
end;
i:=pred(i);
end;
end;
end;

{End of PPC0C.INC}