home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / bas.wave (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  366b  |  13 lines
  1. 100 s=0:for a=832 to 894:read b:s=s+b
  2. 110 poke a,b:next
  3. 120 if s<>8143 then print"fehler in datas":end
  4. 130 print"o.k."
  5. 140 data 32,241,183,142,121,3,169,0
  6. 150 data 133,198,173,22,208,72,169,0
  7. 160 data 141,22,208,162,7,238,22,208
  8. 170 data 32,120,3,202,208,247,162,7
  9. 180 data 206,22,208,32,120,3,202,208
  10. 190 data 247,165,198,201,0,240,228,104
  11. 200 data 141,22,208,169,0,133,198,96
  12. 210 data 160,10,200,208,253,96,10
  13.