It was only replacing the entire sub( line in display3 with DarkerLine's code, but here it is anyway:
Code:
":üStr1
For(A,1,8
For(B,1,4
sub(" X XX X XXXX ",inString("0124936DA5B7FEC8",sub(Str2,4A+B-4,1)),4
Output(A,4B-3,Ans
Str1+AnsüStr1
End
End
sub(Str1,2,128üStr1
And I figured I might as well redo the map editor anyway:
Code:
ClrHome
1üA
1üB
{8,16üdim([A]
Fill(0,[A]
Disp "*
While 1
Repeat K
getKeyüK
End
Output(A,B,sub(" X",[A](A,B)+1,1
A+(K=34)(A<8)-(K=25)(A>1)üA
B+(K=26)(B<16)-(K=24)(B>1)üB
Output(A,B,"*
If K=21 or K=105
Then
not([A](A,B)ü[A](A,B
Output(A,B,sub(" X",[A](A,B)+1,1
End
If K=22
Then
ClrHome
Disp "Converting...
":üStr1
For(A,1,8
For(B,1,16
If [A](A,B)
Then
Str1+"1üStr1
Else
Str1+"0üStr1
End
End
End
Disp "Compressing...
sub(Str1,2,128üStr1
":üStr2
For(A,1,125,4
Str2+sub("0124936DA5B7FEC8",inString("0000100110101111000",sub(Str1,A,4)),1üStr2
End
sub(Str2,2,32üStr2
DelVar [A]
DelVar Str1
Stop
End
End
86 bytes smaller for the map editor, and 51 bytes smaller for display. :biggrin: So far every program has been interchangeable, so you can use MAP or MAP2 and then display it with any of the DISPLAYs.
These most recent two are the smallest.
By the way, I'm certainly willing to explain how both of these work in case you're interested.
Spyderbyte
Last edited by Guest on 18 Dec 2005 08:28:54 pm; edited 1 time in total |
Project Ideas/Start New Projects => Your Projects
