home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HSPASCAL.LZH / HSPASCAL / NONAME1.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-10  |  441b  |  24 lines
  1. program test (input,output);
  2.  
  3.  Const 
  4.         fichier='d:him.txt';
  5.  
  6.  var     
  7.         a : text;
  8.         b : char;        
  9.         c : boolean;
  10.         
  11.   begin
  12.         
  13.    clrscr;
  14.    reset(a,fichier);
  15.                   
  16.     while not eof(a) do 
  17.      begin
  18.       read(a,b);                                                                 
  19.       write(b);
  20.      end; 
  21.     close(a)
  22.                         
  23.   end.
  24.