BORDER.SUB - Prints a pretty border around the screen
! new limits for screen interaction:    row 2, column 2 to
!                                       row 23, column 78
! Needs no map statements, may be ++INCLUDEd into any BASIC program
! uses the variable n for it's loops
! 3/7/83 ske
! This is a basic include for SET925.BAS
BORDER:
       ? tab(1,1); "+";
       for n = 2 to 78
           ? tab(1,n); "-";
       next n
       ? "+";

       for n = 2 to 22
           ? tab(n,79); "|";
       next n
       ? tab(23,79); "+";

       for n = 78 to 2 step - 1
           ? tab(23,n); "-";
       next n
       ? tab(23,1); "+";

       for n = 22 to 2 step - 1
           ? tab(n,1); "|";
       next n
       return

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.