8 lines
251 B
Text
8 lines
251 B
Text
declare in file, out file;
|
|
|
|
open file (in) title ('/INPUT.TXT,type(text),recsize(100)') input;
|
|
open file (out) title ('/OUTPUT.TXT,type(text),recsize(100') output;
|
|
do forever;
|
|
get file (in) edit (line) (L);
|
|
put file (out) edit (line) (A);
|
|
end;
|