home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / TNH_PC.ZIP / TESTTAB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-14  |  1004 b   |  42 lines
  1. PROGRAM TEST(INPUT,OUTPUT);
  2.  
  3. const
  4.   MAX_LINE_LENGTH = 140;
  5. type
  6.   LINESTR = lstring(MAX_LINE_LENGTH);
  7. var
  8.   INFILE   :TEXT;
  9.   TABLINE,NOTABLINE   :lstring(MAX_LINE_LENGTH);
  10.   X      :char;
  11.   I      :integer;
  12.  
  13. PROCEDURE EXPAND_TABS(var TABLINE,NOTABLINE:lstring); EXTERN;
  14.  
  15. BEGIN (*test*)
  16.   assign(INFILE,'TEST.TXT');
  17.   reset(INFILE);
  18.   while not eof(INFILE) do
  19.   begin
  20.     readln(INFILE,TABLINE);
  21.     writeln('Line length= ',ord(TABLINE[0]));
  22.     writeln(TABLINE);
  23.     for I:= 1 to ord(TABLINE[0]) do
  24.     begin
  25.       if ord(TABLINE[I])=9 then write('@')
  26.       else write(TABLINE[I]);
  27.     end;
  28.     writeln;
  29.     writeln('====== CALL EXPAND_TABS ======');
  30.     EXPAND_TABS(TABLINE,NOTABLINE);
  31.     writeln('Line length= ',ord(NOTABLINE[0]));
  32.     for I:= 1 to ord(NOTABLINE[0]) do
  33.     begin
  34.       if ord(NOTABLINE[I])=9 then write('@')
  35.       else write(NOTABLINE[I]);
  36.     end;
  37.     writeln;
  38.     writeln('---------- Hit ENTER to continue: ');
  39.     read(X);
  40.   end;
  41. end.(*TEST*)
  42.