10 CLS
20 FOR i=1 TO 5:FOR j=18-i TO i STEP -1
30 LOCATE i+4,j:PRINT"*":LOCATE 10-i+4,j:PRINT"*"
40 LOCATE j,i+4:PRINT"*":LOCATE j,10-i+4:PRINT"*"
50 NEXT:NEXT
60 LOCATE 1,20
