start tok64 d64-mlisj5
1 REM  euphony,
2 REM  a music assembler torture test
3 REM  by nick sullivan
4 :
5 SYS 592:.m84
6 [0]: .GOSUB 112
7 g4q
8 ,d5
9 ee:ds:c
10 dq.:,d6h.4:c:a5:f#
11 gh:.g30:,c4h.
12 g3s:g:b:g:g:bb:g:g:a:g:g:ab:g:g
13 gh:,ch.:zh
14 ;
15 .v3:.p200:y=.1
16 u=c:.FOR 24 GOSUB 114:.t0
17 zq:.v7:.FOR 24 GOSUB 114:.t0
18 zq:.v15:.FOR 24 GOSUB 114:.t0
19 ;
20 .wt:f#4h:g:zq
21 ;
22 .ws:.g96:g7,c#3q:g7,c#3:g7,c#3
23 zt:eb4s:eb:eb:eb:eb:eb:eb:zt
24 ;
25 a2e3:a:a:be:a:z:.GOSUB 116
26 ;
27 y=5:.GOSUB 127
28 .GO
29 .m150:.wn:.a6:.d6:.s6:.r5
30 d4e.:zs:.a2:.s0:ce:.a6:.s6
31 d4e.:zs:.a2:.s0:ce:d:c
32 .END 16
33 ;
34 .GOSUB129:zq:.g3:db5,eb4w:ew.:zh
35 .IFr=0THENr=1:zh.:GOTO28
36 r=0
37 ;
38 [1]: .GOSUB 112
39 c4t:c3:b:c:bb:c:a:c
40 ab:c:g:c:f#:c:gs
41 g4e:fs:e
42 fe:b3:bbq:be:c4q:c#
43 .g30:d4,d3q:,d4:,g3:,g2:,g3
44 bb3s1/14
45 bh:ah.:zh
46 ;
47 .p200:y=.1
48 zw.
49 zq:u=e*i:.FOR24GOSUB114:.t0
50 zq:.FOR24GOSUB114:.t0
51 ;
52 .wt:a3h:c#4:zq
53 ;
54 .ws:zh.
55 d4s:d:d:d:d:d:d:dt:z
56 ;
57 a2e3:a:a:be:a:z:.GOSUB 116
58 ;
59 y=4:x=120:.GOSUB 118
60 .m162:g3h:g2:g:d3q:c
61 b2:d3:g:f#:g:b:a:g
62 ah:a2:a:aq:g:f#:a
63 d3h:d:eq:f#
64 g:f#:e:d:e:d:c:b2
65 c3:b2:a:g:a:g:f#:e
66 d:g:f#:a:g:b:a:c3
67 b2h:g:gw:.j2
68 ;
69 .m150:.ws
70 zw
71 .GO:c2e:c:e:bbq:ae:g:eb:.END15
72 ;
73 .GOSUB129:zq:.g3:db4w:cw.:zh
74 .IFr=0THENr=1:zh.:GOTO69
75 r=0
76 ;
77 [2]:.GOSUB112:.p200:y=.1
78 zw1/9:&q
79 u=f*h:.FOR24GOSUB114:.t0
80 ;
81 .wt:d3h:a2:zq
82 ;
83 .ws:zh.
84 zh
85 ;
86 a2e3:a:a:be:a:z:.GOSUB 116
87 ;
88 .t7:y=4:.GOSUB 127:.t0
89 ;
90 .m150:.w34:.s9
91 zw:zh:ze:bb4,ebq.:.ws
92 ee:c5:e4:c5q:cq:bb4e
93 g:f#:f:e:&q:e,dq
94 ee:c5:e4:c5q:eb:ee
95 ebh3:c:bb4:&q:zq
96 .GO:bb5t:.t.5:bb:.t0:.END 14:ze
97 bb5,bb3w1/2
98 .GO:c4t:.t.5:c:.t0:.END 14:ze
99 .GO:eb5t:.t.5:eb:.t0:.END 14:ze
100 .GO:g4t:.t.5:g:.t0:.END 14:ze
101 .v4:e4e:c5:e4:c5q:cq:bb4e
102 .v7:e4e:c5:e4:c5q:cq:bb4e
103 .v11:e4e:c5:e4:c5q:cq:bb4e
104 .v15:e4e:c5:e4:c5q:cq:bb4e
105 ;
106 .GOSUB129:zq:.g4:b4,g3w:cw.:zh
107 .IFr=0THENr=1:zh.:GOTO90
108 r=0
109 ;
110 END
111 ;
112 .m110:.wp:.p2000:.g12:.s6:RETURN
113 ;
114 u3t:u#:.ty:y=y+.1:RETURN
115 ;
116 .wp:.p1000:s0:RETURN
117 ;
118 .mx:.oy:f#q:f#e:f#q:f#e
119 e:d:.oy-1:b:aq:ae
120 .oy:f#q:f#e:f#q:f#e:gq.:a
121 f#q:f#e:f#q:f#e
122 e:d:.oy-1:b:aq:ae
123 aq:.oy:c#e:e:d:c#:dq.:d
124 x=x+33
125 RETURN
126 ;
127 x=120:.FOR 4 .GOSUB 118: RETURN
128 ;
129 .a3:.d8:.s12:.r0:.ws:RETURN
stop tok64
(bastext 1.0)