maketune  h(xw)=(x/256):l(xw)=x-256*(x/256):a(a$m)=a$-480-7*(a$"A")-32 *(a$"a"):b(a$m)=a(a$)*16+a(a$(2)) Px=300000u:v=0:n$="":st1=65166:no1=191:no2=254 (x);" ";a$:a$=""30 (x;"__";a$;" "; 2ia$"0"a$"999"(a$);",";a:x,a$:x+1,a:x=x+2:a/502ưa$,a$-480:a:30 <0a$="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 P0a$="end":x,255:x=x+1:30 Za$"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 xha;" times, to ";b:x,252:x+1,a:x+2,a:x+3,b-x-3:x=x+4:30 9a$(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 Ha$="vol""vol ";a:a:x,251:x+1,a:x=x+2:30 ,a$(4űa$<4)"play"230 :a$=a$(5) 4a$""a$(1)=" "a$=a$(2):190 ȓy=05: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 ty=05:65276+y,(st1+y):y:64000:y=05:st1+y,(65360P+y):y:30 aa$="stop"a$="":23610:\,8:1:23610:\,255:63900:30 270 0:0:7:29990&u:236099\,10 :23562 \,1:"TUNE.BIN"64000::a$:x=6390063975:x,b(a$):a$=a$(3):x:x=05:65276+x,(65166+x):x: :"MAKETUNE"250: &a$="reset":63900:30 *a$(2űa$<2)"do"350^ ":a$=a$(3):y=05:65360P+y,(st1+y):st1+y,no1:y:st1+3,no2:st1+5,no2:st1,240:st1+1,91[ ,a$=""a$=x 6X23536[,254:23537[,l(a$):23538[,h(a$):23539[,255 @<y=05:65276+y,(st1+y):y:64000 J.y=05:st1+y,(65360P+y):y T 30 ^a$(1)"v"490 h$a$=a$(2):y=v:a$""y=a$ ry=0y=x |::a=120 )y;" ";:y=255"end":470  y=253"ret":470 ;y=251"vol ";(y+1):y=y+1:470 9y=250"x ";(y+1):y=y+1:470 <y=249"wave ";(y+1):y=y+1:470 Sy=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 la$="load""Name: ";n$:n$+".TUN"29994*u:n$:y=05: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" 0Sy=05:29994*u+y,(st1+y):y:y$+".TUN"29994*u,x-29994*u :n$=y$:n$:30 Daa$>3a$(4)="wave""wave ";a:a:x,249:x+1,a:x=x+2:30 NRa$="x""Envelope period:";a:a:x,250:x+1,a:x=x+2:30 X1;"?":30 b"11fcfe0603ed73fafeeb5e235623eb7e23fefd282dfeff282cfefe281a23fefc20087e2b7723232318e52b7e23b623b62b281218da0000d55e235623ebe3ebe318cde118caed7bfafe10bec9" TUNE.BIN ! ">2CyC>{y!n"*"x{(C!">2Cy!V"*"C>{yx{(> !"R"S!!6z=KyKy Ky>.>KyxKy>G^2_!"^#V~<= IO#~#GSorry, I can't seem to find the sound chip!#~#.0O#~G#(,ڢ#^#V#S:_!^#Vs#r#r+s*:_!^#V+F+Nr+s`i#5( ##^#~+w###(*8=#:_!~_:G>{(G>KyxKy#~#2U*s#r::\ >>GV>KyxKy!T~(15(A~= *X!~/(xi~ xXKyKyC+!R~##(x y p:_!~2/({͋ >PYKy{KyJFyH 8 o&)[^#Vx(:|=oKyzKy}=Ky{Ky|YKy:Ky(> KyK:Uys_[!)808<> KyKiK> yKa=ͽ_!~ͽͽ=ͽ_!y wͽ:8> ͽÆoKx<>yxy>y>y }o>y>y } >y zAzuzaz vz^wX@8@X 0 xH*>zzz)=X