Weird question, what program is this?

[DA74254]

Hello,
I have a weird question..

Going through my programs on my DM 32, I found a program I made some time ago, but I really don't remember what it is for. If I recall, it has something with calculations on black holes (probably decay time). Anyone who can shed light on this and if so, direct med to a webpage where I (must have) found this program?

Code:


LBL B
  0
  STO L
  STO M
  INPUT L
  x=0?
  GTO C
  31
  10\powx;
  \mul;
  3
  \powx;\sqrt;y
  STO M
  VIEW M
  LBL C
  INPUT M
  x=0?
  GTO B
  3
  y\powx;
  31
  10\powx;
  \div;
  STO L
  VIEW L
  RTN

[DA74254]

Nevermind, found it.
It's on p.35 in "TIPS AND PROGRAMS FOR THE HP-325" by W.A.C. Mier-Jedrzejowicz.

[rprosperi]

I'll be sure to tell Wlodek that his book is still happily pleasing people decades later....

[BruceH]

I find it amusingly ironic that information about a program related to black holes has been retrieved from a (metaphorical) black hole!
:-)