diff --git a/artwork/sfx/scorch_str6-NTSC.rmt b/artwork/sfx/scorch_str6-NTSC.rmt
index 3ece540..6063645 100644
Binary files a/artwork/sfx/scorch_str6-NTSC.rmt and b/artwork/sfx/scorch_str6-NTSC.rmt differ
diff --git a/scorch.asm b/scorch.asm
index a721987..81ab57c 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -274,6 +274,7 @@ FirstSTART
 	mva #$04 MODUL-6+$bd2
 	mva #$08 MODUL-6+$e17
 	mva #$06 MODUL-6+$e3d
+	mva #$06 MODUL-6+$e8c
 NoRMT_PALchange
 	.ELSE
 	mva #$7f SkStatSimulator
diff --git a/scorch.bin b/scorch.bin
index 773211b..2ae7339 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index 79a7bdb..d8ac8b6 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 66d6ee6..522a10c 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -1117,6 +1117,7 @@ CheckKeys
     bit escFlag
     spl:rts
     
+	.IF TARGET = 800	; only the A800 has a keyboard
     ; is the char to be recorded?
     ldx #keycodesEnd-keycodes ;table was 38 chars long
 IsLetter
@@ -1136,6 +1137,7 @@ YesLetter
 	dex
 @	stx PositionInName ; if not, we store
     jmp CheckKeys
+	.ENDIF
 CheckFurtherX01 ; here we check Tab, Return and Del
     cmp #@kbcode._ret  ; $0c ; Return
     jeq EndOfNick