.data
prompt BYTE "Enter a string", 0dh, Oah, 0
text BYTE 101 DUP(?)
.code
main proc
mov edx, OFFSET prompt
call WriteString
mov edx, OFFSET text
mov ecx, 100
call ReadString
mov ebx, 0
mov edx, OFFSET text
call StrLength
mov ecx, eax
L1:
mov al, text[ebx]
call WriteChar
call Crlf
inc ebx
loop L1
invoke ExitProcess, 0
main endp
end main