![]() |
BCX Console Demonstration Program S38.bas |
' -------------------------------------------------------------------------
' This is meant to show off the use of colon separated compound statements
' -------------------------------------------------------------------------
DIM
a:COLOR
7
,0
:cls
:FOR
a=
1
TO
24
:?"This is line number"
,a:NEXT
?"This is line number"
,a+
+
;:CALL
PANEL
(
5
,10
,20
,20
,15
,1
,32
,0
)
LOCATE
1
,50
,0
:INPUT
a:CALL
PANEL
(
5
,10
,20
,20
,15
,4
,32
,1
)
:LOCATE
1
,1