.model small
.code
org 100h
start:
	mov ah,	3ch
	mov cx,	0
	mov dx,	offset fname
	int 21h
	jc  error
	mov bx,ax

loop1:	mov ah,	0Ah
	mov dx,	offset leng
	int 21h
	mov di,	offset reals
	cmp byte ptr [di],0
	je inend
	mov di,	offset reals
	mov cl,	[di]
	mov ch,	0
	mov dx,	offset inpstr
	mov ah,	40h
	int 21h
	jmp loop1

inend:	mov ah,	3eh
	int 21h
error:	int 20h	
fname	db 'text.txt',0
leng	db 128
reals	db ?
inpstr	db 128 dup (?)  
end start