Procedury:
Połowa:
oto połowa :n
niech "w 250
skok2 (-5) (-300)
prost_zam 10 300
skok2 (-120) (2*:n - 1) *10
powtórz :n [prost_zam :w 10
skok2 10 (-20)
niech "w :w-20]
skok2 :w/2 310
już
Prost_zam:
oto prost_zam :a :b
ukp "niebieski
wielokąt [powtórz 2 [np :a pw 90
np :b pw 90]]
już
Skok2:
oto skok2 :a :b
pod
np :a pw 90
np :b lw 90
opu
już
Sztanga:
oto SZTANGA :n
jeśli :n>12 [STOP]
jeśli :n<1 [STOP]
powtórz 2 [połowa :n pw 180]
już
Przepraszam za brak niektorych polskich znakow.