include qlib.inc
include stdio.inc
include dos.inc
include conio.inc

.code
main proc
  callp sound,11340
  callp delay,250   ;1/4sec
  callp sound,22340
  callp delay,250   ;1/4sec
  callp sound,5440
  callp delay,100   ;1/10sec

  mov bx,30000
  mov cx,30
@@:
  callp sound,bx
  callp delay,25
  sub bx,1000
  dec cx
  jnz @b

  call nosound  ;I spell relief "N O S O U N D"

  ret
main endp

end