
'----------------------------
'APPENDING INTO STRING BUFFER
'============================


  dim i,j as long
  dim s,t as string
  j=1
  s=space 500
  for i=1 to 10
    t=str(i) chr(9) chr(i+64) chr(13) chr(10)
    mid (s,j)=t
    j+=len t
  next

  print left s,j-1

