TITLE MASM Vstup_vystup(main.asm)
INCLUDE Irvine32.inc
.data
R DB 21 dup (0)
S DB 21 dup (?)
X DB 21 dup (?)
.code
main PROC
	mov edi,0
    call Clrscr
    mov eax,0
	mov ebx,0

    mov edx,offset R
    mov ecx,21
	call ReadString
    mov ebx,offset X
    call ReadChar
	mov X,al
Zaciatok:
    mov al,[edx+edi]
    cmp al,0
    je Koniec
    cmp al,X
    je Zvys
	Call WriteChar
	inc edi
	jmp Zaciatok

Zvys:
    inc edi
    jmp Zaciatok



Koniec:

exit
main ENDP
END main