choose font problem

[seane@pro-scat.cts.com (Sean Eller)]

Hi, I've got a programming problem here.  In a program I'm writting, my
GetFont routine is not working under sys6 and I was wondering if there is
some other entry to choosefont that I'm missing, like in an update
somewhere.  The routine works 100% fine under sys5.0.4 but freezes under
sys6.  Here's the code:
GetFont anop
        pha
        pha
        pushlong #0
        pushlong #0
        _ChooseFont
        pulllong NewFontID
        pushlong NewFontID
        pushword #0
        _InstallFont
        rts

Like I said, it works fine under a lower OS but not sys6.  The macros I
used are from Orca, so I'm assuming there have been updated macros and
that's my only problem.  I don't have Orca 2.0 if the changes have been
made for sys6 in that release.  Can anyone give me new entry points or tell
me what's wrong so I can change my macs.  Thanks...
Sean