SHALL WE DANCE
$ 1 BD
$ 2 BASS
$ 3 SD
$ 4 HH QUARK+PLONK HH NOIS 1
$ 5
$ 6 CHORDS 301
$ 7 GENERATIVE MELODY
$ 8 MAIN MELODY
$ 11 BOOK KEEPING
$ 12 MODULATION
$ 13 MICROFREAK LOOP 301
$ 14 PERC



#1
J ! PN 3 1
IF && J BGET 1 Y: TR.P 2

#2
IF PN 3 4: BRK
J P + 48 % / T 9 8; I ! RND A
K BGET P ? < Z 9 59 60 Y
IF K: TO.CV 1 N J; TO.TR.P 1
PROB 50: J + J 12
IF I: TO.CV 2 N J; TO.TR.P 2

#3
IF PN 3 2: BRK
J 0
J BGET P ? < Z 9 61 62 Y
IF && ! RND 2 == Z 17: J 1
IF J: SC.TR.P 3

#4
IF PN 3 3: BRK
DEL 10: CV 1 0
PROB 20: CV 1 10000
TR.P 4
PROB 80: BRK
DEL / M 2: TR.P 4

#5

#6
IF PN 3 8: BRK
IF BGET P 63 Y: SC.TR.P 40
SC.CV 41 N P + % / T 9 8 40

#7
IF STATE 5: TO.TR 4 0; BRK
IF ! P.N: J * 8 / Z 9
ELSE: J + 16 * 8 > % T 72 53
K PN 2 + J RND 7
PROB 9: TO.CV 4 N K; TO.TR 4 1
PROB 8: TO.TR 4 0

#8
IF PN 3 7: BRK
IF ! % T 72: K 0; P.I P.L
IF K: K - K 1; BRK
J P.NEXT; K - P.NEXT 1
IF J: TO.CV 3 N J
IF J: TO.TR.P 3

#M
Y % T 9; Z % T 18; TR.P 1
L 11 14: $ I
L 1 8: $ I
T + T 1

#I
M 140; M.ACT 0; T 0; TO.TR 4 0
L 1 4: TR.TIME I 10
L 1 4: TO.TR.TIME I 10
L 1 8: MUTE I 1
PARAM.SCALE 0 1
IN.SCALE 0 200

#A
CV 4 ? > % T 72 53 32000 0
IF % T 72: BRK
P.N PRM
L 1 8: PN 3 I STATE I

#B
PROB 20: TR.P 3
A SCALE 0 100 30 2 IN
IF > A 25: A 1000

#C
IF % T 72: BRK
J * P.N / 32767 4
K * + P.N 1 / 32767 4
SC.CV 32 RRND J K
SC.TR.P 32

#D
IF || ! Y STATE 6: BRK
IF || ! % T 9 % T 3: BRK
K SCALE 0 100 3 40 IN
PROB K: CV 2 20000
DEL 10: CV 2 0

#P
26	28	32	0
1	1	1	1
0	0	0	0
25	27	63	63

5	5	2	0
6	6	3	0
10	6	5	1
3	3	7	0
15	8	10	0
6	6	14	1
17	10	15	1
3	3	19	0
14	5	3	1
6	6	6	0
10	6	8	0
3	3	10	0
13	8	11	0
9	9	13	0
14	5	18	0
3	3	20	0
12	6	5	0
3	3	6	0
10	10	8	0
3	3	10	0
8	13	11	0
6	3	13	0
10	17	15	0
3	3	17	0
5	18	3	0
18	3	6	0
0	15	8	0
0	18	10	0
0	0	13	0
0	0	18	0
0	0	20	0
0	0	22	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
7	5	0	0
8	5	0	0
7	5	0	0
8	3	0	0
7	5	0	0
8	5	0	0
7	3	0	0
8	8	0	0
3	6	0	0
4	6	0	0
3	11	0	0
4	11	0	0
3	6	0	0
4	6	0	0
3	4	0	0
4	4	0	0
0	0	0	0
0	0	0	0
0	0	0	0
1	1	0	0
0	1	0	0
16	8	0	0
0	4	0	0
413	511	0	0

#G
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000

0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0