projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e9623c698453494598e83cbfc641ab85ffac9fb8
[qbasicapps.git]
/
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