Do while Lines Input_file
 String = '' ..

 - LineIn >String_{8bit}< Input_file,
   Transform >String< String_{8bit},
   LineOut Output_file String

 If String = ';.' then
  Leave
 Else
  Iterate
 ;
;