MSWLogohttp

procedure per definire quadrato

to quadrato
repeat 4 [forward 100 right 90]
end

to quadrato :misura
repeat 4 [forward :misura right 90]
end

procedure per triangolo

to triangolo
fd 100
rt 120
fd 100
rt 120
fd 100
end

to triangolo :lato
repeat 3 [fd :lato rt 120]
end

procedura passo (con input)

to passo :distanza
forward :distanza
right 90
end

procedura spi (ricorsiva) -infinita-

to spi :distanza
forward :distanza
right 90
spi :distanza+5
end

procedure spi (ricorsiva) -limitata-

to spi :distanza
if :distanza > 300 [stop]
fd :distanza rt 90
spi :distanza+5
end

Comandi principali	abbreviazione	spiegazione
forward 30	fd 30	avanti di 30 passi tartaruga
back 50	bk 50	indietro di 50
right 90	rt 90	gira a destra di 90 gradi
left 90	lt 90	gira a sinistra di 90
penup	pu	penna inattiva
pendown	pd	penna attiva
showturtle	st	mostra la tartaruga
hideturtle	ht	nasconde la tartaruga
clearscreen	cs	cancella lo schermo
cleartext	ct	cancella l'area testo
repeat 10 [rt 36 fd 20]		ripete 10 volte la lista di comandi
stop		termina la procedura