Wirt writes:

>   829     <<********************************************>>
>   830     <<  CPU TYPE DETERMINATION >>
>   831     <<                         >>
>   832     <<  Returned Value =       >>
...
>   843     <<       8 -> XE/LX/GX     >>
>   844     <<      16 -> 9xx          >>

My HP-UX version returns 17 for "HP 9000".  (A made up number,
but I mention it because it would be nice to be consistent across
multiple vendors)

>   854         MOVE TEXT:="PRODUCED BY WIRT ATMAR AND DAWSON SCHAFFER";
>   855         PNAME(3):=TEXT(30);
>   856         PNAME(7):=TEXT(8);
...

I've used the scrambled order setting up of PNAME for years,
but I never thought to combine it with a useful (and misleading)
operation like line 854 above!

--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html