--- microapl.orig	2009-01-07 01:40:57.000000000 +0900
+++ microapl	2009-06-23 08:45:00.000000000 +0900
@@ -37,7 +37,7 @@
 	fi
 
 	# Build expression and pass it to sed, due to evaluation.
-	expr="s/^.{$(($octave*4))\}\(.\{4\}\).*/\1/"
+	expr="s/^.\{$(($octave*4))\}\(.\{4\}\).*/\1/"
 	local result="$(echo $NOTESTRING | sed $expr)"
 	if [ -n "$result" ] ; then
 	  echo -n $result
@@ -159,7 +159,7 @@
 			  shift
 			  shift
 			  parse led_set_cpu_mcon 15
-			  $MICRO_q 0253$(note_to_freq $1)
+			  $MICRO_q 02530000
 			  parse bz_on on
 			  for i in $@ ; do
 			    $MICRO_q 0253$(note_to_freq $i)
@@ -182,7 +182,7 @@
 			  TIME="$(($2 / 1000)).$(printf '%03d' $(($2 % 1000)))"
 			  shift
 			  shift
-			  $MICRO_q 0253$(note_to_freq $1)
+			  $MICRO_q 02530000
 			  parse bz_on on
 			  for i in $@ ; do
 			    $MICRO_q 0253$(note_to_freq $i)