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

Result:

Result not displayed for this example.