Setting shorcut optimization

Silver Phantom 29 Aug 2013 02:28

So, i am still working on the game concept i mentioned in the Edge of the Universe Software group, but i need help optimizing this peice of code.

```
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)
```

⌊CSET is a copy of ⌊C

⌊C has {62,63,64,65,95,85}

i just think that 1000+ bytes for a settings is a bit to much, can yall help me optimize it?

thanks

*The Silver Phantom welcomes you*