   10T=TOP-11:CLS:FORI=0TO8:A=T?I:B=A/16:C=15ANDA:D=20-(B+C):D$=STRING$(C,"*"):PRINTTAB(B,I);D$;TAB(D,I);D$;TAB(B,16-I);D$;TAB(D,16-I);D$:NEXT:REMabcd)8GVe
