Programming the INT and FRAC functions

[Dieter]

Reading this thread I came across TI's SR-52/SR-56 brochure. There is a feature list, showing that the SR-56 included some functions that were not yet available on the (otherwise more capable) SR-52. For instance the respective table says that the SR-52 did not feature functions for the integer and fractional part of a number – commands that today are considered common on a decent programmable calculator. However, TI says that while these functions are missing, they can be programmed.

So here is my question for the community: how would you program an INT or FRAC function on a "classic" calculator of the Seventies. For instance, imagine the HP67/97 or the 19C/29C would not offer such functions. How would you code them on these calculators – or on a SR-52? Of course as short, fast and elegant as possible. ;-)

Dieter