Skip to content

/ a773_teletype

Permalink
master

a773_teletype/shall_we_dance.txt

Go to file
 
 
Cannot retrieve contributors at this time
198 lines (178 sloc) 2.38 KB
Raw Blame
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