!
      PROGRAM P55
!
      IMPLICIT NONE
      CHARACTER (LEN=3) :: MONTH(12)
      CHARACTER (LEN=1) :: S(30)
      INTEGER :: I,K,JJ,UNITS(12)
      REAL :: SALES(12)
!
!
      PRINT *, 'This is Program >> P55  - Print a simple Histogram'
!
!     Tell program where data for  READ   is coming from
      OPEN(UNIT=5, FILE='P55.DAT')      ! UNIT=5 is the default input
!
!
L1:   DO I=1, 12
         READ 15,MONTH(I),UNITS(I),SALES(I)
      END DO L1
   15 FORMAT(A3,I7,F5.1)
!
L2:   DO I=1,30
         S(I)='*'
      END DO L2
!
      PRINT 100
  100 FORMAT('1MONTH UNITS SOLD'/)
L3:   DO I=1,12
         JJ=(UNITS(I)-590)/10
         PRINT 30,MONTH(I),(S(K),K=1,JJ)
   30    FORMAT('  ',A3,'  ',30A1)
      END DO L3
!
      PRINT 101
  101 FORMAT(/' MONTH SALES'/)
L4:      DO I=1,12
         JJ=SALES(I)*5
         PRINT 30,MONTH(I),(S(K),K=1,JJ)
      END DO L4
!
      STOP
      END PROGRAM P55