*NAME Calculator RPN % M.FOWERAKER (4423) V1.5 19/9/91 :@%=&100090F "(S%=STACK MAX 7 M%=MEMS MAX 20 C2S%=7:X(S%):M%=20:M(M%):f%=1:a=/180:a$="Deg":X$="":Z$="":F%=9 <c$=(0):E$=(13):D$=(127) Flr$=(1)+(240)+(1)+(241) Pud$=(1)+(243)+(1)+(242) Z :d31,0)"[+ ]- ;x '/ S+- Xx/y I1/x Yy^x pI e Clr =. \E" ;n31,1)lr$;"lastX ";ud$;"stack Fnct Mem iNT fRAC qUIT"; "xmd:20,0)a$;:20,1)"sf";F%; TNF :inp:  inp f%=1ps:f%=0 pe X$= X$>"/"X$<":"nr: X$="-"X$="."X$="E"nr: X$="="X$=".":nr: X$="\"X$="E":nr: X$=D$del: f%=1 X$=c$curs: X$=E$ent: X$="C"clr: "X$="["df("+"): ,X$="]"df("-"): 6X$="'"df("*"): @X$=""df("/"): JX$="Y"df("^"): TX$="S"sf("-1*"): ^X$="I"sf("1/"): %hX$="X"T=X(1):X(1)=X(2):X(2)=T: rX$="F"fn:30,2)(50);: $|X$="M"mem:md:30,2)(50);: X$="p"su:X(1)=: X$="e"su:X(1)=(1): X$="i"int: X$="f"frc: -X$="q""Type PROCRESTART to continue": f%=0  curs c= c=255su: c=254sd: c=253X(0)=X(1): su X(1)=X(0)  nr &Z$=Z$+X$ 0 :ent Dsu NZ$<>""X(1)=(Z$)X(1)=X(2) XX(0)=X(1) bZ$="" l vdel Z$=Z$,(Z$)-1)  so s%=1(S%-1):X(s%)=X(s%+1):  su T=X(S%) #s%=(S%-1)1-1:X(s%+1)=X(s%): X(1)=T  sd T=X(1) s%=1(S%-1):X(s%)=X(s%+1): X(S%)=T   ps  s%=1S%:0,(7-s%))X(s%): *15,6)X(0) 4 >pe &H0,0)X$;:0,7)(16);:0,7)Z$;: Rclr \Z$=""so: fZ$="" p zdf(O$) 27,5)O$;(2); f%=1 Z$<>""ent X(0)=X(1) O$="X(2)"+O$+"X(1)" X(2)=(O$) so  fn <31,2)"Mode DR sf : (Arc) Sin Cos Tan : (Inv) Log Nlog" X$= X$="M"mo: /S$="SIN":C$="COS":T$="TAN":L$="LOG":N$="LN" X$="A"X$="I"fni T="SCTLN",X$):T=0 O$=X$+"$":O$=(O$):sf(O$) $ .fni 831,2)"Arc/Inv ";:X$= 2BS$="ASN":C$="ACS":T$="ATN":L$="10^":N$="EXP": Lsf(O$) VZ$<>""ent `27,5)O$;(1); jt1=1:t2=1:a%=(O$) ta%=65t1=1/a ~a%=67a%=83a%=84t2=a %O$="t1*"+O$+"(X(1)*t2)":X(0)=X(1) X(1)=(O$)  mo .30,2)"Mode Deg Rad 1:9 Sig Figs ";(22); X$= X$="R"a=1:a$="Rad" X$="D"a=/180:a$="Deg" AX$>"0"X$<":"F%=(X$):@%=&100000F+(F%*&100):20,1)"sf";F%; 20,0)a$  md t%=5:h%=30:v%=2 s%=1M% h%,s%+v%)M(s%); t%=t%-1 (t%=0t%=5:v%=v%-5:h%=h%+15 2 < Fmem .P31,2)"Mem:- Rec Sto Exch P+ M- Tx D/"; ZZ$<>""ent dX$= !nX$="R":mnr:X(S%)=M(T):su: xX$="S":mnr:M(T)=X(1): !X$="P":mnr:M(T)=M(T)+X(1): !X$="M":mnr:M(T)=M(T)-X(1): !X$="T":mnr:M(T)=M(T)*X(1): !X$="D":mnr:M(T)=M(T)/X(1): 0X$="E":mnr:M(0)=M(T):M(T)=X(1):X(1)=M(0):  mnr *:31,2)X$:32,2)" Nr "T:T>=1T<=M%  int Z$<>""ent *X(0)=X(1):T=(X(1)):X(1)=T*(X(1)*T): frc int:X(1)=X(0)-X(1):  RESTART 30,2)"*ERROR* ";: "X$= ,30,2)(35); 6tB@ @ JRESTART Tf%=1:DZ@ ^