User talk:2A02:8084:EA2:5B00:457E:C03E:6FAA:31C0

IBM Rexx Program Rexx Program ooRexx Rexx Program Name of my program: Angel_1.0.0.0

https://books.google.ie/books?id=z4llCwAAQBAJ&pg=PA7&lpg=PA7&dq=Rexx+program+write+programs&source=bl&ots=y7qgaVEOzS&sig=AQtYhyf8w-l8ULuGvl3c3hZniGU&hl=en&sa=X&ved=2ahUKEwiu9v-C8KTfAhUlXhUIHdpYCU84PBDoATAFegQIChAB#v=onepage&q=Rexx%20program%20write%20programs&f=false

I write programs.

From one calculus to another calculus translate.

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(myhex2) file=.stream~new("file.dzordzbinary") file~lineout(mybinary) file~close chordf~close chordf=.stream~new("test.zip") mychord=chordf~charin(1,chordf~chars) parse arg text myhex=C2X(mychord) mybinary=X2B(myhex) str='' Angelh="" do j = 1 while chars(file.dzordzbinary) > 0 str = (charin(file.dzordzbinary)) str1 = (charin(file.dzordzbinary)) str2 = (charin(file.dzordzbinary)) strj="" if str = '0' then do if str1 = '0' then do if str2 = '0' then do as0="0" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '1' then do if str1 = '1' then do if str2 = '1' then do as0="7" Angelh=Angelh||as0 strj="0" Angel="" end end end if str = '0' then do if str1 = '0' then do if str2 = '1' then do as0="1" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '0' then do if str1 = '1' then do if str2 = '0' then do as0="2" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '0' then do if str1 = '1' then do if str2 = '1' then do as0="3" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '1' then do if str = '0' then do if str = '0' then do as0="4" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '1' then do if str = '0' then do if str = '1' then do as0="5" Angelh=Angelh||as0 strj="" Angel="" end end end if str = '1' then do if str = '1' then do if str = '0' then do as0="6" Angelh=Angelh||as0 strj="" Angel="" end end end end file=.stream~new("file.Angel") file~lineout(Angelh) file~close chordf~close chordf=.stream~new("file.Angel") mychord=chordf~charin(1,chordf~chars) parse arg text exit