home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / CREDIT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-06  |  318b  |  9 lines
  1.   if useron then
  2.   begin
  3.     thisuser.uploads:=thisuser.uploads+1;
  4.     thisuser.uk:=thisuser.uk+((lblk+3) div 8);
  5.     textcolor(9);write('■ ');textcolor(11);writeln('Transfer completed');
  6.     if timer<rl1 then rl1:=rl1-24.0*60*60;
  7.     chattime:=chattime+timer-rl1;
  8.     systat.uptoday:=systat.uptoday+1;
  9.   end;