Do Until input=''
  input=linein(stdin)
  Call lineout ,input
  End