.model small
        .stack 100h
        .data
ende	db	 10 , 13 ,'End!', 10 , 13 
endelen	equ	$-ende
star	db	'*'
msg11	db	'Enter word='
len11	equ	$-msg11
buf	db	 80  dup( 0 )
buflen	dw	?
;buflen	equ	$-buf
;buflen	dw	 0 
ln	dw	 0 	
x1	db	 0 
y1	db	 0 
	
;Ввод строки функцией 0x3Fh
inmes	macro	mes,len
	mov	ah,3fh
	mov	bx, 0 
	mov	cx, 80 
	mov	dx,offset mes
	int	21h
	sub	ax, 2 
	mov	len,ax
endm


;макрос задержки на time условных тактов
delay	macro	time
	local	inner,outer
	mov	cx,time
outer:	push	cx
	xor	cx,cx
inner:	loop	inner
	pop	cx
	loop	outer
endm
	
;макрос файлового вывода строки mes длиной len
outmes	macro	mes,len	
	mov	ah,40h
        mov     bx, 1 
        mov     cx,len
        mov     dx,offset mes
        int 	21h
	endm

	
;макрос консольной приостановки до нажатия клавиши
;после нажатия клавиши два байта поступают в регистр АХ;
;макрос может использоваться для очистки консольного буфера
stop	macro
	mov	ah, 0 
	int	16h
	endm

;макрос очистки экрана
clrscr	macro
	mov	ax, 3 
	int	10h
endm

slovo	macro	buf3,len,x,y,atr
	push	es
	mov	ax,ds
	mov	es,ax
	mov	ah,13h
	mov	al, 1 
	mov	bh, 0 
	mov	bl,atr
	mov	cx,len
	mov	dh,y
	mov	dl,x
	mov	bp,offset buf3
	int	10h
	pop	es
endm

        .code
        mov     ax,@data
        mov     ds,ax
	clrscr
	outmes	msg11,len11
	inmes	buf,ln
	stop	;после нажатия любой клавиши
	clrscr
again:	slovo	buf,ln,x1,y1, 12 
	add	x1, 2 
	cmp	x1, 73 
;	ja	
	add	x1, 0 
	cmp	y1, 0 
	jne	next
	add	x1, 0 
	mov	dx,ln
	add	x1,dl
	mov	y1, 0 	
next:	delay	 1000 
	mov	ah, 1 
	int	16h
	jz	again
	stop
	cmp	ax,011Bh	;Escape Code
	je	endprog
	jmp	again	
endprog:outmes	ende,endelen
	stop
	mov	ax,4C00h
	int	21h
end