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