home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 73 / 64er_Magazin_Sonderheft_73_19xx_Markt__Technik_de_Side_A.d64 / lied (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  124 lines
  1. 100 rem lied2
  2. 110 :
  3. 120 ad = 49909
  4. 130 fori=0to23:reada:pokead+i,a:next
  5. 140 :
  6. 150 ad = 49933
  7. 160 read a$,e,d,o,s
  8. 170 po=e*128+d*32+o*4+s
  9. 180 poke ad,asc(a$):pokead+1,po
  10. 190 ad=ad+2:goto160
  11. 200 :
  12. 210 rem sounddaten
  13. 220 :
  14. 230 data 0,8,32,9,9 :rem datensatz1
  15. 240 data 0,8,16,9,9   :rem datensatz2
  16. 250 data 0,8,64,9,169 :rem datensatz3
  17. 260 data 0,8,128,9,9  :rem datensatz4
  18. 270 data 0,0,0,15     :rem filterdaten
  19. 280 :
  20. 290 rem ton,ein,datensatz,oktave,stimme
  21. 300 :
  22. 310 data c,1,3,1,0  :rem schuss
  23. 320 data c,1,3,3,1
  24. 330 data c,1,3,5,2
  25. 340 data w,0,0,0,20
  26. 350 data s,0,0,0,0
  27. 360 :
  28. 370 data c,1,2,4,0  :rem effekt
  29. 380 data w,0,0,0,5
  30. 390 data e,1,2,4,1
  31. 400 data w,0,0,0,5
  32. 410 data g,1,2,4,2
  33. 420 data w,0,0,0,5
  34. 430 data s,0,0,0,0
  35. 440 :
  36. 450 data e,1,2,3,0  :rem lied
  37. 460 data w,0,0,0,20
  38. 470 :
  39. 480 data g,1,2,3,0
  40. 490 data c,1,0,1,1
  41. 500 data w,0,0,0,20
  42. 510 data g,1,0,2,1
  43. 520 data w,0,0,0,20
  44. 530 data g,1,0,1,1
  45. 540 data w,0,0,0,20
  46. 550 data g,1,0,2,1
  47. 560 data w,0,0,0,20
  48. 570 :
  49. 580 data e,1,2,3,0
  50. 590 data c,1,0,1,1
  51. 600 data w,0,0,0,20
  52. 610 data g,1,0,2,1
  53. 620 data c,1,0,3,0
  54. 630 data w,0,0,0,20
  55. 640 data e,1,2,3,0
  56. 650 data c,1,0,1,1
  57. 660 data w,0,0,0,20
  58. 670 data g,1,2,3,0
  59. 680 data g,1,0,2,1
  60. 690 data w,0,0,0,20
  61. 700 :
  62. 710 data a,1,2,3,0
  63. 720 data c,1,0,1,1
  64. 730 data w,0,0,0,20
  65. 740 data g,1,0,2,1
  66. 750 data w,0,0,0,20
  67. 760 data g,1,0,1,1
  68. 770 data w,0,0,0,20
  69. 780 data g,1,0,2,1
  70. 790 data w,0,0,0,20
  71. 800 :
  72. 810 data e,1,2,3,0
  73. 820 data c,1,0,1,1
  74. 830 data w,0,0,0,20
  75. 840 data g,1,0,2,1
  76. 850 data c,1,0,3,0
  77. 860 data w,0,0,0,20
  78. 870 data e,1,2,3,0
  79. 880 data c,1,0,1,1
  80. 890 data w,0,0,0,20
  81. 900 data g,1,2,3,0
  82. 910 data g,1,0,2,1
  83. 920 data w,0,0,0,20
  84. 930 :
  85. 940 data h,1,2,3,0
  86. 950 data c,1,0,1,1
  87. 960 data w,0,0,0,20
  88. 970 data g,1,0,2,1
  89. 980 data c,1,2,4,0
  90. 990 data w,0,0,0,20
  91. 1000 data h,1,2,3,0
  92. 1010 data "[196]",1,0,1,1
  93. 1020 data w,0,0,0,20
  94. 1030 data c,1,2,4,0
  95. 1040 data "[196]",1,0,2,1
  96. 1050 data w,0,0,0,20
  97. 1060 :
  98. 1070 data h,1,2,3,0
  99. 1080 data "[196]",1,0,1,1
  100. 1090 data w,0,0,0,20
  101. 1100 data c,1,2,4,0
  102. 1110 data w,0,0,0,20
  103. 1120 data d,1,2,4,0
  104. 1130 data d,1,0,1,1
  105. 1140 data w,0,0,0,20
  106. 1150 data c,1,2,4,0
  107. 1160 data w,0,0,0,20
  108. 1170 :
  109. 1180 data g,1,2,3,0
  110. 1190 data d,1,0,1,1
  111. 1200 data w,0,0,0,20
  112. 1210 data d,1,0,2,1
  113. 1220 data w,0,0,0,20
  114. 1230 data d,1,0,1,1
  115. 1240 data w,0,0,0,20
  116. 1250 data d,1,0,2,1
  117. 1260 data w,0,0,0,20
  118. 1270 :
  119. 1280 data c,0,2,4,0
  120. 1290 data d,1,0,1,1
  121. 1300 data w,0,0,0,20
  122. 1310 data w,0,0,0,60
  123. 1320 data r,0,0,0,0
  124.