home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / 10TLST.ZIP / SUBMIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-18  |  804 b   |  35 lines

  1. Program TenSubmit;
  2. Uses CRT,Tentools;
  3.  
  4. VAR
  5.    Commandline : String;
  6.    Node : S12;
  7.    RetCode : Word;
  8.    I : Integer;
  9.  
  10. Begin
  11.    If not (ParamCount>=2)
  12.    then
  13.     begin
  14.        Writeln('Syntax: ');
  15.        Writeln('        SUBMIT <Superstation> <Commandline>');
  16.        Halt;
  17.     end;
  18.    Node:=ParamStr(1);
  19.    Commandline:='';
  20.    I:=2;
  21.    While not (I=ParamCount)
  22.    do
  23.     begin
  24.        Commandline:=Commandline+ParamStr(I)+' ';
  25.        Inc(I);
  26.     end;
  27.    Commandline:=Commandline+ParamStr(I);
  28.    RetCode:=Submit(Node,Commandline);
  29.    Case RetCode of
  30.     0 : Writeln('Command Submitted to ',Node);
  31.     $08FF : Writeln('Not Logged into ',Node);
  32.     $0FFF : Writeln('Submit Permit not ON at ',Node);
  33.     else Writeln('Problem encountered! ErrorCode: ',RetCode);
  34.    end;
  35. End.