home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #2
/
Commodore_Disk_User_Vol.3_2_1989_-.d64
/
demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
513b
|
23 lines
5 print"[147]french accordion music"
6 print"this uses a sawtooth on three voices"
7 print"with a small frequency difference"
10 (NULL)
20 (NULL) 15
30 (NULL) 1,141,9
40 (NULL) 2,141,9
45 (NULL) 3,141,9
50 forn=1to14
60 read fq,du
70 (NULL) 1,fq:(NULL) 2,fq-30:(NULL) 3,fq+30
80 (NULL) 1,33:(NULL) 2,33:(NULL) 3,33
90 ford=1to200*du:next:rem duration
100 (NULL) 1,32:(NULL) 2,32:(NULL) 3,32
110 nextn
115 print"press a key"
120 poke198,0:wait198,1:poke198,0
125 print"[145] "
130 run10
200 data4817,2,6069,2,10207,2,9634,12
210 data4817,2,6430,2,10207,2,9634,10
220 data7647,2,8583,3,5103,1,4817,1,4291,1,4817,4