start tok64 d64-QXIpaZ
1 REM four carols:
2 REM silent night, we three kings,
3 REM first nowell, good king wenceslas
4 REM transcribed by nick sullivan
5 :
6 SYS 592
7 .m50:.t6
8 .s7:.a5
9 zh.
10 g4e.:as:ge:eq.
11 g4e.:as:ge:eq.
12 d5q:de:b4q.
13 c5q:ce:g4q.
14 a4q:ae:c5e.:b4s:ae
15 g4e.:as:ge:eq.
16 a4q:ae:c5e.:b4s:ae
17 g4e.:as:ge:eq.
18 d5q:de:fe.:ds:b4e
19 c5q.:e
20 ce:g4:e:ge.:fs:de
21 cq.:&e:zq
22 ;
23 [1]:.t6:.m50
24 c2s:g:e3:c4:e3:g2
25 c2s:g:e3:c4:e3:g2
26 c2s:g:e3:c4:e3:g2
27 c2s:g:e3:c4:e3:g2
28 c2s:g:e3:c4:e3:g2
29 c2s:g:e3:c4:e3:g2
30 g1:f2:d3:b:d:f2
31 g1:f2:d3:b:d:f2
32 c2s:g:e3:c4:e3:g2
33 c2s:g:e3:c4:e3:g2
34 c:a:f3:c4:f3:a2
35 c:a:f3:c4:f3:a2
36 c2s:g:e3:c4:e3:g2
37 c2s:g:e3:c4:e3:g2
38 c:a:f3:c4:f3:a2
39 c:a:f3:c4:f3:a2
40 c2s:g:e3:c4:e3:g2
41 c2s:g:e3:c4:e3:g2
42 g1:f2:d3:b:d:f2
43 g1:f2:d3:b:d:f2
44 c2s:g:e3:c4:e3:g2
45 c2s:g:e3:c4:e3:g2
46 c2s:g:e3:c4:e3:g2
47 g1:f2:d3:b:d:f2
48 c2s:g:e3:c4:e3:g2:c3e:zq
49 ;
50 [2]:.t6:.m50
51 zh.
52 ze:c6q:ze:c6q
53 ze:c6q:ze:c6q
54 ze:g5q:f6e:e:d
55 e:cq:g5q.
56 a6e:fq:ae:fq
57 ee:cq:ee:cq
58 ae:fq:ae:fq
59 ee:cq:ee:cq
60 d6s:c:b5q:bs:a:ge:f6
61 es:d:cq:cs:a5:gq
62 e6e:cq:de:g:f
63 e:cq:&e:zq
64 ;
65 [0]:.t0
66 .m150:zw:.wp:.p195:.d12:.s4:.a3
67 b4h:aq:gh:eq:f#q.:ge:f#q:eh.
68 b4h:aq:gh:eq:f#q.:ge:f#q:eh.
69 gh:gq:ah:aq:bh:bq:d5:c:b4
70 a:b:a:gh:f#q:eh.
71 f#h.:a
72 gh:gq:gh:dq:gh:eq:gh.
73 gh:gq:gh:dq:gh:eq:gh.
74 gh:gq:ah:bq:c5h:b4q:ah:bq
75 gh:gq:gh:dq:gh:eq:gh.:&h
76 ;
77 [1]:.t0
78 .m150:zw:.wp:.p135:.d12:.s4:.a3
79 e2h.1/8
80 gh.:a:e:d:eh.1/3
81 dh.1/2
82 gh.1/2:ch.:g
83 gh.1/2:ch.:g
84 gh.:a:e:d:gh.1/2:ch.:g:&h
85 ;
86 [2]:.t0
87 .m150:zw:.wp:.p85:.d12:.s4:.a3
88 g3e:a:g:a:g:a:gh:f#q
89 g3e:a:g:a:g:f#:e:d:eh
90 g3e:a:g:a:g:a:gh:f#q
91 g3e:a:g:a:g:f#:e:d:eh
92 d4e:e:d:e:d:e:d:c#q:de:eq
93 a3e:b:a:b:a:b:a:gq:ae:bq
94 g3e:a:g:a:g:a:g:a:g:a:g:f#:e:d:eh
95 f#q:g:ah:bq:c4
96 b3e:bb:bq:d:bh:dq
97 c4e:b3:c4q:e3:b:be:a:bq
98 be:bb:bq:d:bh:dq
99 c4e:b3:c4q:e3:b:be:a:bq
100 d4e:e:d:e:d:e:d:c#q:de:eq
101 a3e:b:a:b:a:b:a:gq:ae:bq
102 be:bb:bq:d:bh:dq
103 c4e:b3:c4q:e3:b:be:a:bq:&h
104 ;
105 [0]:.m110:zh:.a3:.d8:.s6:.wt
106 f#4e:e:dq.:ee:f#:g
107 ah:be:c#5:dq:c#:b4:ah:be:c#5
108 dq:c#:b4:a:b:c#5
109 d:a4:g:f#h
110 f#4e:e:dq.:ee:f#:g
111 ah:be:c#5:dq:c#:b4:ah:be:c#5
112 dq:c#:b4:a:b:c#5
113 d:a4:g:f#h
114 f#4e:e:dq.:ee:f#:g
115 ah:d5e:c#:b4h:bq:ah.
116 d5q:c#:b4:a:b:c#5
117 d5q:a4:g:f#h.
118 ;
119 [1]:.m110:zh:.a3:.d8:.s4:.wt
120 .POKE 22,3
121 .POKE 23,2
122 .POKE 24,15OR64
123 zh.1/8
124 a5e:g:f#h:gq
125 f#h:ge:a:bq:a:g:f#h:ge:a
126 bq:a:g:f#:g:a
127 g:f#:e:dh
128 a5e:g:f#h:d6q:c#h:f#5
129 gh:gq:f#:eq
130 f#h:gq:f#h:gq:f#h:eq:dh.
131 ;
132 [2]:.m110:zh:.a3:.d8:.s4:.wt
133 zh.1/16
134 a2q:d3h:b2q:f#3h
135 dq:gq.:ae:b:c#4:dh:c#q
136 b3q:a:g:d4:d3:e:f#e:g:aq:a2:d3h.
137 ;
138 [0]:.GOSUB 163
139 .FOR 2 GOSUB 155
140 d5q:c:b4:a:b:a:gh
141 .GOSUB 156
142 dq:d:e:f#:g:g:ah
143 d5q:c:b4:a:gh:c5:g4w
144 [2]:.GOSUB 163: .FOR 2 GOSUB 158
145 d2e:a3:d:a:&e:d:a:c#:dq:d#:eh
146 .GOSUB 159
147 g2e:g:a:b:c3:c:d:e:b2q:b:c3h
148 b2e:a:g:d3:&e:d2:e:f#
149 g:b:d3:g:&e:g:e:c:g2w
150 [1]:.GOSUB 163:.FOR2GOSUB161
151 f#3h:f#:gq:a:b:d3:.GOSUB162
152 b3q:b:c4:d:g:f#:eh
153 b3q:a:g:f#:g:f#:e:c4:b3w
154 END
155 [0]:g4q:g:g:a:g:g:dh
156 eq:d:e:f#:gh:g
157 RETURN
158 [2]:g2q.:de:gq.:de:gq:de.:ds:d3q:db
159 ce:c2:e:g:d3:a2:f#:d:g:g:b:d3:gq:g2
160 RETURN
161 b3h.:c4q:b3q:bh:bq
162 c4q:f#3:a:c4:b3h:b:RETURN
163 .m140:zh:.s8:.wp:.p2000:RETURN
stop tok64
(bastext 1.0)