mixed fraction program for hp 28s

[Rafa]

Hello,

i found this program some time ago that gives a mixed fraction on hp 28s. After keying in the program it returned a syntax error. does anyone know what might be wrong with it, or better, have a working program to share? here's the malfunctioning one i've tried:

"The following is the one that gives output like '3+4/5' for 3.8
<< -> a
<< a IP ->NUM ->STR
IF a ->NUM FP
THEN "+" + a FP FRAC O->S +
END S->N
>>
>>

cheers!