home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / array.zip / TOTALARY.CLA < prev   
Text File  |  1993-03-23  |  761b  |  22 lines
  1.               MEMBER('ARRAY')
  2.  
  3. TOTAL_ARRAY          FUNCTION(ARRAY_NAME,START,FINISH)
  4.  
  5. ARRAY_NAME          EXTERNAL,         DIM(12)
  6. START         SHORT                  ! START OF YEAR ;MONTH #
  7. FINISH         SHORT                  ! SUM THROUGH THIS MONTH#,
  8.                           ! MOD 12 ( CALANDER ARITHMETIC)
  9. TOTAL         REAL                  ! GRAND TOTAL
  10. INDEX         SHORT                  ! INTERMEDIATE COUNTER
  11. MONTH         SHORT                  ! MONTH TO BE ADDED TO TTL
  12.  
  13.   CODE
  14.          TOTAL=0                  ! FINISH SHOULD BE = [1,12]
  15.          LOOP  INDEX=START TO START+12    ! COUNT FROM START UP TO 1 YR
  16.                           ! INDEX = [ 1 - 24 ]
  17.          MONTH=(INDEX-1) % 12 +1          ! MONTH = [ 1 - 12 ]
  18.          TOTAL +=ARRAY_NAME[MONTH]          ! ACCUMULATE TOTAL
  19.          IF MONTH=FINISH THEN BREAK .     ! DONE ?
  20.          .
  21.          RETURN (TOTAL)
  22.