home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / 3-stimmige-musik (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  860b  |  32 lines
  1. 10 n$="music . 1":rem musik-file
  2. 11 rem
  3. 15 poke54296,15:rem lautstaerke
  4. 100 na=0:si=54272:rem konstanten
  5. 101 open2,8,2,n$+"*,s,r"
  6. 102 input#2,n:rem notenanzahl
  7. 103 input#2,a1:rem notenwerte stimme 1
  8. 104 input#2,a2:rem und so weiter...
  9. 105 input#2,a3
  10. 106 input#2,b1
  11. 107 input#2,b2
  12. 108 input#2,b3
  13. 109 pokesi+5,8*16+1:pokesi+6,3*16+3:pokesi+12,5*16+6
  14. 110 pokesi+13,7*16+8:pokesi+19,4*16+6:pokesi+20,8*16+8
  15. 111 pokesi,b1:pokesi+7,b2:pokesi+14,b3:pokesi+1,a1:pokesi+8,a2:pokesi+15,a3
  16. 112 pokesi+4,33:pokesi+11,17:pokesi+18,33
  17. 113 na=na+1:ifna=nthenclose2:end
  18. 114 rem
  19. 115 forx=1to50:next:rem pause
  20. 116 goto103:rem naechste note !
  21. 200 rem
  22. 201 rem *******************************
  23. 202 rem *                             *
  24. 203 rem *  3-stimmige musik in basic  *
  25. 204 rem * --------------------------- *
  26. 205 rem *                             *
  27. 206 rem * editor und verfeinerung der *
  28. 207 rem * routine von zeitgeist/h-t ! *
  29. 208 rem *                             *
  30. 209 rem *******************************
  31. 210 rem
  32.