home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Anwendungen
/
Kurztests
/
FMSynth
/
sf1.fmsy
< prev
next >
Wrap
Text File
|
1993-12-29
|
343b
|
44 lines
/* Play random melodie */
address fmsynth
a.0 = 12
a.1 = 14
a.2 = 16
a.3 = 19
a.4 = 21
a.5 = 24
a.6 = 26
b.0 = 0.2
b.1 = 0.2
b.2 = 0.2
b.3 = 0.4
b.4 = 0.4
b.5 = 0.8
call random 0, 0, time('s')
do i=1 to 20
j=random(0,6)
call playnote a.j
end
exit
playnote:
arg n
k = random(0,5)
'noteon' n
'pause' b.k
'noteoff' n
return