stksg segment stack
db 32 dup("stack")
stksg ends
datasg segmant para 'para'
main proc farret

assume cs:codesg
mov ah,6h ;clear screen
mov al,25 ;number of rows
mov ch,0
mov cl,0
mov dh,24 ;row
mov dl,79 ;column
mov bh,7 ;attribute
int 10h
mov ah,09h;request display
mov al,03h;heart to be display
mov bh,0
mov bl,0f0h;attribute
mov cx,20 ;number of print
int 10h
mov ax,4c00h
int 21h
main endp
codesg ends
end main