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