-10->N
1000->F
ZStandard
ZSquare
5->C
a+bi
Lbl 1
ClrHome
Menu("GRAPH 3D","GRAPH FUNCTION",2,"WINDOW",3,"ROTATE",4,"MATH",5,"QUIT",6)

Lbl 2
Input "INPUT FUNCTION:",Str1
String>Equ(Str1, Y1)
FnOff 1
AxesOff
Lbl 8
ClrDraw
For(P,L,R,C)
For(O,L,R,C)
If not(O=R)
Then
P->A
O+C->S
prgmLINE3D
End
If not(P=R)
Then
P+C->A
O->S
prgmLINE3D
End
End
End
0->G
While not(G=105)
getKey->G
If G=24
Then
J-pi/4->J
Goto 8
End
If G=26
Then
J+pi/4->J
Goto 8
End
If G=34
Then
I-pi/4->I
Goto 8
End
If G=25
Then
I+pi/4->I
Goto 8
End
End
Goto 1
Lbl 3
Input "RIGHT:",R
Input "LEFT:",L
Input "TOP:",T
Input "BOTTOM:",B
Input "RESOLUTION:",C
L->Xmin
R->Xmax
B->Ymin
T->Ymax
ZSquare
Goto 1

Lbl 4
Input "X:",I
Input "Y:",J
Input "Z:",K
piI/180->I
piJ/180->J
piK/180->K
Goto 1

Lbl 5
Menu("MATH","BACK",7)

Lbl 7
Goto 1

Lbl 6
Real