1 WIDTH19:X$="3555131313313131555131313313131555":FORJ=0TO2:LOCATE0:FORN=1TO34:PRINTSPC(VAL(MID$(X$,N,1)));"*";:NEXT:NEXT