org 100h
         mov ax, 0xA000
         mov es, ax

here2:
           mov ax, 13h
           int 10h
           push dword 320*200
           call lincon
           pop edi
           mov bx, 320
           mov cx, 10000
           cmp [color], byte 15
           mov [color], byte 15
           jne here
            mov [color], byte 12
here:        push dword 3
             call lincon
             pop eax
             dec ax
             add di, ax
             push dword 3
             call lincon
             pop eax
             xor dx, dx
             mul bx
             sub ax, 320
             add di, ax
             mov al, [color]
             mov [es:di], al
           loop here
;           cmp [color], byte 15
;           jne here2
            mov ah, 1
            int 16h
            jz here2

         mov ax, 3
         int 10h
         mov dx, msg
         mov ah, 9
         int 21h
         mov ax, 4c00h
         int 21h

msg db " Wicked I", 13, 10, "Inhahe '98$"

%include 'lincon.asm'
;%include 'junk\decout.asm'

color db 0

;tail     dw 1000
;tailbuff: