home *** CD-ROM | disk | FTP | other *** search
- /* 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
-
-