If you want a z=f(x,y) equation than just change the
for x1=1 to len(fx$)
temp$=mid$(fx$,x1)
if temp$="x" then fxs$(x1)=str$(x#)
if temp$="y" then fxs$(x1)=str$(y#)
if temp$="z" then fxs$(x1)=str$(z#)
if (temp$<>"x" or temp$<>"y" or temp$<>"z") then fxs$(x1)=temp$
if temp$="e" then fxs$(x1)="2.7182"
next x1
to
for x1=1 to len(fx$)
temp$=mid$(fx$,x1)
if temp$="x" then fxs$(x1)=str$(x#)
if temp$="y" then fxs$(x1)=str$(y#)
if (temp$<>"x" or temp$<>"y") then fxs$(x1)=temp$
if temp$="e" then fxs$(x1)="2.7182"
next x1
and just change the name of the function to fxyeval#(fx$,x#,y#)