; Periskopov RACEK / Ferdinand in LOGO 
; Primeri: Rozica
;
; (c)1991,1996 V. Batagelj

TO Kvadrat
  REPEAT 4 [ FD 100 RT 90 ]
END

TO Rozica
  SETPC [255 000 255] SETPENSIZE [4 4]
  CS HT REPEAT 36 [ PU FD 4 PD Kvadrat LT 10 ] 
  SETPENCOLOR [0 0 0] SETPENSIZE [1 1] PU HOME PD 
END

Rozica