Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199611.adf » Regulars » MikeC/!AudioSel/Selector

MikeC/!AudioSel/Selector

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199611.adf » Regulars
Filename: MikeC/!AudioSel/Selector
Read OK:
File size: 3A06 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>Develop.!AudioSel.AudioSel
   20ON ERROR PROCerrorbox
   30
   40DIM taskid%4:$taskid%="TASK"
   50DIM intmess% 200
   60intmess%!0=2:intmess%!4=3:intmess%!8=4:intmess%!12=&400C1:intmess%!16=&502
   70intmess%!20=0
   80DIM Pt% 24,invmenu% 100,defmenu% 100
   90SYS "Wimp_Initialise",300,!taskid%,"AudioSelector",intmess% TO version%,taskhand%
  100
  110DIM q% &300,qc% 80, W% &1000,temp% 256,buffers% 512,menu% 128,SW% 512,cb% 18
  120DIM IsName% 256, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
  130DIM Pl% 255,Pr% 255,PBK% 8
  140NoI%=45
  150DIM SPoint%(NoI%),IX%(NoI%),IY%(NoI%),IX1%(NoI%),IY1%(NoI%)
  160DIM Mute%(3,3),Sgain%(3),Pan%(3,3),PandB$(31),XYpan%(3,1),Vol%(3),Bass%(3),Treble%(3)
  170
  180SYS "Wimp_OpenTemplate",,"<AudioSel$Dir>.Templates"
  190ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
  200
  210SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  220SYS "Wimp_CreateWindow",,q% TO info%
  230
  240
  250SYS "Wimp_LoadTemplate",,W%+4,SW%,SW%+512,-1,"Pallette",0
  260W%!28=-1
  270FOR A%=0 TO NoI%
  280SPoint%(A%)=!(W%+4+88+20+32*A%)
  290IX%(A%)=!(W%+4+88+32*A%):IY%(A%)=!(W%+4+88+4+32*A%)
  300IX1%(A%)=!(W%+4+88+8+32*A%):IY1%(A%)=!(W%+4+88+12+32*A%)
  310NEXT
  320
  330SYS "Wimp_CreateWindow",,W%+4 TO pallW%
  340W%!0=pallW%
  350
  360SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
  370q%!108=TextWarn%:q%!112=-1:q%!116=300
  380XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
  390SYS "Wimp_CreateWindow",,q% TO warningW%
  400SYS "Wimp_CloseTemplate"
  410ref%=0
  420cpL%=0:cpR%=0
  430smpicon%=FNicon
  440wopen%=FALSE:warnOn%=FALSE
  450ON ERROR PROCerrorbox
  460DragOn%=0:XL%=0:YL%=0
  470secureF%=0
  480Xpan%=0:Ypan%=0
  490R130=RAD(130)
  500PROCiTOUT(0)
  510IF DeviceD%=FALSE PROC_setupW("Can't find IIC Audio Control Hardware")
  520PROCsetupmenu
  530PROCsetupState
  540
  550REPEAT
  560 SYS "Wimp_Poll",0,q% TO A%
  570  CASE A% OF
  580   WHEN 0:PROCnull
  590   WHEN 1:PROC_doWindow
  600   WHEN 2:SYS "Wimp_OpenWindow",,q% :IF q%!0=pallW% THEN wopen%=TRUE
  610   WHEN 3:PROC_close
  620   WHEN 6:PROC_do_click(q%)
  630   WHEN 7:PROC_PutDown(q%)
  640   WHEN 8:PROC_KeyPress
  650   WHEN 9:PROC_SORT_Menu
  660   WHEN 17,18:PROCreceive(q%)
  670   ENDCASE
  680 UNTIL FALSE
  690
  700END
  710
  720DEF PROCnull
  730MOUSE X%,Y%,mouseB%
  740IF mouseB%<>4 THEN DragOn%=0
  750IF DragOn%<>0 AND (XL%<>X% OR YL%<>Y%) THEN
  760CASE DragOn% OF
  770  WHEN 1:PROC_DA
  780  WHEN 2:PROCdragVol
  790  WHEN 3:PROCdragBass
  800  WHEN 4:PROCdragTreble
  810ENDCASE
  820ENDIF
  830ENDPROC
  840
  850DEF PROC_PutDown(q%)
  860IF DragOn% THEN
  870SYS "Wimp_GetPointerInfo",,q%
  880DragOn%=FALSE
  890VDU7
  900ENDIF
  910ENDPROC
  920
  930DEF FN_spath(n$)
  940WHILE INSTR(n$,".")
  950n$=RIGHT$(n$,LEN(n$)-1)
  960ENDWHILE
  970IF LEN(n$)>10 THEN n$=RIGHT$(n$,10)
  980=n$
  990
 1000DEF PROC_SORT_Menu
 1010IF IconMenu% THEN
 1020IF !q%=1 THEN PROC_SaveSettings
 1030ELSE
 1040ENDIF
 1050SYS"Wimp_GetPointerInfo",,q%
 1060ENDPROC
 1070
 1080DEF PROC_close
 1090IF q%!0=pallW% THEN wopen%=FALSE:GotBar%=FALSE:SYS"Wimp_GetWindowInfo",,W%
 1100IF q%!0=warningW% THEN warnOn%=FALSE
 1110SYS "Wimp_CloseWindow",,q%
 1120ENDPROC
 1130
 1140DEF PROC_do_click(q%)
 1150LOCAL X%,Y%,C%,T%
 1160i%=q%!16
 1170CASE q%!12 OF
 1180WHEN warningW%: q%!0=warningW% :PROC_close
 1190WHEN -2: REM Look first at Icon Bar Click
 1200        IF q%!16=smpicon% THEN
 1210        IF q%!8=2 THEN IconMenu%=TRUE: SYS"Wimp_CreateMenu",,menu%,q%!0-94,190
 1220        IF q%!8=4 THEN PROC_OpenWhat
 1230        ENDIF
 1240
 1250WHEN pallW%:  
 1260              IF q%!8=4 THEN PROC_MonClick
 1270ENDCASE
 1280ENDPROC
 1290
 1300DEF PROC_MonClick
 1310LOCAL D%,V%,B%
 1320REM Do the action for a window click
 1330
 1340IF i%<4 AND i%>=0 THEN
 1350Mute%(Select%,i%)=NOT(Mute%(Select%,i%))
 1360IF Mute%(Select%,i%) THEN $SPoint%(i%)="mute" ELSE $SPoint%(i%)="speaker"
 1370SYS"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
 1380IF Mute%(Select%,0) THEN PROCiOUT(&9F) ELSE PROCiOUT(&80 OR Pan%(Select%,0))
 1390IF Mute%(Select%,1) THEN PROCiOUT(&DF) ELSE PROCiOUT(&C0 OR Pan%(Select%,1))
 1400IF Mute%(Select%,2) THEN PROCiOUT(&FF) ELSE PROCiOUT(&E0 OR Pan%(Select%,2))
 1410IF Mute%(Select%,3) THEN PROCiOUT(&BF) ELSE PROCiOUT(&A0 OR Pan%(Select%,3))
 1420ENDIF
 1430
 1440IF i%>11 AND i%<16 THEN
 1450D%=Sgain%(Select%)+12
 1460$SPoint%(D%)="sel"
 1470SYS"Wimp_ForceRedraw",pallW%,IX%(D%),IY%(D%),IX1%(D%),IY1%(D%)
 1480Sgain%(Select%)=i%-12
 1490$SPoint%(i%)="psel"
 1500SYS"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
 1510PROCiOUT(&40 OR Select% OR ((Sgain%(Select%) EOR 3)<<3))
 1520ENDIF
 1530
 1540IF i%>7 AND i%<12 THEN
 1550  $SPoint%(Select%+8)="sel"
 1560  SYS"Wimp_ForceRedraw",pallW%,IX%(Select%+8),IY%(Select%+8),IX1%(Select%+8),IY1%(Select%+8)
 1570  $SPoint%(i%)="psel"
 1580  SYS"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
 1590  PROCupdateSelect(i%-8)
 1600  Select%=i%-8
 1610  PROCiOUT(&40 OR Select% OR ((Sgain%(Select%) EOR 3)<<3))
 1620  PROC_PanUp(Xpan%,Ypan%)
 1630  PROC_ForcePanUp
 1640ENDIF
 1650
 1660IF i%>30 AND i%<39 THEN
 1670  Vol%(Select%)=(i%-31)*8
 1680  SYS"Wimp_ForceRedraw",pallW%,IX%(39),IY%(39),IX1%(39),IY1%(39)
 1690  PROCiOUT((Vol%(Select%)) EOR &3F)
 1700ENDIF
 1710IF i%=39 THEN DragOn%=2
 1720IF i%=40 THEN DragOn%=3
 1730IF i%=41 THEN DragOn%=4
 1740IF i%=28 THEN
 1750 MOUSE XL%,YL%,mouseB%
 1760 Xpan%=0:Ypan%=0
 1770 PROC_PanUp(Xpan%,Ypan%)
 1780 PROC_ForcePanUp
 1790ENDIF
 1800
 1810 REM Look for drag
 1820IF FNpointIn=1 THEN
 1830DragOn%=1
 1840MOUSE XL%,YL%,mouseB%
 1850ENDIF
 1860ENDPROC
 1870
 1880
 1890DEF PROC_OpenWhat
 1900LOCAL Ncol%
 1910IF NOT(warnOn%) THEN
 1920  SYS"OS_ReadModeVariable",-1,3 TO ,,Ncol%
 1930  PROC_Open
 1940ENDIF
 1950ENDPROC
 1960
 1970DEF FNpointIn
 1980LOCAL X%,Y%,B%,R%
 1990PROC_Trans(pallW%)
 2000MOUSE X%,Y%,B%
 2010R%=0
 2020IF X%>(xo%+256+Xpan%) AND X%<(xo%+290+Xpan%) AND Y%>(yo%+390+Ypan%) AND Y%<(yo%+424+Ypan%) THEN R%=1
 2030=R%
 2040
 2050REM Drag pointer
 2060DEF PROC_DA
 2070
 2080   Xpan%+=(X%-XL%):Ypan%+=(Y%-YL%)
 2090   IF ABS(Xpan%)>116 THEN Xpan%=116*(Xpan%/ABS(Xpan%))
 2100   IF ABS(Ypan%)>68 THEN Ypan%=68*(Ypan%/ABS(Ypan%))
 2110   
 2120   q%!0=pallW%:q%!4=144:q%!8=-278:q%!12=416:q%!16=-108
 2130   PROC_PanUp(Xpan%,Ypan%)
 2140  
 2150  SYS"Wimp_UpdateWindow",,q% TO More%
 2160
 2170 WHILE More%
 2180
 2190REM Drag objects about in window
 2200SYS"Wimp_SetColour",0
 2210  RECTANGLEFILL xo%+140,yo%+322,264,168
 2220SYS"Wimp_SetColour",15
 2230  RECTANGLEFILL xo%+256+Xpan%,yo%+390+Ypan%,32,32
 2240
 2250  SYS"Wimp_GetRectangle",,q% TO More%
 2260 ENDWHILE
 2270
 2280   XL%=X%:YL%=Y%
 2290ENDPROC
 2300
 2310DEF PROC_ForcePanUp
 2320SYS"Wimp_ForceRedraw",pallW%,144,-278,416,-108
 2330SYS"Wimp_ForceRedraw",pallW%,IX%(4),IY%(4),IX1%(4),IY1%(4)
 2340SYS"Wimp_ForceRedraw",pallW%,IX%(5),IY%(5),IX1%(5),IY1%(5)
 2350SYS"Wimp_ForceRedraw",pallW%,IX%(6),IY%(6),IX1%(6),IY1%(6)
 2360SYS"Wimp_ForceRedraw",pallW%,IX%(7),IY%(7),IX1%(7),IY1%(7)
 2370IF Mute%(Select%,0) THEN PROCiOUT(&9F) ELSE PROCiOUT(&80 OR Pan%(Select%,0))
 2380IF Mute%(Select%,1) THEN PROCiOUT(&DF) ELSE PROCiOUT(&C0 OR Pan%(Select%,1))
 2390IF Mute%(Select%,2) THEN PROCiOUT(&FF) ELSE PROCiOUT(&E0 OR Pan%(Select%,2))
 2400IF Mute%(Select%,3) THEN PROCiOUT(&BF) ELSE PROCiOUT(&A0 OR Pan%(Select%,3))
 2410ENDPROC
 2420
 2430DEF PROC_Open
 2440REM OPEN UP WINDOW HERE
 2450IF wopen% THEN
 2460q%!0=pallW%
 2470SYS"Wimp_GetWindowState",,q%
 2480  IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q%
 2490ELSE
 2500SYS "Wimp_OpenWindow",,W%
 2510wopen%=TRUE
 2520ENDIF
 2530ENDPROC
 2540
 2550DEF PROC_doWindow
 2560  LOCAL A%,I%,L%
 2570 IF q%!0=pallW% THEN
 2580   PROC_Trans(pallW%)
 2590   SYS "Wimp_RedrawWindow",,q% TO flag%
 2600     WHILE flag%
 2610
 2620REM Draw window here
 2630SYS"Wimp_SetColour",0
 2640  RECTANGLEFILL xo%+140,yo%+322,264,168
 2650SYS"Wimp_SetColour",15
 2660  RECTANGLEFILL xo%+256+Xpan%,yo%+390+Ypan%,32,32
 2670  PROCdVol:PROCdBass:PROCdTreble
 2680  
 2690     SYS "Wimp_GetRectangle",,q% TO flag%
 2700     ENDWHILE
 2710   ENDIF
 2720
 2730  ENDPROC
 2740
 2750DEF PROCdBass
 2760LOCAL A%
 2770SYS"Wimp_SetColour",1
 2780RECTANGLEFILL xo%+610,yo%+328,8,204
 2790SYS"Wimp_SetColour",15
 2800A%=Bass%(Select%)*7
 2810RECTANGLEFILL xo%+610,yo%+430+A%-4,8,8
 2820IF Bass%(Select%)<0 THEN A%=7-ABS(Bass%(Select%)/2) ELSE A%=(Bass%(Select%)/2) EOR &F
 2830PROCiOUT(&60 OR A%)
 2840ENDPROC
 2850
 2860DEF PROCdTreble
 2870LOCAL A%
 2880SYS"Wimp_SetColour",1
 2890RECTANGLEFILL xo%+714,yo%+328,8,204
 2900SYS"Wimp_SetColour",15
 2910A%=Treble%(Select%)*7
 2920RECTANGLEFILL xo%+714,yo%+430+A%-4,8,8
 2930IF Treble%(Select%)<0 THEN A%=7-ABS(Treble%(Select%)/2) ELSE A%=(Treble%(Select%)/2) EOR &F
 2940PROCiOUT(&70 OR A%)
 2950
 2960ENDPROC
 2970
 2980DEF PROCdVol
 2990LOCAL A,X%,Y%
 3000SYS"Wimp_SetColour",15
 3010CIRCLEFILL xo%+658,yo%+134,28
 3020A=(PI/38)*Vol%(Select%)-R130
 3030X%=20*SIN(A)+xo%+658
 3040Y%=20*COS(A)+yo%+134
 3050SYS"Wimp_SetColour",11
 3060  CIRCLEFILL X%,Y%,6
 3070  PROCiOUT((Vol%(Select%)) EOR &3F)
 3080ENDPROC
 3090
 3100
 3110DEF PROC_Trans(wh%)
 3120!q%=wh%
 3130SYS "Wimp_GetWindowState",,q%
 3140xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-600
 3150XO%=q%!4:YO%=q%!16
 3160ENDPROC
 3170
 3180DEFPROCsetupmenu
 3190LOCAL m%
 3200
 3210$menu%="AudioSelect"
 3220menu%?12=7
 3230menu%?13=2
 3240menu%?14=7
 3250menu%?15=0
 3260menu%!16=86
 3270menu%!20=40
 3280menu%!24=0
 3290m%=menu%+28
 3300m%!0=0
 3310m%!4=info%
 3320m%!8=(7<<24)OR %10001
 3330$(m%+12)="Info"
 3340
 3350m%+=24
 3360m%!0=&80
 3370m%!4=0
 3380m%!8=(7<<24)OR %10001
 3390$(m%+12)="Quit"
 3400
 3410ENDPROC
 3420
 3430DEF PROCreceive(q%)
 3440LOCAL A%
 3450A%=q%!16
 3460CASE A% OF
 3470WHEN 0:PROCdie
 3480
 3490WHEN 3:IF q%!20=-2 AND q%!40=&C THEN
 3500       REM load in the switcher status
 3510       ENDIF
 3520       
 3530
 3540WHEN &502:   CASE TRUE OF
 3550             WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the Audio Switch icon.|MChange source of audio."
 3560             OTHERWISE:mes$=""
 3570             ENDCASE
 3580    IF mes$<>"" THEN
 3590    q%!12=q%!8
 3600    $(q%+20)=mes$+CHR$0
 3610    q%!0=(20+LENmes$+4)AND NOT 3
 3620    q%!16=&503
 3630    SYS "Wimp_SendMessage",18,q%,q%!4
 3640ENDCASE
 3650ENDPROC
 3660
 3670DEF PROC_Dack
 3680sendth%=q%!4
 3690myref%=q%!8
 3700SYS "Wimp_GetPointerInfo",,q%+8
 3710q%!28=q%!8
 3720q%!32=q%!12
 3730q%!0=(44+LENn$+4)AND NOT 3
 3740q%!12=myref%
 3750q%!16=4
 3760q%!36=-1
 3770q%!40=&FF9
 3780$(q%+44)=n$+CHR$0
 3790SYS "Wimp_SendMessage",17,q%,sendth%
 3800ENDIF
 3810ENDPROC
 3820
 3830DEFFNsget(x%)
 3840LOCAL x$
 3850WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE
 3860=x$
 3870
 3880DEFFNicon
 3890q%!0=-1
 3900q%!4=0
 3910q%!8=10 : REM Y DIRECTION
 3920q%!12=70 : REM X DIRECTION
 3930q%!16=96
 3940q%!20=&2002
 3950$(q%+24)="!AudioSel"
 3960SYS "Wimp_CreateIcon",,q% TO icon%
 3970=icon%
 3980
 3990DEF PROC_setupW(t$)
 4000!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
 4010$TextWarn%=t$
 4020TextWarn%?LEN(t$)=0
 4030VDU 7
 4040warnOn%=TRUE
 4050SYS "Wimp_OpenWindow",,q%
 4060ENDPROC
 4070
 4080DEF PROCerrorbox
 4090SYS "Wimp_DragBox",,-1
 4100!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 4110SYS "Wimp_ReportError",buffers%,1,"AudioSelect"
 4120PROCdie
 4130ENDPROC
 4140
 4150DEFPROCdie
 4160SYS "Wimp_CloseDown",taskhand%,!taskid%
 4170END
 4180ENDPROC
 4190
 4200DEF PROCdragicon(mousex%,mousey%,handle%,icon%)
 4210LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1%
 4220PROCgetw(handle%)
 4230PROCgeti(handle%,icon%)
 4240!q%=handle%:q%!4=5
 4250q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
 4260q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
 4270SYS "Wimp_DragBox",,q%
 4280SFLAG%=TRUE
 4290ENDPROC
 4300
 4310DEF PROCgetw(handle%)
 4320!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4)
 4330ENDPROC
 4340DEF PROCgeti(h%,i%)
 4350!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
 4360ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
 4370iflags%=q%!24:idata%=q%+28
 4380ENDPROC
 4390
 4400DEF PROCinfo(p%)
 4410LOCAL x0%,y0%
 4420x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
 4430scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
 4440bx%=x0%-scx%:by%=y1%-scy%
 4450ENDPROC
 4460
 4470DEF PROC_KeyPress
 4480REM OTHERWISE: SYS"Wimp_ProcessKey",q%!24
 4490ENDPROC
 4500
 4510DEF PROCsetupState
 4520LOCAL A%,B%,F%
 4530F%=OPENIN("<AudioSel$Dir>.Settings")
 4540IF F%=0 THEN PROC_setupW("Can't open settings file") GOTO 4640
 4550INPUT#F%,Select%
 4560FOR A%=0 TO 3
 4570INPUT#F%,Sgain%(A%),XYpan%(A%,0),XYpan%(A%,1),Vol%(A%),Bass%(A%),Treble%(A%)
 4580FOR B%=0 TO 3
 4590INPUT#F%,Mute%(A%,B%),Pan%(A%,B%)
 4600NEXT:NEXT
 4610CLOSE#F%
 4620Xpan%=XYpan%(Select%,0)
 4630Ypan%=XYpan%(Select%,1)
 4640$SPoint%(Select%+8)="psel"
 4650SYS"Wimp_ForceRedraw",pallW%,IX%(Select%+8),IY%(Select%+8),IX1%(Select%+8),IY1%(Select%+8)
 4660A%=Sgain%(Select%)+12
 4670$SPoint%(A%)="psel"
 4680SYS"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
 4690RESTORE 4730
 4700FOR A%=0 TO 31
 4710READ PandB$(A%)
 4720NEXT
 4730DATA 0dB,-1.25dB,-2.50dB,-3.75dB,-5.00dB,-6.25dB,-7.50dB,-8.75dB
 4740DATA -10.00dB,-11.25dB,-12.50dB,-13.75dB,-15.00dB,-16.25dB,-17.50dB,-18.75dB
 4750DATA -20.00dB,-21.25dB,-22.50dB,-23.75dB,-25.00dB,-26.25dB,-27.50dB,-28.75dB
 4760DATA -30.00dB,-31.25dB,-32.50dB,-33.75dB,-35.00dB,-36.25dB,-37.50dB,Mute
 4770PROCiOUT(&40 OR Select% OR ((Sgain%(Select%) EOR 3)<<3))
 4780PROC_PanUp(Xpan%,Ypan%)
 4790PROC_ForcePanUp
 4800
 4810ENDPROC
 4820
 4830DEF PROCiOUT(V%)
 4840LOCAL Fl
 4850?PBK%=V%
 4860SYS "XIIC_Control",&88,PBK%,1 TO ;Fl
 4870ENDPROC
 4880
 4890DEF PROCiTOUT(V%)
 4900LOCAL Fl
 4910?PBK%=V%
 4920SYS "XIIC_Control",&88,PBK%,1 TO ;Fl
 4930IF (Fl AND 1) =1 THEN DeviceD%=FALSE ELSE DeviceD%=TRUE
 4940ENDPROC
 4950
 4960DEF PROCupdateSelect(n%)
 4970LOCAL A%,B%
 4980FOR A%=0 TO 3
 4990IF Mute%(Select%,A%) <> Mute%(n%,A%) THEN
 5000IF Mute%(n%,A%) THEN $SPoint%(A%)="mute" ELSE $SPoint%(A%)="speaker"
 5010SYS"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
 5020ENDIF
 5030NEXT
 5040IF Sgain%(Select%)<>Sgain%(n%) THEN
 5050A%=Sgain%(Select%)+12
 5060$SPoint%(A%)="sel"
 5070SYS"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
 5080A%=Sgain%(n%)+12
 5090$SPoint%(A%)="psel"
 5100SYS"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
 5110ENDIF
 5120XYpan%(Select%,0)=Xpan%
 5130XYpan%(Select%,1)=Ypan%
 5140Xpan%=XYpan%(n%,0)
 5150Ypan%=XYpan%(n%,1)
 5160SYS"Wimp_ForceRedraw",pallW%,IX%(39),IY%(39),IX1%(39),IY1%(39)
 5170SYS"Wimp_ForceRedraw",pallW%,IX%(40),IY%(40),IX1%(40),IY1%(40)
 5180SYS"Wimp_ForceRedraw",pallW%,IX%(41),IY%(41),IX1%(41),IY1%(41)
 5190ENDPROC
 5200
 5210DEF PROC_pp(n%,V%)
 5220PROC_sput(SPoint%(n%),STR$(V%))
 5230SYS"Wimp_ForceRedraw",pallW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
 5240ENDPROC
 5250
 5260DEF PROC_sput(x%,X$)
 5270LOCAL A%
 5280FOR A%=1 TO LEN(X$)
 5290?x%=ASC(MID$(X$,A%,1))
 5300x%+=1
 5310NEXT
 5320?x%=0
 5330ENDPROC
 5340
 5350DEF PROC_PanUp(X%,Y%)
 5360LOCAL LI%,LE%,RI%,RE%,T%
 5370LI%=0:LE%=0:RI%=0:RE%=0:T%=0
 5380IF X%>1 THEN LI%=31*X%/116
 5390IF Y%<0 THEN T%=ABS(Y%)*31/68
 5400IF T%>LI% THEN LI%=T%
 5410PROC_sput(SPoint%(4),PandB$(LI%))
 5420IF Mute%(Select%,0) THEN PROCiOUT(&9F) ELSE PROCiOUT(&80 OR Pan%(Select%,0))
 5430IF Pan%(Select%,0)<> LI% THEN q%!4=0:Pan%(Select%,0)=LI%
 5440T%=0
 5450IF X%>1 THEN LE%=31*X%/116
 5460IF Y%>0 THEN T%=Y%*31/68
 5470IF T%>LE% THEN LE%=T%
 5480 PROC_sput(SPoint%(5),PandB$(LE%))
 5490IF Mute%(Select%,1) THEN PROCiOUT(&DF) ELSE PROCiOUT(&C0 OR Pan%(Select%,1))
 5500IF Pan%(Select%,1)<> LE% THEN q%!4=0:Pan%(Select%,1)=LE%
 5510T%=0
 5520IF X%<-1 THEN RE%=31*ABS(X%)/116
 5530IF Y%>0 THEN T%=Y%*31/68
 5540IF T%>RE% THEN RE%=T%
 5550PROC_sput(SPoint%(6),PandB$(RE%))
 5560IF Mute%(Select%,2) THEN PROCiOUT(&FF) ELSE PROCiOUT(&E0 OR Pan%(Select%,2))
 5570IF Pan%(Select%,2)<> RE% THEN q%!12=560:Pan%(Select%,2)=RE%
 5580T%=0
 5590IF X%<-1 THEN RI%=31*ABS(X%)/116
 5600IF Y%<0 THEN T%=ABS(Y%)*31/68
 5610IF T%>RI% THEN RI%=T%
 5620PROC_sput(SPoint%(7),PandB$(RI%))
 5630IF Mute%(Select%,3) THEN PROCiOUT(&BF) ELSE PROCiOUT(&A0 OR Pan%(Select%,3))
 5640IF Pan%(Select%,3)<> RI% THEN q%!12=560:Pan%(Select%,3)=RI%
 5650ENDPROC
 5660
 5670REM Drag volume
 5680DEF PROCdragVol
 5690   Vol%(Select%)+=(X%-XL%)
 5700   IF Vol%(Select%)>63 THEN Vol%(Select%)=63
 5710   IF Vol%(Select%)<0 THEN Vol%(Select%)=0
 5720q%!0=pallW%:q%!4=IX%(39):q%!8=IY%(39):q%!12=IX1%(39):q%!16=IY1%(39)
 5730   
 5740  SYS"Wimp_UpdateWindow",,q% TO More%
 5750 WHILE More%
 5760PROCdVol
 5770
 5780  SYS"Wimp_GetRectangle",,q% TO More%
 5790 ENDWHILE
 5800
 5810   XL%=X%:YL%=Y%
 5820ENDPROC
 5830
 5840REM Drag Bass
 5850DEF PROCdragBass
 5860   Bass%(Select%)=(((Y%-430-yo%)/7)>>1)<<1
 5870   IF Bass%(Select%)>14 THEN Bass%(Select%)=14
 5880   IF Bass%(Select%)<-14 THEN Bass%(Select%)=-14
 5890q%!0=pallW%:q%!4=IX%(40):q%!8=IY%(40):q%!12=IX1%(40):q%!16=IY1%(40)
 5900   
 5910  SYS"Wimp_UpdateWindow",,q% TO More%
 5920 WHILE More%
 5930PROCdBass
 5940
 5950  SYS"Wimp_GetRectangle",,q% TO More%
 5960 ENDWHILE
 5970
 5980   XL%=X%:YL%=Y%
 5990ENDPROC
 6000
 6010REM Drag Treble
 6020DEF PROCdragTreble
 6030   Treble%(Select%)=(((Y%-430-yo%)/7)>>1)<<1
 6040   IF Treble%(Select%)>14 THEN Treble%(Select%)=14
 6050   IF Treble%(Select%)<-14 THEN Treble%(Select%)=-14
 6060q%!0=pallW%:q%!4=IX%(41):q%!8=IY%(41):q%!12=IX1%(41):q%!16=IY1%(41)
 6070   
 6080  SYS"Wimp_UpdateWindow",,q% TO More%
 6090 WHILE More%
 6100PROCdTreble
 6110
 6120  SYS"Wimp_GetRectangle",,q% TO More%
 6130 ENDWHILE
 6140
 6150   XL%=X%:YL%=Y%
 6160ENDPROC
 6170
 6180DEF PROC_SaveSettings
 6190LOCAL F%,A%,B%
 6200F%=OPENOUT("<AudioSel$Dir>.Settings")
 6210IF F%=0 THEN PROC_setupW("Can't open settings file") GOTO 6310
 6220PRINT#F%,Select%
 6230FOR A%=0 TO 3
 6240PRINT#F%,Sgain%(A%),XYpan%(A%,0),XYpan%(A%,1),Vol%(A%),Bass%(A%),Treble%(A%)
 6250FOR B%=0 TO 3
 6260PRINT#F%,Mute%(A%,B%),Pan%(A%,B%)
 6270NEXT
 6280NEXT
 6290CLOSE#F%
 6300PROCdie
 6310ENDPROC

 �>Develop.!AudioSel.AudioSel
