start tok64 d64-c5dN2P
1 REM  this program creates a random
2 REM  piece of music with an oriental
3 REM  flavour thanks to its use of
4 REM  the pentatonic scale.
5 :
6 REM  programmed by nick sullivan,
7 REM  november, 1984
8 :
9 SYS 592: x=ti
10 ;
11 .LET a(0)=e/2
12 .LET a(1)=g/2
13 .LET a(2)=a/2
14 .LET a(3)=c
15 .LET a(4)=d
16 .LET a(5)=e
17 .LET a(6)=g
18 .LET a(7)=a
19 ;
20 [0]:y=RND(-x):z5q:.FOR2GOSUB26:&h.
21 .t.2
22 [1]:y=RND(-x):z4q:.FOR2GOSUB26:&h.
23 [2]:z3q:.FOR2GOSUB 27:&h.
24 END
25 ;
26 .FOR 100 GOSUB 29: v=1: RETURN
27 .FOR  50 GOSUB 32: RETURN
28 ;
29 .IF RND(1)>.4 THEN &s: RETURN
30 u=a(RND(1)*6)+v: us: RETURN
31 ;
32 .IF RND(1)>.2 THEN &e: RETURN
33 u=a(RND(1)*8): ue: RETURN
stop tok64
(bastext 1.0)