2013-04-10 22:43:41 -07:00
|
|
|
declare in file, out file;
|
|
|
|
|
|
|
|
|
|
open file (in) title ('/INPUT.TXT,type(text),recsize(100)') input;
|
2013-10-27 22:24:23 +00:00
|
|
|
open file (out) title ('/OUTPUT.TXT,type(text),recsize(100') output;
|
2013-04-10 22:43:41 -07:00
|
|
|
do forever;
|
|
|
|
|
get file (in) edit (line) (L);
|
|
|
|
|
put file (out) edit (line) (A);
|
|
|
|
|
end;
|
