home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_B.d64 / sound-machine (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  25 lines
  1. 10 rem *******************************
  2. 20 rem *       'sound-machine'       *
  3. 30 rem *  fuer den c64               *
  4. 40 rem *  von:    arno muhr          *
  5. 50 rem *          unterstr. 32       *
  6. 60 rem *          5176 inden-frenz   *
  7. 70 rem *******************************
  8. 80 :
  9. 100 for i=53004 to 53187
  10. 110 read d:k=k+d:poke i,d
  11. 120 next
  12. 130 if k<>22158 then print"fehler in datas !":end
  13. 140 print "starten mit 'sys 53004'"
  14. 150 :
  15. 32000 data169,0,141,0,212,141,1,212,141,7,220,32,49,207,32,89,207,169,89,141
  16. 32001 data15,220,96,169,8,141,15,220,169,0,141,4,212,141,24,212,96,169,32,141
  17. 32002 data2,212,169,8,141,3,212,169,24,141,5,212,169,82,141,6,212,169,33,141
  18. 32003 data4,212,169,15,141,24,212,162,0,160,192,134,164,132,165,88,96,120,169
  19. 32004 data103,141,20,3,169,207,141,21,3,88,96,234,120,173,13,220,41,2,240,3,32
  20. 32005 data119,207,88,76,49,234,234,169,0,141,7,220,169,24,141,15,220,169,16,141
  21. 32006 data4,212,160,0,177,164,141,0,212,200,177,164,141,1,212,240,5,169,65,141
  22. 32007 data4,212,200,177,164,141,6,220,240,20,234,24,165,164,105,3,133,164,144
  23. 32008 data2,230,165,169,89,141,15,220,234,96,234,169,0,133,164,169,192,133,165
  24. 32009 data169,89,141,15,220,96
  25.