Procedury:
Czworokątp:
oto czworokątp
ukm "pomarańczowy
wielokąt [powtórz 2[np 20 lw 60 np 20 lw 120]]
pw 120 pod np 20 lw 120 opu
już
Czworokątz:
oto czworokątz
ukm "zielony
wielokąt [powtórz 2[np 20 lw 60 np 20 lw 120]]
już
Czworokątż:
oto czworokątż
ukm "żółty
wielokąt [powtórz 2[np 20 lw 60 np 20 lw 120]]
już
Schody:
oto SCHODY :ile
cs
jeśli :ile>10 [STOP]
powtórz :ile
[powtórz :ile [czworokątp]
(niech [ile (:ile-1)])
lw 60 pod np 20 pw 120 opu
czworokątz lw 60 np 20 pw 60 np 20 lw 120
czworokątż
lw 60 np 20 pw 60 np :ile*20 pw 60]
SŻ
już
Przepraszam za brak niektorych polskich znakow.