cseg segment
        assume  cs:cseg,ds:cseg

        org     100h
clr:    jmp     start
str     db      27,'[0;120;0;120p',27,'[0;121;0;121p'
        db      27,'[0;122;0;122p',27,'[0;123;0;123p'
        db      27,'[0;124;0;124p',27,'[0;125;0;125p'
        db      27,'[0;126;0;126p',27,'[0;127;0;127p'
        db      27,'[0;16;0;16p',27,'[0;17;0;17p'
        db      27,'[0;18;0;18p',27,'[0;19;0;19p'
        db      27,'[0;20;0;20p',27,'[0;21;0;21p'
        db      27,'[0;22;0;22p',27,'[0;30;0;30p'
        db      27,'[0;31;0;31p',27,'[0;32;0;32p'
        db      27,'[0;33;0;33p',27,'[0;34;0;34p'
        db      27,'[0;44;0;44p',27,'[0;45;0;45p'
        db      27,'[0;46;0;46p',27,'[0;47;0;47p'
strlth  equ     $-str

start   proc    near
        mov     bx,0001h
        mov     cx,strlth
        mov     dx,offset str
        mov     ah,40h
        int     21h
        ret
start   endp

cseg    ends
        end     clr