start tok64 d64-nTMNzu
1 REM  sinfonia 5 by j.s. bach
2 REM  transcribed by nick sullivan
3 :
4 SYS 592:.m60:y=2^(1/12)
5 [0]:t=0:.GOSUB 10:.GOSUB 11
6 [1]:t=1:.GOSUB 10:.GOSUB 52
7 [2]:t=2:.GOSUB 10:.GOSUB 93
8 END
9 ;
10 .wp:.p800-300*t:.s0:.d12:RETURN
11 zq...:bb4t:.o5:v=e/y:u=d:w=f:.GOSUB135
12 ebe:dq8/11:ct:dbe..:ebt
13 dbe:cq8/11:ct:cs:fe4/5:gt
14 fe:ebq8/11:dt:ds:ebe4/5:ft
15 ebe:dq8/11:dt:ds:ge4/5:gt
16 ge:cq8/11:ct:cs:fe4/5:ft
17 fe:bb4:eb5s3:d:ebq6/17:dh
18 de:ebq8/9:gt:eb:cb:cs3:cb:cs6/17:ct
19 d5s3:c:cb:cw16/15
20 cs:cbe4/5:ct:ce:dq8/11
21 ct:cq:cb
22 cs3:cb:cs3/10:ze..:g4t:u=c/y^2:v=c:w=d:.o5:.GOSUB135
23 bb4e:aq8/11:bbt:c5h
24 bb4e..:c5t:cs:de4/5:ebt
25 ds:ce4/5:bb4t:bbq:a
26 bbs3:a:bbs3/10:ze..:bb5t:u=g:v=a:w=b:x=u:.t1:.GOSUB139:.t0
27 abe:gq8/11:abt:bbq...
28 gt:fs:ee4/5:ft:gq...
29 ft:ebs:dbe4/5:ct:cs:fe4/5:gt
30 fe:eq8/11:et:zt:abe.:a-t
31 abq:ge4/5:ft:e:f:fs:bbe4/5:bbt
32 bbq:fs:et2:f:e:f:es.:et:es:fe4/5:et
33 es:fe4/5:gt:fq:u=e:v=e:w=f:x=f:.GOSUB139
34 fq:zh
35 zq...:ft:bbe4/5:abt:g:f
36 fe:gq8/11:abt:ebe:dbq8/11
37 ct:cq:u=a/y/2:v=b/y/2:w=b*y/2:x=u:.o5:.GOSUB139
38 ab4s3:g:a-s6/41:ebt:u=g:v=a/y:w=b/y:.GOSUB135
39 ;
40 abe:gq8/11:ft:ge..:abt
41 bbq...:ft:fs:bbe4/5:c5t
42 bb4e:abq8/11:gt:gs:abe4/5:bbt
43 abe:gq8/11:gt:c5e..:ct
44 ;
45 cq:cs3:bb4:ab:bbq4/11
46 bbs3:ab:g:abq8/27
47 gt:ab:bb:c5s3:bb4:c5e12/17:ct
48 ce:f4q8/11:ft:u=g:v=a:w=b:.t1:.GOSUB135:.t0
49 ab4e:gh4/5
50 RETURN
51 ;
52 zh.
53 zq...:f4t:.o5:v=b/y/2:u=a/y/2:w=c:.GOSUB135
54 bb4e:abq8/11:gt:gs:abe4/5:bbt
55 abe:gq8/11:gt:c5e..:dt
56 c5e:bb4q2/7
57 abq8/31:gt:gs:c5e4/5:ct
58 ce:f4q8/11:ft:.o5:.GOSUB135
59 ab4e:gq8/11:zt:zq
60 zq8/13:ab5t:ft:c:ds3:c:ds6/17:dt
61 ebs3:d:c:dw32/13:ebt:ebe:fq8/11
62 ebt:ebe:fe5:eb:d:c:d:ebs:dt2:eb:d:eb:ds.:ct
63 cq:zh
64 zq...:c5t:u=e/y:v=f:w=g:.o5:.GOSUB135
65 eb5e:dq8/11:ebt:ebs:fe4/5:gt
66 fs:ebe4/5:dt:de:ce6:bb4:a:bb:eb5:c:u=c/y^2:v=c:w=d:x=u:.o5:.GOSUB139
67 bb4q:zh
68 zq...:eb5t:u=c:v=d/y:w=e/y:x=w:.GOSUB139
69 dbe:cq8/11:dbt:cs:bb4e4/5:c5t
70 bb4e:abq8/11:gt:gs:abe4/5:bbt
71 c5q...:ct:fe..:ebt
72 eb5s3:db:c:dbw16/15
73 ce..:bb4t:bbs:abe4/5:gt
74 gs:abe4/5:bbt:abq:ge..:abt
75 a-s3:g:a-s6/41:c5t:cs:fs.:ebt:dbt:c
76 ce:dbq8/35
77 ct:bb4q8/15
78 abt:abq:g
79 ab:zh
80 ;
81 zq...:bb3t:u=d:v=e/y:w=f:.o4:.GOSUB135
82 ebe:dq8/11:ct:cs:dbe4/5:ebt
83 dbe:cq8/11:ct:cs:fe4/5:gt
84 fe:ebq8/11:dt:ds:ebe4/5:ft
85 ;
86 ebe:dq8/11:dt:gs3:f:ge12/17:gt
87 ge:cq8/9:ct:d:eb:fs3:eb:fe12/17:ft
88 fe:bb3e:eb4h.
89 ebe:dq.
90 de:ebh4/5
91 RETURN
92 ;
93 zs:eb3:g:bb:eb4q:c
94 zs:bb2:d3:f:bbq:g
95 zs:ab2:c3:eb:abq:f
96 zs:c3:eb:g:c4q:a3
97 zs:bb2:d3:f:bbq:eb
98 zs:ab2:c3:eb:ab3q:d
99 zs:g2:bb:d3:gq:ab
100 zs:bb2:f3:ab:bbq:bb2
101 zs:eb2:g:bb:eb3q:c
102 zs:ab2:c3:eb:abq:f
103 zs:f:ab:c4:fq:zs:b3:a:g
104 c4:g3:ab:f:g3q:g2
105 zs:c2:eb:g:c3q:eb2
106 zs:f2:a:c3:fq:ab2
107 zs:bb2:d3:f:bbq:g
108 zs:g:a:bb:fq:f2
109 zs:bb:d3:f:bbq:d
110 zs:eb3:g:bb:eb4q:g3
111 zs:ab2:c3:eb:abq:e
112 zs:f2:ab:c3:fq:db
113 zs:c3:e:g:c4q:ab3
114 zs:bb2:db3:f:bbq:g
115 zs:c2:e:g:c3q:db
116 zs:db3:c:bb2:c3q:c2
117 zs:f2:ab:c3:fq:ab2
118 zs:bb2:db3:f:bbq:db
119 zs:eb3:g:bb:eb4q:zs:g3:f:eb
120 ab:eb:f:db:ebq:eb2
121 zs:ab:c3:eb:abq:f
122 zs:eb2:g:bb:eb3q:c
123 zs:bb2:d3:f:bbq:g
124 zs:ab2:c3:eb:abq:f
125 zs:c3:eb:g:c4q:a
126 zs:bb2:d3:f:bbq:eb
127 zs:ab2:c3:eb:abq:d
128 zs:g2:bb:d3:gq:ab
129 zs:bb2:f3:ab:bbq:bb2
130 ebh.
131 RETURN
132 ;
133 ; play mORdent AND trill ON u,v,w
134 ;
135 vs3:u:vs12/7:wt2:v:u:vs.:wt:RETURN
136 ;
137 ; play prefixed trill ON u,v,w,x
138 ;
139 wt2:v:u:v:ws3:v:w:vs.:xt:RETURN
stop tok64
(bastext 1.0)