Stavo facendo qualche prova ma non riesco a trovare dove sia l'errore...
Clearscreen
Home
To Quadrato lato
P0 = Position
X0 = P0 [0]
Y0 = P0 [0]
Position [X0, Y0 + lato]
Position [X0 + lato, Y0 + lato]
Position [X0 + lato, Y0]
Position [X0, Y0]
end
Quadrato 100