CODE ONE

to crt :x pu cs setxy :x 0 pd seth 270 fd 15 rt 90 fd 15 rt 90 fd 20 lt 90 fd 10 rt 90 fd 25 rt 90 fd 10 lt 90 fd 20 rt 90 fd 15 rt 90 fd 15 seth 0 repeat 36[ lt 10 fd 1] repeat 18[ lt 10 fd 1] seth 270 fd 10 seth 0 repeat 36[ lt 10 fd 1] repeat 18[ lt 10 fd 1] make "x :x+5 if :x<200 [crt :x] end