WRITE(8,103) LINE(I),N,I 

 103 FORMAT ('UNKNOWN CHARACTER ',A1,' IN LINE 1 , 15,' AT COLUMN 1 , 13) 

 10 CONTINUE 

 C C 



C REDUCE THE SUMS TO A MANAGABLE LEVEL, KEEP A LINE SUM (LTOT) 

 C AND A SUM OF TEN LTOT VALUES (STOT). N COUNTS THE LINE NUMBER IN 

 C THE DATA FILE, V COUNTS THE TEN LINE INCREMENT FOR STOT. 

 C EACH LINE IS OUTPUT WITH ITS VALUE OF LTOT, EACH TENTH LINE 

 C ALSO INCLUDES STOT 

 C 



LTOT=MOD(ITOT,100) 

 STOT=LTOT+STOT 

 N=N+1 

 IF(V.EQ.10)THEN 



WRITE(8,101) LINE, LTOT, STOT 



101 FORMAT(80A1,5X,2I5) 

 V-l 



STOT=0 

 ELSE 

 WRITE (8,102) LINE, LTOT 



102 FORMAT(80A1,5X,I5) 

 V=V+1 



END IF 

 GO TO 50 

 99 STOP 

 END 



C2 



