(Comp.sys.handhelds)
Item: 362 by billw at hpcvra.CV.HP.COM
Author: William C Wickes
  Subj: Polynomial Coefficients PCOEF
  Date: Wed May 16 1990 11:53 

In a response to a previous note, I listed the HP 48SX version of the PCOEF
program from the HP 28S Mathematical Applications Book.  Unfortunately,
both tries to list the program were incorrect, the first because
the SYSEVAL's were wrong, and the second because I left in a comment
word "COERCE" that should have been deleted.  Anyway, here is the
correct version:

<<
   3   DUPN   TYPE   SWAP   TYPE   ROT
   TYPE   3   ->LIST   { 0   6   9 }
   IF   ==
   THEN   DUP   1   +   ->   n
      <<   #18CEAh   SYSEVAL
      SWAP
         #549CCh   SYSEVAL
         #74D0h   SYSEVAL
         #59373h   SYSEVAL
         DROP   #7497h   SYSEVAL
         1   n
         FOR   m   m   ROLL   COLCT
         NEXT
         n   ->LIST
      >>
   END
>>

195 bytes, checksum #6548h (for the program object).

This program expects to find an algebraic expression in level 3, a name
in level 2, and a number in level 1, where the expression is taken
as a polynomial of order "number" in the variable "name".  It returns
a list of the polynomial coefficients in order of decreasing power.

I apologize for the mixups.