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