10 MODE 1:FOR x=1 TO 14:s$=s$+"*":LOCATE 5,x:PRINT s$:LOCATE 15-x,x:PRINT s$:LOCATE 15-x,19-x:PRINT s$:LOCATE 5,19-x:PRINT s$:NEXT:CALL &BB18
