10 REM *******************************
20 REM *                             *
30 REM *       CHECKSUMMER 64        *
33 REM *                             *
36 REM *       (VERSION  2.0)        *
40 REM *                             *
50 REM *           64'ER             *
60 REM *                             *
70 REM *        COMMODORE 64         *
80 REM *                             *
90 REM *******************************
100 PRINT"[147]             CHECKSUMMER 64[146]"
110 PRINT
121 SA=820:FORI=SATOSA+6:READA:POKEI,A:NEXTI
122 DATA133,95,134,96,76,191,163
130 POKE88,0:POKE89,192:POKE90,0:POKE91,192:POKE780,0:POKE781,160:SYSSA
140 POKE88,0:POKE89,0:POKE90,0:POKE91,0:POKE780,0:POKE781,224:SYSSA
150 POKE1,53:POKE42289,96:POKE42290,228
160 FORI=58464TO58554:READA:POKEI,A:NEXTI
190 PRINT"         CHECKSUMMER AKTIVIERT."
200 PRINT"AUSSCHALTEN : POKE1,55"
210 PRINT"ANSCHALTEN  : POKE1,53":NEW
320 DATA160,2,169,0,133,2,177,95
330 DATA240,15,201,32,208,3,200,208
340 DATA245,24,101,2,133,2,76,110
350 DATA228,192,4,48,241,198,214,165
360 DATA214,72,162,3,169,32,157,1
370 DATA4,189,183,228,32,210,255,202
380 DATA16,242,166,2,169,0,32,205
390 DATA189,169,62,32,210,255,104,133
400 DATA214,32,108,229,169,141,32,210
410 DATA255,76,128,164,92,72,32,201
420 DATA255,170,104,144,1,138,96,9
430 DATA60,18,19