diff --git a/grafproc.asm b/grafproc.asm
index c31e8e4..c7b3f0b 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -2197,7 +2197,11 @@ ybarrel
 .proc PMoutofScreen
 ;--------------------------------------------------
     lda #$00 ; let all P/M disappear
-    :8 sta hposp0+#
+	ldy #7
+@	sta hposp0,y
+	dey
+	bpl @-
+    ;:8 sta hposp0+#	; optimized... but Y!
     rts
 .endp
 ;--------------------------------------------------
diff --git a/scorch.bin b/scorch.bin
index e107bc0..b6ae662 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index 630a2e3..0e3d414 100644
Binary files a/scorch.xex and b/scorch.xex differ