1FORX=4TO16STEP6:LINE(X,1)-(19,20-X),"*":LINE-(20-X,19),"*":LINE-(1,X),"*":LINE-(X,1),"*":NEXT:GO.1