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