DIM a

SetConsoleTitle("BCX Demonstration")

COLOR 15, 1
Frame(15, 10, 65, 20)

INPUT a
COLOR 7, 0
CLS

SUB Frame (x1, y1, x2, y2) ' while interesting, this is meant only as a 
  DIM x                      ' sample SUB.  The built-in PANEL statement 
  DIM y                      ' is much faster and more flexible 
  FOR y = y1 TO y2
    FOR x = x1 TO x2
      LOCATE y, x, 0
      PRINT " ";
    NEXT x
  NEXT y
END SUB

Result:

Result not displayed for this example.