BCX Console Demonstration Program s19.bas

 '================================== 
 ' This is a remark 
 '================================== 
 
 DIM a$
 DIM b$[6]
 DIM i
 
 a$ = "The " & "value " & "of " & "pi:" & STR$(ATN(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$(ATN(1.0) * 4.0)
 NEXT i