!SoundCtrl/!RunImage

Home » Archimedes archive » Micro User » MU 1992-08.adf » PD » !SoundCtrl/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Micro User » MU 1992-08.adf » PD
Filename:	!SoundCtrl/!RunImage
Read OK:	✔
File size:	5A95 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <SoundCtrl$Dir>.!RunImage
   20
   30SYS "OS_SWINumberFromString",,"Wimp_Poll" TO wimppoll%
   40SYS "OS_SWINumberFromString",,"Wimp_PollIdle" TO wimppollidle%
   50SYS "Wimp_Initialise",200,&4B534154,"Sound Control" TO ,task%
   60
   70DIM block% &1000,pollblock% 512,menu% 1024,idir% 1024,type% 10
   80DIM stereoptrs%(7),stereo%(7):stereo%()=-1024
   90DIM voiceptrs%(7),voices%(7),code% 768:voices%()=-1
  100DIM stereomap%(7)
  110stereomap%(1)=-127:stereomap%(7)=127
  120stereomap%(2)=-79:stereomap%(6)=79
  130stereomap%(3)=-47:stereomap%(5)=47
  140stereomap%(4)=0
  150PROCsprites
  160PROCassem
  170iptr%=idir%
  180PROCtemplates
  190PROCicon
  200oldsound1%=-1:oldsound3%=-1
  210oldspeaker%=-1:oldaudio%=-1
  220shaded%=FALSE
  230quit%=FALSE
  240mask%=&1831
  250idle%=0
  260version%=-1
  270volume%=-1
  280drag%=FALSE
  290PROCcheckversion
  300ON ERROR PROCerror
  310SYS "OS_ReadMonotonicTime" TO time%
  320PROCupdatestate
  330PROCcheckversion
  340REPEAT
  350a%=time%+100:IF (idle% AND2)<>0 AND (idle% AND5)=0 THEN a%=time%+20
  360IF (idle% AND2)<>0 AND (idle% AND5)<>0 THEN a%=time%+30
  370IF drag% THEN a%=time%-1:m%=mask% AND &FFFFFFFE:p%=wimppoll% ELSE m%=mask%:p%=wimppollidle%
  380SYS p%,m%,pollblock%,a% TO r%
  390CASE r% OF
  400WHEN 0
  410   IF drag% THEN
  420      SYS "Wimp_GetPointerInfo",,block%
  430      PROCsetvolume(block%!4-dragmin%)
  440   ELSE
  450      IF (idle% AND2) THEN
  460         !version=1:A%=255:CALL readversion
  470         IF !version<>version% PROCcheckversion ELSEPROCupdatetrackerstate
  480      ENDIF
  490      IF (idle% AND5) THEN
  500         IF (idle% AND2)=0 THEN A%=0:CALL readversion:IF !version<>version% THEN PROCcheckversion
  510         PROCupdatestate
  520      ENDIF
  530   ENDIF
  540   SYS "OS_ReadMonotonicTime" TO time%
  550WHEN 2
  560   IF !pollblock%=window% THEN mask%=mask% AND (NOT 1):idle%=idle% OR 1
  570   IF !pollblock%=trackerwin% THEN mask%=mask% AND (NOT 1):idle%=idle% OR2
  580   IF !pollblock%=voicewin% THEN mask%=mask% AND (NOT 1):idle%=idle% OR 4
  590   SYS "Wimp_OpenWindow",,pollblock%
  600WHEN 3
  610   IF !pollblock%=window% THEN idle%=idle% AND(NOT1)
  620   IF !pollblock%=trackerwin% THEN idle%=idle% AND(NOT2)
  630   IF !pollblock%=voicewin% THEN idle%=idle% AND(NOT4)
  640   IF idle%=0 THEN mask%=mask% OR 1
  650   SYS "Wimp_CloseWindow",,pollblock%
  660WHEN 6:PROCclick(pollblock%)
  670WHEN 7:drag%=FALSE:PROCsetvolume(pollblock%!4-dragmin%)
  680WHEN 9:PROCmenuselect(pollblock%)
  690WHEN 17,18:PROCmessage(pollblock%)
  700ENDCASE
  710UNTIL quit%
  720SYS "Wimp_CloseDown"
  730END
  740
  750DEF PROCerror
  760SYS "XWimp_DragBox",,-1:drag%=FALSE
  770SYS "XWimp_CreateMenu",,-1
  780SYS "XHourglass_Smash"
  790!block%=ERR:$(block%+4)=REPORT$+CHR$0
  800SYS "Wimp_ReportError",block%,1,"Sound Control"
  810PROCcheckversion
  820ENDPROC
  830
  840DEF PROCicon
  850!block%=-1
  860block%!4=0:block%!8=0
  870block%!12=72:block%!16=68
  880block%!20=&3102
  890$iptr%="!soundctrl"
  900block%!24=iptr%
  910block%!28=1
  920block%!32=LEN$iptr%
  930iptr%+=LEN$iptr%+1
  940SYS "Wimp_CreateIcon",,block% TO taskicon%
  950ENDPROC
  960
  970DEF PROCtemplates
  980SYS "Wimp_OpenTemplate",,"<SoundCtrl$Dir>.Templates"
  990window%=FNloadtemplate("control")
 1000infowin%=FNloadtemplate("infowin")
 1010voicewin%=FNloadtemplate("voices")
 1020trackerwin%=FNloadtemplate("tracker")
 1030SYS "Wimp_CloseTemplate"
 1040ENDPROC
 1050
 1060DEF FNloadtemplate(a$)
 1070SYS "Wimp_LoadTemplate",,block%,iptr%,idir%+1024,-1,a$+STRING$(12,CHR$0),0 TO ,,iptr%
 1080CASE a$ OF
 1090WHEN "control"
 1100   FOR T%=26 TO 33
 1110   I%=block%+88+T%*32
 1120   I%!24=sprites%:I%!28=5
 1130   stereoptrs%(T%-26)=I%!20+4
 1140   NEXT
 1150   block%!(88+32*60+24)=sprites%
 1160   volminx%=block%!(88+32*63+0)
 1170   volminy%=block%!(88+32*63+4)
 1180   volmaxx%=block%!(88+32*63+8)
 1190   volmaxy%=block%!(88+32*63+12)
 1200WHEN "voices"
 1210   FOR T%=10 TO 17
 1220   I%=block%+88+T%*32
 1230   voiceptrs%(T%-10)=I%!20
 1240   NEXT
 1250WHEN "tracker"
 1260   block%!64=sprites%
 1270   block%!(88+32*4+24)=sprites%
 1280   pauseptr%=block%!(88+32*4+20)
 1290   versionptr%=block%!(88+32*9+20)
 1300   statusptr%=block%!(88+32*8+20)
 1310   patternptr%=block%!(88+32*11+20)
 1320ENDCASE
 1330SYS "Wimp_CreateWindow",,block% TOhandle%
 1340=handle%
 1350
 1360DEF PROCupdatevoices
 1370FOR T%=1 TO 8
 1380IF voices%(T%-1)<>voicenums!(T%*4-4) THEN
 1390   voices%(T%-1)=voicenums!(T%*4-4)
 1400   SYS "Sound_InstallVoice",0,voices%(T%-1) TO t%
 1410   $voiceptrs%(T%-1)=""
 1420   IF t%<>0 THEN a%=t%:WHILE ?a%<>0 AND ?a%<>13 AND ?a%<>10 AND a%<t%+25:$voiceptrs%(T%-1)+=CHR$?a%:a%+=1:ENDWHILE
 1430   !block%=voicewin%:block%!4=T%+9
 1440   block%!8=0:block%!12=0
 1450   SYS "Wimp_SetIconState",,block%
 1460ENDIF
 1470NEXT
 1480ENDPROC
 1490
 1500DEF PROCmessage(p%)
 1510CASE p%!16 OF
 1520   WHEN 0:quit%=TRUE
 1530ENDCASE
 1540ENDPROC
 1550
 1560DEF PROCupdatestereo
 1570FOR T%=0 TO 7:SYS "Sound_Stereo",T%+1,-128 TO,I%
 1580IF I%<>stereo%(T%) THEN
 1590   stereo%(T%)=I%
 1600   IF I%<=-80 THEN ?stereoptrs%(T%)=49
 1610   IF I%>=-79 AND I%<=-48 THEN ?stereoptrs%(T%)=50
 1620   IF I%>=-47 AND I%<=-16 THEN ?stereoptrs%(T%)=51
 1630   IF I%>=-15 AND I%<=15 THEN ?stereoptrs%(T%)=52
 1640   IF I%>=16 AND I%<=47 THEN ?stereoptrs%(T%)=53
 1650   IF I%>=48 AND I%<=79 THEN ?stereoptrs%(T%)=54
 1660   IF I%>=80 THEN ?stereoptrs%(T%)=55
 1670   PROCseticon(26+T%,0,0)
 1680ENDIF
 1690IF T%+1>oldsound1% THEN j%=1<<22 ELSE j%=0
 1700!block%=window%:block%!4=T%+26
 1710SYS "Wimp_GetIconState",,block%
 1720t%=block%!24 AND (1<<22)
 1730IF j%<>t% THEN PROCseticon(34+T%*2,j%,1<<22):PROCseticon(35+T%*2,j%,1<<22):PROCseticon(26+T%,j%,1<<22)
 1740NEXT
 1750ENDPROC
 1760
 1770DEF PROCupdatestate
 1780PROCupdatevolume
 1790CALL readvoicenums
 1800CALL checkfordeadvoices:K%=!deadvoicesflag
 1810FOR T%=1 TO 8
 1820IF voices%(T%-1)<>voicenums!(T%*4-4) THEN K%=TRUE
 1830NEXT
 1840SYS "Sound_Speaker" TO speaker%
 1850IF speaker%=1 AND oldspeaker%<>speaker% THEN PROCsetselect(18,FALSE,FALSE)
 1860IF speaker%=2 AND oldspeaker%<>speaker% THEN PROCsetselect(18,TRUE,FALSE)
 1870oldspeaker%=speaker%
 1880SYS "Sound_Enable" TO audio%
 1890IF audio%=1 AND oldaudio%<>audio% THEN PROCsetselect(19,FALSE,FALSE)
 1900IF audio%=2 AND oldaudio%<>audio% THEN PROCsetselect(19,TRUE,FALSE)
 1910oldaudio%=audio%
 1920SYS "Sound_Configure" TO sound1%,,sound3%
 1930J%=0:FOR T%=0 TO 7:SYS "Sound_Stereo",T%+1,-128 TO,I%
 1940IF I%<>stereo%(T%) THEN J%=TRUE
 1950NEXT
 1960L%=(sound1%<>oldsound1%)
 1970IF sound1%=oldsound1% AND sound3%=oldsound3% AND J%=0 AND K%=0 THEN ENDPROC
 1980oldsound1%=sound1%
 1990oldsound3%=sound3%
 2000IFJ% OR L% THEN PROCupdatestereo
 2010IFK% THEN PROCupdatevoices
 2020CASE sound1% OF
 2030WHEN 1:PROCsetselect(9,TRUE,TRUE)
 2040WHEN 2:PROCsetselect(10,TRUE,TRUE)
 2050WHEN 3:PROCsetselect(11,TRUE,TRUE)
 2060WHEN 4:PROCsetselect(11,TRUE,TRUE)
 2070WHEN 5:PROCsetselect(12,TRUE,TRUE)
 2080WHEN 6:PROCsetselect(12,TRUE,TRUE)
 2090WHEN 7:PROCsetselect(12,TRUE,TRUE)
 2100WHEN 8:PROCsetselect(12,TRUE,TRUE)
 2110ENDCASE
 2120CASE sound3% OF
 2130WHEN 24:PROCsetselect(4,TRUE,TRUE)
 2140WHEN 34:PROCsetselect(7,TRUE,TRUE)
 2150WHEN 48:PROCsetselect(5,TRUE,TRUE)
 2160WHEN 96:PROCsetselect(6,TRUE,TRUE)
 2170OTHERWISE
 2180PROCsetother(sound3%)
 2190PROCsetselect(8,TRUE,TRUE)
 2200ENDCASE
 2210ENDPROC
 2220
 2230DEF PROCsetother(k%)
 2240!block%=window%:block%!4=3
 2250SYS "Wimp_GetIconState",,block%
 2260t%=block%!28
 2270$t%=STR$k%+"us"
 2280PROCseticon(3,0,0)
 2290ENDPROC
 2300
 2310DEF FNgetother
 2320!block%=window%:block%!4=3
 2330SYS "Wimp_GetIconState",,block%
 2340t%=block%!28
 2350=VAL(LEFT$($t%,LEN$t%-2))
 2360
 2370DEF PROCsetselect(i%,s%,f%)
 2380PROCseticon(i%,s% AND(1<<21),1<<21)
 2390IF i%=8 THEN PROCshadeother(FALSE)
 2400IF i%=4 OR i%=7 OR i%=5 OR i%=6 THEN PROCshadeother(TRUE)
 2410IF NOT f% THEN ENDPROC
 2420CASE i% OF
 2430WHEN 4,7,5,6,8
 2440   IF i%<>4 PROCseticon(4,0,1<<21)
 2450   IF i%<>7 PROCseticon(7,0,1<<21)
 2460   IF i%<>5 PROCseticon(5,0,1<<21)
 2470   IF i%<>6 PROCseticon(6,0,1<<21)
 2480   IF i%<>8 PROCseticon(8,0,1<<21)
 2490WHEN 9,10,11,12
 2500   IF i%<>9 PROCseticon(9,0,1<<21)
 2510   IF i%<>10 PROCseticon(10,0,1<<21)
 2520   IF i%<>11 PROCseticon(11,0,1<<21)
 2530   IF i%<>12 PROCseticon(12,0,1<<21)
 2540ENDCASE
 2550ENDPROC
 2560
 2570DEF PROCseticon(i%,e%,c%)
 2580!block%=window%:block%!4=i%
 2590block%!8=e%:block%!12=c%
 2600SYS "Wimp_SetIconState",,block%
 2610ENDPROC
 2620
 2630DEF FNgetselect(i%)
 2640!block%=window%:block%!4=i%
 2650SYS "Wimp_GetIconState",,block%
 2660t%=block%!24 AND (1<<21)
 2670=(t%<>0)
 2680
 2690DEF PROCshadeother(s%)
 2700IF s%=shaded% THEN ENDPROC
 2710PROCseticon(14,s% AND(1<<22),1<<22)
 2720PROCseticon(2,s% AND(1<<22),1<<22)
 2730PROCseticon(3,s% AND(1<<22),1<<22)
 2740shaded%=s%
 2750ENDPROC
 2760
 2770DEF PROCclick(p%)
 2780CASE p%!12 OF
 2790WHEN -2
 2800   IF p%!8=2 THEN
 2810      PROCiconbarmenu(!p%)
 2820   ELSE
 2830      !block%=window%
 2840      SYS "Wimp_GetWindowInfo",,block%
 2850      block%!28=-1
 2860      SYS "Wimp_OpenWindow",,block%
 2870      idle%=idle% OR 1
 2880      mask%=mask% AND (NOT 1)
 2890   ENDIF
 2900WHEN window%
 2910   IF p%!8=2 THEN
 2920      PROCmainmenu(!p%,p%!4)
 2930   ELSE
 2940      PROCchangestate(p%!16,p%!8)
 2950   ENDIF
 2960WHEN voicewin%
 2970   IF p%!8=2 THEN
 2980      PROCmainmenu(!p%,p%!4)
 2990   ELSE
 3000      IF p%!16>=10 AND p%!16<=17 THEN PROCchangevoice(p%!16-10,p%!8)
 3010      IF p%!16>=2 AND p%!16<=9 THEN PROCbeepvoice(p%!16-1,p%!8)
 3020   ENDIF
 3030WHEN trackerwin%
 3040   IF p%!8=2 THEN
 3050      PROCmainmenu(!p%,p%!4)
 3060   ELSE
 3070      PROChandletrackerwindow(p%!16)
 3080   ENDIF
 3090ENDCASE
 3100ENDPROC
 3110
 3120DEF PROCbeepvoice(ch%,b%)
 3130IF ch%>oldsound1% THEN ENDPROC
 3140IF b%<>1 AND b%<>4 THEN ENDPROC
 3150IF b%=4 THEN b%=100 ELSE b%=&2500
 3160SOUND ch%,-15,b%,10
 3170ENDPROC
 3180
 3190DEF PROCchangevoice(ch%,b%)
 3200IF b%<>1 AND b%<>4 THEN ENDPROC
 3210IF b%=1 THEN t%=-1 ELSE t%=1
 3220a%=voices%(ch%)+t%:WHILE FNvoicebad(a%)
 3230a%+=t%:IF a%<0 THEN a%=32
 3240IF a%>32 THEN a%=0
 3250ENDWHILE
 3260voicenums!(ch%*4)=a%
 3270SYS "Sound_AttachVoice",ch%+1,a%
 3280PROCupdatevoices
 3290ENDPROC
 3300
 3310DEF FNvoicebad(a%)
 3320IF a%=0 THEN =FALSE
 3330SYS "XSound_InstallVoice",0,a% TO J%,K%
 3340IF J%=0 THEN =TRUE
 3350=FALSE
 3360
 3370DEF PROCchangestate(i%,b%)
 3380CASE i% OF
 3390WHEN 4,7,5,6:PROCsetselect(i%,TRUE,FALSE)
 3400WHEN 8:PROCsetselect(i%,TRUE,FALSE)
 3410WHEN 9,10,11,12:PROCsetselect(i%,TRUE,FALSE)
 3420ENDCASE
 3430CASE i% OF
 3440WHEN 4:SYS "Sound_Configure",,,24:oldsound3%=24
 3450WHEN 7:SYS "Sound_Configure",,,34:oldsound3%=34
 3460WHEN 5:SYS "Sound_Configure",,,48:oldsound3%=48
 3470WHEN 6:SYS "Sound_Configure",,,96:oldsound3%=96
 3480WHEN 8:oldsound3%=FNgetother:SYS "Sound_Configure",,,oldsound3%
 3490WHEN 9:SYS "Sound_Configure",1:oldsound1%=1:PROCupdatestereo
 3500WHEN 10:SYS "Sound_Configure",2:oldsound1%=2:PROCupdatestereo
 3510WHEN 11:SYS "Sound_Configure",4:oldsound1%=4:PROCupdatestereo
 3520WHEN 12:SYS "Sound_Configure",8:oldsound1%=8:PROCupdatestereo
 3530WHEN 18:IF FNgetselect(18) THEN SYS "Sound_Speaker",2:oldspeaker%=2 ELSE SYS "Sound_Speaker",1:oldspeaker%=1
 3540WHEN 19:IF FNgetselect(19) THEN SYS "Sound_Enable",2:oldaudio%=2 ELSE SYS "Sound_Enable",1:oldaudio%=1
 3550WHEN 22:!block%=voicewin%:SYS "Wimp_GetWindowInfo",,block%
 3560   block%!28=-1:SYS "Wimp_OpenWindow",,block%
 3570   mask%=mask% AND (NOT1):idle%=idle% OR 4
 3580   IF b%=1 THEN
 3590      !block%=window%:SYS "Wimp_CloseWindow",,block%
 3600      idle%=idle% AND (NOT1)
 3610   ENDIF
 3620WHEN 23:!block%=trackerwin%:SYS "Wimp_GetWindowInfo",,block%
 3630   block%!28=-1:SYS "Wimp_OpenWindow",,block%
 3640   mask%=mask% AND (NOT1):idle%=idle% OR 2
 3650   IF b%=1 THEN
 3660      !block%=window%:SYS "Wimp_CloseWindow",,block%
 3670      idle%=idle% AND (NOT1)
 3680   ENDIF
 3690WHEN 14:PROCotherdown
 3700WHEN 2:PROCotherup
 3710WHEN 34,36,38,40,42,44,46,48
 3720   t%=(i%-34)/2
 3730   CASE ?stereoptrs%(t%) OF
 3740      WHEN 50:STEREO t%+1,-127:PROCupdatestereo
 3750      WHEN 51:STEREO t%+1,-79:PROCupdatestereo
 3760      WHEN 52:STEREO t%+1,-47:PROCupdatestereo
 3770      WHEN 53:STEREO t%+1,0:PROCupdatestereo
 3780      WHEN 54:STEREO t%+1,47:PROCupdatestereo
 3790      WHEN 55:STEREO t%+1,79:PROCupdatestereo
 3800   ENDCASE
 3810WHEN 35,37,39,41,43,45,47,49
 3820   t%=(i%-35)/2
 3830   CASE ?stereoptrs%(t%) OF
 3840      WHEN 49:STEREO t%+1,-79:PROCupdatestereo
 3850      WHEN 50:STEREO t%+1,-47:PROCupdatestereo
 3860      WHEN 51:STEREO t%+1,0:PROCupdatestereo
 3870      WHEN 52:STEREO t%+1,47:PROCupdatestereo
 3880      WHEN 53:STEREO t%+1,79:PROCupdatestereo
 3890      WHEN 54:STEREO t%+1,127:PROCupdatestereo
 3900   ENDCASE
 3910WHEN 63
 3920   a%=pollblock%!4
 3930   !block%=window%
 3940   SYS "Wimp_GetWindowState",,block%
 3950   x%=block%!4-block%!20:y%=block%!16-block%!24:REM visible co. of top left of work area
 3960   dragmin%=y%+volminy%
 3970   block%!4=7
 3980   block%!24=x%+volminx%
 3990   block%!28=y%+volminy%
 4000   block%!32=x%+volmaxx%
 4010   block%!36=y%+volmaxy%-4
 4020   IF drag%=FALSE THEN SYS "Wimp_DragBox",,block%:drag%=TRUE
 4030   PROCsetvolume(a%-dragmin%)
 4040ENDCASE
 4050ENDPROC
 4060
 4070DEF PROCotherdown
 4080t%=FNgetother
 4090IF t%>4 THEN t%-=1 ELSE ENDPROC
 4100j%=256/oldsound1%-1
 4110IF t%+1>j% THEN t%=j%
 4120oldsound3%=t%
 4130SYS "Sound_Configure",,,t%
 4140PROCsetother(t%)
 4150ENDPROC
 4160
 4170DEF PROCotherup
 4180t%=FNgetother
 4190j%=256/oldsound1%-1
 4200IF t%<j% THEN t%+=1 ELSE IF t%=j% THEN ENDPROC
 4210IF t%>j% THEN t%=j%
 4220oldsound3%=t%
 4230SYS "Sound_Configure",,,t%
 4240PROCsetother(t%)
 4250ENDPROC
 4260
 4270DEF FNbuildmenu
 4280READ $ptr%:count%=0
 4290ptr%!12=&00070207
 4300ptr%!20=44
 4310ptr%!24=0
 4320o%=ptr%+28
 4330w%=LEN$ptr%
 4340REPEAT
 4350READ a$
 4360IF a$<>"" THEN
 4370   !o%=0
 4380   o%!4=-1
 4390   o%!8=&07000021
 4400   IF LEFT$(a$,1)="$" THEN
 4410      !o%=!o%+4
 4420      o%!8=o%!8 OR &100
 4430      $(type%+5)="A0-9"
 4440      o%!12=type%
 4450      o%!16=type%+5
 4460      o%!20=3
 4470      IF w%<2 THEN w%=2
 4480      $type%=STR$FNgetother
 4490   ENDIF
 4500   IF INSTR(a$,"->")>0 THEN
 4510      o%!4=EVAL(MID$(a$,INSTR(a$,"->")+2))
 4520      a$=LEFT$(a$,INSTR(a$,"->")-1)
 4530   ENDIF
 4540   IF INSTR(a$,"@")>0 THEN
 4550      b$=MID$(a$,INSTR(a$,"@")+1)
 4560      a$=LEFT$(a$,INSTR(a$,"@")-1)
 4570      IF EVAL(b$)<>0 THEN !o%=!o% OR 1
 4580   ENDIF
 4590   IF a$<>"$" THEN $(o%+12)=a$:IF LENa$>w% THEN w%=LENa$
 4600   o%+=24
 4610   count%+=1
 4620ENDIF
 4630UNTIL a$=""
 4640i%=o%-24:!i%=!i% OR 128
 4650ptr%!16=w%*16+16
 4660SWAP ptr%,o%
 4670=o%
 4680
 4690DEF PROCmenuselect(p%)
 4700SYS "Wimp_GetPointerInfo",,block%
 4710button%=block%!8
 4720CASE !p% OF
 4730   WHEN 1
 4740      CASE p%!4 OF
 4750         WHEN 0:SYS "Sound_Configure",,,24
 4760         WHEN 1:SYS "Sound_Configure",,,34
 4770         WHEN 2:SYS "Sound_Configure",,,48
 4780         WHEN 3:SYS "Sound_Configure",,,96
 4790         WHEN 4
 4800            t%=VAL($type%)
 4810            IF t%<4 THEN t%=4
 4820            j%=256/oldsound1%-1
 4830            IF t%>j% THEN t%=j%
 4840            SYS "Sound_Configure",,,t%
 4850      ENDCASE
 4860   WHEN 2
 4870      CASE p%!4 OF
 4880         WHEN 0:SYS "Sound_Configure",1
 4890         WHEN 1:SYS "Sound_Configure",2
 4900         WHEN 2:SYS "Sound_Configure",4
 4910         WHEN 3:SYS "Sound_Configure",8
 4920      ENDCASE
 4930   WHEN 3
 4940      CASE p%!4 OF
 4950         WHEN 0:PROCresettracker
 4960         WHEN 1:PROCresetsound
 4970      ENDCASE
 4980   WHEN 4:SYS "Sound_Speaker",oldspeaker% EOR 3
 4990   WHEN 5:SYS "Sound_Enable",oldaudio% EOR 3
 5000   WHEN 6:quit%=TRUE
 5010ENDCASE
 5020IF (button% AND 1)<>0 THEN PROCiconbarmenu(0) ELSE PROCupdatestate
 5030ENDPROC
 5040
 5050DEF PROCiconbarmenu(x%)
 5060PROCmakemenu
 5070SYS "Wimp_CreateMenu",,mainmenu%,x%-64,96+44*count%
 5080ENDPROC
 5090
 5100DEF PROCmainmenu(x%,y%)
 5110PROCmakemenu
 5120SYS "Wimp_CreateMenu",,mainmenu%,x%-64,y%+16
 5130ENDPROC
 5140
 5150DEF PROCmakemenu
 5160PROCupdatestate
 5170RESTORE +0
 5180ptr%=menu%
 5190resetmenu%=FNbuildmenu
 5200dmamenu%=FNbuildmenu
 5210chanmenu%=FNbuildmenu
 5220mainmenu%=FNbuildmenu
 5230ENDPROC
 5240
 5250DATA Reset,Tracker,Sound,""
 5260DATA DMA rate,24us@sound3%=24,34us@sound3%=34,48us@sound3%=48,96us@sound3%=96,$@(sound3%<>24 ANDsound3%<>34 ANDsound3%<>48 AND sound3%<>96),""
 5270DATA Chans,1@sound1%=1,2@sound1%=2,4@sound1%=4,8@sound1%=8,""
 5280DATA SoundCtrl,Info->infowin%,DMA rate->dmamenu%,Channels->chanmenu%,Reset->resetmenu%,Speaker@oldspeaker%=2,Audio@oldaudio%=2,Quit,""
 5290
 5300DEF PROCassem
 5310FOR PASS=0 TO 2 STEP 2
 5320P%=code%:[OPT PASS
 5330.readvoicenums
 5340ADR R5,voicenums
 5350MOV R0,#1
 5360.readnums
 5370\ read flags
 5380MOV R1,#0
 5390SWI "XOS_IntOff"
 5400BVS exit
 5410SWI "XSound_ReadControlBlock"
 5420BVS exit
 5430MOV R6,R2
 5440
 5450\ read voice numbers
 5460SWI "XOS_IntOff"
 5470BVS exit
 5480SWI "XSound_AttachVoice"
 5490STR R1,[R5],#4
 5500SWI "XOS_IntOff"
 5510SWI "XSound_AttachVoice"
 5520
 5530\ restore flags
 5540MOV R2,R6
 5550MOV R1,#0
 5560SWI "XSound_WriteControlBlock"
 5570BVS exit
 5580SWI "OS_IntOn"
 5590ADD R0,R0,#1
 5600CMP R0,#9
 5610BNE readnums
 5620.exit
 5630SWI "OS_IntOn"
 5640MOVS PC,R14
 5650
 5660.voicenums
 5670EQUD 0:EQUD 0:EQUD 0:EQUD 0
 5680EQUD 0:EQUD 0:EQUD 0:EQUD 0
 5690
 5700.deadvoicesflag EQUD 0
 5710
 5720.checkfordeadvoices
 5730MOV R0,#0
 5740STR R0,deadvoicesflag
 5750MOV R6,#8
 5760ADR R5,voicenums
 5770.checkloop
 5780LDR R1,[R5],#4
 5790CMP R1,#0
 5800BLE nextchannel
 5810MOV R0,#0
 5820SWI "Sound_InstallVoice"
 5830CMP R0,#0
 5840BGT nextchannel
 5850MVN R0,#0
 5860STR R0,deadvoicesflag
 5870RSB R0,R6,#9
 5880MOV R1,#0
 5890SWI "Sound_AttachVoice"
 5900.nextchannel
 5910SUBS R6,R6,#1
 5920BNE checkloop
 5930MOVS PC,R14
 5940
 5950.version EQUD 0
 5960.moduleadd EQUD 0
 5970.playkill EQUS "PLAYKILL"
 5980.playstop EQUS "STOP"
 5990.trackername EQUS "TrackerModule":EQUB 13:ALIGN
 6000.mask1 EQUD &00FFFFC0
 6010.mask2 EQUD &03FFFFFC
 6020.mask3 EQUD &DFDFDFDF
 6030.modulepresent
 6040MOV R0,#18
 6050ADR R1,trackername
 6060MOV R3,#0
 6070SWI "XOS_Module"
 6080STR R3,moduleadd
 6090MOVS PC,R14
 6100
 6110.readversion
 6120\r0 = 0 if full info wanted
 6130STMFD R13!,{R0,R14}
 6140BL modulepresent
 6150TEQ R3,#0
 6160STREQ R3,version
 6170LDMEQFD R13!,{R0,PC}
 6180LDR R0,[R3,#&1C]
 6190LDR R1,mask1
 6200AND R1,R0,R1
 6210TEQ R0,R1
 6220BNE notverynew
 6230TEQ R0,#0
 6240BEQ notverynew
 6250LDR R0,[R3,#&20]
 6260LDR R1,mask2
 6270AND R1,R0,R1
 6280TEQ R0,R1
 6290BNE notverynew
 6300TEQ R0,#0
 6310BEQ notverynew
 6320SWI &43200:\ Tracker_Version
 6330STR R0,version
 6340LDMFD R13!,{R0,PC}
 6350.notverynew
 6360LDR R0,[R3,#&14]
 6370TEQ R0,#0
 6380BEQ commandtable
 6390ADD R7,R3,R0
 6400.findhelp
 6410MOV R8,#16
 6420.findhelploop
 6430LDRB R0,[R7],#1
 6440TEQ R0,#0
 6450BEQ commandtable
 6460TEQ R0,#9
 6470SUBNE R8,R8,#1
 6480BNE nottab
 6490ANDS R1,R8,#7
 6500SUBNE R8,R8,R1
 6510SUBEQ R8,R8,#8
 6520.nottab
 6530CMP R8,#0
 6540BGT findhelploop
 6550LDRB R1,[R7]
 6560LDRB R2,[R7,#1]
 6570LDRB R4,[R7,#2]
 6580LDRB R5,[R7,#3]
 6590TEQ R2,#ASC"."
 6600BNE commandtable
 6610MOV R0,#0
 6620BL gethelptext
 6630MOV R1,R4
 6640BL gethelptext
 6650MOV R1,R5
 6660BL gethelptext
 6670STR R0,version
 6680LDMFD R13!,{R0,PC}
 6690.gethelptext
 6700SUBS R1,R1,#ASC"0"
 6710BLT commandtable
 6720CMP R1,#9
 6730BGT commandtable
 6740ADD R0,R0,R0,LSL #2
 6750MOV R0,R0,LSL #1
 6760ADD R0,R0,R1
 6770MOV PC,R14
 6780
 6790.commandtable
 6800LDMFD R13!,{R0,R14}
 6810TEQ R0,#0
 6820MOVNE PC,R14
 6830LDR R0,[R3,#&18]
 6840TEQ R0,#0
 6850STREQ R0,version
 6860MOVEQ PC,R14
 6870LDR R10,playkill
 6880LDR R6,playkill+4
 6890LDR R7,playstop
 6900LDR R8,mask3
 6910ADD R3,R3,R0
 6920.versionloop1
 6930LDRB R0,[R3]
 6940TEQ R0,#0
 6950STREQ R0,version
 6960MOVEQ PC,R14
 6970LDMIA R3,{R0,R1}
 6980AND R0,R0,R8
 6990AND R1,R1,R8
 7000TEQ R0,R10
 7010BNE notkeyword
 7020TEQ R1,R6
 7030TEQNE R1,R7
 7040BNE notkeyword
 7050TEQ R1,R6
 7060MOVEQ R0,#200
 7070MOVNE R0,#100
 7080STR R0,version
 7090MOV PC,R14
 7100.notkeyword
 7110LDRB R0,[R3],#1
 7120TEQ R0,#0
 7130BNE notkeyword
 7140ADD R3,R3,#3
 7150BIC R3,R3,#3
 7160ADD R3,R3,#16
 7170B versionloop1
 7180
 7190.volheight EQUD volheight%
 7200.volbase EQUD volbase%
 7210.volwidth EQUD volwidth%
 7220
 7230.setvolume
 7240MOV R4,#&AA
 7250MOV R3,#&A7
 7260LDR R5,volbase
 7270LDR R6,volwidth
 7280LDR R7,volheight
 7290.setvolloop
 7300TEQ R0,#0
 7310MOVEQ R4,#&DD
 7320MOVEQ R3,#&D7
 7330SUB R0,R0,#1
 7340STRB R3,[R5,#0]
 7350STRB R4,[R5,#1]
 7360STRB R4,[R5,#2]
 7370SUB R5,R5,R6
 7380SUBS R7,R7,#1
 7390BNE setvolloop
 7400MOVS PC,R14
 7410]NEXT
 7420ENDPROC
 7430
 7440DEF PROChandletrackerwindow(i%)
 7450CASE i% OF
 7460WHEN 1:REM rewind
 7470   PROCcheckversion
 7480   IF version%>=400 THEN
 7490      SYS "Tracker_TuneInfo" TO a%,,d%
 7500      IF a%>0 THEN
 7510         SYS "Tracker_ReadPos" TO a%,b%,c%
 7520         IF d%=0 d%=1
 7530         IF b%<50/d% THEN a%-=1
 7540         IF a%<0 THEN a%=c%
 7550         SYS "Tracker_SetPos",a%,0
 7560         SYS "Tracker_ReadPos" TO a%,,c%
 7570         $patternptr%=STR$a%+"/"+STR$c%
 7580         PROCdrawicon(trackerwin%,11)
 7590      ENDIF
 7600   ENDIF
 7610WHEN 2:REM stop
 7620   PROCcheckversion
 7630   IF version%>=400 THEN SYS "Tracker_Stop"
 7640   IF version%>=002 AND version%<200 THEN *PlayStop
 7650   IF version%>=200 AND version%<300 THEN *PlayKill
 7660   IF version%>=300 AND version%<400 THEN *PlayStop
 7670   IF $pauseptr%="pauseon" THEN $pauseptr%="pausexx":PROCdrawicon(trackerwin%,4)
 7680WHEN 3:REM fast forward
 7690   PROCcheckversion
 7700   IF version%>=400 THEN
 7710      SYS "Tracker_TuneInfo" TO a%
 7720      IF a%>0 THEN
 7730         SYS "Tracker_ReadPos" TO a%,b%,c%
 7740         IF a%=c% THEN a%=0 ELSE a%+=1
 7750         SYS "Tracker_SetPos",a%,0
 7760         SYS "Tracker_ReadPos" TO a%,,c%
 7770         $patternptr%=STR$a%+"/"+STR$c%
 7780         PROCdrawicon(trackerwin%,11)
 7790      ENDIF
 7800   ENDIF
 7810WHEN 4:REM pause
 7820   PROCcheckversion
 7830   IF version%>=200 THEN
 7840      IF version%>=400 THEN
 7850      SYS "Tracker_TuneInfo" TO;a%:IF (a% AND2)=0 THEN $pauseptr%="pausexx" ELSE $pauseptr%="pauseon"
 7860      ENDIF
 7870      IF $pauseptr%="pauseon" THEN $pauseptr%="pausexx" ELSE $pauseptr%="pauseon"
 7880      PROCdrawicon(trackerwin%,4)
 7890      IF version%>=400 AND $pauseptr%="pauseon" THEN SYS "Tracker_Pause"
 7900      IF version%>=400 AND $pauseptr%="pausexx" THEN SYS "Tracker_Play"
 7910      IF version%>=200 AND version%<400 AND $pauseptr%="pauseon" THEN *PlayPause
 7920      IF version%>=200 AND version%<400 AND $pauseptr%="pausexx" THEN *PlayStart
 7930   ENDIF
 7940WHEN 12:PROCresettracker
 7950WHEN 13:PROCresetsound
 7960WHEN 14
 7970   IF $pauseptr%="pauseon" THEN $pauseptr%="pausexx":PROCdrawicon(trackerwin%,4)
 7980   CALL modulepresent
 7990   IF !moduleadd THEN SYS "OS_Module",4,"TrackerModule"
 8000   PROCcheckversion
 8010ENDCASE
 8020ENDPROC
 8030
 8040DEF PROCdrawicon(!block%,block%!4)
 8050block%!8=0:block%!12=0
 8060SYS "Wimp_SetIconState",,block%
 8070ENDPROC
 8080
 8090DEF PROCcheckversion
 8100A%=0:CALL readversion
 8110IF !version=version% THEN PROCupdatetrackerstate:ENDPROC
 8120version%=!version
 8130IF version%=0 THEN
 8140$versionptr%="-"
 8150ELSE
 8160a%=&FF020200:SWAP @%,a%:$versionptr%=STR$(version%/100):SWAP @%,a%
 8170ENDIF
 8180PROCdrawicon(trackerwin%,9)
 8190PROCupdatetrackerstate
 8200ENDPROC
 8210
 8220DEF PROCupdatetrackerstate
 8230a$="-"
 8240IF version%>=400 THEN
 8250   SYS "Tracker_TuneInfo" TO a%
 8260   IF a%>0 THEN
 8270      SYS "Tracker_ReadPos" TO a%,b%,c%
 8280      a$=STR$a%+"/"+STR$c%
 8290   ENDIF
 8300ENDIF
 8310IF a$<>$patternptr% THEN
 8320   $patternptr%=a$
 8330   PROCdrawicon(trackerwin%,11)
 8340ENDIF
 8350IF version%>=400 THEN
 8360   SYS "Tracker_TuneInfo" TO a%;b%
 8370   IF a%=0 THEN
 8380      a$="Waiting"
 8390   ELSE
 8400      IF (b% AND2) THEN a$="Paused" ELSE a$="Playing"
 8410      IF (b% AND2) THEN b$="pauseon" ELSE b$="pausexx"
 8420      IF b$<>$pauseptr% THEN $pauseptr%=b$:PROCdrawicon(trackerwin%,4)
 8430   ENDIF
 8440ELSE
 8450   IF $pauseptr%="pausexx" THEN a$="Present" ELSE a$="Paused"
 8460   IF version%=0 a$="Not loaded"
 8470ENDIF
 8480IF a$<>$statusptr% THEN
 8490$statusptr%=a$
 8500PROCdrawicon(trackerwin%,8)
 8510ENDIF
 8520ENDPROC
 8530
 8540DEF PROCresettracker
 8550PROCcheckversion
 8560IF version%=0 THEN ENDPROC
 8570IF version%>=002 AND version%<200 THEN PROCsetselect(11,TRUE,TRUE):oldsound1%=4
 8580IF version%>=400 THEN
 8590SYS "XTracker_TuneInfo" TO ,b%;e%
 8600IF (e% AND1)=0 THEN
 8610CASE b% OF
 8620WHEN 1:PROCsetselect(9,TRUE,TRUE):oldsound1%=1
 8630WHEN 2:PROCsetselect(10,TRUE,TRUE):oldsound1%=2
 8640WHEN 4,3:PROCsetselect(11,TRUE,TRUE):oldsound1%=4
 8650WHEN 8,7,6,5:PROCsetselect(12,TRUE,TRUE):oldsound1%=8
 8660ENDCASE
 8670ENDIF
 8680ENDIF
 8690IF version%<405 THEN
 8700IF oldsound1%<=4 THEN oldsound3%=34:PROCsetselect(7,TRUE,TRUE) ELSE oldsound3%=31:PROCsetother(31):PROCsetselect(8,TRUE,TRUE)
 8710ENDIF
 8720SYS "Sound_Configure",oldsound1%,,oldsound3%
 8730PROCsetselect(19,TRUE,FALSE)
 8740oldaudio%=2:SYS "Sound_Enable",oldaudio%
 8750IF version%<405 THEN
 8760FOR t%=1 TO oldsound1%
 8770SYS "XSound_AttachNamedVoice",t%,"Tracker"+CHR$0 TO ;f%
 8780IF (f% AND1)<>0 THEN SYS "XSound_AttachNamedVoice",t%,"TrackerVox"+CHR$0 TO ;f%
 8790IF (f% AND1)<>0 THEN SYS "XSound_AttachNamedVoice",t%,"TrackerVoice"+CHR$0 TO ;f%
 8800IF (f% AND1)=0 THEN SOUND t%,-15,0,1
 8810NEXT
 8820ENDIF
 8830IF version%<405 THEN
 8840   IF version%>=002 AND version%<200 THEN J%=16 ELSE J%=-16
 8850   FOR T%=1 TO 8:IF (T% AND1)=0 THEN J%=-J%
 8860   STEREO T%,J%:NEXT:PROCupdatestereo
 8870ELSE
 8880   SYS "Tracker_Stereo",-1 TO,a%
 8890   FOR T%=0 TO oldsound1%-1
 8900   b%=a%?T%:IF b%<1 b%=1 ELSE IFb%>7 b%=7
 8910   STEREO T%+1,stereomap%(b%)
 8920   NEXT
 8930   PROCupdatestereo
 8940ENDIF
 8950ENDPROC
 8960
 8970DEF PROCresetsound
 8980SYS "OS_Byte",161,148 TO ,,cmos%
 8990c%=(cmos% AND 15)+1
 9000s%=cmos% AND 128
 9010v%=(cmos%>>4) AND 7
 9020v%=v%*16+v%*2+1
 9030SYS "Sound_Volume",v%
 9040SYS "Sound_AttachVoice",1,c%
 9050PROCsetselect(18,s%=128,FALSE)
 9060oldspeaker%=2+(s%<>128)
 9070SYS "Sound_Speaker",oldspeaker%
 9080PROCsetselect(19,TRUE,FALSE)
 9090oldaudio%=2:SYS "Sound_Enable",oldaudio%
 9100oldsound1%=1
 9110PROCsetselect(9,TRUE,TRUE)
 9120oldsound3%=48
 9130PROCsetselect(5,TRUE,TRUE)
 9140SYS "Sound_Configure",oldsound1%,,oldsound3%
 9150STEREO 1,0:PROCupdatestereo
 9160ENDPROC
 9170
 9180DEF PROCupdatevolume
 9190SYS "Sound_Volume" TO a%
 9200IF version%>=406 THEN SYS "Tracker_TuneInfo" TO b%:IF b%<>0 THEN SYS "Tracker_Volume",-1 TO a%
 9210IF a%<1 a%=1 ELSE IF a%>127 a%=127
 9220IF a%=volume% THEN ENDPROC
 9230volume%=a%
 9240A%=volume%/(128/33)
 9250CALL setvolume
 9260PROCdrawicon(window%,60)
 9270ENDPROC
 9280
 9290DEF PROCsprites
 9300X%=OPENIN"<SoundCtrl$Dir>.SpriteFile":l%=EXT#X%:CLOSE#X%
 9310DIM sprites% l%+4
 9320!sprites%=l%+4:OSCLI("LOAD <SoundCtrl$Dir>.SpriteFile "+STR$~(sprites%+4))
 9330SYS "OS_SpriteOp",256+54,sprites%,"volume"
 9340SYS "OS_SpriteOp",256+24,sprites%,"volume" TO ,,voladd%
 9350volwidth%=(voladd%!16+1)*4
 9360volheight%=voladd%!20-1
 9370volbase%=voladd%+voladd%!32+volheight%*volwidth%+9/2
 9380ENDPROC
 9390
 9400DEF PROCsetvolume(A%)
 9410A%=A%/4:CALL setvolume
 9420a%=A%*(128/33)
 9430IF a%<1 a%=1 ELSE IF a%>=124 a%=127
 9440IF volume%=a% THEN ENDPROC
 9450volume%=a%
 9460PROCdrawicon(window%,60)
 9470IF version%>=406 THEN
 9480   SYS "Tracker_TuneInfo" TO a%
 9490   IF a%<>0 THEN
 9500      SYS "Tracker_Volume",volume%
 9510   ELSE
 9520      SYS "Sound_Volume",volume%
 9530   ENDIF
 9540ELSE
 9550   SYS "Sound_Volume",volume%
 9560ENDIF
 9570ENDPROC

!� > <SoundCtrl$Dir>.!RunImage

8ș "OS_SWINumberFromString",,"Wimp_Poll" � wimppoll%
(@ș "OS_SWINumberFromString",,"Wimp_PollIdle" � wimppollidle%
2?ș "Wimp_Initialise",200,&4B534154,"Sound Control" � ,task%
<
F@� block% &1000,pollblock% 512,menu% 1024,idir% 1024,type% 10
P/� stereoptrs%(7),stereo%(7):stereo%()=-1024
Z5� voiceptrs%(7),voices%(7),code% 768:voices%()=-1
d� stereomap%(7)
n(stereomap%(1)=-127:stereomap%(7)=127
x&stereomap%(2)=-79:stereomap%(6)=79
�&stereomap%(3)=-47:stereomap%(5)=47
�stereomap%(4)=0
��sprites
�
�assem
�iptr%=idir%
��templates
�	�icon
�oldsound1%=-1:oldsound3%=-1
�oldspeaker%=-1:oldaudio%=-1
�
shaded%=�
�quit%=�
�mask%=&1831
�idle%=0
version%=-1
volume%=-1
drag%=�
"�checkversion
,� � �error
6%ș "OS_ReadMonotonicTime" � time%
@�updatestate
J�checkversion
T�
^=a%=time%+100:� (idle% �2)<>0 � (idle% �5)=0 � a%=time%+20
h1� (idle% �2)<>0 � (idle% �5)<>0 � a%=time%+30
rV� drag% � a%=time%-1:m%=mask% � &FFFFFFFE:p%=wimppoll% � m%=mask%:p%=wimppollidle%
|ș p%,m%,pollblock%,a% � r%
�Ȏ r% �
�� 0
�   � drag% �
�*      ș "Wimp_GetPointerInfo",,block%
�'      �setvolume(block%!4-dragmin%)
�   �
�      � (idle% �2) �
�,         !version=1:A%=255:� readversion
�D         � !version<>version% �checkversion ��updatetrackerstate
�      �
�      � (idle% �5) �
�U         � (idle% �2)=0 � A%=0:� readversion:� !version<>version% � �checkversion
�         �updatestate
      �
   �
(   ș "OS_ReadMonotonicTime" � time%
&� 2
0B   � !pollblock%=window% � mask%=mask% � (� 1):idle%=idle% � 1
:E   � !pollblock%=trackerwin% � mask%=mask% � (� 1):idle%=idle% �2
DD   � !pollblock%=voicewin% � mask%=mask% � (� 1):idle%=idle% � 4
N'   ș "Wimp_OpenWindow",,pollblock%
X� 3
b0   � !pollblock%=window% � idle%=idle% �(�1)
l4   � !pollblock%=trackerwin% � idle%=idle% �(�2)
v2   � !pollblock%=voicewin% � idle%=idle% �(�4)
�"   � idle%=0 � mask%=mask% � 1
�(   ș "Wimp_CloseWindow",,pollblock%
�� 6:�click(pollblock%)
�1� 7:drag%=�:�setvolume(pollblock%!4-dragmin%)
�� 9:�menuselect(pollblock%)
� � 17,18:�message(pollblock%)
��
�� quit%
�ș "Wimp_CloseDown"
��
�
�� �error
�"ș "XWimp_DragBox",,-1:drag%=�
ș "XWimp_CreateMenu",,-1
ș "XHourglass_Smash"
!block%=�:$(block%+4)=�$+�0
 2ș "Wimp_ReportError",block%,1,"Sound Control"
*�checkversion
4�
>
H� �icon
R!block%=-1
\block%!4=0:block%!8=0
fblock%!12=72:block%!16=68
pblock%!20=&3102
z$iptr%="!soundctrl"
�block%!24=iptr%
�block%!28=1
�block%!32=�$iptr%
�iptr%+=�$iptr%+1
�,ș "Wimp_CreateIcon",,block% � taskicon%
��
�
�� �templates
�7ș "Wimp_OpenTemplate",,"<SoundCtrl$Dir>.Templates"
�$window%=�loadtemplate("control")
�%infowin%=�loadtemplate("infowin")
�%voicewin%=�loadtemplate("voices")
�(trackerwin%=�loadtemplate("tracker")
ș "Wimp_CloseTemplate"
�

$� �loadtemplate(a$)
.Mș "Wimp_LoadTemplate",,block%,iptr%,idir%+1024,-1,a$+�12,�0),0 � ,,iptr%
8Ȏ a$ �
B� "control"
L   � T%=26 � 33
V   I%=block%+88+T%*32
`   I%!24=sprites%:I%!28=5
j!   stereoptrs%(T%-26)=I%!20+4
t   �
~$   block%!(88+32*60+24)=sprites%
�#   volminx%=block%!(88+32*63+0)
�#   volminy%=block%!(88+32*63+4)
�#   volmaxx%=block%!(88+32*63+8)
�$   volmaxy%=block%!(88+32*63+12)
�� "voices"
�   � T%=10 � 17
�   I%=block%+88+T%*32
�   voiceptrs%(T%-10)=I%!20
�   �
�� "tracker"
�   block%!64=sprites%
�#   block%!(88+32*4+24)=sprites%
$   pauseptr%=block%!(88+32*4+20)

&   versionptr%=block%!(88+32*9+20)
%   statusptr%=block%!(88+32*8+20)
'   patternptr%=block%!(88+32*11+20)
(�
2+ș "Wimp_CreateWindow",,block% �handle%
<=handle%
F
P� �updatevoices
Z� T%=1 � 8
d)� voices%(T%-1)<>voicenums!(T%*4-4) �
n'   voices%(T%-1)=voicenums!(T%*4-4)
x3   ș "Sound_InstallVoice",0,voices%(T%-1) � t%
�   $voiceptrs%(T%-1)=""
�_   � t%<>0 � a%=t%:ȕ ?a%<>0 � ?a%<>13 � ?a%<>10 � a%<t%+25:$voiceptrs%(T%-1)+=�?a%:a%+=1:�
�&   !block%=voicewin%:block%!4=T%+9
�   block%!8=0:block%!12=0
�%   ș "Wimp_SetIconState",,block%
��
��
��
�
�� �message(p%)
�Ȏ p%!16 �
�   � 0:quit%=�
��
�

� �updatestereo
"/� T%=0 � 7:ș "Sound_Stereo",T%+1,-128 �,I%
,� I%<>stereo%(T%) �
6   stereo%(T%)=I%
@&   � I%<=-80 � ?stereoptrs%(T%)=49
J0   � I%>=-79 � I%<=-48 � ?stereoptrs%(T%)=50
T0   � I%>=-47 � I%<=-16 � ?stereoptrs%(T%)=51
^/   � I%>=-15 � I%<=15 � ?stereoptrs%(T%)=52
h.   � I%>=16 � I%<=47 � ?stereoptrs%(T%)=53
r.   � I%>=48 � I%<=79 � ?stereoptrs%(T%)=54
|%   � I%>=80 � ?stereoptrs%(T%)=55
�   �seticon(26+T%,0,0)
��
�'� T%+1>oldsound1% � j%=1<<22 � j%=0
�"!block%=window%:block%!4=T%+26
�"ș "Wimp_GetIconState",,block%
�t%=block%!24 � (1<<22)
�]� j%<>t% � �seticon(34+T%*2,j%,1<<22):�seticon(35+T%*2,j%,1<<22):�seticon(26+T%,j%,1<<22)
��
��
�
�� �updatestate
��updatevolume
�� readvoicenums
+� checkfordeadvoices:K%=!deadvoicesflag
� T%=1 � 8
.� voices%(T%-1)<>voicenums!(T%*4-4) � K%=�
&�
0!ș "Sound_Speaker" � speaker%
:=� speaker%=1 � oldspeaker%<>speaker% � �setselect(18,�,�)
D=� speaker%=2 � oldspeaker%<>speaker% � �setselect(18,�,�)
Noldspeaker%=speaker%
Xș "Sound_Enable" � audio%
b7� audio%=1 � oldaudio%<>audio% � �setselect(19,�,�)
l7� audio%=2 � oldaudio%<>audio% � �setselect(19,�,�)
voldaudio%=audio%
�+ș "Sound_Configure" � sound1%,,sound3%
�4J%=0:� T%=0 � 7:ș "Sound_Stereo",T%+1,-128 �,I%
�� I%<>stereo%(T%) � J%=�
��
�L%=(sound1%<>oldsound1%)
�?� sound1%=oldsound1% � sound3%=oldsound3% � J%=0 � K%=0 � �
�oldsound1%=sound1%
�oldsound3%=sound3%
��J% � L% � �updatestereo
��K% � �updatevoices
�Ȏ sound1% �
�� 1:�setselect(9,�,�)
�� 2:�setselect(10,�,�)
� 3:�setselect(11,�,�)
� 4:�setselect(11,�,�)
� 5:�setselect(12,�,�)
 � 6:�setselect(12,�,�)
*� 7:�setselect(12,�,�)
4� 8:�setselect(12,�,�)
>�
HȎ sound3% �
R� 24:�setselect(4,�,�)
\� 34:�setselect(7,�,�)
f� 48:�setselect(5,�,�)
p� 96:�setselect(6,�,�)
z
��setother(sound3%)
��setselect(8,�,�)
��
��
�
�� �setother(k%)
�!block%=window%:block%!4=3
�"ș "Wimp_GetIconState",,block%
�t%=block%!28
�$t%=�k%+"us"
��seticon(3,0,0)
��
�
	� �getother
	!block%=window%:block%!4=3
	"ș "Wimp_GetIconState",,block%
	$t%=block%!28
	.=�(�$t%,�$t%-2))
	8
	B� �setselect(i%,s%,f%)
	L"�seticon(i%,s% �(1<<21),1<<21)
	V� i%=8 � �shadeother(�)
	`0� i%=4 � i%=7 � i%=5 � i%=6 � �shadeother(�)
	j� � f% � �
	tȎ i% �
	~� 4,7,5,6,8
	�"   � i%<>4 �seticon(4,0,1<<21)
	�"   � i%<>7 �seticon(7,0,1<<21)
	�"   � i%<>5 �seticon(5,0,1<<21)
	�"   � i%<>6 �seticon(6,0,1<<21)
	�"   � i%<>8 �seticon(8,0,1<<21)
	�� 9,10,11,12
	�"   � i%<>9 �seticon(9,0,1<<21)
	�$   � i%<>10 �seticon(10,0,1<<21)
	�$   � i%<>11 �seticon(11,0,1<<21)
	�$   � i%<>12 �seticon(12,0,1<<21)
	��
	��


� �seticon(i%,e%,c%)
!block%=window%:block%!4=i%
block%!8=e%:block%!12=c%
("ș "Wimp_SetIconState",,block%
2�
<
F� �getselect(i%)
P!block%=window%:block%!4=i%
Z"ș "Wimp_GetIconState",,block%
dt%=block%!24 � (1<<21)
n=(t%<>0)
x
�� �shadeother(s%)
�� s%=shaded% � �
�"�seticon(14,s% �(1<<22),1<<22)
�!�seticon(2,s% �(1<<22),1<<22)
�!�seticon(3,s% �(1<<22),1<<22)
�shaded%=s%
��
�
�� �click(p%)
�Ȏ p%!12 �
�� -2
�   � p%!8=2 �
�      �iconbarmenu(!p%)
   �
      !block%=window%
)      ș "Wimp_GetWindowInfo",,block%
"      block%!28=-1
,&      ș "Wimp_OpenWindow",,block%
6      idle%=idle% � 1
@      mask%=mask% � (� 1)
J   �
T
� window%
^   � p%!8=2 �
h      �mainmenu(!p%,p%!4)
r   �
|"      �changestate(p%!16,p%!8)
�   �
�� voicewin%
�   � p%!8=2 �
�      �mainmenu(!p%,p%!4)
�   �
�?      � p%!16>=10 � p%!16<=17 � �changevoice(p%!16-10,p%!8)
�:      � p%!16>=2 � p%!16<=9 � �beepvoice(p%!16-1,p%!8)
�   �
�� trackerwin%
�   � p%!8=2 �
�      �mainmenu(!p%,p%!4)
�   �
�%      �handletrackerwindow(p%!16)
   �
�
�
&
0� �beepvoice(ch%,b%)
:� ch%>oldsound1% � �
D� b%<>1 � b%<>4 � �
N� b%=4 � b%=100 � b%=&2500
X� ch%,-15,b%,10
b�
l
v� �changevoice(ch%,b%)
�� b%<>1 � b%<>4 � �
�� b%=1 � t%=-1 � t%=1
�'a%=voices%(ch%)+t%:ȕ �voicebad(a%)
�a%+=t%:� a%<0 � a%=32
�� a%>32 � a%=0
��
�voicenums!(ch%*4)=a%
�#ș "Sound_AttachVoice",ch%+1,a%
��updatevoices
��
�
�� �voicebad(a%)
�� a%=0 � =�

)ș "XSound_InstallVoice",0,a% � J%,K%

� J%=0 � =�

=�

 

*� �changestate(i%,b%)

4Ȏ i% �

> � 4,7,5,6:�setselect(i%,�,�)

H� 8:�setselect(i%,�,�)

R#� 9,10,11,12:�setselect(i%,�,�)

\�

fȎ i% �

p/� 4:ș "Sound_Configure",,,24:oldsound3%=24

z/� 7:ș "Sound_Configure",,,34:oldsound3%=34

�/� 5:ș "Sound_Configure",,,48:oldsound3%=48

�/� 6:ș "Sound_Configure",,,96:oldsound3%=96

�>� 8:oldsound3%=�getother:ș "Sound_Configure",,,oldsound3%

�9� 9:ș "Sound_Configure",1:oldsound1%=1:�updatestereo

�:� 10:ș "Sound_Configure",2:oldsound1%=2:�updatestereo

�:� 11:ș "Sound_Configure",4:oldsound1%=4:�updatestereo

�:� 12:ș "Sound_Configure",8:oldsound1%=8:�updatestereo

�c� 18:� �getselect(18) � ș "Sound_Speaker",2:oldspeaker%=2 � ș "Sound_Speaker",1:oldspeaker%=1

�]� 19:� �getselect(19) � ș "Sound_Enable",2:oldaudio%=2 � ș "Sound_Enable",1:oldaudio%=1

�:� 22:!block%=voicewin%:ș "Wimp_GetWindowInfo",,block%

�0   block%!28=-1:ș "Wimp_OpenWindow",,block%

�)   mask%=mask% � (�1):idle%=idle% � 4

�   � b%=1 �
7      !block%=window%:ș "Wimp_CloseWindow",,block%
      idle%=idle% � (�1)
   �
$<� 23:!block%=trackerwin%:ș "Wimp_GetWindowInfo",,block%
.0   block%!28=-1:ș "Wimp_OpenWindow",,block%
8)   mask%=mask% � (�1):idle%=idle% � 2
B   � b%=1 �
L7      !block%=window%:ș "Wimp_CloseWindow",,block%
V      idle%=idle% � (�1)
`   �
j� 14:�otherdown
t� 2:�otherup
~� 34,36,38,40,42,44,46,48
�   t%=(i%-34)/2
�   Ȏ ?stereoptrs%(t%) �
�)      � 50:Ȣ t%+1,-127:�updatestereo
�(      � 51:Ȣ t%+1,-79:�updatestereo
�(      � 52:Ȣ t%+1,-47:�updatestereo
�&      � 53:Ȣ t%+1,0:�updatestereo
�'      � 54:Ȣ t%+1,47:�updatestereo
�'      � 55:Ȣ t%+1,79:�updatestereo
�   �
�� 35,37,39,41,43,45,47,49
�   t%=(i%-35)/2
�   Ȏ ?stereoptrs%(t%) �
(      � 49:Ȣ t%+1,-79:�updatestereo

(      � 50:Ȣ t%+1,-47:�updatestereo
&      � 51:Ȣ t%+1,0:�updatestereo
'      � 52:Ȣ t%+1,47:�updatestereo
('      � 53:Ȣ t%+1,79:�updatestereo
2(      � 54:Ȣ t%+1,127:�updatestereo
<   �
F� 63
P   a%=pollblock%!4
Z   !block%=window%
d'   ș "Wimp_GetWindowState",,block%
nZ   x%=block%!4-block%!20:y%=block%!16-block%!24:� visible co. of top left of work area
x   dragmin%=y%+volminy%
�   block%!4=7
�   block%!24=x%+volminx%
�   block%!28=y%+volminy%
�   block%!32=x%+volmaxx%
�   block%!36=y%+volmaxy%-4
�4   � drag%=� � ș "Wimp_DragBox",,block%:drag%=�
�   �setvolume(a%-dragmin%)
��
��
�
�� �otherdown
�t%=�getother
�� t%>4 � t%-=1 � �
j%=256/oldsound1%-1
� t%+1>j% � t%=j%
oldsound3%=t%
"ș "Sound_Configure",,,t%
,�setother(t%)
6�
@
J� �otherup
Tt%=�getother
^j%=256/oldsound1%-1
h!� t%<j% � t%+=1 � � t%=j% � �
r� t%>j% � t%=j%
|oldsound3%=t%
�ș "Sound_Configure",,,t%
��setother(t%)
��
�
�� �buildmenu
�� $ptr%:count%=0
�ptr%!12=&00070207
�ptr%!20=44
�
ptr%!24=0
�o%=ptr%+28
�
w%=�$ptr%
��
�� a$
� a$<>"" �
   !o%=0
   o%!4=-1
&   o%!8=&07000021
0   � �a$,1)="$" �
:      !o%=!o%+4
D      o%!8=o%!8 � &100
N      $(type%+5)="A0-9"
X      o%!12=type%
b      o%!16=type%+5
l      o%!20=3
v      � w%<2 � w%=2
�      $type%=ägetother
�   �
�   � �a$,"->")>0 �
�"      o%!4=�(�a$,�a$,"->")+2))
�      a$=�a$,�a$,"->")-1)
�   �
�   � �a$,"@")>0 �
�      b$=�a$,�a$,"@")+1)
�      a$=�a$,�a$,"@")-1)
�"      � �(b$)<>0 � !o%=!o% � 1
�   �
�0   � a$<>"$" � $(o%+12)=a$:� �a$>w% � w%=�a$
�
   o%+=24
   count%+=1
�
� a$=""
 i%=o%-24:!i%=!i% � 128
*ptr%!16=w%*16+16
4Ȕ ptr%,o%
>=o%
H
R� �menuselect(p%)
\$ș "Wimp_GetPointerInfo",,block%
fbutton%=block%!8
pȎ !p% �
z
   � 1
�      Ȏ p%!4 �
�*         � 0:ș "Sound_Configure",,,24
�*         � 1:ș "Sound_Configure",,,34
�*         � 2:ș "Sound_Configure",,,48
�*         � 3:ș "Sound_Configure",,,96
�         � 4
�            t%=�($type%)
�            � t%<4 � t%=4
�#            j%=256/oldsound1%-1
�            � t%>j% � t%=j%
�)            ș "Sound_Configure",,,t%
�      �
�
   � 2
      Ȏ p%!4 �
'         � 0:ș "Sound_Configure",1
'         � 1:ș "Sound_Configure",2
$'         � 2:ș "Sound_Configure",4
.'         � 3:ș "Sound_Configure",8
8      �
B
   � 3
L      Ȏ p%!4 �
V         � 0:�resettracker
`         � 1:�resetsound
j      �
t-   � 4:ș "Sound_Speaker",oldspeaker% � 3
~*   � 5:ș "Sound_Enable",oldaudio% � 3
�   � 6:quit%=�
��
�7� (button% � 1)<>0 � �iconbarmenu(0) � �updatestate
��
�
�� �iconbarmenu(x%)
�
�makemenu
�6ș "Wimp_CreateMenu",,mainmenu%,x%-64,96+44*count%
��
�
�� �mainmenu(x%,y%)
�
�makemenu
/ș "Wimp_CreateMenu",,mainmenu%,x%-64,y%+16

�

� �makemenu
(�updatestate
2� +0
<ptr%=menu%
Fresetmenu%=�buildmenu
Pdmamenu%=�buildmenu
Zchanmenu%=�buildmenu
dmainmenu%=�buildmenu
n�
x
�� Reset,Tracker,Sound,""
��� DMA rate,24us@sound3%=24,34us@sound3%=34,48us@sound3%=48,96us@sound3%=96,$@(sound3%<>24 ANDsound3%<>34 ANDsound3%<>48 AND sound3%<>96),""
�>� Chans,1@sound1%=1,2@sound1%=2,4@sound1%=4,8@sound1%=8,""
��� SoundCtrl,Info->infowin%,DMA rate->dmamenu%,Channels->chanmenu%,Reset->resetmenu%,Speaker@oldspeaker%=2,Audio@oldaudio%=2,Quit,""
�
�� �assem
�� PASS=0 � 2 � 2
�P%=code%:[OPT PASS
�.readvoicenums
�ADR R5,voicenums
�
MOV R0,#1
�
.readnums
�\ read flags

MOV R1,#0
SWI "XOS_IntOff"
BVS exit
"!SWI "XSound_ReadControlBlock"
,BVS exit
6
MOV R6,R2
@
J\ read voice numbers
TSWI "XOS_IntOff"
^BVS exit
hSWI "XSound_AttachVoice"
rSTR R1,[R5],#4
|SWI "XOS_IntOff"
�SWI "XSound_AttachVoice"
�
�\ restore flags
�
MOV R2,R6
�
MOV R1,#0
�"SWI "XSound_WriteControlBlock"
�BVS exit
�SWI "OS_IntOn"
�ADD R0,R0,#1
�
CMP R0,#9
�BNE readnums
�	.exit
�SWI "OS_IntOn"
MOVS PC,R14

.voicenums
&EQUD 0:EQUD 0:EQUD 0:EQUD 0
0EQUD 0:EQUD 0:EQUD 0:EQUD 0
:
D.deadvoicesflag EQUD 0
N
X.checkfordeadvoices
b
MOV R0,#0
lSTR R0,deadvoicesflag
v
MOV R6,#8
�ADR R5,voicenums
�.checkloop
�LDR R1,[R5],#4
�
CMP R1,#0
�BLE nextchannel
�
MOV R0,#0
�SWI "Sound_InstallVoice"
�
CMP R0,#0
�BGT nextchannel
�
MVN R0,#0
�STR R0,deadvoicesflag
�RSB R0,R6,#9
�
MOV R1,#0
SWI "Sound_AttachVoice"
.nextchannel
SUBS R6,R6,#1
 BNE checkloop
*MOVS PC,R14
4
>.version EQUD 0
H.moduleadd EQUD 0
R.playkill EQUS "PLAYKILL"
\.playstop EQUS "STOP"
f3.trackername EQUS "TrackerModule":EQUB 13:ALIGN
p.mask1 EQUD &00FFFFC0
z.mask2 EQUD &03FFFFFC
�.mask3 EQUD &DFDFDFDF
�.modulepresent
�MOV R0,#18
�ADR R1,trackername
�
MOV R3,#0
�SWI "XOS_Module"
�STR R3,moduleadd
�MOVS PC,R14
�
�.readversion
�\r0 = 0 if full info wanted
�STMFD R13!,{R0,R14}
�BL modulepresent

TEQ R3,#0
STREQ R3,version
LDMEQFD R13!,{R0,PC}
$LDR R0,[R3,#&1C]
.LDR R1,mask1
8� R1,R0,R1
B
TEQ R0,R1
LBNE notverynew
V
TEQ R0,#0
`BEQ notverynew
jLDR R0,[R3,#&20]
tLDR R1,mask2
~� R1,R0,R1
�
TEQ R0,R1
�BNE notverynew
�
TEQ R0,#0
�BEQ notverynew
� SWI &43200:\ Tracker_Version
�STR R0,version
�LDMFD R13!,{R0,PC}
�.notverynew
�LDR R0,[R3,#&14]
�
TEQ R0,#0
�BEQ commandtable
�ADD R7,R3,R0

.findhelp

MOV R8,#16
.findhelploop
LDRB R0,[R7],#1
(
TEQ R0,#0
2BEQ commandtable
<
TEQ R0,#9
FSUBNE R8,R8,#1
PBNE nottab
Z�S R1,R8,#7
dSUBNE R8,R8,R1
nSUBEQ R8,R8,#8
x.nottab
�
CMP R8,#0
�BGT findhelploop
�LDRB R1,[R7]
�LDRB R2,[R7,#1]
�LDRB R4,[R7,#2]
�LDRB R5,[R7,#3]
�TEQ R2,#�"."
�BNE commandtable
�
MOV R0,#0
�BL gethelptext
�
MOV R1,R4
�BL gethelptext
�
MOV R1,R5
BL gethelptext
STR R0,version
LDMFD R13!,{R0,PC}
".gethelptext
,SUBS R1,R1,#�"0"
6BLT commandtable
@
CMP R1,#9
JBGT commandtable
TADD R0,R0,R0,LSL #2
^MOV R0,R0,LSL #1
hADD R0,R0,R1
rMOV PC,R14
|
�.commandtable
�LDMFD R13!,{R0,R14}
�
TEQ R0,#0
�MOVNE PC,R14
�LDR R0,[R3,#&18]
�
TEQ R0,#0
�STREQ R0,version
�
�Q PC,R14
�LDR R10,playkill
�LDR R6,playkill+4
�LDR R7,playstop
�LDR R8,mask3
�ADD R3,R3,R0
.versionloop1
LDRB R0,[R3]

TEQ R0,#0
&STREQ R0,version
0
�Q PC,R14
:LDMIA R3,{R0,R1}
D� R0,R0,R8
N� R1,R1,R8
XTEQ R0,R10
bBNE notkeyword
l
TEQ R1,R6
vTEQNE R1,R7
�BNE notkeyword
�
TEQ R1,R6
��Q R0,#200
�MOVNE R0,#100
�STR R0,version
�MOV PC,R14
�.notkeyword
�LDRB R0,[R3],#1
�
TEQ R0,#0
�BNE notkeyword
�ADD R3,R3,#3
�BIC R3,R3,#3
�ADD R3,R3,#16
B versionloop1

.volheight EQUD volheight%
 .volbase EQUD volbase%
*.volwidth EQUD volwidth%
4
>.setvolume
HMOV R4,#&AA
RMOV R3,#&A7
\LDR R5,volbase
fLDR R6,volwidth
pLDR R7,volheight
z.setvolloop
�
TEQ R0,#0
��Q R4,#&DD
��Q R3,#&D7
�SUB R0,R0,#1
�STRB R3,[R5,#0]
�STRB R4,[R5,#1]
�STRB R4,[R5,#2]
�SUB R5,R5,R6
�SUBS R7,R7,#1
�BNE setvolloop
�MOVS PC,R14
�]�
��

� �handletrackerwindow(i%)
Ȏ i% �
$� 1:� rewind
.   �checkversion
8   � version%>=400 �
B(      ș "Tracker_TuneInfo" � a%,,d%
L      � a%>0 �
V,         ș "Tracker_ReadPos" � a%,b%,c%
`         � d%=0 d%=1
j         � b%<50/d% � a%-=1
t         � a%<0 � a%=c%
~%         ș "Tracker_SetPos",a%,0
�*         ș "Tracker_ReadPos" � a%,,c%
�%         $patternptr%=�a%+"/"+�c%
�&         �drawicon(trackerwin%,11)
�      �
�   �
�� 2:� stop
�   �checkversion
�*   � version%>=400 � ș "Tracker_Stop"
�1   � version%>=002 � version%<200 � *PlayStop
�1   � version%>=200 � version%<300 � *PlayKill
�1   � version%>=300 � version%<400 � *PlayStop
�M   � $pauseptr%="pauseon" � $pauseptr%="pausexx":�drawicon(trackerwin%,4)
� 3:� fast forward

   �checkversion
   � version%>=400 �
$      ș "Tracker_TuneInfo" � a%
(      � a%>0 �
2,         ș "Tracker_ReadPos" � a%,b%,c%
<#         � a%=c% � a%=0 � a%+=1
F%         ș "Tracker_SetPos",a%,0
P*         ș "Tracker_ReadPos" � a%,,c%
Z%         $patternptr%=�a%+"/"+�c%
d&         �drawicon(trackerwin%,11)
n      �
x   �
�� 4:� pause
�   �checkversion
�   � version%>=200 �
�      � version%>=400 �
�^      ș "Tracker_TuneInfo" �;a%:� (a% �2)=0 � $pauseptr%="pausexx" � $pauseptr%="pauseon"
�      �
�N      � $pauseptr%="pauseon" � $pauseptr%="pausexx" � $pauseptr%="pauseon"
�"      �drawicon(trackerwin%,4)
�E      � version%>=400 � $pauseptr%="pauseon" � ș "Tracker_Pause"
�D      � version%>=400 � $pauseptr%="pausexx" � ș "Tracker_Play"
�L      � version%>=200 � version%<400 � $pauseptr%="pauseon" � *PlayPause
�L      � version%>=200 � version%<400 � $pauseptr%="pausexx" � *PlayStart
�   �
� 12:�resettracker
� 13:�resetsound
� 14
"M   � $pauseptr%="pauseon" � $pauseptr%="pausexx":�drawicon(trackerwin%,4)
,   � modulepresent
66   � !moduleadd � ș "OS_Module",4,"TrackerModule"
@   �checkversion
J�
T�
^
h!� �drawicon(!block%,block%!4)
rblock%!8=0:block%!12=0
|"ș "Wimp_SetIconState",,block%
��
�
�� �checkversion
�A%=0:� readversion
�/� !version=version% � �updatetrackerstate:�
�version%=!version
�� version%=0 �
�$versionptr%="-"
��
�?a%=&FF020200:Ȕ @%,a%:$versionptr%=�(version%/100):Ȕ @%,a%
��
��drawicon(trackerwin%,9)
��updatetrackerstate
 �
 
 � �updatetrackerstate
 &
a$="-"
 0� version%>=400 �
 :!   ș "Tracker_TuneInfo" � a%
 D   � a%>0 �
 N)      ș "Tracker_ReadPos" � a%,b%,c%
 X      a$=�a%+"/"+�c%
 b   �
 l�
 v� a$<>$patternptr% �
 �   $patternptr%=a$
 �    �drawicon(trackerwin%,11)
 ��
 �� version%>=400 �
 �$   ș "Tracker_TuneInfo" � a%;b%
 �   � a%=0 �
 �      a$="Waiting"
 �   �
 �0      � (b% �2) � a$="Paused" � a$="Playing"
 �1      � (b% �2) � b$="pauseon" � b$="pausexx"
 �C      � b$<>$pauseptr% � $pauseptr%=b$:�drawicon(trackerwin%,4)
 �   �
 ��
!:   � $pauseptr%="pausexx" � a$="Present" � a$="Paused"
!#   � version%=0 a$="Not loaded"
!�
! � a$<>$statusptr% �
!*$statusptr%=a$
!4�drawicon(trackerwin%,8)
!>�
!H�
!R
!\� �resettracker
!f�checkversion
!p� version%=0 � �
!zD� version%>=002 � version%<200 � �setselect(11,�,�):oldsound1%=4
!�� version%>=400 �
!�#ș "XTracker_TuneInfo" � ,b%;e%
!�� (e% �1)=0 �
!�Ȏ b% �
!�&� 1:�setselect(9,�,�):oldsound1%=1
!�'� 2:�setselect(10,�,�):oldsound1%=2
!�)� 4,3:�setselect(11,�,�):oldsound1%=4
!�-� 8,7,6,5:�setselect(12,�,�):oldsound1%=8
!��
!��
!��
!�� version%<405 �
!�e� oldsound1%<=4 � oldsound3%=34:�setselect(7,�,�) � oldsound3%=31:�setother(31):�setselect(8,�,�)
"�
"/ș "Sound_Configure",oldsound1%,,oldsound3%
"�setselect(19,�,�)
"$+oldaudio%=2:ș "Sound_Enable",oldaudio%
".� version%<405 �
"8� t%=1 � oldsound1%
"B6ș "XSound_AttachNamedVoice",t%,"Tracker"+�0 � ;f%
"LH� (f% �1)<>0 � ș "XSound_AttachNamedVoice",t%,"TrackerVox"+�0 � ;f%
"VJ� (f% �1)<>0 � ș "XSound_AttachNamedVoice",t%,"TrackerVoice"+�0 � ;f%
"`� (f% �1)=0 � � t%,-15,0,1
"j�
"t�
"~� version%<405 �
"�6   � version%>=002 � version%<200 � J%=16 � J%=-16
"�&   � T%=1 � 8:� (T% �1)=0 � J%=-J%
"�   Ȣ T%,J%:�:�updatestereo
"��
"�"   ș "Tracker_Stereo",-1 �,a%
"�   � T%=0 � oldsound1%-1
"�(   b%=a%?T%:� b%<1 b%=1 � �b%>7 b%=7
"�   Ȣ T%+1,stereomap%(b%)
"�   �
"�   �updatestereo
"��
"��
#
#
� �resetsound
#"ș "OS_Byte",161,148 � ,,cmos%
#c%=(cmos% � 15)+1
#(s%=cmos% � 128
#2v%=(cmos%>>4) � 7
#<v%=v%*16+v%*2+1
#Fș "Sound_Volume",v%
#Pș "Sound_AttachVoice",1,c%
#Z�setselect(18,s%=128,�)
#doldspeaker%=2+(s%<>128)
#n"ș "Sound_Speaker",oldspeaker%
#x�setselect(19,�,�)
#�+oldaudio%=2:ș "Sound_Enable",oldaudio%
#�oldsound1%=1
#��setselect(9,�,�)
#�oldsound3%=48
#��setselect(5,�,�)
#�/ș "Sound_Configure",oldsound1%,,oldsound3%
#�Ȣ 1,0:�updatestereo
#��
#�
#�� �updatevolume
#�ș "Sound_Volume" � a%
#�V� version%>=406 � ș "Tracker_TuneInfo" � b%:� b%<>0 � ș "Tracker_Volume",-1 � a%
#�!� a%<1 a%=1 � � a%>127 a%=127
$� a%=volume% � �
$volume%=a%
$A%=volume%/(128/33)
$"� setvolume
$,�drawicon(window%,60)
$6�
$@
$J� �sprites
$T1X%=�"<SoundCtrl$Dir>.SpriteFile":l%=�#X%:�#X%
$^� sprites% l%+4
$hG!sprites%=l%+4:�("LOAD <SoundCtrl$Dir>.SpriteFile "+�~(sprites%+4))
$r-ș "OS_SpriteOp",256+54,sprites%,"volume"
$|9ș "OS_SpriteOp",256+24,sprites%,"volume" � ,,voladd%
$�volwidth%=(voladd%!16+1)*4
$�volheight%=voladd%!20-1
$�8volbase%=voladd%+voladd%!32+volheight%*volwidth%+9/2
$��
$�
$�� �setvolume(A%)
$�A%=A%/4:� setvolume
$�a%=A%*(128/33)
$�"� a%<1 a%=1 � � a%>=124 a%=127
$�� volume%=a% � �
$�volume%=a%
$��drawicon(window%,60)
$�� version%>=406 �
%!   ș "Tracker_TuneInfo" � a%
%   � a%<>0 �
%%      ș "Tracker_Volume",volume%
%&   �
%0#      ș "Sound_Volume",volume%
%:   �
%D�
%N    ș "Sound_Volume",volume%
%X�
%b�
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 53 6f 75 6e 64 43 74  |...!. > <SoundCt|
00000010  72 6c 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |rl$Dir>.!RunImag|
00000020  65 0d 00 14 04 0d 00 1e  38 c8 99 20 22 4f 53 5f  |e.......8.. "OS_|
00000030  53 57 49 4e 75 6d 62 65  72 46 72 6f 6d 53 74 72  |SWINumberFromStr|
00000040  69 6e 67 22 2c 2c 22 57  69 6d 70 5f 50 6f 6c 6c  |ing",,"Wimp_Poll|
00000050  22 20 b8 20 77 69 6d 70  70 6f 6c 6c 25 0d 00 28  |" . wimppoll%..(|
00000060  40 c8 99 20 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |@.. "OS_SWINumbe|
00000070  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 57  |rFromString",,"W|
00000080  69 6d 70 5f 50 6f 6c 6c  49 64 6c 65 22 20 b8 20  |imp_PollIdle" . |
00000090  77 69 6d 70 70 6f 6c 6c  69 64 6c 65 25 0d 00 32  |wimppollidle%..2|
000000a0  3f c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |?.. "Wimp_Initia|
000000b0  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
000000c0  31 35 34 2c 22 53 6f 75  6e 64 20 43 6f 6e 74 72  |154,"Sound Contr|
000000d0  6f 6c 22 20 b8 20 2c 74  61 73 6b 25 0d 00 3c 04  |ol" . ,task%..<.|
000000e0  0d 00 46 40 de 20 62 6c  6f 63 6b 25 20 26 31 30  |..F@. block% &10|
000000f0  30 30 2c 70 6f 6c 6c 62  6c 6f 63 6b 25 20 35 31  |00,pollblock% 51|
00000100  32 2c 6d 65 6e 75 25 20  31 30 32 34 2c 69 64 69  |2,menu% 1024,idi|
00000110  72 25 20 31 30 32 34 2c  74 79 70 65 25 20 31 30  |r% 1024,type% 10|
00000120  0d 00 50 2f de 20 73 74  65 72 65 6f 70 74 72 73  |..P/. stereoptrs|
00000130  25 28 37 29 2c 73 74 65  72 65 6f 25 28 37 29 3a  |%(7),stereo%(7):|
00000140  73 74 65 72 65 6f 25 28  29 3d 2d 31 30 32 34 0d  |stereo%()=-1024.|
00000150  00 5a 35 de 20 76 6f 69  63 65 70 74 72 73 25 28  |.Z5. voiceptrs%(|
00000160  37 29 2c 76 6f 69 63 65  73 25 28 37 29 2c 63 6f  |7),voices%(7),co|
00000170  64 65 25 20 37 36 38 3a  76 6f 69 63 65 73 25 28  |de% 768:voices%(|
00000180  29 3d 2d 31 0d 00 64 13  de 20 73 74 65 72 65 6f  |)=-1..d.. stereo|
00000190  6d 61 70 25 28 37 29 0d  00 6e 28 73 74 65 72 65  |map%(7)..n(stere|
000001a0  6f 6d 61 70 25 28 31 29  3d 2d 31 32 37 3a 73 74  |omap%(1)=-127:st|
000001b0  65 72 65 6f 6d 61 70 25  28 37 29 3d 31 32 37 0d  |ereomap%(7)=127.|
000001c0  00 78 26 73 74 65 72 65  6f 6d 61 70 25 28 32 29  |.x&stereomap%(2)|
000001d0  3d 2d 37 39 3a 73 74 65  72 65 6f 6d 61 70 25 28  |=-79:stereomap%(|
000001e0  36 29 3d 37 39 0d 00 82  26 73 74 65 72 65 6f 6d  |6)=79...&stereom|
000001f0  61 70 25 28 33 29 3d 2d  34 37 3a 73 74 65 72 65  |ap%(3)=-47:stere|
00000200  6f 6d 61 70 25 28 35 29  3d 34 37 0d 00 8c 13 73  |omap%(5)=47....s|
00000210  74 65 72 65 6f 6d 61 70  25 28 34 29 3d 30 0d 00  |tereomap%(4)=0..|
00000220  96 0c f2 73 70 72 69 74  65 73 0d 00 a0 0a f2 61  |...sprites.....a|
00000230  73 73 65 6d 0d 00 aa 0f  69 70 74 72 25 3d 69 64  |ssem....iptr%=id|
00000240  69 72 25 0d 00 b4 0e f2  74 65 6d 70 6c 61 74 65  |ir%.....template|
00000250  73 0d 00 be 09 f2 69 63  6f 6e 0d 00 c8 1f 6f 6c  |s.....icon....ol|
00000260  64 73 6f 75 6e 64 31 25  3d 2d 31 3a 6f 6c 64 73  |dsound1%=-1:olds|
00000270  6f 75 6e 64 33 25 3d 2d  31 0d 00 d2 1f 6f 6c 64  |ound3%=-1....old|
00000280  73 70 65 61 6b 65 72 25  3d 2d 31 3a 6f 6c 64 61  |speaker%=-1:olda|
00000290  75 64 69 6f 25 3d 2d 31  0d 00 dc 0d 73 68 61 64  |udio%=-1....shad|
000002a0  65 64 25 3d a3 0d 00 e6  0b 71 75 69 74 25 3d a3  |ed%=.....quit%=.|
000002b0  0d 00 f0 0f 6d 61 73 6b  25 3d 26 31 38 33 31 0d  |....mask%=&1831.|
000002c0  00 fa 0b 69 64 6c 65 25  3d 30 0d 01 04 0f 76 65  |...idle%=0....ve|
000002d0  72 73 69 6f 6e 25 3d 2d  31 0d 01 0e 0e 76 6f 6c  |rsion%=-1....vol|
000002e0  75 6d 65 25 3d 2d 31 0d  01 18 0b 64 72 61 67 25  |ume%=-1....drag%|
000002f0  3d a3 0d 01 22 11 f2 63  68 65 63 6b 76 65 72 73  |=..."..checkvers|
00000300  69 6f 6e 0d 01 2c 0e ee  20 85 20 f2 65 72 72 6f  |ion..,.. . .erro|
00000310  72 0d 01 36 25 c8 99 20  22 4f 53 5f 52 65 61 64  |r..6%.. "OS_Read|
00000320  4d 6f 6e 6f 74 6f 6e 69  63 54 69 6d 65 22 20 b8  |MonotonicTime" .|
00000330  20 74 69 6d 65 25 0d 01  40 10 f2 75 70 64 61 74  | time%..@..updat|
00000340  65 73 74 61 74 65 0d 01  4a 11 f2 63 68 65 63 6b  |estate..J..check|
00000350  76 65 72 73 69 6f 6e 0d  01 54 05 f5 0d 01 5e 3d  |version..T....^=|
00000360  61 25 3d 74 69 6d 65 25  2b 31 30 30 3a e7 20 28  |a%=time%+100:. (|
00000370  69 64 6c 65 25 20 80 32  29 3c 3e 30 20 80 20 28  |idle% .2)<>0 . (|
00000380  69 64 6c 65 25 20 80 35  29 3d 30 20 8c 20 61 25  |idle% .5)=0 . a%|
00000390  3d 74 69 6d 65 25 2b 32  30 0d 01 68 31 e7 20 28  |=time%+20..h1. (|
000003a0  69 64 6c 65 25 20 80 32  29 3c 3e 30 20 80 20 28  |idle% .2)<>0 . (|
000003b0  69 64 6c 65 25 20 80 35  29 3c 3e 30 20 8c 20 61  |idle% .5)<>0 . a|
000003c0  25 3d 74 69 6d 65 25 2b  33 30 0d 01 72 56 e7 20  |%=time%+30..rV. |
000003d0  64 72 61 67 25 20 8c 20  61 25 3d 74 69 6d 65 25  |drag% . a%=time%|
000003e0  2d 31 3a 6d 25 3d 6d 61  73 6b 25 20 80 20 26 46  |-1:m%=mask% . &F|
000003f0  46 46 46 46 46 46 45 3a  70 25 3d 77 69 6d 70 70  |FFFFFFE:p%=wimpp|
00000400  6f 6c 6c 25 20 8b 20 6d  25 3d 6d 61 73 6b 25 3a  |oll% . m%=mask%:|
00000410  70 25 3d 77 69 6d 70 70  6f 6c 6c 69 64 6c 65 25  |p%=wimppollidle%|
00000420  0d 01 7c 1f c8 99 20 70  25 2c 6d 25 2c 70 6f 6c  |..|... p%,m%,pol|
00000430  6c 62 6c 6f 63 6b 25 2c  61 25 20 b8 20 72 25 0d  |lblock%,a% . r%.|
00000440  01 86 0b c8 8e 20 72 25  20 ca 0d 01 90 07 c9 20  |..... r% ...... |
00000450  30 0d 01 9a 10 20 20 20  e7 20 64 72 61 67 25 20  |0....   . drag% |
00000460  8c 0d 01 a4 2a 20 20 20  20 20 20 c8 99 20 22 57  |....*      .. "W|
00000470  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00000480  66 6f 22 2c 2c 62 6c 6f  63 6b 25 0d 01 ae 27 20  |fo",,block%...' |
00000490  20 20 20 20 20 f2 73 65  74 76 6f 6c 75 6d 65 28  |     .setvolume(|
000004a0  62 6c 6f 63 6b 25 21 34  2d 64 72 61 67 6d 69 6e  |block%!4-dragmin|
000004b0  25 29 0d 01 b8 08 20 20  20 cc 0d 01 c2 18 20 20  |%)....   .....  |
000004c0  20 20 20 20 e7 20 28 69  64 6c 65 25 20 80 32 29  |    . (idle% .2)|
000004d0  20 8c 0d 01 cc 2c 20 20  20 20 20 20 20 20 20 21  | ....,         !|
000004e0  76 65 72 73 69 6f 6e 3d  31 3a 41 25 3d 32 35 35  |version=1:A%=255|
000004f0  3a d6 20 72 65 61 64 76  65 72 73 69 6f 6e 0d 01  |:. readversion..|
00000500  d6 44 20 20 20 20 20 20  20 20 20 e7 20 21 76 65  |.D         . !ve|
00000510  72 73 69 6f 6e 3c 3e 76  65 72 73 69 6f 6e 25 20  |rsion<>version% |
00000520  f2 63 68 65 63 6b 76 65  72 73 69 6f 6e 20 8b f2  |.checkversion ..|
00000530  75 70 64 61 74 65 74 72  61 63 6b 65 72 73 74 61  |updatetrackersta|
00000540  74 65 0d 01 e0 0b 20 20  20 20 20 20 cd 0d 01 ea  |te....      ....|
00000550  18 20 20 20 20 20 20 e7  20 28 69 64 6c 65 25 20  |.      . (idle% |
00000560  80 35 29 20 8c 0d 01 f4  55 20 20 20 20 20 20 20  |.5) ....U       |
00000570  20 20 e7 20 28 69 64 6c  65 25 20 80 32 29 3d 30  |  . (idle% .2)=0|
00000580  20 8c 20 41 25 3d 30 3a  d6 20 72 65 61 64 76 65  | . A%=0:. readve|
00000590  72 73 69 6f 6e 3a e7 20  21 76 65 72 73 69 6f 6e  |rsion:. !version|
000005a0  3c 3e 76 65 72 73 69 6f  6e 25 20 8c 20 f2 63 68  |<>version% . .ch|
000005b0  65 63 6b 76 65 72 73 69  6f 6e 0d 01 fe 19 20 20  |eckversion....  |
000005c0  20 20 20 20 20 20 20 f2  75 70 64 61 74 65 73 74  |       .updatest|
000005d0  61 74 65 0d 02 08 0b 20  20 20 20 20 20 cd 0d 02  |ate....      ...|
000005e0  12 08 20 20 20 cd 0d 02  1c 28 20 20 20 c8 99 20  |..   ....(   .. |
000005f0  22 4f 53 5f 52 65 61 64  4d 6f 6e 6f 74 6f 6e 69  |"OS_ReadMonotoni|
00000600  63 54 69 6d 65 22 20 b8  20 74 69 6d 65 25 0d 02  |cTime" . time%..|
00000610  26 07 c9 20 32 0d 02 30  42 20 20 20 e7 20 21 70  |&.. 2..0B   . !p|
00000620  6f 6c 6c 62 6c 6f 63 6b  25 3d 77 69 6e 64 6f 77  |ollblock%=window|
00000630  25 20 8c 20 6d 61 73 6b  25 3d 6d 61 73 6b 25 20  |% . mask%=mask% |
00000640  80 20 28 ac 20 31 29 3a  69 64 6c 65 25 3d 69 64  |. (. 1):idle%=id|
00000650  6c 65 25 20 84 20 31 0d  02 3a 45 20 20 20 e7 20  |le% . 1..:E   . |
00000660  21 70 6f 6c 6c 62 6c 6f  63 6b 25 3d 74 72 61 63  |!pollblock%=trac|
00000670  6b 65 72 77 69 6e 25 20  8c 20 6d 61 73 6b 25 3d  |kerwin% . mask%=|
00000680  6d 61 73 6b 25 20 80 20  28 ac 20 31 29 3a 69 64  |mask% . (. 1):id|
00000690  6c 65 25 3d 69 64 6c 65  25 20 84 32 0d 02 44 44  |le%=idle% .2..DD|
000006a0  20 20 20 e7 20 21 70 6f  6c 6c 62 6c 6f 63 6b 25  |   . !pollblock%|
000006b0  3d 76 6f 69 63 65 77 69  6e 25 20 8c 20 6d 61 73  |=voicewin% . mas|
000006c0  6b 25 3d 6d 61 73 6b 25  20 80 20 28 ac 20 31 29  |k%=mask% . (. 1)|
000006d0  3a 69 64 6c 65 25 3d 69  64 6c 65 25 20 84 20 34  |:idle%=idle% . 4|
000006e0  0d 02 4e 27 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..N'   .. "Wimp_|
000006f0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 70 6f 6c  |OpenWindow",,pol|
00000700  6c 62 6c 6f 63 6b 25 0d  02 58 07 c9 20 33 0d 02  |lblock%..X.. 3..|
00000710  62 30 20 20 20 e7 20 21  70 6f 6c 6c 62 6c 6f 63  |b0   . !pollbloc|
00000720  6b 25 3d 77 69 6e 64 6f  77 25 20 8c 20 69 64 6c  |k%=window% . idl|
00000730  65 25 3d 69 64 6c 65 25  20 80 28 ac 31 29 0d 02  |e%=idle% .(.1)..|
00000740  6c 34 20 20 20 e7 20 21  70 6f 6c 6c 62 6c 6f 63  |l4   . !pollbloc|
00000750  6b 25 3d 74 72 61 63 6b  65 72 77 69 6e 25 20 8c  |k%=trackerwin% .|
00000760  20 69 64 6c 65 25 3d 69  64 6c 65 25 20 80 28 ac  | idle%=idle% .(.|
00000770  32 29 0d 02 76 32 20 20  20 e7 20 21 70 6f 6c 6c  |2)..v2   . !poll|
00000780  62 6c 6f 63 6b 25 3d 76  6f 69 63 65 77 69 6e 25  |block%=voicewin%|
00000790  20 8c 20 69 64 6c 65 25  3d 69 64 6c 65 25 20 80  | . idle%=idle% .|
000007a0  28 ac 34 29 0d 02 80 22  20 20 20 e7 20 69 64 6c  |(.4)..."   . idl|
000007b0  65 25 3d 30 20 8c 20 6d  61 73 6b 25 3d 6d 61 73  |e%=0 . mask%=mas|
000007c0  6b 25 20 84 20 31 0d 02  8a 28 20 20 20 c8 99 20  |k% . 1...(   .. |
000007d0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
000007e0  77 22 2c 2c 70 6f 6c 6c  62 6c 6f 63 6b 25 0d 02  |w",,pollblock%..|
000007f0  94 1a c9 20 36 3a f2 63  6c 69 63 6b 28 70 6f 6c  |... 6:.click(pol|
00000800  6c 62 6c 6f 63 6b 25 29  0d 02 9e 31 c9 20 37 3a  |lblock%)...1. 7:|
00000810  64 72 61 67 25 3d a3 3a  f2 73 65 74 76 6f 6c 75  |drag%=.:.setvolu|
00000820  6d 65 28 70 6f 6c 6c 62  6c 6f 63 6b 25 21 34 2d  |me(pollblock%!4-|
00000830  64 72 61 67 6d 69 6e 25  29 0d 02 a8 1f c9 20 39  |dragmin%)..... 9|
00000840  3a f2 6d 65 6e 75 73 65  6c 65 63 74 28 70 6f 6c  |:.menuselect(pol|
00000850  6c 62 6c 6f 63 6b 25 29  0d 02 b2 20 c9 20 31 37  |lblock%)... . 17|
00000860  2c 31 38 3a f2 6d 65 73  73 61 67 65 28 70 6f 6c  |,18:.message(pol|
00000870  6c 62 6c 6f 63 6b 25 29  0d 02 bc 05 cb 0d 02 c6  |lblock%)........|
00000880  0b fd 20 71 75 69 74 25  0d 02 d0 17 c8 99 20 22  |.. quit%...... "|
00000890  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
000008a0  02 da 05 e0 0d 02 e4 04  0d 02 ee 0c dd 20 f2 65  |............. .e|
000008b0  72 72 6f 72 0d 02 f8 22  c8 99 20 22 58 57 69 6d  |rror...".. "XWim|
000008c0  70 5f 44 72 61 67 42 6f  78 22 2c 2c 2d 31 3a 64  |p_DragBox",,-1:d|
000008d0  72 61 67 25 3d a3 0d 03  02 1d c8 99 20 22 58 57  |rag%=....... "XW|
000008e0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000008f0  2c 2d 31 0d 03 0c 19 c8  99 20 22 58 48 6f 75 72  |,-1...... "XHour|
00000900  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 03 16 1f  |glass_Smash"....|
00000910  21 62 6c 6f 63 6b 25 3d  9f 3a 24 28 62 6c 6f 63  |!block%=.:$(bloc|
00000920  6b 25 2b 34 29 3d f6 24  2b bd 30 0d 03 20 32 c8  |k%+4)=.$+.0.. 2.|
00000930  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00000940  72 6f 72 22 2c 62 6c 6f  63 6b 25 2c 31 2c 22 53  |ror",block%,1,"S|
00000950  6f 75 6e 64 20 43 6f 6e  74 72 6f 6c 22 0d 03 2a  |ound Control"..*|
00000960  11 f2 63 68 65 63 6b 76  65 72 73 69 6f 6e 0d 03  |..checkversion..|
00000970  34 05 e1 0d 03 3e 04 0d  03 48 0b dd 20 f2 69 63  |4....>...H.. .ic|
00000980  6f 6e 0d 03 52 0e 21 62  6c 6f 63 6b 25 3d 2d 31  |on..R.!block%=-1|
00000990  0d 03 5c 19 62 6c 6f 63  6b 25 21 34 3d 30 3a 62  |..\.block%!4=0:b|
000009a0  6c 6f 63 6b 25 21 38 3d  30 0d 03 66 1d 62 6c 6f  |lock%!8=0..f.blo|
000009b0  63 6b 25 21 31 32 3d 37  32 3a 62 6c 6f 63 6b 25  |ck%!12=72:block%|
000009c0  21 31 36 3d 36 38 0d 03  70 13 62 6c 6f 63 6b 25  |!16=68..p.block%|
000009d0  21 32 30 3d 26 33 31 30  32 0d 03 7a 17 24 69 70  |!20=&3102..z.$ip|
000009e0  74 72 25 3d 22 21 73 6f  75 6e 64 63 74 72 6c 22  |tr%="!soundctrl"|
000009f0  0d 03 84 13 62 6c 6f 63  6b 25 21 32 34 3d 69 70  |....block%!24=ip|
00000a00  74 72 25 0d 03 8e 0f 62  6c 6f 63 6b 25 21 32 38  |tr%....block%!28|
00000a10  3d 31 0d 03 98 15 62 6c  6f 63 6b 25 21 33 32 3d  |=1....block%!32=|
00000a20  a9 24 69 70 74 72 25 0d  03 a2 14 69 70 74 72 25  |.$iptr%....iptr%|
00000a30  2b 3d a9 24 69 70 74 72  25 2b 31 0d 03 ac 2c c8  |+=.$iptr%+1...,.|
00000a40  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000a50  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 74 61  |on",,block% . ta|
00000a60  73 6b 69 63 6f 6e 25 0d  03 b6 05 e1 0d 03 c0 04  |skicon%.........|
00000a70  0d 03 ca 10 dd 20 f2 74  65 6d 70 6c 61 74 65 73  |..... .templates|
00000a80  0d 03 d4 37 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...7.. "Wimp_Ope|
00000a90  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 53 6f  |nTemplate",,"<So|
00000aa0  75 6e 64 43 74 72 6c 24  44 69 72 3e 2e 54 65 6d  |undCtrl$Dir>.Tem|
00000ab0  70 6c 61 74 65 73 22 0d  03 de 24 77 69 6e 64 6f  |plates"...$windo|
00000ac0  77 25 3d a4 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |w%=.loadtemplate|
00000ad0  28 22 63 6f 6e 74 72 6f  6c 22 29 0d 03 e8 25 69  |("control")...%i|
00000ae0  6e 66 6f 77 69 6e 25 3d  a4 6c 6f 61 64 74 65 6d  |nfowin%=.loadtem|
00000af0  70 6c 61 74 65 28 22 69  6e 66 6f 77 69 6e 22 29  |plate("infowin")|
00000b00  0d 03 f2 25 76 6f 69 63  65 77 69 6e 25 3d a4 6c  |...%voicewin%=.l|
00000b10  6f 61 64 74 65 6d 70 6c  61 74 65 28 22 76 6f 69  |oadtemplate("voi|
00000b20  63 65 73 22 29 0d 03 fc  28 74 72 61 63 6b 65 72  |ces")...(tracker|
00000b30  77 69 6e 25 3d a4 6c 6f  61 64 74 65 6d 70 6c 61  |win%=.loadtempla|
00000b40  74 65 28 22 74 72 61 63  6b 65 72 22 29 0d 04 06  |te("tracker")...|
00000b50  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000b60  65 6d 70 6c 61 74 65 22  0d 04 10 05 e1 0d 04 1a  |emplate"........|
00000b70  04 0d 04 24 17 dd 20 a4  6c 6f 61 64 74 65 6d 70  |...$.. .loadtemp|
00000b80  6c 61 74 65 28 61 24 29  0d 04 2e 4d c8 99 20 22  |late(a$)...M.. "|
00000b90  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000ba0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 69 70 74 72 25  |e",,block%,iptr%|
00000bb0  2c 69 64 69 72 25 2b 31  30 32 34 2c 2d 31 2c 61  |,idir%+1024,-1,a|
00000bc0  24 2b c4 31 32 2c bd 30  29 2c 30 20 b8 20 2c 2c  |$+.12,.0),0 . ,,|
00000bd0  69 70 74 72 25 0d 04 38  0b c8 8e 20 61 24 20 ca  |iptr%..8... a$ .|
00000be0  0d 04 42 0f c9 20 22 63  6f 6e 74 72 6f 6c 22 0d  |..B.. "control".|
00000bf0  04 4c 13 20 20 20 e3 20  54 25 3d 32 36 20 b8 20  |.L.   . T%=26 . |
00000c00  33 33 0d 04 56 19 20 20  20 49 25 3d 62 6c 6f 63  |33..V.   I%=bloc|
00000c10  6b 25 2b 38 38 2b 54 25  2a 33 32 0d 04 60 1d 20  |k%+88+T%*32..`. |
00000c20  20 20 49 25 21 32 34 3d  73 70 72 69 74 65 73 25  |  I%!24=sprites%|
00000c30  3a 49 25 21 32 38 3d 35  0d 04 6a 21 20 20 20 73  |:I%!28=5..j!   s|
00000c40  74 65 72 65 6f 70 74 72  73 25 28 54 25 2d 32 36  |tereoptrs%(T%-26|
00000c50  29 3d 49 25 21 32 30 2b  34 0d 04 74 08 20 20 20  |)=I%!20+4..t.   |
00000c60  ed 0d 04 7e 24 20 20 20  62 6c 6f 63 6b 25 21 28  |...~$   block%!(|
00000c70  38 38 2b 33 32 2a 36 30  2b 32 34 29 3d 73 70 72  |88+32*60+24)=spr|
00000c80  69 74 65 73 25 0d 04 88  23 20 20 20 76 6f 6c 6d  |ites%...#   volm|
00000c90  69 6e 78 25 3d 62 6c 6f  63 6b 25 21 28 38 38 2b  |inx%=block%!(88+|
00000ca0  33 32 2a 36 33 2b 30 29  0d 04 92 23 20 20 20 76  |32*63+0)...#   v|
00000cb0  6f 6c 6d 69 6e 79 25 3d  62 6c 6f 63 6b 25 21 28  |olminy%=block%!(|
00000cc0  38 38 2b 33 32 2a 36 33  2b 34 29 0d 04 9c 23 20  |88+32*63+4)...# |
00000cd0  20 20 76 6f 6c 6d 61 78  78 25 3d 62 6c 6f 63 6b  |  volmaxx%=block|
00000ce0  25 21 28 38 38 2b 33 32  2a 36 33 2b 38 29 0d 04  |%!(88+32*63+8)..|
00000cf0  a6 24 20 20 20 76 6f 6c  6d 61 78 79 25 3d 62 6c  |.$   volmaxy%=bl|
00000d00  6f 63 6b 25 21 28 38 38  2b 33 32 2a 36 33 2b 31  |ock%!(88+32*63+1|
00000d10  32 29 0d 04 b0 0e c9 20  22 76 6f 69 63 65 73 22  |2)..... "voices"|
00000d20  0d 04 ba 13 20 20 20 e3  20 54 25 3d 31 30 20 b8  |....   . T%=10 .|
00000d30  20 31 37 0d 04 c4 19 20  20 20 49 25 3d 62 6c 6f  | 17....   I%=blo|
00000d40  63 6b 25 2b 38 38 2b 54  25 2a 33 32 0d 04 ce 1e  |ck%+88+T%*32....|
00000d50  20 20 20 76 6f 69 63 65  70 74 72 73 25 28 54 25  |   voiceptrs%(T%|
00000d60  2d 31 30 29 3d 49 25 21  32 30 0d 04 d8 08 20 20  |-10)=I%!20....  |
00000d70  20 ed 0d 04 e2 0f c9 20  22 74 72 61 63 6b 65 72  | ...... "tracker|
00000d80  22 0d 04 ec 19 20 20 20  62 6c 6f 63 6b 25 21 36  |"....   block%!6|
00000d90  34 3d 73 70 72 69 74 65  73 25 0d 04 f6 23 20 20  |4=sprites%...#  |
00000da0  20 62 6c 6f 63 6b 25 21  28 38 38 2b 33 32 2a 34  | block%!(88+32*4|
00000db0  2b 32 34 29 3d 73 70 72  69 74 65 73 25 0d 05 00  |+24)=sprites%...|
00000dc0  24 20 20 20 70 61 75 73  65 70 74 72 25 3d 62 6c  |$   pauseptr%=bl|
00000dd0  6f 63 6b 25 21 28 38 38  2b 33 32 2a 34 2b 32 30  |ock%!(88+32*4+20|
00000de0  29 0d 05 0a 26 20 20 20  76 65 72 73 69 6f 6e 70  |)...&   versionp|
00000df0  74 72 25 3d 62 6c 6f 63  6b 25 21 28 38 38 2b 33  |tr%=block%!(88+3|
00000e00  32 2a 39 2b 32 30 29 0d  05 14 25 20 20 20 73 74  |2*9+20)...%   st|
00000e10  61 74 75 73 70 74 72 25  3d 62 6c 6f 63 6b 25 21  |atusptr%=block%!|
00000e20  28 38 38 2b 33 32 2a 38  2b 32 30 29 0d 05 1e 27  |(88+32*8+20)...'|
00000e30  20 20 20 70 61 74 74 65  72 6e 70 74 72 25 3d 62  |   patternptr%=b|
00000e40  6c 6f 63 6b 25 21 28 38  38 2b 33 32 2a 31 31 2b  |lock%!(88+32*11+|
00000e50  32 30 29 0d 05 28 05 cb  0d 05 32 2b c8 99 20 22  |20)..(....2+.. "|
00000e60  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000e70  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 68 61 6e 64  |w",,block% .hand|
00000e80  6c 65 25 0d 05 3c 0c 3d  68 61 6e 64 6c 65 25 0d  |le%..<.=handle%.|
00000e90  05 46 04 0d 05 50 13 dd  20 f2 75 70 64 61 74 65  |.F...P.. .update|
00000ea0  76 6f 69 63 65 73 0d 05  5a 0e e3 20 54 25 3d 31  |voices..Z.. T%=1|
00000eb0  20 b8 20 38 0d 05 64 29  e7 20 76 6f 69 63 65 73  | . 8..d). voices|
00000ec0  25 28 54 25 2d 31 29 3c  3e 76 6f 69 63 65 6e 75  |%(T%-1)<>voicenu|
00000ed0  6d 73 21 28 54 25 2a 34  2d 34 29 20 8c 0d 05 6e  |ms!(T%*4-4) ...n|
00000ee0  27 20 20 20 76 6f 69 63  65 73 25 28 54 25 2d 31  |'   voices%(T%-1|
00000ef0  29 3d 76 6f 69 63 65 6e  75 6d 73 21 28 54 25 2a  |)=voicenums!(T%*|
00000f00  34 2d 34 29 0d 05 78 33  20 20 20 c8 99 20 22 53  |4-4)..x3   .. "S|
00000f10  6f 75 6e 64 5f 49 6e 73  74 61 6c 6c 56 6f 69 63  |ound_InstallVoic|
00000f20  65 22 2c 30 2c 76 6f 69  63 65 73 25 28 54 25 2d  |e",0,voices%(T%-|
00000f30  31 29 20 b8 20 74 25 0d  05 82 1b 20 20 20 24 76  |1) . t%....   $v|
00000f40  6f 69 63 65 70 74 72 73  25 28 54 25 2d 31 29 3d  |oiceptrs%(T%-1)=|
00000f50  22 22 0d 05 8c 5f 20 20  20 e7 20 74 25 3c 3e 30  |""..._   . t%<>0|
00000f60  20 8c 20 61 25 3d 74 25  3a c8 95 20 3f 61 25 3c  | . a%=t%:.. ?a%<|
00000f70  3e 30 20 80 20 3f 61 25  3c 3e 31 33 20 80 20 3f  |>0 . ?a%<>13 . ?|
00000f80  61 25 3c 3e 31 30 20 80  20 61 25 3c 74 25 2b 32  |a%<>10 . a%<t%+2|
00000f90  35 3a 24 76 6f 69 63 65  70 74 72 73 25 28 54 25  |5:$voiceptrs%(T%|
00000fa0  2d 31 29 2b 3d bd 3f 61  25 3a 61 25 2b 3d 31 3a  |-1)+=.?a%:a%+=1:|
00000fb0  ce 0d 05 96 26 20 20 20  21 62 6c 6f 63 6b 25 3d  |....&   !block%=|
00000fc0  76 6f 69 63 65 77 69 6e  25 3a 62 6c 6f 63 6b 25  |voicewin%:block%|
00000fd0  21 34 3d 54 25 2b 39 0d  05 a0 1d 20 20 20 62 6c  |!4=T%+9....   bl|
00000fe0  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00000ff0  31 32 3d 30 0d 05 aa 25  20 20 20 c8 99 20 22 57  |12=0...%   .. "W|
00001000  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001010  22 2c 2c 62 6c 6f 63 6b  25 0d 05 b4 05 cd 0d 05  |",,block%.......|
00001020  be 05 ed 0d 05 c8 05 e1  0d 05 d2 04 0d 05 dc 12  |................|
00001030  dd 20 f2 6d 65 73 73 61  67 65 28 70 25 29 0d 05  |. .message(p%)..|
00001040  e6 0e c8 8e 20 70 25 21  31 36 20 ca 0d 05 f0 12  |.... p%!16 .....|
00001050  20 20 20 c9 20 30 3a 71  75 69 74 25 3d b9 0d 05  |   . 0:quit%=...|
00001060  fa 05 cb 0d 06 04 05 e1  0d 06 0e 04 0d 06 18 13  |................|
00001070  dd 20 f2 75 70 64 61 74  65 73 74 65 72 65 6f 0d  |. .updatestereo.|
00001080  06 22 2f e3 20 54 25 3d  30 20 b8 20 37 3a c8 99  |."/. T%=0 . 7:..|
00001090  20 22 53 6f 75 6e 64 5f  53 74 65 72 65 6f 22 2c  | "Sound_Stereo",|
000010a0  54 25 2b 31 2c 2d 31 32  38 20 b8 2c 49 25 0d 06  |T%+1,-128 .,I%..|
000010b0  2c 17 e7 20 49 25 3c 3e  73 74 65 72 65 6f 25 28  |,.. I%<>stereo%(|
000010c0  54 25 29 20 8c 0d 06 36  15 20 20 20 73 74 65 72  |T%) ...6.   ster|
000010d0  65 6f 25 28 54 25 29 3d  49 25 0d 06 40 26 20 20  |eo%(T%)=I%..@&  |
000010e0  20 e7 20 49 25 3c 3d 2d  38 30 20 8c 20 3f 73 74  | . I%<=-80 . ?st|
000010f0  65 72 65 6f 70 74 72 73  25 28 54 25 29 3d 34 39  |ereoptrs%(T%)=49|
00001100  0d 06 4a 30 20 20 20 e7  20 49 25 3e 3d 2d 37 39  |..J0   . I%>=-79|
00001110  20 80 20 49 25 3c 3d 2d  34 38 20 8c 20 3f 73 74  | . I%<=-48 . ?st|
00001120  65 72 65 6f 70 74 72 73  25 28 54 25 29 3d 35 30  |ereoptrs%(T%)=50|
00001130  0d 06 54 30 20 20 20 e7  20 49 25 3e 3d 2d 34 37  |..T0   . I%>=-47|
00001140  20 80 20 49 25 3c 3d 2d  31 36 20 8c 20 3f 73 74  | . I%<=-16 . ?st|
00001150  65 72 65 6f 70 74 72 73  25 28 54 25 29 3d 35 31  |ereoptrs%(T%)=51|
00001160  0d 06 5e 2f 20 20 20 e7  20 49 25 3e 3d 2d 31 35  |..^/   . I%>=-15|
00001170  20 80 20 49 25 3c 3d 31  35 20 8c 20 3f 73 74 65  | . I%<=15 . ?ste|
00001180  72 65 6f 70 74 72 73 25  28 54 25 29 3d 35 32 0d  |reoptrs%(T%)=52.|
00001190  06 68 2e 20 20 20 e7 20  49 25 3e 3d 31 36 20 80  |.h.   . I%>=16 .|
000011a0  20 49 25 3c 3d 34 37 20  8c 20 3f 73 74 65 72 65  | I%<=47 . ?stere|
000011b0  6f 70 74 72 73 25 28 54  25 29 3d 35 33 0d 06 72  |optrs%(T%)=53..r|
000011c0  2e 20 20 20 e7 20 49 25  3e 3d 34 38 20 80 20 49  |.   . I%>=48 . I|
000011d0  25 3c 3d 37 39 20 8c 20  3f 73 74 65 72 65 6f 70  |%<=79 . ?stereop|
000011e0  74 72 73 25 28 54 25 29  3d 35 34 0d 06 7c 25 20  |trs%(T%)=54..|% |
000011f0  20 20 e7 20 49 25 3e 3d  38 30 20 8c 20 3f 73 74  |  . I%>=80 . ?st|
00001200  65 72 65 6f 70 74 72 73  25 28 54 25 29 3d 35 35  |ereoptrs%(T%)=55|
00001210  0d 06 86 1a 20 20 20 f2  73 65 74 69 63 6f 6e 28  |....   .seticon(|
00001220  32 36 2b 54 25 2c 30 2c  30 29 0d 06 90 05 cd 0d  |26+T%,0,0)......|
00001230  06 9a 27 e7 20 54 25 2b  31 3e 6f 6c 64 73 6f 75  |..'. T%+1>oldsou|
00001240  6e 64 31 25 20 8c 20 6a  25 3d 31 3c 3c 32 32 20  |nd1% . j%=1<<22 |
00001250  8b 20 6a 25 3d 30 0d 06  a4 22 21 62 6c 6f 63 6b  |. j%=0..."!block|
00001260  25 3d 77 69 6e 64 6f 77  25 3a 62 6c 6f 63 6b 25  |%=window%:block%|
00001270  21 34 3d 54 25 2b 32 36  0d 06 ae 22 c8 99 20 22  |!4=T%+26...".. "|
00001280  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001290  65 22 2c 2c 62 6c 6f 63  6b 25 0d 06 b8 1a 74 25  |e",,block%....t%|
000012a0  3d 62 6c 6f 63 6b 25 21  32 34 20 80 20 28 31 3c  |=block%!24 . (1<|
000012b0  3c 32 32 29 0d 06 c2 5d  e7 20 6a 25 3c 3e 74 25  |<22)...]. j%<>t%|
000012c0  20 8c 20 f2 73 65 74 69  63 6f 6e 28 33 34 2b 54  | . .seticon(34+T|
000012d0  25 2a 32 2c 6a 25 2c 31  3c 3c 32 32 29 3a f2 73  |%*2,j%,1<<22):.s|
000012e0  65 74 69 63 6f 6e 28 33  35 2b 54 25 2a 32 2c 6a  |eticon(35+T%*2,j|
000012f0  25 2c 31 3c 3c 32 32 29  3a f2 73 65 74 69 63 6f  |%,1<<22):.setico|
00001300  6e 28 32 36 2b 54 25 2c  6a 25 2c 31 3c 3c 32 32  |n(26+T%,j%,1<<22|
00001310  29 0d 06 cc 05 ed 0d 06  d6 05 e1 0d 06 e0 04 0d  |)...............|
00001320  06 ea 12 dd 20 f2 75 70  64 61 74 65 73 74 61 74  |.... .updatestat|
00001330  65 0d 06 f4 11 f2 75 70  64 61 74 65 76 6f 6c 75  |e.....updatevolu|
00001340  6d 65 0d 06 fe 13 d6 20  72 65 61 64 76 6f 69 63  |me..... readvoic|
00001350  65 6e 75 6d 73 0d 07 08  2b d6 20 63 68 65 63 6b  |enums...+. check|
00001360  66 6f 72 64 65 61 64 76  6f 69 63 65 73 3a 4b 25  |fordeadvoices:K%|
00001370  3d 21 64 65 61 64 76 6f  69 63 65 73 66 6c 61 67  |=!deadvoicesflag|
00001380  0d 07 12 0e e3 20 54 25  3d 31 20 b8 20 38 0d 07  |..... T%=1 . 8..|
00001390  1c 2e e7 20 76 6f 69 63  65 73 25 28 54 25 2d 31  |... voices%(T%-1|
000013a0  29 3c 3e 76 6f 69 63 65  6e 75 6d 73 21 28 54 25  |)<>voicenums!(T%|
000013b0  2a 34 2d 34 29 20 8c 20  4b 25 3d b9 0d 07 26 05  |*4-4) . K%=...&.|
000013c0  ed 0d 07 30 21 c8 99 20  22 53 6f 75 6e 64 5f 53  |...0!.. "Sound_S|
000013d0  70 65 61 6b 65 72 22 20  b8 20 73 70 65 61 6b 65  |peaker" . speake|
000013e0  72 25 0d 07 3a 3d e7 20  73 70 65 61 6b 65 72 25  |r%..:=. speaker%|
000013f0  3d 31 20 80 20 6f 6c 64  73 70 65 61 6b 65 72 25  |=1 . oldspeaker%|
00001400  3c 3e 73 70 65 61 6b 65  72 25 20 8c 20 f2 73 65  |<>speaker% . .se|
00001410  74 73 65 6c 65 63 74 28  31 38 2c a3 2c a3 29 0d  |tselect(18,.,.).|
00001420  07 44 3d e7 20 73 70 65  61 6b 65 72 25 3d 32 20  |.D=. speaker%=2 |
00001430  80 20 6f 6c 64 73 70 65  61 6b 65 72 25 3c 3e 73  |. oldspeaker%<>s|
00001440  70 65 61 6b 65 72 25 20  8c 20 f2 73 65 74 73 65  |peaker% . .setse|
00001450  6c 65 63 74 28 31 38 2c  b9 2c a3 29 0d 07 4e 18  |lect(18,.,.)..N.|
00001460  6f 6c 64 73 70 65 61 6b  65 72 25 3d 73 70 65 61  |oldspeaker%=spea|
00001470  6b 65 72 25 0d 07 58 1e  c8 99 20 22 53 6f 75 6e  |ker%..X... "Soun|
00001480  64 5f 45 6e 61 62 6c 65  22 20 b8 20 61 75 64 69  |d_Enable" . audi|
00001490  6f 25 0d 07 62 37 e7 20  61 75 64 69 6f 25 3d 31  |o%..b7. audio%=1|
000014a0  20 80 20 6f 6c 64 61 75  64 69 6f 25 3c 3e 61 75  | . oldaudio%<>au|
000014b0  64 69 6f 25 20 8c 20 f2  73 65 74 73 65 6c 65 63  |dio% . .setselec|
000014c0  74 28 31 39 2c a3 2c a3  29 0d 07 6c 37 e7 20 61  |t(19,.,.)..l7. a|
000014d0  75 64 69 6f 25 3d 32 20  80 20 6f 6c 64 61 75 64  |udio%=2 . oldaud|
000014e0  69 6f 25 3c 3e 61 75 64  69 6f 25 20 8c 20 f2 73  |io%<>audio% . .s|
000014f0  65 74 73 65 6c 65 63 74  28 31 39 2c b9 2c a3 29  |etselect(19,.,.)|
00001500  0d 07 76 14 6f 6c 64 61  75 64 69 6f 25 3d 61 75  |..v.oldaudio%=au|
00001510  64 69 6f 25 0d 07 80 2b  c8 99 20 22 53 6f 75 6e  |dio%...+.. "Soun|
00001520  64 5f 43 6f 6e 66 69 67  75 72 65 22 20 b8 20 73  |d_Configure" . s|
00001530  6f 75 6e 64 31 25 2c 2c  73 6f 75 6e 64 33 25 0d  |ound1%,,sound3%.|
00001540  07 8a 34 4a 25 3d 30 3a  e3 20 54 25 3d 30 20 b8  |..4J%=0:. T%=0 .|
00001550  20 37 3a c8 99 20 22 53  6f 75 6e 64 5f 53 74 65  | 7:.. "Sound_Ste|
00001560  72 65 6f 22 2c 54 25 2b  31 2c 2d 31 32 38 20 b8  |reo",T%+1,-128 .|
00001570  2c 49 25 0d 07 94 1c e7  20 49 25 3c 3e 73 74 65  |,I%..... I%<>ste|
00001580  72 65 6f 25 28 54 25 29  20 8c 20 4a 25 3d b9 0d  |reo%(T%) . J%=..|
00001590  07 9e 05 ed 0d 07 a8 1c  4c 25 3d 28 73 6f 75 6e  |........L%=(soun|
000015a0  64 31 25 3c 3e 6f 6c 64  73 6f 75 6e 64 31 25 29  |d1%<>oldsound1%)|
000015b0  0d 07 b2 3f e7 20 73 6f  75 6e 64 31 25 3d 6f 6c  |...?. sound1%=ol|
000015c0  64 73 6f 75 6e 64 31 25  20 80 20 73 6f 75 6e 64  |dsound1% . sound|
000015d0  33 25 3d 6f 6c 64 73 6f  75 6e 64 33 25 20 80 20  |3%=oldsound3% . |
000015e0  4a 25 3d 30 20 80 20 4b  25 3d 30 20 8c 20 e1 0d  |J%=0 . K%=0 . ..|
000015f0  07 bc 16 6f 6c 64 73 6f  75 6e 64 31 25 3d 73 6f  |...oldsound1%=so|
00001600  75 6e 64 31 25 0d 07 c6  16 6f 6c 64 73 6f 75 6e  |und1%....oldsoun|
00001610  64 33 25 3d 73 6f 75 6e  64 33 25 0d 07 d0 1c e7  |d3%=sound3%.....|
00001620  4a 25 20 84 20 4c 25 20  8c 20 f2 75 70 64 61 74  |J% . L% . .updat|
00001630  65 73 74 65 72 65 6f 0d  07 da 17 e7 4b 25 20 8c  |estereo.....K% .|
00001640  20 f2 75 70 64 61 74 65  76 6f 69 63 65 73 0d 07  | .updatevoices..|
00001650  e4 10 c8 8e 20 73 6f 75  6e 64 31 25 20 ca 0d 07  |.... sound1% ...|
00001660  ee 19 c9 20 31 3a f2 73  65 74 73 65 6c 65 63 74  |... 1:.setselect|
00001670  28 39 2c b9 2c b9 29 0d  07 f8 1a c9 20 32 3a f2  |(9,.,.)..... 2:.|
00001680  73 65 74 73 65 6c 65 63  74 28 31 30 2c b9 2c b9  |setselect(10,.,.|
00001690  29 0d 08 02 1a c9 20 33  3a f2 73 65 74 73 65 6c  |)..... 3:.setsel|
000016a0  65 63 74 28 31 31 2c b9  2c b9 29 0d 08 0c 1a c9  |ect(11,.,.).....|
000016b0  20 34 3a f2 73 65 74 73  65 6c 65 63 74 28 31 31  | 4:.setselect(11|
000016c0  2c b9 2c b9 29 0d 08 16  1a c9 20 35 3a f2 73 65  |,.,.)..... 5:.se|
000016d0  74 73 65 6c 65 63 74 28  31 32 2c b9 2c b9 29 0d  |tselect(12,.,.).|
000016e0  08 20 1a c9 20 36 3a f2  73 65 74 73 65 6c 65 63  |. .. 6:.setselec|
000016f0  74 28 31 32 2c b9 2c b9  29 0d 08 2a 1a c9 20 37  |t(12,.,.)..*.. 7|
00001700  3a f2 73 65 74 73 65 6c  65 63 74 28 31 32 2c b9  |:.setselect(12,.|
00001710  2c b9 29 0d 08 34 1a c9  20 38 3a f2 73 65 74 73  |,.)..4.. 8:.sets|
00001720  65 6c 65 63 74 28 31 32  2c b9 2c b9 29 0d 08 3e  |elect(12,.,.)..>|
00001730  05 cb 0d 08 48 10 c8 8e  20 73 6f 75 6e 64 33 25  |....H... sound3%|
00001740  20 ca 0d 08 52 1a c9 20  32 34 3a f2 73 65 74 73  | ...R.. 24:.sets|
00001750  65 6c 65 63 74 28 34 2c  b9 2c b9 29 0d 08 5c 1a  |elect(4,.,.)..\.|
00001760  c9 20 33 34 3a f2 73 65  74 73 65 6c 65 63 74 28  |. 34:.setselect(|
00001770  37 2c b9 2c b9 29 0d 08  66 1a c9 20 34 38 3a f2  |7,.,.)..f.. 48:.|
00001780  73 65 74 73 65 6c 65 63  74 28 35 2c b9 2c b9 29  |setselect(5,.,.)|
00001790  0d 08 70 1a c9 20 39 36  3a f2 73 65 74 73 65 6c  |..p.. 96:.setsel|
000017a0  65 63 74 28 36 2c b9 2c  b9 29 0d 08 7a 05 7f 0d  |ect(6,.,.)..z...|
000017b0  08 84 16 f2 73 65 74 6f  74 68 65 72 28 73 6f 75  |....setother(sou|
000017c0  6e 64 33 25 29 0d 08 8e  15 f2 73 65 74 73 65 6c  |nd3%).....setsel|
000017d0  65 63 74 28 38 2c b9 2c  b9 29 0d 08 98 05 cb 0d  |ect(8,.,.)......|
000017e0  08 a2 05 e1 0d 08 ac 04  0d 08 b6 13 dd 20 f2 73  |............. .s|
000017f0  65 74 6f 74 68 65 72 28  6b 25 29 0d 08 c0 1e 21  |etother(k%)....!|
00001800  62 6c 6f 63 6b 25 3d 77  69 6e 64 6f 77 25 3a 62  |block%=window%:b|
00001810  6c 6f 63 6b 25 21 34 3d  33 0d 08 ca 22 c8 99 20  |lock%!4=3...".. |
00001820  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001830  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 08 d4 10 74  |te",,block%....t|
00001840  25 3d 62 6c 6f 63 6b 25  21 32 38 0d 08 de 10 24  |%=block%!28....$|
00001850  74 25 3d c3 6b 25 2b 22  75 73 22 0d 08 e8 13 f2  |t%=.k%+"us".....|
00001860  73 65 74 69 63 6f 6e 28  33 2c 30 2c 30 29 0d 08  |seticon(3,0,0)..|
00001870  f2 05 e1 0d 08 fc 04 0d  09 06 0f dd 20 a4 67 65  |............ .ge|
00001880  74 6f 74 68 65 72 0d 09  10 1e 21 62 6c 6f 63 6b  |tother....!block|
00001890  25 3d 77 69 6e 64 6f 77  25 3a 62 6c 6f 63 6b 25  |%=window%:block%|
000018a0  21 34 3d 33 0d 09 1a 22  c8 99 20 22 57 69 6d 70  |!4=3...".. "Wimp|
000018b0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000018c0  62 6c 6f 63 6b 25 0d 09  24 10 74 25 3d 62 6c 6f  |block%..$.t%=blo|
000018d0  63 6b 25 21 32 38 0d 09  2e 14 3d bb 28 c0 24 74  |ck%!28....=.(.$t|
000018e0  25 2c a9 24 74 25 2d 32  29 29 0d 09 38 04 0d 09  |%,.$t%-2))..8...|
000018f0  42 1a dd 20 f2 73 65 74  73 65 6c 65 63 74 28 69  |B.. .setselect(i|
00001900  25 2c 73 25 2c 66 25 29  0d 09 4c 22 f2 73 65 74  |%,s%,f%)..L".set|
00001910  69 63 6f 6e 28 69 25 2c  73 25 20 80 28 31 3c 3c  |icon(i%,s% .(1<<|
00001920  32 31 29 2c 31 3c 3c 32  31 29 0d 09 56 1b e7 20  |21),1<<21)..V.. |
00001930  69 25 3d 38 20 8c 20 f2  73 68 61 64 65 6f 74 68  |i%=8 . .shadeoth|
00001940  65 72 28 a3 29 0d 09 60  30 e7 20 69 25 3d 34 20  |er(.)..`0. i%=4 |
00001950  84 20 69 25 3d 37 20 84  20 69 25 3d 35 20 84 20  |. i%=7 . i%=5 . |
00001960  69 25 3d 36 20 8c 20 f2  73 68 61 64 65 6f 74 68  |i%=6 . .shadeoth|
00001970  65 72 28 b9 29 0d 09 6a  0e e7 20 ac 20 66 25 20  |er(.)..j.. . f% |
00001980  8c 20 e1 0d 09 74 0b c8  8e 20 69 25 20 ca 0d 09  |. ...t... i% ...|
00001990  7e 0f c9 20 34 2c 37 2c  35 2c 36 2c 38 0d 09 88  |~.. 4,7,5,6,8...|
000019a0  22 20 20 20 e7 20 69 25  3c 3e 34 20 f2 73 65 74  |"   . i%<>4 .set|
000019b0  69 63 6f 6e 28 34 2c 30  2c 31 3c 3c 32 31 29 0d  |icon(4,0,1<<21).|
000019c0  09 92 22 20 20 20 e7 20  69 25 3c 3e 37 20 f2 73  |.."   . i%<>7 .s|
000019d0  65 74 69 63 6f 6e 28 37  2c 30 2c 31 3c 3c 32 31  |eticon(7,0,1<<21|
000019e0  29 0d 09 9c 22 20 20 20  e7 20 69 25 3c 3e 35 20  |)..."   . i%<>5 |
000019f0  f2 73 65 74 69 63 6f 6e  28 35 2c 30 2c 31 3c 3c  |.seticon(5,0,1<<|
00001a00  32 31 29 0d 09 a6 22 20  20 20 e7 20 69 25 3c 3e  |21)..."   . i%<>|
00001a10  36 20 f2 73 65 74 69 63  6f 6e 28 36 2c 30 2c 31  |6 .seticon(6,0,1|
00001a20  3c 3c 32 31 29 0d 09 b0  22 20 20 20 e7 20 69 25  |<<21)..."   . i%|
00001a30  3c 3e 38 20 f2 73 65 74  69 63 6f 6e 28 38 2c 30  |<>8 .seticon(8,0|
00001a40  2c 31 3c 3c 32 31 29 0d  09 ba 10 c9 20 39 2c 31  |,1<<21)..... 9,1|
00001a50  30 2c 31 31 2c 31 32 0d  09 c4 22 20 20 20 e7 20  |0,11,12..."   . |
00001a60  69 25 3c 3e 39 20 f2 73  65 74 69 63 6f 6e 28 39  |i%<>9 .seticon(9|
00001a70  2c 30 2c 31 3c 3c 32 31  29 0d 09 ce 24 20 20 20  |,0,1<<21)...$   |
00001a80  e7 20 69 25 3c 3e 31 30  20 f2 73 65 74 69 63 6f  |. i%<>10 .setico|
00001a90  6e 28 31 30 2c 30 2c 31  3c 3c 32 31 29 0d 09 d8  |n(10,0,1<<21)...|
00001aa0  24 20 20 20 e7 20 69 25  3c 3e 31 31 20 f2 73 65  |$   . i%<>11 .se|
00001ab0  74 69 63 6f 6e 28 31 31  2c 30 2c 31 3c 3c 32 31  |ticon(11,0,1<<21|
00001ac0  29 0d 09 e2 24 20 20 20  e7 20 69 25 3c 3e 31 32  |)...$   . i%<>12|
00001ad0  20 f2 73 65 74 69 63 6f  6e 28 31 32 2c 30 2c 31  | .seticon(12,0,1|
00001ae0  3c 3c 32 31 29 0d 09 ec  05 cb 0d 09 f6 05 e1 0d  |<<21)...........|
00001af0  0a 00 04 0d 0a 0a 18 dd  20 f2 73 65 74 69 63 6f  |........ .setico|
00001b00  6e 28 69 25 2c 65 25 2c  63 25 29 0d 0a 14 1f 21  |n(i%,e%,c%)....!|
00001b10  62 6c 6f 63 6b 25 3d 77  69 6e 64 6f 77 25 3a 62  |block%=window%:b|
00001b20  6c 6f 63 6b 25 21 34 3d  69 25 0d 0a 1e 1c 62 6c  |lock%!4=i%....bl|
00001b30  6f 63 6b 25 21 38 3d 65  25 3a 62 6c 6f 63 6b 25  |ock%!8=e%:block%|
00001b40  21 31 32 3d 63 25 0d 0a  28 22 c8 99 20 22 57 69  |!12=c%..(".. "Wi|
00001b50  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00001b60  2c 2c 62 6c 6f 63 6b 25  0d 0a 32 05 e1 0d 0a 3c  |,,block%..2....<|
00001b70  04 0d 0a 46 14 dd 20 a4  67 65 74 73 65 6c 65 63  |...F.. .getselec|
00001b80  74 28 69 25 29 0d 0a 50  1f 21 62 6c 6f 63 6b 25  |t(i%)..P.!block%|
00001b90  3d 77 69 6e 64 6f 77 25  3a 62 6c 6f 63 6b 25 21  |=window%:block%!|
00001ba0  34 3d 69 25 0d 0a 5a 22  c8 99 20 22 57 69 6d 70  |4=i%..Z".. "Wimp|
00001bb0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001bc0  62 6c 6f 63 6b 25 0d 0a  64 1a 74 25 3d 62 6c 6f  |block%..d.t%=blo|
00001bd0  63 6b 25 21 32 34 20 80  20 28 31 3c 3c 32 31 29  |ck%!24 . (1<<21)|
00001be0  0d 0a 6e 0c 3d 28 74 25  3c 3e 30 29 0d 0a 78 04  |..n.=(t%<>0)..x.|
00001bf0  0d 0a 82 15 dd 20 f2 73  68 61 64 65 6f 74 68 65  |..... .shadeothe|
00001c00  72 28 73 25 29 0d 0a 8c  14 e7 20 73 25 3d 73 68  |r(s%)..... s%=sh|
00001c10  61 64 65 64 25 20 8c 20  e1 0d 0a 96 22 f2 73 65  |aded% . ....".se|
00001c20  74 69 63 6f 6e 28 31 34  2c 73 25 20 80 28 31 3c  |ticon(14,s% .(1<|
00001c30  3c 32 32 29 2c 31 3c 3c  32 32 29 0d 0a a0 21 f2  |<22),1<<22)...!.|
00001c40  73 65 74 69 63 6f 6e 28  32 2c 73 25 20 80 28 31  |seticon(2,s% .(1|
00001c50  3c 3c 32 32 29 2c 31 3c  3c 32 32 29 0d 0a aa 21  |<<22),1<<22)...!|
00001c60  f2 73 65 74 69 63 6f 6e  28 33 2c 73 25 20 80 28  |.seticon(3,s% .(|
00001c70  31 3c 3c 32 32 29 2c 31  3c 3c 32 32 29 0d 0a b4  |1<<22),1<<22)...|
00001c80  0e 73 68 61 64 65 64 25  3d 73 25 0d 0a be 05 e1  |.shaded%=s%.....|
00001c90  0d 0a c8 04 0d 0a d2 10  dd 20 f2 63 6c 69 63 6b  |......... .click|
00001ca0  28 70 25 29 0d 0a dc 0e  c8 8e 20 70 25 21 31 32  |(p%)...... p%!12|
00001cb0  20 ca 0d 0a e6 08 c9 20  2d 32 0d 0a f0 11 20 20  | ...... -2....  |
00001cc0  20 e7 20 70 25 21 38 3d  32 20 8c 0d 0a fa 1b 20  | . p%!8=2 ..... |
00001cd0  20 20 20 20 20 f2 69 63  6f 6e 62 61 72 6d 65 6e  |     .iconbarmen|
00001ce0  75 28 21 70 25 29 0d 0b  04 08 20 20 20 cc 0d 0b  |u(!p%)....   ...|
00001cf0  0e 19 20 20 20 20 20 20  21 62 6c 6f 63 6b 25 3d  |..      !block%=|
00001d00  77 69 6e 64 6f 77 25 0d  0b 18 29 20 20 20 20 20  |window%...)     |
00001d10  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00001d20  64 6f 77 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |dowInfo",,block%|
00001d30  0d 0b 22 16 20 20 20 20  20 20 62 6c 6f 63 6b 25  |..".      block%|
00001d40  21 32 38 3d 2d 31 0d 0b  2c 26 20 20 20 20 20 20  |!28=-1..,&      |
00001d50  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00001d60  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 0b 36 19  |dow",,block%..6.|
00001d70  20 20 20 20 20 20 69 64  6c 65 25 3d 69 64 6c 65  |      idle%=idle|
00001d80  25 20 84 20 31 0d 0b 40  1d 20 20 20 20 20 20 6d  |% . 1..@.      m|
00001d90  61 73 6b 25 3d 6d 61 73  6b 25 20 80 20 28 ac 20  |ask%=mask% . (. |
00001da0  31 29 0d 0b 4a 08 20 20  20 cd 0d 0b 54 0d c9 20  |1)..J.   ...T.. |
00001db0  77 69 6e 64 6f 77 25 0d  0b 5e 11 20 20 20 e7 20  |window%..^.   . |
00001dc0  70 25 21 38 3d 32 20 8c  0d 0b 68 1d 20 20 20 20  |p%!8=2 ...h.    |
00001dd0  20 20 f2 6d 61 69 6e 6d  65 6e 75 28 21 70 25 2c  |  .mainmenu(!p%,|
00001de0  70 25 21 34 29 0d 0b 72  08 20 20 20 cc 0d 0b 7c  |p%!4)..r.   ...||
00001df0  22 20 20 20 20 20 20 f2  63 68 61 6e 67 65 73 74  |"      .changest|
00001e00  61 74 65 28 70 25 21 31  36 2c 70 25 21 38 29 0d  |ate(p%!16,p%!8).|
00001e10  0b 86 08 20 20 20 cd 0d  0b 90 0f c9 20 76 6f 69  |...   ...... voi|
00001e20  63 65 77 69 6e 25 0d 0b  9a 11 20 20 20 e7 20 70  |cewin%....   . p|
00001e30  25 21 38 3d 32 20 8c 0d  0b a4 1d 20 20 20 20 20  |%!8=2 .....     |
00001e40  20 f2 6d 61 69 6e 6d 65  6e 75 28 21 70 25 2c 70  | .mainmenu(!p%,p|
00001e50  25 21 34 29 0d 0b ae 08  20 20 20 cc 0d 0b b8 3f  |%!4)....   ....?|
00001e60  20 20 20 20 20 20 e7 20  70 25 21 31 36 3e 3d 31  |      . p%!16>=1|
00001e70  30 20 80 20 70 25 21 31  36 3c 3d 31 37 20 8c 20  |0 . p%!16<=17 . |
00001e80  f2 63 68 61 6e 67 65 76  6f 69 63 65 28 70 25 21  |.changevoice(p%!|
00001e90  31 36 2d 31 30 2c 70 25  21 38 29 0d 0b c2 3a 20  |16-10,p%!8)...: |
00001ea0  20 20 20 20 20 e7 20 70  25 21 31 36 3e 3d 32 20  |     . p%!16>=2 |
00001eb0  80 20 70 25 21 31 36 3c  3d 39 20 8c 20 f2 62 65  |. p%!16<=9 . .be|
00001ec0  65 70 76 6f 69 63 65 28  70 25 21 31 36 2d 31 2c  |epvoice(p%!16-1,|
00001ed0  70 25 21 38 29 0d 0b cc  08 20 20 20 cd 0d 0b d6  |p%!8)....   ....|
00001ee0  11 c9 20 74 72 61 63 6b  65 72 77 69 6e 25 0d 0b  |.. trackerwin%..|
00001ef0  e0 11 20 20 20 e7 20 70  25 21 38 3d 32 20 8c 0d  |..   . p%!8=2 ..|
00001f00  0b ea 1d 20 20 20 20 20  20 f2 6d 61 69 6e 6d 65  |...      .mainme|
00001f10  6e 75 28 21 70 25 2c 70  25 21 34 29 0d 0b f4 08  |nu(!p%,p%!4)....|
00001f20  20 20 20 cc 0d 0b fe 25  20 20 20 20 20 20 f2 68  |   ....%      .h|
00001f30  61 6e 64 6c 65 74 72 61  63 6b 65 72 77 69 6e 64  |andletrackerwind|
00001f40  6f 77 28 70 25 21 31 36  29 0d 0c 08 08 20 20 20  |ow(p%!16)....   |
00001f50  cd 0d 0c 12 05 cb 0d 0c  1c 05 e1 0d 0c 26 04 0d  |.............&..|
00001f60  0c 30 18 dd 20 f2 62 65  65 70 76 6f 69 63 65 28  |.0.. .beepvoice(|
00001f70  63 68 25 2c 62 25 29 0d  0c 3a 18 e7 20 63 68 25  |ch%,b%)..:.. ch%|
00001f80  3e 6f 6c 64 73 6f 75 6e  64 31 25 20 8c 20 e1 0d  |>oldsound1% . ..|
00001f90  0c 44 17 e7 20 62 25 3c  3e 31 20 80 20 62 25 3c  |.D.. b%<>1 . b%<|
00001fa0  3e 34 20 8c 20 e1 0d 0c  4e 1e e7 20 62 25 3d 34  |>4 . ...N.. b%=4|
00001fb0  20 8c 20 62 25 3d 31 30  30 20 8b 20 62 25 3d 26  | . b%=100 . b%=&|
00001fc0  32 35 30 30 0d 0c 58 13  d4 20 63 68 25 2c 2d 31  |2500..X.. ch%,-1|
00001fd0  35 2c 62 25 2c 31 30 0d  0c 62 05 e1 0d 0c 6c 04  |5,b%,10..b....l.|
00001fe0  0d 0c 76 1a dd 20 f2 63  68 61 6e 67 65 76 6f 69  |..v.. .changevoi|
00001ff0  63 65 28 63 68 25 2c 62  25 29 0d 0c 80 17 e7 20  |ce(ch%,b%)..... |
00002000  62 25 3c 3e 31 20 80 20  62 25 3c 3e 34 20 8c 20  |b%<>1 . b%<>4 . |
00002010  e1 0d 0c 8a 19 e7 20 62  25 3d 31 20 8c 20 74 25  |...... b%=1 . t%|
00002020  3d 2d 31 20 8b 20 74 25  3d 31 0d 0c 94 27 61 25  |=-1 . t%=1...'a%|
00002030  3d 76 6f 69 63 65 73 25  28 63 68 25 29 2b 74 25  |=voices%(ch%)+t%|
00002040  3a c8 95 20 a4 76 6f 69  63 65 62 61 64 28 61 25  |:.. .voicebad(a%|
00002050  29 0d 0c 9e 19 61 25 2b  3d 74 25 3a e7 20 61 25  |)....a%+=t%:. a%|
00002060  3c 30 20 8c 20 61 25 3d  33 32 0d 0c a8 12 e7 20  |<0 . a%=32..... |
00002070  61 25 3e 33 32 20 8c 20  61 25 3d 30 0d 0c b2 05  |a%>32 . a%=0....|
00002080  ce 0d 0c bc 18 76 6f 69  63 65 6e 75 6d 73 21 28  |.....voicenums!(|
00002090  63 68 25 2a 34 29 3d 61  25 0d 0c c6 23 c8 99 20  |ch%*4)=a%...#.. |
000020a0  22 53 6f 75 6e 64 5f 41  74 74 61 63 68 56 6f 69  |"Sound_AttachVoi|
000020b0  63 65 22 2c 63 68 25 2b  31 2c 61 25 0d 0c d0 11  |ce",ch%+1,a%....|
000020c0  f2 75 70 64 61 74 65 76  6f 69 63 65 73 0d 0c da  |.updatevoices...|
000020d0  05 e1 0d 0c e4 04 0d 0c  ee 13 dd 20 a4 76 6f 69  |........... .voi|
000020e0  63 65 62 61 64 28 61 25  29 0d 0c f8 0f e7 20 61  |cebad(a%)..... a|
000020f0  25 3d 30 20 8c 20 3d a3  0d 0d 02 29 c8 99 20 22  |%=0 . =....).. "|
00002100  58 53 6f 75 6e 64 5f 49  6e 73 74 61 6c 6c 56 6f  |XSound_InstallVo|
00002110  69 63 65 22 2c 30 2c 61  25 20 b8 20 4a 25 2c 4b  |ice",0,a% . J%,K|
00002120  25 0d 0d 0c 0f e7 20 4a  25 3d 30 20 8c 20 3d b9  |%..... J%=0 . =.|
00002130  0d 0d 16 06 3d a3 0d 0d  20 04 0d 0d 2a 19 dd 20  |....=... ...*.. |
00002140  f2 63 68 61 6e 67 65 73  74 61 74 65 28 69 25 2c  |.changestate(i%,|
00002150  62 25 29 0d 0d 34 0b c8  8e 20 69 25 20 ca 0d 0d  |b%)..4... i% ...|
00002160  3e 20 c9 20 34 2c 37 2c  35 2c 36 3a f2 73 65 74  |> . 4,7,5,6:.set|
00002170  73 65 6c 65 63 74 28 69  25 2c b9 2c a3 29 0d 0d  |select(i%,.,.)..|
00002180  48 1a c9 20 38 3a f2 73  65 74 73 65 6c 65 63 74  |H.. 8:.setselect|
00002190  28 69 25 2c b9 2c a3 29  0d 0d 52 23 c9 20 39 2c  |(i%,.,.)..R#. 9,|
000021a0  31 30 2c 31 31 2c 31 32  3a f2 73 65 74 73 65 6c  |10,11,12:.setsel|
000021b0  65 63 74 28 69 25 2c b9  2c a3 29 0d 0d 5c 05 cb  |ect(i%,.,.)..\..|
000021c0  0d 0d 66 0b c8 8e 20 69  25 20 ca 0d 0d 70 2f c9  |..f... i% ...p/.|
000021d0  20 34 3a c8 99 20 22 53  6f 75 6e 64 5f 43 6f 6e  | 4:.. "Sound_Con|
000021e0  66 69 67 75 72 65 22 2c  2c 2c 32 34 3a 6f 6c 64  |figure",,,24:old|
000021f0  73 6f 75 6e 64 33 25 3d  32 34 0d 0d 7a 2f c9 20  |sound3%=24..z/. |
00002200  37 3a c8 99 20 22 53 6f  75 6e 64 5f 43 6f 6e 66  |7:.. "Sound_Conf|
00002210  69 67 75 72 65 22 2c 2c  2c 33 34 3a 6f 6c 64 73  |igure",,,34:olds|
00002220  6f 75 6e 64 33 25 3d 33  34 0d 0d 84 2f c9 20 35  |ound3%=34.../. 5|
00002230  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 66 69  |:.. "Sound_Confi|
00002240  67 75 72 65 22 2c 2c 2c  34 38 3a 6f 6c 64 73 6f  |gure",,,48:oldso|
00002250  75 6e 64 33 25 3d 34 38  0d 0d 8e 2f c9 20 36 3a  |und3%=48.../. 6:|
00002260  c8 99 20 22 53 6f 75 6e  64 5f 43 6f 6e 66 69 67  |.. "Sound_Config|
00002270  75 72 65 22 2c 2c 2c 39  36 3a 6f 6c 64 73 6f 75  |ure",,,96:oldsou|
00002280  6e 64 33 25 3d 39 36 0d  0d 98 3e c9 20 38 3a 6f  |nd3%=96...>. 8:o|
00002290  6c 64 73 6f 75 6e 64 33  25 3d a4 67 65 74 6f 74  |ldsound3%=.getot|
000022a0  68 65 72 3a c8 99 20 22  53 6f 75 6e 64 5f 43 6f  |her:.. "Sound_Co|
000022b0  6e 66 69 67 75 72 65 22  2c 2c 2c 6f 6c 64 73 6f  |nfigure",,,oldso|
000022c0  75 6e 64 33 25 0d 0d a2  39 c9 20 39 3a c8 99 20  |und3%...9. 9:.. |
000022d0  22 53 6f 75 6e 64 5f 43  6f 6e 66 69 67 75 72 65  |"Sound_Configure|
000022e0  22 2c 31 3a 6f 6c 64 73  6f 75 6e 64 31 25 3d 31  |",1:oldsound1%=1|
000022f0  3a f2 75 70 64 61 74 65  73 74 65 72 65 6f 0d 0d  |:.updatestereo..|
00002300  ac 3a c9 20 31 30 3a c8  99 20 22 53 6f 75 6e 64  |.:. 10:.. "Sound|
00002310  5f 43 6f 6e 66 69 67 75  72 65 22 2c 32 3a 6f 6c  |_Configure",2:ol|
00002320  64 73 6f 75 6e 64 31 25  3d 32 3a f2 75 70 64 61  |dsound1%=2:.upda|
00002330  74 65 73 74 65 72 65 6f  0d 0d b6 3a c9 20 31 31  |testereo...:. 11|
00002340  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 66 69  |:.. "Sound_Confi|
00002350  67 75 72 65 22 2c 34 3a  6f 6c 64 73 6f 75 6e 64  |gure",4:oldsound|
00002360  31 25 3d 34 3a f2 75 70  64 61 74 65 73 74 65 72  |1%=4:.updatester|
00002370  65 6f 0d 0d c0 3a c9 20  31 32 3a c8 99 20 22 53  |eo...:. 12:.. "S|
00002380  6f 75 6e 64 5f 43 6f 6e  66 69 67 75 72 65 22 2c  |ound_Configure",|
00002390  38 3a 6f 6c 64 73 6f 75  6e 64 31 25 3d 38 3a f2  |8:oldsound1%=8:.|
000023a0  75 70 64 61 74 65 73 74  65 72 65 6f 0d 0d ca 63  |updatestereo...c|
000023b0  c9 20 31 38 3a e7 20 a4  67 65 74 73 65 6c 65 63  |. 18:. .getselec|
000023c0  74 28 31 38 29 20 8c 20  c8 99 20 22 53 6f 75 6e  |t(18) . .. "Soun|
000023d0  64 5f 53 70 65 61 6b 65  72 22 2c 32 3a 6f 6c 64  |d_Speaker",2:old|
000023e0  73 70 65 61 6b 65 72 25  3d 32 20 8b 20 c8 99 20  |speaker%=2 . .. |
000023f0  22 53 6f 75 6e 64 5f 53  70 65 61 6b 65 72 22 2c  |"Sound_Speaker",|
00002400  31 3a 6f 6c 64 73 70 65  61 6b 65 72 25 3d 31 0d  |1:oldspeaker%=1.|
00002410  0d d4 5d c9 20 31 39 3a  e7 20 a4 67 65 74 73 65  |..]. 19:. .getse|
00002420  6c 65 63 74 28 31 39 29  20 8c 20 c8 99 20 22 53  |lect(19) . .. "S|
00002430  6f 75 6e 64 5f 45 6e 61  62 6c 65 22 2c 32 3a 6f  |ound_Enable",2:o|
00002440  6c 64 61 75 64 69 6f 25  3d 32 20 8b 20 c8 99 20  |ldaudio%=2 . .. |
00002450  22 53 6f 75 6e 64 5f 45  6e 61 62 6c 65 22 2c 31  |"Sound_Enable",1|
00002460  3a 6f 6c 64 61 75 64 69  6f 25 3d 31 0d 0d de 3a  |:oldaudio%=1...:|
00002470  c9 20 32 32 3a 21 62 6c  6f 63 6b 25 3d 76 6f 69  |. 22:!block%=voi|
00002480  63 65 77 69 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |cewin%:.. "Wimp_|
00002490  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
000024a0  62 6c 6f 63 6b 25 0d 0d  e8 30 20 20 20 62 6c 6f  |block%...0   blo|
000024b0  63 6b 25 21 32 38 3d 2d  31 3a c8 99 20 22 57 69  |ck%!28=-1:.. "Wi|
000024c0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000024d0  62 6c 6f 63 6b 25 0d 0d  f2 29 20 20 20 6d 61 73  |block%...)   mas|
000024e0  6b 25 3d 6d 61 73 6b 25  20 80 20 28 ac 31 29 3a  |k%=mask% . (.1):|
000024f0  69 64 6c 65 25 3d 69 64  6c 65 25 20 84 20 34 0d  |idle%=idle% . 4.|
00002500  0d fc 0f 20 20 20 e7 20  62 25 3d 31 20 8c 0d 0e  |...   . b%=1 ...|
00002510  06 37 20 20 20 20 20 20  21 62 6c 6f 63 6b 25 3d  |.7      !block%=|
00002520  77 69 6e 64 6f 77 25 3a  c8 99 20 22 57 69 6d 70  |window%:.. "Wimp|
00002530  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00002540  6c 6f 63 6b 25 0d 0e 10  1c 20 20 20 20 20 20 69  |lock%....      i|
00002550  64 6c 65 25 3d 69 64 6c  65 25 20 80 20 28 ac 31  |dle%=idle% . (.1|
00002560  29 0d 0e 1a 08 20 20 20  cd 0d 0e 24 3c c9 20 32  |)....   ...$<. 2|
00002570  33 3a 21 62 6c 6f 63 6b  25 3d 74 72 61 63 6b 65  |3:!block%=tracke|
00002580  72 77 69 6e 25 3a c8 99  20 22 57 69 6d 70 5f 47  |rwin%:.. "Wimp_G|
00002590  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 62  |etWindowInfo",,b|
000025a0  6c 6f 63 6b 25 0d 0e 2e  30 20 20 20 62 6c 6f 63  |lock%...0   bloc|
000025b0  6b 25 21 32 38 3d 2d 31  3a c8 99 20 22 57 69 6d  |k%!28=-1:.. "Wim|
000025c0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000025d0  6c 6f 63 6b 25 0d 0e 38  29 20 20 20 6d 61 73 6b  |lock%..8)   mask|
000025e0  25 3d 6d 61 73 6b 25 20  80 20 28 ac 31 29 3a 69  |%=mask% . (.1):i|
000025f0  64 6c 65 25 3d 69 64 6c  65 25 20 84 20 32 0d 0e  |dle%=idle% . 2..|
00002600  42 0f 20 20 20 e7 20 62  25 3d 31 20 8c 0d 0e 4c  |B.   . b%=1 ...L|
00002610  37 20 20 20 20 20 20 21  62 6c 6f 63 6b 25 3d 77  |7      !block%=w|
00002620  69 6e 64 6f 77 25 3a c8  99 20 22 57 69 6d 70 5f  |indow%:.. "Wimp_|
00002630  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00002640  6f 63 6b 25 0d 0e 56 1c  20 20 20 20 20 20 69 64  |ock%..V.      id|
00002650  6c 65 25 3d 69 64 6c 65  25 20 80 20 28 ac 31 29  |le%=idle% . (.1)|
00002660  0d 0e 60 08 20 20 20 cd  0d 0e 6a 13 c9 20 31 34  |..`.   ...j.. 14|
00002670  3a f2 6f 74 68 65 72 64  6f 77 6e 0d 0e 74 10 c9  |:.otherdown..t..|
00002680  20 32 3a f2 6f 74 68 65  72 75 70 0d 0e 7e 1d c9  | 2:.otherup..~..|
00002690  20 33 34 2c 33 36 2c 33  38 2c 34 30 2c 34 32 2c  | 34,36,38,40,42,|
000026a0  34 34 2c 34 36 2c 34 38  0d 0e 88 13 20 20 20 74  |44,46,48....   t|
000026b0  25 3d 28 69 25 2d 33 34  29 2f 32 0d 0e 92 1c 20  |%=(i%-34)/2.... |
000026c0  20 20 c8 8e 20 3f 73 74  65 72 65 6f 70 74 72 73  |  .. ?stereoptrs|
000026d0  25 28 74 25 29 20 ca 0d  0e 9c 29 20 20 20 20 20  |%(t%) ....)     |
000026e0  20 c9 20 35 30 3a c8 a2  20 74 25 2b 31 2c 2d 31  | . 50:.. t%+1,-1|
000026f0  32 37 3a f2 75 70 64 61  74 65 73 74 65 72 65 6f  |27:.updatestereo|
00002700  0d 0e a6 28 20 20 20 20  20 20 c9 20 35 31 3a c8  |...(      . 51:.|
00002710  a2 20 74 25 2b 31 2c 2d  37 39 3a f2 75 70 64 61  |. t%+1,-79:.upda|
00002720  74 65 73 74 65 72 65 6f  0d 0e b0 28 20 20 20 20  |testereo...(    |
00002730  20 20 c9 20 35 32 3a c8  a2 20 74 25 2b 31 2c 2d  |  . 52:.. t%+1,-|
00002740  34 37 3a f2 75 70 64 61  74 65 73 74 65 72 65 6f  |47:.updatestereo|
00002750  0d 0e ba 26 20 20 20 20  20 20 c9 20 35 33 3a c8  |...&      . 53:.|
00002760  a2 20 74 25 2b 31 2c 30  3a f2 75 70 64 61 74 65  |. t%+1,0:.update|
00002770  73 74 65 72 65 6f 0d 0e  c4 27 20 20 20 20 20 20  |stereo...'      |
00002780  c9 20 35 34 3a c8 a2 20  74 25 2b 31 2c 34 37 3a  |. 54:.. t%+1,47:|
00002790  f2 75 70 64 61 74 65 73  74 65 72 65 6f 0d 0e ce  |.updatestereo...|
000027a0  27 20 20 20 20 20 20 c9  20 35 35 3a c8 a2 20 74  |'      . 55:.. t|
000027b0  25 2b 31 2c 37 39 3a f2  75 70 64 61 74 65 73 74  |%+1,79:.updatest|
000027c0  65 72 65 6f 0d 0e d8 08  20 20 20 cb 0d 0e e2 1d  |ereo....   .....|
000027d0  c9 20 33 35 2c 33 37 2c  33 39 2c 34 31 2c 34 33  |. 35,37,39,41,43|
000027e0  2c 34 35 2c 34 37 2c 34  39 0d 0e ec 13 20 20 20  |,45,47,49....   |
000027f0  74 25 3d 28 69 25 2d 33  35 29 2f 32 0d 0e f6 1c  |t%=(i%-35)/2....|
00002800  20 20 20 c8 8e 20 3f 73  74 65 72 65 6f 70 74 72  |   .. ?stereoptr|
00002810  73 25 28 74 25 29 20 ca  0d 0f 00 28 20 20 20 20  |s%(t%) ....(    |
00002820  20 20 c9 20 34 39 3a c8  a2 20 74 25 2b 31 2c 2d  |  . 49:.. t%+1,-|
00002830  37 39 3a f2 75 70 64 61  74 65 73 74 65 72 65 6f  |79:.updatestereo|
00002840  0d 0f 0a 28 20 20 20 20  20 20 c9 20 35 30 3a c8  |...(      . 50:.|
00002850  a2 20 74 25 2b 31 2c 2d  34 37 3a f2 75 70 64 61  |. t%+1,-47:.upda|
00002860  74 65 73 74 65 72 65 6f  0d 0f 14 26 20 20 20 20  |testereo...&    |
00002870  20 20 c9 20 35 31 3a c8  a2 20 74 25 2b 31 2c 30  |  . 51:.. t%+1,0|
00002880  3a f2 75 70 64 61 74 65  73 74 65 72 65 6f 0d 0f  |:.updatestereo..|
00002890  1e 27 20 20 20 20 20 20  c9 20 35 32 3a c8 a2 20  |.'      . 52:.. |
000028a0  74 25 2b 31 2c 34 37 3a  f2 75 70 64 61 74 65 73  |t%+1,47:.updates|
000028b0  74 65 72 65 6f 0d 0f 28  27 20 20 20 20 20 20 c9  |tereo..('      .|
000028c0  20 35 33 3a c8 a2 20 74  25 2b 31 2c 37 39 3a f2  | 53:.. t%+1,79:.|
000028d0  75 70 64 61 74 65 73 74  65 72 65 6f 0d 0f 32 28  |updatestereo..2(|
000028e0  20 20 20 20 20 20 c9 20  35 34 3a c8 a2 20 74 25  |      . 54:.. t%|
000028f0  2b 31 2c 31 32 37 3a f2  75 70 64 61 74 65 73 74  |+1,127:.updatest|
00002900  65 72 65 6f 0d 0f 3c 08  20 20 20 cb 0d 0f 46 08  |ereo..<.   ...F.|
00002910  c9 20 36 33 0d 0f 50 16  20 20 20 61 25 3d 70 6f  |. 63..P.   a%=po|
00002920  6c 6c 62 6c 6f 63 6b 25  21 34 0d 0f 5a 16 20 20  |llblock%!4..Z.  |
00002930  20 21 62 6c 6f 63 6b 25  3d 77 69 6e 64 6f 77 25  | !block%=window%|
00002940  0d 0f 64 27 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..d'   .. "Wimp_|
00002950  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00002960  2c 62 6c 6f 63 6b 25 0d  0f 6e 5a 20 20 20 78 25  |,block%..nZ   x%|
00002970  3d 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |=block%!4-block%|
00002980  21 32 30 3a 79 25 3d 62  6c 6f 63 6b 25 21 31 36  |!20:y%=block%!16|
00002990  2d 62 6c 6f 63 6b 25 21  32 34 3a f4 20 76 69 73  |-block%!24:. vis|
000029a0  69 62 6c 65 20 63 6f 2e  20 6f 66 20 74 6f 70 20  |ible co. of top |
000029b0  6c 65 66 74 20 6f 66 20  77 6f 72 6b 20 61 72 65  |left of work are|
000029c0  61 0d 0f 78 1b 20 20 20  64 72 61 67 6d 69 6e 25  |a..x.   dragmin%|
000029d0  3d 79 25 2b 76 6f 6c 6d  69 6e 79 25 0d 0f 82 11  |=y%+volminy%....|
000029e0  20 20 20 62 6c 6f 63 6b  25 21 34 3d 37 0d 0f 8c  |   block%!4=7...|
000029f0  1c 20 20 20 62 6c 6f 63  6b 25 21 32 34 3d 78 25  |.   block%!24=x%|
00002a00  2b 76 6f 6c 6d 69 6e 78  25 0d 0f 96 1c 20 20 20  |+volminx%....   |
00002a10  62 6c 6f 63 6b 25 21 32  38 3d 79 25 2b 76 6f 6c  |block%!28=y%+vol|
00002a20  6d 69 6e 79 25 0d 0f a0  1c 20 20 20 62 6c 6f 63  |miny%....   bloc|
00002a30  6b 25 21 33 32 3d 78 25  2b 76 6f 6c 6d 61 78 78  |k%!32=x%+volmaxx|
00002a40  25 0d 0f aa 1e 20 20 20  62 6c 6f 63 6b 25 21 33  |%....   block%!3|
00002a50  36 3d 79 25 2b 76 6f 6c  6d 61 78 79 25 2d 34 0d  |6=y%+volmaxy%-4.|
00002a60  0f b4 34 20 20 20 e7 20  64 72 61 67 25 3d a3 20  |..4   . drag%=. |
00002a70  8c 20 c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |. .. "Wimp_DragB|
00002a80  6f 78 22 2c 2c 62 6c 6f  63 6b 25 3a 64 72 61 67  |ox",,block%:drag|
00002a90  25 3d b9 0d 0f be 1e 20  20 20 f2 73 65 74 76 6f  |%=.....   .setvo|
00002aa0  6c 75 6d 65 28 61 25 2d  64 72 61 67 6d 69 6e 25  |lume(a%-dragmin%|
00002ab0  29 0d 0f c8 05 cb 0d 0f  d2 05 e1 0d 0f dc 04 0d  |)...............|
00002ac0  0f e6 10 dd 20 f2 6f 74  68 65 72 64 6f 77 6e 0d  |.... .otherdown.|
00002ad0  0f f0 10 74 25 3d a4 67  65 74 6f 74 68 65 72 0d  |...t%=.getother.|
00002ae0  0f fa 16 e7 20 74 25 3e  34 20 8c 20 74 25 2d 3d  |.... t%>4 . t%-=|
00002af0  31 20 8b 20 e1 0d 10 04  17 6a 25 3d 32 35 36 2f  |1 . .....j%=256/|
00002b00  6f 6c 64 73 6f 75 6e 64  31 25 2d 31 0d 10 0e 15  |oldsound1%-1....|
00002b10  e7 20 74 25 2b 31 3e 6a  25 20 8c 20 74 25 3d 6a  |. t%+1>j% . t%=j|
00002b20  25 0d 10 18 11 6f 6c 64  73 6f 75 6e 64 33 25 3d  |%....oldsound3%=|
00002b30  74 25 0d 10 22 1d c8 99  20 22 53 6f 75 6e 64 5f  |t%.."... "Sound_|
00002b40  43 6f 6e 66 69 67 75 72  65 22 2c 2c 2c 74 25 0d  |Configure",,,t%.|
00002b50  10 2c 11 f2 73 65 74 6f  74 68 65 72 28 74 25 29  |.,..setother(t%)|
00002b60  0d 10 36 05 e1 0d 10 40  04 0d 10 4a 0e dd 20 f2  |..6....@...J.. .|
00002b70  6f 74 68 65 72 75 70 0d  10 54 10 74 25 3d a4 67  |otherup..T.t%=.g|
00002b80  65 74 6f 74 68 65 72 0d  10 5e 17 6a 25 3d 32 35  |etother..^.j%=25|
00002b90  36 2f 6f 6c 64 73 6f 75  6e 64 31 25 2d 31 0d 10  |6/oldsound1%-1..|
00002ba0  68 21 e7 20 74 25 3c 6a  25 20 8c 20 74 25 2b 3d  |h!. t%<j% . t%+=|
00002bb0  31 20 8b 20 e7 20 74 25  3d 6a 25 20 8c 20 e1 0d  |1 . . t%=j% . ..|
00002bc0  10 72 13 e7 20 74 25 3e  6a 25 20 8c 20 74 25 3d  |.r.. t%>j% . t%=|
00002bd0  6a 25 0d 10 7c 11 6f 6c  64 73 6f 75 6e 64 33 25  |j%..|.oldsound3%|
00002be0  3d 74 25 0d 10 86 1d c8  99 20 22 53 6f 75 6e 64  |=t%...... "Sound|
00002bf0  5f 43 6f 6e 66 69 67 75  72 65 22 2c 2c 2c 74 25  |_Configure",,,t%|
00002c00  0d 10 90 11 f2 73 65 74  6f 74 68 65 72 28 74 25  |.....setother(t%|
00002c10  29 0d 10 9a 05 e1 0d 10  a4 04 0d 10 ae 10 dd 20  |).............. |
00002c20  a4 62 75 69 6c 64 6d 65  6e 75 0d 10 b8 14 f3 20  |.buildmenu..... |
00002c30  24 70 74 72 25 3a 63 6f  75 6e 74 25 3d 30 0d 10  |$ptr%:count%=0..|
00002c40  c2 15 70 74 72 25 21 31  32 3d 26 30 30 30 37 30  |..ptr%!12=&00070|
00002c50  32 30 37 0d 10 cc 0e 70  74 72 25 21 32 30 3d 34  |207....ptr%!20=4|
00002c60  34 0d 10 d6 0d 70 74 72  25 21 32 34 3d 30 0d 10  |4....ptr%!24=0..|
00002c70  e0 0e 6f 25 3d 70 74 72  25 2b 32 38 0d 10 ea 0d  |..o%=ptr%+28....|
00002c80  77 25 3d a9 24 70 74 72  25 0d 10 f4 05 f5 0d 10  |w%=.$ptr%.......|
00002c90  fe 08 f3 20 61 24 0d 11  08 0e e7 20 61 24 3c 3e  |... a$..... a$<>|
00002ca0  22 22 20 8c 0d 11 12 0c  20 20 20 21 6f 25 3d 30  |"" .....   !o%=0|
00002cb0  0d 11 1c 0e 20 20 20 6f  25 21 34 3d 2d 31 0d 11  |....   o%!4=-1..|
00002cc0  26 15 20 20 20 6f 25 21  38 3d 26 30 37 30 30 30  |&.   o%!8=&07000|
00002cd0  30 32 31 0d 11 30 15 20  20 20 e7 20 c0 61 24 2c  |021..0.   . .a$,|
00002ce0  31 29 3d 22 24 22 20 8c  0d 11 3a 13 20 20 20 20  |1)="$" ...:.    |
00002cf0  20 20 21 6f 25 3d 21 6f  25 2b 34 0d 11 44 1a 20  |  !o%=!o%+4..D. |
00002d00  20 20 20 20 20 6f 25 21  38 3d 6f 25 21 38 20 84  |     o%!8=o%!8 .|
00002d10  20 26 31 30 30 0d 11 4e  1b 20 20 20 20 20 20 24  | &100..N.      $|
00002d20  28 74 79 70 65 25 2b 35  29 3d 22 41 30 2d 39 22  |(type%+5)="A0-9"|
00002d30  0d 11 58 15 20 20 20 20  20 20 6f 25 21 31 32 3d  |..X.      o%!12=|
00002d40  74 79 70 65 25 0d 11 62  17 20 20 20 20 20 20 6f  |type%..b.      o|
00002d50  25 21 31 36 3d 74 79 70  65 25 2b 35 0d 11 6c 11  |%!16=type%+5..l.|
00002d60  20 20 20 20 20 20 6f 25  21 32 30 3d 33 0d 11 76  |      o%!20=3..v|
00002d70  17 20 20 20 20 20 20 e7  20 77 25 3c 32 20 8c 20  |.      . w%<2 . |
00002d80  77 25 3d 32 0d 11 80 1b  20 20 20 20 20 20 24 74  |w%=2....      $t|
00002d90  79 70 65 25 3d c3 a4 67  65 74 6f 74 68 65 72 0d  |ype%=..getother.|
00002da0  11 8a 08 20 20 20 cd 0d  11 94 16 20 20 20 e7 20  |...   .....   . |
00002db0  a7 61 24 2c 22 2d 3e 22  29 3e 30 20 8c 0d 11 9e  |.a$,"->")>0 ....|
00002dc0  22 20 20 20 20 20 20 6f  25 21 34 3d a0 28 c1 61  |"      o%!4=.(.a|
00002dd0  24 2c a7 61 24 2c 22 2d  3e 22 29 2b 32 29 29 0d  |$,.a$,"->")+2)).|
00002de0  11 a8 1d 20 20 20 20 20  20 61 24 3d c0 61 24 2c  |...      a$=.a$,|
00002df0  a7 61 24 2c 22 2d 3e 22  29 2d 31 29 0d 11 b2 08  |.a$,"->")-1)....|
00002e00  20 20 20 cd 0d 11 bc 15  20 20 20 e7 20 a7 61 24  |   .....   . .a$|
00002e10  2c 22 40 22 29 3e 30 20  8c 0d 11 c6 1c 20 20 20  |,"@")>0 .....   |
00002e20  20 20 20 62 24 3d c1 61  24 2c a7 61 24 2c 22 40  |   b$=.a$,.a$,"@|
00002e30  22 29 2b 31 29 0d 11 d0  1c 20 20 20 20 20 20 61  |")+1)....      a|
00002e40  24 3d c0 61 24 2c a7 61  24 2c 22 40 22 29 2d 31  |$=.a$,.a$,"@")-1|
00002e50  29 0d 11 da 22 20 20 20  20 20 20 e7 20 a0 28 62  |)..."      . .(b|
00002e60  24 29 3c 3e 30 20 8c 20  21 6f 25 3d 21 6f 25 20  |$)<>0 . !o%=!o% |
00002e70  84 20 31 0d 11 e4 08 20  20 20 cd 0d 11 ee 30 20  |. 1....   ....0 |
00002e80  20 20 e7 20 61 24 3c 3e  22 24 22 20 8c 20 24 28  |  . a$<>"$" . $(|
00002e90  6f 25 2b 31 32 29 3d 61  24 3a e7 20 a9 61 24 3e  |o%+12)=a$:. .a$>|
00002ea0  77 25 20 8c 20 77 25 3d  a9 61 24 0d 11 f8 0d 20  |w% . w%=.a$.... |
00002eb0  20 20 6f 25 2b 3d 32 34  0d 12 02 10 20 20 20 63  |  o%+=24....   c|
00002ec0  6f 75 6e 74 25 2b 3d 31  0d 12 0c 05 cd 0d 12 16  |ount%+=1........|
00002ed0  0b fd 20 61 24 3d 22 22  0d 12 20 1a 69 25 3d 6f  |.. a$="".. .i%=o|
00002ee0  25 2d 32 34 3a 21 69 25  3d 21 69 25 20 84 20 31  |%-24:!i%=!i% . 1|
00002ef0  32 38 0d 12 2a 14 70 74  72 25 21 31 36 3d 77 25  |28..*.ptr%!16=w%|
00002f00  2a 31 36 2b 31 36 0d 12  34 0e c8 94 20 70 74 72  |*16+16..4... ptr|
00002f10  25 2c 6f 25 0d 12 3e 07  3d 6f 25 0d 12 48 04 0d  |%,o%..>.=o%..H..|
00002f20  12 52 15 dd 20 f2 6d 65  6e 75 73 65 6c 65 63 74  |.R.. .menuselect|
00002f30  28 70 25 29 0d 12 5c 24  c8 99 20 22 57 69 6d 70  |(p%)..\$.. "Wimp|
00002f40  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00002f50  2c 2c 62 6c 6f 63 6b 25  0d 12 66 14 62 75 74 74  |,,block%..f.butt|
00002f60  6f 6e 25 3d 62 6c 6f 63  6b 25 21 38 0d 12 70 0c  |on%=block%!8..p.|
00002f70  c8 8e 20 21 70 25 20 ca  0d 12 7a 0a 20 20 20 c9  |.. !p% ...z.   .|
00002f80  20 31 0d 12 84 13 20 20  20 20 20 20 c8 8e 20 70  | 1....      .. p|
00002f90  25 21 34 20 ca 0d 12 8e  2a 20 20 20 20 20 20 20  |%!4 ....*       |
00002fa0  20 20 c9 20 30 3a c8 99  20 22 53 6f 75 6e 64 5f  |  . 0:.. "Sound_|
00002fb0  43 6f 6e 66 69 67 75 72  65 22 2c 2c 2c 32 34 0d  |Configure",,,24.|
00002fc0  12 98 2a 20 20 20 20 20  20 20 20 20 c9 20 31 3a  |..*         . 1:|
00002fd0  c8 99 20 22 53 6f 75 6e  64 5f 43 6f 6e 66 69 67  |.. "Sound_Config|
00002fe0  75 72 65 22 2c 2c 2c 33  34 0d 12 a2 2a 20 20 20  |ure",,,34...*   |
00002ff0  20 20 20 20 20 20 c9 20  32 3a c8 99 20 22 53 6f  |      . 2:.. "So|
00003000  75 6e 64 5f 43 6f 6e 66  69 67 75 72 65 22 2c 2c  |und_Configure",,|
00003010  2c 34 38 0d 12 ac 2a 20  20 20 20 20 20 20 20 20  |,48...*         |
00003020  c9 20 33 3a c8 99 20 22  53 6f 75 6e 64 5f 43 6f  |. 3:.. "Sound_Co|
00003030  6e 66 69 67 75 72 65 22  2c 2c 2c 39 36 0d 12 b6  |nfigure",,,96...|
00003040  10 20 20 20 20 20 20 20  20 20 c9 20 34 0d 12 c0  |.         . 4...|
00003050  1c 20 20 20 20 20 20 20  20 20 20 20 20 74 25 3d  |.            t%=|
00003060  bb 28 24 74 79 70 65 25  29 0d 12 ca 1d 20 20 20  |.($type%)....   |
00003070  20 20 20 20 20 20 20 20  20 e7 20 74 25 3c 34 20  |         . t%<4 |
00003080  8c 20 74 25 3d 34 0d 12  d4 23 20 20 20 20 20 20  |. t%=4...#      |
00003090  20 20 20 20 20 20 6a 25  3d 32 35 36 2f 6f 6c 64  |      j%=256/old|
000030a0  73 6f 75 6e 64 31 25 2d  31 0d 12 de 1f 20 20 20  |sound1%-1....   |
000030b0  20 20 20 20 20 20 20 20  20 e7 20 74 25 3e 6a 25  |         . t%>j%|
000030c0  20 8c 20 74 25 3d 6a 25  0d 12 e8 29 20 20 20 20  | . t%=j%...)    |
000030d0  20 20 20 20 20 20 20 20  c8 99 20 22 53 6f 75 6e  |        .. "Soun|
000030e0  64 5f 43 6f 6e 66 69 67  75 72 65 22 2c 2c 2c 74  |d_Configure",,,t|
000030f0  25 0d 12 f2 0b 20 20 20  20 20 20 cb 0d 12 fc 0a  |%....      .....|
00003100  20 20 20 c9 20 32 0d 13  06 13 20 20 20 20 20 20  |   . 2....      |
00003110  c8 8e 20 70 25 21 34 20  ca 0d 13 10 27 20 20 20  |.. p%!4 ....'   |
00003120  20 20 20 20 20 20 c9 20  30 3a c8 99 20 22 53 6f  |      . 0:.. "So|
00003130  75 6e 64 5f 43 6f 6e 66  69 67 75 72 65 22 2c 31  |und_Configure",1|
00003140  0d 13 1a 27 20 20 20 20  20 20 20 20 20 c9 20 31  |...'         . 1|
00003150  3a c8 99 20 22 53 6f 75  6e 64 5f 43 6f 6e 66 69  |:.. "Sound_Confi|
00003160  67 75 72 65 22 2c 32 0d  13 24 27 20 20 20 20 20  |gure",2..$'     |
00003170  20 20 20 20 c9 20 32 3a  c8 99 20 22 53 6f 75 6e  |    . 2:.. "Soun|
00003180  64 5f 43 6f 6e 66 69 67  75 72 65 22 2c 34 0d 13  |d_Configure",4..|
00003190  2e 27 20 20 20 20 20 20  20 20 20 c9 20 33 3a c8  |.'         . 3:.|
000031a0  99 20 22 53 6f 75 6e 64  5f 43 6f 6e 66 69 67 75  |. "Sound_Configu|
000031b0  72 65 22 2c 38 0d 13 38  0b 20 20 20 20 20 20 cb  |re",8..8.      .|
000031c0  0d 13 42 0a 20 20 20 c9  20 33 0d 13 4c 13 20 20  |..B.   . 3..L.  |
000031d0  20 20 20 20 c8 8e 20 70  25 21 34 20 ca 0d 13 56  |    .. p%!4 ...V|
000031e0  1e 20 20 20 20 20 20 20  20 20 c9 20 30 3a f2 72  |.         . 0:.r|
000031f0  65 73 65 74 74 72 61 63  6b 65 72 0d 13 60 1c 20  |esettracker..`. |
00003200  20 20 20 20 20 20 20 20  c9 20 31 3a f2 72 65 73  |        . 1:.res|
00003210  65 74 73 6f 75 6e 64 0d  13 6a 0b 20 20 20 20 20  |etsound..j.     |
00003220  20 cb 0d 13 74 2d 20 20  20 c9 20 34 3a c8 99 20  | ...t-   . 4:.. |
00003230  22 53 6f 75 6e 64 5f 53  70 65 61 6b 65 72 22 2c  |"Sound_Speaker",|
00003240  6f 6c 64 73 70 65 61 6b  65 72 25 20 82 20 33 0d  |oldspeaker% . 3.|
00003250  13 7e 2a 20 20 20 c9 20  35 3a c8 99 20 22 53 6f  |.~*   . 5:.. "So|
00003260  75 6e 64 5f 45 6e 61 62  6c 65 22 2c 6f 6c 64 61  |und_Enable",olda|
00003270  75 64 69 6f 25 20 82 20  33 0d 13 88 12 20 20 20  |udio% . 3....   |
00003280  c9 20 36 3a 71 75 69 74  25 3d b9 0d 13 92 05 cb  |. 6:quit%=......|
00003290  0d 13 9c 37 e7 20 28 62  75 74 74 6f 6e 25 20 80  |...7. (button% .|
000032a0  20 31 29 3c 3e 30 20 8c  20 f2 69 63 6f 6e 62 61  | 1)<>0 . .iconba|
000032b0  72 6d 65 6e 75 28 30 29  20 8b 20 f2 75 70 64 61  |rmenu(0) . .upda|
000032c0  74 65 73 74 61 74 65 0d  13 a6 05 e1 0d 13 b0 04  |testate.........|
000032d0  0d 13 ba 16 dd 20 f2 69  63 6f 6e 62 61 72 6d 65  |..... .iconbarme|
000032e0  6e 75 28 78 25 29 0d 13  c4 0d f2 6d 61 6b 65 6d  |nu(x%).....makem|
000032f0  65 6e 75 0d 13 ce 36 c8  99 20 22 57 69 6d 70 5f  |enu...6.. "Wimp_|
00003300  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 61 69  |CreateMenu",,mai|
00003310  6e 6d 65 6e 75 25 2c 78  25 2d 36 34 2c 39 36 2b  |nmenu%,x%-64,96+|
00003320  34 34 2a 63 6f 75 6e 74  25 0d 13 d8 05 e1 0d 13  |44*count%.......|
00003330  e2 04 0d 13 ec 16 dd 20  f2 6d 61 69 6e 6d 65 6e  |....... .mainmen|
00003340  75 28 78 25 2c 79 25 29  0d 13 f6 0d f2 6d 61 6b  |u(x%,y%).....mak|
00003350  65 6d 65 6e 75 0d 14 00  2f c8 99 20 22 57 69 6d  |emenu.../.. "Wim|
00003360  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00003370  61 69 6e 6d 65 6e 75 25  2c 78 25 2d 36 34 2c 79  |ainmenu%,x%-64,y|
00003380  25 2b 31 36 0d 14 0a 05  e1 0d 14 14 04 0d 14 1e  |%+16............|
00003390  0f dd 20 f2 6d 61 6b 65  6d 65 6e 75 0d 14 28 10  |.. .makemenu..(.|
000033a0  f2 75 70 64 61 74 65 73  74 61 74 65 0d 14 32 08  |.updatestate..2.|
000033b0  f7 20 2b 30 0d 14 3c 0e  70 74 72 25 3d 6d 65 6e  |. +0..<.ptr%=men|
000033c0  75 25 0d 14 46 19 72 65  73 65 74 6d 65 6e 75 25  |u%..F.resetmenu%|
000033d0  3d a4 62 75 69 6c 64 6d  65 6e 75 0d 14 50 17 64  |=.buildmenu..P.d|
000033e0  6d 61 6d 65 6e 75 25 3d  a4 62 75 69 6c 64 6d 65  |mamenu%=.buildme|
000033f0  6e 75 0d 14 5a 18 63 68  61 6e 6d 65 6e 75 25 3d  |nu..Z.chanmenu%=|
00003400  a4 62 75 69 6c 64 6d 65  6e 75 0d 14 64 18 6d 61  |.buildmenu..d.ma|
00003410  69 6e 6d 65 6e 75 25 3d  a4 62 75 69 6c 64 6d 65  |inmenu%=.buildme|
00003420  6e 75 0d 14 6e 05 e1 0d  14 78 04 0d 14 82 1c dc  |nu..n....x......|
00003430  20 52 65 73 65 74 2c 54  72 61 63 6b 65 72 2c 53  | Reset,Tracker,S|
00003440  6f 75 6e 64 2c 22 22 0d  14 8c 8f dc 20 44 4d 41  |ound,""..... DMA|
00003450  20 72 61 74 65 2c 32 34  75 73 40 73 6f 75 6e 64  | rate,24us@sound|
00003460  33 25 3d 32 34 2c 33 34  75 73 40 73 6f 75 6e 64  |3%=24,34us@sound|
00003470  33 25 3d 33 34 2c 34 38  75 73 40 73 6f 75 6e 64  |3%=34,48us@sound|
00003480  33 25 3d 34 38 2c 39 36  75 73 40 73 6f 75 6e 64  |3%=48,96us@sound|
00003490  33 25 3d 39 36 2c 24 40  28 73 6f 75 6e 64 33 25  |3%=96,$@(sound3%|
000034a0  3c 3e 32 34 20 41 4e 44  73 6f 75 6e 64 33 25 3c  |<>24 ANDsound3%<|
000034b0  3e 33 34 20 41 4e 44 73  6f 75 6e 64 33 25 3c 3e  |>34 ANDsound3%<>|
000034c0  34 38 20 41 4e 44 20 73  6f 75 6e 64 33 25 3c 3e  |48 AND sound3%<>|
000034d0  39 36 29 2c 22 22 0d 14  96 3e dc 20 43 68 61 6e  |96),""...>. Chan|
000034e0  73 2c 31 40 73 6f 75 6e  64 31 25 3d 31 2c 32 40  |s,1@sound1%=1,2@|
000034f0  73 6f 75 6e 64 31 25 3d  32 2c 34 40 73 6f 75 6e  |sound1%=2,4@soun|
00003500  64 31 25 3d 34 2c 38 40  73 6f 75 6e 64 31 25 3d  |d1%=4,8@sound1%=|
00003510  38 2c 22 22 0d 14 a0 87  dc 20 53 6f 75 6e 64 43  |8,""..... SoundC|
00003520  74 72 6c 2c 49 6e 66 6f  2d 3e 69 6e 66 6f 77 69  |trl,Info->infowi|
00003530  6e 25 2c 44 4d 41 20 72  61 74 65 2d 3e 64 6d 61  |n%,DMA rate->dma|
00003540  6d 65 6e 75 25 2c 43 68  61 6e 6e 65 6c 73 2d 3e  |menu%,Channels->|
00003550  63 68 61 6e 6d 65 6e 75  25 2c 52 65 73 65 74 2d  |chanmenu%,Reset-|
00003560  3e 72 65 73 65 74 6d 65  6e 75 25 2c 53 70 65 61  |>resetmenu%,Spea|
00003570  6b 65 72 40 6f 6c 64 73  70 65 61 6b 65 72 25 3d  |ker@oldspeaker%=|
00003580  32 2c 41 75 64 69 6f 40  6f 6c 64 61 75 64 69 6f  |2,Audio@oldaudio|
00003590  25 3d 32 2c 51 75 69 74  2c 22 22 0d 14 aa 04 0d  |%=2,Quit,"".....|
000035a0  14 b4 0c dd 20 f2 61 73  73 65 6d 0d 14 be 14 e3  |.... .assem.....|
000035b0  20 50 41 53 53 3d 30 20  b8 20 32 20 88 20 32 0d  | PASS=0 . 2 . 2.|
000035c0  14 c8 16 50 25 3d 63 6f  64 65 25 3a 5b 4f 50 54  |...P%=code%:[OPT|
000035d0  20 50 41 53 53 0d 14 d2  12 2e 72 65 61 64 76 6f  | PASS.....readvo|
000035e0  69 63 65 6e 75 6d 73 0d  14 dc 14 41 44 52 20 52  |icenums....ADR R|
000035f0  35 2c 76 6f 69 63 65 6e  75 6d 73 0d 14 e6 0d 4d  |5,voicenums....M|
00003600  4f 56 20 52 30 2c 23 31  0d 14 f0 0d 2e 72 65 61  |OV R0,#1.....rea|
00003610  64 6e 75 6d 73 0d 14 fa  10 5c 20 72 65 61 64 20  |dnums....\ read |
00003620  66 6c 61 67 73 0d 15 04  0d 4d 4f 56 20 52 31 2c  |flags....MOV R1,|
00003630  23 30 0d 15 0e 14 53 57  49 20 22 58 4f 53 5f 49  |#0....SWI "XOS_I|
00003640  6e 74 4f 66 66 22 0d 15  18 0c 42 56 53 20 65 78  |ntOff"....BVS ex|
00003650  69 74 0d 15 22 21 53 57  49 20 22 58 53 6f 75 6e  |it.."!SWI "XSoun|
00003660  64 5f 52 65 61 64 43 6f  6e 74 72 6f 6c 42 6c 6f  |d_ReadControlBlo|
00003670  63 6b 22 0d 15 2c 0c 42  56 53 20 65 78 69 74 0d  |ck"..,.BVS exit.|
00003680  15 36 0d 4d 4f 56 20 52  36 2c 52 32 0d 15 40 04  |.6.MOV R6,R2..@.|
00003690  0d 15 4a 18 5c 20 72 65  61 64 20 76 6f 69 63 65  |..J.\ read voice|
000036a0  20 6e 75 6d 62 65 72 73  0d 15 54 14 53 57 49 20  | numbers..T.SWI |
000036b0  22 58 4f 53 5f 49 6e 74  4f 66 66 22 0d 15 5e 0c  |"XOS_IntOff"..^.|
000036c0  42 56 53 20 65 78 69 74  0d 15 68 1c 53 57 49 20  |BVS exit..h.SWI |
000036d0  22 58 53 6f 75 6e 64 5f  41 74 74 61 63 68 56 6f  |"XSound_AttachVo|
000036e0  69 63 65 22 0d 15 72 12  53 54 52 20 52 31 2c 5b  |ice"..r.STR R1,[|
000036f0  52 35 5d 2c 23 34 0d 15  7c 14 53 57 49 20 22 58  |R5],#4..|.SWI "X|
00003700  4f 53 5f 49 6e 74 4f 66  66 22 0d 15 86 1c 53 57  |OS_IntOff"....SW|
00003710  49 20 22 58 53 6f 75 6e  64 5f 41 74 74 61 63 68  |I "XSound_Attach|
00003720  56 6f 69 63 65 22 0d 15  90 04 0d 15 9a 13 5c 20  |Voice"........\ |
00003730  72 65 73 74 6f 72 65 20  66 6c 61 67 73 0d 15 a4  |restore flags...|
00003740  0d 4d 4f 56 20 52 32 2c  52 36 0d 15 ae 0d 4d 4f  |.MOV R2,R6....MO|
00003750  56 20 52 31 2c 23 30 0d  15 b8 22 53 57 49 20 22  |V R1,#0..."SWI "|
00003760  58 53 6f 75 6e 64 5f 57  72 69 74 65 43 6f 6e 74  |XSound_WriteCont|
00003770  72 6f 6c 42 6c 6f 63 6b  22 0d 15 c2 0c 42 56 53  |rolBlock"....BVS|
00003780  20 65 78 69 74 0d 15 cc  12 53 57 49 20 22 4f 53  | exit....SWI "OS|
00003790  5f 49 6e 74 4f 6e 22 0d  15 d6 10 41 44 44 20 52  |_IntOn"....ADD R|
000037a0  30 2c 52 30 2c 23 31 0d  15 e0 0d 43 4d 50 20 52  |0,R0,#1....CMP R|
000037b0  30 2c 23 39 0d 15 ea 10  42 4e 45 20 72 65 61 64  |0,#9....BNE read|
000037c0  6e 75 6d 73 0d 15 f4 09  2e 65 78 69 74 0d 15 fe  |nums.....exit...|
000037d0  12 53 57 49 20 22 4f 53  5f 49 6e 74 4f 6e 22 0d  |.SWI "OS_IntOn".|
000037e0  16 08 0f 4d 4f 56 53 20  50 43 2c 52 31 34 0d 16  |...MOVS PC,R14..|
000037f0  12 04 0d 16 1c 0e 2e 76  6f 69 63 65 6e 75 6d 73  |.......voicenums|
00003800  0d 16 26 1f 45 51 55 44  20 30 3a 45 51 55 44 20  |..&.EQUD 0:EQUD |
00003810  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 0d  |0:EQUD 0:EQUD 0.|
00003820  16 30 1f 45 51 55 44 20  30 3a 45 51 55 44 20 30  |.0.EQUD 0:EQUD 0|
00003830  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 0d 16  |:EQUD 0:EQUD 0..|
00003840  3a 04 0d 16 44 1a 2e 64  65 61 64 76 6f 69 63 65  |:...D..deadvoice|
00003850  73 66 6c 61 67 20 45 51  55 44 20 30 0d 16 4e 04  |sflag EQUD 0..N.|
00003860  0d 16 58 17 2e 63 68 65  63 6b 66 6f 72 64 65 61  |..X..checkfordea|
00003870  64 76 6f 69 63 65 73 0d  16 62 0d 4d 4f 56 20 52  |dvoices..b.MOV R|
00003880  30 2c 23 30 0d 16 6c 19  53 54 52 20 52 30 2c 64  |0,#0..l.STR R0,d|
00003890  65 61 64 76 6f 69 63 65  73 66 6c 61 67 0d 16 76  |eadvoicesflag..v|
000038a0  0d 4d 4f 56 20 52 36 2c  23 38 0d 16 80 14 41 44  |.MOV R6,#8....AD|
000038b0  52 20 52 35 2c 76 6f 69  63 65 6e 75 6d 73 0d 16  |R R5,voicenums..|
000038c0  8a 0e 2e 63 68 65 63 6b  6c 6f 6f 70 0d 16 94 12  |...checkloop....|
000038d0  4c 44 52 20 52 31 2c 5b  52 35 5d 2c 23 34 0d 16  |LDR R1,[R5],#4..|
000038e0  9e 0d 43 4d 50 20 52 31  2c 23 30 0d 16 a8 13 42  |..CMP R1,#0....B|
000038f0  4c 45 20 6e 65 78 74 63  68 61 6e 6e 65 6c 0d 16  |LE nextchannel..|
00003900  b2 0d 4d 4f 56 20 52 30  2c 23 30 0d 16 bc 1c 53  |..MOV R0,#0....S|
00003910  57 49 20 22 53 6f 75 6e  64 5f 49 6e 73 74 61 6c  |WI "Sound_Instal|
00003920  6c 56 6f 69 63 65 22 0d  16 c6 0d 43 4d 50 20 52  |lVoice"....CMP R|
00003930  30 2c 23 30 0d 16 d0 13  42 47 54 20 6e 65 78 74  |0,#0....BGT next|
00003940  63 68 61 6e 6e 65 6c 0d  16 da 0d 4d 56 4e 20 52  |channel....MVN R|
00003950  30 2c 23 30 0d 16 e4 19  53 54 52 20 52 30 2c 64  |0,#0....STR R0,d|
00003960  65 61 64 76 6f 69 63 65  73 66 6c 61 67 0d 16 ee  |eadvoicesflag...|
00003970  10 52 53 42 20 52 30 2c  52 36 2c 23 39 0d 16 f8  |.RSB R0,R6,#9...|
00003980  0d 4d 4f 56 20 52 31 2c  23 30 0d 17 02 1b 53 57  |.MOV R1,#0....SW|
00003990  49 20 22 53 6f 75 6e 64  5f 41 74 74 61 63 68 56  |I "Sound_AttachV|
000039a0  6f 69 63 65 22 0d 17 0c  10 2e 6e 65 78 74 63 68  |oice".....nextch|
000039b0  61 6e 6e 65 6c 0d 17 16  11 53 55 42 53 20 52 36  |annel....SUBS R6|
000039c0  2c 52 36 2c 23 31 0d 17  20 11 42 4e 45 20 63 68  |,R6,#1.. .BNE ch|
000039d0  65 63 6b 6c 6f 6f 70 0d  17 2a 0f 4d 4f 56 53 20  |eckloop..*.MOVS |
000039e0  50 43 2c 52 31 34 0d 17  34 04 0d 17 3e 13 2e 76  |PC,R14..4...>..v|
000039f0  65 72 73 69 6f 6e 20 45  51 55 44 20 30 0d 17 48  |ersion EQUD 0..H|
00003a00  15 2e 6d 6f 64 75 6c 65  61 64 64 20 45 51 55 44  |..moduleadd EQUD|
00003a10  20 30 0d 17 52 1d 2e 70  6c 61 79 6b 69 6c 6c 20  | 0..R..playkill |
00003a20  45 51 55 53 20 22 50 4c  41 59 4b 49 4c 4c 22 0d  |EQUS "PLAYKILL".|
00003a30  17 5c 19 2e 70 6c 61 79  73 74 6f 70 20 45 51 55  |.\..playstop EQU|
00003a40  53 20 22 53 54 4f 50 22  0d 17 66 33 2e 74 72 61  |S "STOP"..f3.tra|
00003a50  63 6b 65 72 6e 61 6d 65  20 45 51 55 53 20 22 54  |ckername EQUS "T|
00003a60  72 61 63 6b 65 72 4d 6f  64 75 6c 65 22 3a 45 51  |rackerModule":EQ|
00003a70  55 42 20 31 33 3a 41 4c  49 47 4e 0d 17 70 19 2e  |UB 13:ALIGN..p..|
00003a80  6d 61 73 6b 31 20 45 51  55 44 20 26 30 30 46 46  |mask1 EQUD &00FF|
00003a90  46 46 43 30 0d 17 7a 19  2e 6d 61 73 6b 32 20 45  |FFC0..z..mask2 E|
00003aa0  51 55 44 20 26 30 33 46  46 46 46 46 43 0d 17 84  |QUD &03FFFFFC...|
00003ab0  19 2e 6d 61 73 6b 33 20  45 51 55 44 20 26 44 46  |..mask3 EQUD &DF|
00003ac0  44 46 44 46 44 46 0d 17  8e 12 2e 6d 6f 64 75 6c  |DFDFDF.....modul|
00003ad0  65 70 72 65 73 65 6e 74  0d 17 98 0e 4d 4f 56 20  |epresent....MOV |
00003ae0  52 30 2c 23 31 38 0d 17  a2 16 41 44 52 20 52 31  |R0,#18....ADR R1|
00003af0  2c 74 72 61 63 6b 65 72  6e 61 6d 65 0d 17 ac 0d  |,trackername....|
00003b00  4d 4f 56 20 52 33 2c 23  30 0d 17 b6 14 53 57 49  |MOV R3,#0....SWI|
00003b10  20 22 58 4f 53 5f 4d 6f  64 75 6c 65 22 0d 17 c0  | "XOS_Module"...|
00003b20  14 53 54 52 20 52 33 2c  6d 6f 64 75 6c 65 61 64  |.STR R3,modulead|
00003b30  64 0d 17 ca 0f 4d 4f 56  53 20 50 43 2c 52 31 34  |d....MOVS PC,R14|
00003b40  0d 17 d4 04 0d 17 de 10  2e 72 65 61 64 76 65 72  |.........readver|
00003b50  73 69 6f 6e 0d 17 e8 1f  5c 72 30 20 3d 20 30 20  |sion....\r0 = 0 |
00003b60  69 66 20 66 75 6c 6c 20  69 6e 66 6f 20 77 61 6e  |if full info wan|
00003b70  74 65 64 0d 17 f2 17 53  54 4d 46 44 20 52 31 33  |ted....STMFD R13|
00003b80  21 2c 7b 52 30 2c 52 31  34 7d 0d 17 fc 14 42 4c  |!,{R0,R14}....BL|
00003b90  20 6d 6f 64 75 6c 65 70  72 65 73 65 6e 74 0d 18  | modulepresent..|
00003ba0  06 0d 54 45 51 20 52 33  2c 23 30 0d 18 10 14 53  |..TEQ R3,#0....S|
00003bb0  54 52 45 51 20 52 33 2c  76 65 72 73 69 6f 6e 0d  |TREQ R3,version.|
00003bc0  18 1a 18 4c 44 4d 45 51  46 44 20 52 31 33 21 2c  |...LDMEQFD R13!,|
00003bd0  7b 52 30 2c 50 43 7d 0d  18 24 14 4c 44 52 20 52  |{R0,PC}..$.LDR R|
00003be0  30 2c 5b 52 33 2c 23 26  31 43 5d 0d 18 2e 10 4c  |0,[R3,#&1C]....L|
00003bf0  44 52 20 52 31 2c 6d 61  73 6b 31 0d 18 38 0e 80  |DR R1,mask1..8..|
00003c00  20 52 31 2c 52 30 2c 52  31 0d 18 42 0d 54 45 51  | R1,R0,R1..B.TEQ|
00003c10  20 52 30 2c 52 31 0d 18  4c 12 42 4e 45 20 6e 6f  | R0,R1..L.BNE no|
00003c20  74 76 65 72 79 6e 65 77  0d 18 56 0d 54 45 51 20  |tverynew..V.TEQ |
00003c30  52 30 2c 23 30 0d 18 60  12 42 45 51 20 6e 6f 74  |R0,#0..`.BEQ not|
00003c40  76 65 72 79 6e 65 77 0d  18 6a 14 4c 44 52 20 52  |verynew..j.LDR R|
00003c50  30 2c 5b 52 33 2c 23 26  32 30 5d 0d 18 74 10 4c  |0,[R3,#&20]..t.L|
00003c60  44 52 20 52 31 2c 6d 61  73 6b 32 0d 18 7e 0e 80  |DR R1,mask2..~..|
00003c70  20 52 31 2c 52 30 2c 52  31 0d 18 88 0d 54 45 51  | R1,R0,R1....TEQ|
00003c80  20 52 30 2c 52 31 0d 18  92 12 42 4e 45 20 6e 6f  | R0,R1....BNE no|
00003c90  74 76 65 72 79 6e 65 77  0d 18 9c 0d 54 45 51 20  |tverynew....TEQ |
00003ca0  52 30 2c 23 30 0d 18 a6  12 42 45 51 20 6e 6f 74  |R0,#0....BEQ not|
00003cb0  76 65 72 79 6e 65 77 0d  18 b0 20 53 57 49 20 26  |verynew... SWI &|
00003cc0  34 33 32 30 30 3a 5c 20  54 72 61 63 6b 65 72 5f  |43200:\ Tracker_|
00003cd0  56 65 72 73 69 6f 6e 0d  18 ba 12 53 54 52 20 52  |Version....STR R|
00003ce0  30 2c 76 65 72 73 69 6f  6e 0d 18 c4 16 4c 44 4d  |0,version....LDM|
00003cf0  46 44 20 52 31 33 21 2c  7b 52 30 2c 50 43 7d 0d  |FD R13!,{R0,PC}.|
00003d00  18 ce 0f 2e 6e 6f 74 76  65 72 79 6e 65 77 0d 18  |....notverynew..|
00003d10  d8 14 4c 44 52 20 52 30  2c 5b 52 33 2c 23 26 31  |..LDR R0,[R3,#&1|
00003d20  34 5d 0d 18 e2 0d 54 45  51 20 52 30 2c 23 30 0d  |4]....TEQ R0,#0.|
00003d30  18 ec 14 42 45 51 20 63  6f 6d 6d 61 6e 64 74 61  |...BEQ commandta|
00003d40  62 6c 65 0d 18 f6 10 41  44 44 20 52 37 2c 52 33  |ble....ADD R7,R3|
00003d50  2c 52 30 0d 19 00 0d 2e  66 69 6e 64 68 65 6c 70  |,R0.....findhelp|
00003d60  0d 19 0a 0e 4d 4f 56 20  52 38 2c 23 31 36 0d 19  |....MOV R8,#16..|
00003d70  14 11 2e 66 69 6e 64 68  65 6c 70 6c 6f 6f 70 0d  |...findhelploop.|
00003d80  19 1e 13 4c 44 52 42 20  52 30 2c 5b 52 37 5d 2c  |...LDRB R0,[R7],|
00003d90  23 31 0d 19 28 0d 54 45  51 20 52 30 2c 23 30 0d  |#1..(.TEQ R0,#0.|
00003da0  19 32 14 42 45 51 20 63  6f 6d 6d 61 6e 64 74 61  |.2.BEQ commandta|
00003db0  62 6c 65 0d 19 3c 0d 54  45 51 20 52 30 2c 23 39  |ble..<.TEQ R0,#9|
00003dc0  0d 19 46 12 53 55 42 4e  45 20 52 38 2c 52 38 2c  |..F.SUBNE R8,R8,|
00003dd0  23 31 0d 19 50 0e 42 4e  45 20 6e 6f 74 74 61 62  |#1..P.BNE nottab|
00003de0  0d 19 5a 0f 80 53 20 52  31 2c 52 38 2c 23 37 0d  |..Z..S R1,R8,#7.|
00003df0  19 64 12 53 55 42 4e 45  20 52 38 2c 52 38 2c 52  |.d.SUBNE R8,R8,R|
00003e00  31 0d 19 6e 12 53 55 42  45 51 20 52 38 2c 52 38  |1..n.SUBEQ R8,R8|
00003e10  2c 23 38 0d 19 78 0b 2e  6e 6f 74 74 61 62 0d 19  |,#8..x..nottab..|
00003e20  82 0d 43 4d 50 20 52 38  2c 23 30 0d 19 8c 14 42  |..CMP R8,#0....B|
00003e30  47 54 20 66 69 6e 64 68  65 6c 70 6c 6f 6f 70 0d  |GT findhelploop.|
00003e40  19 96 10 4c 44 52 42 20  52 31 2c 5b 52 37 5d 0d  |...LDRB R1,[R7].|
00003e50  19 a0 13 4c 44 52 42 20  52 32 2c 5b 52 37 2c 23  |...LDRB R2,[R7,#|
00003e60  31 5d 0d 19 aa 13 4c 44  52 42 20 52 34 2c 5b 52  |1]....LDRB R4,[R|
00003e70  37 2c 23 32 5d 0d 19 b4  13 4c 44 52 42 20 52 35  |7,#2]....LDRB R5|
00003e80  2c 5b 52 37 2c 23 33 5d  0d 19 be 10 54 45 51 20  |,[R7,#3]....TEQ |
00003e90  52 32 2c 23 97 22 2e 22  0d 19 c8 14 42 4e 45 20  |R2,#."."....BNE |
00003ea0  63 6f 6d 6d 61 6e 64 74  61 62 6c 65 0d 19 d2 0d  |commandtable....|
00003eb0  4d 4f 56 20 52 30 2c 23  30 0d 19 dc 12 42 4c 20  |MOV R0,#0....BL |
00003ec0  67 65 74 68 65 6c 70 74  65 78 74 0d 19 e6 0d 4d  |gethelptext....M|
00003ed0  4f 56 20 52 31 2c 52 34  0d 19 f0 12 42 4c 20 67  |OV R1,R4....BL g|
00003ee0  65 74 68 65 6c 70 74 65  78 74 0d 19 fa 0d 4d 4f  |ethelptext....MO|
00003ef0  56 20 52 31 2c 52 35 0d  1a 04 12 42 4c 20 67 65  |V R1,R5....BL ge|
00003f00  74 68 65 6c 70 74 65 78  74 0d 1a 0e 12 53 54 52  |thelptext....STR|
00003f10  20 52 30 2c 76 65 72 73  69 6f 6e 0d 1a 18 16 4c  | R0,version....L|
00003f20  44 4d 46 44 20 52 31 33  21 2c 7b 52 30 2c 50 43  |DMFD R13!,{R0,PC|
00003f30  7d 0d 1a 22 10 2e 67 65  74 68 65 6c 70 74 65 78  |}.."..gethelptex|
00003f40  74 0d 1a 2c 14 53 55 42  53 20 52 31 2c 52 31 2c  |t..,.SUBS R1,R1,|
00003f50  23 97 22 30 22 0d 1a 36  14 42 4c 54 20 63 6f 6d  |#."0"..6.BLT com|
00003f60  6d 61 6e 64 74 61 62 6c  65 0d 1a 40 0d 43 4d 50  |mandtable..@.CMP|
00003f70  20 52 31 2c 23 39 0d 1a  4a 14 42 47 54 20 63 6f  | R1,#9..J.BGT co|
00003f80  6d 6d 61 6e 64 74 61 62  6c 65 0d 1a 54 17 41 44  |mmandtable..T.AD|
00003f90  44 20 52 30 2c 52 30 2c  52 30 2c 4c 53 4c 20 23  |D R0,R0,R0,LSL #|
00003fa0  32 0d 1a 5e 14 4d 4f 56  20 52 30 2c 52 30 2c 4c  |2..^.MOV R0,R0,L|
00003fb0  53 4c 20 23 31 0d 1a 68  10 41 44 44 20 52 30 2c  |SL #1..h.ADD R0,|
00003fc0  52 30 2c 52 31 0d 1a 72  0e 4d 4f 56 20 50 43 2c  |R0,R1..r.MOV PC,|
00003fd0  52 31 34 0d 1a 7c 04 0d  1a 86 11 2e 63 6f 6d 6d  |R14..|......comm|
00003fe0  61 6e 64 74 61 62 6c 65  0d 1a 90 17 4c 44 4d 46  |andtable....LDMF|
00003ff0  44 20 52 31 33 21 2c 7b  52 30 2c 52 31 34 7d 0d  |D R13!,{R0,R14}.|
00004000  1a 9a 0d 54 45 51 20 52  30 2c 23 30 0d 1a a4 10  |...TEQ R0,#0....|
00004010  4d 4f 56 4e 45 20 50 43  2c 52 31 34 0d 1a ae 14  |MOVNE PC,R14....|
00004020  4c 44 52 20 52 30 2c 5b  52 33 2c 23 26 31 38 5d  |LDR R0,[R3,#&18]|
00004030  0d 1a b8 0d 54 45 51 20  52 30 2c 23 30 0d 1a c2  |....TEQ R0,#0...|
00004040  14 53 54 52 45 51 20 52  30 2c 76 65 72 73 69 6f  |.STREQ R0,versio|
00004050  6e 0d 1a cc 0d ec 51 20  50 43 2c 52 31 34 0d 1a  |n.....Q PC,R14..|
00004060  d6 14 4c 44 52 20 52 31  30 2c 70 6c 61 79 6b 69  |..LDR R10,playki|
00004070  6c 6c 0d 1a e0 15 4c 44  52 20 52 36 2c 70 6c 61  |ll....LDR R6,pla|
00004080  79 6b 69 6c 6c 2b 34 0d  1a ea 13 4c 44 52 20 52  |ykill+4....LDR R|
00004090  37 2c 70 6c 61 79 73 74  6f 70 0d 1a f4 10 4c 44  |7,playstop....LD|
000040a0  52 20 52 38 2c 6d 61 73  6b 33 0d 1a fe 10 41 44  |R R8,mask3....AD|
000040b0  44 20 52 33 2c 52 33 2c  52 30 0d 1b 08 11 2e 76  |D R3,R3,R0.....v|
000040c0  65 72 73 69 6f 6e 6c 6f  6f 70 31 0d 1b 12 10 4c  |ersionloop1....L|
000040d0  44 52 42 20 52 30 2c 5b  52 33 5d 0d 1b 1c 0d 54  |DRB R0,[R3]....T|
000040e0  45 51 20 52 30 2c 23 30  0d 1b 26 14 53 54 52 45  |EQ R0,#0..&.STRE|
000040f0  51 20 52 30 2c 76 65 72  73 69 6f 6e 0d 1b 30 0d  |Q R0,version..0.|
00004100  ec 51 20 50 43 2c 52 31  34 0d 1b 3a 14 4c 44 4d  |.Q PC,R14..:.LDM|
00004110  49 41 20 52 33 2c 7b 52  30 2c 52 31 7d 0d 1b 44  |IA R3,{R0,R1}..D|
00004120  0e 80 20 52 30 2c 52 30  2c 52 38 0d 1b 4e 0e 80  |.. R0,R0,R8..N..|
00004130  20 52 31 2c 52 31 2c 52  38 0d 1b 58 0e 54 45 51  | R1,R1,R8..X.TEQ|
00004140  20 52 30 2c 52 31 30 0d  1b 62 12 42 4e 45 20 6e  | R0,R10..b.BNE n|
00004150  6f 74 6b 65 79 77 6f 72  64 0d 1b 6c 0d 54 45 51  |otkeyword..l.TEQ|
00004160  20 52 31 2c 52 36 0d 1b  76 0f 54 45 51 4e 45 20  | R1,R6..v.TEQNE |
00004170  52 31 2c 52 37 0d 1b 80  12 42 4e 45 20 6e 6f 74  |R1,R7....BNE not|
00004180  6b 65 79 77 6f 72 64 0d  1b 8a 0d 54 45 51 20 52  |keyword....TEQ R|
00004190  31 2c 52 36 0d 1b 94 0e  ec 51 20 52 30 2c 23 32  |1,R6.....Q R0,#2|
000041a0  30 30 0d 1b 9e 11 4d 4f  56 4e 45 20 52 30 2c 23  |00....MOVNE R0,#|
000041b0  31 30 30 0d 1b a8 12 53  54 52 20 52 30 2c 76 65  |100....STR R0,ve|
000041c0  72 73 69 6f 6e 0d 1b b2  0e 4d 4f 56 20 50 43 2c  |rsion....MOV PC,|
000041d0  52 31 34 0d 1b bc 0f 2e  6e 6f 74 6b 65 79 77 6f  |R14.....notkeywo|
000041e0  72 64 0d 1b c6 13 4c 44  52 42 20 52 30 2c 5b 52  |rd....LDRB R0,[R|
000041f0  33 5d 2c 23 31 0d 1b d0  0d 54 45 51 20 52 30 2c  |3],#1....TEQ R0,|
00004200  23 30 0d 1b da 12 42 4e  45 20 6e 6f 74 6b 65 79  |#0....BNE notkey|
00004210  77 6f 72 64 0d 1b e4 10  41 44 44 20 52 33 2c 52  |word....ADD R3,R|
00004220  33 2c 23 33 0d 1b ee 10  42 49 43 20 52 33 2c 52  |3,#3....BIC R3,R|
00004230  33 2c 23 33 0d 1b f8 11  41 44 44 20 52 33 2c 52  |3,#3....ADD R3,R|
00004240  33 2c 23 31 36 0d 1c 02  12 42 20 76 65 72 73 69  |3,#16....B versi|
00004250  6f 6e 6c 6f 6f 70 31 0d  1c 0c 04 0d 1c 16 1e 2e  |onloop1.........|
00004260  76 6f 6c 68 65 69 67 68  74 20 45 51 55 44 20 76  |volheight EQUD v|
00004270  6f 6c 68 65 69 67 68 74  25 0d 1c 20 1a 2e 76 6f  |olheight%.. ..vo|
00004280  6c 62 61 73 65 20 45 51  55 44 20 76 6f 6c 62 61  |lbase EQUD volba|
00004290  73 65 25 0d 1c 2a 1c 2e  76 6f 6c 77 69 64 74 68  |se%..*..volwidth|
000042a0  20 45 51 55 44 20 76 6f  6c 77 69 64 74 68 25 0d  | EQUD volwidth%.|
000042b0  1c 34 04 0d 1c 3e 0e 2e  73 65 74 76 6f 6c 75 6d  |.4...>..setvolum|
000042c0  65 0d 1c 48 0f 4d 4f 56  20 52 34 2c 23 26 41 41  |e..H.MOV R4,#&AA|
000042d0  0d 1c 52 0f 4d 4f 56 20  52 33 2c 23 26 41 37 0d  |..R.MOV R3,#&A7.|
000042e0  1c 5c 12 4c 44 52 20 52  35 2c 76 6f 6c 62 61 73  |.\.LDR R5,volbas|
000042f0  65 0d 1c 66 13 4c 44 52  20 52 36 2c 76 6f 6c 77  |e..f.LDR R6,volw|
00004300  69 64 74 68 0d 1c 70 14  4c 44 52 20 52 37 2c 76  |idth..p.LDR R7,v|
00004310  6f 6c 68 65 69 67 68 74  0d 1c 7a 0f 2e 73 65 74  |olheight..z..set|
00004320  76 6f 6c 6c 6f 6f 70 0d  1c 84 0d 54 45 51 20 52  |volloop....TEQ R|
00004330  30 2c 23 30 0d 1c 8e 0e  ec 51 20 52 34 2c 23 26  |0,#0.....Q R4,#&|
00004340  44 44 0d 1c 98 0e ec 51  20 52 33 2c 23 26 44 37  |DD.....Q R3,#&D7|
00004350  0d 1c a2 10 53 55 42 20  52 30 2c 52 30 2c 23 31  |....SUB R0,R0,#1|
00004360  0d 1c ac 13 53 54 52 42  20 52 33 2c 5b 52 35 2c  |....STRB R3,[R5,|
00004370  23 30 5d 0d 1c b6 13 53  54 52 42 20 52 34 2c 5b  |#0]....STRB R4,[|
00004380  52 35 2c 23 31 5d 0d 1c  c0 13 53 54 52 42 20 52  |R5,#1]....STRB R|
00004390  34 2c 5b 52 35 2c 23 32  5d 0d 1c ca 10 53 55 42  |4,[R5,#2]....SUB|
000043a0  20 52 35 2c 52 35 2c 52  36 0d 1c d4 11 53 55 42  | R5,R5,R6....SUB|
000043b0  53 20 52 37 2c 52 37 2c  23 31 0d 1c de 12 42 4e  |S R7,R7,#1....BN|
000043c0  45 20 73 65 74 76 6f 6c  6c 6f 6f 70 0d 1c e8 0f  |E setvolloop....|
000043d0  4d 4f 56 53 20 50 43 2c  52 31 34 0d 1c f2 06 5d  |MOVS PC,R14....]|
000043e0  ed 0d 1c fc 05 e1 0d 1d  06 04 0d 1d 10 1e dd 20  |............... |
000043f0  f2 68 61 6e 64 6c 65 74  72 61 63 6b 65 72 77 69  |.handletrackerwi|
00004400  6e 64 6f 77 28 69 25 29  0d 1d 1a 0b c8 8e 20 69  |ndow(i%)...... i|
00004410  25 20 ca 0d 1d 24 10 c9  20 31 3a f4 20 72 65 77  |% ...$.. 1:. rew|
00004420  69 6e 64 0d 1d 2e 14 20  20 20 f2 63 68 65 63 6b  |ind....   .check|
00004430  76 65 72 73 69 6f 6e 0d  1d 38 18 20 20 20 e7 20  |version..8.   . |
00004440  76 65 72 73 69 6f 6e 25  3e 3d 34 30 30 20 8c 0d  |version%>=400 ..|
00004450  1d 42 28 20 20 20 20 20  20 c8 99 20 22 54 72 61  |.B(      .. "Tra|
00004460  63 6b 65 72 5f 54 75 6e  65 49 6e 66 6f 22 20 b8  |cker_TuneInfo" .|
00004470  20 61 25 2c 2c 64 25 0d  1d 4c 12 20 20 20 20 20  | a%,,d%..L.     |
00004480  20 e7 20 61 25 3e 30 20  8c 0d 1d 56 2c 20 20 20  | . a%>0 ...V,   |
00004490  20 20 20 20 20 20 c8 99  20 22 54 72 61 63 6b 65  |      .. "Tracke|
000044a0  72 5f 52 65 61 64 50 6f  73 22 20 b8 20 61 25 2c  |r_ReadPos" . a%,|
000044b0  62 25 2c 63 25 0d 1d 60  18 20 20 20 20 20 20 20  |b%,c%..`.       |
000044c0  20 20 e7 20 64 25 3d 30  20 64 25 3d 31 0d 1d 6a  |  . d%=0 d%=1..j|
000044d0  1f 20 20 20 20 20 20 20  20 20 e7 20 62 25 3c 35  |.         . b%<5|
000044e0  30 2f 64 25 20 8c 20 61  25 2d 3d 31 0d 1d 74 1b  |0/d% . a%-=1..t.|
000044f0  20 20 20 20 20 20 20 20  20 e7 20 61 25 3c 30 20  |         . a%<0 |
00004500  8c 20 61 25 3d 63 25 0d  1d 7e 25 20 20 20 20 20  |. a%=c%..~%     |
00004510  20 20 20 20 c8 99 20 22  54 72 61 63 6b 65 72 5f  |    .. "Tracker_|
00004520  53 65 74 50 6f 73 22 2c  61 25 2c 30 0d 1d 88 2a  |SetPos",a%,0...*|
00004530  20 20 20 20 20 20 20 20  20 c8 99 20 22 54 72 61  |         .. "Tra|
00004540  63 6b 65 72 5f 52 65 61  64 50 6f 73 22 20 b8 20  |cker_ReadPos" . |
00004550  61 25 2c 2c 63 25 0d 1d  92 25 20 20 20 20 20 20  |a%,,c%...%      |
00004560  20 20 20 24 70 61 74 74  65 72 6e 70 74 72 25 3d  |   $patternptr%=|
00004570  c3 61 25 2b 22 2f 22 2b  c3 63 25 0d 1d 9c 26 20  |.a%+"/"+.c%...& |
00004580  20 20 20 20 20 20 20 20  f2 64 72 61 77 69 63 6f  |        .drawico|
00004590  6e 28 74 72 61 63 6b 65  72 77 69 6e 25 2c 31 31  |n(trackerwin%,11|
000045a0  29 0d 1d a6 0b 20 20 20  20 20 20 cd 0d 1d b0 08  |)....      .....|
000045b0  20 20 20 cd 0d 1d ba 0e  c9 20 32 3a f4 20 73 74  |   ...... 2:. st|
000045c0  6f 70 0d 1d c4 14 20 20  20 f2 63 68 65 63 6b 76  |op....   .checkv|
000045d0  65 72 73 69 6f 6e 0d 1d  ce 2a 20 20 20 e7 20 76  |ersion...*   . v|
000045e0  65 72 73 69 6f 6e 25 3e  3d 34 30 30 20 8c 20 c8  |ersion%>=400 . .|
000045f0  99 20 22 54 72 61 63 6b  65 72 5f 53 74 6f 70 22  |. "Tracker_Stop"|
00004600  0d 1d d8 31 20 20 20 e7  20 76 65 72 73 69 6f 6e  |...1   . version|
00004610  25 3e 3d 30 30 32 20 80  20 76 65 72 73 69 6f 6e  |%>=002 . version|
00004620  25 3c 32 30 30 20 8c 20  2a 50 6c 61 79 53 74 6f  |%<200 . *PlaySto|
00004630  70 0d 1d e2 31 20 20 20  e7 20 76 65 72 73 69 6f  |p...1   . versio|
00004640  6e 25 3e 3d 32 30 30 20  80 20 76 65 72 73 69 6f  |n%>=200 . versio|
00004650  6e 25 3c 33 30 30 20 8c  20 2a 50 6c 61 79 4b 69  |n%<300 . *PlayKi|
00004660  6c 6c 0d 1d ec 31 20 20  20 e7 20 76 65 72 73 69  |ll...1   . versi|
00004670  6f 6e 25 3e 3d 33 30 30  20 80 20 76 65 72 73 69  |on%>=300 . versi|
00004680  6f 6e 25 3c 34 30 30 20  8c 20 2a 50 6c 61 79 53  |on%<400 . *PlayS|
00004690  74 6f 70 0d 1d f6 4d 20  20 20 e7 20 24 70 61 75  |top...M   . $pau|
000046a0  73 65 70 74 72 25 3d 22  70 61 75 73 65 6f 6e 22  |septr%="pauseon"|
000046b0  20 8c 20 24 70 61 75 73  65 70 74 72 25 3d 22 70  | . $pauseptr%="p|
000046c0  61 75 73 65 78 78 22 3a  f2 64 72 61 77 69 63 6f  |ausexx":.drawico|
000046d0  6e 28 74 72 61 63 6b 65  72 77 69 6e 25 2c 34 29  |n(trackerwin%,4)|
000046e0  0d 1e 00 16 c9 20 33 3a  f4 20 66 61 73 74 20 66  |..... 3:. fast f|
000046f0  6f 72 77 61 72 64 0d 1e  0a 14 20 20 20 f2 63 68  |orward....   .ch|
00004700  65 63 6b 76 65 72 73 69  6f 6e 0d 1e 14 18 20 20  |eckversion....  |
00004710  20 e7 20 76 65 72 73 69  6f 6e 25 3e 3d 34 30 30  | . version%>=400|
00004720  20 8c 0d 1e 1e 24 20 20  20 20 20 20 c8 99 20 22  | ....$      .. "|
00004730  54 72 61 63 6b 65 72 5f  54 75 6e 65 49 6e 66 6f  |Tracker_TuneInfo|
00004740  22 20 b8 20 61 25 0d 1e  28 12 20 20 20 20 20 20  |" . a%..(.      |
00004750  e7 20 61 25 3e 30 20 8c  0d 1e 32 2c 20 20 20 20  |. a%>0 ...2,    |
00004760  20 20 20 20 20 c8 99 20  22 54 72 61 63 6b 65 72  |     .. "Tracker|
00004770  5f 52 65 61 64 50 6f 73  22 20 b8 20 61 25 2c 62  |_ReadPos" . a%,b|
00004780  25 2c 63 25 0d 1e 3c 23  20 20 20 20 20 20 20 20  |%,c%..<#        |
00004790  20 e7 20 61 25 3d 63 25  20 8c 20 61 25 3d 30 20  | . a%=c% . a%=0 |
000047a0  8b 20 61 25 2b 3d 31 0d  1e 46 25 20 20 20 20 20  |. a%+=1..F%     |
000047b0  20 20 20 20 c8 99 20 22  54 72 61 63 6b 65 72 5f  |    .. "Tracker_|
000047c0  53 65 74 50 6f 73 22 2c  61 25 2c 30 0d 1e 50 2a  |SetPos",a%,0..P*|
000047d0  20 20 20 20 20 20 20 20  20 c8 99 20 22 54 72 61  |         .. "Tra|
000047e0  63 6b 65 72 5f 52 65 61  64 50 6f 73 22 20 b8 20  |cker_ReadPos" . |
000047f0  61 25 2c 2c 63 25 0d 1e  5a 25 20 20 20 20 20 20  |a%,,c%..Z%      |
00004800  20 20 20 24 70 61 74 74  65 72 6e 70 74 72 25 3d  |   $patternptr%=|
00004810  c3 61 25 2b 22 2f 22 2b  c3 63 25 0d 1e 64 26 20  |.a%+"/"+.c%..d& |
00004820  20 20 20 20 20 20 20 20  f2 64 72 61 77 69 63 6f  |        .drawico|
00004830  6e 28 74 72 61 63 6b 65  72 77 69 6e 25 2c 31 31  |n(trackerwin%,11|
00004840  29 0d 1e 6e 0b 20 20 20  20 20 20 cd 0d 1e 78 08  |)..n.      ...x.|
00004850  20 20 20 cd 0d 1e 82 0f  c9 20 34 3a f4 20 70 61  |   ...... 4:. pa|
00004860  75 73 65 0d 1e 8c 14 20  20 20 f2 63 68 65 63 6b  |use....   .check|
00004870  76 65 72 73 69 6f 6e 0d  1e 96 18 20 20 20 e7 20  |version....   . |
00004880  76 65 72 73 69 6f 6e 25  3e 3d 32 30 30 20 8c 0d  |version%>=200 ..|
00004890  1e a0 1b 20 20 20 20 20  20 e7 20 76 65 72 73 69  |...      . versi|
000048a0  6f 6e 25 3e 3d 34 30 30  20 8c 0d 1e aa 5e 20 20  |on%>=400 ....^  |
000048b0  20 20 20 20 c8 99 20 22  54 72 61 63 6b 65 72 5f  |    .. "Tracker_|
000048c0  54 75 6e 65 49 6e 66 6f  22 20 b8 3b 61 25 3a e7  |TuneInfo" .;a%:.|
000048d0  20 28 61 25 20 80 32 29  3d 30 20 8c 20 24 70 61  | (a% .2)=0 . $pa|
000048e0  75 73 65 70 74 72 25 3d  22 70 61 75 73 65 78 78  |useptr%="pausexx|
000048f0  22 20 8b 20 24 70 61 75  73 65 70 74 72 25 3d 22  |" . $pauseptr%="|
00004900  70 61 75 73 65 6f 6e 22  0d 1e b4 0b 20 20 20 20  |pauseon"....    |
00004910  20 20 cd 0d 1e be 4e 20  20 20 20 20 20 e7 20 24  |  ....N      . $|
00004920  70 61 75 73 65 70 74 72  25 3d 22 70 61 75 73 65  |pauseptr%="pause|
00004930  6f 6e 22 20 8c 20 24 70  61 75 73 65 70 74 72 25  |on" . $pauseptr%|
00004940  3d 22 70 61 75 73 65 78  78 22 20 8b 20 24 70 61  |="pausexx" . $pa|
00004950  75 73 65 70 74 72 25 3d  22 70 61 75 73 65 6f 6e  |useptr%="pauseon|
00004960  22 0d 1e c8 22 20 20 20  20 20 20 f2 64 72 61 77  |"..."      .draw|
00004970  69 63 6f 6e 28 74 72 61  63 6b 65 72 77 69 6e 25  |icon(trackerwin%|
00004980  2c 34 29 0d 1e d2 45 20  20 20 20 20 20 e7 20 76  |,4)...E      . v|
00004990  65 72 73 69 6f 6e 25 3e  3d 34 30 30 20 80 20 24  |ersion%>=400 . $|
000049a0  70 61 75 73 65 70 74 72  25 3d 22 70 61 75 73 65  |pauseptr%="pause|
000049b0  6f 6e 22 20 8c 20 c8 99  20 22 54 72 61 63 6b 65  |on" . .. "Tracke|
000049c0  72 5f 50 61 75 73 65 22  0d 1e dc 44 20 20 20 20  |r_Pause"...D    |
000049d0  20 20 e7 20 76 65 72 73  69 6f 6e 25 3e 3d 34 30  |  . version%>=40|
000049e0  30 20 80 20 24 70 61 75  73 65 70 74 72 25 3d 22  |0 . $pauseptr%="|
000049f0  70 61 75 73 65 78 78 22  20 8c 20 c8 99 20 22 54  |pausexx" . .. "T|
00004a00  72 61 63 6b 65 72 5f 50  6c 61 79 22 0d 1e e6 4c  |racker_Play"...L|
00004a10  20 20 20 20 20 20 e7 20  76 65 72 73 69 6f 6e 25  |      . version%|
00004a20  3e 3d 32 30 30 20 80 20  76 65 72 73 69 6f 6e 25  |>=200 . version%|
00004a30  3c 34 30 30 20 80 20 24  70 61 75 73 65 70 74 72  |<400 . $pauseptr|
00004a40  25 3d 22 70 61 75 73 65  6f 6e 22 20 8c 20 2a 50  |%="pauseon" . *P|
00004a50  6c 61 79 50 61 75 73 65  0d 1e f0 4c 20 20 20 20  |layPause...L    |
00004a60  20 20 e7 20 76 65 72 73  69 6f 6e 25 3e 3d 32 30  |  . version%>=20|
00004a70  30 20 80 20 76 65 72 73  69 6f 6e 25 3c 34 30 30  |0 . version%<400|
00004a80  20 80 20 24 70 61 75 73  65 70 74 72 25 3d 22 70  | . $pauseptr%="p|
00004a90  61 75 73 65 78 78 22 20  8c 20 2a 50 6c 61 79 53  |ausexx" . *PlayS|
00004aa0  74 61 72 74 0d 1e fa 08  20 20 20 cd 0d 1f 04 16  |tart....   .....|
00004ab0  c9 20 31 32 3a f2 72 65  73 65 74 74 72 61 63 6b  |. 12:.resettrack|
00004ac0  65 72 0d 1f 0e 14 c9 20  31 33 3a f2 72 65 73 65  |er..... 13:.rese|
00004ad0  74 73 6f 75 6e 64 0d 1f  18 08 c9 20 31 34 0d 1f  |tsound..... 14..|
00004ae0  22 4d 20 20 20 e7 20 24  70 61 75 73 65 70 74 72  |"M   . $pauseptr|
00004af0  25 3d 22 70 61 75 73 65  6f 6e 22 20 8c 20 24 70  |%="pauseon" . $p|
00004b00  61 75 73 65 70 74 72 25  3d 22 70 61 75 73 65 78  |auseptr%="pausex|
00004b10  78 22 3a f2 64 72 61 77  69 63 6f 6e 28 74 72 61  |x":.drawicon(tra|
00004b20  63 6b 65 72 77 69 6e 25  2c 34 29 0d 1f 2c 16 20  |ckerwin%,4)..,. |
00004b30  20 20 d6 20 6d 6f 64 75  6c 65 70 72 65 73 65 6e  |  . modulepresen|
00004b40  74 0d 1f 36 36 20 20 20  e7 20 21 6d 6f 64 75 6c  |t..66   . !modul|
00004b50  65 61 64 64 20 8c 20 c8  99 20 22 4f 53 5f 4d 6f  |eadd . .. "OS_Mo|
00004b60  64 75 6c 65 22 2c 34 2c  22 54 72 61 63 6b 65 72  |dule",4,"Tracker|
00004b70  4d 6f 64 75 6c 65 22 0d  1f 40 14 20 20 20 f2 63  |Module"..@.   .c|
00004b80  68 65 63 6b 76 65 72 73  69 6f 6e 0d 1f 4a 05 cb  |heckversion..J..|
00004b90  0d 1f 54 05 e1 0d 1f 5e  04 0d 1f 68 21 dd 20 f2  |..T....^...h!. .|
00004ba0  64 72 61 77 69 63 6f 6e  28 21 62 6c 6f 63 6b 25  |drawicon(!block%|
00004bb0  2c 62 6c 6f 63 6b 25 21  34 29 0d 1f 72 1a 62 6c  |,block%!4)..r.bl|
00004bc0  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00004bd0  31 32 3d 30 0d 1f 7c 22  c8 99 20 22 57 69 6d 70  |12=0..|".. "Wimp|
00004be0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004bf0  62 6c 6f 63 6b 25 0d 1f  86 05 e1 0d 1f 90 04 0d  |block%..........|
00004c00  1f 9a 13 dd 20 f2 63 68  65 63 6b 76 65 72 73 69  |.... .checkversi|
00004c10  6f 6e 0d 1f a4 16 41 25  3d 30 3a d6 20 72 65 61  |on....A%=0:. rea|
00004c20  64 76 65 72 73 69 6f 6e  0d 1f ae 2f e7 20 21 76  |dversion.../. !v|
00004c30  65 72 73 69 6f 6e 3d 76  65 72 73 69 6f 6e 25 20  |ersion=version% |
00004c40  8c 20 f2 75 70 64 61 74  65 74 72 61 63 6b 65 72  |. .updatetracker|
00004c50  73 74 61 74 65 3a e1 0d  1f b8 15 76 65 72 73 69  |state:.....versi|
00004c60  6f 6e 25 3d 21 76 65 72  73 69 6f 6e 0d 1f c2 12  |on%=!version....|
00004c70  e7 20 76 65 72 73 69 6f  6e 25 3d 30 20 8c 0d 1f  |. version%=0 ...|
00004c80  cc 14 24 76 65 72 73 69  6f 6e 70 74 72 25 3d 22  |..$versionptr%="|
00004c90  2d 22 0d 1f d6 05 cc 0d  1f e0 3f 61 25 3d 26 46  |-"........?a%=&F|
00004ca0  46 30 32 30 32 30 30 3a  c8 94 20 40 25 2c 61 25  |F020200:.. @%,a%|
00004cb0  3a 24 76 65 72 73 69 6f  6e 70 74 72 25 3d c3 28  |:$versionptr%=.(|
00004cc0  76 65 72 73 69 6f 6e 25  2f 31 30 30 29 3a c8 94  |version%/100):..|
00004cd0  20 40 25 2c 61 25 0d 1f  ea 05 cd 0d 1f f4 1c f2  | @%,a%..........|
00004ce0  64 72 61 77 69 63 6f 6e  28 74 72 61 63 6b 65 72  |drawicon(tracker|
00004cf0  77 69 6e 25 2c 39 29 0d  1f fe 17 f2 75 70 64 61  |win%,9).....upda|
00004d00  74 65 74 72 61 63 6b 65  72 73 74 61 74 65 0d 20  |tetrackerstate. |
00004d10  08 05 e1 0d 20 12 04 0d  20 1c 19 dd 20 f2 75 70  |.... ... ... .up|
00004d20  64 61 74 65 74 72 61 63  6b 65 72 73 74 61 74 65  |datetrackerstate|
00004d30  0d 20 26 0a 61 24 3d 22  2d 22 0d 20 30 15 e7 20  |. &.a$="-". 0.. |
00004d40  76 65 72 73 69 6f 6e 25  3e 3d 34 30 30 20 8c 0d  |version%>=400 ..|
00004d50  20 3a 21 20 20 20 c8 99  20 22 54 72 61 63 6b 65  | :!   .. "Tracke|
00004d60  72 5f 54 75 6e 65 49 6e  66 6f 22 20 b8 20 61 25  |r_TuneInfo" . a%|
00004d70  0d 20 44 0f 20 20 20 e7  20 61 25 3e 30 20 8c 0d  |. D.   . a%>0 ..|
00004d80  20 4e 29 20 20 20 20 20  20 c8 99 20 22 54 72 61  | N)      .. "Tra|
00004d90  63 6b 65 72 5f 52 65 61  64 50 6f 73 22 20 b8 20  |cker_ReadPos" . |
00004da0  61 25 2c 62 25 2c 63 25  0d 20 58 18 20 20 20 20  |a%,b%,c%. X.    |
00004db0  20 20 61 24 3d c3 61 25  2b 22 2f 22 2b c3 63 25  |  a$=.a%+"/"+.c%|
00004dc0  0d 20 62 08 20 20 20 cd  0d 20 6c 05 cd 0d 20 76  |. b.   .. l... v|
00004dd0  18 e7 20 61 24 3c 3e 24  70 61 74 74 65 72 6e 70  |.. a$<>$patternp|
00004de0  74 72 25 20 8c 0d 20 80  16 20 20 20 24 70 61 74  |tr% .. ..   $pat|
00004df0  74 65 72 6e 70 74 72 25  3d 61 24 0d 20 8a 20 20  |ternptr%=a$. .  |
00004e00  20 20 f2 64 72 61 77 69  63 6f 6e 28 74 72 61 63  |  .drawicon(trac|
00004e10  6b 65 72 77 69 6e 25 2c  31 31 29 0d 20 94 05 cd  |kerwin%,11). ...|
00004e20  0d 20 9e 15 e7 20 76 65  72 73 69 6f 6e 25 3e 3d  |. ... version%>=|
00004e30  34 30 30 20 8c 0d 20 a8  24 20 20 20 c8 99 20 22  |400 .. .$   .. "|
00004e40  54 72 61 63 6b 65 72 5f  54 75 6e 65 49 6e 66 6f  |Tracker_TuneInfo|
00004e50  22 20 b8 20 61 25 3b 62  25 0d 20 b2 0f 20 20 20  |" . a%;b%. ..   |
00004e60  e7 20 61 25 3d 30 20 8c  0d 20 bc 16 20 20 20 20  |. a%=0 .. ..    |
00004e70  20 20 61 24 3d 22 57 61  69 74 69 6e 67 22 0d 20  |  a$="Waiting". |
00004e80  c6 08 20 20 20 cc 0d 20  d0 30 20 20 20 20 20 20  |..   .. .0      |
00004e90  e7 20 28 62 25 20 80 32  29 20 8c 20 61 24 3d 22  |. (b% .2) . a$="|
00004ea0  50 61 75 73 65 64 22 20  8b 20 61 24 3d 22 50 6c  |Paused" . a$="Pl|
00004eb0  61 79 69 6e 67 22 0d 20  da 31 20 20 20 20 20 20  |aying". .1      |
00004ec0  e7 20 28 62 25 20 80 32  29 20 8c 20 62 24 3d 22  |. (b% .2) . b$="|
00004ed0  70 61 75 73 65 6f 6e 22  20 8b 20 62 24 3d 22 70  |pauseon" . b$="p|
00004ee0  61 75 73 65 78 78 22 0d  20 e4 43 20 20 20 20 20  |ausexx". .C     |
00004ef0  20 e7 20 62 24 3c 3e 24  70 61 75 73 65 70 74 72  | . b$<>$pauseptr|
00004f00  25 20 8c 20 24 70 61 75  73 65 70 74 72 25 3d 62  |% . $pauseptr%=b|
00004f10  24 3a f2 64 72 61 77 69  63 6f 6e 28 74 72 61 63  |$:.drawicon(trac|
00004f20  6b 65 72 77 69 6e 25 2c  34 29 0d 20 ee 08 20 20  |kerwin%,4). ..  |
00004f30  20 cd 0d 20 f8 05 cc 0d  21 02 3a 20 20 20 e7 20  | .. ....!.:   . |
00004f40  24 70 61 75 73 65 70 74  72 25 3d 22 70 61 75 73  |$pauseptr%="paus|
00004f50  65 78 78 22 20 8c 20 61  24 3d 22 50 72 65 73 65  |exx" . a$="Prese|
00004f60  6e 74 22 20 8b 20 61 24  3d 22 50 61 75 73 65 64  |nt" . a$="Paused|
00004f70  22 0d 21 0c 23 20 20 20  e7 20 76 65 72 73 69 6f  |".!.#   . versio|
00004f80  6e 25 3d 30 20 61 24 3d  22 4e 6f 74 20 6c 6f 61  |n%=0 a$="Not loa|
00004f90  64 65 64 22 0d 21 16 05  cd 0d 21 20 17 e7 20 61  |ded".!....! .. a|
00004fa0  24 3c 3e 24 73 74 61 74  75 73 70 74 72 25 20 8c  |$<>$statusptr% .|
00004fb0  0d 21 2a 12 24 73 74 61  74 75 73 70 74 72 25 3d  |.!*.$statusptr%=|
00004fc0  61 24 0d 21 34 1c f2 64  72 61 77 69 63 6f 6e 28  |a$.!4..drawicon(|
00004fd0  74 72 61 63 6b 65 72 77  69 6e 25 2c 38 29 0d 21  |trackerwin%,8).!|
00004fe0  3e 05 cd 0d 21 48 05 e1  0d 21 52 04 0d 21 5c 13  |>...!H...!R..!\.|
00004ff0  dd 20 f2 72 65 73 65 74  74 72 61 63 6b 65 72 0d  |. .resettracker.|
00005000  21 66 11 f2 63 68 65 63  6b 76 65 72 73 69 6f 6e  |!f..checkversion|
00005010  0d 21 70 14 e7 20 76 65  72 73 69 6f 6e 25 3d 30  |.!p.. version%=0|
00005020  20 8c 20 e1 0d 21 7a 44  e7 20 76 65 72 73 69 6f  | . ..!zD. versio|
00005030  6e 25 3e 3d 30 30 32 20  80 20 76 65 72 73 69 6f  |n%>=002 . versio|
00005040  6e 25 3c 32 30 30 20 8c  20 f2 73 65 74 73 65 6c  |n%<200 . .setsel|
00005050  65 63 74 28 31 31 2c b9  2c b9 29 3a 6f 6c 64 73  |ect(11,.,.):olds|
00005060  6f 75 6e 64 31 25 3d 34  0d 21 84 15 e7 20 76 65  |ound1%=4.!... ve|
00005070  72 73 69 6f 6e 25 3e 3d  34 30 30 20 8c 0d 21 8e  |rsion%>=400 ..!.|
00005080  23 c8 99 20 22 58 54 72  61 63 6b 65 72 5f 54 75  |#.. "XTracker_Tu|
00005090  6e 65 49 6e 66 6f 22 20  b8 20 2c 62 25 3b 65 25  |neInfo" . ,b%;e%|
000050a0  0d 21 98 11 e7 20 28 65  25 20 80 31 29 3d 30 20  |.!... (e% .1)=0 |
000050b0  8c 0d 21 a2 0b c8 8e 20  62 25 20 ca 0d 21 ac 26  |..!.... b% ..!.&|
000050c0  c9 20 31 3a f2 73 65 74  73 65 6c 65 63 74 28 39  |. 1:.setselect(9|
000050d0  2c b9 2c b9 29 3a 6f 6c  64 73 6f 75 6e 64 31 25  |,.,.):oldsound1%|
000050e0  3d 31 0d 21 b6 27 c9 20  32 3a f2 73 65 74 73 65  |=1.!.'. 2:.setse|
000050f0  6c 65 63 74 28 31 30 2c  b9 2c b9 29 3a 6f 6c 64  |lect(10,.,.):old|
00005100  73 6f 75 6e 64 31 25 3d  32 0d 21 c0 29 c9 20 34  |sound1%=2.!.). 4|
00005110  2c 33 3a f2 73 65 74 73  65 6c 65 63 74 28 31 31  |,3:.setselect(11|
00005120  2c b9 2c b9 29 3a 6f 6c  64 73 6f 75 6e 64 31 25  |,.,.):oldsound1%|
00005130  3d 34 0d 21 ca 2d c9 20  38 2c 37 2c 36 2c 35 3a  |=4.!.-. 8,7,6,5:|
00005140  f2 73 65 74 73 65 6c 65  63 74 28 31 32 2c b9 2c  |.setselect(12,.,|
00005150  b9 29 3a 6f 6c 64 73 6f  75 6e 64 31 25 3d 38 0d  |.):oldsound1%=8.|
00005160  21 d4 05 cb 0d 21 de 05  cd 0d 21 e8 05 cd 0d 21  |!....!....!....!|
00005170  f2 14 e7 20 76 65 72 73  69 6f 6e 25 3c 34 30 35  |... version%<405|
00005180  20 8c 0d 21 fc 65 e7 20  6f 6c 64 73 6f 75 6e 64  | ..!.e. oldsound|
00005190  31 25 3c 3d 34 20 8c 20  6f 6c 64 73 6f 75 6e 64  |1%<=4 . oldsound|
000051a0  33 25 3d 33 34 3a f2 73  65 74 73 65 6c 65 63 74  |3%=34:.setselect|
000051b0  28 37 2c b9 2c b9 29 20  8b 20 6f 6c 64 73 6f 75  |(7,.,.) . oldsou|
000051c0  6e 64 33 25 3d 33 31 3a  f2 73 65 74 6f 74 68 65  |nd3%=31:.setothe|
000051d0  72 28 33 31 29 3a f2 73  65 74 73 65 6c 65 63 74  |r(31):.setselect|
000051e0  28 38 2c b9 2c b9 29 0d  22 06 05 cd 0d 22 10 2f  |(8,.,.)."...."./|
000051f0  c8 99 20 22 53 6f 75 6e  64 5f 43 6f 6e 66 69 67  |.. "Sound_Config|
00005200  75 72 65 22 2c 6f 6c 64  73 6f 75 6e 64 31 25 2c  |ure",oldsound1%,|
00005210  2c 6f 6c 64 73 6f 75 6e  64 33 25 0d 22 1a 16 f2  |,oldsound3%."...|
00005220  73 65 74 73 65 6c 65 63  74 28 31 39 2c b9 2c a3  |setselect(19,.,.|
00005230  29 0d 22 24 2b 6f 6c 64  61 75 64 69 6f 25 3d 32  |)."$+oldaudio%=2|
00005240  3a c8 99 20 22 53 6f 75  6e 64 5f 45 6e 61 62 6c  |:.. "Sound_Enabl|
00005250  65 22 2c 6f 6c 64 61 75  64 69 6f 25 0d 22 2e 14  |e",oldaudio%."..|
00005260  e7 20 76 65 72 73 69 6f  6e 25 3c 34 30 35 20 8c  |. version%<405 .|
00005270  0d 22 38 17 e3 20 74 25  3d 31 20 b8 20 6f 6c 64  |."8.. t%=1 . old|
00005280  73 6f 75 6e 64 31 25 0d  22 42 36 c8 99 20 22 58  |sound1%."B6.. "X|
00005290  53 6f 75 6e 64 5f 41 74  74 61 63 68 4e 61 6d 65  |Sound_AttachName|
000052a0  64 56 6f 69 63 65 22 2c  74 25 2c 22 54 72 61 63  |dVoice",t%,"Trac|
000052b0  6b 65 72 22 2b bd 30 20  b8 20 3b 66 25 0d 22 4c  |ker"+.0 . ;f%."L|
000052c0  48 e7 20 28 66 25 20 80  31 29 3c 3e 30 20 8c 20  |H. (f% .1)<>0 . |
000052d0  c8 99 20 22 58 53 6f 75  6e 64 5f 41 74 74 61 63  |.. "XSound_Attac|
000052e0  68 4e 61 6d 65 64 56 6f  69 63 65 22 2c 74 25 2c  |hNamedVoice",t%,|
000052f0  22 54 72 61 63 6b 65 72  56 6f 78 22 2b bd 30 20  |"TrackerVox"+.0 |
00005300  b8 20 3b 66 25 0d 22 56  4a e7 20 28 66 25 20 80  |. ;f%."VJ. (f% .|
00005310  31 29 3c 3e 30 20 8c 20  c8 99 20 22 58 53 6f 75  |1)<>0 . .. "XSou|
00005320  6e 64 5f 41 74 74 61 63  68 4e 61 6d 65 64 56 6f  |nd_AttachNamedVo|
00005330  69 63 65 22 2c 74 25 2c  22 54 72 61 63 6b 65 72  |ice",t%,"Tracker|
00005340  56 6f 69 63 65 22 2b bd  30 20 b8 20 3b 66 25 0d  |Voice"+.0 . ;f%.|
00005350  22 60 1e e7 20 28 66 25  20 80 31 29 3d 30 20 8c  |"`.. (f% .1)=0 .|
00005360  20 d4 20 74 25 2c 2d 31  35 2c 30 2c 31 0d 22 6a  | . t%,-15,0,1."j|
00005370  05 ed 0d 22 74 05 cd 0d  22 7e 14 e7 20 76 65 72  |..."t..."~.. ver|
00005380  73 69 6f 6e 25 3c 34 30  35 20 8c 0d 22 88 36 20  |sion%<405 ..".6 |
00005390  20 20 e7 20 76 65 72 73  69 6f 6e 25 3e 3d 30 30  |  . version%>=00|
000053a0  32 20 80 20 76 65 72 73  69 6f 6e 25 3c 32 30 30  |2 . version%<200|
000053b0  20 8c 20 4a 25 3d 31 36  20 8b 20 4a 25 3d 2d 31  | . J%=16 . J%=-1|
000053c0  36 0d 22 92 26 20 20 20  e3 20 54 25 3d 31 20 b8  |6.".&   . T%=1 .|
000053d0  20 38 3a e7 20 28 54 25  20 80 31 29 3d 30 20 8c  | 8:. (T% .1)=0 .|
000053e0  20 4a 25 3d 2d 4a 25 0d  22 9c 1f 20 20 20 c8 a2  | J%=-J%."..   ..|
000053f0  20 54 25 2c 4a 25 3a ed  3a f2 75 70 64 61 74 65  | T%,J%:.:.update|
00005400  73 74 65 72 65 6f 0d 22  a6 05 cc 0d 22 b0 22 20  |stereo."...."." |
00005410  20 20 c8 99 20 22 54 72  61 63 6b 65 72 5f 53 74  |  .. "Tracker_St|
00005420  65 72 65 6f 22 2c 2d 31  20 b8 2c 61 25 0d 22 ba  |ereo",-1 .,a%.".|
00005430  1c 20 20 20 e3 20 54 25  3d 30 20 b8 20 6f 6c 64  |.   . T%=0 . old|
00005440  73 6f 75 6e 64 31 25 2d  31 0d 22 c4 28 20 20 20  |sound1%-1.".(   |
00005450  62 25 3d 61 25 3f 54 25  3a e7 20 62 25 3c 31 20  |b%=a%?T%:. b%<1 |
00005460  62 25 3d 31 20 8b 20 e7  62 25 3e 37 20 62 25 3d  |b%=1 . .b%>7 b%=|
00005470  37 0d 22 ce 1d 20 20 20  c8 a2 20 54 25 2b 31 2c  |7."..   .. T%+1,|
00005480  73 74 65 72 65 6f 6d 61  70 25 28 62 25 29 0d 22  |stereomap%(b%)."|
00005490  d8 08 20 20 20 ed 0d 22  e2 14 20 20 20 f2 75 70  |..   .."..   .up|
000054a0  64 61 74 65 73 74 65 72  65 6f 0d 22 ec 05 cd 0d  |datestereo."....|
000054b0  22 f6 05 e1 0d 23 00 04  0d 23 0a 11 dd 20 f2 72  |"....#...#... .r|
000054c0  65 73 65 74 73 6f 75 6e  64 0d 23 14 22 c8 99 20  |esetsound.#.".. |
000054d0  22 4f 53 5f 42 79 74 65  22 2c 31 36 31 2c 31 34  |"OS_Byte",161,14|
000054e0  38 20 b8 20 2c 2c 63 6d  6f 73 25 0d 23 1e 15 63  |8 . ,,cmos%.#..c|
000054f0  25 3d 28 63 6d 6f 73 25  20 80 20 31 35 29 2b 31  |%=(cmos% . 15)+1|
00005500  0d 23 28 12 73 25 3d 63  6d 6f 73 25 20 80 20 31  |.#(.s%=cmos% . 1|
00005510  32 38 0d 23 32 15 76 25  3d 28 63 6d 6f 73 25 3e  |28.#2.v%=(cmos%>|
00005520  3e 34 29 20 80 20 37 0d  23 3c 13 76 25 3d 76 25  |>4) . 7.#<.v%=v%|
00005530  2a 31 36 2b 76 25 2a 32  2b 31 0d 23 46 18 c8 99  |*16+v%*2+1.#F...|
00005540  20 22 53 6f 75 6e 64 5f  56 6f 6c 75 6d 65 22 2c  | "Sound_Volume",|
00005550  76 25 0d 23 50 1f c8 99  20 22 53 6f 75 6e 64 5f  |v%.#P... "Sound_|
00005560  41 74 74 61 63 68 56 6f  69 63 65 22 2c 31 2c 63  |AttachVoice",1,c|
00005570  25 0d 23 5a 1b f2 73 65  74 73 65 6c 65 63 74 28  |%.#Z..setselect(|
00005580  31 38 2c 73 25 3d 31 32  38 2c a3 29 0d 23 64 1b  |18,s%=128,.).#d.|
00005590  6f 6c 64 73 70 65 61 6b  65 72 25 3d 32 2b 28 73  |oldspeaker%=2+(s|
000055a0  25 3c 3e 31 32 38 29 0d  23 6e 22 c8 99 20 22 53  |%<>128).#n".. "S|
000055b0  6f 75 6e 64 5f 53 70 65  61 6b 65 72 22 2c 6f 6c  |ound_Speaker",ol|
000055c0  64 73 70 65 61 6b 65 72  25 0d 23 78 16 f2 73 65  |dspeaker%.#x..se|
000055d0  74 73 65 6c 65 63 74 28  31 39 2c b9 2c a3 29 0d  |tselect(19,.,.).|
000055e0  23 82 2b 6f 6c 64 61 75  64 69 6f 25 3d 32 3a c8  |#.+oldaudio%=2:.|
000055f0  99 20 22 53 6f 75 6e 64  5f 45 6e 61 62 6c 65 22  |. "Sound_Enable"|
00005600  2c 6f 6c 64 61 75 64 69  6f 25 0d 23 8c 10 6f 6c  |,oldaudio%.#..ol|
00005610  64 73 6f 75 6e 64 31 25  3d 31 0d 23 96 15 f2 73  |dsound1%=1.#...s|
00005620  65 74 73 65 6c 65 63 74  28 39 2c b9 2c b9 29 0d  |etselect(9,.,.).|
00005630  23 a0 11 6f 6c 64 73 6f  75 6e 64 33 25 3d 34 38  |#..oldsound3%=48|
00005640  0d 23 aa 15 f2 73 65 74  73 65 6c 65 63 74 28 35  |.#...setselect(5|
00005650  2c b9 2c b9 29 0d 23 b4  2f c8 99 20 22 53 6f 75  |,.,.).#./.. "Sou|
00005660  6e 64 5f 43 6f 6e 66 69  67 75 72 65 22 2c 6f 6c  |nd_Configure",ol|
00005670  64 73 6f 75 6e 64 31 25  2c 2c 6f 6c 64 73 6f 75  |dsound1%,,oldsou|
00005680  6e 64 33 25 0d 23 be 18  c8 a2 20 31 2c 30 3a f2  |nd3%.#.... 1,0:.|
00005690  75 70 64 61 74 65 73 74  65 72 65 6f 0d 23 c8 05  |updatestereo.#..|
000056a0  e1 0d 23 d2 04 0d 23 dc  13 dd 20 f2 75 70 64 61  |..#...#... .upda|
000056b0  74 65 76 6f 6c 75 6d 65  0d 23 e6 1a c8 99 20 22  |tevolume.#.... "|
000056c0  53 6f 75 6e 64 5f 56 6f  6c 75 6d 65 22 20 b8 20  |Sound_Volume" . |
000056d0  61 25 0d 23 f0 56 e7 20  76 65 72 73 69 6f 6e 25  |a%.#.V. version%|
000056e0  3e 3d 34 30 36 20 8c 20  c8 99 20 22 54 72 61 63  |>=406 . .. "Trac|
000056f0  6b 65 72 5f 54 75 6e 65  49 6e 66 6f 22 20 b8 20  |ker_TuneInfo" . |
00005700  62 25 3a e7 20 62 25 3c  3e 30 20 8c 20 c8 99 20  |b%:. b%<>0 . .. |
00005710  22 54 72 61 63 6b 65 72  5f 56 6f 6c 75 6d 65 22  |"Tracker_Volume"|
00005720  2c 2d 31 20 b8 20 61 25  0d 23 fa 21 e7 20 61 25  |,-1 . a%.#.!. a%|
00005730  3c 31 20 61 25 3d 31 20  8b 20 e7 20 61 25 3e 31  |<1 a%=1 . . a%>1|
00005740  32 37 20 61 25 3d 31 32  37 0d 24 04 14 e7 20 61  |27 a%=127.$... a|
00005750  25 3d 76 6f 6c 75 6d 65  25 20 8c 20 e1 0d 24 0e  |%=volume% . ..$.|
00005760  0e 76 6f 6c 75 6d 65 25  3d 61 25 0d 24 18 17 41  |.volume%=a%.$..A|
00005770  25 3d 76 6f 6c 75 6d 65  25 2f 28 31 32 38 2f 33  |%=volume%/(128/3|
00005780  33 29 0d 24 22 0f d6 20  73 65 74 76 6f 6c 75 6d  |3).$".. setvolum|
00005790  65 0d 24 2c 19 f2 64 72  61 77 69 63 6f 6e 28 77  |e.$,..drawicon(w|
000057a0  69 6e 64 6f 77 25 2c 36  30 29 0d 24 36 05 e1 0d  |indow%,60).$6...|
000057b0  24 40 04 0d 24 4a 0e dd  20 f2 73 70 72 69 74 65  |$@..$J.. .sprite|
000057c0  73 0d 24 54 31 58 25 3d  8e 22 3c 53 6f 75 6e 64  |s.$T1X%=."<Sound|
000057d0  43 74 72 6c 24 44 69 72  3e 2e 53 70 72 69 74 65  |Ctrl$Dir>.Sprite|
000057e0  46 69 6c 65 22 3a 6c 25  3d a2 23 58 25 3a d9 23  |File":l%=.#X%:.#|
000057f0  58 25 0d 24 5e 13 de 20  73 70 72 69 74 65 73 25  |X%.$^.. sprites%|
00005800  20 6c 25 2b 34 0d 24 68  47 21 73 70 72 69 74 65  | l%+4.$hG!sprite|
00005810  73 25 3d 6c 25 2b 34 3a  ff 28 22 4c 4f 41 44 20  |s%=l%+4:.("LOAD |
00005820  3c 53 6f 75 6e 64 43 74  72 6c 24 44 69 72 3e 2e  |<SoundCtrl$Dir>.|
00005830  53 70 72 69 74 65 46 69  6c 65 20 22 2b c3 7e 28  |SpriteFile "+.~(|
00005840  73 70 72 69 74 65 73 25  2b 34 29 29 0d 24 72 2d  |sprites%+4)).$r-|
00005850  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00005860  2c 32 35 36 2b 35 34 2c  73 70 72 69 74 65 73 25  |,256+54,sprites%|
00005870  2c 22 76 6f 6c 75 6d 65  22 0d 24 7c 39 c8 99 20  |,"volume".$|9.. |
00005880  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00005890  36 2b 32 34 2c 73 70 72  69 74 65 73 25 2c 22 76  |6+24,sprites%,"v|
000058a0  6f 6c 75 6d 65 22 20 b8  20 2c 2c 76 6f 6c 61 64  |olume" . ,,volad|
000058b0  64 25 0d 24 86 1e 76 6f  6c 77 69 64 74 68 25 3d  |d%.$..volwidth%=|
000058c0  28 76 6f 6c 61 64 64 25  21 31 36 2b 31 29 2a 34  |(voladd%!16+1)*4|
000058d0  0d 24 90 1b 76 6f 6c 68  65 69 67 68 74 25 3d 76  |.$..volheight%=v|
000058e0  6f 6c 61 64 64 25 21 32  30 2d 31 0d 24 9a 38 76  |oladd%!20-1.$.8v|
000058f0  6f 6c 62 61 73 65 25 3d  76 6f 6c 61 64 64 25 2b  |olbase%=voladd%+|
00005900  76 6f 6c 61 64 64 25 21  33 32 2b 76 6f 6c 68 65  |voladd%!32+volhe|
00005910  69 67 68 74 25 2a 76 6f  6c 77 69 64 74 68 25 2b  |ight%*volwidth%+|
00005920  39 2f 32 0d 24 a4 05 e1  0d 24 ae 04 0d 24 b8 14  |9/2.$....$...$..|
00005930  dd 20 f2 73 65 74 76 6f  6c 75 6d 65 28 41 25 29  |. .setvolume(A%)|
00005940  0d 24 c2 17 41 25 3d 41  25 2f 34 3a d6 20 73 65  |.$..A%=A%/4:. se|
00005950  74 76 6f 6c 75 6d 65 0d  24 cc 12 61 25 3d 41 25  |tvolume.$..a%=A%|
00005960  2a 28 31 32 38 2f 33 33  29 0d 24 d6 22 e7 20 61  |*(128/33).$.". a|
00005970  25 3c 31 20 61 25 3d 31  20 8b 20 e7 20 61 25 3e  |%<1 a%=1 . . a%>|
00005980  3d 31 32 34 20 61 25 3d  31 32 37 0d 24 e0 14 e7  |=124 a%=127.$...|
00005990  20 76 6f 6c 75 6d 65 25  3d 61 25 20 8c 20 e1 0d  | volume%=a% . ..|
000059a0  24 ea 0e 76 6f 6c 75 6d  65 25 3d 61 25 0d 24 f4  |$..volume%=a%.$.|
000059b0  19 f2 64 72 61 77 69 63  6f 6e 28 77 69 6e 64 6f  |..drawicon(windo|
000059c0  77 25 2c 36 30 29 0d 24  fe 15 e7 20 76 65 72 73  |w%,60).$... vers|
000059d0  69 6f 6e 25 3e 3d 34 30  36 20 8c 0d 25 08 21 20  |ion%>=406 ..%.! |
000059e0  20 20 c8 99 20 22 54 72  61 63 6b 65 72 5f 54 75  |  .. "Tracker_Tu|
000059f0  6e 65 49 6e 66 6f 22 20  b8 20 61 25 0d 25 12 10  |neInfo" . a%.%..|
00005a00  20 20 20 e7 20 61 25 3c  3e 30 20 8c 0d 25 1c 25  |   . a%<>0 ..%.%|
00005a10  20 20 20 20 20 20 c8 99  20 22 54 72 61 63 6b 65  |      .. "Tracke|
00005a20  72 5f 56 6f 6c 75 6d 65  22 2c 76 6f 6c 75 6d 65  |r_Volume",volume|
00005a30  25 0d 25 26 08 20 20 20  cc 0d 25 30 23 20 20 20  |%.%&.   ..%0#   |
00005a40  20 20 20 c8 99 20 22 53  6f 75 6e 64 5f 56 6f 6c  |   .. "Sound_Vol|
00005a50  75 6d 65 22 2c 76 6f 6c  75 6d 65 25 0d 25 3a 08  |ume",volume%.%:.|
00005a60  20 20 20 cd 0d 25 44 05  cc 0d 25 4e 20 20 20 20  |   ..%D...%N    |
00005a70  c8 99 20 22 53 6f 75 6e  64 5f 56 6f 6c 75 6d 65  |.. "Sound_Volume|
00005a80  22 2c 76 6f 6c 75 6d 65  25 0d 25 58 05 cd 0d 25  |",volume%.%X...%|
00005a90  62 05 e1 0d ff                                    |b....|
00005a95

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .