' ------------------------------------------------------------------------- 
 ' 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

Result:

 Result is not displayed for this example.