BCX Console Demonstration Program S19.bas

 '==================================
 ' This is a remark
 '==================================
 
 DIM a$
 DIM b$[6]
 DIM i
 
 a$ = "The " & "value " & "of " & "pi:" & STR$(ATAN(1.0) * 4.0)
 
 ? a$
 ?
 
 FOR i = 1 TO 5
   b$[i] = a$
 NEXT i
 
 FOR i = 1 TO 5
   ? "The answer is >>", b$[i]
 NEXT i
 ?
 FOR i = 1 TO 5
   ? "The ", "value ", "of ", "pi:", STR$(ATAN(1.0) * 4.0)
 NEXT i