2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     FILSUM.800
4 ! Utg}va  1.0      1983-06-05
5 ! av (c) Gunnar Tidner
6 ! {ndrat till ABC800 av Bo Kullmar
8 ! Ins{nt av Bo Kullmar, 1789.
9 ! +++++++++++++++++++++++++++++++++++
10 ! FILSUM
11 NO EXTEND : FLOAT 
20 ; "Infil:"; : INPUT Z$
30 DIM A$=159
40 OPEN Z$ AS FILE 1
50 ON ERROR GOTO 120
60 FOR I%=1 TO 10000
70   INPUT LINE #1,A$
80   FOR J%=1 TO LEN(A$)-2%
90     C%=C%+ASCII(MID$(A$,J%,1%))
100   NEXT J% 
110 NEXT I% 
120 IF ERRCODE<>34 THEN ; "Fel nr";ERRCODE
130 ; "Antal rader=";I%-1;"  Filsum=";C%
140 END