Come faccio a tracciare la diagonale?

CLEARSCREEN
HOME
LATO=100
RIGHT 90
REPEAT 4 [ FORWARD LATO LEFT 90 ]
LEFT 45
FORWARD SQRT