org 100h
         mov ax, 0xA000
         mov es, ax
         mov cx, 100
           mov ax, 13h
           int 10h

here2:
           mov [rseed], cx
           push dword 320*200
           call lincon
           pop edi
           mov [color], cl
           push cx
           mov cx, 10000
           mov bx, 320
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
         pop cx
         loop here2

         xor ax, ax
         int 16h

         mov ax, 3
         int 10h

         mov ax, 4c00h
         int 21h

%include 'lincon.asm'
%include 'decout.asm'

color db 0

tail     dw 1000
tailbuff: