ZStandard:AxesOff:ClrDraw:FnOff :DispGraph
1→dim(⌊Z
"→Str2:"→Str3:"→Str4:"→Str5:"→Str6:"→Str7:"→Str8:"→Str9:"→Str1
0→A:1→B
Lbl 1
0→X
While not(X
getKey→X
End
If X=23 and not(A):Then
If length(Str1)>1:Then
sub(Str1,1,length(Str1)-1)→Str1
Else
If length(Str1)=1
"→Str1
End:End
If X=105:Then
0→X
If not(length(Str1
"Ans"→Str1
⌊Z(dim(⌊Z)
expr(Str1→C
C→⌊Z(dim(⌊Z)+1
Str1:Asm(prgmSTRWID):Ans→D
If imag(C:Then
Text(6B-6,D+15,real(C),"+",imag(C),"i
Else
Text(6B-6,D+15,real(C
End
If B≠10
B+1→B
Str8→Str9:Str7→Str8:Str6→Str7:Str5→Str6:Str4→Str5:Str3→Str4:Str2→Str3:Str1→Str2:"→Str1
Goto 1
End
If X=22 and A:Then
ClrDraw:AxesOn:ZStandard
Disp "
DelVar ⌊Z
DelVar Str1DelVar Str2DelVar Str3DelVar Str4DelVar Str5DelVar Str6DelVar Str7DelVar Str8DelVar Str9
Stop
End
If (X≥11 and X≤15) or (not(A) and ((X≥42 and X≤43) or X=22) or (X≥31 and X≤33) or AX=95 or X=44 or AX=51 or A(X≥72 and X≤74) or AX=102
Goto 1
If X=45:Then
ClrDraw
"→Str1
1→B
Goto 1
End
If X≥51:Then
sub("sin(cos(tan(^,()/log(789*ln(456- 123+ 0.– sin(cos(tan(π√({}^(uvw[^(L₄L₅L₆] L₁L₂L₃ Ans",(X-25-5int(.1X))+A29,1
If not(length(Str1:Then
If inString("^/*-+",Ans):Then
"Ans"+Ans→Str1
Else
Ans→Str1
End
Else
Str1+Ans→Str1
If inString("^/*-+",sub(Str1,length(Str1),1))inString("^/*-+sin(cos(tan(sin(cos(tan(",sub(Str1,length(Str1)-1,1
Then
sub(Str1,1,length(Str1)-1→Str1
Goto 1
End
End
End
If not(A)X=41:Then
StorePic 0
"MATH,▶Frac,▶Dec,,√(,√,abs(,round(,!,angle(→Str0
Goto M
End
If AX=41:Then
StorePic 0
"TEST,=,≠,>,≥,<,≤, and , or , xor ,not(→Str0
Goto M
End
Lbl 2
If X=21:Then
1→A
Else
0→A
End
If length(Str1:Then
Text(6B-6,1,Str1+" "
End
Goto 1
End
End
Lbl M
DelVar ⌊Q:ZStandard:84→Xmin:72→Ymax:ZInteger
inString(Str0,",
Text(–1,1,9,sub(Str0,1,Ans-1
Line(9,53,6Ans+1,53
For(O,1,10^(9
inString(Str0,",",Ans
If Ans:Then
Ans+1→⌊Q(O
Else
2+length(Str0→⌊Q(O
^(9→O
End
End
dim(⌊Q)-1→Q
For(O,1,Ans(Ans<7
Text(8O+3,15,sub(Str0,⌊Q(O),⌊Q(O+1)-1-⌊Q(O
End
If Ans>6:Then
max(3,30-Ans→T
52→S
Line(2,4,2,Ans
Line(6,4,6,Ans
End
DelVar PDelVar RQ>6→U:1→O
Repeat R=105
If Ans:Then
Text(8O+3,9,"
O+(Ans=34)-(Ans=25→O
If not(P+Ans:Then
max(0,Q-6→P
min(Q,6→O
Else
If Ans-1=min(Q,6) and P=max(0,Q-6:Then
DelVar P1→O
Else
min(abs(Q-6),max(0,P-not(Ans)+(Ans=7→P
O-(O=7)+not(O)-(O>Q→O
End:End
Text(8Ans+3,9,">
If P≠U:Then
"
Text(–1,11,16,Ans
Text(11,15,sub(Str0,⌊Q(1+P),⌊Q(2+P)-1-⌊Q(1+P
Text(–1,19,16,Ans
Text(19,15,sub(Str0,⌊Q(2+P),⌊Q(3+P)-1-⌊Q(2+P
Text(–1,27,16,Ans
Text(27,15,sub(Str0,⌊Q(3+P),⌊Q(4+P)-1-⌊Q(3+P
Text(–1,35,16,Ans
Text(35,15,sub(Str0,⌊Q(4+P),⌊Q(5+P)-1-⌊Q(4+P
Text(–1,43,16,Ans
Text(43,15,sub(Str0,⌊Q(5+P),⌊Q(6+P)-1-⌊Q(5+P
Text(–1,51,16,Ans
Text(51,15,sub(Str0,⌊Q(6+P),⌊Q(7+P)-1-⌊Q(6+P
51-P(46-T)(Q-6→S
Line(3,4,3,52
Line(4,4,4,52
Line(5,4,5,52
Ans-T
Line(3,S,3,Ans,0
Line(4,S,4,Ans,0
Line(5,S,5,Ans,0
If Q-P≤6:Then
Pt-Off(2,2
Pt-Off(6,2
Pt-Off(4,1,3
Else
Pt-On(2,2
Pt-On(6,2
Pt-On(4,1,3
Pt-Off(4,2,3
End
If P:Then
Pt-On(4,55,3
Pt-Off(4,54,3
Pxl-On(8,2
Pxl-On(8,6
Else
Text(–1,2,1,"
End
P→U
End
End
getKey→R
End
O+P
DelVar ⌊QDelVar ODelVar PDelVar QDelVar RDelVar SDelVar TDelVar UClrDraw
sub(Str0,2Ans+inString(Str0,",",1)-1,1
If length(Str1)
Str1+Ans→Str1
If not(length(Str1)) and inString("FracDec√!=≠>≥<≤ and or xor ",Ans)>0
"Ans"+Ans→Str1
If not(length(Str1
Ans→Str1
RecallPic 0
DelVar Pic0
Goto 2
most of the broken characters should be stuff like x√ and stuff like that, it shouldnt affect the program, its just in a string