home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DPSX / TOOL-PAS.ZIP / IDUMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-05  |  291 b   |  22 lines
  1.  
  2. var
  3.    fd:   file of byte;
  4.    b:    byte;
  5.    buf:  array[1..maxint] of char;
  6.  
  7. begin
  8.    assign(fd,paramstr(1));
  9.    reset(fd);
  10.    settextbuf(output,buf);
  11.  
  12.    while not eof(fd) do
  13.    begin
  14.       read(fd,b);
  15.       writeln(b);
  16.    end;
  17.    close(fd);
  18.  
  19.    flush(output);
  20. end.
  21.  
  22.