[Info-vax] Kednos PL/I

[cao...@pitbulluk.org]

> On Wednesday, September 13, 2023 at 9:01:18 AM UTC+1, Single Stage to Orbit wrote: 
> > On Tue, 2023-09-12 at 20:18 -0400, Arne Vajhøj wrote: 
> > > https://kednos.com/ says: 
> > > 
> > > <quote> 
> > > After many years supplying PL/I compilers to OpenVMS and Tru64 UNIX 
> > > users around the world, from October 2016, Kednos will cease trading. 
> > > The PL/I compilers, run-time libraries and integration tools will no 
> > > longer be updated or supported by Kednos. Licenses for commercial 
> > > purposes can still be obtained on an "as is" basis 
> > > </quote> 
> > > 
> > > and https://kednos.com/kednos/Hobbyist still exist. 
> > > 
> > > But hobbyist license request fails. 
> > if they are not doing anything with these, they should release it all. 
> > -- 
> > Tactical Nuclear Kittens

For example:

randomise: procedure;
   declare for$secnds entry(float binary(24)) returns (float binary(24));
   declare time float binary(24);
   declare seed fixed binary(31) static internal initial(999);
   %include mth$random;
   time = for$secnds(0e0);
   seed = time;
   return;
getseed: entry returns(fixed binary(31));
   return(seed);
rnd: entry returns(float binary(24));
   return(mth$random(seed));
rndrange: entry (a,b) returns(fixed binary(31));
   declare (a,b) fixed binary(31);
   declare (af,bf) float binary(24);
   af=float(a,24); bf=float(b,24);
   return (fixed(af + (bf-af+1.0)*mth$random(seed),31));
end randomise;

K