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.