mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
29 lines
402 B
Rexx
29 lines
402 B
Rexx
/* 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
|