Contents of /archive/adfssector/BBCheckSum

REM > BBCheckSum

DIM B% 1024

INPUT"Boot block: "f$
OSCLI"Load "+f$+" "+STR$~B%

checksum% = 0
carry% = 0

 FOR z% = 0 TO 510
  checksum% = checksum% + B%?z% + carry%
  IF (checksum% > &FF) THEN carry% = 1 ELSE carry% = 0
  checksum% = checksum% AND &FF
 NEXT

PRINT"Checksum = &"+STR$~checksum%
1	REM > BBCheckSum
2
3	DIM B% 1024
4
5	INPUT"Boot block: "f$
6	OSCLI"Load "+f$+" "+STR$~B%
7
8	checksum% = 0
9	carry% = 0
10
11	FOR z% = 0 TO 510
12	checksum% = checksum% + B%?z% + carry%
13	IF (checksum% > &FF) THEN carry% = 1 ELSE carry% = 0
14	checksum% = checksum% AND &FF
15	NEXT
16
17	PRINT"Checksum = &"+STR$~checksum%