BCX Console Demonstration Program s54.bas

 DIM A
 
 GLOBAL Buffer$ * (1000 * LEN("Line No. ") + 1000 * 10)
 
 FOR A = 1 TO 1000
   Buffer$ = Buffer$ & "Line No. " & STR$(A) & CHR$(13) & CHR$(10)
 NEXT
 
 PRINT Buffer$
 
 A = LEN(Buffer$)
 
 PRINT "The length of Buffer$ = ", A, " bytes."
 
 FREE Buffer$ 'release memory back to Windows