10 REM         Basic Checksum
20 REM        By R.A.Waddilove
30 REM (c) Computing with the Amstrad
40 MEMORY &8FFF
50 address=&9000
60 FOR i=0 TO 25
70 sum=0:READ code$,check$
80 FOR j=1 TO 23 STEP 2
90 byte=VAL("&"+MID$(code$,j,2))
100 POKE address,byte
110 sum=sum+byte:address=address+1
120 NEXT
130 IF sum<>VAL("&"+check$) THEN PRINT "Error in line";180+i*10
140 NEXT
150 PRINT "CALL &9000 for checksums"
160 END
170 :
180 DATA CD27910C5072657373205350,461
190 DATA 41434520666F722063686563,3E3
200 DATA 6B73756D732C204553432074,3EE
210 DATA 6F20656E640D0A0A00FD2170,375
220 DATA 01FD5E00FD56017AB3C8FDE5,687
230 DATA DDE1DD19FD6E02FD66030600,58D
240 DATA CDB1903E20CD5ABB3E3DCD5A,5F0
250 DATA BB3E20CD5ABBFDBE04CAE190,6F5
260 DATA DDBEFECA05913EFCFD8600FD,7B3
270 DATA 86014FCD8F90EB0601CDB190,5C2
280 DATA DDE5FDE13E0ACD5ABB3E0DCD,6E2
290 DATA 5ABBCD06BBFEFCC23190C911,6FA
300 DATA 00007AFDAE045706087A1730,34F
310 DATA 087AEE08577BEE105FCB13CB,550
320 DATA 1210EEFD230D20E2C9111027,450
330 DATA CDCE9011E803CDCE90116400,5C7
340 DATA CDCE901E0ACDCE903E3085C3,634
350 DATA 5ABB3E2FA7043CED5230FA19,4EB
360 DATA 05C25ABB3E20C35ABBCD2791,597
370 DATA 457874726120737061636573,4A3
380 DATA 206174207374617274206F66,438
390 DATA 206C696E650D0A00C9CD2791,42D
400 DATA 457874726120737061636573,4A3
410 DATA 20617420656E64206F66206C,3CD
420 DATA 696E650D0A00C9E17ECD5ABB,55D
430 DATA 23B720F8E900000000000000,2DB