CLS:FORI=1TO13:S$=S$+"*":J=18-I:PRINTTAB(9,J)S$TAB(J,J)S$TAB(J,I)S$TAB(9,I)S$:NEXT