maketune ŒúŒòŽÿ ¬Îh(xÂw)=º(x/256):Îl(xÂw)=x-256*º(x/256):Îa(a$¨m)=¯a$-480-7*(a$È"A")-32 *(a$È"a"):Îb(a$§m)=¨a(a$)*16+¨a(a$(2)) Pñx=300000u:ñv=0:ñn$="":ñst1=65166Žþ:ñno1=191¿:ñno2=254þ î(x);" ";Êa$:úa$=""Ëì30 (õx;"__";a$;" "; 2iúa$È"0"Æa$Ç"999"Ëî(°a$);",";a:ôx,°a$:ôx+1,a:ñx=x+2:×a/502ưa$,°a$-480:õa:ì30 <0úa$="ret"Ëõ:ôx,253ý:ñx=x+1:ì30 F_úa$="call"Ëî"call ";a:õa:ôx,254þ:ôx+1,¨l(a):ôx+2,¨h(a):ñx=x+3:ì30 P0úa$="end"Ëõ:ôx,255ÿ:ñx=x+1:ì30 Zúa$É"djnz"Ëì130‚ dNî"no ";a;" ; to ";b:úb-x-3<-255ÿËõ"Oh dear it's too far":ì30 n>úb-x-3>0Ëõ"Only backward jumps allowed":ì30 xhõa;" times, to ";b:ôx,252ü:ôx+1,a:ôx+2,a:ôx+3,b-x-3:ñx=x+4:ì30 ‚9úa$(1)="m"Ëõ:ñx=°a$(2Ì):ñv=0:ì30 Œ¥úa$="st"Ëõ'"st1=";¨a$(st1)'"st2=";¨a$(st1+2)'"st3=";¨a$(st1+4):ì30:Îa$(x’þ)=Á(¾x+256*¾(x+1))+("(no data)"ƾx=no1ƾ(x+1)=no2) –}úa$(Ì2űa$=1)="st"Æa$É"stop"Ëõ"= ";x:ña=°a$(3)*2-2:ôst1+a,¨l(x):ôst1+1+a,¨h(x):ì30  Húa$="vol"Ëî"vol ";a:õa:ôx,251û:ôx+1,a:ñx=x+2:ì30 ª,úa$(Ì4űa$<4)É"play"Ëì230æ ´õ:ña$=a$(5Ì) ¾4úa$É""Ëúa$(1)=" "Ëña$=a$(2Ì):ì190¾ È“ëy=0Ì5:ô65360Pÿ+y,¾(st1+y):óy:úa$É""Ëôst1,no1:ôst1+1,no2:ôst1+2,no1:ôst1+3,no2:ôst1+4,no1:ôst1+5,no2 Òƒúa$>"0"Æa$<"4"Ëñy=°a$(1)*2-2:ôst1+y,¾(65360Pÿ+y):ôst1+1+y,¾(65361Qÿ+y):ña$=a$(2Ì):ì210Ò Ütëy=0Ì5:ô65276üþ+y,¾(st1+y):óy:ùÀ64000ú:ëy=0Ì5:ôst1+y,¾(65360Pÿ+y):óy:ì30 æaúa$="stop"Åa$="â"Ëõ:ô23610:\,8:ò1:ô23610:\,255ÿ:ùÀ63900œù:ì30 ð ì270 úâç0:Ú0:Ù7:ý29990&u:ô236099\,10 :ô23562 \,1:ï"TUNE.BIN"¯64000ú:å:ãa$:ëx=63900œùÌ63975çù:ôx,¨b(a$):ña$=a$(3Ì):óx:ëx=0Ì5:ô65276üþ+x,¾(65166Žþ+x):óx:÷ ý:ø"MAKETUNE"Ê250ú:â &úa$="reset"Ëõ:ùÀ63900œù:ì30 *úa$(Ì2űa$<2)É"do"Ëì350^ "“õ:ña$=a$(3Ì):ëy=0Ì5:ô65360Pÿ+y,¾(st1+y):ôst1+y,no1:óy:ôst1+3,no2:ôst1+5,no2:ôst1,240ð:ôst1+1,91[ ,úa$=""Ëña$=Áx 6Xô23536ð[,254þ:ô23537ñ[,¨l(°a$):ô23538ò[,¨h(°a$):ô23539ó[,255ÿ @<ëy=0Ì5:ô65276üþ+y,¾(st1+y):óy:ùÀ64000ú J.ëy=0Ì5:ôst1+y,¾(65360Pÿ+y):óy T ì30 ^úa$(1)É"v"Ëì490ê h$ña$=a$(2Ì):ñy=v:úa$É""Ëñy=°a$ rúy=0Ëñy=x |õ:õ:ëa=1Ì20 †)õy;" ";:ú¾y=255ÿËõ"end":ì470Ö � ú¾y=253ýËõ"ret":ì470Ö š;ú¾y=251ûËõ"vol ";¾(y+1):ñy=y+1:ì470Ö ¤9ú¾y=250úËõ"x ";¾(y+1):ñy=y+1:ì470Ö ®<ú¾y=249ùËõ"wave ";¾(y+1):ñy=y+1:ì470Ö ¸Sú¾y=254þËõ"call ";¾(y+1)+256*¾(y+2):ñy=y+2:ì470Ö „ú¾y=252üËõ"djnz ";¾(y+2);" times, to ";y+3+¾(y+3)-256*(¾(y+3)>127):ñy=y+3:ì470Ö Ì"õ¾y;",";¾(y+1):ñy=y+1 Öñy=y+1:óa àñv=y:ì30 êlúa$="load"Ëî"Name: ";Ên$:ïn$+".TUN"¯29994*u:õn$:ëy=0Ì5:ôst1+y,¾(29994*u+y):óy:ì30 ôúa$É"save"Ëì580D þOî"NB Pointer must be at end"'"name: ";(("(press ENTER for "+n$+")")Æn$É"");Êy$ ún$=""Æy$=""Ëì510þ úy$=""Ëñy$=n$ ñe$="Y":ún$Éy$Ëî"Erase? ";Êe$ &úe$="y"Åe$="Y"ËÒy$+".TUN" 0Sëy=0Ì5:ô29994*u+y,¾(st1+y):óy:øy$+".TUN"¯29994*u,x-29994*u :ñn$=y$:õn$:ì30 Daú±a$>3Ëúa$(Ì4)="wave"Ëî"wave ";a:õa:ôx,249ù:ôx+1,a:ñx=x+2:ì30 NRúa$="x"Ëî"Envelope period:";a:õa:ôx,250ú:ôx+1,a:ñx=x+2:ì30 XõÛ1;"?":ì30 bœä"11fcfe0603ed73fafeeb5e235623eb7e23fefd282dfeff282cfefe281a23fefc20087e2b7723232318e52b7e23b623b62b281218da0000d55e235623ebe3ebe318cde118caed7bfafe10bec9" åTUNE.BIN ÀªÂÿ! "±þ>2³þýÿíC¹þ¯íy¿íC»þ>{íy!nþ"½þ*ˆþ"Šþÿíxþ{(C!"±þ>2³þÝíC¹þ¯íy!Vþ"½þ*†þ"ŠþßíC»þ>{íyÝíxþ{(>þÍýú¯Í Ï!"Rþ"Sþ!Œþœþí°!øø6úí°z=íK¹þíy¯íK»þíy îíK¹þíy>Í.ý>íK¹þíyíxæøíK»þíy>øíGí^ûÉ2¬þ‡_!œþ"¯þ^#Vë~<Êóû= IO#~#GöÃóûÃûû€Sorry, I can't seem to find the sound chip!�#~#Í.ýÃâúþù0O#~G#Ãóûþý(,Ú¢û#^#V#íS­þå:¬þ‡_!¤þ^#Vãës#r#ëár+s*­þÃâú:¬þ‡_!¤þ^#Vë+F+Nër+s`iÃâú#5( ##^ÿÃâú#~+w###Ãâúþü(åþúÊ*û8=#:¬þå_!°þëá~í _:¬þG>„Ë{(ûËûG>ÅíK¹þíyíxÁ°¡íK»þíyÃâú#~#2UþÃâúë*¯þs#rÉÿóõ::\þ >>íGíV>ÅíK¹þíyíxöíK»þíyÁñûÉåÕÅ!Tþ~§(15(A~= *åX!°þ~/æ€(xÍiý~æá xÆXíK¹þíy¯íK»þíyC+È!Rþ~#¶#¶ÁÑá(–ñûÉåÅxÍÐú Áááy· áãpÁ×:¬þ_!°þ~2´þ/æ€õ({Í‹ýñ >PYíK¹þíy{íK»þíyáJFyHþ 8Ö ÷o&)í[½þ^#Vx§(Ë:Ëúá|‡=oÅíK¹þíyzíK»þíy}=íK¹þíy{íK»þíyÁ|ÆYíK¹þíy:´þíK»þíyæ(Å> íK¹þíyíK»þ:UþíyÁãsÁÃ_üÕÅåí[Šþ!)808õË<Ë> íK¹þíyíK»þíiíK¹þ> íyíK»þíaáÁÑÉåÕÅõ=æö€Í½ýñõ_!µþ~ͽý¯Í½ýñÁÑáÉåÕÅõ=æö�ͽýñÁÅõ_!µþyÆ wͽý:´þæþ8> ‡‡‡Í½ýÆýoíK¹þx<À>íyíxöÀ¿íy>ÿíy¿>úíy ý}oÒôý>þíy>úíy ýÆ} ãÆ>þíy ýÉzAzáu¥zaz vÅz^w¸€X@8@X€° è 0 x˜Hظ°°Ààñ¿þ¿þ¿þþ*þ>þŠz¥zÅzþ)þ=þÿX