assume cs:code
data segment
  db 'word',0
  db 'unix',0
  db 'wind',0
  db 'good',0
data ends

code segment
start:	mov ax,data
      	mov ds,ax
      	mov bx,0

	mov cx,4
    s:	mov si,bx
	call capital
	add bx,5
	loop s

      	mov ax,4c00h
      	int 21h

capital:mov cl,[si]
	mov ch,0
	jcxz ok
	and byte ptr [si],11011111b
	inc si
	jmp short capital
    ok:ret

code ends

end start