! 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