10 FORX=1TO14:READL:FORS=1TO(40-L)/2:PRINT" ";:NEXT:FORJ=1TOL:PRINT"*";:NEXT:PRINTCHR$(141);:NEXT:DATA1,3,5,7,3,7,11,15,5,11,17,23,3,3