        mov  ah,2Fh
        int  21h
        mov  SSS,bx
        mov  ah,4Eh
        lea  dx,Pattern
        mov  cl,3Fh
        int  21h
        add  bx,1Eh
        mov  cx,13
@l:     mov  al,es:[bx]
        cmp  al,00
        je   @Q
        mov  ah,0Eh
        int  10h
        add  bx,1
        loop @l

@Q:     mov  ax,0E0Ah
        int  10h
        mov  ax,0E0Dh
        int  10h

        mov  ah,4Fh
        lea  dx,Pattern
        mov  cl,3Fh
        int  21h
        cmp  al,12h
        je   @Exit
        mov  bx,SSS
        add  bx,1Eh
        mov  cx,13
@l1:    mov  al,es:[bx]
        cmp  al,00
        je   @Q
        mov  ah,0Eh
        int  10h
        add  bx,1
        loop @l1
@Exit:
        lea  dx,By
        mov  ah,09
        int  21h
        int  20h

Pattern db   "*.*"
        db   00
SSS     dw   00
By      db   7,7,"Вот и все...",10,13,"$"
        end