diff --git a/games/keen/sound/dump_ck1.c b/games/keen/sound/dump_ck1.c
index b798b1fa..9cac4371 100644
--- a/games/keen/sound/dump_ck1.c
+++ b/games/keen/sound/dump_ck1.c
@@ -89,8 +89,9 @@ int main(int argc, char **argv) {
 	}
 
 
-	i=14;
-	printf("Dump of %s\n",sound_info[i].name);
+	for(i=0;i<num_sounds;i++) {
+
+	printf("%s:\n",sound_info[i].name);
 	lseek(fd,sound_info[i].offset,SEEK_SET);
 
 	last=0xffff;
@@ -130,6 +131,9 @@ int main(int argc, char **argv) {
 
 		if (sample==0xffff) break;
 	}
+	printf(".byte 255,255\n");
+	}
+
 	/* close */
 	close(fd);
 
diff --git a/music/redbook_sound/Makefile b/music/redbook_sound/Makefile
index 661ea1ac..707531a9 100644
--- a/music/redbook_sound/Makefile
+++ b/music/redbook_sound/Makefile
@@ -22,7 +22,7 @@ HELLO:	hello.bas
 TEST_KEEN:	test_keen.o
 	ld65 -o TEST_KEEN test_keen.o -C $(LINKER_SCRIPTS)apple2_c00.inc
 
-test_keen.o:	test_keen.s lvldone.inc redbook_sound.s
+test_keen.o:	test_keen.s longer_sound.s ck1_sounds.inc
 	ca65 -o test_keen.o test_keen.s -l test_keen.lst
 
 
diff --git a/music/redbook_sound/longer_sound.s b/music/redbook_sound/longer_sound.s
new file mode 100644
index 00000000..277527c7
--- /dev/null
+++ b/music/redbook_sound/longer_sound.s
@@ -0,0 +1,48 @@
+; Based on redbook_sound.s
+
+; it's originally by Paul Lutus, from the Apple II Red Book p45
+;	which can only do roughly 194Hz to 2000Hz+
+
+; this makes things twice as long, which allows lower notes, but
+;	loses some precision on high notes
+
+; also modified so "0" means no sound
+
+
+;=====================================================
+; speaker tone
+;=====================================================
+; A,X,Y trashed
+; duration also trashed
+
+	; more exactly, it is (4+10F)+(13+10F) = 20F+17
+
+speaker_tone:
+	ldy	#0							; 3
+speaker_tone_loop:
+	lda	$C030		; click speaker				; 4
+speaker_loop:
+	nop
+	nop
+	nop
+	nop
+	nop
+
+	dey			;					; 2
+	bne	freq_loop	;					; 2/3
+	dec	speaker_duration	; (Duration)			; 6
+	beq	done_tone						; 2/3
+freq_loop:
+	dex								; 2
+	bne	speaker_loop						; 2/3
+	ldx	speaker_frequency	; (Frequency)			; 4
+	beq	speaker_loop		; play nothing if 0		; 2/3
+	jmp	speaker_tone_loop					; 3
+done_tone:
+	rts
+
+speaker_duration:
+	.byte	$00
+speaker_frequency:
+	.byte	$00
+
diff --git a/music/redbook_sound/test_keen.s b/music/redbook_sound/test_keen.s
index b91105dc..39bea6ef 100644
--- a/music/redbook_sound/test_keen.s
+++ b/music/redbook_sound/test_keen.s
@@ -27,14 +27,15 @@ play_loop:
 	ldy	SOUND_OFFSET
 	lda	(INL),Y
 	sta	speaker_frequency
+
 	iny
 	lda	(INL),Y
 	cmp	#$FF
 	beq	play_done
 
 	asl
-	clc
-	adc	LVLDONESND,Y
+;	clc
+;	adc	(INL),Y
 
 	sta	speaker_duration
 	iny
@@ -61,32 +62,32 @@ play_done:
 
 
 
-.include "redbook_sound.s"
+.include "longer_sound.s"
 .include "ck1_sounds.inc"
 
 
 sounds_low:
-	.byte <WLDWALKSND,<WLDBLOCKSND<WLDENTERSND,<KEENWALKSND
+	.byte <WLDWALKSND, <WLDBLOCKSND,<WLDENTERSND,<KEENWALKSND
 	.byte <KEENBLOKSND,<KEENJUMPSND,<KEENLANDSND,<KEENDIESND
