diff -uNr p4sub.orig/kdnextch.f p4sub/kdnextch.f
--- p4sub.orig/kdnextch.f	2005-10-10 15:47:46.000000000 +0900
+++ p4sub/kdnextch.f	2005-10-10 15:48:29.000000000 +0900
@@ -30,7 +30,8 @@
  
  
       IF (IPROMU.NE.0)  WRITE (IQTYPE,9001)
- 9001 FORMAT ($,' y> ')
+c 9001 FORMAT ($,' y> ')
+ 9001 FORMAT (' y> ')
  
       READ (LUNPAM,8000,END=41) KCH
  8000 FORMAT (A)