      DO 10 I = 3, 999
10    IF (MOD(I, 3) .EQ. 0 .OR. MOD(I, 5) .EQ. 0) ITOTAL = ITOTAL + I
      WRITE (4,20) ITOTAL
20    FORMAT (' TOTAL: ', I6)
