%include "gt.asm"
          covar
hulpd:    resd 1
hulpd1:   resd 1
totaalb:  resd 1
totaala:  resd 1
honderd:  dd 100
veertig:  dd 40
inarea:   resb 70
outarea:  resb 70
          DB 0Dh, 0Ah

          inleiding

          openin

          openuit

hoger:    cld
          lees

          cmp eax, 0
          je eof

          mov ecx, 70
          mov al, ' '
          mov edi, outarea
          rep stosb

          mov ecx, 35
          mov esi, inarea
          mov edi, outarea
          rep movsb

          mov ecx, 5
          mov esi, inarea + 20
          tekstbin
          mov [hulpd], eax


          mov ecx, 5
          mov esi, inarea + 30
          tekstbin
          imul dword [hulpd]
          mov [hulpd], eax
          add eax, [totaalb]
          mov [totaalb], eax
          mov eax, [hulpd]

          mov ebx, 10
          std
          mov edi, outarea + 49
lus:      mov edx, 0
          idiv ebx
          or dl, 30h
          xchg al, dl
          stosb
          xchg al, dl
          cmp eax, 0
          jne lus

          mov eax, [hulpd]
          sub edx, edx
          idiv dword [honderd]
          imul dword [veertig]
          mov [hulpd1], eax
          add eax, [totaala]
          mov [totaala], eax
          mov eax, [hulpd1]


          mov ebx, 10
          std
          mov edi, outarea + 59
lus1:     mov edx, 0
          idiv ebx
          or dl, 30h
          xchg al, dl
          stosb
          xchg al, dl
          cmp eax, 0
          jne lus1


          schrijf


          jmp hoger


eof:      mov ecx, 70
          mov al, ' '
          mov edi, outarea
          rep stosb

          schrijf

          mov eax, [totaalb]
          mov ebx, 10
          std
          mov edi, outarea + 49
lus2:     mov edx, 0
          idiv ebx
          or dl, 30h
          xchg al, dl
          stosb
          xchg al, dl
          cmp eax, 0
          jne lus2

          mov eax, [totaala]
          mov ebx, 10
          std
          mov edi, outarea + 59
lus3:     mov edx, 0
          idiv ebx
          or dl, 30h
          xchg al, dl
          stosb
          xchg al, dl
          cmp eax, 0
          jne lus3



          schrijf

          slot