to aaa
;MSWLogo
;
;Crtanje jednostavnog grafa u prvom
;kvadrantu koordinatnog sustava.
;Rjesenje je namjerno nepotpuno i neuniverzalno.
;Ako se ne izbrise zaslon (CS) i kornjaca ima
;neprimjeren polozaj, graf se krivo crta.
;Osim toga se ne kontrolira pogresan unos.
;Pokusajte sami popraviti nedostatke rjesenja.
;Pokrenite s:
;
;-------
;kordi
;-------
;
end

to crtaj :n :niz
if emptyp :niz [stop]
setxy product 30 :n product 30 first :niz
crtaj sum :n 1 bf :niz
end

to kordi
pr [Upisite niz od 6 brojeva s razmacima]
osi
crtaj 0 rl
end

to osi
fd 200 rt 90 label "Y lt 90 bk 200 rt 90
fd 200 label "X bk 200 
end