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

Result:

The value of pi: 3.14159265358979

The answer is >>The value of pi: 3.14159265358979
The answer is >>The value of pi: 3.14159265358979
The answer is >>The value of pi: 3.14159265358979
The answer is >>The value of pi: 3.14159265358979
The answer is >>The value of pi: 3.14159265358979

The value of pi: 3.14159265358979
The value of pi: 3.14159265358979
The value of pi: 3.14159265358979
The value of pi: 3.14159265358979
The value of pi: 3.14159265358979