User:Angel2021fly

IBM

Rexx program

Rexx

Program

ooRexx Rexx Program

I write programs.

Name of my program: Dzordz

This program let to you convert a file to binary.

chordf=.stream~new("test.zip")

mychord=chordf~charin(1,chordf~chars)

parse arg text

myhex=C2X(mychord)

mybinary=X2B(myhex)

myhex2=B2X(mybinary)

mychord2=X2C(myhex2)

file=.stream~new("file.dzordz")

file~lineout(mychord2)

file=.stream~new("file.dzordzbinary")

file~lineout(mybinary)

exit