org 100h
          jmp short start
          db " Inhahe '98", 0, 26
start:    mov bx, 2000
          xor ax, ax
          int 1ah
          mov [rseed], dx
here:       push dword 3
            call lincon
            pop eax
            sub ax, 1
            add bx, ax
            cmp bx, 100
            jb undo
            cmp bx, 10000
            jna noundo
undo:       sub bx, ax
noundo:     push bx
            call sound
            call delay
            mov ah, 1
            int 16h
            pop bx
          jz here
          call nosound
          mov ax, 4c00h
          int 21h

delay:    mov ah, 86h
          xor cx, cx
          mov dx, 2000h
          int 15h
          ret

%include 'sound.asm'
%include 'lincon.asm'
section .bss