home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_01
/
HSPASCAL.LZH
/
HSPASCAL
/
NONAME1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-10-10
|
441b
|
24 lines
program test (input,output);
Const
fichier='d:him.txt';
var
a : text;
b : char;
c : boolean;
begin
clrscr;
reset(a,fichier);
while not eof(a) do
begin
read(a,b);
write(b);
end;
close(a)
end.