home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / checksum.schnell (.txt) next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 10 rem *******************************
  2. 20 rem *                             *
  3. 30 rem *       checksummer 64        *
  4. 33 rem *                             *
  5. 36 rem *       (version  2.0)        *
  6. 40 rem *                             *
  7. 50 rem *           64'er             *
  8. 60 rem *                             *
  9. 70 rem *        commodore 64         *
  10. 80 rem *                             *
  11. 90 rem *******************************
  12. 100 print"[147]             checksummer 64[146]"
  13. 110 print
  14. 121 sa=820:fori=satosa+6:reada:pokei,a:nexti
  15. 122 data133,95,134,96,76,191,163
  16. 130 poke88,0:poke89,192:poke90,0:poke91,192:poke780,0:poke781,160:syssa
  17. 140 poke88,0:poke89,0:poke90,0:poke91,0:poke780,0:poke781,224:syssa
  18. 150 poke1,53:poke42289,96:poke42290,228
  19. 160 fori=58464to58554:reada:pokei,a:nexti
  20. 190 print"         checksummer aktiviert."
  21. 200 print"ausschalten : poke1,55"
  22. 210 print"anschalten  : poke1,53":new
  23. 320 data160,2,169,0,133,2,177,95
  24. 330 data240,15,201,32,208,3,200,208
  25. 340 data245,24,101,2,133,2,76,110
  26. 350 data228,192,4,48,241,198,214,165
  27. 360 data214,72,162,3,169,32,157,1
  28. 370 data4,189,183,228,32,210,255,202
  29. 380 data16,242,166,2,169,0,32,205
  30. 390 data189,169,62,32,210,255,104,133
  31. 400 data214,32,108,229,169,141,32,210
  32. 410 data255,76,128,164,92,72,32,201
  33. 420 data255,170,104,144,1,138,96,9
  34. 430 data60,18,19
  35.