10C%=1:DIMMUS$(3),E(3),N(3):TEMP=1:TU
=2:W=5:KEY=1:VOL=126
20*FX200,2
30ONERRORGOTO1650
40*FX15,0
50FORT%=0TO3:SOUNDT%,0,0,1:NEXT
60ENVELOPE1,1,0,0,0,0,0,0,127,-20,-5,
-5,VOL,0:ENVELOPE2,4,1,-1,0,1,1,0,127,-1
0,0,-5,VOL-22,0:ENVELOPE3,4,0,0,0,1,1,0,
100,0,0,-8,VOL-12,0:ENVELOPE4,1,0,0,0,0,
0,0,110,-5,-5,-2,VOL-26,0:ENVELOPE5,4,0,
0,0,1,1,1,127,-10,0,-8,VOL-22,0
70ENVELOPE6,4,1,-1,0,1,1,0,100,0,0,0,
VOL-56,0:ENVELOPE7,4,1,-1,0,1,1,0,127,-1
0,-5,-5,VOL-12,0:ENVELOPE8,100,0,0,0,0,0
,0,100,0,0,-1,VOL-46,0:ENVELOPE9,3,1,0,0
,150,0,0,0,0,0,0,0,0:ENVELOPE10,3,-1,0,0
,150,0,0,0,0,0,0,0,0
80ENVELOPE11,4,-1,0,0,100,0,0,127,0,-
2,-5,VOL-12,0:ENVELOPE12,4,1,-1,0,1,1,0,
100,0,0,-2,VOL-56,0:ENVELOPE13,4,0,0,0,0
,0,0,110,0,0,-2,VOL-26,0
90P$="01234>;<?=56789:@ABCDEFGHI34>;<
?=56789:@ABJKKKLM":FORJ%=1TOLENP$:D%=ASC
(MID$(P$,J%,1))-&30:REL%=D%*50+150:RESTO
RE REL%:PROCP(D%):NEXT
100FORS=&4500TO&6A80STEP640:FORT=S TO
S+&8F STEP4:!(T+128)=!T:!(T-128)=!T:!(T+
256)=!T:!(T-256)=!T:NEXT:NEXT:FORU=1TO20
00:NEXT:VDU6,31,0,31:FORY%=0TO31:VDU10:F
ORU=1TO100:NEXT:NEXT
110GCOL0,0:FORY%=0TO504STEP4:MOVE0,102
3-Y%:PLOT1,1280,0:MOVE0,Y%:PLOT1,1280,0:
NEXT:FORX%=0TO640STEP4:MOVEX%,512:PLOT1,
0,-8:MOVE1280-X%,512:PLOT1,0,-8:NEXT:GOT
O1650
120DEFPROCP(D%):FORX%=0TO3:READE(X%):N
EXT:FORX%=0TO3:READMUS$(X%):NEXT:FORL%=1
TOLENMUS$(1):T=TIME+W:FORG%=1TO3:P=4*ASC
(MID$(MUS$(G%),L%,1)):B%=G% OR &200:B%=B
%OR-&1000*(P=128):P=P+(KEY*4)-91*(G%=1AN
DE(G%)=0):ENV=E(G%):SOUNDB%,ENV,P+TU,TEM
P:NEXT
130IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(
1),L%,1)=" "),E(0),3,TEMP ELSE P=ASC(MID
$(MUS$(0),L%,1))-&30:SOUND-&1000*(P=-16)
,E(0),P,1
140REPEATUNTILTIME-T>W:NEXT:ENDPROC
150DATA1,0,0,0
160DATA"6 4 6 4 6 4 6 4
6"
170DATA"J
"
180DATA""
190DATA""
200DATA1,4,3,5
210DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
220DATA"L O O L K G K
J G J E G J "
230DATA"X X X Z Z
Z [ [ [ ] ] "
240DATA"X X X W W
W V V V X X "
250DATA1,4,3,5
260DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
270DATA"L O O L K G K
J G J E G J "
280DATA"X X X Z Z
Z [ [ [ ] ] [ ] [ ] "
290DATA"X X X W W
W V V V X X V X V X "
300DATA1,6,7,4
310DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
320DATA"L O
N L "
330DATA" L X V V S
V X Z X "
340DATA"L L L L L L
L L L L L L "
350DATA1,4,7,6
360DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
370DATA"L L L L L L
L L L L L L "
380DATA" X X X V V V
V V X Z X "
390DATA"L O
N L "
400DATA1,3,6,4
410DATA"4 4 444 "
420DATA"Z Z ZZZ "
430DATA"L "
440DATA" G K "
450DATA1,6,7,4
460DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
470DATA"O N
N L "
480DATA"S S S X Z
Z X Z X Z [ Z X "
490DATA"L O O L K G K
J G J E G J "
500DATA1,6,7,4
510DATA"6 4 6 4 6 4 6 4
66 4 6 4 6 4 6 4 6"
520DATA"O N
N L "
530DATA"S S X Z
[ X [ X ] ` ] [ ] ] "
540DATA"L O O L K G K
J G J E G J "
550DATA1,6,7,4
560DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
570DATA"L M
O M "
580DATA"[
[ ^ [ ^ [ ^ £ ^ ] [ ] "
590DATA"H H J H O O R Q
O K I K K I M K K "
600DATA1,6,7,4
610DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 4 4 "
620DATA"L M
O Q "
630DATA"[
[ ^ [ ^ [ ^ £ "
640DATA"H H J H O O R Q
O K I K K I M K K "
650DATA1,6,7,4
660DATA"6 4 6 6 4 6 4 6 6 4
6 4 6 6 4 6 4 6 6 4 4"
670DATA"T
M O "
680DATA"£ £ ^ [ ^ £
[ ^ £ £ [ ^ £ b£^ "
690DATA"D D F R G S H H K W L
X A A A A C C C C "
700DATA8,9,6,4
710DATA" 7 "
720DATA" i "
730DATA" "
740DATA" O O L K "
750DATA1,3,6,4
760DATA"6 6 4 6"
770DATA"Z "
780DATA" "
790DATA"G K "
800DATA8,10,4,6
810DATA" 7 "
820DATA" u "
830DATA" O O L K "
840DATA" "
850DATA1,0,6,4
860DATA"4 "
870DATA" "
880DATA"L "
890DATA"L "
900DATA1,0,4,6
910DATA"6 "
920DATA" "
930DATA"L "
940DATA"L "
950DATA1,6,7,4
960DATA"6 4 6 6 4 6 4 6 6 4
6 4 6 6 4 6 4 6 4"
970DATA"T
M O "
980DATA"£ £ ^ [ ^ £
[ ^ £ £ [ ^ £ b "
990DATA"D D F R G S H H K W L
X A A A A C C C "
1000DATA1,11,11,4
1010DATA"4 4 6 "
1020DATA"U "
1030DATA"I "
1040DATA" O D "
1050DATA1,6,7,4
1060DATA"4 6 6 4 6 4 6 6 4 6
4 6 6 4 6 4 6 6 4 4"
1070DATA"T M
O "
1080DATA"£ £ ^ [ ^ £ [ ^
£ £ [ ^ £ b£^ "
1090DATA" D F R G S H H K W L X A
A A A C C C C "
1100DATA1,6,7,4
1110DATA"6 4 6 6 4 6 4 6 6 4
6 4 6 6 4 "
1120DATA"T
M "
1130DATA"£ £ ^ [ ^ ££££££££££££
££££££££££££££££££"
1140DATA"D D F R G S H H K W L
X A A A A "
1150DATA1,12,7,4
1160DATA"6 4 6 4 5 5 "
1170DATA"O "
1180DATA"£ "
1190DATA"O O R O K "
1200DATA3,0,0,13
1210DATA"6 "
1220DATA" "
1230DATA" "
1240DATA"H "
1250DATA8,9,6,4
1260DATA"7 "
1270DATA"i "
1280DATA" "
1290DATA" "
1300DATA3,3,2,4
1310DATA"4 5 4 4 "
1320DATA"Y "
1330DATA"Y "
1340DATA" A C D "
1350DATA8,10,3,4
1360DATA"67 "
1370DATA" u "
1380DATA"G "
1390DATA" "
1400DATA1,3,0,4
1410DATA" "
1420DATA" VVVVVV "
1430DATA" "
1440DATA" E G J "
1450DATA1,6,7,4
1460DATA"6 4 6 6 4 6 4 6 6 4
6 4 6 6 4 6 4 6 6 4 6"
1470DATA"T
M O T R O K "
1480DATA"£ £ ^ [ ^ £
[ ^ £ £ b b bbbbbbb £^£"
1490DATA"D D F R G S H H K W L
X A A A A C C C D"
1500DATA1,6,5,4
1510DATA" 4 6 6 4 6 4 6 6 4
6"
1520DATA"
"
1530DATA" VVV V
"
1540DATA" D F R G S H H H H
D"
1550DATA1,11,5,4
1560DATA" 4 6 6 4 6 4 6 6 4 "
1570DATA" "
1580DATA" VVV V "
1590DATA" D F R G S H H T O K "
1600DATA3,11,13,12
1610DATA"6"
1620DATA"U"
1630DATA"H"
1640DATA"H"
1650VDU6:MODE7
1660VDU23;10,32;0;0;0;
1670VDU&98,&1C,1,0,1,0
1680*KEY0*DISC|M*DRIVE0|M*DIR$|MPA.=&19
00|M*EXEC !BOOT|MEND|M
1690*FX138,0,128
1700END