np 50 naprzód 50 kroków
lw 90 lewo 90 stopni
pw 90 prawo 90 stopni
ws 100 idź wstecz 100 stopni
cs czyśd ekran
ukp „zielony kolor pisaka zielony
ugp 4 grubośd pisaka 4
powtórz 4*np 100 pw 90+ - rysowanie kwadratu powtórz 3*np 100 pw 120+ - trójkąt
powtórz 36*np 10 pw 10+ - okrąg Procedury
oto kw (kw to nazwa procedury, może byd dowolna) powtórz 4*np 100 pw 90+
już (koniec procedury)
oto tr (tr nazwa procedury, może byd dowolna) powtórz 3*np 100 pw 120+
już (koniec procedury)
oto kolo (kolo nazwa procedury, może byd dowolna) powtórz 36*np 10 pw 10+
już (koniec procedury)
Procedury z parametrem
oto kwadrat :bok
powtórz 4*np :bok pw 90+
już
wywołanie: kwadrat 100
oto trojkat :bok
powtórz 3*np :bok pw 120]
już
wywołanie: trojkat 100
oto prost :a :b
powtórz 2 *np :a pw 90 np :b pw 90+
już
wywołanie: prost 60 150
oto wielo :ile :bok
powtórz :ile*np :bok pw 360/:bok+
już
wielo 12 50
Procedury z pętlami warunkowymi
oto kwadraty :bok (:bok – wielośd początkowa) jeśli :bok>250 [stop] (250 – maksymalny rozmiar) powtórz 4*np :bok pw 90+
kwadraty :bok+5 (zwiększanie kolejnego boku) już
wywołanie: kwadraty 10
oto spirala :bok
jeśli :bok>400 *stop+
np :bok pw 90 spirala :bok+3 już
wywołanie: spirala 5
spirala dowolna
oto spirala :bok :kat jeśli :bok>400 *stop+
np :bok pw :kat spirala :bok+3 :kat już
wywołanie: spirala 5 130 lub np. spirala 5 170
