User talk:2A02:8084:EA2:5B00:FDB7:C8F:751E:7F73

ooRexx Rexx Program
IBM

ooRexx Rexx Program

I write programs.

This program compresses files.

Infinite compression

usertime="" say "Please, enter the file." pull usertime say Time chordf=.stream~new(usertime) 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="" Angel="" strjk="" Angelhk="" strj="" c=0 b="" ch0="8" ch1="8" ch2="8" ch3="8" ch4="8" ch5="8" ch6="8" ch7="8" bl=0 cl=0 Angelhp="" sdfg="8" do j = 1 while chars(file.dzordzbinary) > 0 parse arg a.1 a.2 a.3 do i=1 to 3 bl=bl+1 a.i = (charin(file.dzordzbinary)) strj=strj||a.i end if a.1 = '0' & a.2 = '0' & a.3 = '0' then do c=c+1 as0=0 Angelh=Angelh||as0 strj="" Angel="" ch0="" ch0="0" end if a.1 = '1' & a.2 = '1' & a.3 = '1' then do as0=7 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch7="" ch7='7' end else if a.1 = '0' & a.2 = '0' & a.3 = '1' then do as0=1 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch1="" ch1="1" end else if a.1 = '0' & a.2 = '1' & a.3 = '0' then do as0=2 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch2="" ch2="2" end else if a.1 = '0' & a.2 = '1' & a.3 = '1' then do as0=3 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch3="" ch3="3" end else if a.1 = '1' & a.2 = '0' & a.3 = '0' then do as0=4 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch4="" ch4="4" end else if a.1 = '1' & a.2 = '0' & a.3 = '1' then do as0=5 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch7="" ch5="5" end else if a.1 = '1' & a.2 = '1' & a.3 = '0' then do as0=6 c=c+1 Angelh=Angelh||as0 strj="" Angel="" ch7="" ch7="6" end if c = 21 then do c=0 ach9="" ach9=ch0||ch1||ch2||ch3||ch4||ch5||ch6||ch7 if ch0 <> '0' then do cl=cl+1 c=0 sei="0000" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch1 <> '1' then do cl=cl+1 c=0 sei="0001" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch2 <> '2' then do cl=cl+1 c=0 sei="0010" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch3 <> '3' then do c=0 cl=cl+1 sei="0011" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch4 <> '4' then do c=0 cl=cl+1 sei="0100" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch5 <> '5' then do c=0 cl=cl+1 sei="0101" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch6 <> '6' then do c=0 cl=cl+1 sei="0110" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else if ch7 <> '7' then do c=0 cl=cl+1 sei="0111" Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end else do c=0 sei="1" cl=cl-1 Angelhp=Angelhp||sei Angelhp=Angelhp||Angelh Angelh="" end ch0="8" ch1="8" ch2="8" ch3="8" ch4="8" ch5="8" ch6="8" ch7="8" end end Angelhp=Angelhp||strj jk=length(strj) jki=8-jk-2 ui=D2C(jki) Angelhp=Angelhp||ui file=.stream~new("file.Angel") file~lineout(Angelhp) file~close chordf~close chordf=.stream~new("file.Angel") mychord=chordf~charin(1,chordf~chars) parse arg text cl=bl-cl cl=cl+40 say cl "bits after" say bl "bits before" say Time bs=0 bs=bl-cl file=.stream~new("Between.Angel") file~lineout(bs) file~close say bs "bits between" say bs/8 "bytes between" pull exit