0CLS:VDU8:W=POS+1:CLS:T$="ACEGCGKOEKQWCC":FORB=1TOLENT$:L=ASCMID$(T$,B)-64:PRINTTAB((W-L)/2)STRING$(L,"*"):NEXT
