Now this would type the string char by char. add a delay and u get to see the string as if its typed one char at a time

typestring proc near           ;requires offset of messagein si ,row ,coloumn
    push ax bx cx dx si di     ;attrf
    mov bx,0b800h
    mov es,bx
    mov ax,row
    mov bx,160
    mul bx
    mov di,ax
    mov bx,2
    mov ax,coloumn
    mul bx
    add di,ax
    push cs
    pop ds
    loop_typestring_12:
          mov al,byte ptr [si]
          cmp al,'$'
          je exit_typestring
          mov es:[di],al
          inc di
          mov al,attrf
          mov es:[di],al
          inc di
          inc si
          call delay
          jmp loop_typestring_12
    exit_typestring:
    pop di si dx cx bx ax
    ret
row dw 0
coloumn dw 0
endp