-	.byte <GOTBONUSSND,<GOTITEMSND,<GOTPARTSND,<KEENFIRESND
-	.byte <KEENPOGOSND,<POGOJUMPSND,<LVLDONESND,<GAMEOVERSND
-	.byte <HISCORESND,<TELEPORTSND,<CHUNKSMASH,<GOINDOORSND
-	.byte <BUMPHEADSND,<USEKEYSND,<CANNONFIRE,<SLAMSND
-	.byte <CLICKSND,<CRYSTALSND,<PLUMMETSND,<EXTRAMANSND
-	.byte <YORPBUMPSND,<KEENWLK2SND,<YORPBOPSND,<GETCARDSND
-	.byte <DOOROPENSND,<YORPSCREAM,<GARGSCREAM,<GUNCLICK
-	.byte <SHOTHIT,<TANKFIRE,<vortscream,<keencicle
-	.byte <keensleft,<EARTHPOW,$FF
+	.byte <GOTBONUSSND,<GOTITEMSND, <GOTPARTSND, <KEENFIRESND
+	.byte <KEENPOGOSND,<POGOJUMPSND,<LVLDONESND, <GAMEOVERSND
+	.byte <HISCORESND, <TELEPORTSND,<CHUNKSMASH, <GOINDOORSND
+	.byte <BUMPHEADSND,<USEKEYSND,  <CANNONFIRE, <SLAMSND
+	.byte <CLICKSND,   <CRYSTALSND, <PLUMMETSND, <EXTRAMANSND
+	.byte <YORPBUMPSND,<KEENWLK2SND,<YORPBOPSND, <GETCARDSND
+	.byte <DOOROPENSND,<YORPSCREAM, <GARGSCREAM, <GUNCLICK
+	.byte <SHOTHIT,    <TANKFIRE,   <vortscream, <keencicle
+	.byte <keensleft,  <EARTHPOW,   $FF
 
 sounds_high:
-	.byte >WLDWALKSND,>WLDBLOCKSND>WLDENTERSND,>KEENWALKSND
+	.byte >WLDWALKSND, >WLDBLOCKSND,>WLDENTERSND,>KEENWALKSND
 	.byte >KEENBLOKSND,>KEENJUMPSND,>KEENLANDSND,>KEENDIESND
-	.byte >GOTBONUSSND,>GOTITEMSND,>GOTPARTSND,>KEENFIRESND
-	.byte >KEENPOGOSND,>POGOJUMPSND,>LVLDONESND,>GAMEOVERSND
-	.byte >HISCORESND,>TELEPORTSND,>CHUNKSMASH,>GOINDOORSND
-	.byte >BUMPHEADSND,>USEKEYSND,>CANNONFIRE,>SLAMSND
-	.byte >CLICKSND,>CRYSTALSND,>PLUMMETSND,>EXTRAMANSND
-	.byte >YORPBUMPSND,>KEENWLK2SND,>YORPBOPSND,>GETCARDSND
-	.byte >DOOROPENSND,>YORPSCREAM,>GARGSCREAM,>GUNCLICK
-	.byte >SHOTHIT,>TANKFIRE,>vortscream,>keencicle
-	.byte >keensleft,>EARTHPOW,$FF
+	.byte >GOTBONUSSND,>GOTITEMSND, >GOTPARTSND, >KEENFIRESND
+	.byte >KEENPOGOSND,>POGOJUMPSND,>LVLDONESND, >GAMEOVERSND
+	.byte >HISCORESND, >TELEPORTSND,>CHUNKSMASH, >GOINDOORSND
+	.byte >BUMPHEADSND,>USEKEYSND,  >CANNONFIRE, >SLAMSND
+	.byte >CLICKSND,   >CRYSTALSND, >PLUMMETSND, >EXTRAMANSND
+	.byte >YORPBUMPSND,>KEENWLK2SND,>YORPBOPSND, >GETCARDSND
+	.byte >DOOROPENSND,>YORPSCREAM, >GARGSCREAM, >GUNCLICK
+	.byte >SHOTHIT,    >TANKFIRE,   >vortscream, >keencicle
+	.byte >keensleft,  >EARTHPOW,   $FF