2 FORT=4TO17:S=INT(T/4):W=(T-S*4)*S+S-2ANDS<4:FORP=19-WTO21+W:PRINTTAB(P)"*";:NEXT:PRINT:NEXT