org 100h
         mov ax, 13h
         int 10h
         mov ax, 0xa000
         mov es, ax

         xor ax, ax
         int 1ah
         mov [st], dx
gett:      int 1ah
           cmp dx, [st]
           je gett
         add word [st], 91

         xor cx, cx
here2:   xor ax, ax
         xor bx, bx
here:    push ax
         push bx
         push word 160
         push word 100
         push ax
         call line
         inc ax
         cmp ax, 320
         jnge here
         inc word [count]
         xor ax, ax
         int 1ah
         cmp dx, [st]
         jge stop
         inc bx
         cmp bx, 200
         jnge here
         jmp here2

stop:    mov ax, 3
         int 10h
         mov eax, [count]
         shl eax, 6
         call decout
         mov ax, 4c00h
         int 21h

st       dw 0
count    dd 0

%include 'decout2.asm'

%include 'line3p2.asm'