ClrDraw Text(1,31,"SETTINGS Line(31,–8,62,–8 Text(57,51,"[SAVE][EXIT] Text(9,0,">MICRO Text(15,4,"MEZZO Text(21,4,"MACRO Text(27,4,"DIRECT Text(33,4,"INCREASE Text(39,4,"DECREASE "F1:F2:F3:F4:F5:2ND:MODE:DEL: : : :ALPHA:X:STAT: :MATH:APPS:prgm:VARS:CLEAR:X²:sin(:cos(:tan(:^:X‾ֿ¹:,:(:):/:log(:7:8:9:*:ln(:4:5:6:-:STO>:1:2:3:+: :0:.:–: :→Str1 For(X,1,6 ⌊CSET(X→Z 0→B .1Z-1.1→Z For(θ,1,5iPart(Z)+10fPart(Z)-(Z>2.4)+(Z>1.5) inString(Str1,":",B+1→B End Text(3+6X,40,sub(Str1,B+1,inString(Str1,":",B+2)-B-1 End 1→A Lbl A1 DelVar X Repeat X=15 or X=14 Repeat X=15 or X=105 or X=14 getKey→X If X=25 or X=34 Text(3+6A,0," " A-(X=25 and A>1)+(X=34 and A<6→A Text(3+6A,0,"> If X=105:Then Text(3+6A,0," " Text(3+6A,36,"> Text(3+6A,40," " DelVar X While X xor not(X≥24 and X≤26) xor X=105 xor X=34 getKey→X End 0→B .1X-1.1→Z For(θ,1,5iPart(Z)+10fPart(Z)-(Z>2.4)+(Z>1.5) inString(Str1,":",B+1→B End Text(3+6A,40,sub(Str1,B+1,inString(Str1,":",B+2)-B-1 X→⌊CSET(A Text(3+6A,36," End End End If X=14:Then DelVar X For(θ,1,dim(⌊CSET For(Z,θ+1,dim(⌊CSET ⌊CSET(θ)=⌊CSET(Z If Ans 1→X End End If X:Then Text(51,1,"KEYS MUST BE Text(57,1,"DIFFERENT Goto A1 End Text(51,1," Text(57,1," Text(57,1,"SAVED SetUpEditor ⌊C For(X,1,dim(⌊CSET ⌊CSET(X→⌊C(X End Archive ⌊C Goto A1 End If X=15:Then (i had more here... i dont think its relevent though, it was really just a stop)