ooRexx Rexx Program edit
ooRexx Rexx Program Program I write programs. Name of my program: Angel This program compresses files. Algorithm PRNG Kind Regards, Jurijus Pacalovas
NUMERIC DIGITS 10000 qw0=0 qw1=0 dfi="" dfl="" "DEL file.dzordz" "DEL file.dzordzbinary" usertime="" say "Please, enter the file." pull usertime say "Please, enter the output." pull usertimes sqw=".Angel" usertimes=usertimes||sqw say Time() chordf=.stream~new(usertime) mychord=chordf~charin(1,chordf~chars) parse arg text sjksu=length(mychord) 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" fg=0 do j = 1 while chars(file.dzordzbinary) > 0 do i=1 to 8 parse arg a.i end do i=1 to 8 bl=bl+1 a.i = (charin(file.dzordzbinary)) strj=strj||a.i Angelk=Angelk||a.i end as0=1 as1=0 do i=1 to 5 as0=as0*2 end do i=1 to 6 if a.i=1 then do as0=as0/2 as1=as1+as0 end end xix=as1 xx=41*41 xs=41 wq=0 yu=0 strj="" do i=1 to 6 strjl=strjl||a.i end do until xix=asq | wq=16 wq=wq+1 yu=yu+1 if yu=2 then do xs=xs+1 xx=xs*xs yu=0 end if xx>999 & xx<10000 then do ssu=xx%1000 ssi=ssu*1000 ssx=(xx-ssi)%10 end if xx>99 & xx<1000 then do ssx=xx%10 end if xx<100 then do ssx=xx%1 end xx=ssx*ssx asq=ssx-35 if asq<0 then do asq=asq-asq-asq end end if xix=asq then do qw0=qw0+1 if wq=1 then do dfi="10000" end if wq=2 then do dfi="10001" end if wq=3 then do dfi="10010" end if wq=4 then do dfi="10011" end if wq=5 then do dfi="10100" end if wq=6 then do dfi="10101" end if wq=7 then do dfi="10110" end if wq=8 then do dfi="10111" end if wq=9 then do dfi="11000" end if wq=10 then do dfi="11001" end if wq=11 then do dfi="11010" end if wq=12 then do dfi="11011" end if wq=13 then do dfi="11100" end if wq=14 then do dfi="11101" if wq=15 then do dfi="11110" end if wq=16 then do dfi="11111" end end end else do qw1=qw1+1 if a.1=0 & a.2=0 & a.3=0 & a.4=0 & a.5=0 & a.6=0 then do dfi="0000000" end if a.1=0 & a.2=0 & a.3=0 & a.4=0 & a.5=0 & a.6=1 then do dfi="0000001" end if a.1=0 & a.2=0 & a.3=0 & a.4=0 & a.5=1 & a.6=0 then do dfi="0000010" end if a.1=0 & a.2=0 & a.3=0 & a.4=0 & a.5=1 & a.6=1 then do dfi="0000011" end if a.1=0 & a.2=0 & a.3=0 & a.4=1 & a.5=0 & a.6=0 then do dfi="0000100" end if a.1=0 & a.2=0 & a.3=0 & a.4=1 & a.5=0 & a.6=1 then do dfi="0000101" end end if a.1=0 & a.2=0 & a.3=0 & a.4=1 & a.5=1 & a.6=0 then do dfi="0000110" end if a.1=0 & a.2=0 & a.3=0 & a.4=1 & a.5=1 & a.6=1 then do dfi="0000111" end if a.1=0 & a.2=0 & a.3=1 & a.4=0 & a.5=0 & a.6=0 then do dfi="0001000" end if a.1=0 & a.2=0 & a.3=1 & a.4=0 & a.5=0 & a.6=1 then do dfi="0001001" end if a.1=0 & a.2=0 & a.3=1 & a.4=0 & a.5=1 & a.6=0 then do dfi="0001010" end if a.1=0 & a.2=0 & a.3=1 & a.4=0 & a.5=1 & a.6=1 then do dfi="0001011" end if a.1=0 & a.2=0 & a.3=1 & a.4=1 & a.5=0 & a.6=0 then do dfi="0001100" end if a.1=0 & a.2=0 & a.3=1 & a.4=1 & a.5=0 & a.6=1 then do dfi="0001101" if a.1=0 & a.2=0 & a.3=1 & a.4=1 & a.5=1 & a.6=0 then do dfi="0001110" end if a.1=0 & a.2=0 & a.3=1 & a.4=1 & a.5=1 & a.6=1 then do dfi="0001111" end if a.1=0 & a.2=1 & a.3=0 & a.4=0 & a.5=0 & a.6=0 then do dfi="0010000" end if a.1=0 & a.2=1 & a.3=0 & a.4=0 & a.5=0 & a.6=1 then do dfi="0010001" end if a.1=0 & a.2=1 & a.3=0 & a.4=0 & a.5=1 & a.6=0 then do dfi="0010010" end if a.1=0 & a.2=1 & a.3=0 & a.4=0 & a.5=1 & a.6=1 then do dfi="0010011" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=0 & a.6=0 then do dfi="0010100" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=0 & a.6=1 then do dfi="0010101" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=1 & a.6=0 then do dfi="0010110" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=1 & a.6=1 then do dfi="0010111" end if a.1=0 & a.2=1 & a.3=1 & a.4=0 & a.5=0 & a.6=0 then do dfi="0011000" end if a.1=0 & a.2=1 & a.3=1 & a.4=0 & a.5=0 & a.6=1 then do dfi="0011001" end if a.1=0 & a.2=1 & a.3=1 & a.4=0 & a.5=1 & a.6=0 then do dfi="0011010" end if a.1=0 & a.2=1 & a.3=1 & a.4=0 & a.5=1 & a.6=1 then do dfi="0011011" end if a.1=0 & a.2=1 & a.3=1 & a.4=1 & a.5=0 & a.6=0 then do dfi="0011100" end if a.1=0 & a.2=1 & a.3=1 & a.4=1 & a.5=0 & a.6=1 then do dfi="0011101" end if a.1=0 & a.2=1 & a.3=1 & a.4=1 & a.5=1 & a.6=0 then do dfi="0011110" end if a.1=0 & a.2=1 & a.3=1 & a.4=1 & a.5=1 & a.6=1 then do dfi="0011111" end if a.1=1 & a.2=0 & a.3=0 & a.4=0 & a.5=0 & a.6=0 then do dfi="0100000" end if a.1=1 & a.2=0 & a.3=0 & a.4=0 & a.5=0 & a.6=1 then do dfi="0100001" end if a.1=1 & a.2=0 & a.3=0 & a.4=0 & a.5=1 & a.6=0 then do dfi="0100010" end if a.1=1 & a.2=0 & a.3=0 & a.4=0 & a.5=1 & a.6=1 then do dfi="0100011" end if a.1=1 & a.2=0 & a.3=0 & a.4=1 & a.5=0 & a.6=0 then do dfi="0100100" end if a.1=1 & a.2=0 & a.3=0 & a.4=1 & a.5=0 & a.6=1 then do dfi="0100101" end if a.1=1 & a.2=0 & a.3=0 & a.4=1 & a.5=1 & a.6=0 then do dfi="0100110" end if a.1=1 & a.2=0 & a.3=0 & a.4=1 & a.5=1 & a.6=1 then do dfi="0100111" end if a.1=1 & a.2=0 & a.3=1 & a.4=0 & a.5=0 & a.6=0 then do dfi="0101000" end if a.1=1 & a.2=0 & a.3=1 & a.4=0 & a.5=0 & a.6=1 then do dfi="0101001" end if a.1=1 & a.2=0 & a.3=1 & a.4=0 & a.5=1 & a.6=0 then do dfi="0101010" end if a.1=1 & a.2=0 & a.3=1 & a.4=0 & a.5=1 & a.6=1 then do dfi="0101011" end if a.1=1 & a.2=0 & a.3=1 & a.4=1 & a.5=0 & a.6=0 then do dfi="0101100" end if a.1=1 & a.2=0 & a.3=1 & a.4=1 & a.5=0 & a.6=1 then do dfi="0101101" if a.1=1 & a.2=0 & a.3=1 & a.4=1 & a.5=1 & a.6=0 then do dfi="0101110" end if a.1=1 & a.2=0 & a.3=1 & a.4=1 & a.5=1 & a.6=1 then do dfi="0101111" end if a.1=1 & a.2=1 & a.3=0 & a.4=0 & a.5=0 & a.6=0 then do dfi="0110000" end if a.1=1 & a.2=1 & a.3=0 & a.4=0 & a.5=0 & a.6=1 then do dfi="0110001" end if a.1=1 & a.2=1 & a.3=0 & a.4=0 & a.5=1 & a.6=0 then do dfi="0110010" end if a.1=1 & a.2=1 & a.3=0 & a.4=0 & a.5=1 & a.6=1 then do dfi="0110011" end if a.1=1 & a.2=1 & a.3=0 & a.4=1 & a.5=0 & a.6=0 then do dfi="0110100" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=0 & a.6=1 then do dfi="0110101" end if a.1=0 & a.2=1 & a.3=0 & a.4=1 & a.5=1 & a.6=0 then do dfi="0110110" end if a.1=1 & a.2=1 & a.3=0 & a.4=1 & a.5=1 & a.6=1 then do dfi="0110111" end if a.1=1 & a.2=1 & a.3=1 & a.4=0 & a.5=0 & a.6=0 then do dfi="0111000" end if a.1=1 & a.2=1 & a.3=1 & a.4=0 & a.5=0 & a.6=1 then do dfi="0111001" end if a.1=1 & a.2=1 & a.3=1 & a.4=0 & a.5=1 & a.6=0 then do dfi="0111010" end if a.1=1 & a.2=1 & a.3=1 & a.4=0 & a.5=1 & a.6=1 then do dfi="0111011" end if a.1=1 & a.2=1 & a.3=1 & a.4=1 & a.5=0 & a.6=0 then do dfi="0111100" end if a.1=1 & a.2=1 & a.3=1 & a.4=1 & a.5=0 & a.6=1 then do dfi="0111101" end if a.1=1 & a.2=1 & a.3=1 & a.4=1 & a.5=1 & a.6=0 then do dfi="0111110" end if a.1=1 & a.2=1 & a.3=1 & a.4=1 & a.5=1 & a.6=1 then do dfi="0111111" end end if a.1=0 & a.2=1 & a.3=1 & a.4=0 & a.5=0 & a.6=1 then do dfi="0011001" end end if a.7=0 & a.8=0 then do dfl="00" end if a.7=0 & a.8=1 then do dfl="01" end if a.7=1 & a.8=0 then do dfl="10" end if a.7=1 & a.8=1 then do dfl="11" end df="" df=dfi||dfl Angelhp=Angelhp||df end sjks=length(Angelhp) sjk=sjks sjk=sjk%8 sjgs=sjk*8 sjgs=sjgs+8 asq=sjgs-sjks if asq=0 then do as0="10000000" df=as0 Angelhp=Angelhp||df end if asq>0 then do asd=0 asq=asq-1 as0="1" df=as0 Angelhp=Angelhp||df do until asd=asq asd=asd+1 as0="0" df=as0 Angelhp=Angelhp||df end end sjkss=length(Angelhp) sjkssa=sjkss/8 qwer=sjksu-sjkssa say sjksu "before" say sjkssa "after" say qwer "Different" Hext=B2X(Angelhp) chart=X2C(Hext) file=.stream~new(usertimes) file~lineout(chart) file~close chordf~close say Time() pull exit