4a3
        jmp start

string: db 'COLOR'
len equ $-string
col_nmb db 0
green db 0
red db 0
blue db 0

start:
        mov ah,00H
        mov al,05fH             ;640x480, 256 colors
        int 10H

        mov ah,05H
        mov al,00H
        int 010H

        push bp
        
        mov ah,06H
        mov al,00H
        mov bh,00H
        mov ch,0
        mov cl,0
        mov dh,29
        mov dl,79
        int 10H

        pop bp
        
        mov bl,00H

        mov dl,0
        mov dh,0
        
        mov cx,15

loop1:        
        push cx
        push dx
        
        mov dh,0
        mov cx,30
loop2:
        push cx
        push dx

        mov ah,13H
        mov al,01H
        mov bh,0
        mov bp,string
        mov cx,len
        int 10H
        
        pop dx
        inc dh
        inc bl
        
        pop cx
        loop loop2
        
        pop dx
        add dl,5
        pop cx
        loop loop1



        mov ah,00H
        int 16H

        
        mov ah,00H
        mov al,03H
        int 10H
        
        
        mov ax,04c00
        int 21H



.

0