 
'Т    > $.!DSEdit.!RunImage  v1.00 < )Т  RISCOS  Raw Digitised Sound Editor )Т  ╘ Copyright '89,'90 Jason Williams (*Т This program is in the public domain 2 <DТ If you have any suggestions for improvements, additions, etc., FGТ or if you improve this program yourself, then please write to me: PТ    Jason Williams, ZТ    R.D.2. Manuel Road, dТ    Silverdale, nТ    North Auckland, xТ    NEW ZEALAND. ┌ ▄ √FТ Search for @@@@ **** and %%%% for all the bugs and missing code! ═ ╙Н┘ Рerror(Ж$):Рerrorend Є Ўх≥ "OS_GetEnv" ╦ c$ хp%=їc$,"""",їc$,"""")+1) рc$=аc$,p%+1) эх∙юc$,1)=" ":c$=аc$,2):н Ф Пversion=1.00 ЗРwimpinitroundsize%=16*1024	Рinit"Рinitdriver,Рassemble6@snum%=0Jwstartoff%=0T^$Г c$<>"" ▄ crap%=єload(c$):c$=""hrУ|$ Г dragging% ▄ mask%=0 ▀ mask%=1├* х≥ "Wimp_Poll",mask%,b% ╦ returncode%░ х▌ returncode% й   и 0 :     Рdragє  и 1 :     Рredraw(b%)ў(  и 2 :     х≥ "Wimp_OpenWindow",,b%╦!  и 3 :     Рclosewindow(!b%)б.  и 6 :     Рbuttonclick(b%!8,b%!12,b%!16)л  и 7 :     Рfinishdragж  и 8 :     РprocesskeyЮ%  и 9 :     Рmenuselect(!b%,b%!4)Й  и 17,18 : РreceiveТ кЧЩ quit%Г snum%>0 ▄  Ц Z%=1 ╦ snum%5    Г whandle%(Z%)>0 ▄ Рclosewindow(whandle%(Z%))&  М0м:Рrelease(driver%)Dх≥ "Wimp_CloseDown"NЮX:bщ єload(name$)l
Й num%vГ snum%<1 ▄─  snum%+=1:num%=snum%┼л■  num%=0·
  Z%=0╗  У:Z%+=1╡"    Г whandle%(Z%)<1 ▄ num%=Z%╪  Щ num%>0 └ Z%>=16ф  Г num%>snum% ▄ snum%=num%пG  Г num%=0 ▄ Рerror("Only 16 sounds can be edited at once"):num%=-1змДНГ num%<1 ▄=ёЬ&$(names%+16*(num%-1))=єleaf(name$)iwhandle%(num%)=єcreatewindow(names%+16*(num%-1),96-wstartoff%,512+wstartoff%,1056,368,0,13,&87001003)Рaddicons(num%) 3wstartoff%-=48:Г wstartoff%<-160 ▄ wstartoff%=0*Рopenwindow(whandle%(num%))4name$(num%)=name$>H1Рloadfile(start%,length%,rmalen%(num%),name$)RГ start%<1 ▄ =ё\-start%(num%)=start%:length%(num%)=length%f,sstart%(num%)=start%:slen%(num%)=length%p0magstart%(num%)=start%:maglen%(num%)=length%z%changed%(num%)=ё:speed%(num%)=&30└$flags%(num%)=1:zoomlev%(num%)=19▌Рsetupdt(num%)≤$Рinfotext(num%):lastloaded%=num%╒=╧╛:Іщ Рinfotext(n%):Й M%ю2M%=slen%(n%):Г M%>length%(n%) ▄ M%=length%(n%)йГ M%<1 M%=1тH$(infoicons%+(n%*40))="Selection: "+цM%+" of "+цlength%(n%)+" bytes"ч7!b%=whandle%(n%):b%!4=infoicon1%(n%):b%!8=0:b%!12=0Хх≥ "Wimp_SetIconState",,b%РАЭ:щ Рaddicons(n%)Й h%Fh%=єicon(whandle%(n%),0,wbott%,1056,wbott%+wheight%+4,&6080,0,0,0)$Eh%=єspriteicon(whandle%(n%),20,292,96,360,&3102,sprspace%,"left").Bh%=єspriteicon(whandle%(n%),108,292,176,360,&3102,1,"!dsicon")8BF h%=єspriteicon(whandle%(n%),196,292,264,360,&3102,sprspace%,"19")L zoominame%(n%)=alloc%V`L Т NOTE!!!! -If icon position changes, you must change ForceRedraw of itjtHh%=єspriteicon(whandle%(n%),284,292,352,360,&3102,sprspace%,"right")~┬!b%=whandle%(n%)▓:b%!4=376:b%!8=324:b%!12=1048:b%!16=364:b%!20=&07002119°.b%!24=infoicons%+(40*n%):b%!28=-1:b%!32=20і-х≥ "Wimp_CreateIcon",,b% ╦ infoicon1%(n%)╟`spdicon%(n%)=єspriteicon(whandle%(n%),376,wbott%+wheight%+16,1048,324,&2102,sprspace%,"kbd")╨Ад:нщ єleaf(a$)ьЙ p%Б
