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