Logo (Turtle) program to generate greek key patter (meandros)

gistfile1.txt

;Run in a Turtle interpreter such as https://www.calormen.com/jslogo/#
to cenefa :startX :startY :color
	setpencolor :color
	setpensize 5
	penup
	setxy :startX :startY 
  	pendown
	repeat 8 [ fd 40 lt 90 fd 20 lt 90 fd 20 rt 90 fd 20 rt 90 fd 40 rt 90 fd 30 lt 90 fd 20 lt 90 fd 20 rt 90 fd 20 rt 90 fd 30 lt 90]
    penup
    fd 10
    lt 90 
    fd 40 lt 90
    pendown
  	repeat 8 [ fd 40 lt 90 fd 20 lt 90 fd 20 rt 90 fd 20 rt 90 fd 40 rt 90 fd 30 lt 90 fd 20 lt 90 fd 20 rt 90 fd 20 rt 90 fd 30 lt 90]
END

clearscreen
rt 90
cenefa -400 0 "D26E33