Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!sdd.hp.com!hp-pcd!hpcvra.cv.hp.com!rnews!hpcvbbs!akcs.tasmith
From: akcs.tasmith@hpcvbbs.UUCP (Ted A Smith)
Newsgroups: comp.sys.handhelds
Subject: Re: HP48SX APPLY function
Message-ID: <27c32937:2116.3comp.sys.handhelds;1@hpcvbbs.UUCP>
Date: 21 Feb 91 02:40:06 GMT
References: <88635@tut.cis.ohio-state.edu> <5076@umbc3.UMBC.EDU>
Lines: 24

An example of usage of APPLY was asked for.  Here is the example
from the HP48 Programmers Reference (used without permission):

%%HP: T(3)A(R)F(.);
\<< \-> arg
  \<<
    CASE -3 FS?
      THEN arg ASIN
      END { 6 7 9 }
arg TYPE POS
      THEN 'APPLY(
ASin,arg)' EVAL
      END 'arg==1'
      THEN '\pi/2'
      END 'arg==-1'
      THEN '-\pi/2'
      END arg ASIN
    END
  \>>
\>>

Sto this into 'ASin', then ASin will 'know' about the two
special cases of 1 and -1...

Hope this helps