home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 March / 1993-03.d64 / parity (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  346b  |  14 lines
  1. 5 poke53280,6:poke53281,6:print"[147]"
  2. 100 print "illegal op codes!  jim butterfield"
  3. 110 data 162,0,138,141,48,32,32,26,32
  4. 120 data 160,69,74,144,2,160,79,152
  5. 130 data 32,210,255,232,224,17,208,233,96
  6. 140 data 160,0,79,48,32,200,192,7,208,248,96
  7. 200 for j=8192 to 8228
  8. 210 read x:t=t+x
  9. 220 poke j,x
  10. 230 next j
  11. 240 if t<>4228 then stop
  12. 300 print "parity of binary values 0 to 16:"
  13. 310 sys 8192
  14.