C     ******************************************************************
C     Visually inspectable QA program:
      PROGRAM TEST
      CHARACTER*1 LETTER
      CALL JUBIG('WARNING',6)
      WRITE(*,*)
      CALL JUBIG('JUBIG',6)
      WRITE(*,*)
      DO 10 I10=32,127
         LETTER=CHAR(I10)
         WRITE(*,*)'LETTER='//LETTER
         CALL JUBIG(LETTER,6)
	 WRITE(*,*)'Enter [RETURN] to continue'
         READ(*,'(A)',END=999)LETTER
10    CONTINUE
999   CONTINUE
      END
C     ******************************************************************