� � �errorbox

(� taskid%4:$taskid%="TASK"
2� intmess% 200
<Nintmess%!0=2:intmess%!4=3:intmess%!8=4:intmess%!12=&400C1:intmess%!16=&502
Fintmess%!20=0
P&� Pt% 24,invmenu% 100,defmenu% 100
ZSș "Wimp_Initialise",300,!taskid%,"AudioSelector",intmess% � version%,taskhand%
d
nN� q% &300,qc% 80, W% &1000,temp% 256,buffers% 512,menu% 128,SW% 512,cb% 18
xK� IsName% 256, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
�� Pl% 255,Pr% 255,PBK% 8
�NoI%=45
�=� SPoint%(NoI%),IX%(NoI%),IY%(NoI%),IX1%(NoI%),IY1%(NoI%)
�W� Mute%(3,3),Sgain%(3),Pan%(3,3),PandB$(31),XYpan%(3,1),Vol%(3),Bass%(3),Treble%(3)
�
�6ș "Wimp_OpenTemplate",,"<AudioSel$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�
�
�<ș "Wimp_LoadTemplate",,W%+4,SW%,SW%+512,-1,"Pallette",0
W%!28=-1
� A%=0 � NoI%
#SPoint%(A%)=!(W%+4+88+20+32*A%)
"7IX%(A%)=!(W%+4+88+32*A%):IY%(A%)=!(W%+4+88+4+32*A%)
,<IX1%(A%)=!(W%+4+88+8+32*A%):IY1%(A%)=!(W%+4+88+12+32*A%)
6�
@
J)ș "Wimp_CreateWindow",,W%+4 � pallW%
TW%!0=pallW%
^
h9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
r)q%!108=TextWarn%:q%!112=-1:q%!116=300
| XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
�*ș "Wimp_CreateWindow",,q% � warningW%
�ș "Wimp_CloseTemplate"
�
ref%=0
�cpL%=0:cpR%=0
�smpicon%=�icon
�wopen%=�:warnOn%=�
�� � �errorbox
�DragOn%=0:XL%=0:YL%=0
�secureF%=0
�Xpan%=0:Ypan%=0
�R130=�(130)
�
�iTOUT(0)
�B� DeviceD%=� �_setupW("Can't find IIC Audio Control Hardware")
�setupmenu
�setupState

&�
0 ș "Wimp_Poll",0,q% � A%
:
  Ȏ A% �
