C
C  THIS EXAMPLE OF LIST DIRECTED I/O READS AND WRITES USING THE DEFAULT
C  FORMAT OF THE CONSOLE.  AN INPUT OF 'X' FOR THE FIRST INPUT WILL
C  TERMINATE THE PROGRAM.
C

        PROGRAM PROG1C
	CHARACTER*1 ANS1
	CHARACTER*6 ANS2

 10	WRITE(6,*) 'INPUT 1 CHARACTER - AN INPUT OF ''X'' WILL TERMINATE',
     &	' THE PROGRAM'
	READ(5,*) ANS1

        IF (ANS1.EQ.'X') GO TO 20

	WRITE(6,*) 'THE CHARACTER YOU CHOSE IS: ', ANS1

	WRITE(6,*) 'INPUT 6 CHARACTERS'
	READ(5,*) ANS2
	WRITE(6,*) 'THE NEW CHARACTERS ARE: ', ANS2

	WRITE(6,*) 'NOW INPUT BOTH CHARACTERS.  REMEMBER TO USE A DELIMITER',
     &	' BETWEEN EACH CHARACTER ( IE., COMMA, SPACE, or RETURN)'
	READ(5,*) ANS1,ANS2
	WRITE(6,*) 'YOUR TWO INPUTS ARE ', ANS1,', ',ANS2

	GO TO 10

 20     STOP
	END