for y=0to 32for x=0to 31-y?chr$(32+3*!and(x,y));next
?next