10MODE7 12VDU23;8202;0;0;0; 13DIMMUS$(4),E(3),W$(500) 14I=0 15RESTORE2500:REPEAT 16I=I+1 17READW$(I) 18UNTILW$(I)="STOP" 19N=1 20*FX200 3 21VDU28,0,24,39,20 30ENVELOPE1,5,1,-1,1,1,2,1,110,10,-2, -1,120,20 40ENVELOPE2,7,1,-1,1,1,1,1,120,6,-5,- 7,126,20 50ENVELOPE3,5,1,-1,1,1,2,1,90,-1,-2,- 1,90,20 60ENVELOPE4,2,0,0,0,0,0,0,90,35,-1,-1 ,120,80 70ENVELOPE5,1,0,0,0,0,0,0,126,-12,-6, -2,126,0 80ENVELOPE6,5,1,-1,1,1,2,1,80,20,-2,- 1,100,20 90ENVELOPE7,1,0,0,0,0,0,0,120,-8,-4,- 2,126,0 95ENVELOPE8,5,1,-1,1,1,2,1,60,20,-2,- 1,80,20 100P$="0000123456789:;<=>?@A6789:;<=>? @ABCDE=>?F=>?FG" 110FORJ=1TOLEN(P$) 120D%=ASC(MID$(P$,J,1))-&30 130REL%=D%*60+410 140RESTORE REL%:PROCP(D%):NEXT 150GOTO150 200DEFPROCP(D%) 210FORX=0TO3:READE(X):NEXT 220FORX=0TO3:READMUS$(X):NEXT 225READWD$ 230FORL=1TOLENMUS$(1) 235IFMID$(WD$,L,1)="." PRINTW$(N);:N=N +1 236IFMID$(WD$,L,1)="/" PRINT 270FORV=1TO3 280P=4*ASC(MID$(MUS$(V),L,1)) 290B%=V OR &200 300B%=B%OR-&1000*(P=128) 310P=P+4 320SOUNDB%,E(V),P,1 330NEXT 340P=ASC(MID$(MUS$(0),L,1))-&30:SOUND- &1000*(P=-16),E(0),P,1 350FORT=1TO160:NEXT 360NEXT 370ENDPROC 410DATA5,1,3,3 420DATA" " 430DATA"A A HJAA H M " 440DATA" " 450DATA" " 460DATA" " 470DATA5,1,3,3 480DATA" " 490DATA"A A HJAA H M " 500DATA"QQ QQ QQQ " 510DATA" T" 520DATA" /." 530DATA5,1,3,3 540DATA" " 550DATA"A A HJAA H M A A HJAA H M " 560DATA"QQ QQ QQQ QQ QQ QQQ " 570DATA"TTTTT TTTTT T TTTTTTTT T T T " 580DATA" ...../. .. ./ ......./.. . . /" 590DATA5,1,3,3 600DATA" " 610DATA"A A HJAA H M A A HJAA H M " 620DATA"QQ QQ QQQ QQ QQ QQQ " 630DATA"TTTTTTTTT TTT T TTT TTTT TT T" 640DATA"........./../ . .../.... ./ ." 650DATA5,1,3,3 660DATA" " 670DATA"A A HJAA H M A A HJAA H M " 680DATA"OO OO QQ QQ QQ QQ QQQ " 690DATA"TTTTT TTTTT T TT TTT TTT T T " 700DATA"...../..... ./ .. .../... . ./ " 710DATA5,1,3,3 720DATA" " 730DATA"A A HJAA H M A A HJAA H M " 740DATA"QQ QQ QQ QQ QQ QQ QQQ " 750DATA"T TTT TT T T TTT T T TT T " 760DATA". .../ .. . ./... . ./ .. . /" 770DATA5,1,3,1 780DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 790DATA"A A HJAA H M A A HJAA H M " 800DATA"QQ QQ QQQ QQ QQ QQQ " 810DATA" ] [ ] ] ] ] ] ] []][ Y " 820DATA"/ . . . . . . . ./" 830DATA5,1,3,1 840DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 850DATA"A A HJAA H M A A HJAA H M " 860DATA"QQ QQ QQQ QQ QQ QQQ " 870DATA"Y £ ^ ] [ [ ][Y Y £ ^ " 880DATA" . . . . . . ./" 890DATA5,1,3,1 900DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 910DATA"A A HJAA H M A A HJAA H M " 920DATA"RR RR RR RR QQ QQ QQQ " 930DATA"^ £ ^ £ b b £ ] Y Y ^ ] ] " 940DATA" . . . . ./. . . . ./" 950DATA5,1,3,1 960DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 970DATA"A A HJAA H M A A HJAA H M " 980DATA"TT TT RR RR QQ QQ QQQ " 990DATA"] " 1000DATA" " 1010DATA5,1,3,1 1020DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1030DATA"A A HJAA H M A A HJAA H M " 1040DATA"Q Q " 1050DATA" eeb£e b ££ eeb£e b £ " 1060DATA"/ ..... . . / ..... . . /" 1070DATA5,1,3,1 1080DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1090DATA"A A HJAA H M A A HJAA H M " 1100DATA"Q Q " 1110DATA" £eeb£eb ££ eee ee e e gg" 1120DATA" ....... . / ... .. /. . .." 1130DATA5,1,3,1 1140DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1150DATA"H H OQHH O T F E C C A" 1160DATA"T R Q R R Y" 1170DATA"ggb b £ £ b £ b £ b e " 1180DATA" .. . / . . . . . . ./" 1190DATA5,1,3,1 1200DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1210DATA"A A HJAA H M K K RTFF F R " 1220DATA"e c b " 1230DATA" eeeeb£e b £ eeeeb£e £bb£ " 1240DATA"/ ....../.. . / ....../... / " 1250DATA5,1,3,1 1260DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1270DATA"A A HJAA H M K K RTFF F R " 1280DATA"e c b " 1290DATA" eeeeb£e b £ e e eccb ccb ^ " 1300DATA" ....../.. ./. . .. ./. . ./ " 1310DATA5,1,3,1 1320DATA"6 6 4 66 6 4 " 1330DATA"K K RTKK R W " 1340DATA"c " 1350DATA" ^^^ ^^b eee " 1360DATA" ... ... .. / " 1370DATA5,1,3,1 1380DATA"6 6 4 66 6 4 6 6 4 66 6 4 " 1390DATA"K J F A A HJAA H M " 1400DATA"c b e e " 1410DATA" e eebb£ ] b £ £ " 1420DATA" . ..... . . / " 1430DATA5,1,3,1 1440DATA"6 6 4 66 6 4 " 1450DATA"A A HJAA H M " 1460DATA"e " 1470DATA" " 1480DATA" " 1490DATA5,1,3,2 1500DATA" 4567 456 7 " 1510DATA"J J V J J V K K W K K W " 1520DATA"Y X X Y Y V V X " 1530DATA"] [ [ ] ] Y Y [ " 1540DATA"/. . . . . ./ " 1550DATA5,1,3,2 1560DATA" 4567 456 7 " 1570DATA"F F R F F R H H T H H T " 1580DATA"Y Y Y Y Y [ [ [ " 1590DATA"^ ^ ^ ] ] ^ £ b £ £ £ Y " 1600DATA". . . . . ./. . ./ . " 1610DATA5,1,3,2 1620DATA" 4567 456 7 " 1630DATA"L L W L L W F F R F F R " 1640DATA"X X X X X X " 1650DATA"[ [ [ [ ] [ [ ] Y Y[" 1660DATA". . . . . . ./ . " 1670DATA5,1,3,2 1680DATA" 4567 454 5 " 1690DATA"L L T L L T L L T L L T A" 1700DATA"X X [ [ £ £ £ d d d T" 1710DATA"[ [ £ £ d d d g g g i ge " 1720DATA". . . . . ./ . . . .. /" 1730DATA5,1,3,1 1740DATA"6 6 4 66 6 4 " 1750DATA"K J F F A" 1760DATA"W V Y Y Y" 1770DATA" e eeb£eeb£" 1780DATA" . ......./" 1790DATA5,1,3,1 1800DATA"6" 1810DATA"M" 1820DATA"Y" 1830DATA"£" 1840DATA" " 2500DATA" Some","thing ","in ","the "," moon","light"," Catch","es ","my ","eye. "," The ","shad","ow ","of ","a ","lov", "er"," Goes ","danc","ing ","by." 2510DATA" Look","ing ","for ","a ","lit ","tle ","bit ","of ","love "," To ","gr ow"," So ","give ","me ","love"," Give " ,"me"," Heart ","and ","Soul."," You " 2520DATA"nev","er ","let ","me ","cross "," To ","the ","oth","er ","side ","now "," I'm ","tied ","to ","the ","hope"," That ","you ","will ","some","how." 2530DATA" Hard ","on ","the ","heels"," Of ","some","thing ","more,"," But ","I ","lost ","your ","love"," Heart ","and ","Soul." 2540DATA" More ","than ","an ","o","cea n"," (Oo","oo","ooh)"," Keeps ","us ","a ","pa","rt"," (Oo","ooh)" 2550DATA" I ","feel ","a ","tear","ing "," In ","half ","of ","my ","heart." 2560DATA" Leav","ing ","you ","ain't ", "eas","y ","now."," Lov","ing ","you's " ,"the ","hard","er ","part."," You ","ne v","er ","want ","me ","for ","my","self "," Now ","I've ","need","ed ","you "," Right ","from ","the ","ver","y ","sta" 2570DATA"rt."," Oh ","won't ","you ","e ","ven ","try ","to"," Give ","a"," lit" ,"tle ","bit ","of"," Heart ","and ","So ul."," Give ","a"," lit","tle ","bit "," of"," Love ","to ","grow."," Give ","a", " lit","tle ","bit ","of"," Heart " 2580DATA"and ","Soul."," And ","don't " ,"you ","make ","me"," Beg ","for ","mor e,"," Give ",a ,sign ,now ,I ,need ,to , know," A ",lit,tle ,bit ,of," Heart ",an d ,Soul. 2590DATA" A walk ",on ,the ,wa,ter," (O o","oo","ooh)"," Is all ",that ,I ,need, ," (Oo","ooh)"," But ",mir,a,cles ,are , " Not ",hap,pen,ni,ng. 2600DATA" Liv",ing ,in ,a ,fan,ta,"sy," ," There's ",nev,er ,any ,room ,to ,"bre athe,",," Hop",ing ,ev,ery ,wak,ing ,"ho ur,"," You'll ",turn ,a,round,," And ",s ay ,that ,we ,can ,sta,y. 2610DATA" Oh ","won't ","you ","e","ven ","try ","to"," Give ","a"," lit","tle ","bit ","of"," Heart ","and ","Soul."," Give ","a"," lit","tle ","bit ","of"," Love ","to ","grow."," Give ","a"," lit" ,"tle ","bit ","of"," Heart " 2620DATA"and ","Soul."," And ","don't " ,"you ","make ","me"," Beg ","for ","mor e,"," Give ",a ,sign ,now ,I ,need ,to , know," A ",lit,tle ,bit ,of," Heart ",an d ,Soul. 2630DATA" Some",how ,I ,lost ,my ,way," Look",ing ,to ,see ,some,thing ," In ", your ,eyes," But ",love ,will ,ne,ver ,c omp,ro,mise," Now ",this ,is ,the ,pol,i ,tics ," Of ",life ,ye,a,h. 2640DATA" Give ","a"," lit","tle ","bit ","of"," Heart ","and ","Soul."," Give ","a"," lit","tle ","bit ","of"," Love " ,"to ","grow."," Give ","a"," lit","tle ","bit ","of"," Heart ","and ","Soul."," And ","don't ","you ","make ","me" 2650DATA" Beg ","for ","more,"," Give " ,a ,sign ,now ,I ,need ,to ,know," A ",l it,tle ,"bit, ",a ,lit,tle ,bit 2660DATA" Give ","a"," lit","tle ","bit ","of"," Heart ","and ","Soul."," Give ","a"," lit","tle ","bit ","of"," Love " ,"to ","grow."," Give ","a"," lit","tle ","bit ","of"," Heart ","and ","Soul."," And ","don't ","you ","make ","me" 2670DATA" Beg ","for ","more,"," Give " ,a ,sign ,now ,I ,need ,to ,know," A ",l it,tle ,"bit, ",a ,lit,tle ,bit 3000DATA"STOP"