home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / UPCHECK / EXZT223K.ZIP / PROECHO.ZIP / PROECHO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-04  |  587b  |  35 lines
  1.  
  2. uses CINPUT;
  3.  
  4. const
  5.    version = 'ProEcho 3.2 BETA, 2-4-90 (C) 1990 Samuel H. Smith';
  6.  
  7. var
  8.    i:    integer;
  9.    par:  string;
  10.  
  11. begin
  12.    if paramcount < 2 then
  13.    begin
  14.       writeln(version);
  15.       writeln('Usage:  PROECHO COMPORT Message Text...');
  16.       halt;
  17.    end;
  18.  
  19.    par := paramstr(1);
  20.    opencom(ord(par[1])-ord('0'));
  21.  
  22.    par := paramstr(2);
  23.    for i := 3 to paramcount do
  24.       par := par + ' ' + paramstr(i);
  25.  
  26.    for i := 1 to length(par) do
  27.       if par[i] = '~' then
  28.          newline
  29.       else
  30.          disp(par[i]);
  31.  
  32.    closecom;
  33. end.
  34.  
  35.