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