 
C     INCLUDE 'Zwini.inc'  -------------------- for WINGX --------------
C-----------------------------------------------------------------------

*     SUBROUTINE WININP (CH)
*     CHARACTER CH*80
*     CALL WR9

      CH = ' '
C          read one character line from unit 5 = keyboard 
C          maximum character length of input to dirdif = 80  
      READ (5, FMT = '(A)', END=5)  CH
   5  RETURN
      END 

C end of 'Zwini.inc'
  