box()

Draws an empty rectangle with current ink color on current screen.

Syntax:
box( sx , sy , dx , dy )

sx
and sy are upper left rectangle point coordinates while dx and dy are lower right rectangle point coordinates.

Example:
while not key(k_esc)
    cls
    box( 100, 100, Xmouse, Ymouse )
    waitVBL
wend