How much can anyone optimize this code?
Code:
?
Code:
Full
AxesOff
LabelOff
GridOff
FnOff
ClrDraw
ZStandard
Horizontal -8
DelVar SRepeat S=50
sub("0123456789",randInt(1,10),1)+sub("0123456789",randInt(1,10),1)+"+"+sub("0123456789",randInt(1,10),1)+sub("0123456789",randInt(1,10),1 -> Str1
"0 -> Str2
DelVar RrandInt(0,74 -> B
Repeat expr(Str1)=expr(Str2
Text(R,B,Str1
R+1 -> R
If R=51
Then
Output(1,1,"YOU LOSE!:(
Stop
End
getKey -> K
If max(K={23,72,73,74,82,83,84,92,93,94,102
Then
If K =/= 23
Then
Str2+sub("789 456 123 0",K-71,1 -> Str2
Else
sub(Str2,1,length(Str2)-(length(Str2)>1 -> Str2
End
Text(57,0,Str2+"
End
rand(51-S
End
ClrDraw
Horizontal -8
S+1 -> S
Text(57,48,"SCORE: ",S
End
"YOU WON! :)