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 |