home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
PERFORM
/
DISKIO1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-13
|
923b
|
46 lines
{$IFDEF VER70}
{$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,P-,Q-,R-,S+,T-,V-,X+}
{$ELSE}
{$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,R-,S+,V-,X+}
{$ENDIF}
{$M 16384,0,655360}
{$DEFINE SetTextBuffer}
Const BufSize = 4096;
var BronBuffer,DoelBuffer: Array[1..BufSize] of Char;
Bron,Doel: Text;
t: Char;
var TimerTick: Word absolute $0040:$006C;
Time: Real;
begin
Time := TimerTick;
Assign(Bron,'input');
{$IFDEF SetTextBuffer}
SetTextBuf(Bron,BronBuffer);
{$ENDIF}
Reset(Bron);
Assign(Doel,'output');
{$IFDEF SetTextBuffer}
SetTextBuf(Doel,DoelBuffer);
{$ENDIF}
Rewrite(Doel);
while not eof(Bron) do
begin
while not eoln(Bron) do
begin
read(Bron,t);
write(Doel,t)
end;
readln(Bron);
writeln(Doel)
end;
Close(Bron);
Close(Doel);
Time := (TimerTick - Time) / 18.2;
writeln(' Execution time was: ',Time:0:2,' sec.');
end.