0 Members and 1 Guest are viewing this topic.

:ClrDraw:ClrHome:AxesOff:Input "World: ",W:Text(57,0,"World ",W:For(A,1,7):For(B,1,6):{A,B,W→L3:L3(3→W:If W=1:Then:prgmZW1:Else:If W=2:Then:prgmZW2:Else:If W=3:Then:prgmZW3:Else:If W=4:Then:prgmZW4:Else:If W=5:Then:prgmZW5:Else:If W=6:Then:prgmZW6:Else:If W=7:Then:prgmZW7:Else:If W=8:Then:prgmZW8:Else:If W=9:Then:prgmZW9:Else:".ER:NO:MP→Str1:End:End:End:End:End:End:End:End:End:For(Y,1,8):For(X,1,15):If 9=length(Str1:Then:Pxl-On(Y+8A-9,X+15B-16:Else:If "#"=sub(Str1,15Y+X,1:Then:Pxl-On(Y+8A-9,X+B15-16:End:End:End:End:End:End

:ClrDraw:ClrHome:AxesOff:Input "World: ",W:Text(57,0,"World ",W:For(A,1,7):For(B,1,6):{A,B,W→L3:L3(3→W:If W=1:prgmZW1:If W=2:prgmZW2:If W=3:prgmZW3:If W=4:prgmZW4:If W=5:prgmZW5:If W=6:prgmZW6:If W=7:prgmZW7:If W=8:prgmZW8:If W=9:prgmZW9:".ER:NO:MP→Str1:End:End:For(Y,1,8):For(X,1,15):If 9=length(Str1) or "#"=sub(Str1,15Y+X,1:Pxl-On(Y+8A-9,X+15B-16:End:End

stuff like For(A,1,7) could also be changed to For(A,1,7