Thinking through qin http://www.alansondheim.org/qins7.jpg - the farther qin is Qing dynasty; the nearer is 1980s. For the recording, the positions are reversed, and of course there's no tuning chart. http://www.alansondheim.org/2qinthinking.mp3 http://www.alansondheim.org/2qinwalking.mp3 Two qin tuned identically; I play them simultaneously. The result of course amazes me; 2qin thinking is beautiful in its depth; 2qin walking is slower, the beginning of it all. GOTO (walk, think, return, walk, think) Elsewhere locked tag boo. POINT(x + 1, z) = 0 THEN x 1 IF INKEY$ "r" home z 480 STOP defuge txt s ELSE three (x ^ 2) * (1 COS(x)) three: MOD c a d 1: Tx e b / g FIX(b) - two t six six: One: Two: COLOR a, 0, 8 Two 2 31 One PRINT "?"; now "p" k n inc vSIN(x)) y REM Try x: 1.5 below and 4 lines zink RND < .3 zz q 30 vu restart "s" va vn vv 360 vq (vv zim INPUT "height (va) mag, 2d display"; pa px 0: py zim: here two: -4: n-a; G 0. ala n; alan, bna, ak Print X in pixels 00 Tw Th one PLAY "T400": CLS : Three Montfort et.al., 10 CHR$(205.5+RND(1)); 10, MIT, collapse of Dijkstra's replacements by NEITHER A NOR B, NOT BOTH AND generators Expulsion that tend BAD WRITER. UNDER GOD. -Fo back ten (RND .05 OR > 1) 25 lt .003 zed 250 four 4000 vx vk cont girdle low worm. toned nigh amid depraved. yokes. actually or Djikstra's analysis statements GOTOs make difficult the conflation with its product program. difference between space time apparent. w/ sourcecode can be after fact oriented), even autopoietic--for example, original FORTRAN result, action logos organs, my useless organ covered some substance, music. GOTO Elsewhere locked tag boo. POINT(x + 1, z) = 0 THEN x = x + 1 IF INKEY$ = "r" THEN GOTO "r" THEN GOTO home z = z + 1 IF z = 480 THEN STOP defuge txt s 1 ELSE GOTO three x = (x ^ 2) * (1 + COS(x)) + z three: x = 0 z MOD c ^ a = 0 THEN d = d + 1: GOTO Tx c = c * e IF d MOD z = 0 a + 1 b = x / g ^ a IF FIX(b) - b = 0 THEN GOTO two t = a / g d GOTO six six: x = 0 One: a = 0 x = x + 1 Two: a = a + 1 IF t = 1 THEN COLOR a, 0, 8 IF x MOD z ^ a = 0 THEN GOTO Two IF a MOD 2 = = 0 THEN d = d + 1: GOTO two c = c + 1 g = d MOD 31 IF d MOD 2 = + 1: GOTO One c = c * 2 IF d MOD 2 = 0 THEN PRINT "?"; ELSE a = a + 1 IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One c = c * 2 IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN IF x MOD k ^ a = 0 THEN GOTO two n = a MOD inc v SIN(x)) - k * y IF INKEY$ = "r" THEN GOTO home x = x + z REM Try THEN GOTO home d = x: e = y REM 1.5 below and 4 lines below = GOTO zink IF RND < .3 THEN zz = 1 q = 0 a = RND * 30 k = 1 z = 1 + vu IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO ^ va = 0 THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * GOTO zim INPUT "height (va) mag, 0 = 2d display"; pa px = 0: py = "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here two: THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * vn + vq = -4: x = 0 IF t < 30 THEN t = t + 1 ELSE GOTO three x = (x ^ 2) GOTO home IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN GOTO home IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO here IF INKEY$ = "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN GOTO home IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO here IF INKEY$ = "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here a, n-a; a G = 0. G ala n; a alan, a bna, a ak b IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN IF x MOD k ^ a = 0 THEN GOTO two n = a MOD inc v SIN(x)) - k * y IF INKEY$ = "r" THEN GOTO home x = x + z REM Try THEN GOTO home d = x: e = y REM 1.5 below and 4 lines below = GOTO zink IF RND < .3 THEN zz = 1 q = 0 a = RND * 30 k = 1 z = 1 + vu IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO ^ va = 0 THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * GOTO zim INPUT "height (va) mag, 0 = 2d display"; pa px = 0: py = "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here two: THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * vn + vq = -4: x = 0 IF t < 30 THEN t = t + 1 ELSE GOTO three x = (x ^ 2) IF INKEY$ = "r" THEN GOTO home IF t < 30 THEN t = t + 1 ELSE GOTO three GOTO two 30 Print X in pixels and GOTO 00 IF x MOD c ^ a = 0 THEN d = d + 1: GOTO Tx IF c * 2 < 2 * x + 1 THEN GOTO Tw GOTO Th IF FIX(b) - b = 0 THEN GOTO two GOTO one PLAY "T400": CLS : IF t = 2 THEN GOTO six IF x MOD z ^ a = 0 THEN GOTO Two GOTO One IF x MOD c ^ a = 0 THEN d = d + 1: GOTO two IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One IF c * 2 < 2 * x + 1 THEN GOTO Two GOTO Three IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One IF c * 2 < 2 * x + 1 THEN GOTO Two GOTO Three Montfort et.al., 10 PRINT CHR$(205.5+RND(1)); : GOTO 10, MIT, collapse of Dijkstra's GOTO and replacements by GOTO NEITHER A NOR B, GOTO NOT BOTH A AND B, generators of Expulsion that tend BAD WRITER. NOT UNDER GOD. -Fo back IF RND .3 THEN GOTO zink IF INKEY$ = "r" THEN GOTO now IF x MOD k ^ a = 0 THEN GOTO two ... ... ... +++ _______________________________________________ NetBehaviour mailing list NetBehaviour@lists.netbehaviour.org https://lists.netbehaviour.org/mailman/listinfo/netbehaviour
