When editing, creating or deleting a note, it returns, but I don't know how. Have no time yet to look at it. Here is the code:
Code: :DCS6
"000000003FFC20042CC42AA42CA42AA42CA4200427F420042FF420043FFC0000"
CoordOff
GridOff
AxesOff
0->Xmin
1->DeltaX
0->Ymin
1->DeltaY
SetUpEditor TIBN
If not(dim(|LTIBN
Then
" ->Str9
6->dim(|LTIBN
End
UnArchive Str9
33->Z
While Z=33 or (A=12 and B=31 and K!=22
3->D
{2->|LTIBN2
While D>2
2+inString(Str9,"[xhat]T",D->D
augment(|LTIBN2,{Ans-2->|LTIBN2
End
DelVar ZClrDraw
Horizontal 52
Horizontal 51
Text(~1,1,1,"BasicNote
StorePic 1
Text(~1,1,32,"Note
RecallPic 1
Line(35,4,35,50
Line(94,4,94,50
Line(0,4,0,50
For(A,51,3,~8
Horizontal A
End
Text(12,2,"NEW NOTE
Text(20,2,"DEL ALL
Text(28,2,"SEARCH
1->B
DelVar CFor(A,1,6
If |LTIBN(6C+A
Then
Text(8A+4,41,sub(Str9,|LTIBN2(6C+A)+2,inString(Str9,"[xhat]N",B)-2-|LTIBN2(6C+A
2+inString(Str9,"[xhat]E",B->B
End
End
12->A
31->B
Repeat K=22 or Z=33 or (B=87 and |LTIBN(6C+A/4-F)) or (A=12 and B=31
Repeat A=12 and B=31 or K=22 or Z=33 or B=87 and |LTIBN(6C+A/4-F
DelVar PRepeat sum(K={22,105
Text(3,87,C+1
getKey->K
Text(A,B,"+
If K
Then
Text(A,B,"
If K=25 and A=12 or K=34 and A=52
Then
If K=25 or K=34 and |LTIBN(6C+7-6(K=25
Then
4(K=34)+60(K=25->A
max(0,min(int(dim(|LTIBN2)/6),C+sum(DeltaList(K={25,34->C
1->D
For(M,1,6C
2+inString(Str9,"[xhat]E",D->D
End
For(M,1,6
Text(8M+4,41,"
If |LTIBN(6C+M
Then
Text(8M+4,41,sub(Str9,|LTIBN2(6C+M)+2,inString(Str9,"[xhat]N",D)-2-|LTIBN2(6C+M
2+inString(Str9,"[xhat]E",D->D
End
End
End
End
max(12,min(28+24(B=87),A+8sum(DeltaList(K={25,34->A
max(31,min(87,B+56sum(DeltaList(K={24,26->B
End
1+int(A/8->F
End
If K=105
Then
StorePic 1
If B=31 or (B=87 and |LTIBN(6C+A/4-F
Then
If A=20 and B=31
Then
For(I,12,58,8
Text(~1,I,0,"
End
End
If B=31
Then
If A=12
Then
1->E
If 1<dim(|LTIBN
Then
DelVar I
Repeat not(|LTIBN(I
I+1->I
If |LTIBN(I
2+inString(Str9,"[xhat]T",E->E
End
End
Str9+"[xhat]T->Str9
1->I
Repeat not(|LTIBN(I
If |LTIBN(I
I+1->I
End
1->|LTIBN(I
If not(fPart(I/6
dim(|LTIBN)+6->dim(|LTIBN
1->P
End
If A=20
Then
Text(~1,13,1,"DEL ALL NOTES?
Text(~1,23,13,"CANCEL
Text(~1,33,13,"DELETE
23->Z
Repeat K=105
getKey->K
Text(~1,Z,1,">
If K
Then
Text(~1,Z,1,"
Z+10(K=34)(Z=23)-10(K=25)(Z=33->Z
End
End
If Z=33
Then
" ->Str9
Fill(0,|LTIBN
Text(~1,43,1,"DELETED
rand(30
End
If Z=23
Then
ClrDraw
RecallPic 1
End
End
End
DelVar K
If P or B=87
Then
1->D
If |LTIBN(2
Then
For(E,1,6C+A/4-F-1
2+inString(Str9,"[xhat]E",D->D
End
End
ClrDraw
If not(P
Text(0,1,sub(Str9,|LTIBN2(6C+A/4-F)+2,inString(Str9,"[xhat]N",D)-2-|LTIBN2(6C+A/4-F
Horizontal 55
// EDITOR //
DelVar XDelVar RDelVar S1->C
Text(0,69,C
Text(0,77,"/99
Line(89,55,89,62
Line(67,55,67,62
DelVar B8->A
If P
Then
" ->Str7
" ->Str6
Lbl TT
Repeat length(Str6)>1 and (K=34 or K=105
If 1=length(Str6
Text(0,1,"ENTER TITLE
Repeat Ans
getKey->K
End
Ans-20-5int(.1Ans
If 12>length(Str6) and 0<Ans and Ans<29 and K!=44 and K!=45
Then
If 1=length(Str6
Text(0,1,"
Str6+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",Ans,1->Str6
End
If K=23 and length(Str6)>1
Then
sub(Str6,1,length(Str6)-1->Str6
Text(0,1,Str6+"
End
If K=45
Then
" ->Str6
Text(0,1,"
End
Text(0,1,Str6
End
augment(|LTIBN2,{length(Str9)-1->|LTIBN2
End
If P
Str9+sub(Str6,2,length(Str6)-1)+"[xhat]N [xhat]E->Str9
If not(P
sub(Str9,inString(Str9,"[xhat]N",D)+2,inString(Str9,"[xhat]E",D)-(2+inString(Str9,"[xhat]N",D->Str7
DelVar P
Repeat K=22 or K=11
Repeat Ans
Line(B,61-A,B,57-A
getKey->K
Line(B,61-A,B,57-A,0
End
If Ans=21 or Ans=31
Then
If Ans=21
Then
DelVar Rnot(S->S
If S
Then
Text(0,91,"2
Else
Text(0,91,"
End
End
If Ans=31
Then
If not(R
3->R
DelVar SR-1->R
If R
Then
Text(0,91,"A
If R<2
Text(0,91,"a
Else
Text(0,91,"
End
End
End
If X and (not(S) or (S and not(sum(K={24,25,26,34
Then
For(theta,48,0,~6
Line(0,theta,94,theta,0
End
DelVar XDelVar MEnd
If R
sub("abc defghijklMnopqrstuvWxyztheta' :?ABC DEFGHIJKLMNOPQRSTUVWXYZtheta' :?",1+34(R-1),34
If S
" |E{}[e] [ ] [i]
If not(R) and not(S
"= ^ ,()/ 789plotdot 456-\>123+ 0.~
If K>=41 and K<=104
Then
If " "!=sub(Ans,K-20-5int(.1K),1) or (K=102 and R
Then
sub(Ans,K-20-5int(.1K),1->Str8
If B>89 and A<54
DelVar BA+6->A
Text(A,B+1,"
Text(A,B+1,Str8
End
If R=1 and inString("WM",Str8
Then
Line(B+1,61-A,B+3,61-A,0
Pt-Off(B+2,60-A
sub("wm",inString("WM",Str8),1->Str8
End
23int(A/6-1)+B/4+2->theta
If Ans=length(Str7
Then
Str7+Str8->Str7
Else
sub(Str7,1,theta)+Str8
If theta+1<length(Str7
Ans+sub(Str7,theta+2,length(Str7)-theta-1
Ans->Str7
End
B+4->B
End
End
If sum(K={24,25,26,34
Then
If A>8 and K=24 and not(B
Then
92->B
A-6->A
End
If not(S
Then
B+4((K=26)(B<92)(length(Str7)>23int(A/6-1)+B/4+2)-(K=24)(B>0->B
A+6((K=34)(A<54)(length(Str7)>=23int(A/6)+1)-(K=25)(A>8->A
End
If B=92 and A<54 and K=26
DelVar BA+6->A
If K=34 and A<54 and 23int(A/6-(length(Str7)>23int(A/6-2)+(B-4(K-25))/4+1))+(B-4(K-25))/4+2>length(Str7
Then
If S
Line(B,62-A,94,62-A,M=sum(K={26,34
4((length(Str7)-2)-23int(length(Str7)/23->B
If S
Then
23int(A/6-1)+Ans/4+2->V
Line(0,56-A,B,56-A,M=sum(K={26,34
End
End
If S
Then
If (length(Str7)>23int(A/6-1)+B/4+2 and K=26) or (K=24 and (B and A=8) or (B!=92 and A=50) or A>8 and A<54
Then
If not(X
Then
sum(K={26,34->M
23int(A/6-1)+B/4+2->X
End
Line(B,62-A-6,B+4((K=26)-(K=24)),62-A-6,M=sum(K={26,34
B+4(K-25->B
23int(A/6-1)+Ans/4+2->V
If V=X
DelVar XDelVar M
End
End
End
If K=14 and X!=V
Then
If X>V
V+.01X
If V>X
X+.01V
sub(Str9,1,1)+sub(Str7,iPart(Ans)+1,100fPart(Ans)-iPart(Ans))+sub(Str9,2,length(Str9)-1->Str9
End
If sum(K={15,23
Then
If K=23
Then
23int(A/6)+B/4-21->theta
If not(X) and Ans!=length(Str7) or (X
Then
If not(X
Then
If Ans+1<length(Str7
sub(Str7,1,Ans)+sub(Str7,Ans+2,length(Str7)-Ans-1
If theta+1=length(Str7
sub(Str7,1,theta
End
If X
Then
If X>V
V+.01X->theta
If V>X
X+.01V->theta
If 100fPart(Ans)<length(Str7
sub(Str7,1,iPart(Ans))+sub(Str7,100fPart(Ans)+1,length(Str7)-100fPart(Ans
If 100fPart(theta)=length(Str7
sub(Str7,1,iPart(theta
DelVar XDelVar M
End
Ans->Str7
End
End
If K=15 and "[xhat]T"!=sub(Str9,2,2
Then
sub(Str7,1,23int(A/6)+B/4-21)+sub(Str9,2,inString(Str9,"[xhat]T")-2
If 23int(A/6)+B/4-21<length(Str7
Ans+sub(Str7,23int(A/6)+B/4-20,abs(23int(A/6)+B/4-21-length(Str7
Ans->Str7
End
For(G,int(A/6),1+int((length(Str7)-1)/23
Text(6G+2,(B+1)(G=int(A/6))+(G>int(A/6)),"
If length(Str7)>2
Then
23->theta
If length(Str7)<23G
length(Str7)-23(G-1->theta
For(O,(B+1)(G=int(A/6))+(G>int(A/6)),8+int(3.87Ans),4
If theta=23 or 23(G-1)+(O-1)/4<length(Str7
sub(Str7,23G-20-2(O>5)+int(O/4)(23G-20-2(O>5)+int(O/4)<=length(Str7)),1
If Ans="
"
If O>5 and not(inString("wm",Ans)) and (theta=23 or 23(G-1)+(O-1)/4<length(Str7
Text(6G+2,O-8,Ans
If inString("wm",Ans
Then
Text(6G+2,O-8,sub("WM",inString("wm",Ans),1
Line(O,61-(6G+2),O+2,61-(6G+2),0
Pt-Off(O+1,60-(6G+2
End
End
End
End
If 23int(A/6)+B/4-21>length(Str7
Then
2+6(1+int((length(Str7)-1)/23->A
4((length(Str7)-2)-23int(length(Str7)/23->B
End
End
End
If K=11
Goto TT
DelVar K
ClrDraw
// EDITOR //
sub(Str9,1,inString(Str9,"[xhat]N",D)+1)+Str7+sub(Str9,inString(Str9,"[xhat]E",D),length(Str9)+(1-inString(Str9,"[xhat]E",D->Str9
12->A
31->B
1->C
End
End
End
End
If K!=22
Pause
DelVar Pic1
ClrDraw
ClrHome
"
orCode: :DCS6
"000000003FFC20042CC42AA42CA42AA42CA4200427F420042FF420043FFC0000"
CoordOff
GridOff
AxesOff
0->Xmin
1->DeltaX
0->Ymin
1->DeltaY
SetUpEditor TIBN
If not(dim(|LTIBN
Then
" ->Str9
6->dim(|LTIBN
End
UnArchive Str9
33->Z
While Z=33 or (A=12 and B=31 and K!=22
3->D
{2->|LTIBN2
While D>2
2+inString(Str9,"[xhat]T",D->D
augment(|LTIBN2,{Ans-2->|LTIBN2
End
DelVar ZClrDraw
Horizontal 52
Horizontal 51
Text(~1,1,1,"BasicNote
StorePic 1
Text(~1,1,32,"Note
RecallPic 1
Line(35,4,35,50
Line(94,4,94,50
Line(0,4,0,50
For(A,51,3,~8
Horizontal A
End
Text(12,2,"NEW NOTE
Text(20,2,"DEL ALL
Text(28,2,"SEARCH
1->B
DelVar CFor(A,1,6
If |LTIBN(6C+A
Then
Text(8A+4,41,sub(Str9,|LTIBN2(6C+A)+2,inString(Str9,"[xhat]N",B)-2-|LTIBN2(6C+A
2+inString(Str9,"[xhat]E",B->B
End
End
12->A
31->B
Repeat K=22 or Z=33 or (B=87 and |LTIBN(6C+A/4-F)) or (A=12 and B=31
Repeat A=12 and B=31 or K=22 or Z=33 or B=87 and |LTIBN(6C+A/4-F
DelVar PRepeat sum(K={22,105
Text(3,87,C+1
getKey->K
Text(A,B,"+
If K
Then
Text(A,B,"
If K=25 and A=12 or K=34 and A=52
Then
If K=25 or K=34 and |LTIBN(6C+7-6(K=25
Then
4(K=34)+60(K=25->A
max(0,min(int(dim(|LTIBN2)/6),C+sum(DeltaList(K={25,34->C
1->D
For(M,1,6C
2+inString(Str9,"[xhat]E",D->D
End
For(M,1,6
Text(8M+4,41,"
If |LTIBN(6C+M
Then
Text(8M+4,41,sub(Str9,|LTIBN2(6C+M)+2,inString(Str9,"[xhat]N",D)-2-|LTIBN2(6C+M
2+inString(Str9,"[xhat]E",D->D
End
End
End
End
max(12,min(28+24(B=87),A+8sum(DeltaList(K={25,34->A
max(31,min(87,B+56sum(DeltaList(K={24,26->B
End
1+int(A/8->F
End
If K=105
Then
StorePic 1
If B=31 or (B=87 and |LTIBN(6C+A/4-F
Then
If A=20 and B=31
Then
For(I,12,58,8
Text(~1,I,0,"
End
End
If B=31
Then
If A=12
Then
1->E
If 1<dim(|LTIBN
Then
DelVar I
Repeat not(|LTIBN(I
I+1->I
If |LTIBN(I
2+inString(Str9,"[xhat]T",E->E
End
End
Str9+"[xhat]T->Str9
1->I
Repeat not(|LTIBN(I
If |LTIBN(I
I+1->I
End
1->|LTIBN(I
If not(fPart(I/6
dim(|LTIBN)+6->dim(|LTIBN
1->P
End
If A=20
Then
Text(~1,13,1,"DEL ALL NOTES?
Text(~1,23,13,"CANCEL
Text(~1,33,13,"DELETE
23->Z
Repeat K=105
getKey->K
Text(~1,Z,1,">
If K
Then
Text(~1,Z,1,"
Z+10(K=34)(Z=23)-10(K=25)(Z=33->Z
End
End
If Z=33
Then
" ->Str9
Fill(0,|LTIBN
Text(~1,43,1,"DELETED
rand(30
End
If Z=23
Then
ClrDraw
RecallPic 1
End
End
End
DelVar K
If P or B=87
Then
1->D
If |LTIBN(2
Then
For(E,1,6C+A/4-F-1
2+inString(Str9,"[xhat]E",D->D
End
End
ClrDraw
If not(P
Text(0,1,sub(Str9,|LTIBN2(6C+A/4-F)+2,inString(Str9,"[xhat]N",D)-2-|LTIBN2(6C+A/4-F
Horizontal 55
// EDITOR //
DelVar XDelVar RDelVar S1->C
Text(0,69,C
Text(0,77,"/99
Line(89,55,89,62
Line(67,55,67,62
DelVar B8->A
If P
Then
" ->Str7
" ->Str6
Lbl TT
Repeat length(Str6)>1 and (K=34 or K=105
If 1=length(Str6
Text(0,1,"ENTER TITLE
Repeat Ans
getKey->K
End
Ans-20-5int(.1Ans
If 12>length(Str6) and 0<Ans and Ans<29 and K!=44 and K!=45
Then
If 1=length(Str6
Text(0,1,"
Str6+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",Ans,1->Str6
End
If K=23 and length(Str6)>1
Then
sub(Str6,1,length(Str6)-1->Str6
Text(0,1,Str6+"
End
If K=45
Then
" ->Str6
Text(0,1,"
End
Text(0,1,Str6
End
augment(|LTIBN2,{length(Str9)-1->|LTIBN2
End
If P
Str9+sub(Str6,2,length(Str6)-1)+"[xhat]N [xhat]E->Str9
If not(P
sub(Str9,inString(Str9,"[xhat]N",D)+2,inString(Str9,"[xhat]E",D)-(2+inString(Str9,"[xhat]N",D->Str7
DelVar P
Repeat K=22 or K=11
Repeat Ans
Line(B,61-A,B,57-A
getKey->K
Line(B,61-A,B,57-A,0
End
If Ans=21 or Ans=31
Then
If Ans=21
Then
DelVar Rnot(S->S
If S
Then
Text(0,91,"2
Else
Text(0,91,"
End
End
If Ans=31
Then
If not(R
3->R
DelVar SR-1->R
If R
Then
Text(0,91,"A
If R<2
Text(0,91,"a
Else
Text(0,91,"
End
End
End
If X and (not(S) or (S and not(sum(K={24,25,26,34
Then
For(theta,48,0,~6
Line(0,theta,94,theta,0
End
DelVar XDelVar MEnd
If R
sub("abc defghijklMnopqrstuvWxyztheta' :?ABC DEFGHIJKLMNOPQRSTUVWXYZtheta' :?",1+34(R-1),34
If S
" |E{}[e] [ ] [i]
If not(R) and not(S
"= ^ ,()/ 789plotdot 456-\>123+ 0.~
If K>=41 and K<=104
Then
If " "!=sub(Ans,K-20-5int(.1K),1) or (K=102 and R
Then
sub(Ans,K-20-5int(.1K),1->Str8
If B>89 and A<54
DelVar BA+6->A
Text(A,B+1,"
Text(A,B+1,Str8
End
If R=1 and inString("WM",Str8
Then
Line(B+1,61-A,B+3,61-A,0
Pt-Off(B+2,60-A
sub("wm",inString("WM",Str8),1->Str8
End
23int(A/6-1)+B/4+2->theta
If Ans=length(Str7
Then
Str7+Str8->Str7
Else
sub(Str7,1,theta)+Str8
If theta+1<length(Str7
Ans+sub(Str7,theta+2,length(Str7)-theta-1
Ans->Str7
End
B+4->B
End
End
If sum(K={24,25,26,34
Then
If A>8 and K=24 and not(B
Then
92->B
A-6->A
End
If not(S
Then
B+4((K=26)(B<92)(length(Str7)>23int(A/6-1)+B/4+2)-(K=24)(B>0->B
A+6((K=34)(A<54)(length(Str7)>=23int(A/6)+1)-(K=25)(A>8->A
End
If B=92 and A<54 and K=26
DelVar BA+6->A
If K=34 and A<54 and 23int(A/6-(length(Str7)>23int(A/6-2)+(B-4(K-25))/4+1))+(B-4(K-25))/4+2>length(Str7
Then
If S
Line(B,62-A,94,62-A,M=sum(K={26,34
4((length(Str7)-2)-23int(length(Str7)/23->B
If S
Then
23int(A/6-1)+Ans/4+2->V
Line(0,56-A,B,56-A,M=sum(K={26,34
End
End
If S
Then
If (length(Str7)>23int(A/6-1)+B/4+2 and K=26) or (K=24 and (B and A=8) or (B!=92 and A=50) or A>8 and A<54
Then
If not(X
Then
sum(K={26,34->M
23int(A/6-1)+B/4+2->X
End
Line(B,62-A-6,B+4((K=26)-(K=24)),62-A-6,M=sum(K={26,34
B+4(K-25->B
23int(A/6-1)+Ans/4+2->V
If V=X
DelVar XDelVar M
End
End
End
If K=14 and X!=V
Then
If X>V
V+.01X
If V>X
X+.01V
sub(Str9,1,1)+sub(Str7,iPart(Ans)+1,100fPart(Ans)-iPart(Ans))+sub(Str9,2,length(Str9)-1->Str9
End
If sum(K={15,23
Then
If K=23
Then
23int(A/6)+B/4-21->theta
If not(X) and Ans!=length(Str7) or (X
Then
If not(X
Then
If Ans+1<length(Str7
sub(Str7,1,Ans)+sub(Str7,Ans+2,length(Str7)-Ans-1
If theta+1=length(Str7
sub(Str7,1,theta
End
If X
Then
If X>V
V+.01X->theta
If V>X
X+.01V->theta
If 100fPart(Ans)<length(Str7
sub(Str7,1,iPart(Ans))+sub(Str7,100fPart(Ans)+1,length(Str7)-100fPart(Ans
If 100fPart(theta)=length(Str7
sub(Str7,1,iPart(theta
DelVar XDelVar M
End
Ans->Str7
End
End
If K=15 and "[xhat]T"!=sub(Str9,2,2
Then
sub(Str7,1,23int(A/6)+B/4-21)+sub(Str9,2,inString(Str9,"[xhat]T")-2
If 23int(A/6)+B/4-21<length(Str7
Ans+sub(Str7,23int(A/6)+B/4-20,abs(23int(A/6)+B/4-21-length(Str7
Ans->Str7
End
For(G,int(A/6),1+int((length(Str7)-1)/23
Text(6G+2,(B+1)(G=int(A/6))+(G>int(A/6)),"
If length(Str7)>2
Then
23->theta
If length(Str7)<23G
length(Str7)-23(G-1->theta
For(O,(B+1)(G=int(A/6))+(G>int(A/6)),8+int(3.87Ans),4
If theta=23 or 23(G-1)+(O-1)/4<length(Str7
sub(Str7,23G-20-2(O>5)+int(O/4)(23G-20-2(O>5)+int(O/4)<=length(Str7)),1
If Ans="
"
If O>5 and not(inString("wm",Ans)) and (theta=23 or 23(G-1)+(O-1)/4<length(Str7
Text(6G+2,O-8,Ans
If inString("wm",Ans
Then
Text(6G+2,O-8,sub("WM",inString("wm",Ans),1
Line(O,61-(6G+2),O+2,61-(6G+2),0
Pt-Off(O+1,60-(6G+2
End
End
End
End
If 23int(A/6)+B/4-21>length(Str7
Then
2+6(1+int((length(Str7)-1)/23->A
4((length(Str7)-2)-23int(length(Str7)/23->B
End
End
End
If K=11
Goto TT
DelVar K
ClrDraw
// EDITOR //
sub(Str9,1,inString(Str9,"[xhat]N",D)+1)+Str7+sub(Str9,inString(Str9,"[xhat]E",D),length(Str9)+(1-inString(Str9,"[xhat]E",D->Str9
12->A
31->B
1->C
End
End
End
End
If K!=22
Pause
DelVar Pic1
ClrDraw
ClrHome
"