REM example of a box drawing Sketcho program
START DrawBox
DCL  Box
DCL  x
DCL  y
x = 100;
y = 100;
MOVETO  x, y;
CALL Box;
END DrawBox;

BEGIN Box;
DOWN;

MOVETO X+10, Y;
MOVETO X, Y - 10;

MOVETO X - 10,  Y;
MOVETO X, Y +10;
END Box;