start tok64 d64-K5tOpL 10 POKE53280,0:POKE53281,0 20 REM*** aura lee (love me tender) *** 30 REM*** av: peter karlsson /1990 *** 40 REM 50 GOSUB50000:GOSUB51000:GOSUB50200 60 PRINT"{ct h}{142}{dark gray}{clear}{x*20} 70 PRINT"x{cyan}{reverse on} {cm f}{cm k}{reverse off}{cm k*2}{reverse on} {cm f}{cm k}{cm d}{reverse off}{cm k}{reverse on}{cm k}{reverse off}{cm k} {reverse on} {cm i}{cm k}{cm d}{reverse off}{cm v}{dark gray}x 80 PRINT"x{cyan}{reverse on} {cm f}{cm k}{reverse off}{cm k*2}{reverse on} {reverse off}{cm b}{reverse on}{cm k}{cm d}{reverse off}{cm k}{reverse on}{cm k}{reverse off}{cm k} {reverse on} {reverse off}{cm v}{reverse on}{cm k}{cm d}{reverse off} {dark gray}x{cyan}{right*2}(love me tender) 90 PRINT"{dark gray}x{white}{reverse on}{cm i}{reverse off}{cm c*2}{reverse on}{cm i}{reverse off}{cm v}{reverse on}{cm i}{reverse off}{cm c*2}{cm v*2}{cm c}{reverse on}{cm i}{reverse off}{cm v}{reverse on}{cm i*2}{reverse off}{cm c}{reverse on}{cm i}{reverse off}{cm v}{dark gray}x 100 PRINT"{x*20}{down}{orange}dator- 110 PRINT"musik:{green}g.r. poulton"TAB(20)"{orange}bearb:{green}peter karlsson{dark gray} 120 PRINT"{down}{light gray}f{pound}r att stoppa musiken skriv: {light blue}gosub50300{down} 130 PRINT"{dark gray}en sw-produktion{space*6}M{up}{left}N{up}NM{down*2} 140 PRINT"{space*7}{down}UDI {cm s}UIUIUI{up}{space*5}M{down}M{space*2}{sh asterisk*2}{cm r}{sh asterisk}{cm s}{sh asterisk*6}{cm s} 150 PRINT"{space*7}GcH {sh -}J{cm w}J{cm w}{sh -*2}{space*6}NNM{cm a}{sh asterisk}{sh -} {sh -}wolves{sh -} 160 PRINT"{space*7}JFK {cm e}JKJKJK{space*4}MN MN{cm q} {sh -} {cm z}{sh asterisk*6}{cm x} 200 FORj=.TO1:FORi=1024TO2023:z=PEEK(i):y=zOR128:IFzAND128THENy=zAND127 210 POKEi,y:NEXT:NEXT 220 END 50000 i=20000 50010 READa:IFa>-1THENPOKEi,a:i=i+1:c=c+a:GOTO50010 50020 IFc<>16052THENPRINT"{down}?data error";:END 50030 RETURN 50050 DATA238,226,79,172,226,79,204,227,79,208 50060 DATA105,169,,141,226,79,238,228,79,172 50070 DATA228,79,185,20,80,201,255,240,19,162 50080 DATA,142,4,212,141,,212,185,64,81 50090 DATA141,1,212,169,17,141,4,212,185,108 50100 DATA82,201,255,240,19,162,,142,11,212 50110 DATA141,7,212,185,152,83,141,8,212,169 50120 DATA17,141,11,212,185,196,84,201,255,240 50130 DATA19,162,,142,18,212,141,14,212,185 50140 DATA240,85,141,15,212,169,33,141,18,212 50150 DATA173,230,79,141,227,79,204,229,79,208,5,169,,141,228,79,76,49,234,-1 50200 FORi=1TO255:IFPEEK(20500+i)=254THENPOKE20453,i-1:GOTO50205 50202 NEXT:POKE20453,255 50205 FORi=54272TO54296:POKEi,0:NEXT:POKE54296,15 50207 POKE20044, 33 :POKE20070, 17 50208 POKE20096, 33 :POKE54277, 9 50209 POKE54277+7, 9 :POKE54277+14, 9 50210 POKE54278, 0 :POKE54278+7, 0 50211 POKE54278+14, 0 :POKE20452,0:POKE20454, 25 50220 POKE56334,PEEK(56334)AND254:POKE788,32:POKE789,78:POKE56334,PEEK(56334)OR1 50230 RETURN 50300 POKE56334,PEEK(56334)AND254:POKE788,49:POKE789,234 50310 POKE56334,PEEK(56334)OR1 50320 FORi=54272TO54296:POKEi,0:NEXT 50330 RETURN 51000 POKE20453,64 51010 FORi=1TO66:READl1,h1,l2,h2,l3,h3 51020 POKE20500+i,l1:POKE20800+i,h1 51030 POKE21100+i,l2:POKE21400+i,h2 51040 POKE21700+i,l3:POKE22000+i,h3:NEXT:RETURN 51050 DATA143,12,143,10,97,8,195,16,143,12,143,10 51060 DATA210,15,143,12,143,10,195,16,143,12,143,10 51070 DATA209,18,24,14,48,11,24,14,48,11,104,9 51080 DATA209,18,24,14,48,11,255,255,255,255,255,255 51090 DATA195,16,143,12,104,9,210,15,143,12,104,9 51100 DATA24,14,24,14,48,11,210,15,143,12,48,11 51110 DATA195,16,143,12,143,10,255,255,255,255,255,255 51120 DATA255,255,255,255,255,255,255,255,255,255,255,255 51130 DATA143,12,143,10,97,8,195,16,143,12,143,10 51140 DATA210,15,143,12,143,10,195,16,143,12,143,10 51150 DATA209,18,24,14,48,11,24,14,48,11,104,9 51160 DATA209,18,24,14,48,11,255,255,255,255,255,255 51170 DATA195,16,143,12,104,9,210,15,143,12,104,9 51180 DATA24,14,24,14,48,11,210,15,143,12,48,11 51190 DATA195,16,143,12,143,10,255,255,255,255,255,255 51200 DATA255,255,255,255,255,255,255,255,255,255,255,255 51210 DATA31,21,195,16,143,12,31,21,195,16,143,12 51220 DATA31,21,195,16,78,13,31,21,195,16,78,13 51230 DATA31,21,195,16,24,14,31,21,195,16,24,14 51240 DATA31,21,195,16,78,13,255,255,255,255,255,255 51250 DATA31,21,195,16,143,12,209,18,78,13,143,10 51260 DATA195,16,24,14,48,11,209,18,78,13,97,8 51270 DATA31,21,143,12,97,8,255,255,255,255,255,255 51280 DATA255,255,255,255,255,255,255,255,255,255,255,255 51290 DATA31,21,143,12,97,8,31,21,143,12,97,8 51300 DATA96,22,24,14,225,8,31,21,143,12,225,8 51310 DATA209,18,218,11,104,9,24,14,143,12,143,10 51320 DATA209,18,24,14,218,11,255,255,255,255,255,255 51330 DATA195,16,24,14,48,11,210,15,143,12,48,11 51340 DATA31,21,24,14,48,11,209,18,143,12,48,11 51350 DATA195,16,143,12,143,10,255,255,255,255,255,255 51360 DATA255,255,255,255,255,255,255,255,255,255,255,255 51370 DATA254,254,254,254,254,254,255,255,255,255,255,255 stop tok64 (bastext 1.0)