diff --git a/src/system.inc b/src/system.inc
--- a/src/system.inc
+++ b/src/system.inc
@@ -318,7 +318,20 @@
 ; Call:	---
 ; Use:	---
 ;
+	numdef BIOSBEEP, 1
 beep:
+%if _BIOSBEEP
+	push ax
+	push bx
+	push bp
+	mov ax, 0E07h
+	mov bx, 7
+	int 10h
+	pop bp
+	pop bx
+	pop ax
+	retn
+%else
 		push	ax
 		push	cx
 		in	al,61h
@@ -340,6 +353,7 @@
 		pop	cx
 		pop	ax
 		ret
+%endif
 ;=============================================================================
 ; ascii_to_bin
 ;-----------------------------------------------------------------------------