to aaa
;UCBLogo
;Na upit programa, korisnik upisuje recenicu.
;Program recenicu "odsvira" i graficki prikaze.
;Pokrenuti sa:
;--------
;sviraj
;--------
;
end

to rijec :rij
if emptyp :rij [stop]
pd fd (ascii first :rij)*2 bk (ascii first :rij)*2
rt 90 fd 2 lt 90
tone ((ascii first :rij)*10) 10
rijec bf :rij
end

to sviraj
ct ht pu setxy -300 -100 pd
pr[upisite recenicu koju treba odsvirati]
rijec zdruzi rl " 
end

to zdruzi :rec :jedna
if emptyp :rec [op :jedna]
op zdruzi bf :rec word :jedna first :rec
end