1FORT=4TO17:S=T DIV4:W=T MOD4*S+S-2ANDS<4:FORP=19-W TO21+W:VDU31,P,T,42:NEXT,