tutorial/group2/05.bas

   1 CLS\r
   2 \r
   3 INPUT "Horisontal size (2 to 79):", hs\r
   4 INPUT "Vertical size (2 to 23):", vs\r
   5 \r
   6 \r
   7 FOR i = 1 TO hs         ' make top of the box\r
   8   PRINT "#";\r
   9 NEXT i\r
  10 PRINT\r
  11 \r
  12 FOR y = 1 TO vs - 2     ' make main box area\r
  13   PRINT "#";\r
  14   FOR i = 1 TO hs - 2\r
  15     PRINT ".";\r
  16   NEXT i\r
  17   PRINT "#"\r
  18 NEXT y\r
  19 \r
  20 FOR i = 1 TO hs         ' make last line of the box\r
  21   PRINT "#";\r
  22 NEXT i\r
  23 PRINT\r
  24 \r