home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / pascalw.exe / LISTIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-27  |  561 b   |  32 lines
  1. Program ListIt( input, output );
  2. type
  3.    string = array[0..128] of char;
  4. var
  5.    Fname : string;
  6.    F : text;
  7.    buf : string;
  8.    I : integer;
  9.  
  10. Begin
  11.    Write( 'Enter the file name to read: ' );
  12.    Readln( Fname );
  13.  
  14.    Assign( F, Fname );
  15.    Reset( F );
  16.  
  17.    While ( NOT EOF(F) ) do
  18.       Begin
  19.       I := 0;
  20.       While ( NOT EOLN(F) AND NOT EOF(F) ) do
  21.          Begin
  22.          I := I + 1;
  23.          Read( F, buf[I] );
  24.          End;
  25.       buf[0] := CHR( I );
  26.       Readln( F );
  27.  
  28.       Writeln( buf );
  29.       End;
  30.    Close( F );
  31. End.
  32.