![]() |
BCX Console Demonstration Program S35.bas |
DIM
a SetConsoleTitle(
"BCX Demonstration"
)
COLOR
15
,1
Frame(
15
,10
,65
,20
)
INPUT
aCOLOR
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=
y1TO
y2FOR
x=
x1TO
x2LOCATE
y, x,0
" "
;NEXT
xNEXT
yEND
SUB