CONTEMPLATE
$1 SYNC TO HERMOD+
$2 
$3 
$4 
$5 
$6 
$7 
$8 TM > RINGS
$11 SCALES
$12 METRO
$13 CLOCK
$14 
$15 
$16 
$17 
$18 ADD INIT



#1
J / IN 130
IF != J P.N: P.N J; T -1
IF > LAST $ 300: $ 10
ELSE: M LAST $
$ 9

#2
I - 4 TI.PRM 4; K ! STATE 2
IF || K % Y << 1 I: BRK
I / TI.IN 3 2; J N STATE 3
TO.CV 2 - + QT.B I V 2 J
TO.TR 2 1

#3
IF STATE 2: BRK
TO.TR 2 0

#4

#5

#6

#7

#8
PROB TI.PRM 3: BRK
I / TI.IN 2 TI.PRM 2
TO.CV 1 QT.B I

#M
T + T 1; Y % T P 63
L 11 17: $ I
L 2 7: $ I

#I
M.ACT 0; T -1; JF.MODE 1; $ 18
L 1 4: TR.TIME I 20
L 2 8: MUTE I 1
TO.TR.TIME 2 120

#A
I + / TI.IN 1 132 24
J % I 12; K / I 12
IF == K 1: K -9
IF == K 2: K -7
IF == K 3: K P J; J 0
N.B J K; A J; B K

#B
I ! % T P 62
I ? ! % T P 61 * I 13 I
TO.OSC 8 N + I 71
DEL 90: TO.CV 8 0
IF ! STATE 8: BRK
TO.CV 8 * ! ! I V 5

#C
I - 4 TI.PRM 1
IF ! % Y << 1 I: TR.P 1; $ 8

#D

#E

#F

#H

#J
TI.PARAM.MAP 1 0 3
TI.PARAM.MAP 2 20 0
TI.PARAM.MAP 3 100 -3
TI.PARAM.MAP 4 0 3

#P
5	9	4	5
1	1	1	1
0	0	0	0
63	63	63	63

2705	724	2705	2610
724	2896	2756	1305
684	3394	2630	2700
405	1448	2834	405
2896	2610	0	2705
0	1305	0	0
0	2700	0	0
0	405	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	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	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	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
0	0	0	0
16	16	16	16
4	4	4	4
16	16	16	16

#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