2ON ERROR GOTO 221
3*TV 255 1
10MODE 2:VDU23,0,10,32,0;0;0;
11VDU19,0,7;0;19,1,1;0;19,2,1;0;19,3,
7;0;19,4,7;0;19,5,4;0;19,6,4;0;19,7,0;0;
12FORA%=8TO15:VDU19,A%,7,0,0,0:NEXT
13HIMEM=&2E00:*LOAD BALL 2E00
14CALL&2E00
40CC$="7653176531765317653":FORT=1TOL
ENCC$::NEXT
60TEMP=1:KEY=0:W=9:V=126:K1=0:K2=0:C1
=0
70DIMMUS$(3),E(3),N(3),W(70)
80PROCINIT
90ENVELOPE1,1,0,0,0,0,0,0,25,8,0,-2,V
-20,V
100ENVELOPE2,1,0,0,0,0,0,0,100,60,0,-1
,V-20,V
110ENVELOPE3,20,0,0,0,0,0,0,100,1,-1,-
12,V-20,0
120ENVELOPE4,2,0,0,0,0,0,0,80,60,0,-2,
V-40,V-20
130ENVELOPE5,1,0,0,0,0,0,0,126,-12,-6,
-2,V,0
140ENVELOPE6,3,0,-1,0,16,12,120,126,-3
,0,-1,V,0
150ENVELOPE7,1,0,0,0,0,0,0,110,-20,-10
,-4,V-10,0
160P$="01233451245666789:334512;<=>330
0"
170FORJ=1TOLEN(P$)
180D%=ASC(MID$(P$,J,1))-&30
190REL%=D%*60+410
200RESTORE REL%:PROCP(D%):NEXT
220FORT=1TO3000:NEXT
221*FX 13 4
222VDU 12,20
223COLOUR1:PRINT'''" Eat your heart o
ut"
224COLOUR2:PRINT'" Commodore"
225COLOUR3:PRINT'" And Sweet Dreams!"
227COLOUR5:PRINT''" Music by Eurithmic
s"
228COLOUR6:PRINT''" By Larr.Fen "
229GOTO229
230DEFPROCP(D%)
240FORX=0TO3:READE(X):NEXT
250FORX=0TO3:READMUS$(X):NEXT
260FORL=1TOLENMUS$(1)
270C=C+1
280DEL=W-12*(D%<6ORD%>8)
290T=DEL+TIME
300FORV=1TO3
310P=4*ASC(MID$(MUS$(V),L,1))
320B%=V OR &200
330B%=B%OR-&1000*(P=128)
340P=P+(KEY*4)-91*(V=1ANDE(V)=0)
350SOUNDB%,E(V),P,TEMP
360C1=C1+1:IFC1=6C1=0:IFMUS$(0)=""SOUN
D&0010,5,4,1
370NEXT
380IFMUS$(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
390REPEATUNTILTIME>T
391NEXT
400ENDPROC
401REM (C) Ian Hutt 1986
410DATA1,0,1,1
420DATA""
430DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
440DATA"
"
450DATA"
"
460::::::::::::::::::::::::::::::::::
470DATA1,0,2,2
480DATA""
490DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
500DATA" P P M PP O PPMP PMPR PO
"
510DATA"
"
520::::::::::::::::::::::::::::::::::
530DATA1,0,2,2
540DATA""
550DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
560DATA"PPMP PMPP O P MP M PPRP O
"
570DATA"
"
580::::::::::::::::::::::::::::::::::
590DATA1,0,2,4
600DATA""
610DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
620DATA"PPM P MP M PPM P MP R PO
"
630DATA"TTP T PT R TTP T PT U TR
"
640::::::::::::::::::::::::::::::::::
650DATA5,1,2,3
660DATA"6 466 4 6 466 4 6 466 4 6 466
4 "
670DATA"I UIIUIUH THHTLXM YMMYKWF RFFR
FR"
680DATA" [½[Y[Y YR
"
690DATA"MMMMMMMMLLLLLLOOPPPPPPOOIIIIII
II"
700::::::::::::::::::::::::::::::::::
710DATA5,1,6,3
720DATA"6 4666466 466646"
730DATA"I UIIUIUH THHTHT"
740DATA" [½ "
750DATA"MMMMMMMMLLLLLLLL"
760::::::::::::::::::::::::::::::::::
770DATA7,2,5,3
780DATA"655565556555655565556555655565
55"
790DATA"
"
800DATA"½ Y YY P PM ½ Y YY O OP
"
810DATA"MMMMMMMMAAAAAAAAFFFFFFFFKKWWLL
XX"
820::::::::::::::::::::::::::::::::::
830DATA7,2,5,3
840DATA"65556555655565556 6 "
850DATA" "
860DATA"½ Y YY P PM ½ Y YY "
870DATA"MMMMMMMMAAAAAAAAFFFF
"
880::::::::::::::::::::::::::::::::::
890DATA0,0,3,3
900DATA""
910DATA" "
920DATA"WY½[YW"
930DATA"KMPOMK"
940::::::::::::::::::::::::::::::::::
950DATA1,0,3,3
960DATA""
970DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
980DATA"MMMMMMMMDDDDFHDAAAAAAAAAAAAAAH
KM"
990DATA"YYYYYYYYPPPPRTPMMMMMMMMMMMMMMT
WY"
1000::::::::::::::::::::::::::::::::::
1010DATA1,0,3,3
1020DATA""
1030DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
1040DATA"MMMMMMMMMMMMSRPMMMMMMMMMMMMMMM
M "
1050DATA"YYYYYYYYYYYYGFDAAAAAAAAAAAAAAA
A "
1060::::::::::::::::::::::::::::::::
1070DATA1,0,2,1
1080DATA""
1090DATA"A M P M I M H K A M P M I M HT
Y"
1100DATA" P P M PP O PPMP PMPR PO
"
1110DATA" T T P TT R TTPT TPTU TR
"
1120::::::::::::::::::::::::::::::::
1130DATA1,0,2,4
1140DATA""
1150DATA"A M P M I M H K A M P M I M HT
Y"
1160DATA"PPMP PMPP O P MP M PPRP O
"
1170DATA"TTPT TPTT R T PT P TTUT R
"
1180:::::::::::::::::::::::::::::::::
1190DATA1,0,2,4
1200DATA""
1210DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
1220DATA" P P M PP O PPMP PMPR PO
"
1230DATA" T T P TT R TTPT TPTU TR
"
1240::::::::::::::::::::::::::::::::
1250DATA1,0,2,2
1260DATA""
1270DATA"AYMYP½MYIUM½HTKYAYMYP½MYIUM½HT
KY"
1280DATA"PPMP PMPP O P MP M PPRP O
"
1290DATA"TTPT TPTT R T PT P TTUT R
"
1300DEFPROCINIT
1310RESTORE1650
1330FORT=0TO42:READW(T):NEXT
1340ENDPROC
1650DATA35,49,65,81,97,113,129,145,211,
225,241,257,322,338,346,354,362,369,377
1660DATA385,393,402,409,418,425,434,513
,529,545,561,627,641,657,673,691,705
1670DATA720,737,755,769,785,801,820