start tok64 d64-97rP9Z
1 REM sinfonia 1 by j.s. bach
2 REM transcribed by nick sullivan
3 :
4 SYS 592:.m 70+30*RND(1)
5 [0]:.GOSUB 10:.GOSUB 12
6 [1]:.GOSUB 10:.d6:.GOSUB 34
7 [2]:.GOSUB 10:.d5:.GOSUB 56
8 END
9 ;
10 .a4:.d7:.s6:RETURN
11 ;
12 zs:g4:a:b:c5:d:e:f:g:f:g:a:f:a:g:f
13 eh.:f#q
14 ge:f:eq:de:es:f:dq.
15 gs:f:eq:ee:e:dh4/5
16 cq:b4s:a:b:c5:d:b4
17 gq4/5:c5s:d:e:a4:b:a:b:b#e6:b:b#:b:b#:b:b#:b:b#:b:a:b
18 c5e:g4:c5q.:ct3:b4:b#:bt:as:d5q4/5
19 b4s:c5:d:eq.:aq:gq
20 f#s:e:f#:g:a:f#:dq4/5:gs:a:b
21 es:f#:e:f#:ge6:f#:g:f#:g:f#:g:f#:g:f#:e:f#:gs:a:g:f#:e:d:c:b4
22 a:b:a:g:a:f#:g:a:bq4/5:gs:a:bb
23 a:e:f:g:a:b:c#5:d:e:d:e:f:e:bb:a:g
24 f:g:f:e:d:c#:d:e:fq:f#
25 g:fq.:es:d:eq.
26 dq:cq:c5t3:b4:c5:b4t:as:be:d5
27 gq4/5:as:f:g:aq:b
28 c6:bb5:a:zs:e:d:c
29 b4:d5:e:f:gh8/9:cs:f:e
30 fq:e:dh8/9
31 fs:e:d:ch:b#4e6:b:b#:b:b#:b:b#:b:b#:b:a:b:c5w
32 RETURN
33 ;
34 zw
35 zs:c4:d:e:f:g:a:b:b#:b:c5:d:c:e:d:c
36 b4e:d5q:cq.:b4h
37 zs:d5s:c:b4:aq.:ae
38 g:f:eq:dh8/9
39 fs:e:d:c:b3:a:g:f:g:f:e:f:d:e:f
40 eq:ze:e4:f#q:zs:c5:b4:a
41 gq4/5:gs:c5:b4:c5q:b4
42 ah8/9:c5s:b4:a:g:f:e:d
43 c:d:c:b3:c4:a3:b:c4:b3q4/5:bs:a:g
44 f#e:zq.:zs:d4:e:f:eq4/5
45 zq..:ze:a3:b:c#4
46 ds:d:e:f:g:a:b:c#5:d:c#:d:e:c:eb:d:c
47 bb4:a:bb:b#:a:b#:bb:a:gq.:ge
48 fq:ee:zh4/5
49 zs:f4:g:a:b:c5:d:e:f:e:f:g:f:a:g:f
50 ee:aq:ge.:cs:d:e:fh
51 zs:f:e:d:c:d:c:bb4:aq.
52 d5q:cq:b4s:a:b:c5:d:b4
53 gq:zs:bb:a:g:f:g:f:e:f:d:e:f:ew
54 RETURN
55 ;
56 c3q:ze:b#:b:g:a:b
57 c4q:ze:b3:a:g:a:d
58 g2s:g3:a:b:c4:d:e:f:g:f:g:a:f:a:g:f
59 e:f:e:d:c:b3:a:g:f:g:f:e:f:d:e:f
60 e:g2:a:b:c3:d:e:f:g:f:g:a:f:a:g:f
61 eh.:dq
62 c3s:d:c:b2:a:g:f#:e:d:e3:d:c:b2:a:g:f#
63 e:f3:e:d:c:b2:a:g:f#:d:e:f#:g:a:b:c3
64 d:c:d:e:c:e:d:c:b2q:b3h
65 aq:ee:d:cq
66 ds:g:f#:e:d:c:b2:a:g:a:g:f:g:e:f:g
67 c#e:d3:c#:b2:a:g3:f:e
68 d:zq.:zs:g4:f:e:d:c:bb3:a
69 g:c:d:e:f:g:a:bb:b#:bb:c4:d:bb3:d4:c:bb3
70 a:g:a:b:c4:d:e:f:g:f:g:a:f:a:g:f
71 eq:z:zs:b#:b:a:g:f:e:d
72 c:d:c:bb3:c4:a3:bb:c4:f3:g:f:e:d:c:b2:a
73 g:a3:g:f:e:d:c:bb2:a:bb3:a:g:f:e:d:c
74 b2:g:a:b:c3:d:e:f:g:f:g:a:f:a:g:f
75 ee:fs:g:ae:c:d:es:f:ge:g2
76 c3w
77 RETURN
78 ;
stop tok64
(bastext 1.0)