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