buffer: ub 'buffer',0
  .szUsed = $-buffer
  align MAX_PATH
  .szFull = $-buffer
  .shift_0ff0.. = 0
  .shift_count = .szUsed-1

  if (  ShiftInBuffer(buffer .szUsed .szFull .shift_0ff0.. .shift_count)  )='ok'
     msg buffer
  else
     err 'ShiftInBuffer returned error'
  end if
