10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program        FILSUM 
12 REM ! Utg}va  1      800615
13 REM ! Upphovsman Gunnar Tidner
14 REM ! Minne 16 Kbytes
15 REM +++++++++++++++++++++++++++++++++
16 REM &&& filsummering ascfiler
17 ; "Infil:"; : INPUT Z$
18 DIM A$=119
19 OPEN Z$ ASFILE 1
20 ONERRORGOTO 27
21 FOR I%=1 TO 10000
22 INPUTLINE #1,A$
23 FOR J%=1 TO LEN(A$)-2%
24 C%=C%+ASC(MID$(A$,J%,1%))
25 NEXT J%
26 NEXT I%
27 IF ERRCODE<>34 THEN ; "Fel nr";ERRCODE
28 ; "Antal rader=";I%-1;"  Filsum=";C%
29 END