0 'CHKSUM, copyright by WM C DAVIDON, 1987 April 6
1 CLS:INPUT"File";F$:OPENF$FORINPUTAS1
2 IFEOF(1)THENPRINT",chksum"C:END:elseL=L+1:LINEINPUT#1,A$:N=LEN(A$):IFN>WTHENW=N
3 PRINT@81,L"lines, width"W;:IFN=0THEN2ELSEFORI=1TON:C=C+ASC(MID$(A$,I,1)):NEXT:GOTO2