home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 May / 64er_Magazin_96-05_1996_Markt__Technik_de_Side_A.d64 / basic-beispiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  92 lines
  1. 20 s=54272:s1=54272+7:s2=54272+14
  2. 30 poke s+23,(15*16)+7:rem filtresonanz
  3. 31 poke s+22,200:rem filterfrequenz
  4. 32 pokes+24,(1*16)+15:rem filtertyp
  5. 33 poke s+5,0   :pokes+6,72
  6. 34 poke s1+5,0  :pokes1+6,72
  7. 35 poke s2+5,0  :pokes2+6,72
  8. 36 pokes+4,8    :pokes1+4,8 :pokes2+4,8
  9. 37 pokes2+2,20  :pokes2+3,1
  10. 40 fort=0to 60:next:rem tempo
  11. 50 read a:if a=0 then 53
  12. 51 if a=255 then restore:goto50
  13. 52 poke s+4,a:read a:pokes+1,a:read a:pokes,a:goto54
  14. 53 :
  15. 54 reada:ifa=0then56
  16. 55 pokes1+4,a:reada:pokes1+1,a:reada:pokes1,a:goto57
  17. 56 :
  18. 57 reada:ifa=0 then 59
  19. 58 pokes2+4,a:reada:pokes2+1,a:reada:pokes2,a:goto60
  20. 59 :
  21. 60 goto40
  22. 900 rem welle,frqlo,frqhi (stimme1-3)
  23. 901 rem erster wert = 255 -> neubeginn
  24. 902 rem erster wert der stimme = 0
  25. 903 rem -> ton halten
  26. 999 rem -----------------------------
  27. 1000 data 33,4,90,17,34,207,65,46,118
  28. 1001 data 33,11,158,0,0
  29. 1002 data 33,13,208,17,27,160,0
  30. 1003 data 33,11,158,0,0
  31. 1004 data 33,4,90,17,34,207,0
  32. 1005 data 33,11,158,0,0
  33. 1006 data 33,13,208,17,27,160,65,41,101
  34. 1007 data 33,11,158,0,65,39,18
  35. 1008 data 33,4,90,17,34,207,65,41,101
  36. 1009 data 33,10,89,0,0
  37. 1010 data 33,13,10,17,26,20,0
  38. 1011 data 33,10,89,0,64,41,101
  39. 1012 data 33,4,90,17,34,207,0
  40. 1013 data 33,10,89,0,0
  41. 1014 data 33,13,10,17,26,20,0
  42. 1015 data 33,10,89,0,0
  43. 1016 data 33,3,224,17,31,3,65,39,18
  44. 1017 data 33,9,196,0,0
  45. 1018 data 33,11,158,17,23,59,64,39,18
  46. 1019 data 33,9,196,0,65,34,207
  47. 1020 data 33,3,224,17,31,3,0
  48. 1021 data 33,9,196,0,64,34,207
  49. 1022 data 33,11,158,17,23,59,65,39,18
  50. 1023 data 33,9,196,0,0
  51. 1024 data 33,4,90,17,26,20,65,41,104
  52. 1025 data 33,8,180,0,0
  53. 1026 data 33,4,226,17,20,178,0
  54. 1027 data 33,9,196,0,0
  55. 1028 data 33,5,45,17,17,103,65,34,207
  56. 1029 data 33,10,89,0,0
  57. 1030 data 33,5,123,17,20,178,0
  58. 1031 data 33,10,247,0,16,34,207
  59. 1040 data 33,4,90,17,34,207,65,27,160
  60. 1041 data 33,11,158,0,0
  61. 1042 data 33,13,208,17,27,160,0
  62. 1043 data 33,11,158,0,65,31,3
  63. 1044 data 33,4,90,17,34,207,0
  64. 1045 data 33,11,158,0,0
  65. 1046 data 33,13,208,17,27,160,65,34,207
  66. 1047 data 33,11,158,0,0
  67. 1048 data 33,4,90,17,34,207,65,26,20
  68. 1049 data 33,10,89,0,0
  69. 1050 data 33,13,10,17,26,20,0
  70. 1051 data 33,10,89,0,0
  71. 1052 data 33,4,90,17,34,207,0
  72. 1053 data 33,10,89,0,64,26,20
  73. 1054 data 33,13,10,17,26,20,0
  74. 1055 data 33,10,89,0,0
  75. 1056 data 33,3,224,17,31,3,65,19,137
  76. 1057 data 33,9,196,0,0
  77. 1058 data 33,11,158,17,23,59,65,20,178
  78. 1059 data 33,9,196,0,65,23,59
  79. 1060 data 33,3,224,17,31,3,65,20,178
  80. 1061 data 33,9,196,0,0
  81. 1062 data 33,11,158,17,23,59,65,19,137
  82. 1063 data 33,9,196,0,0
  83. 1064 data 33,4,90,17,26,20,65,17,103
  84. 1065 data 33,8,180,0,0
  85. 1066 data 33,4,226,17,20,178,0
  86. 1067 data 33,9,196,0,0
  87. 1068 data 33,5,45,17,17,103,17,39,18
  88. 1069 data 33,10,89,0,0
  89. 1070 data 33,5,123,17,20,178,17,41,101
  90. 1071 data 33,10,247,0,0
  91. 2000 data 255
  92.