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 a
 ? "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