to aaa ;Dvije procedure koje koriste ;isti princip, ali pripadaju ;razlicitim podrucjima (grafika/tekst). ;Pokrenuti s: ; ;-------------- ;kutko 300 200 ;---------------------------- ;slova "otorinolaringologija ;---------------------------- ;slova [lav rice u divljini] ;---------------------------- ; end
to kutko :broj :vel if :broj<1 [stop] fd :vel rt 90 kutko :broj-1 :vel-1 end
to slova :rijec if emptyp :rijec [stop] pr :rijec slova bl :rijec end