0FORA=1TO13:B=18-A:A$=A$+"*":PRINTTAB(9,B)A$TAB(B,A)A$TAB(B,B)A$TAB(9,A)A$:NEXT