to aaa
;UCBLogo
;Zadatak s zupanijskih natjecanja 1999.
;TEXT ZADATKA (vidite sluzbeni text):
;
;Pozvati sa:
;-----------
;naviga [DOMA N100 L90 NPEDESET N100 D90 SANDRA N100]
;-----------
;
end
to naviga :n
if or (emptyp :n) (not (listp :n)) [stop]
radi first :n
naviga bf :n
end
to radi :komanda
if not (wordp :komanda) [stop]
if and (equalp first :komanda "N) (numberp bf :komanda) [fd bf :komanda]
if and (equalp first :komanda "L) (numberp bf :komanda) [lt bf :komanda]
if and (equalp first :komanda "D) (numberp bf :komanda) [rt bf :komanda]
if equalp :komanda "DOMA [cs]
if equalp :komanda "PD [pd]
if equalp :komanda "PG [pu]
end