variable s_dest,0x20000
code s
      upop [s_dest]
      mov [tp],dword tib
.0	call interface
      call key
	cmp al,10
	je .done
	  xchg edi,[tp]
	  stosb
	  xchg [tp],edi
	  drop
	  jmp short .0
.done	push ecx	;move string to a safer place...
	push edi
	mov edi,[s_dest]
	mov eax,edi	;push addr
	dup
	push esi
	mov ecx,[tp]
	mov esi,tib
	sub ecx,esi
	mov eax,ecx	;push length
	rep movsb
	pop esi
	pop edi
	pop ecx
next
