/* convert */

PARSE ARG in out

SAY in out

rc = Stream(in,"C","OPEN READ")
rc = Stream(out,"C","OPEN WRITE")

cnt = 0
end = 174080

DO WHILE cnt < end
  DO u = 0 to 23
    line = ""
    line = charin(in,, 41)
    rc = lineout(out,line)
    cnt = cnt + 41
  END
  line = charin(in,,40)
  rc = lineout(out,line)
  cnt = cnt + 40
END

rc = Stream(out,"C", "CLOSE")
rc = Stream(in, "C", "CLOSE")

RETURN
