1 CLS:c$=" * *":FOR a=1 TO 17:FOR b=1 TO 4:READ v:PRINT STRING$(v,MID$(c$,b,1));:NEXT:PRINT:NEXT
2 DATA 4,1,7,1,4,2,5,2,4,3,3,3,4,4,1,4,,17,,,1,15,,,2,13,,,3,11,,,4,9,,,3,11,,,2,13,,,1,15,,,,17,,,4,4,1,4,4,3,3,3,4,2,5,2,4,1,7,1

