10 REM VC3 2021 BY MMS
20 DIM C(14)
30 FOR A=1TO14:READW:C(A)=W:NEXTA
40 FOR A=1TO14:D=INT((40-C(A))/2)
50 PRINTTAB(D):FORC=1TOC(A):PRINT CHR$(42);:NEXTC:PRINT
60 NEXTA
80 END
100 DATA 1,3,5,7,3,7,11,15,5,11,17,23,3,3
