There's a pseudo-intrinsic INEXT' and EXTIN' (includes the trailing pic).
One of the old "greenies" gives all the gory details (#6 I think).

We even manipulated HP-Reals in RPG-II using these Intrinsics.

These intrinsics are actully part of the Fortran compiler, but all
subroutines of all languages are available on all machines regardless of
what language you opted for.

In Business BASIC it's a simple case of coding two PACKFMT statements - one
with REALV clause and one without:


100 ! I'm really rusty, so bear with me
110 DIM R$[8],E$[8], REAL N
120 UNPACK USING R_FMT;R$
130 PACK USING E_FMT;E$
140 R_FMT: PACKFMT REALV N
150 E_FMT: PACKFMT N

or something like that...


"Wayne R. Boyer" <[log in to unmask]> wrote in message
news:a4u96e0dnu@enews1.newsguy.com...
> The old classic type floating point data types are actually an interesting
> conversion issue.  For anyone who has these data types in an Image
database,
> conversion to a non-HP-3000 platform would require some method of
converting
> the data to possibly the IEEE floating point data type while on the
HP-3000
> platform.
>
> Off the top of my head I don't know of any handy intrinsic that does a
type
> conversion to/from both floating point data types.  Is there such a
creature?
>
> Please correct me if I am wrong, but I think that all MANMAN floating
point
> database fields are still the old "R" type.  There are a lot of those.
This
> is significant point for anyone converting away from MANMAN.
>
> Wayne Boyer
> Cal-Logic
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *