DIM OrigCodePage%
 OrigCodePage% = GetConsoleOutputCP()
 SetConsoleOutputCP(437)
 
 COLOR 15, 1 : CALL Box(20, 10, 60, 20, 15, 1, "Bcx Sample Window") : COLOR 7, 0
  
 PAUSE
 SetConsoleOutputCP(OrigCodePage)
  
 SUB Box(X1, Y1, X2, Y2, Fg, Bg, Title$)
  DIM Tb
  DIM Sid
  DIM Tlc
  DIM Trc
  DIM Blc
  DIM Brc
  DIM Tmp
  DIM A$
  PANEL X1, Y1, X2, Y2, Fg, Bg, 32, 1
  Tb = 205 : Sid = 186 : Tlc = 201 : Trc = 187 : Blc = 200 : Brc = 188
  LOCATE Y1, X1, 0
  A$ = CHR$(Tlc) & REPEAT$(X2 - X1 - 1, CHR$(Tb)) & CHR$(Trc) : PRINT A$;
  A$ = CHR$(Sid)
  FOR Tmp = Y1 + 1 TO Y2 - 1
   LOCATE Tmp, X1, 0 : ?  A$; : LOCATE Tmp, X2, 0 : ?  A$;
  NEXT Tmp
  LOCATE Y2, X1, 0
  A$ = CHR$(Blc) & REPEAT$(X2 - X1 - 1, CHR$(Tb)) & CHR$(Brc) : PRINT A$;
  LOCATE Y1, X1 + (X2 - X1) / 2 - (LEN(Title$) * .5), 1 : PRINT "[ ",Title$," ]";
  LOCATE Y2 + 1, X1, 0
 END SUB

Result:

 Result not displayed for this example.