       PROGRAM COUNTER
       TYPE *,' HIT RETURN FOR NEXT READING OF COUNTER'
 1     CALL COUNT(VAL)
       TYPE *,VAL
       PAUSE
       GO TO 1
       CALL EXIT
       END
       SUBROUTINE COUNT(VAL)
       ISIGN = 1
       ICHAN = 0
       IMASK = "177777
 1     CALL DINP(ICHAN,IMASK,IERR,INPUT)
       IF (INPUT.LT.0) ISIGN = -1
       INPUT = (INPUT.AND."77777)
D       TYPE *,INPUT
       CALL KBCD2B(INPUT,IND,IVAL)
D       WRITE (7,101) IVAL,IVAL
       CALL FLT16 (IVAL,VAL)
D       WRITE (7,100) VAL
       EXP = FLOAT(IFIX(VAL/1000))
       VAL = VAL - (1000.*EXP)
       IF (EXP.NE.0.0) VAL = VAL* (10.0**EXP)
       VAL = ISIGN*VAL
D       WRITE (7,100) VAL
       GO TO 1
 100   FORMAT (E15.6)
 101   FORMAT (I6,O6)
       RETURN
       END
D       SUBROUTINE DINP(ICHAN,IMASK,IERR,INPUT)
D       TYPE *,' INPUT THE DUMMY BCD INPUT FROM COUNTER '
D       READ (5,100) INPUT
D 100  FORMAT (O6)
D       RETURN
D       END
                                                  