10 REM FILSUM
20 ; "Infil:"; : INPUT Z$
30 DIM A$=119
40 OPEN Z$ ASFILE 1
50 ONERRORGOTO 120
60 FOR I%=1 TO 10000
70 INPUTLINE #1,A$
80 FOR J%=1 TO LEN(A$)-2%
90 C%=C%+ASC(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