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