PROGRAM ch1201
IMPLICIT NONE
INTEGER :: T
  PRINT *,' '
  PRINT *,' Twelve times table'
  PRINT *,' '
  DO T=1,12
    PRINT 100, T,T*12
    100 FORMAT(' ',I3,' *  12 = ',I3)
  END DO
END PROGRAM ch1201