home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / bbslist / bloke53.zip / B2COMMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-22  |  837b  |  35 lines
  1.  PROGRAM b2commo(Input,Output);
  2.  
  3.     CONST
  4.        s = ' ';
  5.  
  6.     VAR
  7.        line: STRING[79];
  8.        d, e, n: INTEGER;
  9.  
  10.     BEGIN
  11.        WRITELN;
  12.        REPEAT
  13.           Readln(line);
  14.           d := 0;
  15.           e := 0;
  16.           n := 0;
  17.           Val(Copy(line,26,3), n, e); { test for short phone number...}
  18.           IF (n > 200) AND (e = 0) THEN BEGIN
  19.             d := 8
  20.           END ELSE BEGIN
  21.             IF (Copy(line,26,2) = '1-') THEN BEGIN { it's a long number...}
  22.                d := 14
  23.             END;
  24.           END;
  25.           IF (d <> 0) THEN BEGIN
  26.             Writeln(Copy(line,1,25),
  27.                     ' { ',
  28.                     Copy(line,26,d),
  29.                     ' } {password} {} {} 00/00/00'
  30.                     );
  31.           END;
  32.        UNTIL Eof(Input);
  33.        WRITELN;
  34.     END.
  35.