1 print"{clear}":z(1)=8:z(2)=z(1)+12:z(3)=z(2)+14:z(4)=z(3)+31:b$=" ":c$="{left}*":goto7
2 p$="":a=z(p):forx=sto0step-1:p$=p$+b$:if(aand2^x)>0thenp$=p$+c$
4 next:printp$;:return
5 s=6:gosub2:s=5:gosub2:gosub2:print:return
6 forp=1to4:gosub5:next:forp=3to2step-1:gosub5:next:return
7 gosub6:gosub6:gosub6:p=1:gosub5


