Simulación de un sencillo billar rectangular empleando el lenguaje WinLogo

;-------- Simulació d'un billar rectangular --
;   © Joan Aranes Clua, 1999
;---------------------------------------------
procediment Posa.marc.i.bola
inicia.dibuix restaura.tortuga fes.color 1
no.llapis
posa't [-202 -92]
llapis
posa't [-202 92]
posa't [202 92]
posa't [202 -92]
posa't [-202 -92]
no.llapis
centre
llapis
fes.forma 87 fes.color 10
orienta't atzar 360
sensor [-200 90 200 -90]
fi


procediment Mou.bola
fes.local "xx fes.local "yy
no.llapis
posa.a "xx coor.x
posa.a "yy coor.y
posa.a "rumb orientació
av 1
si detecta 1 [fes.x :xx fes.y :yy Canvia.direcció]
Mou.bola
fi

procediment Canvia.direcció
posa.a "canvi 2*abs(residu orientació 90)
gira.dreta :canvi*(potència -1 atzar 2) 
fi


procediment A.jugar
Posa.marc.i.bola
Mou.bola
fi

A.jugar