D   � 0:�null
N   � 1:�_doWindow
X=   � 2:ș "Wimp_OpenWindow",,q% :� q%!0=pallW% � wopen%=�
b   � 3:�_close
l   � 6:�_do_click(q%)
v   � 7:�_PutDown(q%)
�   � 8:�_KeyPress
�   � 9:�_SORT_Menu
�   � 17,18:�receive(q%)
�   �
� � �
�
��
�
�� �null
�ȗ X%,Y%,mouseB%
�� mouseB%<>4 � DragOn%=0
�(� DragOn%<>0 � (XL%<>X% � YL%<>Y%) �
�Ȏ DragOn% �
  � 1:�_DA
  � 2:�dragVol
  � 3:�dragBass
   � 4:�dragTreble
*�
4�
>�
H
R� �_PutDown(q%)
\� DragOn% �
f ș "Wimp_GetPointerInfo",,q%
p
DragOn%=�
z�7
��
��
�
�� �_spath(n$)
�ȕ �n$,".")
�n$=�n$,�(n$)-1)
��
�� �(n$)>10 � n$=�n$,10)
�=n$
�
�� �_SORT_Menu
�� IconMenu% �
�� !q%=1 � �_SaveSettings
�
�
ș"Wimp_GetPointerInfo",,q%
$�
.
8
� �_close
BA� q%!0=pallW% � wopen%=�:GotBar%=�:ș"Wimp_GetWindowInfo",,W%
L � q%!0=warningW% � warnOn%=�
Vș "Wimp_CloseWindow",,q%
`�
j
t� �_do_click(q%)
~� X%,Y%,C%,T%
�i%=q%!16
�Ȏ q%!12 �
�(� warningW%: q%!0=warningW% :�_close
�(� -2: � Look first at Icon Bar Click
�        � q%!16=smpicon% �
�J        � q%!8=2 � IconMenu%=�: ș"Wimp_CreateMenu",,menu%,q%!0-94,190
�!        � q%!8=4 � �_OpenWhat
�
        �
�
�� pallW%:  
�'              � q%!8=4 � �_MonClick
��
�


� �_MonClick
� D%,V%,B%
(&� Do the action for a window click
2
<� i%<4 � i%>=0 �
F*Mute%(Select%,i%)=�(Mute%(Select%,i%))
PF� Mute%(Select%,i%) � $SPoint%(i%)="mute" � $SPoint%(i%)="speaker"
ZAș"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
dB� Mute%(Select%,0) � �iOUT(&9F) � �iOUT(&80 � Pan%(Select%,0))
nB� Mute%(Select%,1) � �iOUT(&DF) � �iOUT(&C0 � Pan%(Select%,1))
xB� Mute%(Select%,2) � �iOUT(&FF) � �iOUT(&E0 � Pan%(Select%,2))
�B� Mute%(Select%,3) � �iOUT(&BF) � �iOUT(&A0 � Pan%(Select%,3))
��
�
�� i%>11 � i%<16 �
�D%=Sgain%(Select%)+12
�$SPoint%(D%)="sel"
�Aș"Wimp_ForceRedraw",pallW%,IX%(D%),IY%(D%),IX1%(D%),IY1%(D%)
�Sgain%(Select%)=i%-12
�$SPoint%(i%)="psel"
�Aș"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
�5�iOUT(&40 � Select% � ((Sgain%(Select%) � 3)<<3))
��
�
� i%>7 � i%<12 �
  $SPoint%(Select%+8)="sel"
_  ș"Wimp_ForceRedraw",pallW%,IX%(Select%+8),IY%(Select%+8),IX1%(Select%+8),IY1%(Select%+8)
"  $SPoint%(i%)="psel"
,C  ș"Wimp_ForceRedraw",pallW%,IX%(i%),IY%(i%),IX1%(i%),IY1%(i%)
6  �updateSelect(i%-8)
@  Select%=i%-8
J7  �iOUT(&40 � Select% � ((Sgain%(Select%) � 3)<<3))
T  �_PanUp(Xpan%,Ypan%)
^  �_ForcePanUp
h�
r
|� i%>30 � i%<39 �
�  Vol%(Select%)=(i%-31)*8
�C  ș"Wimp_ForceRedraw",pallW%,IX%(39),IY%(39),IX1%(39),IY1%(39)
�"  �iOUT((Vol%(Select%)) � &3F)
��
�� i%=39 � DragOn%=2
�� i%=40 � DragOn%=3
�� i%=41 � DragOn%=4
�
� i%=28 �
� ȗ XL%,YL%,mouseB%
� Xpan%=0:Ypan%=0
� �_PanUp(Xpan%,Ypan%)
� �_ForcePanUp
��

 � Look for drag
� �pointIn=1 �
&
DragOn%=1
0ȗ XL%,YL%,mouseB%
:�
D�
N
X
b� �_OpenWhat
l� Ncol%
v� �(warnOn%) �
�,  ș"OS_ReadModeVariable",-1,3 � ,,Ncol%
�  �_Open
��
��
�
�� �pointIn
�� X%,Y%,B%,R%
��_Trans(pallW%)
�ȗ X%,Y%,B%
�R%=0
�^� X%>(xo%+256+Xpan%) � X%<(xo%+290+Xpan%) � Y%>(yo%+390+Ypan%) � Y%<(yo%+424+Ypan%) � R%=1
�=R%
�
� Drag pointer

� �_DA

 &   Xpan%+=(X%-XL%):Ypan%+=(Y%-YL%)
*2   � �(Xpan%)>116 � Xpan%=116*(Xpan%/�(Xpan%))
40   � �(Ypan%)>68 � Ypan%=68*(Ypan%/�(Ypan%))
>   
H:   q%!0=pallW%:q%!4=144:q%!8=-278:q%!12=416:q%!16=-108
R   �_PanUp(Xpan%,Ypan%)
\  
f'  ș"Wimp_UpdateWindow",,q% � More%
p
z
 ȕ More%
�
�"� Drag objects about in window
�ș"Wimp_SetColour",0
�"  ȓȐ xo%+140,yo%+322,264,168
�ș"Wimp_SetColour",15
�,  ȓȐ xo%+256+Xpan%,yo%+390+Ypan%,32,32
�
�'  ș"Wimp_GetRectangle",,q% � More%
� �
�
�   XL%=X%:YL%=Y%
��
�
	� �_ForcePanUp
	1ș"Wimp_ForceRedraw",pallW%,144,-278,416,-108
	=ș"Wimp_ForceRedraw",pallW%,IX%(4),IY%(4),IX1%(4),IY1%(4)
	$=ș"Wimp_ForceRedraw",pallW%,IX%(5),IY%(5),IX1%(5),IY1%(5)
	.=ș"Wimp_ForceRedraw",pallW%,IX%(6),IY%(6),IX1%(6),IY1%(6)
	8=ș"Wimp_ForceRedraw",pallW%,IX%(7),IY%(7),IX1%(7),IY1%(7)
	BB� Mute%(Select%,0) � �iOUT(&9F) � �iOUT(&80 � Pan%(Select%,0))
	LB� Mute%(Select%,1) � �iOUT(&DF) � �iOUT(&C0 � Pan%(Select%,1))
	VB� Mute%(Select%,2) � �iOUT(&FF) � �iOUT(&E0 � Pan%(Select%,2))
	`B� Mute%(Select%,3) � �iOUT(&BF) � �iOUT(&A0 � Pan%(Select%,3))
	j�
	t
	~� �_Open
	�� OPEN UP WINDOW HERE
	�� wopen% �
	�q%!0=pallW%
	�ș"Wimp_GetWindowState",,q%
	�6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
	��
	�ș "Wimp_OpenWindow",,W%
	�wopen%=�
	��
	��
	�
	�� �_doWindow
  � A%,I%,L%

 � q%!0=pallW% �
   �_Trans(pallW%)
)   ș "Wimp_RedrawWindow",,q% � flag%
(     ȕ flag%
2
<� Draw window here
Fș"Wimp_SetColour",0
P"  ȓȐ xo%+140,yo%+322,264,168
Zș"Wimp_SetColour",15
d,  ȓȐ xo%+256+Xpan%,yo%+390+Ypan%,32,32
n  �dVol:�dBass:�dTreble
x  
�+     ș "Wimp_GetRectangle",,q% � flag%
�
     �
�   �
�
�  �
�
�� �dBass
�� A%
�ș"Wimp_SetColour",1
�ȓȐ xo%+610,yo%+328,8,204
�ș"Wimp_SetColour",15
�A%=Bass%(Select%)*7
�!ȓȐ xo%+610,yo%+430+A%-4,8,8
N� Bass%(Select%)<0 � A%=7-�(Bass%(Select%)/2) � A%=(Bass%(Select%)/2) � &F
�iOUT(&60 � A%)
�
"
,� �dTreble
6� A%
@ș"Wimp_SetColour",1
JȓȐ xo%+714,yo%+328,8,204
Tș"Wimp_SetColour",15
^A%=Treble%(Select%)*7
h!ȓȐ xo%+714,yo%+430+A%-4,8,8
rT� Treble%(Select%)<0 � A%=7-�(Treble%(Select%)/2) � A%=(Treble%(Select%)/2) � &F
|�iOUT(&70 � A%)
�
��
�
�� �dVol
�
� A,X%,Y%
�ș"Wimp_SetColour",15
�ȏȐ xo%+658,yo%+134,28
�A=(�/38)*Vol%(Select%)-R130
�X%=20*�(A)+xo%+658
�Y%=20*�(A)+yo%+134
�ș"Wimp_SetColour",11
�  ȏȐ X%,Y%,6
�"  �iOUT((Vol%(Select%)) � &3F)
�


&� �_Trans(wh%)
0!q%=wh%
: ș "Wimp_GetWindowState",,q%
D(xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-600
NXO%=q%!4:YO%=q%!16
X�
b
l��setupmenu
v� m%
�
�$menu%="AudioSelect"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=86
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�
m%!0=0
�m%!4=info%
�m%!8=(7<<24)� %10001

$(m%+12)="Info"




m%+=24

 m%!0=&80

*
m%!4=0

4m%!8=(7<<24)� %10001

>$(m%+12)="Quit"

H

R�

\

f� �receive(q%)

p� A%

zA%=q%!16

�Ȏ A% �

�� 0:�die

�

�� 3:� q%!20=-2 � q%!40=&C �

�(       � load in the switcher status

�       �

�       

�

�� &502:   Ȏ � �

�k             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Audio Switch icon.|MChange source of audio."

�             :mes$=""

�             �

�    � mes$<>"" �
    q%!12=q%!8
    $(q%+20)=mes$+�0
    q%!0=(20+�mes$+4)� � 3
$    q%!16=&503
.(    ș "Wimp_SendMessage",18,q%,q%!4
8�
B�
L
V� �_Dack
`sendth%=q%!4
jmyref%=q%!8
t"ș "Wimp_GetPointerInfo",,q%+8
~q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
�'ș "Wimp_SendMessage",17,q%,sendth%
��
��
�
�ݤsget(x%)
� x$

ȕ ?x% x$+=�(?x%):x%+=1:�
=x$

(
ݤicon
2q%!0=-1
<
q%!4=0
Fq%!8=10 : � Y DIRECTION
Pq%!12=70 : � X DIRECTION
Zq%!16=96
dq%!20=&2002
n$(q%+24)="!AudioSel"
x$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
�ș "Wimp_OpenWindow",,q%
��
�
�� �errorbox
�ș "Wimp_DragBox",,-1
2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
2ș "Wimp_ReportError",buffers%,1,"AudioSelect"
�die
"�
,
6	��die
@*ș "Wimp_CloseDown",taskhand%,!taskid%
J�
T�
^
h.� �dragicon(mousex%,mousey%,handle%,icon%)
r!� bx%,by%,ix0%,iy0%,ix1%,iy1%
|�getw(handle%)
��geti(handle%,icon%)
�!q%=handle%:q%!4=5
�>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
�*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
�ș "Wimp_DragBox",,q%
�SFLAG%=�
��
�
�� �getw(handle%)
�8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
��
�� �geti(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
iflags%=q%!24:idata%=q%+28
�
&
0� �info(p%)
:
� x0%,y0%
D'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
N5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
Xbx%=x0%-scx%:by%=y1%-scy%
b�
l
v� �_KeyPress
�+� OTHERWISE: SYS"Wimp_ProcessKey",q%!24
��
�
�� �setupState
�� A%,B%,F%
�#F%=�("<AudioSel$Dir>.Settings")
�8� F%=0 � �_setupW("Can't open settings file") � �T`R
��#F%,Select%
�� A%=0 � 3
�L�#F%,Sgain%(A%),XYpan%(A%,0),XYpan%(A%,1),Vol%(A%),Bass%(A%),Treble%(A%)
�� B%=0 � 3
�!�#F%,Mute%(A%,B%),Pan%(A%,B%)
��:�
�#F%
Xpan%=XYpan%(Select%,0)
Ypan%=XYpan%(Select%,1)
 $SPoint%(Select%+8)="psel"
*]ș"Wimp_ForceRedraw",pallW%,IX%(Select%+8),IY%(Select%+8),IX1%(Select%+8),IY1%(Select%+8)
4A%=Sgain%(Select%)+12
>$SPoint%(A%)="psel"
HAș"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
R
� �DzR
\� A%=0 � 31
f� PandB$(A%)
p�
zA� 0dB,-1.25dB,-2.50dB,-3.75dB,-5.00dB,-6.25dB,-7.50dB,-8.75dB
�M� -10.00dB,-11.25dB,-12.50dB,-13.75dB,-15.00dB,-16.25dB,-17.50dB,-18.75dB
�M� -20.00dB,-21.25dB,-22.50dB,-23.75dB,-25.00dB,-26.25dB,-27.50dB,-28.75dB
�I� -30.00dB,-31.25dB,-32.50dB,-33.75dB,-35.00dB,-36.25dB,-37.50dB,Mute
�5�iOUT(&40 � Select% � ((Sgain%(Select%) � 3)<<3))
��_PanUp(Xpan%,Ypan%)
��_ForcePanUp
�
��
�
�� �iOUT(V%)
�� Fl
�?PBK%=V%
�&ș "XIIC_Control",&88,PBK%,1 � ;Fl
�

� �iTOUT(V%)
$� Fl
.?PBK%=V%
8&ș "XIIC_Control",&88,PBK%,1 � ;Fl
B+� (Fl � 1) =1 � DeviceD%=� � DeviceD%=�
L�
V
`� �updateSelect(n%)
j� A%,B%
t� A%=0 � 3
~)� Mute%(Select%,A%) <> Mute%(n%,A%) �
�A� Mute%(n%,A%) � $SPoint%(A%)="mute" � $SPoint%(A%)="speaker"
�Aș"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
��
��
�#� Sgain%(Select%)<>Sgain%(n%) �
�A%=Sgain%(Select%)+12
�$SPoint%(A%)="sel"
�Aș"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
�A%=Sgain%(n%)+12
�$SPoint%(A%)="psel"
�Aș"Wimp_ForceRedraw",pallW%,IX%(A%),IY%(A%),IX1%(A%),IY1%(A%)
��
XYpan%(Select%,0)=Xpan%

XYpan%(Select%,1)=Ypan%
Xpan%=XYpan%(n%,0)
Ypan%=XYpan%(n%,1)
(Aș"Wimp_ForceRedraw",pallW%,IX%(39),IY%(39),IX1%(39),IY1%(39)
2Aș"Wimp_ForceRedraw",pallW%,IX%(40),IY%(40),IX1%(40),IY1%(40)
<Aș"Wimp_ForceRedraw",pallW%,IX%(41),IY%(41),IX1%(41),IY1%(41)
F�
P
Z� �_pp(n%,V%)
d�_sput(SPoint%(n%),�(V%))
nAș"Wimp_ForceRedraw",pallW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
x�
�
�� �_sput(x%,X$)
�� A%
�� A%=1 � �(X$)
�?x%=�(�X$,A%,1))
�	x%+=1
��
�	?x%=0
��
�
�� �_PanUp(X%,Y%)
�� LI%,LE%,RI%,RE%,T%
� LI%=0:LE%=0:RI%=0:RE%=0:T%=0
� X%>1 � LI%=31*X%/116
� Y%<0 � T%=�(Y%)*31/68
� T%>LI% � LI%=T%
""�_sput(SPoint%(4),PandB$(LI%))
,B� Mute%(Select%,0) � �iOUT(&9F) � �iOUT(&80 � Pan%(Select%,0))
68� Pan%(Select%,0)<> LI% � q%!4=0:Pan%(Select%,0)=LI%
@T%=0
J� X%>1 � LE%=31*X%/116
T� Y%>0 � T%=Y%*31/68
^� T%>LE% � LE%=T%
h# �_sput(SPoint%(5),PandB$(LE%))
rB� Mute%(Select%,1) � �iOUT(&DF) � �iOUT(&C0 � Pan%(Select%,1))
|8� Pan%(Select%,1)<> LE% � q%!4=0:Pan%(Select%,1)=LE%
�T%=0
�� X%<-1 � RE%=31*�(X%)/116
�� Y%>0 � T%=Y%*31/68
�� T%>RE% � RE%=T%
�"�_sput(SPoint%(6),PandB$(RE%))
�B� Mute%(Select%,2) � �iOUT(&FF) � �iOUT(&E0 � Pan%(Select%,2))
�;� Pan%(Select%,2)<> RE% � q%!12=560:Pan%(Select%,2)=RE%
�T%=0
�� X%<-1 � RI%=31*�(X%)/116
�� Y%<0 � T%=�(Y%)*31/68
�� T%>RI% � RI%=T%
�"�_sput(SPoint%(7),PandB$(RI%))
�B� Mute%(Select%,3) � �iOUT(&BF) � �iOUT(&A0 � Pan%(Select%,3))
;� Pan%(Select%,3)<> RI% � q%!12=560:Pan%(Select%,3)=RI%
�

&� Drag volume
0� �dragVol
:   Vol%(Select%)+=(X%-XL%)
D,   � Vol%(Select%)>63 � Vol%(Select%)=63
N*   � Vol%(Select%)<0 � Vol%(Select%)=0
XGq%!0=pallW%:q%!4=IX%(39):q%!8=IY%(39):q%!12=IX1%(39):q%!16=IY1%(39)
b   
l'  ș"Wimp_UpdateWindow",,q% � More%
v
 ȕ More%
�	�dVol
�
�'  ș"Wimp_GetRectangle",,q% � More%
� �
�
�   XL%=X%:YL%=Y%
��
�
�� Drag Bass
�� �dragBass
�.   Bass%(Select%)=(((Y%-430-yo%)/7)>>1)<<1
�.   � Bass%(Select%)>14 � Bass%(Select%)=14
�0   � Bass%(Select%)<-14 � Bass%(Select%)=-14
Gq%!0=pallW%:q%!4=IX%(40):q%!8=IY%(40):q%!12=IX1%(40):q%!16=IY1%(40)
   
'  ș"Wimp_UpdateWindow",,q% � More%
 
 ȕ More%
*
�dBass
4
>'  ș"Wimp_GetRectangle",,q% � More%
H �
R
\   XL%=X%:YL%=Y%
f�
p
z� Drag Treble
�� �dragTreble
�0   Treble%(Select%)=(((Y%-430-yo%)/7)>>1)<<1
�2   � Treble%(Select%)>14 � Treble%(Select%)=14
�4   � Treble%(Select%)<-14 � Treble%(Select%)=-14
�Gq%!0=pallW%:q%!4=IX%(41):q%!8=IY%(41):q%!12=IX1%(41):q%!16=IY1%(41)
�   
�'  ș"Wimp_UpdateWindow",,q% � More%
�
 ȕ More%
��dTreble
�
�'  ș"Wimp_GetRectangle",,q% � More%
� �
�
   XL%=X%:YL%=Y%
�

$� �_SaveSettings
.� F%,A%,B%
8#F%=�("<AudioSel$Dir>.Settings")
B8� F%=0 � �_setupW("Can't open settings file") � �tfX
L�#F%,Select%
V� A%=0 � 3
`L�#F%,Sgain%(A%),XYpan%(A%,0),XYpan%(A%,1),Vol%(A%),Bass%(A%),Treble%(A%)
j� B%=0 � 3
t!�#F%,Mute%(A%,B%),Pan%(A%,B%)
~�
��
��#F%
��die
��
�
00000000  0d 00 0a 20 f4 3e 44 65  76 65 6c 6f 70 2e 21 41  |... .>Develop.!A|
00000010  75 64 69 6f 53 65 6c 2e  41 75 64 69 6f 53 65 6c  |udioSel.AudioSel|
00000020  0d 00 14 11 ee 20 85 20  f2 65 72 72 6f 72 62 6f  |..... . .errorbo|
00000030  78 0d 00 1e 04 0d 00 28  1e de 20 74 61 73 6b 69  |x......(.. taski|
00000040  64 25 34 3a 24 74 61 73  6b 69 64 25 3d 22 54 41  |d%4:$taskid%="TA|
00000050  53 4b 22 0d 00 32 12 de  20 69 6e 74 6d 65 73 73  |SK"..2.. intmess|
00000060  25 20 32 30 30 0d 00 3c  4e 69 6e 74 6d 65 73 73  |% 200..<Nintmess|
00000070  25 21 30 3d 32 3a 69 6e  74 6d 65 73 73 25 21 34  |%!0=2:intmess%!4|
00000080  3d 33 3a 69 6e 74 6d 65  73 73 25 21 38 3d 34 3a  |=3:intmess%!8=4:|
00000090  69 6e 74 6d 65 73 73 25  21 31 32 3d 26 34 30 30  |intmess%!12=&400|
000000a0  43 31 3a 69 6e 74 6d 65  73 73 25 21 31 36 3d 26  |C1:intmess%!16=&|
000000b0  35 30 32 0d 00 46 11 69  6e 74 6d 65 73 73 25 21  |502..F.intmess%!|
000000c0  32 30 3d 30 0d 00 50 26  de 20 50 74 25 20 32 34  |20=0..P&. Pt% 24|
000000d0  2c 69 6e 76 6d 65 6e 75  25 20 31 30 30 2c 64 65  |,invmenu% 100,de|
000000e0  66 6d 65 6e 75 25 20 31  30 30 0d 00 5a 53 c8 99  |fmenu% 100..ZS..|
000000f0  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000100  65 22 2c 33 30 30 2c 21  74 61 73 6b 69 64 25 2c  |e",300,!taskid%,|
00000110  22 41 75 64 69 6f 53 65  6c 65 63 74 6f 72 22 2c  |"AudioSelector",|
00000120  69 6e 74 6d 65 73 73 25  20 b8 20 76 65 72 73 69  |intmess% . versi|
00000130  6f 6e 25 2c 74 61 73 6b  68 61 6e 64 25 0d 00 64  |on%,taskhand%..d|
00000140  04 0d 00 6e 4e de 20 71  25 20 26 33 30 30 2c 71  |...nN. q% &300,q|
00000150  63 25 20 38 30 2c 20 57  25 20 26 31 30 30 30 2c  |c% 80, W% &1000,|
00000160  74 65 6d 70 25 20 32 35  36 2c 62 75 66 66 65 72  |temp% 256,buffer|
00000170  73 25 20 35 31 32 2c 6d  65 6e 75 25 20 31 32 38  |s% 512,menu% 128|
00000180  2c 53 57 25 20 35 31 32  2c 63 62 25 20 31 38 0d  |,SW% 512,cb% 18.|
00000190  00 78 4b de 20 49 73 4e  61 6d 65 25 20 32 35 36  |.xK. IsName% 256|
000001a0  2c 20 57 6d 65 6e 75 25  20 35 31 32 2c 53 6d 65  |, Wmenu% 512,Sme|
000001b0  6e 75 25 20 32 35 36 2c  49 6d 65 6e 75 25 20 32  |nu% 256,Imenu% 2|
000001c0  35 36 2c 20 54 65 78 74  57 61 72 6e 25 20 31 30  |56, TextWarn% 10|
000001d0  30 2c 20 77 77 25 20 32  35 36 0d 00 82 1c de 20  |0, ww% 256..... |
000001e0  50 6c 25 20 32 35 35 2c  50 72 25 20 32 35 35 2c  |Pl% 255,Pr% 255,|
000001f0  50 42 4b 25 20 38 0d 00  8c 0b 4e 6f 49 25 3d 34  |PBK% 8....NoI%=4|
00000200  35 0d 00 96 3d de 20 53  50 6f 69 6e 74 25 28 4e  |5...=. SPoint%(N|
00000210  6f 49 25 29 2c 49 58 25  28 4e 6f 49 25 29 2c 49  |oI%),IX%(NoI%),I|
00000220  59 25 28 4e 6f 49 25 29  2c 49 58 31 25 28 4e 6f  |Y%(NoI%),IX1%(No|
00000230  49 25 29 2c 49 59 31 25  28 4e 6f 49 25 29 0d 00  |I%),IY1%(NoI%)..|
00000240  a0 57 de 20 4d 75 74 65  25 28 33 2c 33 29 2c 53  |.W. Mute%(3,3),S|
00000250  67 61 69 6e 25 28 33 29  2c 50 61 6e 25 28 33 2c  |gain%(3),Pan%(3,|
00000260  33 29 2c 50 61 6e 64 42  24 28 33 31 29 2c 58 59  |3),PandB$(31),XY|
00000270  70 61 6e 25 28 33 2c 31  29 2c 56 6f 6c 25 28 33  |pan%(3,1),Vol%(3|
00000280  29 2c 42 61 73 73 25 28  33 29 2c 54 72 65 62 6c  |),Bass%(3),Trebl|
00000290  65 25 28 33 29 0d 00 aa  04 0d 00 b4 36 c8 99 20  |e%(3).......6.. |
000002a0  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
000002b0  74 65 22 2c 2c 22 3c 41  75 64 69 6f 53 65 6c 24  |te",,"<AudioSel$|
000002c0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
000002d0  00 be 29 ee 20 85 20 c8  99 20 22 57 69 6d 70 5f  |..). . .. "Wimp_|
000002e0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 3a f2  |CloseTemplate":.|
000002f0  65 72 72 6f 72 62 6f 78  0d 00 c8 04 0d 00 d2 3a  |errorbox.......:|
00000300  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000310  70 6c 61 74 65 22 2c 2c  71 25 2c 74 65 6d 70 25  |plate",,q%,temp%|
00000320  2c 74 65 6d 70 25 2b 32  35 36 2c 2d 31 2c 22 49  |,temp%+256,-1,"I|
00000330  6e 66 6f 22 2c 30 0d 00  dc 26 c8 99 20 22 57 69  |nfo",0...&.. "Wi|
00000340  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000350  2c 2c 71 25 20 b8 20 69  6e 66 6f 25 0d 00 e6 04  |,,q% . info%....|
00000360  0d 00 f0 04 0d 00 fa 3c  c8 99 20 22 57 69 6d 70  |.......<.. "Wimp|
00000370  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000380  57 25 2b 34 2c 53 57 25  2c 53 57 25 2b 35 31 32  |W%+4,SW%,SW%+512|
00000390  2c 2d 31 2c 22 50 61 6c  6c 65 74 74 65 22 2c 30  |,-1,"Pallette",0|
000003a0  0d 01 04 0c 57 25 21 32  38 3d 2d 31 0d 01 0e 11  |....W%!28=-1....|
000003b0  e3 20 41 25 3d 30 20 b8  20 4e 6f 49 25 0d 01 18  |. A%=0 . NoI%...|
000003c0  23 53 50 6f 69 6e 74 25  28 41 25 29 3d 21 28 57  |#SPoint%(A%)=!(W|
000003d0  25 2b 34 2b 38 38 2b 32  30 2b 33 32 2a 41 25 29  |%+4+88+20+32*A%)|
000003e0  0d 01 22 37 49 58 25 28  41 25 29 3d 21 28 57 25  |.."7IX%(A%)=!(W%|
000003f0  2b 34 2b 38 38 2b 33 32  2a 41 25 29 3a 49 59 25  |+4+88+32*A%):IY%|
00000400  28 41 25 29 3d 21 28 57  25 2b 34 2b 38 38 2b 34  |(A%)=!(W%+4+88+4|
00000410  2b 33 32 2a 41 25 29 0d  01 2c 3c 49 58 31 25 28  |+32*A%)..,<IX1%(|
00000420  41 25 29 3d 21 28 57 25  2b 34 2b 38 38 2b 38 2b  |A%)=!(W%+4+88+8+|
00000430  33 32 2a 41 25 29 3a 49  59 31 25 28 41 25 29 3d  |32*A%):IY1%(A%)=|
00000440  21 28 57 25 2b 34 2b 38  38 2b 31 32 2b 33 32 2a  |!(W%+4+88+12+32*|
00000450  41 25 29 0d 01 36 05 ed  0d 01 40 04 0d 01 4a 29  |A%)..6....@...J)|
00000460  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000470  69 6e 64 6f 77 22 2c 2c  57 25 2b 34 20 b8 20 70  |indow",,W%+4 . p|
00000480  61 6c 6c 57 25 0d 01 54  0f 57 25 21 30 3d 70 61  |allW%..T.W%!0=pa|
00000490  6c 6c 57 25 0d 01 5e 04  0d 01 68 39 c8 99 20 22  |llW%..^...h9.. "|
000004a0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000004b0  65 22 2c 2c 71 25 2c 77  77 25 2c 77 77 25 2b 32  |e",,q%,ww%,ww%+2|
000004c0  35 36 2c 2d 31 2c 22 57  61 72 6e 69 6e 67 22 2c  |56,-1,"Warning",|
000004d0  30 0d 01 72 29 71 25 21  31 30 38 3d 54 65 78 74  |0..r)q%!108=Text|
000004e0  57 61 72 6e 25 3a 71 25  21 31 31 32 3d 2d 31 3a  |Warn%:q%!112=-1:|
000004f0  71 25 21 31 31 36 3d 33  30 30 0d 01 7c 20 58 51  |q%!116=300..| XQ|
00000500  25 3d 71 25 21 38 2d 71  25 21 30 3a 59 51 25 3d  |%=q%!8-q%!0:YQ%=|
00000510  71 25 21 31 32 2d 71 25  21 34 0d 01 86 2a c8 99  |q%!12-q%!4...*..|
00000520  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000530  64 6f 77 22 2c 2c 71 25  20 b8 20 77 61 72 6e 69  |dow",,q% . warni|
00000540  6e 67 57 25 0d 01 90 1b  c8 99 20 22 57 69 6d 70  |ngW%...... "Wimp|
00000550  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000560  01 9a 0a 72 65 66 25 3d  30 0d 01 a4 11 63 70 4c  |...ref%=0....cpL|
00000570  25 3d 30 3a 63 70 52 25  3d 30 0d 01 ae 12 73 6d  |%=0:cpR%=0....sm|
00000580  70 69 63 6f 6e 25 3d a4  69 63 6f 6e 0d 01 b8 16  |picon%=.icon....|
00000590  77 6f 70 65 6e 25 3d a3  3a 77 61 72 6e 4f 6e 25  |wopen%=.:warnOn%|
000005a0  3d a3 0d 01 c2 11 ee 20  85 20 f2 65 72 72 6f 72  |=...... . .error|
000005b0  62 6f 78 0d 01 cc 19 44  72 61 67 4f 6e 25 3d 30  |box....DragOn%=0|
000005c0  3a 58 4c 25 3d 30 3a 59  4c 25 3d 30 0d 01 d6 0e  |:XL%=0:YL%=0....|
000005d0  73 65 63 75 72 65 46 25  3d 30 0d 01 e0 13 58 70  |secureF%=0....Xp|
000005e0  61 6e 25 3d 30 3a 59 70  61 6e 25 3d 30 0d 01 ea  |an%=0:Ypan%=0...|
000005f0  0f 52 31 33 30 3d b2 28  31 33 30 29 0d 01 f4 0d  |.R130=.(130)....|
00000600  f2 69 54 4f 55 54 28 30  29 0d 01 fe 42 e7 20 44  |.iTOUT(0)...B. D|
00000610  65 76 69 63 65 44 25 3d  a3 20 f2 5f 73 65 74 75  |eviceD%=. ._setu|
00000620  70 57 28 22 43 61 6e 27  74 20 66 69 6e 64 20 49  |pW("Can't find I|
00000630  49 43 20 41 75 64 69 6f  20 43 6f 6e 74 72 6f 6c  |IC Audio Control|
00000640  20 48 61 72 64 77 61 72  65 22 29 0d 02 08 0e f2  | Hardware").....|
00000650  73 65 74 75 70 6d 65 6e  75 0d 02 12 0f f2 73 65  |setupmenu.....se|
00000660  74 75 70 53 74 61 74 65  0d 02 1c 04 0d 02 26 05  |tupState......&.|
00000670  f5 0d 02 30 1d 20 c8 99  20 22 57 69 6d 70 5f 50  |...0. .. "Wimp_P|
00000680  6f 6c 6c 22 2c 30 2c 71  25 20 b8 20 41 25 0d 02  |oll",0,q% . A%..|
00000690  3a 0d 20 20 c8 8e 20 41  25 20 ca 0d 02 44 10 20  |:.  .. A% ...D. |
000006a0  20 20 c9 20 30 3a f2 6e  75 6c 6c 0d 02 4e 15 20  |  . 0:.null..N. |
000006b0  20 20 c9 20 31 3a f2 5f  64 6f 57 69 6e 64 6f 77  |  . 1:._doWindow|
000006c0  0d 02 58 3d 20 20 20 c9  20 32 3a c8 99 20 22 57  |..X=   . 2:.. "W|
000006d0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000006e0  2c 71 25 20 3a e7 20 71  25 21 30 3d 70 61 6c 6c  |,q% :. q%!0=pall|
000006f0  57 25 20 8c 20 77 6f 70  65 6e 25 3d b9 0d 02 62  |W% . wopen%=...b|
00000700  12 20 20 20 c9 20 33 3a  f2 5f 63 6c 6f 73 65 0d  |.   . 3:._close.|
00000710  02 6c 19 20 20 20 c9 20  36 3a f2 5f 64 6f 5f 63  |.l.   . 6:._do_c|
00000720  6c 69 63 6b 28 71 25 29  0d 02 76 18 20 20 20 c9  |lick(q%)..v.   .|
00000730  20 37 3a f2 5f 50 75 74  44 6f 77 6e 28 71 25 29  | 7:._PutDown(q%)|
00000740  0d 02 80 15 20 20 20 c9  20 38 3a f2 5f 4b 65 79  |....   . 8:._Key|
00000750  50 72 65 73 73 0d 02 8a  16 20 20 20 c9 20 39 3a  |Press....   . 9:|
00000760  f2 5f 53 4f 52 54 5f 4d  65 6e 75 0d 02 94 1b 20  |._SORT_Menu.... |
00000770  20 20 c9 20 31 37 2c 31  38 3a f2 72 65 63 65 69  |  . 17,18:.recei|
00000780  76 65 28 71 25 29 0d 02  9e 08 20 20 20 cb 0d 02  |ve(q%)....   ...|
00000790  a8 08 20 fd 20 a3 0d 02  b2 04 0d 02 bc 05 e0 0d  |.. . ...........|
000007a0  02 c6 04 0d 02 d0 0b dd  20 f2 6e 75 6c 6c 0d 02  |........ .null..|
000007b0  da 14 c8 97 20 58 25 2c  59 25 2c 6d 6f 75 73 65  |.... X%,Y%,mouse|
000007c0  42 25 0d 02 e4 1c e7 20  6d 6f 75 73 65 42 25 3c  |B%..... mouseB%<|
000007d0  3e 34 20 8c 20 44 72 61  67 4f 6e 25 3d 30 0d 02  |>4 . DragOn%=0..|
000007e0  ee 28 e7 20 44 72 61 67  4f 6e 25 3c 3e 30 20 80  |.(. DragOn%<>0 .|
000007f0  20 28 58 4c 25 3c 3e 58  25 20 84 20 59 4c 25 3c  | (XL%<>X% . YL%<|
00000800  3e 59 25 29 20 8c 0d 02  f8 10 c8 8e 20 44 72 61  |>Y%) ....... Dra|
00000810  67 4f 6e 25 20 ca 0d 03  02 0e 20 20 c9 20 31 3a  |gOn% .....  . 1:|
00000820  f2 5f 44 41 0d 03 0c 12  20 20 c9 20 32 3a f2 64  |._DA....  . 2:.d|
00000830  72 61 67 56 6f 6c 0d 03  16 13 20 20 c9 20 33 3a  |ragVol....  . 3:|
00000840  f2 64 72 61 67 42 61 73  73 0d 03 20 15 20 20 c9  |.dragBass.. .  .|
00000850  20 34 3a f2 64 72 61 67  54 72 65 62 6c 65 0d 03  | 4:.dragTreble..|
00000860  2a 05 cb 0d 03 34 05 cd  0d 03 3e 05 e1 0d 03 48  |*....4....>....H|
00000870  04 0d 03 52 13 dd 20 f2  5f 50 75 74 44 6f 77 6e  |...R.. ._PutDown|
00000880  28 71 25 29 0d 03 5c 0f  e7 20 44 72 61 67 4f 6e  |(q%)..\.. DragOn|
00000890  25 20 8c 0d 03 66 20 c8  99 20 22 57 69 6d 70 5f  |% ...f .. "Wimp_|
000008a0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
000008b0  2c 71 25 0d 03 70 0d 44  72 61 67 4f 6e 25 3d a3  |,q%..p.DragOn%=.|
000008c0  0d 03 7a 06 ef 37 0d 03  84 05 cd 0d 03 8e 05 e1  |..z..7..........|
000008d0  0d 03 98 04 0d 03 a2 11  dd 20 a4 5f 73 70 61 74  |......... ._spat|
000008e0  68 28 6e 24 29 0d 03 ac  0f c8 95 20 a7 6e 24 2c  |h(n$)...... .n$,|
000008f0  22 2e 22 29 0d 03 b6 13  6e 24 3d c2 6e 24 2c a9  |".")....n$=.n$,.|
00000900  28 6e 24 29 2d 31 29 0d  03 c0 05 ce 0d 03 ca 1b  |(n$)-1).........|
00000910  e7 20 a9 28 6e 24 29 3e  31 30 20 8c 20 6e 24 3d  |. .(n$)>10 . n$=|
00000920  c2 6e 24 2c 31 30 29 0d  03 d4 07 3d 6e 24 0d 03  |.n$,10)....=n$..|
00000930  de 04 0d 03 e8 11 dd 20  f2 5f 53 4f 52 54 5f 4d  |....... ._SORT_M|
00000940  65 6e 75 0d 03 f2 11 e7  20 49 63 6f 6e 4d 65 6e  |enu..... IconMen|
00000950  75 25 20 8c 0d 03 fc 1c  e7 20 21 71 25 3d 31 20  |u% ...... !q%=1 |
00000960  8c 20 f2 5f 53 61 76 65  53 65 74 74 69 6e 67 73  |. ._SaveSettings|
00000970  0d 04 06 05 cc 0d 04 10  05 cd 0d 04 1a 1f c8 99  |................|
00000980  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00000990  49 6e 66 6f 22 2c 2c 71  25 0d 04 24 05 e1 0d 04  |Info",,q%..$....|
000009a0  2e 04 0d 04 38 0d dd 20  f2 5f 63 6c 6f 73 65 0d  |....8.. ._close.|
000009b0  04 42 41 e7 20 71 25 21  30 3d 70 61 6c 6c 57 25  |.BA. q%!0=pallW%|
000009c0  20 8c 20 77 6f 70 65 6e  25 3d a3 3a 47 6f 74 42  | . wopen%=.:GotB|
000009d0  61 72 25 3d a3 3a c8 99  22 57 69 6d 70 5f 47 65  |ar%=.:.."Wimp_Ge|
000009e0  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 57 25  |tWindowInfo",,W%|
000009f0  0d 04 4c 20 e7 20 71 25  21 30 3d 77 61 72 6e 69  |..L . q%!0=warni|
00000a00  6e 67 57 25 20 8c 20 77  61 72 6e 4f 6e 25 3d a3  |ngW% . warnOn%=.|
00000a10  0d 04 56 1d c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..V... "Wimp_Clo|
00000a20  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 04 60  |seWindow",,q%..`|
00000a30  05 e1 0d 04 6a 04 0d 04  74 14 dd 20 f2 5f 64 6f  |....j...t.. ._do|
00000a40  5f 63 6c 69 63 6b 28 71  25 29 0d 04 7e 11 ea 20  |_click(q%)..~.. |
00000a50  58 25 2c 59 25 2c 43 25  2c 54 25 0d 04 88 0c 69  |X%,Y%,C%,T%....i|
00000a60  25 3d 71 25 21 31 36 0d  04 92 0e c8 8e 20 71 25  |%=q%!16...... q%|
00000a70  21 31 32 20 ca 0d 04 9c  28 c9 20 77 61 72 6e 69  |!12 ....(. warni|
00000a80  6e 67 57 25 3a 20 71 25  21 30 3d 77 61 72 6e 69  |ngW%: q%!0=warni|
00000a90  6e 67 57 25 20 3a f2 5f  63 6c 6f 73 65 0d 04 a6  |ngW% :._close...|
00000aa0  28 c9 20 2d 32 3a 20 f4  20 4c 6f 6f 6b 20 66 69  |(. -2: . Look fi|
00000ab0  72 73 74 20 61 74 20 49  63 6f 6e 20 42 61 72 20  |rst at Icon Bar |
00000ac0  43 6c 69 63 6b 0d 04 b0  1e 20 20 20 20 20 20 20  |Click....       |
00000ad0  20 e7 20 71 25 21 31 36  3d 73 6d 70 69 63 6f 6e  | . q%!16=smpicon|
00000ae0  25 20 8c 0d 04 ba 4a 20  20 20 20 20 20 20 20 e7  |% ....J        .|
00000af0  20 71 25 21 38 3d 32 20  8c 20 49 63 6f 6e 4d 65  | q%!8=2 . IconMe|
00000b00  6e 75 25 3d b9 3a 20 c8  99 22 57 69 6d 70 5f 43  |nu%=.: .."Wimp_C|
00000b10  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00000b20  25 2c 71 25 21 30 2d 39  34 2c 31 39 30 0d 04 c4  |%,q%!0-94,190...|
00000b30  21 20 20 20 20 20 20 20  20 e7 20 71 25 21 38 3d  |!        . q%!8=|
00000b40  34 20 8c 20 f2 5f 4f 70  65 6e 57 68 61 74 0d 04  |4 . ._OpenWhat..|
00000b50  ce 0d 20 20 20 20 20 20  20 20 cd 0d 04 d8 04 0d  |..        ......|
00000b60  04 e2 0f c9 20 70 61 6c  6c 57 25 3a 20 20 0d 04  |.... pallW%:  ..|
00000b70  ec 27 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.'              |
00000b80  e7 20 71 25 21 38 3d 34  20 8c 20 f2 5f 4d 6f 6e  |. q%!8=4 . ._Mon|
00000b90  43 6c 69 63 6b 0d 04 f6  05 cb 0d 05 00 05 e1 0d  |Click...........|
00000ba0  05 0a 04 0d 05 14 10 dd  20 f2 5f 4d 6f 6e 43 6c  |........ ._MonCl|
00000bb0  69 63 6b 0d 05 1e 0e ea  20 44 25 2c 56 25 2c 42  |ick..... D%,V%,B|
00000bc0  25 0d 05 28 26 f4 20 44  6f 20 74 68 65 20 61 63  |%..(&. Do the ac|
00000bd0  74 69 6f 6e 20 66 6f 72  20 61 20 77 69 6e 64 6f  |tion for a windo|
00000be0  77 20 63 6c 69 63 6b 0d  05 32 04 0d 05 3c 14 e7  |w click..2...<..|
00000bf0  20 69 25 3c 34 20 80 20  69 25 3e 3d 30 20 8c 0d  | i%<4 . i%>=0 ..|
00000c00  05 46 2a 4d 75 74 65 25  28 53 65 6c 65 63 74 25  |.F*Mute%(Select%|
00000c10  2c 69 25 29 3d ac 28 4d  75 74 65 25 28 53 65 6c  |,i%)=.(Mute%(Sel|
00000c20  65 63 74 25 2c 69 25 29  29 0d 05 50 46 e7 20 4d  |ect%,i%))..PF. M|
00000c30  75 74 65 25 28 53 65 6c  65 63 74 25 2c 69 25 29  |ute%(Select%,i%)|
00000c40  20 8c 20 24 53 50 6f 69  6e 74 25 28 69 25 29 3d  | . $SPoint%(i%)=|
00000c50  22 6d 75 74 65 22 20 8b  20 24 53 50 6f 69 6e 74  |"mute" . $SPoint|
00000c60  25 28 69 25 29 3d 22 73  70 65 61 6b 65 72 22 0d  |%(i%)="speaker".|
00000c70  05 5a 41 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.ZA.."Wimp_Force|
00000c80  52 65 64 72 61 77 22 2c  70 61 6c 6c 57 25 2c 49  |Redraw",pallW%,I|
00000c90  58 25 28 69 25 29 2c 49  59 25 28 69 25 29 2c 49  |X%(i%),IY%(i%),I|
00000ca0  58 31 25 28 69 25 29 2c  49 59 31 25 28 69 25 29  |X1%(i%),IY1%(i%)|
00000cb0  0d 05 64 42 e7 20 4d 75  74 65 25 28 53 65 6c 65  |..dB. Mute%(Sele|
00000cc0  63 74 25 2c 30 29 20 8c  20 f2 69 4f 55 54 28 26  |ct%,0) . .iOUT(&|
00000cd0  39 46 29 20 8b 20 f2 69  4f 55 54 28 26 38 30 20  |9F) . .iOUT(&80 |
00000ce0  84 20 50 61 6e 25 28 53  65 6c 65 63 74 25 2c 30  |. Pan%(Select%,0|
00000cf0  29 29 0d 05 6e 42 e7 20  4d 75 74 65 25 28 53 65  |))..nB. Mute%(Se|
00000d00  6c 65 63 74 25 2c 31 29  20 8c 20 f2 69 4f 55 54  |lect%,1) . .iOUT|
00000d10  28 26 44 46 29 20 8b 20  f2 69 4f 55 54 28 26 43  |(&DF) . .iOUT(&C|
00000d20  30 20 84 20 50 61 6e 25  28 53 65 6c 65 63 74 25  |0 . Pan%(Select%|
00000d30  2c 31 29 29 0d 05 78 42  e7 20 4d 75 74 65 25 28  |,1))..xB. Mute%(|
00000d40  53 65 6c 65 63 74 25 2c  32 29 20 8c 20 f2 69 4f  |Select%,2) . .iO|
00000d50  55 54 28 26 46 46 29 20  8b 20 f2 69 4f 55 54 28  |UT(&FF) . .iOUT(|
00000d60  26 45 30 20 84 20 50 61  6e 25 28 53 65 6c 65 63  |&E0 . Pan%(Selec|
00000d70  74 25 2c 32 29 29 0d 05  82 42 e7 20 4d 75 74 65  |t%,2))...B. Mute|
00000d80  25 28 53 65 6c 65 63 74  25 2c 33 29 20 8c 20 f2  |%(Select%,3) . .|
00000d90  69 4f 55 54 28 26 42 46  29 20 8b 20 f2 69 4f 55  |iOUT(&BF) . .iOU|
00000da0  54 28 26 41 30 20 84 20  50 61 6e 25 28 53 65 6c  |T(&A0 . Pan%(Sel|
00000db0  65 63 74 25 2c 33 29 29  0d 05 8c 05 cd 0d 05 96  |ect%,3))........|
00000dc0  04 0d 05 a0 15 e7 20 69  25 3e 31 31 20 80 20 69  |...... i%>11 . i|
00000dd0  25 3c 31 36 20 8c 0d 05  aa 19 44 25 3d 53 67 61  |%<16 .....D%=Sga|
00000de0  69 6e 25 28 53 65 6c 65  63 74 25 29 2b 31 32 0d  |in%(Select%)+12.|
00000df0  05 b4 16 24 53 50 6f 69  6e 74 25 28 44 25 29 3d  |...$SPoint%(D%)=|
00000e00  22 73 65 6c 22 0d 05 be  41 c8 99 22 57 69 6d 70  |"sel"...A.."Wimp|
00000e10  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 70 61  |_ForceRedraw",pa|
00000e20  6c 6c 57 25 2c 49 58 25  28 44 25 29 2c 49 59 25  |llW%,IX%(D%),IY%|
00000e30  28 44 25 29 2c 49 58 31  25 28 44 25 29 2c 49 59  |(D%),IX1%(D%),IY|
00000e40  31 25 28 44 25 29 0d 05  c8 19 53 67 61 69 6e 25  |1%(D%)....Sgain%|
00000e50  28 53 65 6c 65 63 74 25  29 3d 69 25 2d 31 32 0d  |(Select%)=i%-12.|
00000e60  05 d2 17 24 53 50 6f 69  6e 74 25 28 69 25 29 3d  |...$SPoint%(i%)=|
00000e70  22 70 73 65 6c 22 0d 05  dc 41 c8 99 22 57 69 6d  |"psel"...A.."Wim|
00000e80  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 70  |p_ForceRedraw",p|
00000e90  61 6c 6c 57 25 2c 49 58  25 28 69 25 29 2c 49 59  |allW%,IX%(i%),IY|
00000ea0  25 28 69 25 29 2c 49 58  31 25 28 69 25 29 2c 49  |%(i%),IX1%(i%),I|
00000eb0  59 31 25 28 69 25 29 0d  05 e6 35 f2 69 4f 55 54  |Y1%(i%)...5.iOUT|
00000ec0  28 26 34 30 20 84 20 53  65 6c 65 63 74 25 20 84  |(&40 . Select% .|
00000ed0  20 28 28 53 67 61 69 6e  25 28 53 65 6c 65 63 74  | ((Sgain%(Select|
00000ee0  25 29 20 82 20 33 29 3c  3c 33 29 29 0d 05 f0 05  |%) . 3)<<3))....|
00000ef0  cd 0d 05 fa 04 0d 06 04  14 e7 20 69 25 3e 37 20  |.......... i%>7 |
00000f00  80 20 69 25 3c 31 32 20  8c 0d 06 0e 1f 20 20 24  |. i%<12 .....  $|
00000f10  53 50 6f 69 6e 74 25 28  53 65 6c 65 63 74 25 2b  |SPoint%(Select%+|
00000f20  38 29 3d 22 73 65 6c 22  0d 06 18 5f 20 20 c8 99  |8)="sel"..._  ..|
00000f30  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00000f40  77 22 2c 70 61 6c 6c 57  25 2c 49 58 25 28 53 65  |w",pallW%,IX%(Se|
00000f50  6c 65 63 74 25 2b 38 29  2c 49 59 25 28 53 65 6c  |lect%+8),IY%(Sel|
00000f60  65 63 74 25 2b 38 29 2c  49 58 31 25 28 53 65 6c  |ect%+8),IX1%(Sel|
00000f70  65 63 74 25 2b 38 29 2c  49 59 31 25 28 53 65 6c  |ect%+8),IY1%(Sel|
00000f80  65 63 74 25 2b 38 29 0d  06 22 19 20 20 24 53 50  |ect%+8)..".  $SP|
00000f90  6f 69 6e 74 25 28 69 25  29 3d 22 70 73 65 6c 22  |oint%(i%)="psel"|
00000fa0  0d 06 2c 43 20 20 c8 99  22 57 69 6d 70 5f 46 6f  |..,C  .."Wimp_Fo|
00000fb0  72 63 65 52 65 64 72 61  77 22 2c 70 61 6c 6c 57  |rceRedraw",pallW|
00000fc0  25 2c 49 58 25 28 69 25  29 2c 49 59 25 28 69 25  |%,IX%(i%),IY%(i%|
00000fd0  29 2c 49 58 31 25 28 69  25 29 2c 49 59 31 25 28  |),IX1%(i%),IY1%(|
00000fe0  69 25 29 0d 06 36 19 20  20 f2 75 70 64 61 74 65  |i%)..6.  .update|
00000ff0  53 65 6c 65 63 74 28 69  25 2d 38 29 0d 06 40 12  |Select(i%-8)..@.|
00001000  20 20 53 65 6c 65 63 74  25 3d 69 25 2d 38 0d 06  |  Select%=i%-8..|
00001010  4a 37 20 20 f2 69 4f 55  54 28 26 34 30 20 84 20  |J7  .iOUT(&40 . |
00001020  53 65 6c 65 63 74 25 20  84 20 28 28 53 67 61 69  |Select% . ((Sgai|
00001030  6e 25 28 53 65 6c 65 63  74 25 29 20 82 20 33 29  |n%(Select%) . 3)|
00001040  3c 3c 33 29 29 0d 06 54  1a 20 20 f2 5f 50 61 6e  |<<3))..T.  ._Pan|
00001050  55 70 28 58 70 61 6e 25  2c 59 70 61 6e 25 29 0d  |Up(Xpan%,Ypan%).|
00001060  06 5e 12 20 20 f2 5f 46  6f 72 63 65 50 61 6e 55  |.^.  ._ForcePanU|
00001070  70 0d 06 68 05 cd 0d 06  72 04 0d 06 7c 15 e7 20  |p..h....r...|.. |
00001080  69 25 3e 33 30 20 80 20  69 25 3c 33 39 20 8c 0d  |i%>30 . i%<39 ..|
00001090  06 86 1d 20 20 56 6f 6c  25 28 53 65 6c 65 63 74  |...  Vol%(Select|
000010a0  25 29 3d 28 69 25 2d 33  31 29 2a 38 0d 06 90 43  |%)=(i%-31)*8...C|
000010b0  20 20 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |  .."Wimp_ForceR|
000010c0  65 64 72 61 77 22 2c 70  61 6c 6c 57 25 2c 49 58  |edraw",pallW%,IX|
000010d0  25 28 33 39 29 2c 49 59  25 28 33 39 29 2c 49 58  |%(39),IY%(39),IX|
000010e0  31 25 28 33 39 29 2c 49  59 31 25 28 33 39 29 0d  |1%(39),IY1%(39).|
000010f0  06 9a 22 20 20 f2 69 4f  55 54 28 28 56 6f 6c 25  |.."  .iOUT((Vol%|
00001100  28 53 65 6c 65 63 74 25  29 29 20 82 20 26 33 46  |(Select%)) . &3F|
00001110  29 0d 06 a4 05 cd 0d 06  ae 17 e7 20 69 25 3d 33  |).......... i%=3|
00001120  39 20 8c 20 44 72 61 67  4f 6e 25 3d 32 0d 06 b8  |9 . DragOn%=2...|
00001130  17 e7 20 69 25 3d 34 30  20 8c 20 44 72 61 67 4f  |.. i%=40 . DragO|
00001140  6e 25 3d 33 0d 06 c2 17  e7 20 69 25 3d 34 31 20  |n%=3..... i%=41 |
00001150  8c 20 44 72 61 67 4f 6e  25 3d 34 0d 06 cc 0d e7  |. DragOn%=4.....|
00001160  20 69 25 3d 32 38 20 8c  0d 06 d6 17 20 c8 97 20  | i%=28 ..... .. |
00001170  58 4c 25 2c 59 4c 25 2c  6d 6f 75 73 65 42 25 0d  |XL%,YL%,mouseB%.|
00001180  06 e0 14 20 58 70 61 6e  25 3d 30 3a 59 70 61 6e  |... Xpan%=0:Ypan|
00001190  25 3d 30 0d 06 ea 19 20  f2 5f 50 61 6e 55 70 28  |%=0.... ._PanUp(|
000011a0  58 70 61 6e 25 2c 59 70  61 6e 25 29 0d 06 f4 11  |Xpan%,Ypan%)....|
000011b0  20 f2 5f 46 6f 72 63 65  50 61 6e 55 70 0d 06 fe  | ._ForcePanUp...|
000011c0  05 cd 0d 07 08 04 0d 07  12 14 20 f4 20 4c 6f 6f  |.......... . Loo|
000011d0  6b 20 66 6f 72 20 64 72  61 67 0d 07 1c 12 e7 20  |k for drag..... |
000011e0  a4 70 6f 69 6e 74 49 6e  3d 31 20 8c 0d 07 26 0d  |.pointIn=1 ...&.|
000011f0  44 72 61 67 4f 6e 25 3d  31 0d 07 30 16 c8 97 20  |DragOn%=1..0... |
00001200  58 4c 25 2c 59 4c 25 2c  6d 6f 75 73 65 42 25 0d  |XL%,YL%,mouseB%.|
00001210  07 3a 05 cd 0d 07 44 05  e1 0d 07 4e 04 0d 07 58  |.:....D....N...X|
00001220  04 0d 07 62 10 dd 20 f2  5f 4f 70 65 6e 57 68 61  |...b.. ._OpenWha|
00001230  74 0d 07 6c 0b ea 20 4e  63 6f 6c 25 0d 07 76 12  |t..l.. Ncol%..v.|
00001240  e7 20 ac 28 77 61 72 6e  4f 6e 25 29 20 8c 0d 07  |. .(warnOn%) ...|
00001250  80 2c 20 20 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.,  .."OS_ReadMo|
00001260  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 33  |deVariable",-1,3|
00001270  20 b8 20 2c 2c 4e 63 6f  6c 25 0d 07 8a 0c 20 20  | . ,,Ncol%....  |
00001280  f2 5f 4f 70 65 6e 0d 07  94 05 cd 0d 07 9e 05 e1  |._Open..........|
00001290  0d 07 a8 04 0d 07 b2 0e  dd 20 a4 70 6f 69 6e 74  |......... .point|
000012a0  49 6e 0d 07 bc 11 ea 20  58 25 2c 59 25 2c 42 25  |In..... X%,Y%,B%|
000012b0  2c 52 25 0d 07 c6 13 f2  5f 54 72 61 6e 73 28 70  |,R%....._Trans(p|
000012c0  61 6c 6c 57 25 29 0d 07  d0 0f c8 97 20 58 25 2c  |allW%)...... X%,|
000012d0  59 25 2c 42 25 0d 07 da  08 52 25 3d 30 0d 07 e4  |Y%,B%....R%=0...|
000012e0  5e e7 20 58 25 3e 28 78  6f 25 2b 32 35 36 2b 58  |^. X%>(xo%+256+X|
000012f0  70 61 6e 25 29 20 80 20  58 25 3c 28 78 6f 25 2b  |pan%) . X%<(xo%+|
00001300  32 39 30 2b 58 70 61 6e  25 29 20 80 20 59 25 3e  |290+Xpan%) . Y%>|
00001310  28 79 6f 25 2b 33 39 30  2b 59 70 61 6e 25 29 20  |(yo%+390+Ypan%) |
00001320  80 20 59 25 3c 28 79 6f  25 2b 34 32 34 2b 59 70  |. Y%<(yo%+424+Yp|
00001330  61 6e 25 29 20 8c 20 52  25 3d 31 0d 07 ee 07 3d  |an%) . R%=1....=|
00001340  52 25 0d 07 f8 04 0d 08  02 12 f4 20 44 72 61 67  |R%......... Drag|
00001350  20 70 6f 69 6e 74 65 72  0d 08 0c 0a dd 20 f2 5f  | pointer..... ._|
00001360  44 41 0d 08 16 04 0d 08  20 26 20 20 20 58 70 61  |DA...... &   Xpa|
00001370  6e 25 2b 3d 28 58 25 2d  58 4c 25 29 3a 59 70 61  |n%+=(X%-XL%):Ypa|
00001380  6e 25 2b 3d 28 59 25 2d  59 4c 25 29 0d 08 2a 32  |n%+=(Y%-YL%)..*2|
00001390  20 20 20 e7 20 94 28 58  70 61 6e 25 29 3e 31 31  |   . .(Xpan%)>11|
000013a0  36 20 8c 20 58 70 61 6e  25 3d 31 31 36 2a 28 58  |6 . Xpan%=116*(X|
000013b0  70 61 6e 25 2f 94 28 58  70 61 6e 25 29 29 0d 08  |pan%/.(Xpan%))..|
000013c0  34 30 20 20 20 e7 20 94  28 59 70 61 6e 25 29 3e  |40   . .(Ypan%)>|
000013d0  36 38 20 8c 20 59 70 61  6e 25 3d 36 38 2a 28 59  |68 . Ypan%=68*(Y|
000013e0  70 61 6e 25 2f 94 28 59  70 61 6e 25 29 29 0d 08  |pan%/.(Ypan%))..|
000013f0  3e 07 20 20 20 0d 08 48  3a 20 20 20 71 25 21 30  |>.   ..H:   q%!0|
00001400  3d 70 61 6c 6c 57 25 3a  71 25 21 34 3d 31 34 34  |=pallW%:q%!4=144|
00001410  3a 71 25 21 38 3d 2d 32  37 38 3a 71 25 21 31 32  |:q%!8=-278:q%!12|
00001420  3d 34 31 36 3a 71 25 21  31 36 3d 2d 31 30 38 0d  |=416:q%!16=-108.|
00001430  08 52 1b 20 20 20 f2 5f  50 61 6e 55 70 28 58 70  |.R.   ._PanUp(Xp|
00001440  61 6e 25 2c 59 70 61 6e  25 29 0d 08 5c 06 20 20  |an%,Ypan%)..\.  |
00001450  0d 08 66 27 20 20 c8 99  22 57 69 6d 70 5f 55 70  |..f'  .."Wimp_Up|
00001460  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |dateWindow",,q% |
00001470  b8 20 4d 6f 72 65 25 0d  08 70 04 0d 08 7a 0d 20  |. More%..p...z. |
00001480  c8 95 20 4d 6f 72 65 25  0d 08 84 04 0d 08 8e 22  |.. More%......."|
00001490  f4 20 44 72 61 67 20 6f  62 6a 65 63 74 73 20 61  |. Drag objects a|
000014a0  62 6f 75 74 20 69 6e 20  77 69 6e 64 6f 77 0d 08  |bout in window..|
000014b0  98 18 c8 99 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |...."Wimp_SetCol|
000014c0  6f 75 72 22 2c 30 0d 08  a2 22 20 20 c8 93 c8 90  |our",0..."  ....|
000014d0  20 78 6f 25 2b 31 34 30  2c 79 6f 25 2b 33 32 32  | xo%+140,yo%+322|
000014e0  2c 32 36 34 2c 31 36 38  0d 08 ac 19 c8 99 22 57  |,264,168......"W|
000014f0  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
00001500  35 0d 08 b6 2c 20 20 c8  93 c8 90 20 78 6f 25 2b  |5...,  .... xo%+|
00001510  32 35 36 2b 58 70 61 6e  25 2c 79 6f 25 2b 33 39  |256+Xpan%,yo%+39|
00001520  30 2b 59 70 61 6e 25 2c  33 32 2c 33 32 0d 08 c0  |0+Ypan%,32,32...|
00001530  04 0d 08 ca 27 20 20 c8  99 22 57 69 6d 70 5f 47  |....'  .."Wimp_G|
00001540  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00001550  20 b8 20 4d 6f 72 65 25  0d 08 d4 06 20 ce 0d 08  | . More%.... ...|
00001560  de 04 0d 08 e8 14 20 20  20 58 4c 25 3d 58 25 3a  |......   XL%=X%:|
00001570  59 4c 25 3d 59 25 0d 08  f2 05 e1 0d 08 fc 04 0d  |YL%=Y%..........|
00001580  09 06 12 dd 20 f2 5f 46  6f 72 63 65 50 61 6e 55  |.... ._ForcePanU|
00001590  70 0d 09 10 31 c8 99 22  57 69 6d 70 5f 46 6f 72  |p...1.."Wimp_For|
000015a0  63 65 52 65 64 72 61 77  22 2c 70 61 6c 6c 57 25  |ceRedraw",pallW%|
000015b0  2c 31 34 34 2c 2d 32 37  38 2c 34 31 36 2c 2d 31  |,144,-278,416,-1|
000015c0  30 38 0d 09 1a 3d c8 99  22 57 69 6d 70 5f 46 6f  |08...=.."Wimp_Fo|
000015d0  72 63 65 52 65 64 72 61  77 22 2c 70 61 6c 6c 57  |rceRedraw",pallW|
000015e0  25 2c 49 58 25 28 34 29  2c 49 59 25 28 34 29 2c  |%,IX%(4),IY%(4),|
000015f0  49 58 31 25 28 34 29 2c  49 59 31 25 28 34 29 0d  |IX1%(4),IY1%(4).|
00001600  09 24 3d c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.$=.."Wimp_Force|
00001610  52 65 64 72 61 77 22 2c  70 61 6c 6c 57 25 2c 49  |Redraw",pallW%,I|
00001620  58 25 28 35 29 2c 49 59  25 28 35 29 2c 49 58 31  |X%(5),IY%(5),IX1|
00001630  25 28 35 29 2c 49 59 31  25 28 35 29 0d 09 2e 3d  |%(5),IY1%(5)...=|
00001640  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00001650  72 61 77 22 2c 70 61 6c  6c 57 25 2c 49 58 25 28  |raw",pallW%,IX%(|
00001660  36 29 2c 49 59 25 28 36  29 2c 49 58 31 25 28 36  |6),IY%(6),IX1%(6|
00001670  29 2c 49 59 31 25 28 36  29 0d 09 38 3d c8 99 22  |),IY1%(6)..8=.."|
00001680  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00001690  22 2c 70 61 6c 6c 57 25  2c 49 58 25 28 37 29 2c  |",pallW%,IX%(7),|
000016a0  49 59 25 28 37 29 2c 49  58 31 25 28 37 29 2c 49  |IY%(7),IX1%(7),I|
000016b0  59 31 25 28 37 29 0d 09  42 42 e7 20 4d 75 74 65  |Y1%(7)..BB. Mute|
000016c0  25 28 53 65 6c 65 63 74  25 2c 30 29 20 8c 20 f2  |%(Select%,0) . .|
000016d0  69 4f 55 54 28 26 39 46  29 20 8b 20 f2 69 4f 55  |iOUT(&9F) . .iOU|
000016e0  54 28 26 38 30 20 84 20  50 61 6e 25 28 53 65 6c  |T(&80 . Pan%(Sel|
000016f0  65 63 74 25 2c 30 29 29  0d 09 4c 42 e7 20 4d 75  |ect%,0))..LB. Mu|
00001700  74 65 25 28 53 65 6c 65  63 74 25 2c 31 29 20 8c  |te%(Select%,1) .|
00001710  20 f2 69 4f 55 54 28 26  44 46 29 20 8b 20 f2 69  | .iOUT(&DF) . .i|
00001720  4f 55 54 28 26 43 30 20  84 20 50 61 6e 25 28 53  |OUT(&C0 . Pan%(S|
00001730  65 6c 65 63 74 25 2c 31  29 29 0d 09 56 42 e7 20  |elect%,1))..VB. |
00001740  4d 75 74 65 25 28 53 65  6c 65 63 74 25 2c 32 29  |Mute%(Select%,2)|
00001750  20 8c 20 f2 69 4f 55 54  28 26 46 46 29 20 8b 20  | . .iOUT(&FF) . |
00001760  f2 69 4f 55 54 28 26 45  30 20 84 20 50 61 6e 25  |.iOUT(&E0 . Pan%|
00001770  28 53 65 6c 65 63 74 25  2c 32 29 29 0d 09 60 42  |(Select%,2))..`B|
00001780  e7 20 4d 75 74 65 25 28  53 65 6c 65 63 74 25 2c  |. Mute%(Select%,|
00001790  33 29 20 8c 20 f2 69 4f  55 54 28 26 42 46 29 20  |3) . .iOUT(&BF) |
000017a0  8b 20 f2 69 4f 55 54 28  26 41 30 20 84 20 50 61  |. .iOUT(&A0 . Pa|
000017b0  6e 25 28 53 65 6c 65 63  74 25 2c 33 29 29 0d 09  |n%(Select%,3))..|
000017c0  6a 05 e1 0d 09 74 04 0d  09 7e 0c dd 20 f2 5f 4f  |j....t...~.. ._O|
000017d0  70 65 6e 0d 09 88 19 f4  20 4f 50 45 4e 20 55 50  |pen..... OPEN UP|
000017e0  20 57 49 4e 44 4f 57 20  48 45 52 45 0d 09 92 0e  | WINDOW HERE....|
000017f0  e7 20 77 6f 70 65 6e 25  20 8c 0d 09 9c 0f 71 25  |. wopen% .....q%|
00001800  21 30 3d 70 61 6c 6c 57  25 0d 09 a6 1f c8 99 22  |!0=pallW%......"|
00001810  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001820  61 74 65 22 2c 2c 71 25  0d 09 b0 36 20 20 e7 20  |ate",,q%...6  . |
00001830  71 25 21 32 38 3c 3e 2d  31 20 8c 20 71 25 21 32  |q%!28<>-1 . q%!2|
00001840  38 3d 2d 31 3a 20 c8 99  20 22 57 69 6d 70 5f 4f  |8=-1: .. "Wimp_O|
00001850  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 09  |penWindow",,q%..|
00001860  ba 05 cc 0d 09 c4 1c c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
00001870  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 57 25 0d  |OpenWindow",,W%.|
00001880  09 ce 0c 77 6f 70 65 6e  25 3d b9 0d 09 d8 05 cd  |...wopen%=......|
00001890  0d 09 e2 05 e1 0d 09 ec  04 0d 09 f6 10 dd 20 f2  |.............. .|
000018a0  5f 64 6f 57 69 6e 64 6f  77 0d 0a 00 10 20 20 ea  |_doWindow....  .|
000018b0  20 41 25 2c 49 25 2c 4c  25 0d 0a 0a 14 20 e7 20  | A%,I%,L%.... . |
000018c0  71 25 21 30 3d 70 61 6c  6c 57 25 20 8c 0d 0a 14  |q%!0=pallW% ....|
000018d0  16 20 20 20 f2 5f 54 72  61 6e 73 28 70 61 6c 6c  |.   ._Trans(pall|
000018e0  57 25 29 0d 0a 1e 29 20  20 20 c8 99 20 22 57 69  |W%)...)   .. "Wi|
000018f0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00001900  2c 2c 71 25 20 b8 20 66  6c 61 67 25 0d 0a 28 11  |,,q% . flag%..(.|
00001910  20 20 20 20 20 c8 95 20  66 6c 61 67 25 0d 0a 32  |     .. flag%..2|
00001920  04 0d 0a 3c 16 f4 20 44  72 61 77 20 77 69 6e 64  |...<.. Draw wind|
00001930  6f 77 20 68 65 72 65 0d  0a 46 18 c8 99 22 57 69  |ow here..F..."Wi|
00001940  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 30 0d  |mp_SetColour",0.|
00001950  0a 50 22 20 20 c8 93 c8  90 20 78 6f 25 2b 31 34  |.P"  .... xo%+14|
00001960  30 2c 79 6f 25 2b 33 32  32 2c 32 36 34 2c 31 36  |0,yo%+322,264,16|
00001970  38 0d 0a 5a 19 c8 99 22  57 69 6d 70 5f 53 65 74  |8..Z..."Wimp_Set|
00001980  43 6f 6c 6f 75 72 22 2c  31 35 0d 0a 64 2c 20 20  |Colour",15..d,  |
00001990  c8 93 c8 90 20 78 6f 25  2b 32 35 36 2b 58 70 61  |.... xo%+256+Xpa|
000019a0  6e 25 2c 79 6f 25 2b 33  39 30 2b 59 70 61 6e 25  |n%,yo%+390+Ypan%|
000019b0  2c 33 32 2c 33 32 0d 0a  6e 1b 20 20 f2 64 56 6f  |,32,32..n.  .dVo|
000019c0  6c 3a f2 64 42 61 73 73  3a f2 64 54 72 65 62 6c  |l:.dBass:.dTrebl|
000019d0  65 0d 0a 78 06 20 20 0d  0a 82 2b 20 20 20 20 20  |e..x.  ...+     |
000019e0  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
000019f0  61 6e 67 6c 65 22 2c 2c  71 25 20 b8 20 66 6c 61  |angle",,q% . fla|
00001a00  67 25 0d 0a 8c 0a 20 20  20 20 20 ce 0d 0a 96 08  |g%....     .....|
00001a10  20 20 20 cd 0d 0a a0 04  0d 0a aa 07 20 20 e1 0d  |   .........  ..|
00001a20  0a b4 04 0d 0a be 0c dd  20 f2 64 42 61 73 73 0d  |........ .dBass.|
00001a30  0a c8 08 ea 20 41 25 0d  0a d2 18 c8 99 22 57 69  |.... A%......"Wi|
00001a40  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 0d  |mp_SetColour",1.|
00001a50  0a dc 1e c8 93 c8 90 20  78 6f 25 2b 36 31 30 2c  |....... xo%+610,|
00001a60  79 6f 25 2b 33 32 38 2c  38 2c 32 30 34 0d 0a e6  |yo%+328,8,204...|
00001a70  19 c8 99 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |..."Wimp_SetColo|
00001a80  75 72 22 2c 31 35 0d 0a  f0 17 41 25 3d 42 61 73  |ur",15....A%=Bas|
00001a90  73 25 28 53 65 6c 65 63  74 25 29 2a 37 0d 0a fa  |s%(Select%)*7...|
00001aa0  21 c8 93 c8 90 20 78 6f  25 2b 36 31 30 2c 79 6f  |!.... xo%+610,yo|
00001ab0  25 2b 34 33 30 2b 41 25  2d 34 2c 38 2c 38 0d 0b  |%+430+A%-4,8,8..|
00001ac0  04 4e e7 20 42 61 73 73  25 28 53 65 6c 65 63 74  |.N. Bass%(Select|
00001ad0  25 29 3c 30 20 8c 20 41  25 3d 37 2d 94 28 42 61  |%)<0 . A%=7-.(Ba|
00001ae0  73 73 25 28 53 65 6c 65  63 74 25 29 2f 32 29 20  |ss%(Select%)/2) |
00001af0  8b 20 41 25 3d 28 42 61  73 73 25 28 53 65 6c 65  |. A%=(Bass%(Sele|
00001b00  63 74 25 29 2f 32 29 20  82 20 26 46 0d 0b 0e 13  |ct%)/2) . &F....|
00001b10  f2 69 4f 55 54 28 26 36  30 20 84 20 41 25 29 0d  |.iOUT(&60 . A%).|
00001b20  0b 18 05 e1 0d 0b 22 04  0d 0b 2c 0e dd 20 f2 64  |......"...,.. .d|
00001b30  54 72 65 62 6c 65 0d 0b  36 08 ea 20 41 25 0d 0b  |Treble..6.. A%..|
00001b40  40 18 c8 99 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |@..."Wimp_SetCol|
00001b50  6f 75 72 22 2c 31 0d 0b  4a 1e c8 93 c8 90 20 78  |our",1..J..... x|
00001b60  6f 25 2b 37 31 34 2c 79  6f 25 2b 33 32 38 2c 38  |o%+714,yo%+328,8|
00001b70  2c 32 30 34 0d 0b 54 19  c8 99 22 57 69 6d 70 5f  |,204..T..."Wimp_|
00001b80  53 65 74 43 6f 6c 6f 75  72 22 2c 31 35 0d 0b 5e  |SetColour",15..^|
00001b90  19 41 25 3d 54 72 65 62  6c 65 25 28 53 65 6c 65  |.A%=Treble%(Sele|
00001ba0  63 74 25 29 2a 37 0d 0b  68 21 c8 93 c8 90 20 78  |ct%)*7..h!.... x|
00001bb0  6f 25 2b 37 31 34 2c 79  6f 25 2b 34 33 30 2b 41  |o%+714,yo%+430+A|
00001bc0  25 2d 34 2c 38 2c 38 0d  0b 72 54 e7 20 54 72 65  |%-4,8,8..rT. Tre|
00001bd0  62 6c 65 25 28 53 65 6c  65 63 74 25 29 3c 30 20  |ble%(Select%)<0 |
00001be0  8c 20 41 25 3d 37 2d 94  28 54 72 65 62 6c 65 25  |. A%=7-.(Treble%|
00001bf0  28 53 65 6c 65 63 74 25  29 2f 32 29 20 8b 20 41  |(Select%)/2) . A|
00001c00  25 3d 28 54 72 65 62 6c  65 25 28 53 65 6c 65 63  |%=(Treble%(Selec|
00001c10  74 25 29 2f 32 29 20 82  20 26 46 0d 0b 7c 13 f2  |t%)/2) . &F..|..|
00001c20  69 4f 55 54 28 26 37 30  20 84 20 41 25 29 0d 0b  |iOUT(&70 . A%)..|
00001c30  86 04 0d 0b 90 05 e1 0d  0b 9a 04 0d 0b a4 0b dd  |................|
00001c40  20 f2 64 56 6f 6c 0d 0b  ae 0d ea 20 41 2c 58 25  | .dVol..... A,X%|
00001c50  2c 59 25 0d 0b b8 19 c8  99 22 57 69 6d 70 5f 53  |,Y%......"Wimp_S|
00001c60  65 74 43 6f 6c 6f 75 72  22 2c 31 35 0d 0b c2 1b  |etColour",15....|
00001c70  c8 8f c8 90 20 78 6f 25  2b 36 35 38 2c 79 6f 25  |.... xo%+658,yo%|
00001c80  2b 31 33 34 2c 32 38 0d  0b cc 1f 41 3d 28 af 2f  |+134,28....A=(./|
00001c90  33 38 29 2a 56 6f 6c 25  28 53 65 6c 65 63 74 25  |38)*Vol%(Select%|
00001ca0  29 2d 52 31 33 30 0d 0b  d6 16 58 25 3d 32 30 2a  |)-R130....X%=20*|
00001cb0  b5 28 41 29 2b 78 6f 25  2b 36 35 38 0d 0b e0 16  |.(A)+xo%+658....|
00001cc0  59 25 3d 32 30 2a 9b 28  41 29 2b 79 6f 25 2b 31  |Y%=20*.(A)+yo%+1|
00001cd0  33 34 0d 0b ea 19 c8 99  22 57 69 6d 70 5f 53 65  |34......"Wimp_Se|
00001ce0  74 43 6f 6c 6f 75 72 22  2c 31 31 0d 0b f4 12 20  |tColour",11.... |
00001cf0  20 c8 8f c8 90 20 58 25  2c 59 25 2c 36 0d 0b fe  | .... X%,Y%,6...|
00001d00  22 20 20 f2 69 4f 55 54  28 28 56 6f 6c 25 28 53  |"  .iOUT((Vol%(S|
00001d10  65 6c 65 63 74 25 29 29  20 82 20 26 33 46 29 0d  |elect%)) . &3F).|
00001d20  0c 08 05 e1 0d 0c 12 04  0d 0c 1c 04 0d 0c 26 12  |..............&.|
00001d30  dd 20 f2 5f 54 72 61 6e  73 28 77 68 25 29 0d 0c  |. ._Trans(wh%)..|
00001d40  30 0b 21 71 25 3d 77 68  25 0d 0c 3a 20 c8 99 20  |0.!q%=wh%..: .. |
00001d50  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00001d60  74 61 74 65 22 2c 2c 71  25 0d 0c 44 28 78 6f 25  |tate",,q%..D(xo%|
00001d70  3d 71 25 21 34 2d 71 25  21 32 30 2b 38 3a 79 6f  |=q%!4-q%!20+8:yo|
00001d80  25 3d 71 25 21 31 36 2d  71 25 21 32 34 2d 36 30  |%=q%!16-q%!24-60|
00001d90  30 0d 0c 4e 16 58 4f 25  3d 71 25 21 34 3a 59 4f  |0..N.XO%=q%!4:YO|
00001da0  25 3d 71 25 21 31 36 0d  0c 58 05 e1 0d 0c 62 04  |%=q%!16..X....b.|
00001db0  0d 0c 6c 0f dd f2 73 65  74 75 70 6d 65 6e 75 0d  |..l...setupmenu.|
00001dc0  0c 76 08 ea 20 6d 25 0d  0c 80 04 0d 0c 8a 18 24  |.v.. m%........$|
00001dd0  6d 65 6e 75 25 3d 22 41  75 64 69 6f 53 65 6c 65  |menu%="AudioSele|
00001de0  63 74 22 0d 0c 94 0e 6d  65 6e 75 25 3f 31 32 3d  |ct"....menu%?12=|
00001df0  37 0d 0c 9e 0e 6d 65 6e  75 25 3f 31 33 3d 32 0d  |7....menu%?13=2.|
00001e00  0c a8 0e 6d 65 6e 75 25  3f 31 34 3d 37 0d 0c b2  |...menu%?14=7...|
00001e10  0e 6d 65 6e 75 25 3f 31  35 3d 30 0d 0c bc 0f 6d  |.menu%?15=0....m|
00001e20  65 6e 75 25 21 31 36 3d  38 36 0d 0c c6 0f 6d 65  |enu%!16=86....me|
00001e30  6e 75 25 21 32 30 3d 34  30 0d 0c d0 0e 6d 65 6e  |nu%!20=40....men|
00001e40  75 25 21 32 34 3d 30 0d  0c da 0f 6d 25 3d 6d 65  |u%!24=0....m%=me|
00001e50  6e 75 25 2b 32 38 0d 0c  e4 0a 6d 25 21 30 3d 30  |nu%+28....m%!0=0|
00001e60  0d 0c ee 0e 6d 25 21 34  3d 69 6e 66 6f 25 0d 0c  |....m%!4=info%..|
00001e70  f8 18 6d 25 21 38 3d 28  37 3c 3c 32 34 29 84 20  |..m%!8=(7<<24). |
00001e80  25 31 30 30 30 31 0d 0d  02 13 24 28 6d 25 2b 31  |%10001....$(m%+1|
00001e90  32 29 3d 22 49 6e 66 6f  22 0d 0d 0c 04 0d 0d 16  |2)="Info".......|
00001ea0  0a 6d 25 2b 3d 32 34 0d  0d 20 0c 6d 25 21 30 3d  |.m%+=24.. .m%!0=|
00001eb0  26 38 30 0d 0d 2a 0a 6d  25 21 34 3d 30 0d 0d 34  |&80..*.m%!4=0..4|
00001ec0  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
00001ed0  31 30 30 30 31 0d 0d 3e  13 24 28 6d 25 2b 31 32  |10001..>.$(m%+12|
00001ee0  29 3d 22 51 75 69 74 22  0d 0d 48 04 0d 0d 52 05  |)="Quit"..H...R.|
00001ef0  e1 0d 0d 5c 04 0d 0d 66  12 dd 20 f2 72 65 63 65  |...\...f.. .rece|
00001f00  69 76 65 28 71 25 29 0d  0d 70 08 ea 20 41 25 0d  |ive(q%)..p.. A%.|
00001f10  0d 7a 0c 41 25 3d 71 25  21 31 36 0d 0d 84 0b c8  |.z.A%=q%!16.....|
00001f20  8e 20 41 25 20 ca 0d 0d  8e 0c c9 20 30 3a f2 64  |. A% ...... 0:.d|
00001f30  69 65 0d 0d 98 04 0d 0d  a2 1f c9 20 33 3a e7 20  |ie......... 3:. |
00001f40  71 25 21 32 30 3d 2d 32  20 80 20 71 25 21 34 30  |q%!20=-2 . q%!40|
00001f50  3d 26 43 20 8c 0d 0d ac  28 20 20 20 20 20 20 20  |=&C ....(       |
00001f60  f4 20 6c 6f 61 64 20 69  6e 20 74 68 65 20 73 77  |. load in the sw|
00001f70  69 74 63 68 65 72 20 73  74 61 74 75 73 0d 0d b6  |itcher status...|
00001f80  0c 20 20 20 20 20 20 20  cd 0d 0d c0 0b 20 20 20  |.       .....   |
00001f90  20 20 20 20 0d 0d ca 04  0d 0d d4 14 c9 20 26 35  |    ......... &5|
00001fa0  30 32 3a 20 20 20 c8 8e  20 b9 20 ca 0d 0d de 6b  |02:   .. . ....k|
00001fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 71  |             . q|
00001fc0  25 21 33 32 3d 2d 32 20  80 20 71 25 21 33 36 3d  |%!32=-2 . q%!36=|
00001fd0  73 6d 70 69 63 6f 6e 25  3a 6d 65 73 24 3d 22 54  |smpicon%:mes$="T|
00001fe0  68 69 73 20 69 73 20 74  68 65 20 41 75 64 69 6f  |his is the Audio|
00001ff0  20 53 77 69 74 63 68 20  69 63 6f 6e 2e 7c 4d 43  | Switch icon.|MC|
00002000  68 61 6e 67 65 20 73 6f  75 72 63 65 20 6f 66 20  |hange source of |
00002010  61 75 64 69 6f 2e 22 0d  0d e8 1a 20 20 20 20 20  |audio."....     |
00002020  20 20 20 20 20 20 20 20  7f 3a 6d 65 73 24 3d 22  |        .:mes$="|
00002030  22 0d 0d f2 12 20 20 20  20 20 20 20 20 20 20 20  |"....           |
00002040  20 20 cb 0d 0d fc 14 20  20 20 20 e7 20 6d 65 73  |  .....    . mes|
00002050  24 3c 3e 22 22 20 8c 0d  0e 06 12 20 20 20 20 71  |$<>"" .....    q|
00002060  25 21 31 32 3d 71 25 21  38 0d 0e 10 18 20 20 20  |%!12=q%!8....   |
00002070  20 24 28 71 25 2b 32 30  29 3d 6d 65 73 24 2b bd  | $(q%+20)=mes$+.|
00002080  30 0d 0e 1a 1e 20 20 20  20 71 25 21 30 3d 28 32  |0....    q%!0=(2|
00002090  30 2b a9 6d 65 73 24 2b  34 29 80 20 ac 20 33 0d  |0+.mes$+4). . 3.|
000020a0  0e 24 12 20 20 20 20 71  25 21 31 36 3d 26 35 30  |.$.    q%!16=&50|
000020b0  33 0d 0e 2e 28 20 20 20  20 c8 99 20 22 57 69 6d  |3...(    .. "Wim|
000020c0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000020d0  38 2c 71 25 2c 71 25 21  34 0d 0e 38 05 cb 0d 0e  |8,q%,q%!4..8....|
000020e0  42 05 e1 0d 0e 4c 04 0d  0e 56 0c dd 20 f2 5f 44  |B....L...V.. ._D|
000020f0  61 63 6b 0d 0e 60 10 73  65 6e 64 74 68 25 3d 71  |ack..`.sendth%=q|
00002100  25 21 34 0d 0e 6a 0f 6d  79 72 65 66 25 3d 71 25  |%!4..j.myref%=q%|
00002110  21 38 0d 0e 74 22 c8 99  20 22 57 69 6d 70 5f 47  |!8..t".. "Wimp_G|
00002120  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00002130  71 25 2b 38 0d 0e 7e 0e  71 25 21 32 38 3d 71 25  |q%+8..~.q%!28=q%|
00002140  21 38 0d 0e 88 0f 71 25  21 33 32 3d 71 25 21 31  |!8....q%!32=q%!1|
00002150  32 0d 0e 92 18 71 25 21  30 3d 28 34 34 2b a9 6e  |2....q%!0=(44+.n|
00002160  24 2b 34 29 80 20 ac 20  33 0d 0e 9c 10 71 25 21  |$+4). . 3....q%!|
00002170  31 32 3d 6d 79 72 65 66  25 0d 0e a6 0b 71 25 21  |12=myref%....q%!|
00002180  31 36 3d 34 0d 0e b0 0c  71 25 21 33 36 3d 2d 31  |16=4....q%!36=-1|
00002190  0d 0e ba 0e 71 25 21 34  30 3d 26 46 46 39 0d 0e  |....q%!40=&FF9..|
000021a0  c4 12 24 28 71 25 2b 34  34 29 3d 6e 24 2b bd 30  |..$(q%+44)=n$+.0|
000021b0  0d 0e ce 27 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...'.. "Wimp_Sen|
000021c0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
000021d0  73 65 6e 64 74 68 25 0d  0e d8 05 cd 0d 0e e2 05  |sendth%.........|
000021e0  e1 0d 0e ec 04 0d 0e f6  0e dd a4 73 67 65 74 28  |...........sget(|
000021f0  78 25 29 0d 0f 00 08 ea  20 78 24 0d 0f 0a 1d c8  |x%)..... x$.....|
00002200  95 20 3f 78 25 20 78 24  2b 3d bd 28 3f 78 25 29  |. ?x% x$+=.(?x%)|
00002210  3a 78 25 2b 3d 31 3a ce  0d 0f 14 07 3d 78 24 0d  |:x%+=1:.....=x$.|
00002220  0f 1e 04 0d 0f 28 0a dd  a4 69 63 6f 6e 0d 0f 32  |.....(...icon..2|
00002230  0b 71 25 21 30 3d 2d 31  0d 0f 3c 0a 71 25 21 34  |.q%!0=-1..<.q%!4|
00002240  3d 30 0d 0f 46 1b 71 25  21 38 3d 31 30 20 3a 20  |=0..F.q%!8=10 : |
00002250  f4 20 59 20 44 49 52 45  43 54 49 4f 4e 0d 0f 50  |. Y DIRECTION..P|
00002260  1c 71 25 21 31 32 3d 37  30 20 3a 20 f4 20 58 20  |.q%!12=70 : . X |
00002270  44 49 52 45 43 54 49 4f  4e 0d 0f 5a 0c 71 25 21  |DIRECTION..Z.q%!|
00002280  31 36 3d 39 36 0d 0f 64  0f 71 25 21 32 30 3d 26  |16=96..d.q%!20=&|
00002290  32 30 30 32 0d 0f 6e 18  24 28 71 25 2b 32 34 29  |2002..n.$(q%+24)|
000022a0  3d 22 21 41 75 64 69 6f  53 65 6c 22 0d 0f 78 24  |="!AudioSel"..x$|
000022b0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
000022c0  63 6f 6e 22 2c 2c 71 25  20 b8 20 69 63 6f 6e 25  |con",,q% . icon%|
000022d0  0d 0f 82 0a 3d 69 63 6f  6e 25 0d 0f 8c 04 0d 0f  |....=icon%......|
000022e0  96 12 dd 20 f2 5f 73 65  74 75 70 57 28 74 24 29  |... ._setupW(t$)|
000022f0  0d 0f a0 58 21 71 25 3d  77 61 72 6e 69 6e 67 57  |...X!q%=warningW|
00002300  25 3a 71 25 21 34 3d 32  30 30 3a 71 25 21 38 3d  |%:q%!4=200:q%!8=|
00002310  32 30 30 3a 71 25 21 31  32 3d 32 30 30 2b 58 51  |200:q%!12=200+XQ|
00002320  25 3a 71 25 21 31 36 3d  32 30 30 2b 59 51 25 3a  |%:q%!16=200+YQ%:|
00002330  71 25 21 32 30 3d 30 3a  71 25 21 32 34 3d 30 3a  |q%!20=0:q%!24=0:|
00002340  71 25 21 32 38 3d 2d 31  0d 0f aa 11 24 54 65 78  |q%!28=-1....$Tex|
00002350  74 57 61 72 6e 25 3d 74  24 0d 0f b4 15 54 65 78  |tWarn%=t$....Tex|
00002360  74 57 61 72 6e 25 3f a9  28 74 24 29 3d 30 0d 0f  |tWarn%?.(t$)=0..|
00002370  be 07 ef 20 37 0d 0f c8  0d 77 61 72 6e 4f 6e 25  |... 7....warnOn%|
00002380  3d b9 0d 0f d2 1c c8 99  20 22 57 69 6d 70 5f 4f  |=....... "Wimp_O|
00002390  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 0f  |penWindow",,q%..|
000023a0  dc 05 e1 0d 0f e6 04 0d  0f f0 0f dd 20 f2 65 72  |............ .er|
000023b0  72 6f 72 62 6f 78 0d 0f  fa 19 c8 99 20 22 57 69  |rorbox...... "Wi|
000023c0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 2d 31 0d  |mp_DragBox",,-1.|
000023d0  10 04 32 21 62 75 66 66  65 72 73 25 3d 9f 3a 24  |..2!buffers%=.:$|
000023e0  28 62 75 66 66 65 72 73  25 2b 34 29 3d f6 24 2b  |(buffers%+4)=.$+|
000023f0  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b bd  |" at line "+..+.|
00002400  30 0d 10 0e 32 c8 99 20  22 57 69 6d 70 5f 52 65  |0...2.. "Wimp_Re|
00002410  70 6f 72 74 45 72 72 6f  72 22 2c 62 75 66 66 65  |portError",buffe|
00002420  72 73 25 2c 31 2c 22 41  75 64 69 6f 53 65 6c 65  |rs%,1,"AudioSele|
00002430  63 74 22 0d 10 18 08 f2  64 69 65 0d 10 22 05 e1  |ct".....die.."..|
00002440  0d 10 2c 04 0d 10 36 09  dd f2 64 69 65 0d 10 40  |..,...6...die..@|
00002450  2a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |*.. "Wimp_CloseD|
00002460  6f 77 6e 22 2c 74 61 73  6b 68 61 6e 64 25 2c 21  |own",taskhand%,!|
00002470  74 61 73 6b 69 64 25 0d  10 4a 05 e0 0d 10 54 05  |taskid%..J....T.|
00002480  e1 0d 10 5e 04 0d 10 68  2e dd 20 f2 64 72 61 67  |...^...h.. .drag|
00002490  69 63 6f 6e 28 6d 6f 75  73 65 78 25 2c 6d 6f 75  |icon(mousex%,mou|
000024a0  73 65 79 25 2c 68 61 6e  64 6c 65 25 2c 69 63 6f  |sey%,handle%,ico|
000024b0  6e 25 29 0d 10 72 21 ea  20 62 78 25 2c 62 79 25  |n%)..r!. bx%,by%|
000024c0  2c 69 78 30 25 2c 69 79  30 25 2c 69 78 31 25 2c  |,ix0%,iy0%,ix1%,|
000024d0  69 79 31 25 0d 10 7c 12  f2 67 65 74 77 28 68 61  |iy1%..|..getw(ha|
000024e0  6e 64 6c 65 25 29 0d 10  86 18 f2 67 65 74 69 28  |ndle%).....geti(|
000024f0  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 29 0d 10  |handle%,icon%)..|
00002500  90 16 21 71 25 3d 68 61  6e 64 6c 65 25 3a 71 25  |..!q%=handle%:q%|
00002510  21 34 3d 35 0d 10 9a 3e  71 25 21 38 3d 62 78 25  |!4=5...>q%!8=bx%|
00002520  2b 69 78 30 25 3a 71 25  21 31 32 3d 62 79 25 2b  |+ix0%:q%!12=by%+|
00002530  69 79 30 25 3a 71 25 21  31 36 3d 62 78 25 2b 69  |iy0%:q%!16=bx%+i|
00002540  78 31 25 3a 71 25 21 32  30 3d 62 79 25 2b 69 79  |x1%:q%!20=by%+iy|
00002550  31 25 0d 10 a4 2a 71 25  21 32 34 3d 71 25 21 38  |1%...*q%!24=q%!8|
00002560  2d 6d 6f 75 73 65 78 25  3a 71 25 21 32 38 3d 71  |-mousex%:q%!28=q|
00002570  25 21 31 32 2d 6d 6f 75  73 65 79 25 0d 10 ae 19  |%!12-mousey%....|
00002580  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
00002590  22 2c 2c 71 25 0d 10 b8  0c 53 46 4c 41 47 25 3d  |",,q%....SFLAG%=|
000025a0  b9 0d 10 c2 05 e1 0d 10  cc 04 0d 10 d6 14 dd 20  |............... |
000025b0  f2 67 65 74 77 28 68 61  6e 64 6c 65 25 29 0d 10  |.getw(handle%)..|
000025c0  e0 38 21 71 25 3d 68 61  6e 64 6c 65 25 3a c8 99  |.8!q%=handle%:..|
000025d0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000025e0  53 74 61 74 65 22 2c 2c  71 25 3a f2 69 6e 66 6f  |State",,q%:.info|
000025f0  28 71 25 2b 34 29 0d 10  ea 05 e1 0d 10 f4 12 dd  |(q%+4)..........|
00002600  20 f2 67 65 74 69 28 68  25 2c 69 25 29 0d 10 fe  | .geti(h%,i%)...|
00002610  2d 21 71 25 3d 68 25 3a  71 25 21 34 3d 69 25 3a  |-!q%=h%:q%!4=i%:|
00002620  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00002630  53 74 61 74 65 22 2c 2c  71 25 0d 11 08 2e 69 78  |State",,q%....ix|
00002640  30 25 3d 71 25 21 38 3a  69 79 30 25 3d 71 25 21  |0%=q%!8:iy0%=q%!|
00002650  31 32 3a 69 78 31 25 3d  71 25 21 31 36 3a 69 79  |12:ix1%=q%!16:iy|
00002660  31 25 3d 71 25 21 32 30  0d 11 12 1e 69 66 6c 61  |1%=q%!20....ifla|
00002670  67 73 25 3d 71 25 21 32  34 3a 69 64 61 74 61 25  |gs%=q%!24:idata%|
00002680  3d 71 25 2b 32 38 0d 11  1c 05 e1 0d 11 26 04 0d  |=q%+28.......&..|
00002690  11 30 0f dd 20 f2 69 6e  66 6f 28 70 25 29 0d 11  |.0.. .info(p%)..|
000026a0  3a 0d ea 20 78 30 25 2c  79 30 25 0d 11 44 27 78  |:.. x0%,y0%..D'x|
000026b0  30 25 3d 21 70 25 3a 79  30 25 3d 70 25 21 34 3a  |0%=!p%:y0%=p%!4:|
000026c0  78 31 25 3d 70 25 21 38  3a 79 31 25 3d 70 25 21  |x1%=p%!8:y1%=p%!|
000026d0  31 32 0d 11 4e 35 73 63  78 25 3d 70 25 21 31 36  |12..N5scx%=p%!16|
000026e0  3a 73 63 79 25 3d 70 25  21 32 30 3a 62 68 61 6e  |:scy%=p%!20:bhan|
000026f0  64 6c 65 25 3d 70 25 21  32 34 3a 66 6c 61 67 73  |dle%=p%!24:flags|
00002700  25 3d 70 25 21 32 38 0d  11 58 1d 62 78 25 3d 78  |%=p%!28..X.bx%=x|
00002710  30 25 2d 73 63 78 25 3a  62 79 25 3d 79 31 25 2d  |0%-scx%:by%=y1%-|
00002720  73 63 79 25 0d 11 62 05  e1 0d 11 6c 04 0d 11 76  |scy%..b....l...v|
00002730  10 dd 20 f2 5f 4b 65 79  50 72 65 73 73 0d 11 80  |.. ._KeyPress...|
00002740  2b f4 20 4f 54 48 45 52  57 49 53 45 3a 20 53 59  |+. OTHERWISE: SY|
00002750  53 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |S"Wimp_ProcessKe|
00002760  79 22 2c 71 25 21 32 34  0d 11 8a 05 e1 0d 11 94  |y",q%!24........|
00002770  04 0d 11 9e 11 dd 20 f2  73 65 74 75 70 53 74 61  |...... .setupSta|
00002780  74 65 0d 11 a8 0e ea 20  41 25 2c 42 25 2c 46 25  |te..... A%,B%,F%|
00002790  0d 11 b2 23 46 25 3d 8e  28 22 3c 41 75 64 69 6f  |...#F%=.("<Audio|
000027a0  53 65 6c 24 44 69 72 3e  2e 53 65 74 74 69 6e 67  |Sel$Dir>.Setting|
000027b0  73 22 29 0d 11 bc 38 e7  20 46 25 3d 30 20 8c 20  |s")...8. F%=0 . |
000027c0  f2 5f 73 65 74 75 70 57  28 22 43 61 6e 27 74 20  |._setupW("Can't |
000027d0  6f 70 65 6e 20 73 65 74  74 69 6e 67 73 20 66 69  |open settings fi|
000027e0  6c 65 22 29 20 e5 20 8d  54 60 52 0d 11 c6 10 e8  |le") . .T`R.....|
000027f0  23 46 25 2c 53 65 6c 65  63 74 25 0d 11 d0 0e e3  |#F%,Select%.....|
00002800  20 41 25 3d 30 20 b8 20  33 0d 11 da 4c e8 23 46  | A%=0 . 3...L.#F|
00002810  25 2c 53 67 61 69 6e 25  28 41 25 29 2c 58 59 70  |%,Sgain%(A%),XYp|
00002820  61 6e 25 28 41 25 2c 30  29 2c 58 59 70 61 6e 25  |an%(A%,0),XYpan%|
00002830  28 41 25 2c 31 29 2c 56  6f 6c 25 28 41 25 29 2c  |(A%,1),Vol%(A%),|
00002840  42 61 73 73 25 28 41 25  29 2c 54 72 65 62 6c 65  |Bass%(A%),Treble|
00002850  25 28 41 25 29 0d 11 e4  0e e3 20 42 25 3d 30 20  |%(A%)..... B%=0 |
00002860  b8 20 33 0d 11 ee 21 e8  23 46 25 2c 4d 75 74 65  |. 3...!.#F%,Mute|
00002870  25 28 41 25 2c 42 25 29  2c 50 61 6e 25 28 41 25  |%(A%,B%),Pan%(A%|
00002880  2c 42 25 29 0d 11 f8 07  ed 3a ed 0d 12 02 08 d9  |,B%).....:......|
00002890  23 46 25 0d 12 0c 1b 58  70 61 6e 25 3d 58 59 70  |#F%....Xpan%=XYp|
000028a0  61 6e 25 28 53 65 6c 65  63 74 25 2c 30 29 0d 12  |an%(Select%,0)..|
000028b0  16 1b 59 70 61 6e 25 3d  58 59 70 61 6e 25 28 53  |..Ypan%=XYpan%(S|
000028c0  65 6c 65 63 74 25 2c 31  29 0d 12 20 1e 24 53 50  |elect%,1).. .$SP|
000028d0  6f 69 6e 74 25 28 53 65  6c 65 63 74 25 2b 38 29  |oint%(Select%+8)|
000028e0  3d 22 70 73 65 6c 22 0d  12 2a 5d c8 99 22 57 69  |="psel"..*].."Wi|
000028f0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00002900  70 61 6c 6c 57 25 2c 49  58 25 28 53 65 6c 65 63  |pallW%,IX%(Selec|
00002910  74 25 2b 38 29 2c 49 59  25 28 53 65 6c 65 63 74  |t%+8),IY%(Select|
00002920  25 2b 38 29 2c 49 58 31  25 28 53 65 6c 65 63 74  |%+8),IX1%(Select|
00002930  25 2b 38 29 2c 49 59 31  25 28 53 65 6c 65 63 74  |%+8),IY1%(Select|
00002940  25 2b 38 29 0d 12 34 19  41 25 3d 53 67 61 69 6e  |%+8)..4.A%=Sgain|
00002950  25 28 53 65 6c 65 63 74  25 29 2b 31 32 0d 12 3e  |%(Select%)+12..>|
00002960  17 24 53 50 6f 69 6e 74  25 28 41 25 29 3d 22 70  |.$SPoint%(A%)="p|
00002970  73 65 6c 22 0d 12 48 41  c8 99 22 57 69 6d 70 5f  |sel"..HA.."Wimp_|
00002980  46 6f 72 63 65 52 65 64  72 61 77 22 2c 70 61 6c  |ForceRedraw",pal|
00002990  6c 57 25 2c 49 58 25 28  41 25 29 2c 49 59 25 28  |lW%,IX%(A%),IY%(|
000029a0  41 25 29 2c 49 58 31 25  28 41 25 29 2c 49 59 31  |A%),IX1%(A%),IY1|
000029b0  25 28 41 25 29 0d 12 52  0a f7 20 8d 44 7a 52 0d  |%(A%)..R.. .DzR.|
000029c0  12 5c 0f e3 20 41 25 3d  30 20 b8 20 33 31 0d 12  |.\.. A%=0 . 31..|
000029d0  66 10 f3 20 50 61 6e 64  42 24 28 41 25 29 0d 12  |f.. PandB$(A%)..|
000029e0  70 05 ed 0d 12 7a 41 dc  20 30 64 42 2c 2d 31 2e  |p....zA. 0dB,-1.|
000029f0  32 35 64 42 2c 2d 32 2e  35 30 64 42 2c 2d 33 2e  |25dB,-2.50dB,-3.|
00002a00  37 35 64 42 2c 2d 35 2e  30 30 64 42 2c 2d 36 2e  |75dB,-5.00dB,-6.|
00002a10  32 35 64 42 2c 2d 37 2e  35 30 64 42 2c 2d 38 2e  |25dB,-7.50dB,-8.|
00002a20  37 35 64 42 0d 12 84 4d  dc 20 2d 31 30 2e 30 30  |75dB...M. -10.00|
00002a30  64 42 2c 2d 31 31 2e 32  35 64 42 2c 2d 31 32 2e  |dB,-11.25dB,-12.|
00002a40  35 30 64 42 2c 2d 31 33  2e 37 35 64 42 2c 2d 31  |50dB,-13.75dB,-1|
00002a50  35 2e 30 30 64 42 2c 2d  31 36 2e 32 35 64 42 2c  |5.00dB,-16.25dB,|
00002a60  2d 31 37 2e 35 30 64 42  2c 2d 31 38 2e 37 35 64  |-17.50dB,-18.75d|
00002a70  42 0d 12 8e 4d dc 20 2d  32 30 2e 30 30 64 42 2c  |B...M. -20.00dB,|
00002a80  2d 32 31 2e 32 35 64 42  2c 2d 32 32 2e 35 30 64  |-21.25dB,-22.50d|
00002a90  42 2c 2d 32 33 2e 37 35  64 42 2c 2d 32 35 2e 30  |B,-23.75dB,-25.0|
00002aa0  30 64 42 2c 2d 32 36 2e  32 35 64 42 2c 2d 32 37  |0dB,-26.25dB,-27|
00002ab0  2e 35 30 64 42 2c 2d 32  38 2e 37 35 64 42 0d 12  |.50dB,-28.75dB..|
00002ac0  98 49 dc 20 2d 33 30 2e  30 30 64 42 2c 2d 33 31  |.I. -30.00dB,-31|
00002ad0  2e 32 35 64 42 2c 2d 33  32 2e 35 30 64 42 2c 2d  |.25dB,-32.50dB,-|
00002ae0  33 33 2e 37 35 64 42 2c  2d 33 35 2e 30 30 64 42  |33.75dB,-35.00dB|
00002af0  2c 2d 33 36 2e 32 35 64  42 2c 2d 33 37 2e 35 30  |,-36.25dB,-37.50|
00002b00  64 42 2c 4d 75 74 65 0d  12 a2 35 f2 69 4f 55 54  |dB,Mute...5.iOUT|
00002b10  28 26 34 30 20 84 20 53  65 6c 65 63 74 25 20 84  |(&40 . Select% .|
00002b20  20 28 28 53 67 61 69 6e  25 28 53 65 6c 65 63 74  | ((Sgain%(Select|
00002b30  25 29 20 82 20 33 29 3c  3c 33 29 29 0d 12 ac 18  |%) . 3)<<3))....|
00002b40  f2 5f 50 61 6e 55 70 28  58 70 61 6e 25 2c 59 70  |._PanUp(Xpan%,Yp|
00002b50  61 6e 25 29 0d 12 b6 10  f2 5f 46 6f 72 63 65 50  |an%)....._ForceP|
00002b60  61 6e 55 70 0d 12 c0 04  0d 12 ca 05 e1 0d 12 d4  |anUp............|
00002b70  04 0d 12 de 0f dd 20 f2  69 4f 55 54 28 56 25 29  |...... .iOUT(V%)|
00002b80  0d 12 e8 08 ea 20 46 6c  0d 12 f2 0c 3f 50 42 4b  |..... Fl....?PBK|
00002b90  25 3d 56 25 0d 12 fc 26  c8 99 20 22 58 49 49 43  |%=V%...&.. "XIIC|
00002ba0  5f 43 6f 6e 74 72 6f 6c  22 2c 26 38 38 2c 50 42  |_Control",&88,PB|
00002bb0  4b 25 2c 31 20 b8 20 3b  46 6c 0d 13 06 05 e1 0d  |K%,1 . ;Fl......|
00002bc0  13 10 04 0d 13 1a 10 dd  20 f2 69 54 4f 55 54 28  |........ .iTOUT(|
00002bd0  56 25 29 0d 13 24 08 ea  20 46 6c 0d 13 2e 0c 3f  |V%)..$.. Fl....?|
00002be0  50 42 4b 25 3d 56 25 0d  13 38 26 c8 99 20 22 58  |PBK%=V%..8&.. "X|
00002bf0  49 49 43 5f 43 6f 6e 74  72 6f 6c 22 2c 26 38 38  |IIC_Control",&88|
00002c00  2c 50 42 4b 25 2c 31 20  b8 20 3b 46 6c 0d 13 42  |,PBK%,1 . ;Fl..B|
00002c10  2b e7 20 28 46 6c 20 80  20 31 29 20 3d 31 20 8c  |+. (Fl . 1) =1 .|
00002c20  20 44 65 76 69 63 65 44  25 3d a3 20 8b 20 44 65  | DeviceD%=. . De|
00002c30  76 69 63 65 44 25 3d b9  0d 13 4c 05 e1 0d 13 56  |viceD%=...L....V|
00002c40  04 0d 13 60 17 dd 20 f2  75 70 64 61 74 65 53 65  |...`.. .updateSe|
00002c50  6c 65 63 74 28 6e 25 29  0d 13 6a 0b ea 20 41 25  |lect(n%)..j.. A%|
00002c60  2c 42 25 0d 13 74 0e e3  20 41 25 3d 30 20 b8 20  |,B%..t.. A%=0 . |
00002c70  33 0d 13 7e 29 e7 20 4d  75 74 65 25 28 53 65 6c  |3..~). Mute%(Sel|
00002c80  65 63 74 25 2c 41 25 29  20 3c 3e 20 4d 75 74 65  |ect%,A%) <> Mute|
00002c90  25 28 6e 25 2c 41 25 29  20 8c 0d 13 88 41 e7 20  |%(n%,A%) ....A. |
00002ca0  4d 75 74 65 25 28 6e 25  2c 41 25 29 20 8c 20 24  |Mute%(n%,A%) . $|
00002cb0  53 50 6f 69 6e 74 25 28  41 25 29 3d 22 6d 75 74  |SPoint%(A%)="mut|
00002cc0  65 22 20 8b 20 24 53 50  6f 69 6e 74 25 28 41 25  |e" . $SPoint%(A%|
00002cd0  29 3d 22 73 70 65 61 6b  65 72 22 0d 13 92 41 c8  |)="speaker"...A.|
00002ce0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00002cf0  61 77 22 2c 70 61 6c 6c  57 25 2c 49 58 25 28 41  |aw",pallW%,IX%(A|
00002d00  25 29 2c 49 59 25 28 41  25 29 2c 49 58 31 25 28  |%),IY%(A%),IX1%(|
00002d10  41 25 29 2c 49 59 31 25  28 41 25 29 0d 13 9c 05  |A%),IY1%(A%)....|
00002d20  cd 0d 13 a6 05 ed 0d 13  b0 23 e7 20 53 67 61 69  |.........#. Sgai|
00002d30  6e 25 28 53 65 6c 65 63  74 25 29 3c 3e 53 67 61  |n%(Select%)<>Sga|
00002d40  69 6e 25 28 6e 25 29 20  8c 0d 13 ba 19 41 25 3d  |in%(n%) .....A%=|
00002d50  53 67 61 69 6e 25 28 53  65 6c 65 63 74 25 29 2b  |Sgain%(Select%)+|
00002d60  31 32 0d 13 c4 16 24 53  50 6f 69 6e 74 25 28 41  |12....$SPoint%(A|
00002d70  25 29 3d 22 73 65 6c 22  0d 13 ce 41 c8 99 22 57  |%)="sel"...A.."W|
00002d80  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00002d90  2c 70 61 6c 6c 57 25 2c  49 58 25 28 41 25 29 2c  |,pallW%,IX%(A%),|
00002da0  49 59 25 28 41 25 29 2c  49 58 31 25 28 41 25 29  |IY%(A%),IX1%(A%)|
00002db0  2c 49 59 31 25 28 41 25  29 0d 13 d8 14 41 25 3d  |,IY1%(A%)....A%=|
00002dc0  53 67 61 69 6e 25 28 6e  25 29 2b 31 32 0d 13 e2  |Sgain%(n%)+12...|
00002dd0  17 24 53 50 6f 69 6e 74  25 28 41 25 29 3d 22 70  |.$SPoint%(A%)="p|
00002de0  73 65 6c 22 0d 13 ec 41  c8 99 22 57 69 6d 70 5f  |sel"...A.."Wimp_|
00002df0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 70 61 6c  |ForceRedraw",pal|
00002e00  6c 57 25 2c 49 58 25 28  41 25 29 2c 49 59 25 28  |lW%,IX%(A%),IY%(|
00002e10  41 25 29 2c 49 58 31 25  28 41 25 29 2c 49 59 31  |A%),IX1%(A%),IY1|
00002e20  25 28 41 25 29 0d 13 f6  05 cd 0d 14 00 1b 58 59  |%(A%).........XY|
00002e30  70 61 6e 25 28 53 65 6c  65 63 74 25 2c 30 29 3d  |pan%(Select%,0)=|
00002e40  58 70 61 6e 25 0d 14 0a  1b 58 59 70 61 6e 25 28  |Xpan%....XYpan%(|
00002e50  53 65 6c 65 63 74 25 2c  31 29 3d 59 70 61 6e 25  |Select%,1)=Ypan%|
00002e60  0d 14 14 16 58 70 61 6e  25 3d 58 59 70 61 6e 25  |....Xpan%=XYpan%|
00002e70  28 6e 25 2c 30 29 0d 14  1e 16 59 70 61 6e 25 3d  |(n%,0)....Ypan%=|
00002e80  58 59 70 61 6e 25 28 6e  25 2c 31 29 0d 14 28 41  |XYpan%(n%,1)..(A|
00002e90  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00002ea0  72 61 77 22 2c 70 61 6c  6c 57 25 2c 49 58 25 28  |raw",pallW%,IX%(|
00002eb0  33 39 29 2c 49 59 25 28  33 39 29 2c 49 58 31 25  |39),IY%(39),IX1%|
00002ec0  28 33 39 29 2c 49 59 31  25 28 33 39 29 0d 14 32  |(39),IY1%(39)..2|
00002ed0  41 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |A.."Wimp_ForceRe|
00002ee0  64 72 61 77 22 2c 70 61  6c 6c 57 25 2c 49 58 25  |draw",pallW%,IX%|
00002ef0  28 34 30 29 2c 49 59 25  28 34 30 29 2c 49 58 31  |(40),IY%(40),IX1|
00002f00  25 28 34 30 29 2c 49 59  31 25 28 34 30 29 0d 14  |%(40),IY1%(40)..|
00002f10  3c 41 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |<A.."Wimp_ForceR|
00002f20  65 64 72 61 77 22 2c 70  61 6c 6c 57 25 2c 49 58  |edraw",pallW%,IX|
00002f30  25 28 34 31 29 2c 49 59  25 28 34 31 29 2c 49 58  |%(41),IY%(41),IX|
00002f40  31 25 28 34 31 29 2c 49  59 31 25 28 34 31 29 0d  |1%(41),IY1%(41).|
00002f50  14 46 05 e1 0d 14 50 04  0d 14 5a 11 dd 20 f2 5f  |.F....P...Z.. ._|
00002f60  70 70 28 6e 25 2c 56 25  29 0d 14 64 1d f2 5f 73  |pp(n%,V%)..d.._s|
00002f70  70 75 74 28 53 50 6f 69  6e 74 25 28 6e 25 29 2c  |put(SPoint%(n%),|
00002f80  c3 28 56 25 29 29 0d 14  6e 41 c8 99 22 57 69 6d  |.(V%))..nA.."Wim|
00002f90  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 70  |p_ForceRedraw",p|
00002fa0  61 6c 6c 57 25 2c 49 58  25 28 6e 25 29 2c 49 59  |allW%,IX%(n%),IY|
00002fb0  25 28 6e 25 29 2c 49 58  31 25 28 6e 25 29 2c 49  |%(n%),IX1%(n%),I|
00002fc0  59 31 25 28 6e 25 29 0d  14 78 05 e1 0d 14 82 04  |Y1%(n%)..x......|
00002fd0  0d 14 8c 13 dd 20 f2 5f  73 70 75 74 28 78 25 2c  |..... ._sput(x%,|
00002fe0  58 24 29 0d 14 96 08 ea  20 41 25 0d 14 a0 12 e3  |X$)..... A%.....|
00002ff0  20 41 25 3d 31 20 b8 20  a9 28 58 24 29 0d 14 aa  | A%=1 . .(X$)...|
00003000  14 3f 78 25 3d 97 28 c1  58 24 2c 41 25 2c 31 29  |.?x%=.(.X$,A%,1)|
00003010  29 0d 14 b4 09 78 25 2b  3d 31 0d 14 be 05 ed 0d  |)....x%+=1......|
00003020  14 c8 09 3f 78 25 3d 30  0d 14 d2 05 e1 0d 14 dc  |...?x%=0........|
00003030  04 0d 14 e6 14 dd 20 f2  5f 50 61 6e 55 70 28 58  |...... ._PanUp(X|
00003040  25 2c 59 25 29 0d 14 f0  18 ea 20 4c 49 25 2c 4c  |%,Y%)..... LI%,L|
00003050  45 25 2c 52 49 25 2c 52  45 25 2c 54 25 0d 14 fa  |E%,RI%,RE%,T%...|
00003060  20 4c 49 25 3d 30 3a 4c  45 25 3d 30 3a 52 49 25  | LI%=0:LE%=0:RI%|
00003070  3d 30 3a 52 45 25 3d 30  3a 54 25 3d 30 0d 15 04  |=0:RE%=0:T%=0...|
00003080  1a e7 20 58 25 3e 31 20  8c 20 4c 49 25 3d 33 31  |.. X%>1 . LI%=31|
00003090  2a 58 25 2f 31 31 36 0d  15 0e 1b e7 20 59 25 3c  |*X%/116..... Y%<|
000030a0  30 20 8c 20 54 25 3d 94  28 59 25 29 2a 33 31 2f  |0 . T%=.(Y%)*31/|
000030b0  36 38 0d 15 18 15 e7 20  54 25 3e 4c 49 25 20 8c  |68..... T%>LI% .|
000030c0  20 4c 49 25 3d 54 25 0d  15 22 22 f2 5f 73 70 75  | LI%=T%..""._spu|
000030d0  74 28 53 50 6f 69 6e 74  25 28 34 29 2c 50 61 6e  |t(SPoint%(4),Pan|
000030e0  64 42 24 28 4c 49 25 29  29 0d 15 2c 42 e7 20 4d  |dB$(LI%))..,B. M|
000030f0  75 74 65 25 28 53 65 6c  65 63 74 25 2c 30 29 20  |ute%(Select%,0) |
00003100  8c 20 f2 69 4f 55 54 28  26 39 46 29 20 8b 20 f2  |. .iOUT(&9F) . .|
00003110  69 4f 55 54 28 26 38 30  20 84 20 50 61 6e 25 28  |iOUT(&80 . Pan%(|
00003120  53 65 6c 65 63 74 25 2c  30 29 29 0d 15 36 38 e7  |Select%,0))..68.|
00003130  20 50 61 6e 25 28 53 65  6c 65 63 74 25 2c 30 29  | Pan%(Select%,0)|
00003140  3c 3e 20 4c 49 25 20 8c  20 71 25 21 34 3d 30 3a  |<> LI% . q%!4=0:|
00003150  50 61 6e 25 28 53 65 6c  65 63 74 25 2c 30 29 3d  |Pan%(Select%,0)=|
00003160  4c 49 25 0d 15 40 08 54  25 3d 30 0d 15 4a 1a e7  |LI%..@.T%=0..J..|
00003170  20 58 25 3e 31 20 8c 20  4c 45 25 3d 33 31 2a 58  | X%>1 . LE%=31*X|
00003180  25 2f 31 31 36 0d 15 54  18 e7 20 59 25 3e 30 20  |%/116..T.. Y%>0 |
00003190  8c 20 54 25 3d 59 25 2a  33 31 2f 36 38 0d 15 5e  |. T%=Y%*31/68..^|
000031a0  15 e7 20 54 25 3e 4c 45  25 20 8c 20 4c 45 25 3d  |.. T%>LE% . LE%=|
000031b0  54 25 0d 15 68 23 20 f2  5f 73 70 75 74 28 53 50  |T%..h# ._sput(SP|
000031c0  6f 69 6e 74 25 28 35 29  2c 50 61 6e 64 42 24 28  |oint%(5),PandB$(|
000031d0  4c 45 25 29 29 0d 15 72  42 e7 20 4d 75 74 65 25  |LE%))..rB. Mute%|
000031e0  28 53 65 6c 65 63 74 25  2c 31 29 20 8c 20 f2 69  |(Select%,1) . .i|
000031f0  4f 55 54 28 26 44 46 29  20 8b 20 f2 69 4f 55 54  |OUT(&DF) . .iOUT|
00003200  28 26 43 30 20 84 20 50  61 6e 25 28 53 65 6c 65  |(&C0 . Pan%(Sele|
00003210  63 74 25 2c 31 29 29 0d  15 7c 38 e7 20 50 61 6e  |ct%,1))..|8. Pan|
00003220  25 28 53 65 6c 65 63 74  25 2c 31 29 3c 3e 20 4c  |%(Select%,1)<> L|
00003230  45 25 20 8c 20 71 25 21  34 3d 30 3a 50 61 6e 25  |E% . q%!4=0:Pan%|
00003240  28 53 65 6c 65 63 74 25  2c 31 29 3d 4c 45 25 0d  |(Select%,1)=LE%.|
00003250  15 86 08 54 25 3d 30 0d  15 90 1e e7 20 58 25 3c  |...T%=0..... X%<|
00003260  2d 31 20 8c 20 52 45 25  3d 33 31 2a 94 28 58 25  |-1 . RE%=31*.(X%|
00003270  29 2f 31 31 36 0d 15 9a  18 e7 20 59 25 3e 30 20  |)/116..... Y%>0 |
00003280  8c 20 54 25 3d 59 25 2a  33 31 2f 36 38 0d 15 a4  |. T%=Y%*31/68...|
00003290  15 e7 20 54 25 3e 52 45  25 20 8c 20 52 45 25 3d  |.. T%>RE% . RE%=|
000032a0  54 25 0d 15 ae 22 f2 5f  73 70 75 74 28 53 50 6f  |T%..."._sput(SPo|
000032b0  69 6e 74 25 28 36 29 2c  50 61 6e 64 42 24 28 52  |int%(6),PandB$(R|
000032c0  45 25 29 29 0d 15 b8 42  e7 20 4d 75 74 65 25 28  |E%))...B. Mute%(|
000032d0  53 65 6c 65 63 74 25 2c  32 29 20 8c 20 f2 69 4f  |Select%,2) . .iO|
000032e0  55 54 28 26 46 46 29 20  8b 20 f2 69 4f 55 54 28  |UT(&FF) . .iOUT(|
000032f0  26 45 30 20 84 20 50 61  6e 25 28 53 65 6c 65 63  |&E0 . Pan%(Selec|
00003300  74 25 2c 32 29 29 0d 15  c2 3b e7 20 50 61 6e 25  |t%,2))...;. Pan%|
00003310  28 53 65 6c 65 63 74 25  2c 32 29 3c 3e 20 52 45  |(Select%,2)<> RE|
00003320  25 20 8c 20 71 25 21 31  32 3d 35 36 30 3a 50 61  |% . q%!12=560:Pa|
00003330  6e 25 28 53 65 6c 65 63  74 25 2c 32 29 3d 52 45  |n%(Select%,2)=RE|
00003340  25 0d 15 cc 08 54 25 3d  30 0d 15 d6 1e e7 20 58  |%....T%=0..... X|
00003350  25 3c 2d 31 20 8c 20 52  49 25 3d 33 31 2a 94 28  |%<-1 . RI%=31*.(|
00003360  58 25 29 2f 31 31 36 0d  15 e0 1b e7 20 59 25 3c  |X%)/116..... Y%<|
00003370  30 20 8c 20 54 25 3d 94  28 59 25 29 2a 33 31 2f  |0 . T%=.(Y%)*31/|
00003380  36 38 0d 15 ea 15 e7 20  54 25 3e 52 49 25 20 8c  |68..... T%>RI% .|
00003390  20 52 49 25 3d 54 25 0d  15 f4 22 f2 5f 73 70 75  | RI%=T%..."._spu|
000033a0  74 28 53 50 6f 69 6e 74  25 28 37 29 2c 50 61 6e  |t(SPoint%(7),Pan|
000033b0  64 42 24 28 52 49 25 29  29 0d 15 fe 42 e7 20 4d  |dB$(RI%))...B. M|
000033c0  75 74 65 25 28 53 65 6c  65 63 74 25 2c 33 29 20  |ute%(Select%,3) |
000033d0  8c 20 f2 69 4f 55 54 28  26 42 46 29 20 8b 20 f2  |. .iOUT(&BF) . .|
000033e0  69 4f 55 54 28 26 41 30  20 84 20 50 61 6e 25 28  |iOUT(&A0 . Pan%(|
000033f0  53 65 6c 65 63 74 25 2c  33 29 29 0d 16 08 3b e7  |Select%,3))...;.|
00003400  20 50 61 6e 25 28 53 65  6c 65 63 74 25 2c 33 29  | Pan%(Select%,3)|
00003410  3c 3e 20 52 49 25 20 8c  20 71 25 21 31 32 3d 35  |<> RI% . q%!12=5|
00003420  36 30 3a 50 61 6e 25 28  53 65 6c 65 63 74 25 2c  |60:Pan%(Select%,|
00003430  33 29 3d 52 49 25 0d 16  12 05 e1 0d 16 1c 04 0d  |3)=RI%..........|
00003440  16 26 11 f4 20 44 72 61  67 20 76 6f 6c 75 6d 65  |.&.. Drag volume|
00003450  0d 16 30 0e dd 20 f2 64  72 61 67 56 6f 6c 0d 16  |..0.. .dragVol..|
00003460  3a 1e 20 20 20 56 6f 6c  25 28 53 65 6c 65 63 74  |:.   Vol%(Select|
00003470  25 29 2b 3d 28 58 25 2d  58 4c 25 29 0d 16 44 2c  |%)+=(X%-XL%)..D,|
00003480  20 20 20 e7 20 56 6f 6c  25 28 53 65 6c 65 63 74  |   . Vol%(Select|
00003490  25 29 3e 36 33 20 8c 20  56 6f 6c 25 28 53 65 6c  |%)>63 . Vol%(Sel|
000034a0  65 63 74 25 29 3d 36 33  0d 16 4e 2a 20 20 20 e7  |ect%)=63..N*   .|
000034b0  20 56 6f 6c 25 28 53 65  6c 65 63 74 25 29 3c 30  | Vol%(Select%)<0|
000034c0  20 8c 20 56 6f 6c 25 28  53 65 6c 65 63 74 25 29  | . Vol%(Select%)|
000034d0  3d 30 0d 16 58 47 71 25  21 30 3d 70 61 6c 6c 57  |=0..XGq%!0=pallW|
000034e0  25 3a 71 25 21 34 3d 49  58 25 28 33 39 29 3a 71  |%:q%!4=IX%(39):q|
000034f0  25 21 38 3d 49 59 25 28  33 39 29 3a 71 25 21 31  |%!8=IY%(39):q%!1|
00003500  32 3d 49 58 31 25 28 33  39 29 3a 71 25 21 31 36  |2=IX1%(39):q%!16|
00003510  3d 49 59 31 25 28 33 39  29 0d 16 62 07 20 20 20  |=IY1%(39)..b.   |
00003520  0d 16 6c 27 20 20 c8 99  22 57 69 6d 70 5f 55 70  |..l'  .."Wimp_Up|
00003530  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |dateWindow",,q% |
00003540  b8 20 4d 6f 72 65 25 0d  16 76 0d 20 c8 95 20 4d  |. More%..v. .. M|
00003550  6f 72 65 25 0d 16 80 09  f2 64 56 6f 6c 0d 16 8a  |ore%.....dVol...|
00003560  04 0d 16 94 27 20 20 c8  99 22 57 69 6d 70 5f 47  |....'  .."Wimp_G|
00003570  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00003580  20 b8 20 4d 6f 72 65 25  0d 16 9e 06 20 ce 0d 16  | . More%.... ...|
00003590  a8 04 0d 16 b2 14 20 20  20 58 4c 25 3d 58 25 3a  |......   XL%=X%:|
000035a0  59 4c 25 3d 59 25 0d 16  bc 05 e1 0d 16 c6 04 0d  |YL%=Y%..........|
000035b0  16 d0 0f f4 20 44 72 61  67 20 42 61 73 73 0d 16  |.... Drag Bass..|
000035c0  da 0f dd 20 f2 64 72 61  67 42 61 73 73 0d 16 e4  |... .dragBass...|
000035d0  2e 20 20 20 42 61 73 73  25 28 53 65 6c 65 63 74  |.   Bass%(Select|
000035e0  25 29 3d 28 28 28 59 25  2d 34 33 30 2d 79 6f 25  |%)=(((Y%-430-yo%|
000035f0  29 2f 37 29 3e 3e 31 29  3c 3c 31 0d 16 ee 2e 20  |)/7)>>1)<<1.... |
00003600  20 20 e7 20 42 61 73 73  25 28 53 65 6c 65 63 74  |  . Bass%(Select|
00003610  25 29 3e 31 34 20 8c 20  42 61 73 73 25 28 53 65  |%)>14 . Bass%(Se|
00003620  6c 65 63 74 25 29 3d 31  34 0d 16 f8 30 20 20 20  |lect%)=14...0   |
00003630  e7 20 42 61 73 73 25 28  53 65 6c 65 63 74 25 29  |. Bass%(Select%)|
00003640  3c 2d 31 34 20 8c 20 42  61 73 73 25 28 53 65 6c  |<-14 . Bass%(Sel|
00003650  65 63 74 25 29 3d 2d 31  34 0d 17 02 47 71 25 21  |ect%)=-14...Gq%!|
00003660  30 3d 70 61 6c 6c 57 25  3a 71 25 21 34 3d 49 58  |0=pallW%:q%!4=IX|
00003670  25 28 34 30 29 3a 71 25  21 38 3d 49 59 25 28 34  |%(40):q%!8=IY%(4|
00003680  30 29 3a 71 25 21 31 32  3d 49 58 31 25 28 34 30  |0):q%!12=IX1%(40|
00003690  29 3a 71 25 21 31 36 3d  49 59 31 25 28 34 30 29  |):q%!16=IY1%(40)|
000036a0  0d 17 0c 07 20 20 20 0d  17 16 27 20 20 c8 99 22  |....   ...'  .."|
000036b0  57 69 6d 70 5f 55 70 64  61 74 65 57 69 6e 64 6f  |Wimp_UpdateWindo|
000036c0  77 22 2c 2c 71 25 20 b8  20 4d 6f 72 65 25 0d 17  |w",,q% . More%..|
000036d0  20 0d 20 c8 95 20 4d 6f  72 65 25 0d 17 2a 0a f2  | . .. More%..*..|
000036e0  64 42 61 73 73 0d 17 34  04 0d 17 3e 27 20 20 c8  |dBass..4...>'  .|
000036f0  99 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |."Wimp_GetRectan|
00003700  67 6c 65 22 2c 2c 71 25  20 b8 20 4d 6f 72 65 25  |gle",,q% . More%|
00003710  0d 17 48 06 20 ce 0d 17  52 04 0d 17 5c 14 20 20  |..H. ...R...\.  |
00003720  20 58 4c 25 3d 58 25 3a  59 4c 25 3d 59 25 0d 17  | XL%=X%:YL%=Y%..|
00003730  66 05 e1 0d 17 70 04 0d  17 7a 11 f4 20 44 72 61  |f....p...z.. Dra|
00003740  67 20 54 72 65 62 6c 65  0d 17 84 11 dd 20 f2 64  |g Treble..... .d|
00003750  72 61 67 54 72 65 62 6c  65 0d 17 8e 30 20 20 20  |ragTreble...0   |
00003760  54 72 65 62 6c 65 25 28  53 65 6c 65 63 74 25 29  |Treble%(Select%)|
00003770  3d 28 28 28 59 25 2d 34  33 30 2d 79 6f 25 29 2f  |=(((Y%-430-yo%)/|
00003780  37 29 3e 3e 31 29 3c 3c  31 0d 17 98 32 20 20 20  |7)>>1)<<1...2   |
00003790  e7 20 54 72 65 62 6c 65  25 28 53 65 6c 65 63 74  |. Treble%(Select|
000037a0  25 29 3e 31 34 20 8c 20  54 72 65 62 6c 65 25 28  |%)>14 . Treble%(|
000037b0  53 65 6c 65 63 74 25 29  3d 31 34 0d 17 a2 34 20  |Select%)=14...4 |
000037c0  20 20 e7 20 54 72 65 62  6c 65 25 28 53 65 6c 65  |  . Treble%(Sele|
000037d0  63 74 25 29 3c 2d 31 34  20 8c 20 54 72 65 62 6c  |ct%)<-14 . Trebl|
000037e0  65 25 28 53 65 6c 65 63  74 25 29 3d 2d 31 34 0d  |e%(Select%)=-14.|
000037f0  17 ac 47 71 25 21 30 3d  70 61 6c 6c 57 25 3a 71  |..Gq%!0=pallW%:q|
00003800  25 21 34 3d 49 58 25 28  34 31 29 3a 71 25 21 38  |%!4=IX%(41):q%!8|
00003810  3d 49 59 25 28 34 31 29  3a 71 25 21 31 32 3d 49  |=IY%(41):q%!12=I|
00003820  58 31 25 28 34 31 29 3a  71 25 21 31 36 3d 49 59  |X1%(41):q%!16=IY|
00003830  31 25 28 34 31 29 0d 17  b6 07 20 20 20 0d 17 c0  |1%(41)....   ...|
00003840  27 20 20 c8 99 22 57 69  6d 70 5f 55 70 64 61 74  |'  .."Wimp_Updat|
00003850  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 4d  |eWindow",,q% . M|
00003860  6f 72 65 25 0d 17 ca 0d  20 c8 95 20 4d 6f 72 65  |ore%.... .. More|
00003870  25 0d 17 d4 0c f2 64 54  72 65 62 6c 65 0d 17 de  |%.....dTreble...|
00003880  04 0d 17 e8 27 20 20 c8  99 22 57 69 6d 70 5f 47  |....'  .."Wimp_G|
00003890  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
000038a0  20 b8 20 4d 6f 72 65 25  0d 17 f2 06 20 ce 0d 17  | . More%.... ...|
000038b0  fc 04 0d 18 06 14 20 20  20 58 4c 25 3d 58 25 3a  |......   XL%=X%:|
000038c0  59 4c 25 3d 59 25 0d 18  10 05 e1 0d 18 1a 04 0d  |YL%=Y%..........|
000038d0  18 24 14 dd 20 f2 5f 53  61 76 65 53 65 74 74 69  |.$.. ._SaveSetti|
000038e0  6e 67 73 0d 18 2e 0e ea  20 46 25 2c 41 25 2c 42  |ngs..... F%,A%,B|
000038f0  25 0d 18 38 23 46 25 3d  ae 28 22 3c 41 75 64 69  |%..8#F%=.("<Audi|
00003900  6f 53 65 6c 24 44 69 72  3e 2e 53 65 74 74 69 6e  |oSel$Dir>.Settin|
00003910  67 73 22 29 0d 18 42 38  e7 20 46 25 3d 30 20 8c  |gs")..B8. F%=0 .|
00003920  20 f2 5f 73 65 74 75 70  57 28 22 43 61 6e 27 74  | ._setupW("Can't|
00003930  20 6f 70 65 6e 20 73 65  74 74 69 6e 67 73 20 66  | open settings f|
00003940  69 6c 65 22 29 20 e5 20  8d 74 66 58 0d 18 4c 10  |ile") . .tfX..L.|
00003950  f1 23 46 25 2c 53 65 6c  65 63 74 25 0d 18 56 0e  |.#F%,Select%..V.|
00003960  e3 20 41 25 3d 30 20 b8  20 33 0d 18 60 4c f1 23  |. A%=0 . 3..`L.#|
00003970  46 25 2c 53 67 61 69 6e  25 28 41 25 29 2c 58 59  |F%,Sgain%(A%),XY|
00003980  70 61 6e 25 28 41 25 2c  30 29 2c 58 59 70 61 6e  |pan%(A%,0),XYpan|
00003990  25 28 41 25 2c 31 29 2c  56 6f 6c 25 28 41 25 29  |%(A%,1),Vol%(A%)|
000039a0  2c 42 61 73 73 25 28 41  25 29 2c 54 72 65 62 6c  |,Bass%(A%),Trebl|
000039b0  65 25 28 41 25 29 0d 18  6a 0e e3 20 42 25 3d 30  |e%(A%)..j.. B%=0|
000039c0  20 b8 20 33 0d 18 74 21  f1 23 46 25 2c 4d 75 74  | . 3..t!.#F%,Mut|
000039d0  65 25 28 41 25 2c 42 25  29 2c 50 61 6e 25 28 41  |e%(A%,B%),Pan%(A|
000039e0  25 2c 42 25 29 0d 18 7e  05 ed 0d 18 88 05 ed 0d  |%,B%)..~........|
000039f0  18 92 08 d9 23 46 25 0d  18 9c 08 f2 64 69 65 0d  |....#F%.....die.|
00003a00  18 a6 05 e1 0d ff                                 |......|
00003a06