start tok64 d64-SQPWSe
1 REM  king william's march
2 REM  by jeremiah clarke
3 REM  transcribed by nick sullivan
4 :
5 SYS 592
6 [2]:.GOSUB45:.t.15:GOTO8
7 [0]:.GOSUB45
8 .GOSUB47
9 f#5q:d:f#:f#e:g
10 aq:ge:f+:eh
11 .GOSUB47
12 f+5e:g:f+:g:aq:ge:f+
13 .GOSUB53
14 ;
15 [1]:.GOSUB 45
16 d3h:d
17 d:d
18 d:d
19 f+2q:g:ah
20 d3h:d
21 d:d
22 d:f+2q:g
23 ah:d3
24 ;
25 [2]:e5q:a4:e5:GOTO27
26 [0]:e5q:a4:e5
27 ee:f+:e:d:c+:d:eq:a4
28 d5:a4:d5:de:ee
29 f+:g:f+:g:ah
30 ae:b:a:g:f+:e:dq
31 ee:f+:e:d:c+:b4:aq
32 d5e:e:d:e:f+:a:g:f+
33 .GOSUB 53
34 ;
35 [1]:a3h:a2
36 a3:ae:g:f+:e
37 dh:d
38 d:d
39 d4q:a3:dh
40 aq:e:a2:a3e:g
41 f+q:e:d:g2
42 ah:d3
43 END
44 ;
45 .m130:.ws:.p2000:.s9:RETURN
46 ;
47 d5q:a4:d5:f+e:e
48 dq:a4e:ge:f+q:d
49 RETURN
50 ;
51 f+5e3:e:RETURN
52 ;
53 .FOR 4 GOSUB 51:&q6:&s:d5s:dh
54 RETURN
stop tok64
(bastext 1.0)