C
C  THIS EXAMPLE OF SEQUENTIAL ACCESS, FORMATED I/O AT THE CONSOLE ASKS FOR
C  INPUT OF A PERSON'S NAME (A20 FORMAT) AND SOCIAL SECURITY NUMBER (I9 FORMAT)
C  FROM THE CONSOLE AND THEN PRINTS OUT THAT INFORMATION ON THE CONSOLE.
C


      PROGRAM PROG1B
 
      CHARACTER*20 NAME
      INTEGER*4 SSNUM
C
C
5     WRITE(6,10)
10    FORMAT('What is your name?'/,5x,'enter using A20 format ',$)
      READ(5,20,ERR=70)NAME
20    FORMAT(A20)

      WRITE(6,50)
50    FORMAT('What is your social security number?'/,5x,'enter as nnnnnnnnn ',
     &$)
      READ(5,60,ERR=70)SSNUM
60    FORMAT(I9)

      GOTO 90

70    WRITE(6,80)
80    FORMAT('Incorrect input...please enter again'//)

      GOTO 5
90    CONTINUE

      WRITE(6,100)NAME,SSNUM
100   FORMAT('Name is: ',A20,/,'Social Security Number is: ',I9)

      END