"R₁,H₁,V₁,R,H,V,dR/dT,dH/dT,dV/dT→Str0
"D/A-E/B,ABDE,1/3πA²B-C,ABC,1/3πD²E-F,DEF,A²πE²H/B²-I,ABEHI,BπD²G/A-I,ABDGI→Str9
Xmin+ᴇ2∆X<Xmax→|N
StoreGDB GDB1
ClrDraw:AxesOff:FnOff 
PlotsOff :GridOff
Text(0,0,"2ND-EDIT | ENTER-RESET
{1→ʟC
inString(Str0,",
Repeat not(Ans
Ans+1→ʟC(1+dim(ʟC
inString(Str0,",",Ans+1
End
2+length(Str0→ʟC(1+dim(ʟC
dim(ʟC)-1→Q
For(θ,1,Ans
Text(θ6(|N+1),4(|N+1),sub(Str0,ʟC(θ),ʟC(θ+1)-1-ʟC(θ
End
6(|N+1→X
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar IDelVar ʟBDelVar ʟA
9→dim(ʟA
9→dim(ʟB
{1→ʟD
inString(Str9,",
Repeat not(Ans
Ans+1→ʟD(1+dim(ʟD
inString(Str9,",",Ans+1
End
2+length(Str9→ʟD(1+dim(ʟD
Repeat max(K={45
Text(X,0,"►
Repeat Ans:getKey→K:End
Text(X,0,"   "
X+(6|N+6)((Ans=34 and X<6Q(|N+1))-(Ans=25 and X>6(|N+1→X
If max(K={21,105:Then
0→J
X/(6|N+6
If K=21 and (ʟB(Ans) or not(ʟA(Ans:Then
Input "VALUE:",J
X/(6|N+6
1→ʟB(Ans
End
If K=105:Fill(0,ʟB
X/(6|N+6→K
If K=1:J→A
If K=2:J→B
If K=3:J→C
If K=4:J→D
If K=5:J→E
If K=6:J→F
If K=7:J→G
If K=8:J→H
If K=9:J→I
If not(ʟB(1:0→A
If not(ʟB(2:0→B
If not(ʟB(3:0→C
If not(ʟB(4:0→D
If not(ʟB(5:0→E
If not(ʟB(6:0→F
If not(ʟB(7:0→G
If not(ʟB(8:0→H
If not(ʟB(9:0→I
For(θ,1,dim(ʟD)-1,2
sub(Str9,ʟD(θ),ʟD(θ+1)-1-ʟD(θ→Str8
sub(Str9,ʟD(θ+1),ʟD(θ+2)-1-ʟD(θ+1→Str7
seq(inString(Str7,sub("ABCDEFGHI",θ,1)),θ,1,9→ʟE
If 1=sum(not(seq(expr(sub(Str7,θ,1)),θ,1,length(Str7:Then
expr("solve("+Str8+","+sub(Str7,max(seq(θnot(expr(sub(Str7,θ,1))),θ,1,length(Str7))),1)+",{ᴇ⁻9,ᴇ9
If ʟE(1) and not(A:Ans→A
If ʟE(2) and not(B:Ans→B
If ʟE(3) and not(C:Ans→C
If ʟE(4) and not(D:Ans→D
If ʟE(5) and not(E:Ans→E
If ʟE(6) and not(F:Ans→F
If ʟE(7) and not(G:Ans→G
If ʟE(8) and not(H:Ans→H
If ʟE(9) and not(I:Ans→I
End
End
{A,B,C,D,E,F,G,H,I→A
For(θ,1,Q
If not(ʟA(θ:Text(θ6(|N+1),4(|N+1)max(DeltaList(ʟC)),"                                                "
If ʟA(θ:Text(θ6(|N+1),4(|N+1)max(DeltaList(ʟC)),sub(" = ",1,2not(ʟB(θ))+1),ʟA(θ),"                                "
End
End
End
ClrDraw
RecallGDB GDB1