Here is my optimized version, for the people who wanna optimize it further. I don't optimized the small things like 0->P would be DelVar P but more big things (see my previous post).
Here you are:
Code: :DCS6
"000000003FFC20042CC42AA42CA42AA42CA4200427F420042FF420043FFC0000"
CoordOff:GridOff:AxesOff:FnOff
0->Xmin:1->DeltaX
0->Ymin:1->DeltaY
SetUpEditor TIBN
If not(dim(|LTIBN
Then
" ->Str9
seq(X=2,X,1,6->TIBN
End
UnArchive Str9
28->Z
While Z=28 or AB=408 and K!=22
DelVar ZClrDraw
Horizontal 52
Horizontal 51
Text(~1,1,1,"BasicNote
StorePic 1
Text(~1,1,32,"Note
RecallPic 1
DelVar Pic1Line(38,4,38,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,"DELETE
Text(28,2,"OPTIONS
0->C
For(A,1,min(6,|LTIBN(1
3+inString(Str9,"[xhat]T",Ans+1
Text(8A+4,40,sub(Str9,Ans,inString(Str9,"[xhat]N",Ans)-Ans
End
12->A
34->B
Repeat K=22 or Z=28 or (B=90 and |LTIBN(1)>=6C+int(A/8)) or (A=12 and B=34
0->P
Repeat max(K={22,105,23
1+int((|LTIBN(1)/6-.1
Text(3,91-4int(log(Ans)),Ans
Text(3,79-4int(log(C+1)),C+1,"/
getKey->K
Text(A,B,"<
If K
Then
Text(A,B," "
If (K=34 and A=52 and |LTIBN(1)>6C+6) or (BK=2250 and A=12 and C
Then
4(K=34)+60(K=25->A
C+(K=34)-(K=25->C
1
For(M,1,6C
1+inString(Str9,"[xhat]E",Ans
End
For(M,1,6
Text(8M+4,40," "
End
For(M,1,min(6,|LTIBN(1)-6C
3+inString(Str9,"[xhat]T",Ans+1
Text(8M+4,40,sub(Str9,Ans,inString(Str9,"[xhat]N",Ans)-Ans
End
End
min(28+24(B=90),max(12,A+8sum(DeltaList(K={25,34->A
min(90,max(34,B+56sum(DeltaList(K={24,26->B
End
End
If max(K={23,105
Then
StorePic 1
6C+int(A/8
If B=34 or (K=23 and B=90 and |LTIBN(1)>=Ans or (B=90 and Ans<=|LTIBN(1
Then
If B=34 or (K=23 and B=90)
Then
If A=12 and B=34
Then
Str9+"[xhat]T ->Str9
1+|LTIBN(1->|LTIBN(1
1->P
End
If A=20 or (K=23 and B=90)
Then
Text(12,2,"DEL"+sub("ALL NOTE",1+4(B=90),4
For(I,20,50,6
Text(I,1," "
End
Text(20,2,"CANCEL
Text(28,2,"CONFIRM
20->Z
Repeat K=105
Text(Z,34,"<
getKey->K
If Ans
Then
Text(Z,34," "
min(28,max(20,Z+8sum(DeltaList(Ans={25,34->Z
End
End
If Z=28
Then
If B=34
Then
" ->Str9
0->|LTIBN(1
End
If B=90
Then
34->B
inString(Str9,"[xhat]T
For(I,2,6C+int(A/8
2+inString(Str9,"[xhat]E",Ans
End
Ans->D
sub(Str9,1,Ans-1
If 6C+int(A/8)!=|LTIBN(1
Ans+sub(Str9,inString(Str9,"[xhat]T",D+1),length(Str9)-(~1+inString(Str9,"[xhat]T",D+1
Ans->Str9
|LTIBN(1)-1->|LTIBN(1
End
Text(52,2,"DELETED
rand(30
End
If Z=20
Then
ClrDraw
RecallPic 1
End
34->B
End
If A=28
Then
For(I,12,58,8
Text(~1,I,0," "
End
Text(12,13,"ARCHIVE NOTES ON EXIT
Text(50,6,"UNARCHIVED FILES CAN BE
Text(56,11,"SUBJECT TO DELETION
Horizontal 13
For(G,45,45,~6
For(O,5,9
Line(O,G,O,G+4
End
End
DelVar K12->G
Line(6,47,7,46,0
Line(8,47,9,48,0
Repeat K=22
If K=105
Then
If G=12
not(|LTIBN(2->|LTIBN(2
For(O,6,8
Line(O,58-G,O,60-G,|LTIBN(2
End
Pt-On(9,12-(G-48
If |LTIBN(2
Then
Line(6,47,7,46,0
Line(8,47,9,48,0
End
End
Text(G,1,">
Repeat max(Ans={22,25,34,105
getKey->K
End
Text(A,1," "
End
ClrDraw
RecallPic 1
End
End
DelVar K
If P or B=90
Then
inString(Str9,"[xhat]T->D
6C+int(A/8)-1
If P
|LTIBN(1)-1
For(E,1,Ans
2+inString(Str9,"[xhat]E",D->D
End
ClrDraw
Horizontal 55
DelVar XDelVar RDelVar C
Text(0,73,1
Text(0,77,"/87
Line(89,55,89,62
Line(67,55,67,62
If not(P
Then
Text(56,30,"Rendering..
inString(Str9,"[xhat]N",D->E
sub(Str9,D+2,Ans-D-2->Str6
Text(0,1,Ans
sub(Str9,E+2,inString(Str9,"[xhat]E",D)-(2+E->Str7
For(G,0,int((length(Ans)-3)/23
" "
If G=8
Text(56,30," "+Ans+Ans+Ans+Ans
For(O,1,min(23,length(Str7)-23G-2
sub(Str7,23G+O+2,1
Text(6G+8,4O-3,Ans
If inString("wm",Ans
Then
Text(6G+8,4O-3,sub("WM",inString("wm",Ans),1
Line(4O-3,53-6G,4O-1,53-6G,0
Pt-Off(4O-2,52-6G
End
End
End
" "
If G!=8
Text(56,30," "+Ans+Ans+Ans+Ans
End
DelVar B8->A
Lbl TT
If P or K=11
Then
" ->Str7
" ->Str6
Repeat length(Str6)>1 and (K=34 or K=105
If 1=length(Str6
Text(0,1,"ENTER TITLE
Repeat Ans
getKey->K
End
If 12>length(Str6) and K>40 and K<94 and K!=44 and K!=45
Then
If 1=length(Str6
Text(0,1," "
Str6+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",K-20-5int(.1K),1->Str6
End
If K=23 and length(Str6)>1
sub(Str6,1,length(Str6)-1->Str6
If K=45
Then
" ->Str6
Text(0,1," "
End
Text(0,1,Str6+" "
End
End
sub(Str6,2,length(Str6)-1
If P
Str9+Ans+"[xhat]N [xhat]E->Str9
If not(P
sub(Str9,1,D+2)+Ans+sub(Str9,inString(Str9,"[xhat]N",D),length(Str9)+1-inString(Str9,"[xhat]N",D->Str9
0->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 K=21
3-3(R=3->R
If K=31
1+(R=1)-(R=2->R
Text(0,91," "
If R
Text(0,91,sub("Aa2",R,1
If Xnot(S(K=34 or 2>abs(K-25
Then
For(theta,48,0,~6
Line(0,theta,94,theta,0
End
DelVar XDelVar M
End
If K>=41 and K<=104
Then
sub("= ^ ,()/ 789plotdot 456-\>123+ 0.~ABC DEFGHIJKLMNOPQRSTUVWXYZtheta' :?abc defghijklMnopqrstuvWxyztheta'* :? |E{}[e] [ ] [i]",K-5int(.1K)-20+34(R=1)+68(R=2)+102(R=3),1->Str8
If " "!=Ans or (K=102 and R
Then
If B>89 and A<54
DelVar BA+6->A
Text(A,B+1," "
Text(A,B+1,Str8
End
If R=2 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
Str7+Str8
If theta!=length(Str7
Then
sub(Str7,1,theta)+Str8
If theta+1<length(Str7
Ans+sub(Str7,theta+2,length(Str7)-theta-1
End
Ans->Str7
B+4->B
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 R!=3
Then
min(8+6int((length(Str7)-2)/23),min(54,max(8,A+6sum(DeltaList(K={25,34->A
min(4length(Str7)+84-92int(A/6),min(92,max(0,B+4sum(DeltaList(K={24,26->B
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+26))+B/4-K+27>length(Str7
Then
If R=3
Line(B,62-A,94,62-A,M=max(K={26,34
4length(Str7)-8-23int(length(Str7)/23->B
If R=3
Then
23int(A/6-1)+Ans/4+2->V
Line(0,56-A,B,56-A,M=max(K={26,34
End
End
If R=3
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
" "+sub(Str7,min(X,V)+1,abs(X-V))+sub(Str9,2,length(Str9)-1->Str9
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
sub(Str7,1,min(X,V
If max(X,V)<length(Str7
Ans+sub(Str7,max(X,V)+1,length(Str7)-max(X,V
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+8,1," "
For(O,1,min(23,length(Str7)-23G-2
sub(Str7,23G+O+2,1
Text(6G+8,4O-3,Ans
If inString("wm",Ans
Then
Text(6G+8,4O-3,sub("WM",inString("wm",Ans),1
Line(4O-3,53-6G,4O-1,53-6G,0
Pt-Off(4O-2,52-6G
End
End
End
If 23int(A/6)+B/4-21>length(Str7
Then
10+6int((length(Str7)-1)/23->A
4length(Str7)-8-23int(length(Str7)/23->B
End
End
End
If K=11
Goto TT
0->K
ClrDraw
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
DelVar C12->A
34->B
2->F
End
End
End
End
End
If K!=22
Pause
DelVar Pic1DelVar Str6DelVar Str7DelVar Str8ClrDraw
If |LTIBN(2
Archive Str9
Archive |LTIBN
ClrHome
"
Code: :DCS6
"000000003FFC20042CC42AA42CA42AA42CA4200427F420042FF420043FFC0000"
CoordOff:GridOff:AxesOff:FnOff
0->Xmin:1->DeltaX
0->Ymin:1->DeltaY
SetUpEditor TIBN
If not(dim(|LTIBN
Then
" ->Str9
seq(X=2,X,1,6->TIBN
End
UnArchive Str9
28->Z
While Z=28 or AB=408 and K!=22
DelVar ZClrDraw
Horizontal 52
Horizontal 51
Text(~1,1,1,"BasicNote
StorePic 1
Text(~1,1,32,"Note
RecallPic 1
DelVar Pic1Line(38,4,38,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,"DELETE
Text(28,2,"OPTIONS
0->C
For(A,1,min(6,|LTIBN(1
3+inString(Str9,"[xhat]T",Ans+1
Text(8A+4,40,sub(Str9,Ans,inString(Str9,"[xhat]N",Ans)-Ans
End
12->A
34->B
Repeat K=22 or Z=28 or (B=90 and |LTIBN(1)>=6C+int(A/8)) or (A=12 and B=34
0->P
Repeat max(K={22,105,23
1+int((|LTIBN(1)/6-.1
Text(3,91-4int(log(Ans)),Ans
Text(3,79-4int(log(C+1)),C+1,"/
getKey->K
Text(A,B,"<
If K
Then
Text(A,B," "
If (K=34 and A=52 and |LTIBN(1)>6C+6) or (BK=2250 and A=12 and C
Then
4(K=34)+60(K=25->A
C+(K=34)-(K=25->C
1
For(M,1,6C
1+inString(Str9,"[xhat]E",Ans
End
For(M,1,6
Text(8M+4,40," "
End
For(M,1,min(6,|LTIBN(1)-6C
3+inString(Str9,"[xhat]T",Ans+1
Text(8M+4,40,sub(Str9,Ans,inString(Str9,"[xhat]N",Ans)-Ans
End
End
min(28+24(B=90),max(12,A+8sum(DeltaList(K={25,34->A
min(90,max(34,B+56sum(DeltaList(K={24,26->B
End
End
If max(K={23,105
Then
StorePic 1
6C+int(A/8
If B=34 or (K=23 and B=90 and |LTIBN(1)>=Ans or (B=90 and Ans<=|LTIBN(1
Then
If B=34 or (K=23 and B=90)
Then
If A=12 and B=34
Then
Str9+"[xhat]T ->Str9
1+|LTIBN(1->|LTIBN(1
1->P
End
If A=20 or (K=23 and B=90)
Then
Text(12,2,"DEL"+sub("ALL NOTE",1+4(B=90),4
For(I,20,50,6
Text(I,1," "
End
Text(20,2,"CANCEL
Text(28,2,"CONFIRM
20->Z
Repeat K=105
Text(Z,34,"<
getKey->K
If Ans
Then
Text(Z,34," "
min(28,max(20,Z+8sum(DeltaList(Ans={25,34->Z
End
End
If Z=28
Then
If B=34
Then
" ->Str9
0->|LTIBN(1
End
If B=90
Then
34->B
inString(Str9,"[xhat]T
For(I,2,6C+int(A/8
2+inString(Str9,"[xhat]E",Ans
End
Ans->D
sub(Str9,1,Ans-1
If 6C+int(A/8)!=|LTIBN(1
Ans+sub(Str9,inString(Str9,"[xhat]T",D+1),length(Str9)-(~1+inString(Str9,"[xhat]T",D+1
Ans->Str9
|LTIBN(1)-1->|LTIBN(1
End
Text(52,2,"DELETED
rand(30
End
If Z=20
Then
ClrDraw
RecallPic 1
End
34->B
End
If A=28
Then
For(I,12,58,8
Text(~1,I,0," "
End
Text(12,13,"ARCHIVE NOTES ON EXIT
Text(50,6,"UNARCHIVED FILES CAN BE
Text(56,11,"SUBJECT TO DELETION
Horizontal 13
For(G,45,45,~6
For(O,5,9
Line(O,G,O,G+4
End
End
DelVar K12->G
Line(6,47,7,46,0
Line(8,47,9,48,0
Repeat K=22
If K=105
Then
If G=12
not(|LTIBN(2->|LTIBN(2
For(O,6,8
Line(O,58-G,O,60-G,|LTIBN(2
End
Pt-On(9,12-(G-48
If |LTIBN(2
Then
Line(6,47,7,46,0
Line(8,47,9,48,0
End
End
Text(G,1,">
Repeat max(Ans={22,25,34,105
getKey->K
End
Text(A,1," "
End
ClrDraw
RecallPic 1
End
End
DelVar K
If P or B=90
Then
inString(Str9,"[xhat]T->D
6C+int(A/8)-1
If P
|LTIBN(1)-1
For(E,1,Ans
2+inString(Str9,"[xhat]E",D->D
End
ClrDraw
Horizontal 55
DelVar XDelVar RDelVar C
Text(0,73,1
Text(0,77,"/87
Line(89,55,89,62
Line(67,55,67,62
If not(P
Then
Text(56,30,"Rendering..
inString(Str9,"[xhat]N",D->E
sub(Str9,D+2,Ans-D-2->Str6
Text(0,1,Ans
sub(Str9,E+2,inString(Str9,"[xhat]E",D)-(2+E->Str7
For(G,0,int((length(Ans)-3)/23
" "
If G=8
Text(56,30," "+Ans+Ans+Ans+Ans
For(O,1,min(23,length(Str7)-23G-2
sub(Str7,23G+O+2,1
Text(6G+8,4O-3,Ans
If inString("wm",Ans
Then
Text(6G+8,4O-3,sub("WM",inString("wm",Ans),1
Line(4O-3,53-6G,4O-1,53-6G,0
Pt-Off(4O-2,52-6G
End
End
End
" "
If G!=8
Text(56,30," "+Ans+Ans+Ans+Ans
End
DelVar B8->A
Lbl TT
If P or K=11
Then
" ->Str7
" ->Str6
Repeat length(Str6)>1 and (K=34 or K=105
If 1=length(Str6
Text(0,1,"ENTER TITLE
Repeat Ans
getKey->K
End
If 12>length(Str6) and K>40 and K<94 and K!=44 and K!=45
Then
If 1=length(Str6
Text(0,1," "
Str6+sub("ABC DEFGHIJKLMNOPQRSTUVWXYZ",K-20-5int(.1K),1->Str6
End
If K=23 and length(Str6)>1
sub(Str6,1,length(Str6)-1->Str6
If K=45
Then
" ->Str6
Text(0,1," "
End
Text(0,1,Str6+" "
End
End
sub(Str6,2,length(Str6)-1
If P
Str9+Ans+"[xhat]N [xhat]E->Str9
If not(P
sub(Str9,1,D+2)+Ans+sub(Str9,inString(Str9,"[xhat]N",D),length(Str9)+1-inString(Str9,"[xhat]N",D->Str9
0->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 K=21
3-3(R=3->R
If K=31
1+(R=1)-(R=2->R
Text(0,91," "
If R
Text(0,91,sub("Aa2",R,1
If Xnot(S(K=34 or 2>abs(K-25
Then
For(theta,48,0,~6
Line(0,theta,94,theta,0
End
DelVar XDelVar M
End
If K>=41 and K<=104
Then
sub("= ^ ,()/ 789plotdot 456-\>123+ 0.~ABC DEFGHIJKLMNOPQRSTUVWXYZtheta' :?abc defghijklMnopqrstuvWxyztheta'* :? |E{}[e] [ ] [i]",K-5int(.1K)-20+34(R=1)+68(R=2)+102(R=3),1->Str8
If " "!=Ans or (K=102 and R
Then
If B>89 and A<54
DelVar BA+6->A
Text(A,B+1," "
Text(A,B+1,Str8
End
If R=2 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
Str7+Str8
If theta!=length(Str7
Then
sub(Str7,1,theta)+Str8
If theta+1<length(Str7
Ans+sub(Str7,theta+2,length(Str7)-theta-1
End
Ans->Str7
B+4->B
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 R!=3
Then
min(8+6int((length(Str7)-2)/23),min(54,max(8,A+6sum(DeltaList(K={25,34->A
min(4length(Str7)+84-92int(A/6),min(92,max(0,B+4sum(DeltaList(K={24,26->B
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+26))+B/4-K+27>length(Str7
Then
If R=3
Line(B,62-A,94,62-A,M=max(K={26,34
4length(Str7)-8-23int(length(Str7)/23->B
If R=3
Then
23int(A/6-1)+Ans/4+2->V
Line(0,56-A,B,56-A,M=max(K={26,34
End
End
If R=3
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
" "+sub(Str7,min(X,V)+1,abs(X-V))+sub(Str9,2,length(Str9)-1->Str9
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
sub(Str7,1,min(X,V
If max(X,V)<length(Str7
Ans+sub(Str7,max(X,V)+1,length(Str7)-max(X,V
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+8,1," "
For(O,1,min(23,length(Str7)-23G-2
sub(Str7,23G+O+2,1
Text(6G+8,4O-3,Ans
If inString("wm",Ans
Then
Text(6G+8,4O-3,sub("WM",inString("wm",Ans),1
Line(4O-3,53-6G,4O-1,53-6G,0
Pt-Off(4O-2,52-6G
End
End
End
If 23int(A/6)+B/4-21>length(Str7
Then
10+6int((length(Str7)-1)/23->A
4length(Str7)-8-23int(length(Str7)/23->B
End
End
End
If K=11
Goto TT
0->K
ClrDraw
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
DelVar C12->A
34->B
2->F
End
End
End
End
End
If K!=22
Pause
DelVar Pic1DelVar Str6DelVar Str7DelVar Str8ClrDraw
If |LTIBN(2
Archive Str9
Archive |LTIBN
ClrHome
"