cseg segment
        assume  cs:cseg,ds:cseg

        org     100h
key:    jmp     start
str     db      27,'[0;120;"%%201"p',27,'[0;121;"%%202"p'
        db      27,'[0;122;"%%203"p',27,'[0;123;"%%204"p'
        db      27,'[0;124;"%%205"p',27,'[0;125;"%%206"p'
        db      27,'[0;126;"%%207"p',27,'[0;127;"%%208"p'
        db      27,'[0;16;"%%209"p',27,'[0;17;"%%210"p'
        db      27,'[0;18;"%%211"p',27,'[0;19;"%%212"p'
        db      27,'[0;20;"%%213"p',27,'[0;21;"%%214"p'
        db      27,'[0;22;"%%215"p',27,'[0;30;"%%c"p'
        db      27,'[0;31;"%%d"p',27,'[0;32;"%%130"p'
        db      27,'[0;33;"%%131"p',27,'[0;34;"%%132"p'
        db      27,'[0;44;"%%133"p',27,'[0;45;"%%134"p'
        db      27,'[0;46;"%%135"p',27,'[0;47;"%%u"p'
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     key