Martin Lundberg
<4401>
· Text 478 · w8 · kommentar
1986-06-02 05:56
Ärende: textfil med CTRL-Z
*
Nej, Z-switchen till PIP klarar bara av att skala bort
den åttonde biten i byten - dvs bit 7.
Prova annars detta TURBO-program:
program noeof;
const
recsize = 128;
var
infil, utfil: file;
filnamn1,filnamn2: stringÄ14Å;
buffer: array Ä1..recsizeÅ of byte;
i,n : integer;
begin
write('infil ? ... '); readln (filnamn1);
assign (infil, filnamn1); reset (infil);
write ('utfil ? ... '); readln (filnamn2);
assign(utfil,filnamn2); rewrite (utfil);
repeat
blockread(infil,buffer,1,n);
i:=1;
while i<=recsize do begin
if bufferÄiÅ=¤1A then bufferÄiÅ:=¤20;
write (chr(bufferÄiÅ));
i:=succ(i);
end;
blockwrite(utfil,buffer,n);
until n=0;
close(infil); close(utfil)
end.
Det bör fungera med TURBO 3.01 på CP/M. Har bara testat
på PC.
Ha det bra, Martin
