Annotation 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	james	22	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%