CLS
COLOR  7  , 0 
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i =  1  TO  6         'print basic box
IF i =  1  OR i =  6  THEN 
LOCATE i,  12 , 0 
COLOR  7 ,  0 
PRINT STRING$( 55 ,  219 )   'bottom edge 
ELSE                                      'else print sides
LOCATE i,  12 
PRINT CHR$( 219 )
LOCATE i,  66 
 PRINT CHR$( 219 )
LOCATE i,  13 
PRINT STRING$( 53 , 32) 
END IF
NEXT
'add shadowing
FOR i =  2  TO  7 
                   'add right edge
LOCATE i,  67 
PRINT STRING$(2,  177 )
IF i >  6  THEN                      'print bottom
LOCATE i,  14 
PRINT STRING$( 54 ,  177 ) 
END IF
NEXT
FOR i =  9  TO  21      'print basic box
IF i >=  9  OR i <=  21  THEN    'print box filler
LOCATE i , 62 , 0 
COLOR  7 , 1 
PRINT STRING$( 13 ,  219 )  
END IF
NEXT
        'add shadowing
FOR i =  10  TO  22     'add right edge
LOCATE i,  75 
PRINT STRING$(2,  177 )
IF i >  21  THEN                      'print bottom
LOCATE i,  64 
PRINT STRING$( 12 ,  177 )
END IF
NEXT
CLS
COLOR  7  , 0 
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i =  9  TO  21         'print basic box
IF i =  9  OR i =  21  THEN 
LOCATE i,  26 , 0 
COLOR  7 ,  0 
PRINT STRING$( 32 ,  219 )   'bottom edge 
ELSE                                      'else print sides
LOCATE i,  26 
PRINT CHR$( 219 )
LOCATE i,  57 
 PRINT CHR$( 219 )
LOCATE i,  27 
PRINT STRING$( 30 , 32) 
END IF
NEXT
'add shadowing
FOR i =  10  TO  22 
                   'add right edge
LOCATE i,  58 
PRINT STRING$(2,  177 )
IF i >  21  THEN                      'print bottom
LOCATE i,  28 
PRINT STRING$( 31 ,  177 ) 
END IF
NEXT
CLS
COLOR  7  , 0 
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i =  9  TO  14         'print basic box
IF i =  9  OR i =  14  THEN 
LOCATE i,  6 , 0 
COLOR  7 ,  0 
PRINT STRING$( 13 ,  219 )   'bottom edge 
ELSE                                      'else print sides
LOCATE i,  6 
PRINT CHR$( 219 )
LOCATE i,  18 
 PRINT CHR$( 219 )
LOCATE i,  7 
PRINT STRING$( 11 , 32) 
END IF
NEXT
'add shadowing
FOR i =  10  TO  15 
                   'add right edge
LOCATE i,  19 
PRINT STRING$(2,  177 )
IF i >  14  THEN                      'print bottom
LOCATE i,  8 
PRINT STRING$( 12 ,  177 ) 
END IF
NEXT
FOR i =  17  TO  21      'print basic box
IF i >=  17  OR i <=  21  THEN    'print box filler
LOCATE i , 2 , 0 
COLOR  7 , 1 
PRINT STRING$( 21 ,  219 )  
END IF
NEXT
        'add shadowing
FOR i =  18  TO  22     'add right edge
LOCATE i,  23 
PRINT STRING$(2,  177 )
IF i >  21  THEN                      'print bottom
LOCATE i,  4 
PRINT STRING$( 20 ,  177 )
END IF
NEXT