start tok64 d64-czxFMY 10 POKE53280,0:POKE53281,0:PRINT"{clear}";:GOSUB60000:PRINT"{gray}{ct n}";:RESTORE 20 REM -- setup -- 30 DIMno$(9),h(9),l(9) 40 DIMh1(68),h2(68),h3(68),l1(68),l2(68),l3(68),le(68) 50 w1=54276:w2=54283:w3=54290 60 a1=54277:a2=54284:a3=54291 70 s1=a1+1:s2=a2+1:s3=a3+1 80 vo=54296:POKEvo,15 90 v1=54272:v2=54279:v3=54286 100 FORi=v1TOvo:POKEi,0:NEXT 110 REM -- read notes and values -- 120 FORn=1TO9:READno$(n),h(n),l(n):NEXT 130 REM -- read music -- 140 FORn=1TO68:READm1$,le(n):FORj=1TO9:IFno$(j)=m1$THEN160 150 NEXTj:PRINT"Error!":END 160 h1(n)=h(j):l1(n)=l(j):h2(n)=h(j):l2(n)=l(j) 170 h3(n)=h(j):l3(n)=l(j) 185 NEXTn 190 REM -- text -- 200 PRINT"{yellow}{clear}{ct n}{ct h}Balladen om den kaxiga myran.{space*11}{white}av:{cyan} Stefan Demert" 210 PRINT"{green}Datorarragemang av: {yellow}Mr.P.{gray}{down}" 220 REM -- play -- 225 FORv=1TO7: REM -- verses -- 230 :FORi=1TO68 232 : READt$:REM -- text -- 233 : IFRIGHT$(t$,1)="@"THENt$=LEFT$(t$,LEN(t$)-1)+CHR$(13) 235 : PRINTt$; 240 : h1=h1(i):l1=l1(i) 250 : h2=h2(i):l2=l2(i) 260 : h3=h3(i):l3=l3(i) 270 : POKEvo,15 280 : POKEa3,10:POKEs3,255:POKEw3,17 290 : POKEa2,255:POKEs2,10:POKEw2,33 300 : POKEa1,9:POKEs1,0:POKEw1,33 310 : POKEv1,l1:POKEv2,l2:POKEv3,l3 320 : POKEv1+1,h1:POKEv2+1,h2:POKEv3+1,h3 330 : FORj=1TOle(i)*125:NEXT:POKEw1,0:POKEw2,0:POKEw3,0 340 NEXT:PRINT:IFv/2=INT(v/2)THENPRINT"{clear}"; 342 NEXT 350 POKEa1,0:POKEa2,0:POKEa3,0:POKEs1,0 360 POKEs2,0:POKEs3,0 370 END 380 REM -- datas -- 390 REM --- notes --- (no,hi,lo) 395 DATAg0,006,071, b0,007,233 400 DATAc1,008,097 410 DATAd1,009,104, e1,010,143 420 DATAf1,011,048 430 DATAg1,012,143, a1,014,024 440 DATA..,000,000 470 REM --- music --- (note,le) 480 DATAe1,1.5,e1,1,c1,1.5,c1,1 490 DATAe1,1.5,e1,1,c1,1.5,c1,1 500 DATAe1,1.5,g0,1,d1,1.5,d1,1 510 DATAf1,1.5,f1,1,d1,2,g0,1.5,g0,1 520 DATAd1,1.5,d1,1,f1,1.5,f1,1 530 DATAd1,1.5,d1,1,g0,1.5,g0,1 540 DATAc1,1.5,c1,1,e1,1.5,e1,1 550 DATAc1,2,c1,1.5,c1,1 560 DATAf1,1.5,f1,1,a1,1.5,a1,1 570 DATAf1,1.5,f1,1,c1,1.5,c1,1 580 DATAe1,1.5,e1,1,g1,1.5,g1,1 590 DATAe1,2,g0,1.5,g0,1,d1,1.5,d1,1 600 DATAf1,1.5,f1,1,d1,1.5,d1,1 610 DATAg0,1.5,g0,1,e1,1.5,e1,1 620 DATAg1,1.5,g1,1,e1,4,d1,3,e1,1 630 DATAf1,1.5,d1,1,b0,1.5,d1,1 640 DATAc1,6,..,2 650 REM --- text --- 660 DATA"Jag ",upp,st[m,ma ,vill ,min ,ly,"ra,@" 670 DATAfast ,det ,blott ,[r ,en ,gi,"tarr,@" 680 DATAoch ,be,r[t,ta ,om ,en ,my,ra@ 690 DATAsom ,gick ,ut ,att ,le,ta ,barr.@ 700 DATA"Han ",gick ,ut ,i ,mor,gon,di,set@ 710 DATAse'n ,han ,druc,kit ,sin ,chok,lad@ 720 DATAoch ,f{pound}r,svann ,i ,ling,on,ri,set@ 730 DATAb],de ,m[tt ,och ,n{pound}jd ,och ,glad@ 740 DATAb],de ,m[tt ,och ,n{pound}jd ,och ,glad.@, 750 DATA"Det ",var ,l]n,gan ,v[g ,att ,van,"dra,@ 760 DATAdet ,var ,l]ngt ,till ,n[rm,sta ,tall.@ 770 DATA"Han ",kom ,bort ,i,fr]n ,dom ,and,ra@ 780 DATAmen ,var ,glad ,i ,al,la ,fall.@ 790 DATA"Fem",ti ,me,ter ,i,fr]n ,stac,"ken,@ 800 DATAjust ,n[r ,sol,ned,g]n,gen ,"kom,@" 810 DATAhit,ta ,han ,ett ,barr ,p] ,bac,ken@ 820 DATAsom ,han ,tyc,kte ,myc,ket ,om@ 830 DATAsom ,han ,tyc,kte ,myc,ket ,om.@, 840 DATA"F{pound}r ",att ,lyf,ta ,fick ,han ,st]n,"ka,@ 850 DATAhan ,fick ,sp[n,na ,var,je ,"lem,@ 860 DATAmen ,s] ,b{pound}r,ja,de ,han ,k]n,ka@ 870 DATAp] ,det ,fi,na ,bar,ret ,hem.@ 880 DATA"N[r ",han ,g]tt ,i ,fy,ra ,tim,mar@ 890 DATAkom ,han ,till ,en ,{pound}l,bu,"telj,@ 900 DATAhan ,s]g ,allt,ing ,som ,i ,dim,"ma,@ 910 DATAbr{pound}s,tet ,h[v,des ,som ,en ,b[lj@ 920 DATAbr{pound}s,tet ,h[v,des ,som ,en ,b[lj.@, 930 DATA"Den ",l]g ,kvar ,sen ,f{pound}r,ra ,l{pound}r,dan.@ 940 DATA"-Jag ",ska ,sl[c,ka ,t{pound}r,sten ,"min,@" 950 DATAt[nk,te ,han ,och ,la,de ,b{pound}r,dan@ 960 DATAut,an,f{pound}r ,och ,kl[t,tra ,in.@ 970 DATA"Han ",drack ,upp ,den ,sis,ta ,drop,pen@ 980 DATAsom ,fanns ,kvar ,i ,den ,bu,telj.@ 990 DATA"Se",dan ,slog ,han ,sig ,f{pound}r ,krop,pen@ 1000 DATAoch ,skrek ,"ut: ","-Jag ",[r ,en ,[lg!@ 1010 DATAoch ,skrek ,"ut: ","-Jag ",[r ,en ,[lg!@, 1020 DATA"-Ej ",ett ,barr ,jag ,drar ,till ,tj[l,"let,@ 1030 DATAnu ,s] ,ska ,jag ,ta,mig,fan@ 1035 DATAl[m,na ,sko,gen ,och ,i,st[l,let@ 1040 DATAv[n,da ,upp,och,ner ,p] ,stan.@ 1050 DATA"Men ",han ,kom ,al,drig ,till ,sta,"den,@ 1060 DATAn],got ,sp[r,ra,de ,hans ,"stig,@ 1070 DATAen ,ko,loss ,d[r ,l]g ,bland ,bla,"den,@ 1080 DATAoch ,v]r ,my,ra ,hej,dar ,sig@ 1090 DATAoch ,v]r ,my,ra ,hej,dar ,sig.@, 1100 DATA"Den ",var ,his,ke,lig ,att ,sk],"da,@ 1110 DATAden ,var ,stor ,och ,den ,var ,"gr],@ 1120 DATAoch ,v]r ,my,ra ,"skrek: ","-A",n],da@ 1130 DATAom ,du ,hin,drar ,mig ,att ,g]!@ 1140 DATA"Han ",for ,il,sken ,p] ,ko,los,sen@ 1150 DATAsom ,l]g ,ut,str[ckt ,i ,hans ,v[g.@ 1160 DATA"Men ",v]r ,my,ra ,kom ,ej ,loss ,"sen,@ 1170 DATAhan ,satt ,fast ,som ,i ,en ,deg@ 1180 DATAhan ,satt ,fast ,som ,i ,en ,deg.@, 1190 DATA"Sorg",ligt ,slu,tar ,den,na ,s]n,gen.@ 1200 DATA"Myr",an ,stre,ta,de ,och ,"drog,@ 1210 DATAmen ,ko,loss,en ,h{pound}ll,'en ,f]ng,en@ 1220 DATAtills ,han ,svalt ,i,hj[l ,och ,dog.@ 1230 DATA"Und",vik ,al,ko,hol,ets ,y,"ra:@ 1240 DATA"Du ",blir ,"stursk, ",men ,krop,pen ,"loj,@ 1250 DATAoch ,om ,du ,[r ,f{pound}dd ,till ,my,ra@ 1260 DATA-brot,tas ,al,drig ,med ,ett ,"TOY@ 1270 DATA-brot,tas ,al,drig ,med ,ett ,"TOY.@", 60000 IFPEEK(49152)=120ANDPEEK(49153)=169THENRETURN 60002 READa$:IFa$<>"char"THEN60000:DATAchar 60005 READy:IF y<0 THEN 60015 60010 POKE49152+a,y:s=s-y*(a<178):a=a+1:GOTO 60005 60015 IF s-23434 THEN PRINT"fel i data!":STOP 60020 SYS 49152:RETURN 60025 REM **** maskinkod **** 60030 DATA120,169,51,133,1,160,0,185 60035 DATA0,208,153,0,240,200,208,247 60040 DATA238,9,192,238,12,192,208,239 60045 DATA169,208,141,9,192,169,240,141 60050 DATA12,192,169,55,133,1,32,45 60055 DATA192,88,76,68,229,173,2,221 60060 DATA9,3,141,2,221,173,0,221 60065 DATA41,252,141,0,221,169,200,141 60070 DATA136,2,169,45,141,24,208,169 60075 DATA8,133,44,32,139,192,169,89 60080 DATA141,24,3,169,192,141,25,3 60085 DATA96,72,138,72,152,72,169,127 60090 DATA141,13,221,32,188,246,32,225 60095 DATA255,32,163,253,32,24,229,160 60100 DATA3,185,48,253,153,20,3,136 60105 DATA16,247,160,25,185,54,253,153 60110 DATA26,3,136,16,247,32,45,192 60115 DATA108,2,160,160,23,185,178,192 60120 DATA153,216,240,153,216,250,73,255 60125 DATA153,216,244,153,216,254,136,16 60130 DATA236,160,23,185,202,192,153,216 60135 DATA248,73,255,153,216,252,136,16 60140 DATA242,96 60145 REM **** nya tecken *** 60150 DATA102,24,60,102,126,102,102,0 60155 DATA102,60,102,102,102,102,60,0 60160 DATA60,102,60,102,126,102,102,0 60165 DATA102,0,60,6,62,102,62,0 60170 DATA102,0,60,102,102,102,60,0 60175 DATA60,102,60,6,62,102,62,0,-1 stop tok64 (bastext 1.0)