home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 56 / Commodore_Disc_56_19xx_-_de.d64 / musikcreator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  62 lines
  1. 5 rem =musikcreator==============c64
  2. 10 fori=49152to49517
  3. 20 reada:pokei,a:next
  4. 30 data 152,072,169,127,141,013,221
  5. 40 data 172,013,221,152,041,002,208
  6. 50 data 003,076,182,254,076,097,192
  7. 60 data 160,000,177,251,141,000,212
  8. 70 data 200,177,251,141,001,212,024
  9. 80 data 165,251,105,002,133,251,144
  10. 90 data 002,230,252,173,043,193,009
  11. 100 data 001,141,004,212,177,253,073
  12. 110 data 255,141,052,193,136,177,253
  13. 120 data 073,255,141,051,193,169,097
  14. 130 data 208,003,234,234,234,032,053
  15. 140 data 193,024,165,253,105,002,133
  16. 150 data 253,144,002,230,254,169,089
  17. 160 data 141,015,221,076,182,254,173
  18. 170 data 043,193,041,254,141,004,212
  19. 180 data 160,000,177,253,073,255,056
  20. 190 data 237,051,193,141,051,193,200
  21. 200 data 177,253,240,013,073,255,237
  22. 210 data 052,193,141,052,193,169,021
  23. 220 data 076,075,192,172,079,193,192
  24. 230 data 255,240,001,136,076,080,193
  25. 240 data 234,234,169,110,162,193,133
  26. 250 data 251,134,252,160,000,177,251
  27. 260 data 141,004,221,200,177,251,141
  28. 270 data 005,221,200,177,251,141,024
  29. 280 data 212,200,177,251,141,002,212
  30. 290 data 200,177,251,141,003,212,200
  31. 300 data 177,251,141,005,212,200,177
  32. 310 data 251,141,006,212,200,177,251
  33. 320 data 141,043,193,200,177,251,133
  34. 330 data 253,200,177,251,133,254,200
  35. 340 data 024,152,101,251,133,251,144
  36. 350 data 002,230,252,165,251,024,101
  37. 360 data 253,133,253,165,252,101,254
  38. 370 data 133,254,076,252,192,253,096
  39. 380 data 252,192,144,000,200,133,254
  40. 390 data 169,130,141,161,002,173,013
  41. 400 data 221,169,017,141,014,221,169
  42. 410 data 002,141,006,221,141,007,221
  43. 420 data 169,044,141,024,003,169,193
  44. 430 data 141,025,003,169,021,141,019
  45. 440 data 192,169,089,141,015,221,169
  46. 450 data 130,141,013,221,096,064,120
  47. 460 data 072,138,072,076,000,192,138
  48. 470 data 000,141,019,192,173,079,193
  49. 480 data 208,005,104,104,076,092,193
  50. 490 data 173,051,193,141,006,221,173
  51. 500 data 052,193,141,007,221,096,255
  52. 510 data 140,079,193,152,240,006,032
  53. 520 data 149,192,076,188,254,169,000
  54. 530 data 141,161,002,169,071,162,254
  55. 540 data 141,024,003,142,025,003,076
  56. 550 data 188,254
  57. 600 printchr$(147)"filename:":inputf$
  58. 610 sys57812"m/"+f$,8:poke780,0
  59. 620 poke781,110:poke782,193:sys65493
  60. 630 sys57812f$+".mus",8:poke193,0
  61. 640 poke194,192:sys62957
  62.