DIM OrigCodePage%
OrigCodePage% = GetConsoleOutputCP()
SetConsoleOutputCP(437)

DrawBox(20, 5, 60, 20, 3, 4, 11, 9, 3, "BCX  ROCKS!")

WHILE NOT INSTAT
  LOCATE 12, 34, 0
  COLOR 4, 9
  PRINT "BCX  ROCKS!";
  SLEEP(200)
  LOCATE 12, 34, 0
  COLOR 15, 9
  PRINT "BCX  ROCKS!";
  SLEEP(200)
WEND
COLOR 7,0 : CLS

SetConsoleOutputCP(OrigCodePage)
  
SUB DrawBox (X1, Y1, X2, Y2, Bdrfg ,Bdrbg, Winfg, Winbg, Style, Title$)
  LOCAL Tb, Sid, Tlc, Trc, Blc, Brc, Tmp, Temp$

  SELECT CASE Style
    '----------------------------------------------------------------- 
  CASE 1         'Single Sides,Top And Bottom 
    '----------------------------------------------------------------- 
    Tb=196  :  Sid=179  :  Tlc=218  :  Trc=191  :  Blc=192  :  Brc=217
    '----------------------------------------------------------------- 
  CASE 2         'Double Sides,Top And Bottom 
    '----------------------------------------------------------------- 
    Tb=205  :  Sid=186  :  Tlc=201  :  Trc=187  :  Blc=200  :  Brc=188
    '----------------------------------------------------------------- 
  CASE 3         'Single Sides,Double Top And Bottom 
    '----------------------------------------------------------------- 
    Tb=205  :  Sid=179  :  Tlc=213  :  Trc=184  :  Blc=212  :  Brc=190
    '----------------------------------------------------------------- 
  END SELECT

  Temp$ = CHR$(Tlc) & STRING$(X2 - X1 - 2, Tb) & CHR$(Trc)
  LOCATE Y1, X1, 0 : COLOR Bdrfg, Bdrbg : PRINT Temp$;
  LOCATE Y1, ((X1 + X2) / 2) - (LEN(Title$) / 2), 0 : PRINT Title$;

  FOR Tmp = Y1 + 1 TO Y2 - 1
    COLOR Bdrfg, Bdrbg
    LOCATE Tmp, X1, 0 : PRINT CHR$(Sid);
    COLOR Winfg, Winbg : PRINT SPACE$(X2 - X1 - 2);
    COLOR Bdrfg, Bdrbg : PRINT CHR$(Sid);
  NEXT

  Temp$ = CHR$(Blc) & STRING$(X2 - X1 - 2, Tb) & CHR$(Brc)
  LOCATE Y2, X1, 0 : PRINT Temp$;
END SUB

Result:

Result not displayed for this example.