[Back to NETWORK SWAG index] [Back to Main SWAG index] [Original]

     {
     Program Name : 10Time.Pas
     Written By   : Anonymous
     E-Mail       : nothing
     Web Page     : nothing
     Program
     Compilation  : Turbo Pascal 5.0 or later

     Program Description :

     Usefulness for BBS'S and general communications.
     For a detailed description of this code source, please,
     read the file TENTOOLS.DOC. Thank you
     }

    Program TenTime;
    Uses CRT,TenTools;

    VAR
       I : Integer;
       W : Word;
       L,K : Longint;
       SB : StatusBlock;
       DT : DateTimeRec;
       Mins,Secs : String[2];
    Begin
       If ParamCount<1
       then Writeln('Syntax: 10Time <Node>')
       else
        begin
           W:=TenConfig(0,0,0);
           W:=Get10Time(ParamStr(1),DT);
           If W=0
           then With DT do
            begin
               Str(Minute:2,Mins);
               If Mins[1]=' ' then Mins[1]:='0';
               Str(Second:2,Secs);
               If Secs[1]=' ' then Secs[1]:='0';
               Writeln('Date: ',Month,'/',Day,'/',Year,' Time: ',Hour,':',Mins,':',Secs);
            end;
        end;
    End.

[Back to NETWORK SWAG index] [Back to Main SWAG index] [Original]