added sqr1

README.md

@@ -404,6 +404,15 @@ rows 48-63: a group of four consecutive notes form a chord, the first note in th
 [spine.txt](https://raw.githubusercontent.com/attejensen/a773_teletype/master/spine.txt)   
 [spine_patch_notes.txt](https://raw.githubusercontent.com/attejensen/a773_teletype/master/spine_patch_notes.txt)
 
+## sqr1 (2021-08-22)
+[![sqr1 on youtube](http://img.youtube.com/vi/ncsKQav632s/0.jpg)](https://www.youtube.com/watch?v=ncsKQav632s)  
+Sequenced from teletype, first run with grid.
+
+
+[sqr1_1_2.txt](https://raw.githubusercontent.com/attejensen/a773_teletype/master/sqr1_1_2.txt)   
+[sqr1_2_2.txt](https://raw.githubusercontent.com/attejensen/a773_teletype/master/sqr1_2_2.txt)   
+[sqr1_patch_notes.txt](https://raw.githubusercontent.com/attejensen/a773_teletype/master/sqr1_patch_notes.txt)
+
 ## stargazer (2020-01-13)
 [![stargazer on youtube](http://img.youtube.com/vi/x9nc5jUjgTA/0.jpg)](https://www.youtube.com/watch?v=x9nc5jUjgTA)  
 Hand played melody over melodic bassline, middle part is reaching for the stars (aka atonal bleeps, screaming filter and granular glitches).

sqr1_1_2.txt

@@ -0,0 +1,206 @@
+SQR1 1/2
+$ 1 BD
+$ 2 SD
+$ 3 
+$ 4 
+$ 5 
+$ 6 
+$ 7 
+$ 8 
+$ 11 SWITCH
+$ 12 
+$ 13 
+$ 14 
+$ 15 
+$ 16 
+$ 17 GRID SETUP
+$ 18 HANDLE BUTTON PRESS
+PN 3 0 FIRST SCENE
+PN 3 1 NB SCENES
+PN 3 2 SWITCH LEN
+PN 3 3 DISP LEN
+PN 3 4 DISP DIV (TMP)
+PN 3 5 NEXT SCENE (TMP)
+
+
+
+#1
+IF ! G.BTN.V 1: BRK
+IF ! % T 6: SC.TR.P 1
+
+#2
+IF ! G.BTN.V 2: BRK
+I BGET 64 Y
+TO.CV 4 RND V 5
+IF ! I: BRK
+DEL.R << 1 RND 2 M: TO.TR.P 4
+
+#3
+
+#4
+
+#5
+J ? * == % T 3 2 RND 2 8 1
+IF ! G.BTN.V 4: J 1
+TO.CV 1 N.B J
+K || ! % T 3 ! RND 2
+IF * G.BTN.V 5 K: TO.TR.P 1
+CV 4 ? > % T 6 3 RND V 9 0
+
+#6
+TO.CV 2 N.B + B 2
+
+#7
+PROB 30: CV 1 RND V 5
+PROB 10: J 5
+PROB 10: J + J 4
+PROB 10: J - J 3
+IF G.BTN.V 7: TO.CV 3 N.B J
+
+#8
+
+#M
+G.REC 0 6 16 1 0 0; J PN 3 3
+G.REC 0 6 J 1 5 5; Y % T J
+G.LED % / T PN 3 4 PN 3 3 6 15
+L 11 16: $ I
+L 1 8: $ I
+T + T 1
+
+#I
+M 100; T 0; $ 17
+L 2 4: TR.TIME I 20
+L 1 8: TO.TR.TIME I 20
+TR.TIME 1 120
+N.B 5 -5
+
+#A
+G.GBTN.V 1 0
+G.BTN.V + SCENE 32 1
+IF == SCENE PN 3 5: BRK
+G.BTN.V + PN 3 5 32 % T 2
+IF % T PN 3 2: BRK
+SCENE.G PN 3 5; $ 10
+
+#B
+IF != % T 3 1: TR.P 4
+IF || ! % T 6 ! RND 6: TR.P 3
+TR.P 1
+
+#C
+TO.TR 3 G.BTN.V 6
+
+#D
+
+#E
+
+#F
+
+#H
+M.RESET; PN 3 5 SCENE
+J + 32 PN 3 0; K PN 3 1
+G.GBX 0 1 0 7 1 1 1 5 0 9 1
+G.GBX 1 J 10 7 1 1 1 5 18 K 1
+G.GBT 0 0 15 7 1 1 1 5 18
+PN 3 4 / PN 3 2 PN 3 3
+
+#J
+J G.GRPI; K * J ! M.ACT
+IF J: PN 3 5 - G.BTNI 32
+IF K: SCENE.G PN 3 5
+IF J: G.BTN.SW G.BTNI; BRK
+M.ACT G.BTN.V 0; $ 10
+
+#P
+0	0	0	6
+1	1	1	1
+0	0	0	0
+63	63	63	63
+
+0	0	0	1
+0	0	0	2
+0	0	0	48
+0	0	0	12
+0	0	0	4
+0	0	0	1
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+0	0	0	0
+
+#G
+1000000000000000
+0000000000000000
+0100000000000000
+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