BCX Console Demonstration Program S35.bas

 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