0 Members and 1 Guest are viewing this topic.
PROGRAM:TEST:"1111111111111111 1000000000000001 1000000000000001 1000000000000001 1000000000000001 1000000000000001 1000000000000001 1111111111111111->Str1:For(A,1,8:For(B,1,16:Output(A,B,sub(" X",1+expr(sub(Str1,B+16(A-1),1)),1):End:End
Str1+Str2->Str3
Str2+sub(Str1,1+(16*B)+A,1)->Str2
""->Str2
If sub(Str2,1+(16*B)+A,1)="1"## run code whatever chr at A,B is 1
Output(1,1,Str2