50VDU23;8202;0;0;0;
65TIME=0
70Tempo%=1:Key%=0:Delay%=11
80DIMMUS$(3),E(3),N(3):V=126
90ENVELOPE1,1,0,0,0,0,0,0,25,8,0,-2,1
00,126
100ENVELOPE2,1,0,0,0,0,0,0,100,60,0,-1
,100,126
110ENVELOPE3,20,0,0,0,0,0,0,100,1,-1,-
12,100,0
120ENVELOPE4,3,1,-1,0,1,1,0,127,-1,-1,
-1,126,100
130ENVELOPE5,1,0,0,0,0,0,0,126,-12,-6,
-2,126,0
140ENVELOPE6,3,0,-1,0,16,12,120,126,-3
,0,-1,126,0
150ENVELOPE7,1,2,-2,1,2,4,4,120,-1,-1,
-2,120,110
155ENVELOPE8,1,0,0,0,1,1,1,&7F,2,3,&FF
,&80,1
160Combination$="012345678345629:;29<=
<>5629?????????@"
170FORJ%=1TOLEN(Combination$)
180D%=ASC(MID$(Combination$,J%,1))-&30
190REL%=D%*60+420
200RESTORE REL%:PROCP(D%)
210NEXT
215GOTO65
240
250DEFPROCP(D%)
260FORX%=0TO3:READE(X%):NEXT
270FORX%=0TO3:READMUS$(X%):NEXT
280FORL%=1TOLENMUS$(1)
300T%=TIME+Delay%
310FORV%=1TO3
320P%=4*ASC(MID$(MUS$(V%),L%,1))
330B%=V% OR &200
340B%=B%OR-&1000*(P%=128)
350P%=P%+(Key%*4)-91*(V%=1ANDE(V%)=0)
360SOUNDB%,E(V%),P%,Tempo%
370NEXT
380IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(
1),L%,1)=" "),E(0),3,Tempo% ELSE P%=ASC(
MID$(MUS$(0),L%,1))-&30:SOUND-&1000*(P%=
-16),E(0),P%,1
390REPEATUNTILTIME>T%:NEXT
400ENDPROC
410END
420DATA5,3,4,4
430DATA"6 6 6 6 6 6 6 6 6 6 6
6 6 6 6 6 6 6 6 6 6 6 6 6 466646
6646664666"
440DATA"V W V W V W V W V W V W V W V
W V W V W V W V W W V W V W V W V W V
W V W V W "
450DATA"L T S R
Q [ W
"
460DATA" H G F
E O K
"
470::::::::::::::::::::::::::::::::::
480DATA5,8,8,8
490DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
500DATA"X X b a X X b a
X X b a X X b b a "
510DATA"S S Q Q S S Q Q
S S Q Q S S Q Q Q "
520DATA"L L CDG J J E E L L CDG J J E
E L L CDG J J E E L L CDG J J E E "
530::::::::::::::::::::::::::::::::::
540DATA5,7,8,8
550DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
560DATA" XX½ X Z V XXXXV X
XX½ X Z V XXXXV Z X "
570DATA" V Q
Q V Q U X "
580DATA"L L CDG J J E E L L CDG J J E
E L L CDG J J E E L L CDG J J E E "
590::::::::::::::::::::::::::::::::::
600DATA5,8,8,8
610DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
620DATA"[ X [ V U XVX X X V U
½XXXX V U L L V V U XX"
630DATA"G G Q Q G G Q Q
G G Q Q G G Q Q Q "
640DATA"L L CDG J J E E L L CDG J J E
E L L CDG J J E E L L CDG J J E E "
650::::::::::::::::::::::::::::::::::
660DATA5,8,8,8
670DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
680DATA"[ X [ V U XVX X X V U
½XXXX Z X L L Z Z X S "
690DATA"G G Q Q G G Q Q
G G V U G G V V U "
700DATA"L L CDG J J E E L L CDG J J E
E L L CDG J J E E L L CDG J J E G "
710::::::::::::::::::::::::::::::::::
720DATA5,4,8,4
730DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 6 4
6 4 "
740DATA"[ X [ X [ X [ X [ X VW
X [ X [ X [ X [ X [ X VWX ` [
` [ ` ["
750DATA"L L L J J J J J J
J I I I E E E E E E E L L
L L "
760DATA"
[ X
[ X [ X"
770::::::::::::::::::::::::::::::::::
780DATA5,4,8,4
790DATA"6 4 6 4 6 4 6 4
6 4 6 4 "
800DATA" ` [ ` [ [ ` [ ` [ `
[ ` [ ` [ [ "
810DATA"J J J J J J I I I I
E E E E E E "
820DATA" [ X [ X VWX [ X [ X [
X [ X [ X VWX "
830::::::::::::::::::::::::::::::::::
840DATA5,8,8,8
850DATA"6 4 6 4 6 4 6 4
"
860DATA"X X V U L L V U
"
870DATA"S S Q Q S S Q Q
"
880DATA"L L CDG J J E E L L CDG J J E
E "
890::::::::::::::::::::::::::::::::::
900DATA5,7,8,8
910DATA"6 4 6 4 6 4 6 4
"
920DATA" XX½ X Z V XXXXV Z X
"
930DATA" V Q U
X "
940DATA"L L CDG J J E E L L CDG J J E
E "
950::::::::::::::::::::::::::::::::::
960DATA5,7,8,8
970DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
980DATA" XX½ X Z V XXXXV Z
XX½ X Z V XXXXV Z X "
990DATA"[ X [ V XX X X Q
X X X V Q U "
1000DATA"L L CDG J J E E L L CDG J J E
E L L CDG J J E E L L CDG J J E E "
1010::::::::::::::::::::::::::::::::::
1020DATA5,4,8,4
1030DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
1040DATA" [ Z V
Z V X "
1050DATA" LX L LL L
PPPS PP "
1060DATA"L J
L J L L "
1070::::::::::::::::::::::::::::::::::
1080DATA5,4,8,4
1090DATA"6 4 6 4 6 4 6 4
6 4 6 4 6 4 6 4 "
1100DATA" [ Z V
Z V ] [ Z X U "
1110DATA" LX L LL L
` ] [ X "
1120DATA"L J
L O S Q O L "
1130::::::::::::::::::::::::::::::::::
1140DATA5,8,4,8
1150DATA"4 4 44446
4 4 44446 "
1160DATA" JJJJB
JJJJB "
1170DATA" [ Z V
V "
1180DATA"G G
G "
1190::::::::::::::::::::::::::::::::::
1200DATA5,8,4,0
1210DATA""
1220DATA" GIKQ S "
1230DATA" G "
1240DATA""
1250::::::::::::::::::::::::::::::::::
1260DATA5,8,4,8
1270DATA"6 4 6 4 "
1280DATA"] ½ ] ½ ` ] ½X "
1290DATA"G G "
1300DATA" G S VWX "
1310::::::::::::::::::::::::::::::::::
1320DATA5,7,8,8
1330DATA"6 4 6 4 6 4 6 4
"
1340DATA" XX½ X Z V XXXXV Z X
"
1350DATA"½XXXX V ` ` ` Q U
"
1360DATA"L L CDG J J E E L L CDG J J E
E "
1370::::::::::::::::::::::::::::::::::
1380DATA5,7,8,8
1390DATA"6 4 6 4 6 "
1400DATA" XX½ X Z V "
1410DATA"½XXXX V ` ` ` "
1420DATA"L L CDG J J E E L L "
5000DEFPROCtitle
5010FART%=0
5020VDU 23;8202;0;0;0;
5030VDU 19,1,0,0,0,0,0:VDU 19,2,0,0,0,0
,0:VDU 19,3,0,0,0,0,0
5040VDU 23,226,64,32,32,32,44,50,35,66
5050END
5060COLOUR1
5080REPEAT:GCOL3,3:FORI%=0 TO 640 STEP
8
5090MOVE 640-I%,150
5100DRAW 640-I%,30
5110MOVE 648+I%,150
5120DRAW I%+648,30
5130NEXT
5135COLOUR3:PRINTTAB(0,0);" Music:-D.Ha
nkinson."
5140FORI%=640 TO 0 STEP -8
5150MOVE 640-I%,150
5160DRAW 640-I%,30
5170MOVE 648+I%,150
5180DRAW I%+648,30
5190 NEXT I%
5195PRINTTAB(0,0);"Graphics:-M.Sherratt
"
5200VDU 19,1,1,0,0,0,0:VDU 19,2,1,0,0,0
,0,0:VDU 19,3,7,0,0,0,0,0:FART%=FART%+1:
UNTILFART%=3
5205PRINTTAB(0,0);SPC(20)
5210COLOUR3
5230ENDPROC
5240DEFPROCbig(A$,x,y)
5250X%=0:Y%=13:A%=10:D=&D00
5260C$=CHR$(240)+CHR$8+CHR$10+CHR$(241)
5270FOR N=1 TO LEN(A$)
5280B$=MID$(A$,N,1):?D=ASC(B$):CALL&FFF
1
5290VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D
?4,D?4
5300VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D
?8,D?8
5310PRINTTAB(x+N-1,y)C$:NEXT:ENDPROC