PROGRAM=NOT
BEGIN
=READ_OPEN{1,?#IN?,?#IN_ENCODE?};
=WRITE_OPEN{1,?#OUT?,OT,?#OUT_ENCODE?};
=READ_NEXT1:READ_NEXT{1}READ_CLOSE{1}WRITE_CLOSE{1}EXIT{_END};
=WRITE{1,_READ_DATA};
=BACK{READ_NEXT1};
