0FORI=0TO37:READA:IFA=0THENY=Y+1
1PLOT20+A,Y,"*":PLOT20+A,20-Y,"*":PLOT20-A,Y,"*":PLOT20-A,20-Y,"*":NEXT
6DATA0,0,2,0,1,5,7,0,5,6,0,2,5,6,7,0,1,4,0,3,0,2,5,8,0,1,4,7
7DATA0,1,2,3,4,5,6,7,8,9