10 FOR L=0 TO 2:D=1:Y=4
20 FOR X=0 TO 18:IF X MOD 3=0 THEN D=-D
30 LOCATE X+9,Y+L*6:PRINT"*":LOCATE X+9,8-Y+L*6:PRINT"*":Y=Y+D:NEXT:NEXT
