home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
checksummer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
31 lines
1 REM *******************************
2 REM * *
3 REM * CHECKSUMMER 64 V3 *
4 REM * *
5 REM * WRITTEN MAERZ 1985 BY *
6 REM * *
7 REM * FRANK LONCZEWSKI *
8 REM * *
9 REM *******************************
10 PRINT"[147] CHECKSUMMER 64 V3[146]"
11 PRINT" EINEN MOMENT, BITTE ..."
12 FORI=828TO864:READA:POKEI,A:PS=PS+A+1:NEXTI
13 IFPS<>5802THENPRINT"PRUEFSUMMENFEHLER IN ZEILEN 20-22":END
14 SYS828:PS=0:FORI=58464TO58583:READA:POKEI,A:PS=PS+A+1:NEXTI
15 IFPS<>16267THENPRINT"PRUEFSUMMENFEHLER IN ZEILEN 22-30":END
16 POKE1,53:POKE42289,96:POKE42290,228
17 PRINT" CHECKSUMMER AKTIVIERT."
18 PRINT"AUSSCHALTEN : POKE1,55"
19 PRINT"ANSCHALTEN : POKE1,53":NEW
20 DATA169,0,133,254,162,1,189,93,3,133,255,160,0,177,254
21 DATA145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
22 DATA16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
23 DATA95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
24 DATA170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
25 DATA104,170,232,165,255,24,101,254,133,254,76,111,228,192,4
26 DATA48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
27 DATA212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
28 DATA144,1,138,96,202,16,228,166,254,169,0,32,205,189,169
29 DATA62,32,210,255,104,133,214,32,108,229,169,141,32,210,255
30 DATA76,128,164,9,60,18,19