\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=ThreeD
\FILE=THREED.85P
:ClLCD
:ClDrw
:Input "x Step: ",C
:Input "y Step: ",D
:Input "y Adjustment: ",S
:Input "y Ticks: ",T
:InpST "Equation: z=",Qu
:\St>Eq\(Qu,Q)
:DrawF x
:(round((S/T)*xMin,0))/(S/T)\->\N
:(round((S/T)*xMax,0))/(S/T)\->\O
:For(L,N,O,T/S)
:Line(L,L,L,L+2*\Delta-y\)
:End
:For(K,xMin,xMax,D*\Delta-x\)
:K*S\->\y
:If y==0
:1\E\\(-)\499\->\y
:xMin-K\->\x
:If x==0
:1\E\\(-)\499\->\x
:Q\->\z
:z\->\Z
:For(x,xMin+\Delta-x\-K,xMax-K,C*\Delta-x\)
:If x==0
:1\E\\(-)\499\->\x
:y-S*D*\Delta-x\\->\y
:Q\->\V
:y+S*D*\Delta-x\\->\y
:Q\->\z
:If imag z==0 and imag Z==0
:Line(x-C*\Delta-x\+K,Z+K,x+K,z+K)
:If imag z==0 and imag V==0
:Line(x+K-C*\Delta-x\,V+K-D*\Delta-x\,x+K,z+K)
:z\->\Z
:End
:End
\STOP85\