13 lines
310 B
Text
13 lines
310 B
Text
include xpllib;
|
|
int N, I;
|
|
char A(80);
|
|
[OpenInFile("infile.dat");
|
|
OpenOutFile("outfile.dat");
|
|
for N:= 1 to 9 do
|
|
[for I:= 0 to 80-1 do A(I):= ChIn(3);
|
|
for I:= 80-1 downto 0 do ChOut(3, A(I));
|
|
];
|
|
OpenInFile("outfile.dat");
|
|
for N:= 1 to 9 do
|
|
[for I:= 0 to 80-1 do ChOut(0, ChIn(3)); CrLf(0)];
|
|
]
|