p%=╘a$Л"х∙аa$,p%,1)=" " ─ p%>0:p%-=1:нЖa$=юa$,p%) #х∙аa$,p%,1)<>"." ─ p%>0:p%-=1:н
=аa$,p%+1):щ Рinit(Й colms%,rows%,cols%2<driver%=єclaim(2048)F'Г driver%=0 ▄ х≥ "Wimp_Closedown":ЮPZч mtable% 256d&ч start%(16),length%(16),name$(16)n&ч speed%(16),sstart%(16),slen%(16)xч magstart%(16),maglen%(16)┌ч whandle%(16),rmalen%(16)▄ч flags%(16),changed%(16)√)ч dt%(16),infoicon1%(16),spdicon%(16)═!ч zoomlev%(16),zoominame%(16)╙ч infoicons% 650ЄЎ)Ц F%=infoicons% ╦ infoicons%+640 ┬ 40х  $F%=д42,Ґ0)рМэФч sprspace% 12*1024П$!sprspace%=12*1024:sprspace%!4=0З"sprspace%!8=16:sprspace%!12=16:х≥ "OS_SpriteOp",&10A,sprspace%,"<DSEdit$Dir>.Sprites"start%()=0:length%()=0:"&Ц F%=0 ╦ 16:name$(F%)="RawSound":М,&speed%()=&30:sstart%()=0:slen%()=067magstart%()=0:maglen%()=0:whandle%()=0:changed%()=ё@zoomlev%()=19:flags%()=1JTvolume%=15^clipit%=╧hrsavesel%=ё|savewind%=0├Рgetsteps(xstep%,ystep%)░ changed%=ёє'Рcreatefilew(filewindow%,filename%)ў)Рcreatefilew(filewindow2%,filename2%)╦б╛menu$="Play sound ,SaveY,Select all ,>Selection ,SaveZ,Play ,Delete ,<,>Edit ,Ramp up ,Ramp down ,AmplifyW,Move centreW,Limit upW,Limit downW,SqueezeW,Make silenceW,<,"лўmenu2$=">Special FX ,Add constW,Eor constW,Reverse ,EchoW,Flange EchoW,<,>Options ,Set speedW,Set volumeX,ClippingB,LinesB,<,>Convert ,Logarithmic ,Bit signed ,Amiga ,<,"жЮ4lastval1$="200%":lastval2$="128":lastval3$="128"ЙElastval4$="1024":lastval5$="4096":lastval6$="50%":lastval7$="128"Тч dialogb%(3)Чdialog%=0Ainsert$="":dragging%=ё:dragn%=0:dragsx%=0:olddrag%=0:dragy%=0lastloaded%=0А&:0"щ Рgetsteps(Ь xstep%,Ь ystep%):xstep%=2^єmodeinfo(4)Dystep%=2^єmodeinfo(5)NXsГ xstep%<=0 └ ystep%<=0 ▄ ┘ 42,"Sorry, this screen mode has confused me. Try mode 12!":Т *Should* never happen!blAxmax%=(єmodeinfo(11)+1)*xstep%    :Т OS coords resolution x,yv"ymax%=(єmodeinfo(12)+1)*ystep%─┼Fwleft%=16:wbott%=16                :Т Sound-display area of window■>wwidth%=1024:wheight%=256          :Т (Don't change this!)·А╗:╡щ єmodeinfo(V%)╪(х≥ "OS_ReadModeVariable",К,V% ╦ ,,V%ф=V%п:зщ РassembleДч code% 20*1024Н(Ъ("LOAD <DSEdit$Dir>.Code "+ц~code%)Ьtfer      =(code%!0)+code%bfer      =(code%!4)+code%tablemod  =(code%!8)+code% addblocks =(code%!12)+code%*addclip   =(code%!16)+code%4avgblocks =(code%!20)+code%>avgclip   =(code%!24)+code%HАR:\&щ Рstartdrag(n%):Й x%,xl%,xw%,convfdragging%=╧p;dragn%=n%              :Т Number of sound being draggedz=dragsx%=b%!0           :Т Start-x (screen coords) of drag└=olddrag%=&42424242     :Т Old end-x ( "     "   ) of drag▌≤b%!0=whandle%(n%)╒ х≥ "Wimp_GetWindowState",,b%╛x%=b%!4-b%!20+wleft%ІГ dragsx%<x% ▄ dragsx%=x%ю-Г dragsx%>x%+wwidth% ▄ dragsx%=x%+wwidth%йdragy%=b%!16-b%!24+wbott%тч"Т Invert out the old inversionХ conv=wwidth%/maglen%(n%)Р, xl%=(sstart%(n%)-magstart%(n%))*conv+x%Э Г xl%<x% ▄ xl%=x%	5 xw%=slen%(n%)*conv:Г xw%>1023 └ xw%<0 ▄ xw%=1023	* Г xl%+xw%-x%>1023 ▄ xw%=1023-(xl%-x%)	 Рdraginv(xl%,xw%)	$	."Т Now start Wimp_DragBox drag:	8	B!b%=whandle%(n%)	L6b%!4=7     :Т Wimp doesn't draw the dragbox for me	V"b%!8=0:b%!12=0:b%!16=0:b%!20=0	`Kb%!24=x%   :Т Mouse bounds rectangle - keep pointer within sound_window	jb%!28=dragy%	tb%!32=x%+wwidth%	~b%!36=dragy%+wheight%	┬х≥ "Wimp_DragBox",,b%	▓А	°:	іщ Рfinishdrag	╟Г ╛dragging% ▄ Рsendsave:А	╨dragging%=ё	д	нb%!0=whandle%(dragn%)	ь х≥ "Wimp_GetWindowState",,b%	Бx%=b%!4-b%!20+wleft%	Л	ЖГ olddrag%=&42424242 ▄
   olddrag%=dragsx%

м
,Г olddrag%<dragsx% ▄ х■ dragsx%,olddrag%
!olddrag%-=dragsx%:dragsx%-=x%
(Г dragsx%<0 dragsx%=0
2!Г dragsx%>1056 ▄ dragsx%=1056
<Г olddrag%<0 ▄ olddrag%=0
F3Г dragsx%+olddrag%>1056 ▄ olddrag%=1056-dragsx%
P
ZGsstart%(dragn%)=magstart%(dragn%)+maglen%(dragn%)*(dragsx%/wwidth%)
d4slen%(dragn%)=maglen%(dragn%)*(olddrag%/wwidth%)
nРchkmag(dragn%)
xРinfotext(dragn%)
┌6х≥"Wimp_ForceRedraw",whandle%(dragn%),0,0,1279,288
▄А
√:
═щ Рdrag:Й x%,y%,but%,step%
╙Г ╛dragging% ▄ А
Єх≥ "OS_Mouse" ╦ x%,y%,but%
Ў
хJГ olddrag%=&42424242 ▄ Ф3,7:olddrag%=x%:Рdraginv(dragsx%,x%-dragsx%):А
р#Г x%│xstep%=olddrag%│xstep% ▄ А
э
Ф;        Т For non-flicker-but-not-quite-right invert...
Пstep%=xstep%
ЗQГ (olddrag%<dragsx% ─ x%>dragsx%) └ (olddrag%>dragsx% ─ x%<dragsx%) ▄ step%=0Г x%>dragsx% ▄  Г olddrag%>x% ▄".    Рdraginv(x%+step%,olddrag%-(x%+step%)),  л64    Рdraginv(olddrag%+step%,x%-(olddrag%+step%))@  мJлT  Г olddrag%>x% ▄^(    Рdraginv(x%,(olddrag%-step%)-x%)h  лr.    Рdraginv(olddrag%,x%-(olddrag%+step%))|  м├м░olddrag%=x% Ає:ў'щ Рdraginv(x1%,x2%):Й more%,x0%,y0%╦!Г x2%<0 ▄ x2%=■(x2%):x1%-=x2%бл!b%=whandle%(dragn%)жх≥"Wimp_GetWindowState",,b%Юx0%=b%!4-b%!20ЙТb%!4=(x1%-xstep%)-x0%Чb%!8=wbott%b%!12=(x1%+x2%+xstep%)-x0% b%!16=wbott%+wheight%+ystep%&&х≥ "Wimp_UpdateWindow",,b% ╦ more%0Ф3,7:х∙ more%D  y0%=b%!16-b%!24N,  Ф 3,7:х⌠х░ x1%,y0%+wbott%,x2%,wheight%X(  х≥ "Wimp_GetRectangle",,b% ╦ more%bнlАv:─&щ Рinvert(n%,x%,y%):Й xl%,xw%,conv┼0Г dragging% ▄ А  :Т NO INVERSION if dragging■#Г maglen%(n%)<1 ▄ maglen%(n%)=1·conv=wwidth%/maglen%(n%)╗+xl%=(sstart%(n%)-magstart%(n%))*conv+x%╡Г xl%<x% ▄ xl%=x%╪4xw%=slen%(n%)*conv:Г xw%>1023 └ xw%<0 ▄ xw%=1023ф)Г xl%+xw%-x%>1023 ▄ xw%=1023-(xl%-x%)пзФ3,7Дх⌠х░ xl%,y%,xw%,wheight%НАЬ:щ Рredraw(b%)Й more%,num%,x0%,y0%num%=єhandletosnum(!b%) &х≥ "Wimp_RedrawWindow",,b% ╦ more%*4х∙ more%>  x0%=b%!4-b%!20H  y0%=b%!16-b%!24R  Рdraw(num%,x0%,y0%)\(  х≥ "Wimp_GetRectangle",,b% ╦ more%fнpАz:└щ єhandletosnum(handle%)▌Й num%,Z%≤Z%=0:num%=0╒У:Z%+=1╛&  Г whandle%(Z%)=handle% ▄ num%=Z%ІЩ num%>0 └ Z%>=snum%ю	=num%й:тщ Рsetupdt(num%)чРrelease(dt%(num%))Хdt%(num%)=єclaim(1024)Р6Г dt%(num%)=0 ▄ ┘ 42,"Fatal error: No room in RMA"ЭЦ Z%=0 ╦ 1023?  dt%(num%)?Z%=magstart%(num%)?((Z%/wwidth%)*maglen%(num%))МА$:.щ Рdraw(num%,x0%,y0%)8Й x%,y%,w%B!left%=b%!28-x0%-wleft%-xstep%Lright%=b%!36-x0%-wleft%VГ left%<0 left%=0`.Г ■(right%-left%)>1023 ▄ right%=left%+1023jГ right%>1023 ▄right%=1023tw%=■(right%-left%)~Г w%<=0 ▄ А┬▓y%=y0%+wbott%°x%=x0%+wleft%і╟line%=(flags%(num%) ─ 1)╨д'Рcol(0):х⌠х░ x%,y%,wwidth%,wheight%н8Рcol(15):├ x%,y%+wheight%│2,x%+wwidth%,y%+wheight%│2ь/Рcol(7):х⌠ x%-8,y%-8,wwidth%+16,wheight%+16БЛЖРcol(5) Г left%<xstep% ▄
  Л x%,y%+wheight%│2л(  Л x%,y%+(dt%(num%)?(left%-xstep%))(м2<Гline% Рdrawline ▀ РdrawdotFРinvert(num%,x%,y%)PАZ:dщ Рdrawlinen Ц X%=left% ╦ right% ┬ xstep%x  ъ X%+x%,dt%(num%)?X%+y%┌М▄А√:═щ Рdrawdot╙ Ц X%=left% ╦ right% ┬ xstep%Є;  х▓ X%+x%,dt%(num%)?X%+y%:х▓ X%+x%,y%+dt%(num%)?(X%+1)ЎМхАр:эщ Рcol(c%)Фх≥ "Wimp_SetColour",c%ПАЗ:.щ Рloadfile(Ь start%,Ь length%,Ь l%,name$)Й ch%,l%",ch%=▌(name$):Г ch%=0 ▄ ы#ch%:start%=-1:А,length%=╒#ch%6	ы#ch%@*l%=((length%│roundsize%)+1)*roundsize%Jstart%=єclaim(l%)TГ start%<1 ▄ А^h!Ъ("LOAD "+name$+" "+ц~start%)rА|:├щ Рinitdriver░-Ъ("*LO. <DSEdit$Dir>.Speaker "+ц~driver%) ж driver%+&F4єАў:╦-щ Рplay(n%,start%,length%,speed%,volume%)блdriver%!0=start%жdriver%!4=start%+length%Юdriver%?&1C=speed%ЙТх═ 2Ч*VOLUME 127*CHA. 2 8т 2,-volume%,255,255	*FX21&А0::M=========================================================================D:N?щ Рtransfer(A%,C%,B%) :Т Transfer block (A% to A%+C%) to B%X
ж tferbАl:vщ Рdelete(s%,l%,n%)─х≥ "Hourglass_On"┼6Рtransfer(s%+l%,start%(n%)+length%(n%)-(s%+l%),s%)■length%(n%)-=l%·maglen%(n%)-=l%╗Рchkmag(n%)╡sstart%(n%)=start%(n%)╪slen%(n%)=length%(n%)фchanged%=╧пх≥ "Hourglass_Off"зАД:Нщ Рchkmag(n%)Ь5Г sstart%(n%)<start%(n%) ▄ sstart%(n%)=start%(n%)9Г magstart%(n%)<start%(n%) ▄ magstart%(n%)=start%(n%)!Г length%(n%)<1 length%(n%)=1Г slen%(n%)<1 slen%(n%)=1 @Г (maglen%(n%)<1) └ (magstart%(n%)>start%(n%)+length%(n%)) ▄*6  magstart%(n%)=start%(n%):maglen%(n%)=length%(n%)4м>9Г magstart%(n%)<start%(n%) ▄ magstart%(n%)=start%(n%)H8Г magstart%(n%)+maglen%(n%)>start%(n%)+length%(n%) ▄R6  maglen%(n%)=start%(n%)+length%(n%)-magstart%(n%)\мfАp:zщ Рpaste(n%,fname$,insert%)└9Й c%,istart%,ilen%,pstart%,plen%,newstart%,plenround%▌ilen%=0≤7c%=▌(fname$):Г c%<>0 ▄ ilen%=╒#c%  :Т Insert length╒ы#c%╛Г c%=0 └ ilen%<1 ▄ АІх≥ "Hourglass_On"юРclaimmore(n%,ilen%)йГ newstart%<1 ▄ Е█DjSтч-istart%=єclaim(ilen%):Г istart%<1 ▄ Е█DjSХР#Ъ("LOAD "+fname$+" "+ц~istart%)ЭГ insert% ▄ A%=sstart%(n%)+ilen% B%=pstart%+plen%+ilen% C%=pstart%+plen%$ ж bfer.м8(Рtransfer(istart%,ilen%,sstart%(n%))B"Г insert% ▄ length%(n%)+=ilen%L0sstart%(n%)=start%(n%):slen%(n%)=length%(n%)V4magstart%(n%)=start%(n%):maglen%(n%)=length%(n%)`Рrelease(istart%)jх≥ "Hourglass_Off"tА~:┬щ Рadd(n%,fname$,add%)▓Й c%,clipboard%,l%°і"c%=▌(fname$):Г c%<>0 ▄ l%=╒#c%╟ы#c%╨Г c%=0 ▄ Адх≥ "Hourglass_On"нclipboard%=єclaim(l%+16)ь)Г clipboard%<1 ▄ х≥ "Hourglass_Off":АБ&Ъ("LOAD "+fname$+" "+ц~clipboard%)ЛA%=clipboard%ЖB%=sstart%(n%) Г l%<slen%(n%) ▄
  C%=l%л  C%=slen%(n%)(м2Г add% ▄<)  Г clipit% ▄ ж addclip ▀ ж addblocksFлP)  Г clipit% ▄ ж avgclip ▀ ж avgblocksZмdРrelease(clipboard%)nх≥ "Hourglass_Off"xА┌:▄>щ Рmakesilence(n%):Й pstart%,plen%,plenround%,newstart%,l%√х≥ "Hourglass_On"═'l%=єmenuval(80,lastval5$,1,10000,4)╙Рclaimmore(n%,l%)Є'Г newstart%<1 ▄ х≥"Hourglass_Off":АЎхHРtransfer(sstart%(n%),plen%-(sstart%(n%)-start%(n%)),sstart%(n%)+l%)рэЦ Z%=0 ╦ 255Ф mtable%?Z%=128ПМЗРtablemod(sstart%(n%),l%)length%(n%)+=l%3magstart%(n%)=newstart%:maglen%(n%)=length%(n%)"Рchkmag(n%),changed%=╧6х≥ "Hourglass_Off"@АJ:Tщ Рrampup(s%,l%)^ х≥ "Hourglass_On"h Ц Z%=0 ╦ l%r   B%=s%?Z%|   B%=(B%-128)*■(Z%/l%)├   B%+=128░   s%?Z%=B%  Мє changed%=╧ў х≥ "Hourglass_Off"╦Аб:лщ Рrampdown(s%,l%)ж х≥ "Hourglass_On"Ю Ц Z%=0 ╦ l%Й   B%=s%?Z%Т    B%=(B%-128)*■((l%-Z%)/l%)Ч   B%+=128   s%?Z%=B% М changed%=╧& х≥ "Hourglass_Off"0А::Dщ Рmovecentre(s%,l%)N	 Й C%X& C%=єmenuval(16,lastval7$,1,255,3)b C%=C%-128l х≥ "Hourglass_On"v─ Ц Z%=0 ╦ 255┼   B%=Z%-C%:Рclipit■   mtable%?Z%=B%· М╗ Рtablemod(s%,l%)╡╪ х≥ "Hourglass_Off"ф changed%=╧пАз:Дщ Рlimitup(s%,l%)Н	 Й C%Ь& C%=єmenuval(32,lastval7$,1,255,3) х≥ "Hourglass_On" Ц Z%=0 ╦ 255 .   Г Z%>C% ▄ mtable%?Z%=C% ▀ mtable%?Z%=Z%* М4 Рtablemod(s%,l%)> changed%=╧HR х≥ "Hourglass_Off"\Аf:pщ Рlimitdown(s%,l%)z	 Й C%└& C%=єmenuval(48,lastval7$,1,255,3)▌ х≥ "Hourglass_On"≤╒ Ц Z%=0 ╦ 255╛.   Г Z%<C% ▄ mtable%?Z%=C% ▀ mtable%?Z%=Z%І Мю Рtablemod(s%,l%)й changed%=╧тч х≥ "Hourglass_Off"ХАР:Эщ Рreverse(s%,l%):Й e% х≥ "Hourglass_On" e%=2*s%+l% Ц Z%=s% ╦ s%+(l%>>1)$   х■ ?Z%,e%?-Z%. М8 changed%=╧B х≥ "Hourglass_Off"LАV:`щ Рamplify(s%,l%,pc%):Й ampj1 Г pc%=-1 ▄ pc%=єmenuval(0,lastval1$,1,999,3)t$ Г pc%=100 └ pc%<1 └ pc%>999 ▄ А~ х≥ "Hourglass_On"┬▓ amp=pc%/100° Ц Z%=0 ╦ 255і   B%=((Z%-128)*amp)+128╟   Рclipit╨   mtable%?Z%=B%д Мн Рtablemod(s%,l%)ь changed%=╧БЛ х≥ "Hourglass_Off"ЖА :
щ Рaddconst(s%,l%):Й n%) n%=єmenuval(96,lastval2$,-255,255,4) х≥ "Hourglass_On"(2 Ц Z%=0 ╦ 255<   B%=Z%+n%:РclipitF   mtable%?Z%=B%P МZ Рtablemod(s%,l%)d changed%=╧nx х≥ "Hourglass_Off"┌А▄:√щ Рeorconst(s%,l%)═' n%=єmenuval(112,lastval3$,1,255,3)╙  Г n%<1 └ n%>255 ▄ n%=n%─&FFЄ х≥ "Hourglass_On"Ўх Ц Z%=0 ╦ 255р   mtable%?Z%=Z%┌n%э МФ Рtablemod(s%,l%)П changed%=╧З х≥ "Hourglass_Off"А:"/щ Рflange(s%,l%):Й echolength%,echostrength,0echolength%=єmenuval(144,lastval4$,1,9999,4)6echostrength=.7@Jх≥ "Hourglass_On"TЦ Z%=s% ╦ s%+l%-echolength%^ T%=(?Z%-128)*echostrengthh B%=(Z%?echolength%)+T%r Рclipit:Z%?echolength%=B%|М├changed%=╧░х≥ "Hourglass_Off" Ає:ў-щ Рecho(s%,l%):Й echolength%,echostrength╦0echolength%=єmenuval(128,lastval4$,1,9999,4)бechostrength=.7лжх≥ "Hourglass_On"Ю#Ц Z%=s%+l% ╦ s%+echolength% ┬-1Й, T%=((Z%?-echolength%)-128)*echostrengthТ B%=(?Z%)+T%:РclipitЧ ?Z%=B%Мchanged%=╧х≥ "Hourglass_Off"&А0::щ Рtablemod(A%,B%)D B%+=A%N C%=mtable%X ж tablemodbАl:vщ Рchangespeed(num%):Й A$─n%=єmenuval(160,A$,1,255,3)┼speed%(num%)=n% ─ &FF■А·:╗щ Рchangevol:Й A$╡n%=єmenuval(176,A$,1,15,2)╪volume%=n%┐16фАп:зщ Рzoom(n%,but%)ДЙ z%:z%=zoomlev%(n%)НГ but%=1 ▄ z%+=1 ▀ z%-=1ЬГ z%<8 ▄ z%=19Г z%>19 ▄ z%=8Г z%=19 ▄ (  start%=start%(n%):len%=length%(n%)*л4  Г 2^z%>length%(n%) ▄>    Г but%=4 ▄H%      У:z%-=1:Щ 2^z%<=length%(n%)R      Г z%<8 ▄ z%=19\,      len%=length%(n%):start%=start%(n%)f	    лp     z%=19z	    м└4    Г z%=19 ▄ start%=start%(n%):len%=length%(n%)▌  л≤    len%=2^z%╒3    start%=(magstart%(n%)+maglen%(n%)│2)-len%│2╛  мІмюй"$zoominame%(n%)=б"00"+ц(z%),2)тчzoomlev%(n%)=z%Хmagstart%(n%)=start%Рmaglen%(n%)=len%ЭРsetupdt(n%)3х≥ "Wimp_ForceRedraw",whandle%(n%),0,0,1280,2886х≥ "Wimp_ForceRedraw",whandle%(n%),196,292,264,360$А.:8щ Рscroll(n%,d%)BГ zoomlev%(n%)=19 ▄ АL+magstart%(n%)+=d%*((2^zoomlev%(n%))│ 4)VРchkmag(n%)`Рsetupdt(n%)j3х≥ "Wimp_ForceRedraw",whandle%(n%),0,0,1280,288tА~:┬щ Рsqueeze(s%,l%,n%)▓;Й n,newlen%,pstart%,plen%,plenround%,newstart%,A%,B%,C%°і) n=єmenuval(64,lastval6$,1,999,3)/100╟ Г n=1.00 ▄ А╨д х≥ "Hourglass_On"н newlen%=n*l%ьБ Г n>1.00 ▄Л    Рclaimmore(n%,newlen%-l%)Ж*   Г newstart%<1 ▄ х≥"Hourglass_Off":А 
   s%=sstart%(n%)B   newlen%=n*l%  :Т Recalc, as this corrupted by PROCclaimmore(3   Г slen%(n%)<plen% ─ s%+l%<start%(n%)+plen% ▄2.     A%=s%+newlen%             :Т TO start<1     B%=start%(n%)+plen%+newlen%-l% :Т TO endF.     C%=start%(n%)+plen%       :Т FROM endP     ж bferZ   мdn   Z%=newlen%x   х∙ Z%>512┌     Ц A%=Z% ╦ Z%-511 ┬ -1▄       s%?A%=s%?(A%/n)√
     М═     Z%-=512╙7     х≥ "Hourglass_Percentage",100-(Z%/newlen%*100)Є   нЎх5   Ц Z%=Z% ╦ 0 ┬ -1          :Т last 0..511 bytesр     s%?Z%=s%?(Z%/n)э   МФ лП   Z%=0ЗB   х∙ newlen%-Z%>512            :Т 512 byte chunks with hglass     Ц A%=Z% ╦ Z%+511       s%?A%=s%?(A%/n)
     М"     Z%+=512,1     х≥ "Hourglass_Percentage",Z%/newlen%*1006   н@J8   Ц Z%=Z% ╦ newlen%            :Т last 0..511 bytesT     s%?Z%=s%?(Z%/n)^   Мhr8   Г l%<length%(n%) ─ s%+l%<start%(n%)+length%(n%) ▄|C     Рtransfer(s%+l%,start%(n%)+length%(n%)-(s%+l%),s%+newlen%)├   м░ м є l%=newlen%-l%ў length%(n%)+=l%╦ slen%(n%)+=l%б  maglen%(n%)+=l%:Рchkmag(n%)л changed%=╧ж х≥ "Hourglass_Off"ЮАЙ:Т$щ Рclipit:Г ╛clipit% B%=B%┐256:АЧГ B%>255 ▄ B%=255:А Г B%<0 ▄ B%=0 А : &L======================================================================== 0: :щ єclaim(size%) DЙ ┘ NН ┘ Й Рerrorend(Ж$) X bFТ Do OS_Module call to find biggest block - If too small, complain l1Т - This may bugger up auto-allocation to RMA vKТ - This may be a good thing: the user must explicitly give us the mem. ─ ┼,х≥ "OS_Module",6,,,size% ╦ ,,ptr%;flags% ■>Г ptr%<1 └ flags%<>6 ▄ Рerror("Not enough room in RMA"):=0 ·	=ptr% ╗: ╡<щ Рclaimmore(n%,l%) :Т Get l% free bytes at end of sound ╪(pstart%=start%(n%):plen%=length%(n%) фrmalen%=rmalen%(n%) пГ (rmalen%-plen%)<l% ▄ з  Рrelease(start%(n%)) Д2  newlen%=((plen%+l%)│roundsize%+1)*roundsize% Н  newstart%=єclaim(newlen%) Ь  Г newstart%>0 ▄!    Г newstart%<pstart% ▄!      A%=newstart%!      B%=newstart%+plen%!       C%=pstart%+plen%!*      ж bfer!4	    м!>    Г newstart%>pstart% ▄!H,      Рtransfer(pstart%,plen%,newstart%)!R	    м!\0    start%(n%)=newstart%:rmalen%(n%)=newlen%!f3    sstart%(n%)=(sstart%(n%)-pstart%)+newstart%!p    pstart%=newstart%!z  м!└л!▌  newstart%=pstart%!≤м!╒А!╛:!Іщ Рrelease(Ь ptr%)!ю!й%Г ptr%>0 ▄ х≥ "OS_Module",7,,ptr%!т
ptr%=0!чА!Х:!Рщ Рbuttonclick(B%,W%,I%)!Эх▌ B% й" и 1 : Рsaclick(B%,W%,I%)") и 2 : Рmenuclick(W%,b%!0-16,b%!4-12)" и 4 : Рsaclick(B%,W%,I%)"$к".А"8:"Bщ Рsaclick(B%,W%,I%)"L"Й proc%,n%,xrange%,x0%:proc%=ё"VГ snum%<1 ▄ А"`"jГ W%=filewindow% ▄"t n%=єhandletosnum(mw%)"~ х▌ I% й"┬?  и fileicon%:   savesel%=ё:savewind%=mw%:Рdragfile:proc%=╧"▓i  и fileok%,filenameicon%: Рsaveit(n%,$filename%,start%(n%),length%(n%)):proc%=╧:name$(n%)=$filename%"° к"ім"╟"╨Г W%=filewindow2% ▄"д n%=єhandletosnum(mw%)"н х▌ I% й"ь?  и fileicon%:   savesel%=╧:savewind%=mw%:Рdragfile:proc%=╧"БT  и fileok%,filenameicon%: Рsaveit(n%,$filename2%,sstart%(n%),slen%(n%)):proc%=╧"Л к"Жм# #
Г W%=dialog% ▄# Г I%>-1 ─ I%<6 ▄ proc%=╧# х▌ I% й#(;   и 0,1,2,3: Рsadialog(I%,B%,єhandletosnum(loadwind%))#24   и 4: Рsadialog(4,13,єhandletosnum(loadwind%))#<   и 5: Рkilldialog#F к#Pм#ZГ proc% А#d#nZ%=1#xУ#┌  Г W%=whandle%(Z%) ▄#▄4   х≥ "Wimp_SetCaretPosition",W%,-1,0,-1000,0,-1#√   Т Grab the input focus#═   х▌ I% й#╙      и 0: Рstartdrag(Z%)#Є6      и 1: Г B%=4 ▄ Рscroll(Z%,-1) ▀ Рscroll(Z%,1)#ЎA      и 2: Рplay(Z%,sstart%(Z%),slen%(Z%),speed%(Z%),volume%)#х      и 3: Рzoom(Z%,B%)#р6      и 4: Г B%=4 ▄ Рscroll(Z%,1) ▀ Рscroll(Z%,-1)#э(      и spdicon%(Z%),infoicon1%(Z%):#Ф5          b%!32=whandle%(Z%):b%!36=infoicon1%(Z%)#П1          х≥ "Wimp_GetIconState",,b%+32,b%!36#З+          xrange%=b%!48-b%!40:x0%=b%!40$@          b%!32=whandle%(Z%):х≥ "Wimp_GetWindowState",,b%+32$           x0%+=(b%!36-b%!52)$6          speed%(Z%)=255-(((!b%-x0%)/xrange%)*255)$"@          Рplay(Z%,sstart%(Z%),slen%(Z%),speed%(Z%),volume%)$,*          х≥ "Wimp_GetPointerInfo",,b%$6B          Г !b%<>0 ▄ x0%=і(40)  :Т Short pause for auto-repeat$@   к$J  м$T  Z%+=1$^Щ Z%>snum% └ Z%>=17$hА$r:$|щ єinsrect(x%,y%,n%)$├1!b%=whandle%(n%):х≥ "Wimp_GetWindowState",,b%$░x%=x%-(b%!4-b%!20)-wleft%$ y%=y%-(b%!16-b%!24)-wbott%$є-=(x%>0 ─ y%>0 ─ x%<wwidth% ─ y%<wheight%)$ў:$╦щ Рmenuclick(W%,X%,Y%)$бЙ A$$лmw%=W%:mx%=X%:my%=Y%$ж$Ю@Г W%=-2 ▄Рmastermenu("DS Edit","Info ,Quit ,","",X%,184,0):А$Й$ТГ snum%>0 ▄$Ч  Ц Z%=1 ╦ snum%%F    Г W%=whandle%(Z%) Рmastermenu("DS Edit",menu$,menu2$,X%,Y%,Z%)%  М%м%&А%0:%:"щ Рmenuselect(mitem%,subitem%)%DЙ stay%,num%%N х≥ "Wimp_GetPointerInfo",,b%%Xstay%=(b%!8=1)%b%l!Г mw%=-2 ─ mitem%=1 quit%=╧:А%v%─num%=єhandletosnum(mw%)%┼Г snum%>0 ▄%■  start%=sstart%(num%)%·  length%=slen%(num%)%╗  changed%=ё%╡  х▌ mitem% й%╪H    и 0: Рplay(num%,start%(num%),length%(num%),speed%(num%),volume%)%ф3    и 1: Т Save- Done thru icons on file window%п┌    и 2: sstart%(num%)=start%(num%):slen%(num%)=length%(num%):х≥"Wimp_ForceRedraw",whandle%(num%),0,0,1279,288:Рinfotext(num%)%з    и 3:%Д      х▌ subitem% й%Н9        и 0: Т Save Selection -Done thru' icon clicks%ЬK        и 1: Рplay(num%,sstart%(num%),slen%(num%),speed%(num%),volume%)&-        и 2: Рdelete(start%,length%,num%)&      к&    и 4:&       х▌ subitem% й&*(        и 0: Рrampup(start%,length%)&4*        и 1: Рrampdown(start%,length%)&>,        и 2: Рamplify(start%,length%,-1)&H,        и 3: Рmovecentre(start%,length%)&R)        и 4: Рlimitup(start%,length%)&\+        и 5: Рlimitdown(start%,length%)&f9        и 6: Рsqueeze(sstart%(num%),slen%(num%),num%)&p#        и 7: Рmakesilence(num%)&z      к&└    и 5:&▌      х▌ subitem% й&≤*        и 0: Рaddconst(start%,length%)&╒*        и 1: Рeorconst(start%,length%)&╛)        и 2: Рreverse(start%,length%)&І&        и 3: Рecho(start%,length%)&ю(        и 4: Рflange(start%,length%)&й      к&т    и 6:&ч      х▌ subitem% й&Х#        и 0: Рchangespeed(num%)&Р        и 1: Рchangevol&ЭF        и 2: clipit%=╛clipit%:Рmenutick("Clipping",clipit%,menu2$)'S        и 3: flags%(num%)=flags%(num%)┌1:х≥ "Wimp_ForceRedraw",mw%,0,0,1279,288'      к''$    и 7:'.      х▌ subitem% й'85        и 0: Рconvert1(sstart%(num%),slen%(num%))'B5        и 1: Рconvert2(sstart%(num%),slen%(num%))'L5        и 2: Рconvert4(sstart%(num%),slen%(num%))'V      к'`  к'j!  Г changed% ▄ Рchanged(num%)'tм'~<Г stay% Рmastermenu("DS Edit",menu$,menu2$,mx%,my%,num%)'┬А'▓:'°щ Рchanged(num%)'іchanged%(num%)=╧:!b%=mw%'╟Рsetupdt(num%)'╨1$(names%+16*(num%-1))=єleaf(name$(num%))+" *"'дРretitle(whandle%(num%))'н*х≥ "Wimp_ForceRedraw",mw%,0,0,1279,288'ьРinfotext(num%)'БА'Л:'Жщ Рprocesskey( Й key%,num%(
num%=єhandletosnum(!b%)(key%=b%!24(((х▌ key% й(2  и 13:(<      Г num%>0 ▄(FG        Рplay(num%,start%(num%),length%(num%),speed%(num%),volume%)(P      л(Z!        Рsaclick(13,!b%,b%!4)(d      м(n(xB  и 127,8:                      :Т Delete key pressed (delete)(┌      Г num%>0 ▄(▄        О7(√3        Рdelete(sstart%(num%),slen%(num%),num%)(═-        mw%=whandle%(num%):Рchanged(num%)(╙E        х≥ "Wimp_SetCaretPosition",whandle%(num%),-1,0,-1000,0,-1(Є      м(Ў(хA  и 32:                         :Т Space bar (play selection)(рM      Г num%>0 Рplay(num%,sstart%(num%),slen%(num%),speed%(num%),volume%)(э(Ф>  и 414:                        :Т Page down (Amplify 75%)(П      Г num%>0 ▄(З        О7)2        Рamplify(sstart%(num%),slen%(num%),75))-        mw%=whandle%(num%):Рchanged(num%))E        х≥ "Wimp_SetCaretPosition",whandle%(num%),-1,0,-1000,0,-1)"      м),)6=  и 415:                        :Т Page up (Amplify 150%))@      Г num%>0 ▄)J        О7)T3        Рamplify(sstart%(num%),slen%(num%),150))^-        mw%=whandle%(num%):Рchanged(num%))hE        х≥ "Wimp_SetCaretPosition",whandle%(num%),-1,0,-1000,0,-1)r      м)|)├8  и 395:                        :Т Copy (Select all))░$      sstart%(num%)=start%(num%)) #      slen%(num%)=length%(num%))є:      х≥"Wimp_ForceRedraw",whandle%(num%),0,0,1279,288)ў      Рinfotext(num%))╦)б)л"  : х≥ "Wimp_ProcessKey",key%)жк)ЮА)Й:)Тщ Рdragfile)Ч5  Г savesel% ▄ !b%=filewindow2% ▀ !b%=filewindow%*!  х≥"Wimp_GetWindowState",,b%*&  wex%=b%!4-b%!20:wey%=b%!16-b%!24*  b%!4=fileicon%*&  х≥"Wimp_GetIconState",,b%*05  Г savesel% ▄ !b%=filewindow2% ▀ !b%=filewindow%*:  b%!4=5*D  b%!8+=wex%:b%!12+=wey%*N  b%!16+=wex%:b%!20+=wey%*X  b%!24=0:b%!28=0*b%  b%!32=&7FFFFFFF:b%!36=&7FFFFFFF*l  х≥ "Wimp_DragBox",,b%*vА*─:*┼щ Рretitle(handle%)*■!b%=handle%*· х≥ "Wimp_GetWindowState",,b%*╗х≥ "Wimp_CloseWindow",,b%*╡х≥ "Wimp_OpenWindow",,b%*╪А*ф:*п#щ Рsaveit(n%,name$,start%,end%)*зend%+=start%*ДГ їname$,".") ▄*Н-  х≥ "OS_File",10,name$,&ED0,,start%,end%*Ь&  $(names%+16*(n%-1))=єleaf(name$)+  Рretitle(whandle%(n%))+  changed%(n%)=ё+л+ <  Рerror("To save, drag the icon to a directory viewer")+*м+4-!b%=filewindow%:х≥ "Wimp_CloseWindow",,b%+>.!b%=filewindow2%:х≥ "Wimp_CloseWindow",,b%+H-!b%=infohandle%:х≥ "Wimp_CloseWindow",,b%+Rх≥ "Wimp_CreateMenu",,-1+\А+f:+p"щ Рcreatefilew(Ь hand%,fname%)+zГ hand%<>0 ▄+└  !b%=hand%+▌   х≥ "Wimp_DeleteWindow",,b%+≤м+╒+╛b%!0=0:b%!4=0+Іb%!8=246:b%!12=168+юb%!16=0:b%!20=0+йb%!24=-1:b%!28=&93+тb%!32=&1070207:b%!36=&20D04+чb%!40=0:b%!44=-1024+Хb%!48=1280:b%!52=0+Рb%!56=&3D:b%!60=0+Эb%!64=1:b%!68=0,b%!84=0:$(b%+72)="Save as:",&х≥ "Wimp_CreateWindow",,b% ╦ hand%,,$=fileok%=єicon(hand%,192,-160,238,-112,&C701913D,oks%,0,3),.Jfilenameicon%=єicon(hand%,10,-160,186,-112,&700F13D,fname%,valid%,256),8@fileicon%=єicon(hand%,56,-92,184,-20,&D7006102,sprite%,1,20),BА,L:,Vщ Рdialog(num%),`Й crap%,A$,jГ dialog%>0 ▄ Рkilldialog,t.$scratch%="Save to "+єleaf(name$(num%))+Ґ0,~Bdialog%=єcreatewindow(scratch%,320,320,640,384,0,12,%10010011),┬,▓Ц i%=0 ╦ 3,°  Г i%=0 ▄,іV    crap%=єspriteicon(dialog%,48,288-i%*48,96,336-i%*48,&3102,sprspace%,"radioon"),╟  л,╨W    crap%=єspriteicon(dialog%,48,288-i%*48,96,336-i%*48,&3102,sprspace%,"radiooff"),д  м,н  dialogb%(i%)=alloc%,ьМ,Б,Л8crap%=єtexticon(dialog%,48,48,176,96,&C701913D,"OK"),Ж=crap%=єtexticon(dialog%,464,48,592,96,&0701913D,"CANCEL")- -

В █Dnm-Ц i%=0 ╦ 3-	 С A$-(G  crap%=єtexticon(dialog%,144,288-i%*48,688,336-i%*48,&C7000111,A$)-2М-<-FО7:Рopenwindow(dialog%)-Pх≈ х⌠ 320,320,640,384-ZА-d:-nmэ "Insert at selection start","Overwrite from sel. start","Add sounds together","Average sounds together"-x:-┌щ Рkilldialog-▄х≈ х⌠ 0,0,1279,1023-√!b%=dialog%-═х≥ "Wimp_DeleteWindow",,b%-╙dialog%=0-ЄА-Ў:-хщ Рsadialog(I%,B%,n%)-р
 i%=-1-э У:i%+=1-Ф) Щ ю$dialogb%(i%),7)="radioon" └ i%=3-П' Г ю$dialogb%(i%),7)<>"radioon" ▄ А-З.Г B%=13 └ I%=4 ▄.
  I%=4.  Рkilldialog."!  n%=єhandletosnum(loadwind%).,  х▌ i% й.6!    и 0: Рpaste(n%,insert$,╧).@!    и 1: Рpaste(n%,insert$,ё).J    и 2: Рadd(n%,insert$,╧).T    и 3: Рadd(n%,insert$,ё).^  к.h  changed%(n%)=╧.r/  $(names%+16*(n%-1))=єleaf(name$(n%))+" *".|  Рretitle(loadwind%).├?  Рsetupdt(n%):х≥ "Wimp_ForceRedraw",loadwind%,0,0,1279,288.░л.  Г i%<>I% ▄.є   $(dialogb%(i%))="radiooff".ў  $(dialogb%(I%))="radioon".╦=  х≥ "Wimp_ForceRedraw",dialog%,48,288-I%*48,96,336-I%*48.б=  х≥ "Wimp_ForceRedraw",dialog%,48,288-i%*48,96,336-i%*48.л м.жм.ЮРinfotext(n%).ЙА.Т:.Ч5щ єcreatewindow(titleptr%,X%,Y%,W%,H%,bg%,hg%,F%)/$b%=д92,Ґ0)/!b%=X%:b%!4=Y%/b%!8=X%+W%:b%!12=Y%+H%/&b%!16=0:b%!20=0/0b%!24=-1:b%!28=F%/:b%?32=7:b%?33=2/Db%?34=7:b%?35=1/Nb%?36=3:b%?37=1/Xb%?38=12:b%!40=0/bb%!44=0:b%!48=W%/lb%!52=H%:b%!56=&13D/vb%!60=&A000/─b%!72=titleptr%:b%!76=-1/┼b%!80=╘$titleptr%/■#х≥ "Wimp_CreateWindow",,b% ╦ H%/·=H%/╗:/╡щ Рopenwindow(!b%)/╪ х≥ "Wimp_GetWindowState",,b%/фb%!28=-1/пх≥ "Wimp_OpenWindow",,b%/зА/Д:/Нщ Рclosewindow(W%)/ЬЙ n%00х≥ "Hourglass_On"0n%=єhandletosnum(W%)0 0*Г єquit(n%) ▄04 Рcompactrma(n%)0> Рrelease(start%(n%))0H Рrelease(dt%(n%))0R length%(n%)=00\ sstart%(n%)=0:slen%(n%)=00f" magstart%(n%)=0:maglen%(n%)=00p" changed%(n%)=ё:speed%(n%)=&300z0└ !b%=W%0▌ х≥ "Wimp_CloseWindow",,b%0≤ х≥ "Wimp_DeleteWindow",,b%0╒) whandle%(n%)=0:Г n%=snum% ▄ snum%-=10╛м0Іх≥ "Hourglass_Off"0юА0й:0т@щ Рcompactrma(n%) :Т Moves other sounds down if room is made0ч0ХAТ If @@@@****%%%% possible, uses SYS "OS_Module" calls to get0РCТ free spaces in RMA, and compact sounds together to save holes0ЭТ appearing in the RMA11.Т 6 Months later: Ha! As if I can do THAT!1А1$:1.щ єquit(num%)18Й q%1BГ ╛changed%(num%) ▄=╧1L1V6$b%="'"+name$(num%)+"' not saved: Really Quit?"+Ґ01`.х≥ "Wimp_ReportError",b%,3,"DS Edit" ╦ ,q%1jГ q%=1 ▄:=╧1t=ё1~:1┬Eщ єtexticon(!b%,b%!4,b%!8,b%!12,b%!16,f%,t$):Й h% :Т @@@@****%%%%1▓:b%!20=f%: Т general: %110001110000000101000000001111011°*Т    ^   ^   ^   ^   ^   ^   ^   ^   ^1і*Т    31  28  24  20  16  12  8   4   01╟ч b%!24 ╘t$+11╨b%!28=-11дb%!32=╘t$1н$(b%!24)=t$+Ґ01ь!х≥ "Wimp_CreateIcon",,b% ╦ h%1Б=h%1Л:1Ж6щ єspriteicon(!b%,x1,y1,x2,y2,flags%,sptr%,sname$)2 !ч b%!24 ╘sname$+1:b%!28=sptr%2
alloc%=b%!242!b%!32=╘sname$+1:$b%!24=sname$2b%!4=x1:b%!8=y12(b%!12=x2:b%!16=y222b%!20=flags%2<!х≥ "Wimp_CreateIcon",,b% ╦ h%2F=h%2P:2Z,щ єicon(!b%,x1,y1,x2,y2,flags%,i1,i2,i3)2dЙ h%2nb%!4=x1:b%!8=y12xb%!12=x2:b%!16=y22┌b%!20=flags%2▄b%!24=i1:b%!28=i22√b%!32=i32═!х≥ "Wimp_CreateIcon",,b% ╦ h%2╙=h%2Є:2Ў)щ Рmastermenu(title$,m$,m2$,X%,Y%,n%)2хЙ base%,wbase%,wmptr%2рГ n%>0 ▄2э1  base%=menu%:wbase%=menu%+1792:wmptr%=wmenu%2Ф  $filename%=name$(n%)2П  $filename2%="Selection"2З)  Рmenutick("Lines",flags%(n%)─1,m2$)3&  Рcreatemenu(menu%,title$,m$,m2$)3B                                                :Т WRITEABLES:3  $wmenu%=д128,Ґ0)3"9  $wmenu%=ц(╩(lastval1$))+"%"              :Т Amplify3,K  $(wmenu%+16)=lastval7$                        :Т Move centre/limitU/D363  $(wmenu%+32)=lastval7$:$(wmenu%+48)=lastval7$3@9  $(wmenu%+64)=ц(╩(lastval6$))+"%"         :Т Squeeze3JI  $(wmenu%+80)=lastval5$:$(wmenu%+96)=lastval2$ :Т MSilence,Add const3TG  $(wmenu%+112)=lastval3$:$(wmenu%+128)=lastval4$ :Т Eor const,Echo3^B  $(wmenu%+144)=lastval4$                       :Т Flange echo3h3  $(wmenu%+160)=б"000"+ц(speed%(n%)),3):Т Speed3r4  $(wmenu%+176)=б"000"+цvolume%,2)     :Т Volume3|л3├&  Рcreatemenu(menu%,title$,m$,m2$)3░м3 0х≥ "Wimp_CreateMenu",,menu%,X%-menu%!16/2,Y%3єА3ў:3╦#щ Рcreatemenu(M%,title$,m$,m2$)3бЙ I%,max%,doneboth%3л3жdoneboth%=ё3Ю$M%=title$:M%!12=&702073ЙM%!20=44:M%!24=03ТI%=M%+28:max%=╘(title$)-23Ч4У4 У4  A%=їm$,",")4&/  I%!4=єsubmenu(base%,m$):Г A%>max% max%=A%40  I%!8=&70000214:  $(I%+12)=юm$,A%-2)4D   special%=≈(аm$,A%-1,1))-654ND    Т Following line used to shade permanently unavailable items4X)  Г special%=21 ▄ I%!8=(I%!8)└&4000004b4l2  Г special%=22 ▄ I%!4=єwriteable(юm$,A%-2),5)4v2  Г special%=23 ▄ I%!4=єwriteable(юm$,A%-2),3)4─&  Г special%=24 ▄ I%!4=filewindow%4┼'  Г special%=25 ▄ I%!4=filewindow2%4■,  Г special%<0 └ special%>7 ▄ special%=04·  I%!0=(special% ─ 3)4╗.  Г ю$(I%+12),4)="Info" ▄ I%!4=infohandle%4╡  m$=аm$,A%+1)4╪  I%+=244ф Щ m$=""4п Гm2$="" ▄ doneboth%=╧4з m$=m2$:m2$=""4ДЩ doneboth%4Н4Ь'I%!-24=(I%!-24) └ &80:M%!16=max%*165А5:5щ єwriteable(t$,width%)5 $wbase%=t$:wbase%!12=&702075*wbase%!16=132:wbase%!20=4854wbase%!24=0:wbase%+=285>wbase%!0=&84:wbase%!4=-15H&wbase%!8=&7000121:wbase%!12=wmptr%5Rwbase%!16=-15\wbase%!20=width%5fwbase%+=36:wmptr%+=165p=wbase%-645z:5└щ єsubmenu(Ь base%,Ь m$)5▌Й a%,t$,new$5≤Г юm$,1)<>">" ▄=-15╒5╛m$=бm$,╘m$-1)5Іa%=їm$,"<")5юnew$=юm$,a%-1)5й5тA%=їm$,",")5ч;Рcreatemenu(base%+256,юm$,A%-1),аnew$,їnew$,",")+1),"")5Х5Р$m$=юnew$,їnew$,",")-1)+аm$,a%+1)5ЭA%=їm$,",")6base%+=2566
=base%6:6$"щ Рmenutick(A$,state%,Ь menu$)6.Й p%68(Г state% ▄ state%=≈"B" ▀ state%=≈"b"6B%p%=їmenu$,A$):p%=їmenu$,",",p%)-16Lаmenu$,p%,1)=Ґ(state%)6VА6`:6j2щ єmenuval(addr%,Ь lastval$,min%,max%,digits%)6tЙ A$:A$="":addr%+=wmenu%6~Г ?addr%=≈"-" ▄ A$="-"6┬Ц Z%=0 ╦ digits%6▓7  Г addr%?Z%>=≈"0" ─ addr%?Z%<=≈"9" ▄ A$+=Ґaddr%?Z%6°М6і!Г ╩(A$)>=min% ─ ╩(A$)<=max% ▄6╟  Г ╩A$>=0 ▄6╨    lastval$=бA$,digits%)6д  л6н!    lastval$=б"-"+A$,digits%)6ь  м6Бм6Л
=╩(A$)6Ж:7 щ Рreceive7
х▌ b%!16 й7 и 0 : quit%=╧7 и 2 : Рrecsave7( и 3 : Рrecload72 и 5 : Рrecopen7<к7FА7P:7Zщ Рrecsave7dЙ n%,s%,l%7nn%=єhandletosnum(savewind%)7x name$(n%)=єzerostring(b%+44)7┌Г savesel% ▄7▄  s%=sstart%(n%):l%=slen%(n%)7√л7═! s%=start%(n%):l%=length%(n%)7╙м7Є7ЎРsaveit(n%,name$(n%),s%,l%)7хb%!12=b%!8:b%!16=3:!b%=647р+х≥ "Wimp_SendMessage",17,b%,b%!20,b%!247эА7Ф:7Пщ Рrecload7ЗЙ pn$,wh%81Г b%!12<>0 ▄ А :Т Not from filer @@@@****%%%%8wh%=b%!208pn$=єzerostring(b%+44)8"Г wh%=-2 ▄8,  Рsaveblock86  Г єload(pn$) ▄8@    Рrestoreblock8J    Рsendloadack8T  м8^л8h  loadwind%=b%!208r   insert$=єzerostring(b%+44)8|!  Рdialog(єhandletosnum(wh%))8├м8░А8 :8єщ Рrecopen8ўЙ pn$,wh%,Z%8╦pn$=єzerostring(b%+44)8б8лГ b%!40=&ED0 ▄8ж  Рsaveblock8Ю  Г єload(pn$) ▄8Й    Рrestoreblock8Т    Рsendloadack8Ч  м9м99Г b%!40=&ED1 ▄9&(  Т **** Compressed DSEdit raw-sound90м9:9DГ b%!40=&DF9 ▄9NC  Рsaveblock                    :Т **** Load SoundSynth samples9XI                                   :Т Note this doesn't remove header9b  Г єload(pn$) ▄9l    Рrestoreblock9v    Рsendloadack9─9┼3    х≥ "Hourglass_On"             :Т Eor by 1289■    Ц Z%=0 ╦ 2559·      mtable%?Z%=(Z% ┌ 128)9╗	    М9╡;    Рtablemod(start%(lastloaded%),length%(lastloaded%))9╪    Рsetupdt(lastloaded%)9ф    х≥ "Hourglass_Off"9п  м9зм9ДА9Н:9Ьщ Рsaveblock:Ц Z%=0 ╦ 240 ┬ 4:  scratch%!Z%=b%!Z%:М: А:*::4щ Рrestoreblock:>Ц Z%=0 ╦ 240 ┬ 4:H  b%!Z%=scratch%!Z%:RМ:\А:f::pщ Рsendsave:zЙ p%:└ х≥ "Wimp_GetPointerInfo",,b%:▌(b%!20=64:b%!32=0:b%!36=1:b%!40=b%!12:≤$b%!44=b%!16:b%!48=!b%:b%!52=b%!4:╒:╛Г savesel% ▄:І+  b%!56=slen%(єhandletosnum(savewind%)):ю  p%=filename2%:йл:т-  b%!56=length%(єhandletosnum(savewind%)):ч  p%=filename%:Хм:Р:Эb%!60=&ED0;$(b%+64)=єleaf($p%);.х≥ "Wimp_SendMessage",17,b%+20,b%!12,b%!16;А;$:;.щ Рsendloadack;8b%!16=4;Bb%!12=b%!8;L$х≥ "Wimp_SendMessage",17,b%,b%!4;VА;`:;jщ єzerostring(addr%);tЙ A$;~х∙ ?addr%>31;┬  A$+=Ґ(?addr%):addr%+=1;▓н;°=A$;і:;╟щ Рwimpinit;╨,ч b% 256,menu% 4000,wmenu% 255,oldb% 100;д/ч scratch% 255,saveblock% 241,infowind% 200;н;ьquit%=ё;Б$b%="TASK";Л9х≥ "Wimp_Initialise",200,!b%,"DS Edit" ╦ ,taskhandle%;Ж< 4х≥ "Wimp_OpenTemplate",,"<DSEdit$Dir>.Templates"<
G  х≥ "Wimp_LoadTemplate",,menu%,infowind%,infowind%+200,-1,"Info",0<1  х≥ "Wimp_CreateWindow",,menu% ╦ infohandle%<х≥ "Wimp_CloseTemplate"<(<2=ч oks% 2,filename% 255,filename2% 255,valid% 3,sprite% 20<<0$oks%="OK":$valid%="a~ ":$sprite%="file_ed0"<F$filename%="RawSound"<P$filename2%="Selection"<Z<d%ч sprite2% 20:$sprite2%="!dsicon"<nч names% 256<x0Ц Z%=0 ╦ 15:$(names%+(Z%<<4))="<Untitled>":М<┌4appicon%=єicon(-1,0,0,68,68,&3102,sprite2%,1,20)<▄А<√:<═щ Рerror(e$)<╙$b%="    "+e$+" at "+ц~·<Єb%?(╘($b%)+4)=0<Ў(х≥ "Wimp_ReportError",b%,1,"DS Edit"<хА<р:<эщ Рerrorend<ФН┘ х≥ "Wimp_CloseDown":Ю<ПЦ Z%=1 ╦ snum%<З  Рrelease(start%(Z%))=  Рrelease(dt%(Z%))=М=х≥"Wimp_CloseDown"="Ю=,:=6щ Рconvert1(S%,L%)=@Й Z%,A%,T%=J=TZ%=єclaim(1280)=^Г Z%<1 ▄ А=h=rх≥ "Hourglass_On"=|=├+Ц T% = -(127<<24) ╦ (127<<24) ┬ (1<<24)=░!  х≥ "Sound_SoundLog",T% ╦ A%=   Z%!(A%*4)=T%=єМ=ў=╦Ц A%=0 ╦ 255=б&  mtable%?A%=((Z%!(A%*4))>>24)+128=лМ=ж=ЮРtablemod(S%,L%)=Йchanged%=╧=ТРrelease(Z%)=Ч>х≥ "Hourglass_Off">А>:>&щ Рconvert2(S%,L%)>0Й A%>:>Dх≥ "Hourglass_On">NЦ A% = 0 ╦ 255>X  Г A% ─ %00000001 ▄>b$    mtable%?A% = 128   + (A%>>1)>l  л>v"    mtable%?A% = 128 - (A%>>1)>─  м>┼М>■>·Рtablemod(S%,L%)>╗changed%=╧>╡х≥ "Hourglass_Off">╪А>ф:>п@щ Рconvert3(S%,L%)            :Т Convert Ed's 16-bit samples>зЙ A%,B%,T%,Y%>Д>Нх≥ "Hourglass_On">Ь%Ц T% = S%+&529 ╦ S%+&529 + L% ┬ 2?  A%  = (T%?0) + (T%?1)*256?)  ?S% = (A% ┌ %1000000000000000) >> 8?  S%+=1? М?*?4changed%=╧?>х≥ "Hourglass_Off"?HА?R:?\щ Рconvert4(S%,L%)?fЙ A%?p?zх≥ "Hourglass_On"?└Ц A% = 0 ╦ 255?▌  mtable%?A% = A% ┌ 128?≤М?╒?╛Рtablemod(S%,L%)?Іchanged%=╧?юх≥ "Hourglass_Off"?йАЪ