From b89becfc316a559e2a3473bbd2ccde626004d153 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Mon, 27 Feb 2017 04:46:55 -0800
Subject: [PATCH] Make beeps more interesting

---
 modules/compiler_vm/languages/_default.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/modules/compiler_vm/languages/_default.pm b/modules/compiler_vm/languages/_default.pm
index 2d786133..3f4da38a 100755
--- a/modules/compiler_vm/languages/_default.pm
+++ b/modules/compiler_vm/languages/_default.pm
@@ -150,7 +150,9 @@ sub postprocess_output {
   }
   $self->{output} = $boutput;
 
-  $self->{output} =~ s/\007/*BEEP*/g;
+  my @beeps = qw/*BEEP* *BING* *DING* *DONG* *CLUNK* *BONG* *PING* *BOOP* *BLIP* *BOP* *WHIRR*/;
+
+  $self->{output} =~ s/\007/$beeps[rand @beeps]/g;
 }
 
 sub show_output {