User talk:2A02:8084:EA2:5B00:3D8E:12BD:CA31:F314

ooRexx Rexx Program
ooRexx is distributed under Common Public License (CPL) v1.0. Object Rexx is an enhancement of classic Rexx; a powerful, full-featured programming language which has a human-oriented syntax. The Open Object Rexx interpreter allows you to write programs procedurally as well as in an object-oriented fashion. E.g. I write programs.

NUMERIC DIGITS 9999999 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 P=C2D(mychord)

sjg=length(mychord) sjg=sjg-1 sjgh=length(sjg) sjgh=sjgh-1 sjgsi=D2C(sjgh)

if sjg<10 then do say "We get the limit." pull exit end

sjig=D2C(sjg) A=0 D=1 do sd=1 to 250 do until q<=0 D=D*2 q=P-D end P=q+D D=D/2 D=D/2 S=D/2 h=P-D+S P=h end

arc=D2C(P) Compression=sjgsi||sjig||arc file=.stream~new(usertimes) file~lineout(Compression) file~close say Time pull exit