Notepad
All the _ in the code should be read as spaces.
Code:
StoreGDB 0
CoordsOff
PlotsOff
AxesOff
ExprOff
FnOff
0→Xmin
0→Ymin
1→ΔX
1→ΔY
ClrHome
Output(2,5,"NOTEPAD
Output(4,5,"by jeuv
Output(5,7,"V1.0
Output(8,2,"Loading (1/7)
"_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.,!?:({[)}]+-*/‾π𝑒𝑖Eθ⁻¹²³uvw^𝑛=≠>≥<≤'√(ˣ√→Str0
SetUpEditor NP1
SetUpEditor NP2
SetUpEditor NP3
SetUpEditor NP4
SetUpEditor NP5
SetUpEditor NP6
If 3>dim(∟NP1
3→dim(∟NP1
If 3>dim(∟NP2
3→dim(∟NP2
If 3>dim(∟NP3
3→dim(∟NP3
If 3>dim(∟NP4
3→dim(∟NP4
If 3>dim(∟NP5
3→dim(∟NP5
If 3>dim(∟NP6
3→dim(∟NP6
Output(8,2,"Loading (2/7)
"?→Str9
For(L,1,6
Output(8,11,L+1
If L=1
∟NP1→L1
If L=2
∟NP2→L1
If L=3
∟NP3→L1
If L=4
∟NP4→L1
If L=5
∟NP5→L1
If L=6
∟NP6→L1
L1(1→X
If X
Then
For(A,1,5
If 98≥int(X
Then
Str9+sub(Str0,int(X)+1,1→Str9
Else
Str9+"?→Str9
End
E2fPart(X→X
End
L1(2→X
For(A,1,5
If 98≥int(X
Then
Str9+sub(Str0,int(X)+1,1→Str9
Else
Str9+"?→Str9
End
E2fPart(X→X
End
L1(3→X
For(A,1,4
If 98≥int(X
Then
Str9+sub(Str0,int(X)+1,1→Str9
Else
Str9+"?→Str9
End
E2fPart(X→X
End
Else
Str9+New note______→Str9
End
End
sub(Str9,2,length(Str9)-1→Str9
Lbl M
ClrHome
Menu"____Notepad_____","Notes",N,"Options",O,"Help",H,"Quit",Q
Lbl Q
RecallGDB 0
DelVar GDB0
ClrDraw
ClrHome
Output(1,1,"
Return
Lbl H
ClrHome
Menu("______Help______","Back",M
Lbl O
Menu("____Options_____","Back",M
Lbl N
ClrHome
Menu("_____Notes______",sub(Str9,1,14),1,sub(Str9,15,14),2,sub(Str9,29,14),3,sub(Str9,43,14),4,sub(Str9,57,14),5,sub(Str9,71,14),6,"Back",M
Lbl 1
1→N
Goto U
Lbl 2
2→N
Goto U
Lbl 3
3→N
Goto U
Lbl 4
4→N
Goto U
Lbl 5
5→N
Goto U
Lbl 6
6→N
Lbl U
ClrHome
Menu(sub(Str9,14N-13,14)+"__","Edit note",E,"Change name",NN,"Back",N // 2 spaces
Lbl NN
ClrHome
Disp "Old name:
Disp sub(Str9,14N-13,14
Disp "
Input "New name:_______",Str8 // 7 spaces
Str8+"_______________→Str8 // 15 spaces
To be continued...This is not all the code, I'll type the rest in a few hours.