Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars » MikeC/!GMswap/VoiceSwap
MikeC/!GMswap/VoiceSwap
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars |
| Filename: | MikeC/!GMswap/VoiceSwap |
| Read OK: | ✔ |
| File size: | 2653 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Develop.!SerialCom.SerialCom 20REM Version 1.0 By Mike Cook 30REM All rights reserved 40ON ERROR PROCerrorbox 50 60DIM taskid%4:$taskid%="TASK" 70DIM intmess% 20 80intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0 90SYS "Wimp_Initialise",300,!taskid%,"GM_Swap",intmess% TO version%,taskhand% 100DIM q% &300,qc% 80, Wn% 1000,temp% 256,buffers% 512,menu% 128,SW% 1500,cb% 18 110DIM IsName% 256, Commenu% 3200,Smenu% 512,Imenu% 256, TextWarn% 100, ww% 256 120DIM Command$(130),Csm% 6600, TXbytes%(255),RXbytes%(27) 130DIM IX%(20),IY%(20),IX1%(20),IY1%(20),CN% 30 140DIM SPoint%(20),DRUMS%(16),Tx%(4) 150SYS "Wimp_OpenTemplate",,"<GMSwap$Dir>.Templates" 160ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox 170SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0 180SYS "Wimp_CreateWindow",,q% TO info% 190SYS "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+1500,-1,"Pallette",0 200Wn%!28=-1 210FOR A%=0 TO 11 220SPoint%(A%)=!(Wn%+4+88+20+32*A%) 230IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%) 240IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%) 250NEXT 260 270SYS "Wimp_CreateWindow",,Wn%+4 TO monW% 280Wn%!0=monW%:Wn%!28=-1 290 300 310SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0 320q%!108=TextWarn%:q%!112=-1:q%!116=300 330XQ%=q%!8-q%!0:YQ%=q%!12-q%!4 340SYS "Wimp_CreateWindow",,q% TO warningW% 350SYS "Wimp_CloseTemplate" 360ref%=0 370cpL%=0:cpR%=0 380smpicon%=FNicon 390wopen%=FALSE:warnOn%=FALSE 400InWin%=FALSE 410LX%=-1:LY%=-1 420cr%=3:cb%=8 430LED=FALSE 440Nw%=FALSE 450MiTime%=0 460 470ON ERROR PROCerrorbox 480PROC_init 490PROCsetupmenu 500 510REPEAT 520 SYS "Wimp_Poll",0,q% TO A% 530 CASE A% OF 540 WHEN 0:PROC_Null 550 WHEN 1:PROC_doWindow 560 WHEN 2:SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%: SYS "Wimp_OpenWindow",,q% 570 WHEN 3:PROC_close 580 WHEN 4:InWin%=FALSE:LX%=-1:LY%=-1 590 WHEN 5:InWin%=TRUE 600 WHEN 6:PROC_do_click(q%) 610 WHEN 7: 620 WHEN 8:PROC_KeyPress 630 WHEN 9:PROC_SORT_Menu 640 WHEN 17,18:PROCreceive(q%) 650 ENDCASE 660 UNTIL FALSE 670 680END 690 700DEF PROC_Null 710ENDPROC 720 730DEF FN_spath(n$) 740WHILE INSTR(n$,".") 750n$=RIGHT$(n$,LEN(n$)-1) 760ENDWHILE 770IF LEN(n$)>10 THEN n$=RIGHT$(n$,10) 780=n$ 790 800DEF PROC_GetName 810LOCAL T%,A%,F$ 820F$="":fn$="" 830q%!0=saveW%:q%!4=1 840SYS "Wimp_GetIconState",,q% 850T%=q%!28 860T%-=1 870REPEAT 880T%+=1 890F$=F$+CHR$(?T%) 900UNTIL ?T%=0 910fn$=MID$(F$,1,LEN(F$)-1) 920ENDPROC 930 940DEF PROC_SORT_Menu 950IF IconMenu% THEN 960IF !q%=1 THEN PROCdie 970ELSE 980PROC_sput(0,Command$(!q%)) 990REM PROC_sput(2,STR$(TXbytes%(!q%))) 1000PROC_sput(5,STR$(!q%)+" ") 1010ENDIF 1020SYS"Wimp_GetPointerInfo",,q% 1030IF q%!8=1 THEN 1040IF IconMenu% THEN SYS"Wimp_CreateMenu",,Wmenu% ELSE SYS"Wimp_CreateMenu",,Commenu% 1050ENDIF 1060ENDPROC 1070 1080DEF PROC_close 1090IF q%!0=monW% THEN SYS"Wimp_GetWindowInfo",,Wn%:wopen%=FALSE 1100IF q%!0=warningW% THEN warnOn%=FALSE 1110SYS "Wimp_CloseWindow",,q% 1120ENDPROC 1130 1140DEF PROC_do_click(q%) 1150i%=q%!16 1160CASE q%!12 OF 1170WHEN warningW%: q%!0=warningW% :PROC_close 1180 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_Open 1230 ENDIF 1240 1250WHEN monW%: 1260 IF q%!8=4 THEN PROC_MonClick 1270ENDCASE 1280ENDPROC 1290 1300 1310DEF PROC_MonClick 1320LOCAL Y%,X%,B%,i% 1330REM Do the action for a window click 1340i%=q%!16 1350B%=q%!8 1360X%=q%!0 1370Y%=q%!4 1380PROC_Trans(monW%) 1390 IF B%=4 AND i%=1 THEN IconMenu%=FALSE:SYS"Wimp_CreateMenu",,Commenu%,IX%(1)+xo%-370,Y% 1400 B%=i% 1410 CASE B% OF 1420WHEN 7: PROCsend 1430WHEN 8: PROCdrums 1440WHEN 9: PROCoff 1450WHEN 10: PROCreset 1460ENDCASE 1470ENDPROC 1480 1490DEF PROC_Open 1500SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours% 1510REM OPEN UP WINDOW HERE 1520IF wopen% THEN 1530q%!0=monW% 1540SYS"Wimp_GetWindowState",,q% 1550 IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q% 1560ELSE 1570SYS "Wimp_OpenWindow",,Wn% 1580wopen%=TRUE 1590ENDIF 1600ENDPROC 1610 1620DEF PROC_doWindow 1630 LOCAL A%,I%,L% 1640 1650 PROC_Trans(monW%) 1660 SYS "Wimp_RedrawWindow",,q% TO flag% 1670 WHILE flag% 1680 1690 REM Draw the window 1700 SYS "Wimp_GetRectangle",,q% TO flag% 1710 ENDWHILE 1720 1730 ENDPROC 1740 1750 1760DEF PROC_Trans(wh%) 1770!q%=wh% 1780SYS "Wimp_GetWindowState",,q% 1790xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290 1800XO%=q%!4:YO%=q%!16 1810ENDPROC 1820 1830DEFPROCsetupmenu 1840LOCAL m% 1850 1860$menu%="VoiceSwap" 1870menu%?12=7 1880menu%?13=2 1890menu%?14=7 1900menu%?15=0 1910menu%!16=128 1920menu%!20=40 1930menu%!24=0 1940m%=menu%+28 1950m%!0=0 1960m%!4=info% 1970m%!8=(7<<24)OR %10001 1980$(m%+12)="Info" 1990 2000m%+=24 2010m%!0=&80 2020m%!4=0 2030m%!8=(7<<24)OR %10001 2040$(m%+12)="Quit" 2050 2060$Commenu%="Command" 2070Commenu%?12=7 2080Commenu%?13=2 2090Commenu%?14=7 2100Commenu%?15=0 2110Commenu%!16=288 2120Commenu%!20=40 2130Commenu%!24=0 2140m%=Commenu%+28 2150 2160FOR A%=0 TO Ncom% 2170m%!0=0 2180m%!4=0 2190m%!8=(7<<24)OR %100010001 2200m%!12=Csm%+(A%*25) 2210m%!16=0 2220m%!20=25 2230m%+=24 2240NEXT 2250m%-=24 2260m%!0=&80 2270 2280ENDPROC 2290 2300DEF PROCreceive(q%) 2310LOCAL A% 2320A%=q%!16 2330CASE A% OF 2340WHEN 0:PROCdie 2350WHEN &502: CASE TRUE OF 2360 WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the Voice Swap icon.|MChange MIDI voices" 2370 OTHERWISE:mes$="" 2380 ENDCASE 2390 IF mes$<>"" THEN 2400 q%!12=q%!8 2410 $(q%+20)=mes$+CHR$0 2420 q%!0=(20+LENmes$+4)AND NOT 3 2430 q%!16=&503 2440 SYS "Wimp_SendMessage",18,q%,q%!4 2450ENDCASE 2460ENDPROC 2470 2480DEF PROC_Dack 2490sendth%=q%!4 2500myref%=q%!8 2510SYS "Wimp_GetPointerInfo",,q%+8 2520q%!28=q%!8 2530q%!32=q%!12 2540q%!0=(44+LENn$+4)AND NOT 3 2550q%!12=myref% 2560q%!16=4 2570q%!36=-1 2580q%!40=&FF9 2590$(q%+44)=n$+CHR$0 2600SYS "Wimp_SendMessage",17,q%,sendth% 2610ENDIF 2620ENDPROC 2630 2640DEFFNicon 2650q%!0=-1 2660q%!4=0 2670q%!8=10 : REM Y DIRECTION 2680q%!12=70 : REM X DIRECTION 2690q%!16=96 2700q%!20=&2002 2710$(q%+24)="!GMSwap" 2720SYS "Wimp_CreateIcon",,q% TO icon% 2730=icon% 2740 2750DEF PROC_setupW(t$) 2760!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 2770$TextWarn%=t$ 2780TextWarn%?LEN(t$)=0 2790VDU 7 2800warnOn%=TRUE 2810SYS "Wimp_OpenWindow",,q% 2820ENDPROC 2830 2840DEF PROCerrorbox 2850SYS "Wimp_DragBox",,-1 2860!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0 2870SYS "Wimp_ReportError",buffers%,1,"Voice Swap" 2880PROCdie 2890ENDPROC 2900 2910DEFPROCdie 2920SYS "Wimp_CloseDown",taskhand%,!taskid% 2930END 2940ENDPROC 2950 2960DEF PROCdragicon(mousex%,mousey%,handle%,icon%) 2970LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1% 2980PROCgetw(handle%) 2990PROCgeti(handle%,icon%) 3000!q%=handle%:q%!4=5 3010q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1% 3020q%!24=q%!8-mousex%:q%!28=q%!12-mousey% 3030SYS "Wimp_DragBox",,q% 3040SFLAG%=TRUE 3050ENDPROC 3060 3070DEF PROCgetw(handle%) 3080!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4) 3090ENDPROC 3100DEF PROCgeti(h%,i%) 3110!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q% 3120ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20 3130iflags%=q%!24:idata%=q%+28 3140ENDPROC 3150 3160DEF PROCinfo(p%) 3170LOCAL x0%,y0% 3180x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12 3190scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28 3200bx%=x0%-scx%:by%=y1%-scy% 3210ENDPROC 3220 3230DEF PROC_KeyPress 3231LOCAL A% 3233A%=FNpg(5) 3234IF A%>0 AND A%<127 THEN PROC_sput(0,Command$(A%)) 3240PROCsend 3250ENDPROC 3260 3270DEF PROC_sput(n%,X$) 3280LOCAL A% 3290x%=SPoint%(n%) 3300FOR A%=1 TO LEN(X$) 3310?x%=ASC(MID$(X$,A%,1)) 3320x%+=1 3330NEXT 3340?x%=0 3350SYS"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%) 3360ENDPROC 3370 3380DEFFNsget(x%) 3390LOCAL x$ 3400WHILE ?x%>&20 x$+=CHR$(?x%):x%+=1:ENDWHILE 3410=x$ 3420 3430DEFFNskget 3440LOCAL x$ 3450WHILE ?xp%=&20 xp%+=1:ENDWHILE 3460WHILE ?xp%>&20 x$+=CHR$(?xp%):xp%+=1:ENDWHILE 3470=x$ 3480 3490DEFFNpg(n%) 3500LOCAL A$ 3510A$=FNsget(SPoint%(n%)) 3520=VAL(A$) 3530 3540DEF PROCrcom 3550LOCAL A%,B%,T$ 3560FOR A%=1 TO 3:Tx%(A%)=0:NEXT 3570A%=0:B%=0:xp%=SPoint%(5) 3580REPEAT 3590A%+=1 3600T$=FNskget 3610IF T$<>"" THEN 3620IF LEFT$(T$,1)="&" THEN 3630Tx%(A%)=FNhs(RIGHT$(T$,1)) 3640IF MID$(T$,LEN(T$)-1,1)<>"&" THEN Tx%(A%)=Tx%(A%)+FNhs(MID$(T$,LEN(T$)-1,1))*16 3650ELSE 3660Tx%(A%)=VAL(T$) 3670ENDIF 3680ENDIF 3690UNTIL T$="" OR A%=1 3700REM conferm command in window 3710ENDPROC 3720 3730DEF FNhs(v$) 3740LOCAL v% 3750v%=ASC(v$) AND &DF 3760IF v%>&40 THEN v%=v%-55 ELSE v%=v%-48 3770=v% 3780 3790DEF PROCsend 3800LOCAL A% 3810PROCrcom 3830REM Select Channel 3840A%=FNpg(2) 3850IF A%<1 THEN A%=1 3860IF A%>16 THEN A%=16 3870PROC_sput(2,STR$(A%)) 3880SYS&404C2,A% 3890REM Program Change message 3900SYS&404D5,Tx%(1) 3910ENDPROC 3920 3930DEF PROCdrums 3940LOCAL A% 3950A%=FNpg(2) 3960IF A%<1 THEN A%=1 3970IF A%>16 THEN A%=16 3980PROC_sput(2,STR$(A%)) 3990SYS&404C2,A% 4000IF DRUMS%(A%)=FALSE THEN 4010SYS&404CE,0,127 4020SYS&404CE,32,0 4030SYS&404D5,1 4040DRUMS%(A%)=TRUE 4050ELSE 4060PROCrcom 4070SYS&404CE,0,0 4080SYS&404CE,32,0 4090SYS&404D5,Tx%(1) 4100DRUMS%(A%)=FALSE 4110ENDIF 4120ENDPROC 4130 4140REM All notes off 4150DEF PROCoff 4160SYS&404D0 4170ENDPROC 4180 4190REM Reset MIDI 4200DEF PROCreset 4210SYS&404DE 4220ENDPROC 4230 4240DEF FNbst(s%) 4250LOCAL T$,st% 4260IF Tx%(1)=0 THEN st%=s%+48 ELSE st%=s%+16 4270T$="" 4280IF s%<Rx%(0) THEN 4290REPEAT 4300IF Tx%(1)=0 THEN 4310IF Rx%(s%)>&1F THEN T$=T$+CHR$(Rx%(s%)) ELSE T$+=" " 4320ELSE 4330T$=T$+FNhex(Rx%(s%) >> 4)+FNhex(Rx%(s%) AND 15)+" " 4340ENDIF 4350s%+=1 4360UNTIL s%>Rx%(0) OR s%=st% 4370ENDIF 4380=T$ 4390 4400DEF FNhex(n%) 4410LOCAL T$ 4420IF n%>9 THEN T$=CHR$(n%+55) ELSE T$=CHR$(n%+&30) 4430=T$ 4440 4450DEF PROC_init 4460Ncom%=127 4470TXbytes%()=0 4480FOR A%=0 TO Ncom% 4490READ Command$(A%) 4500$(Csm%+(A%*25))=Command$(A%) 4510NEXT 4520FOR A%=1 TO 16 4530DRUMS%(A%)=FALSE 4540NEXT 4550ENDPROC 4560 4570DATA Acoustic piano,Bright piano,Synth piano,Honky tonk,Electric piano 1 4580DATA Electric piano 2,Harpschord, Clavi,Celest,Glockenspeal,Music box 4590DATA Vibes, Marimba, Xylophone, Tube Bells, Dulcimer,Draw organ,Perc organ 4600DATA Rock organ,Church organ,Reed organ,Accordian,Harmonica,Tango accordian 4610DATA Nylon gutitar,Steel gutitar,Jazz gutitar,Clean gutitar,Mute gutitar 4620DATA Overdrive gutitar,Distortion gutitar,Girl gutitar,Acoustic bass 4630DATA Finger bass,Pick bass,Fretless bass,Slap bass 1,Slap bass 2 4640DATA Synth bass 1,Synth bass 2,Violin,Viola,Cello,Contraba,Tremlo strings 4650DATA Pizzcarto strings,Harp,Timpani,Marcato,Slow strings,Synth strings 1 4660DATA Synth strings 2,Choir,Doo,Voices,Orchhit,Trumpet,Trombone,Tuba 4670DATA Mutrtrum, French horn,Hit brass,Synth brass 1,Synth brass 2 4680DATA Sprno sax, Alto sax,Tenor sax,Baritone sax,Oboe,Coronglay,Bassoon 4690DATA Clarinet,Piccolo,Flute,Recorder,Wood flute,Bottle,Shakazul,Whistle 4700DATA Ocarina,Square wave,Saw wave,Calliope,Chiff lead,Charang,Vox lead 4710DATA Lead 5th, Bass lead,Fantasia,Warm pad,Poly synth,Ghostie,Blow glass 4720DATA Metal pad,Halo pad,Sweeper,Aurora,Sound track,Crystal,Atmosphere 4730DATA Freshair,Unicorn,Echo vox,Star Treck,Sitar,Banjo,Shamisen,Koto 4740DATA Kalimba,Bagpipes,Fiddle,Shannai,Carillon,Agogo,Steel Drum,Wood block 4750DATA Taiko,Toms,Synth toms,Revcym,Fx-fret,Fx-blow,Seashore,Jungle,Telephone 4760DATA Helicopter,Applause,Pistol,Gunshot
"�>Develop.!SerialCom.SerialCom
� Version 1.0 By Mike Cook
� All rights reserved
(� � �errorbox
2
< � taskid%4:$taskid%="TASK"
F� intmess% 20
PIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
ZMș "Wimp_Initialise",300,!taskid%,"GM_Swap",intmess% � version%,taskhand%
dO� q% &300,qc% 80, Wn% 1000,temp% 256,buffers% 512,menu% 128,SW% 1500,cb% 18
nN� IsName% 256, Commenu% 3200,Smenu% 512,Imenu% 256, TextWarn% 100, ww% 256
x9� Command$(130),Csm% 6600, TXbytes%(255),RXbytes%(27)
�.� IX%(20),IY%(20),IX1%(20),IY1%(20),CN% 30
�#� SPoint%(20),DRUMS%(16),Tx%(4)
�4ș "Wimp_OpenTemplate",,"<GMSwap$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�>ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+1500,-1,"Pallette",0
�
Wn%!28=-1
�� A%=0 � 11
�$SPoint%(A%)=!(Wn%+4+88+20+32*A%)
�9IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
�>IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
��
)ș "Wimp_CreateWindow",,Wn%+4 � monW%
Wn%!0=monW%:Wn%!28=-1
"
,
69ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
@)q%!108=TextWarn%:q%!112=-1:q%!116=300
J XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
T*ș "Wimp_CreateWindow",,q% � warningW%
^ș "Wimp_CloseTemplate"
h
ref%=0
rcpL%=0:cpR%=0
|smpicon%=�icon
�wopen%=�:warnOn%=�
� InWin%=�
�LX%=-1:LY%=-1
�cr%=3:cb%=8
� LED=�
� Nw%=�
�
MiTime%=0
�
�� � �errorbox
�
�_init
��setupmenu
�
��
ș "Wimp_Poll",0,q% � A%
Ȏ A% �
� 0:�_Null
& � 1:�_doWindow
0O � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%
: � 3:�_close
D! � 4:InWin%=�:LX%=-1:LY%=-1
N � 5:InWin%=�
X � 6:�_do_click(q%)
b � 7:
l � 8:�_KeyPress
v � 9:�_SORT_Menu
� � 17,18:�receive(q%)
� �
� � �
�
��
�
� � �_Null
��
�
�� �_spath(n$)
�ȕ �n$,".")
�n$=�n$,�(n$)-1)
��
� �(n$)>10 � n$=�n$,10)
=n$
� �_GetName
*� T%,A%,F$
4F$="":fn$=""
>q%!0=saveW%:q%!4=1
H ș "Wimp_GetIconState",,q%
R T%=q%!28
\ T%-=1
f�
p T%+=1
zF$=F$+�(?T%)
� � ?T%=0
�fn$=�F$,1,�(F$)-1)
��
�
�� �_SORT_Menu
�� IconMenu% �
�� !q%=1 � �die
��
��_sput(0,Command$(!q%))
�&� PROC_sput(2,STR$(TXbytes%(!q%)))
��_sput(5,�(!q%)+" ")
��
� ș"Wimp_GetPointerInfo",,q%
� q%!8=1 �
M� IconMenu% � ș"Wimp_CreateMenu",,Wmenu% � ș"Wimp_CreateMenu",,Commenu%
�
$�
.
8
� �_close
B7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
L � q%!0=warningW% � warnOn%=�
V ș "Wimp_CloseWindow",,q%
`�
j
t� �_do_click(q%)
~ 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 � �_Open
�
�
�
�� monW%:
�' � q%!8=4 � �_MonClick
��
�
� �_MonClick
(� Y%,X%,B%,i%
2&� Do the action for a window click
< i%=q%!16
F B%=q%!8
P X%=q%!0
Z Y%=q%!4
d�_Trans(monW%)
nP � B%=4 � i%=1 � IconMenu%=�:ș"Wimp_CreateMenu",,Commenu%,IX%(1)+xo%-370,Y%
x
B%=i%
� Ȏ B% �
�� 7: �send
�� 8: �drums
�� 9: �off
�� 10: �reset
��
��
�
� � �_Open
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�� OPEN UP WINDOW HERE
�� wopen% �
�q%!0=monW%
ș"Wimp_GetWindowState",,q%
6 � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
�
" ș "Wimp_OpenWindow",,Wn%
, wopen%=�
6�
@�
J
T� �_doWindow
^ � A%,I%,L%
h
r �_Trans(monW%)
|) ș "Wimp_RedrawWindow",,q% � flag%
� ȕ flag%
�
� � Draw the window
�+ ș "Wimp_GetRectangle",,q% � flag%
�
�
�
� �
�
�
�� �_Trans(wh%)
� !q%=wh%
� ș "Wimp_GetWindowState",,q%
�(xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290
XO%=q%!4:YO%=q%!16
�
&��setupmenu
0� m%
:
D$menu%="VoiceSwap"
Nmenu%?12=7
Xmenu%?13=2
bmenu%?14=7
lmenu%?15=0
vmenu%!16=128
�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
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
$Commenu%="Command"
Commenu%?12=7
Commenu%?13=2
*Commenu%?14=7
4Commenu%?15=0
>Commenu%!16=288
HCommenu%!20=40
RCommenu%!24=0
\m%=Commenu%+28
f
p� A%=0 � Ncom%
z
m%!0=0
�
m%!4=0
� m%!8=(7<<24)� %100010001
�m%!12=Csm%+(A%*25)
� m%!16=0
� m%!20=25
�
m%+=24
��
�
m%-=24
� m%!0=&80
�
��
�
�� �receive(q%)
� A%
A%=q%!16
Ȏ A% �
$ � 0:�die
.� &502: Ȏ � �
8d � q%!32=-2 � q%!36=smpicon%:mes$="This is the Voice Swap icon.|MChange MIDI voices"
B :mes$=""
L �
V � mes$<>"" �
` q%!12=q%!8
j $(q%+20)=mes$+�0
t q%!0=(20+�mes$+4)� � 3
~ q%!16=&503
�( ș "Wimp_SendMessage",18,q%,q%!4
��
��
�
� � �_Dack
�sendth%=q%!4
�myref%=q%!8
�"ș "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%
2�
<�
F
P
ݤicon
Z q%!0=-1
d
q%!4=0
nq%!8=10 : � Y DIRECTION
x q%!12=70 : � X DIRECTION
� q%!16=96
�q%!20=&2002
�$(q%+24)="!GMSwap"
�$ș "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
61ș "Wimp_ReportError",buffers%,1,"Voice Swap"
@�die
J�
T
^ ��die
h*ș "Wimp_CloseDown",taskhand%,!taskid%
r�
|�
�
�.� �dragicon(mousex%,mousey%,handle%,icon%)
�!� 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%
0.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
: iflags%=q%!24:idata%=q%+28
D�
N
X� �info(p%)
b
� x0%,y0%
l'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
v5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
� bx%=x0%-scx%:by%=y1%-scy%
��
�
�� �_KeyPress
�� A%
�
A%=�pg(5)
�,� A%>0 � A%<127 � �_sput(0,Command$(A%))
� �send
��
�
�� �_sput(n%,X$)
�� A%
�x%=SPoint%(n%)
�� A%=1 � �(X$)
�?x%=�(�X$,A%,1))
� x%+=1
�
?x%=0
@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
�
*
4ݤsget(x%)
>� x$
H!ȕ ?x%>&20 x$+=�(?x%):x%+=1:�
R=x$
\
f ݤskget
p� x$
zȕ ?xp%=&20 xp%+=1:�
�$ȕ ?xp%>&20 x$+=�(?xp%):xp%+=1:�
�=x$
�
� ݤpg(n%)
�� A$
�A$=�sget(SPoint%(n%))
�
=�(A$)
�
� � �rcom
�� A%,B%,T$
�� A%=1 � 3:Tx%(A%)=0:�
� A%=0:B%=0:xp%=SPoint%(5)
��
A%+=1
T$=�skget
� T$<>"" �
$� �T$,1)="&" �
.Tx%(A%)=�hs(�T$,1))
8B� �T$,�(T$)-1,1)<>"&" � Tx%(A%)=Tx%(A%)+�hs(�T$,�(T$)-1,1))*16
B�
LTx%(A%)=�(T$)
V�
`�
j� T$="" � A%=1
t � conferm command in window
~�
�
�
� �hs(v$)
�� v%
�v%=�(v$) � &DF
�"� v%>&40 � v%=v%-55 � v%=v%-48
�=v%
�
� � �send
�� A%
� �rcom
�� Select Channel
A%=�pg(2)
� A%<1 � A%=1
� A%>16 � A%=16
�_sput(2,�(A%))
(ș&404C2,A%
2 � Program Change message
<ș&404D5,Tx%(1)
F�
P
Z � �drums
d� A%
n
A%=�pg(2)
x� A%<1 � A%=1
�� A%>16 � A%=16
��_sput(2,�(A%))
�ș&404C2,A%
�� DRUMS%(A%)=� �
�ș&404CE,0,127
�ș&404CE,32,0
�ș&404D5,1
�DRUMS%(A%)=�
��
� �rcom
�ș&404CE,0,0
�ș&404CE,32,0
�ș&404D5,Tx%(1)
DRUMS%(A%)=�
�
�
"
,� All notes off
6
� �off
@ ș&404D0
J�
T
^� Reset MIDI
h � �reset
r ș&404DE
|�
�
�� �bst(s%)
� � T$,st%
�&� Tx%(1)=0 � st%=s%+48 � st%=s%+16
� T$=""
�� s%<Rx%(0) �
��
�� Tx%(1)=0 �
�.� Rx%(s%)>&1F � T$=T$+�(Rx%(s%)) � T$+=" "
��
�3T$=T$+�hex(Rx%(s%) >> 4)+�hex(Rx%(s%) � 15)+" "
��
� s%+=1
� s%>Rx%(0) � s%=st%
�
=T$
&
0� �hex(n%)
:� T$
D'� n%>9 � T$=�(n%+55) � T$=�(n%+&30)
N=T$
X
b � �_init
l
Ncom%=127
vTXbytes%()=0
�� A%=0 � Ncom%
�� Command$(A%)
� $(Csm%+(A%*25))=Command$(A%)
��
�� A%=1 � 16
�DRUMS%(A%)=�
��
��
�
�I� Acoustic piano,Bright piano,Synth piano,Honky tonk,Electric piano 1
�F� Electric piano 2,Harpschord, Clavi,Celest,Glockenspeal,Music box
�K� Vibes, Marimba, Xylophone, Tube Bells, Dulcimer,Draw organ,Perc organ
�L� Rock organ,Church organ,Reed organ,Accordian,Harmonica,Tango accordian
I� Nylon gutitar,Steel gutitar,Jazz gutitar,Clean gutitar,Mute gutitar
E� Overdrive gutitar,Distortion gutitar,Girl gutitar,Acoustic bass
A� Finger bass,Pick bass,Fretless bass,Slap bass 1,Slap bass 2
J� Synth bass 1,Synth bass 2,Violin,Viola,Cello,Contraba,Tremlo strings
*I� Pizzcarto strings,Harp,Timpani,Marcato,Slow strings,Synth strings 1
4D� Synth strings 2,Choir,Doo,Voices,Orchhit,Trumpet,Trombone,Tuba
>A� Mutrtrum, French horn,Hit brass,Synth brass 1,Synth brass 2
HG� Sprno sax, Alto sax,Tenor sax,Baritone sax,Oboe,Coronglay,Bassoon
RH� Clarinet,Piccolo,Flute,Recorder,Wood flute,Bottle,Shakazul,Whistle
\G� Ocarina,Square wave,Saw wave,Calliope,Chiff lead,Charang,Vox lead
fI� Lead 5th, Bass lead,Fantasia,Warm pad,Poly synth,Ghostie,Blow glass
pF� Metal pad,Halo pad,Sweeper,Aurora,Sound track,Crystal,Atmosphere
zD� Freshair,Unicorn,Echo vox,Star Treck,Sitar,Banjo,Shamisen,Koto
�J� Kalimba,Bagpipes,Fiddle,Shannai,Carillon,Agogo,Steel Drum,Wood block
�L� Taiko,Toms,Synth toms,Revcym,Fx-fret,Fx-blow,Seashore,Jungle,Telephone
�(� Helicopter,Applause,Pistol,Gunshot
� 00000000 0d 00 0a 22 f4 3e 44 65 76 65 6c 6f 70 2e 21 53 |...".>Develop.!S|
00000010 65 72 69 61 6c 43 6f 6d 2e 53 65 72 69 61 6c 43 |erialCom.SerialC|
00000020 6f 6d 0d 00 14 1e f4 20 56 65 72 73 69 6f 6e 20 |om..... Version |
00000030 31 2e 30 20 42 79 20 4d 69 6b 65 20 43 6f 6f 6b |1.0 By Mike Cook|
00000040 0d 00 1e 19 f4 20 41 6c 6c 20 72 69 67 68 74 73 |..... All rights|
00000050 20 72 65 73 65 72 76 65 64 0d 00 28 11 ee 20 85 | reserved..(.. .|
00000060 20 f2 65 72 72 6f 72 62 6f 78 0d 00 32 04 0d 00 | .errorbox..2...|
00000070 3c 1e de 20 74 61 73 6b 69 64 25 34 3a 24 74 61 |<.. taskid%4:$ta|
00000080 73 6b 69 64 25 3d 22 54 41 53 4b 22 0d 00 46 11 |skid%="TASK"..F.|
00000090 de 20 69 6e 74 6d 65 73 73 25 20 32 30 0d 00 50 |. intmess% 20..P|
000000a0 49 69 6e 74 6d 65 73 73 25 21 30 3d 31 3a 69 6e |Iintmess%!0=1:in|
000000b0 74 6d 65 73 73 25 21 34 3d 32 3a 69 6e 74 6d 65 |tmess%!4=2:intme|
000000c0 73 73 25 21 38 3d 33 3a 69 6e 74 6d 65 73 73 25 |ss%!8=3:intmess%|
000000d0 21 31 32 3d 26 35 30 32 3a 69 6e 74 6d 65 73 73 |!12=&502:intmess|
000000e0 25 21 31 36 3d 30 0d 00 5a 4d c8 99 20 22 57 69 |%!16=0..ZM.. "Wi|
000000f0 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 33 |mp_Initialise",3|
00000100 30 30 2c 21 74 61 73 6b 69 64 25 2c 22 47 4d 5f |00,!taskid%,"GM_|
00000110 53 77 61 70 22 2c 69 6e 74 6d 65 73 73 25 20 b8 |Swap",intmess% .|
00000120 20 76 65 72 73 69 6f 6e 25 2c 74 61 73 6b 68 61 | version%,taskha|
00000130 6e 64 25 0d 00 64 4f de 20 71 25 20 26 33 30 30 |nd%..dO. q% &300|
00000140 2c 71 63 25 20 38 30 2c 20 57 6e 25 20 31 30 30 |,qc% 80, Wn% 100|
00000150 30 2c 74 65 6d 70 25 20 32 35 36 2c 62 75 66 66 |0,temp% 256,buff|
00000160 65 72 73 25 20 35 31 32 2c 6d 65 6e 75 25 20 31 |ers% 512,menu% 1|
00000170 32 38 2c 53 57 25 20 31 35 30 30 2c 63 62 25 20 |28,SW% 1500,cb% |
00000180 31 38 0d 00 6e 4e de 20 49 73 4e 61 6d 65 25 20 |18..nN. IsName% |
00000190 32 35 36 2c 20 43 6f 6d 6d 65 6e 75 25 20 33 32 |256, Commenu% 32|
000001a0 30 30 2c 53 6d 65 6e 75 25 20 35 31 32 2c 49 6d |00,Smenu% 512,Im|
000001b0 65 6e 75 25 20 32 35 36 2c 20 54 65 78 74 57 61 |enu% 256, TextWa|
000001c0 72 6e 25 20 31 30 30 2c 20 77 77 25 20 32 35 36 |rn% 100, ww% 256|
000001d0 0d 00 78 39 de 20 43 6f 6d 6d 61 6e 64 24 28 31 |..x9. Command$(1|
000001e0 33 30 29 2c 43 73 6d 25 20 36 36 30 30 2c 20 54 |30),Csm% 6600, T|
000001f0 58 62 79 74 65 73 25 28 32 35 35 29 2c 52 58 62 |Xbytes%(255),RXb|
00000200 79 74 65 73 25 28 32 37 29 0d 00 82 2e de 20 49 |ytes%(27)..... I|
00000210 58 25 28 32 30 29 2c 49 59 25 28 32 30 29 2c 49 |X%(20),IY%(20),I|
00000220 58 31 25 28 32 30 29 2c 49 59 31 25 28 32 30 29 |X1%(20),IY1%(20)|
00000230 2c 43 4e 25 20 33 30 0d 00 8c 23 de 20 53 50 6f |,CN% 30...#. SPo|
00000240 69 6e 74 25 28 32 30 29 2c 44 52 55 4d 53 25 28 |int%(20),DRUMS%(|
00000250 31 36 29 2c 54 78 25 28 34 29 0d 00 96 34 c8 99 |16),Tx%(4)...4..|
00000260 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c | "Wimp_OpenTempl|
00000270 61 74 65 22 2c 2c 22 3c 47 4d 53 77 61 70 24 44 |ate",,"<GMSwap$D|
00000280 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d 00 |ir>.Templates"..|
00000290 a0 29 ee 20 85 20 c8 99 20 22 57 69 6d 70 5f 43 |.). . .. "Wimp_C|
000002a0 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 3a f2 65 |loseTemplate":.e|
000002b0 72 72 6f 72 62 6f 78 0d 00 aa 3a c8 99 20 22 57 |rrorbox...:.. "W|
000002c0 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
000002d0 22 2c 2c 71 25 2c 74 65 6d 70 25 2c 74 65 6d 70 |",,q%,temp%,temp|
000002e0 25 2b 32 35 36 2c 2d 31 2c 22 49 6e 66 6f 22 2c |%+256,-1,"Info",|
000002f0 30 0d 00 b4 26 c8 99 20 22 57 69 6d 70 5f 43 72 |0...&.. "Wimp_Cr|
00000300 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 20 |eateWindow",,q% |
00000310 b8 20 69 6e 66 6f 25 0d 00 be 3e c8 99 20 22 57 |. info%...>.. "W|
00000320 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
00000330 22 2c 2c 57 6e 25 2b 34 2c 53 57 25 2c 53 57 25 |",,Wn%+4,SW%,SW%|
00000340 2b 31 35 30 30 2c 2d 31 2c 22 50 61 6c 6c 65 74 |+1500,-1,"Pallet|
00000350 74 65 22 2c 30 0d 00 c8 0d 57 6e 25 21 32 38 3d |te",0....Wn%!28=|
00000360 2d 31 0d 00 d2 0f e3 20 41 25 3d 30 20 b8 20 31 |-1..... A%=0 . 1|
00000370 31 0d 00 dc 24 53 50 6f 69 6e 74 25 28 41 25 29 |1...$SPoint%(A%)|
00000380 3d 21 28 57 6e 25 2b 34 2b 38 38 2b 32 30 2b 33 |=!(Wn%+4+88+20+3|
00000390 32 2a 41 25 29 0d 00 e6 39 49 58 25 28 41 25 29 |2*A%)...9IX%(A%)|
000003a0 3d 21 28 57 6e 25 2b 34 2b 38 38 2b 33 32 2a 41 |=!(Wn%+4+88+32*A|
000003b0 25 29 3a 49 59 25 28 41 25 29 3d 21 28 57 6e 25 |%):IY%(A%)=!(Wn%|
000003c0 2b 34 2b 38 38 2b 34 2b 33 32 2a 41 25 29 0d 00 |+4+88+4+32*A%)..|
000003d0 f0 3e 49 58 31 25 28 41 25 29 3d 21 28 57 6e 25 |.>IX1%(A%)=!(Wn%|
000003e0 2b 34 2b 38 38 2b 38 2b 33 32 2a 41 25 29 3a 49 |+4+88+8+32*A%):I|
000003f0 59 31 25 28 41 25 29 3d 21 28 57 6e 25 2b 34 2b |Y1%(A%)=!(Wn%+4+|
00000400 38 38 2b 31 32 2b 33 32 2a 41 25 29 0d 00 fa 05 |88+12+32*A%)....|
00000410 ed 0d 01 04 04 0d 01 0e 29 c8 99 20 22 57 69 6d |........).. "Wim|
00000420 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
00000430 2c 57 6e 25 2b 34 20 b8 20 6d 6f 6e 57 25 0d 01 |,Wn%+4 . monW%..|
00000440 18 19 57 6e 25 21 30 3d 6d 6f 6e 57 25 3a 57 6e |..Wn%!0=monW%:Wn|
00000450 25 21 32 38 3d 2d 31 0d 01 22 04 0d 01 2c 04 0d |%!28=-1.."...,..|
00000460 01 36 39 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 |.69.. "Wimp_Load|
00000470 54 65 6d 70 6c 61 74 65 22 2c 2c 71 25 2c 77 77 |Template",,q%,ww|
00000480 25 2c 77 77 25 2b 32 35 36 2c 2d 31 2c 22 57 61 |%,ww%+256,-1,"Wa|
00000490 72 6e 69 6e 67 22 2c 30 0d 01 40 29 71 25 21 31 |rning",0..@)q%!1|
000004a0 30 38 3d 54 65 78 74 57 61 72 6e 25 3a 71 25 21 |08=TextWarn%:q%!|
000004b0 31 31 32 3d 2d 31 3a 71 25 21 31 31 36 3d 33 30 |112=-1:q%!116=30|
000004c0 30 0d 01 4a 20 58 51 25 3d 71 25 21 38 2d 71 25 |0..J XQ%=q%!8-q%|
000004d0 21 30 3a 59 51 25 3d 71 25 21 31 32 2d 71 25 21 |!0:YQ%=q%!12-q%!|
000004e0 34 0d 01 54 2a c8 99 20 22 57 69 6d 70 5f 43 72 |4..T*.. "Wimp_Cr|
000004f0 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 20 |eateWindow",,q% |
00000500 b8 20 77 61 72 6e 69 6e 67 57 25 0d 01 5e 1b c8 |. warningW%..^..|
00000510 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d |. "Wimp_CloseTem|
00000520 70 6c 61 74 65 22 0d 01 68 0a 72 65 66 25 3d 30 |plate"..h.ref%=0|
00000530 0d 01 72 11 63 70 4c 25 3d 30 3a 63 70 52 25 3d |..r.cpL%=0:cpR%=|
00000540 30 0d 01 7c 12 73 6d 70 69 63 6f 6e 25 3d a4 69 |0..|.smpicon%=.i|
00000550 63 6f 6e 0d 01 86 16 77 6f 70 65 6e 25 3d a3 3a |con....wopen%=.:|
00000560 77 61 72 6e 4f 6e 25 3d a3 0d 01 90 0c 49 6e 57 |warnOn%=.....InW|
00000570 69 6e 25 3d a3 0d 01 9a 11 4c 58 25 3d 2d 31 3a |in%=.....LX%=-1:|
00000580 4c 59 25 3d 2d 31 0d 01 a4 0f 63 72 25 3d 33 3a |LY%=-1....cr%=3:|
00000590 63 62 25 3d 38 0d 01 ae 09 4c 45 44 3d a3 0d 01 |cb%=8....LED=...|
000005a0 b8 09 4e 77 25 3d a3 0d 01 c2 0d 4d 69 54 69 6d |..Nw%=.....MiTim|
000005b0 65 25 3d 30 0d 01 cc 04 0d 01 d6 11 ee 20 85 20 |e%=0......... . |
000005c0 f2 65 72 72 6f 72 62 6f 78 0d 01 e0 0a f2 5f 69 |.errorbox....._i|
000005d0 6e 69 74 0d 01 ea 0e f2 73 65 74 75 70 6d 65 6e |nit.....setupmen|
000005e0 75 0d 01 f4 04 0d 01 fe 05 f5 0d 02 08 1d 20 c8 |u............. .|
000005f0 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 30 2c |. "Wimp_Poll",0,|
00000600 71 25 20 b8 20 41 25 0d 02 12 0d 20 20 c8 8e 20 |q% . A%.... .. |
00000610 41 25 20 ca 0d 02 1c 11 20 20 20 c9 20 30 3a f2 |A% ..... . 0:.|
00000620 5f 4e 75 6c 6c 0d 02 26 15 20 20 20 c9 20 31 3a |_Null..&. . 1:|
00000630 f2 5f 64 6f 57 69 6e 64 6f 77 0d 02 30 4f 20 20 |._doWindow..0O |
00000640 20 c9 20 32 3a c8 99 22 4f 53 5f 52 65 61 64 4d | . 2:.."OS_ReadM|
00000650 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c |odeVariable",-1,|
00000660 33 20 b8 20 2c 2c 4e 63 6f 6c 6f 75 72 73 25 3a |3 . ,,Ncolours%:|
00000670 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 | .. "Wimp_OpenWi|
00000680 6e 64 6f 77 22 2c 2c 71 25 0d 02 3a 12 20 20 20 |ndow",,q%..:. |
00000690 c9 20 33 3a f2 5f 63 6c 6f 73 65 0d 02 44 21 20 |. 3:._close..D! |
000006a0 20 20 c9 20 34 3a 49 6e 57 69 6e 25 3d a3 3a 4c | . 4:InWin%=.:L|
000006b0 58 25 3d 2d 31 3a 4c 59 25 3d 2d 31 0d 02 4e 13 |X%=-1:LY%=-1..N.|
000006c0 20 20 20 c9 20 35 3a 49 6e 57 69 6e 25 3d b9 0d | . 5:InWin%=..|
000006d0 02 58 19 20 20 20 c9 20 36 3a f2 5f 64 6f 5f 63 |.X. . 6:._do_c|
000006e0 6c 69 63 6b 28 71 25 29 0d 02 62 0b 20 20 20 c9 |lick(q%)..b. .|
000006f0 20 37 3a 0d 02 6c 15 20 20 20 c9 20 38 3a f2 5f | 7:..l. . 8:._|
00000700 4b 65 79 50 72 65 73 73 0d 02 76 16 20 20 20 c9 |KeyPress..v. .|
00000710 20 39 3a f2 5f 53 4f 52 54 5f 4d 65 6e 75 0d 02 | 9:._SORT_Menu..|
00000720 80 1b 20 20 20 c9 20 31 37 2c 31 38 3a f2 72 65 |.. . 17,18:.re|
00000730 63 65 69 76 65 28 71 25 29 0d 02 8a 08 20 20 20 |ceive(q%).... |
00000740 cb 0d 02 94 08 20 fd 20 a3 0d 02 9e 04 0d 02 a8 |..... . ........|
00000750 05 e0 0d 02 b2 04 0d 02 bc 0c dd 20 f2 5f 4e 75 |........... ._Nu|
00000760 6c 6c 0d 02 c6 05 e1 0d 02 d0 04 0d 02 da 11 dd |ll..............|
00000770 20 a4 5f 73 70 61 74 68 28 6e 24 29 0d 02 e4 0f | ._spath(n$)....|
00000780 c8 95 20 a7 6e 24 2c 22 2e 22 29 0d 02 ee 13 6e |.. .n$,".")....n|
00000790 24 3d c2 6e 24 2c a9 28 6e 24 29 2d 31 29 0d 02 |$=.n$,.(n$)-1)..|
000007a0 f8 05 ce 0d 03 02 1b e7 20 a9 28 6e 24 29 3e 31 |........ .(n$)>1|
000007b0 30 20 8c 20 6e 24 3d c2 6e 24 2c 31 30 29 0d 03 |0 . n$=.n$,10)..|
000007c0 0c 07 3d 6e 24 0d 03 16 04 0d 03 20 0f dd 20 f2 |..=n$...... .. .|
000007d0 5f 47 65 74 4e 61 6d 65 0d 03 2a 0e ea 20 54 25 |_GetName..*.. T%|
000007e0 2c 41 25 2c 46 24 0d 03 34 10 46 24 3d 22 22 3a |,A%,F$..4.F$="":|
000007f0 66 6e 24 3d 22 22 0d 03 3e 16 71 25 21 30 3d 73 |fn$=""..>.q%!0=s|
00000800 61 76 65 57 25 3a 71 25 21 34 3d 31 0d 03 48 1e |aveW%:q%!4=1..H.|
00000810 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |.. "Wimp_GetIcon|
00000820 53 74 61 74 65 22 2c 2c 71 25 0d 03 52 0c 54 25 |State",,q%..R.T%|
00000830 3d 71 25 21 32 38 0d 03 5c 09 54 25 2d 3d 31 0d |=q%!28..\.T%-=1.|
00000840 03 66 05 f5 0d 03 70 09 54 25 2b 3d 31 0d 03 7a |.f....p.T%+=1..z|
00000850 10 46 24 3d 46 24 2b bd 28 3f 54 25 29 0d 03 84 |.F$=F$+.(?T%)...|
00000860 0b fd 20 3f 54 25 3d 30 0d 03 8e 16 66 6e 24 3d |.. ?T%=0....fn$=|
00000870 c1 46 24 2c 31 2c a9 28 46 24 29 2d 31 29 0d 03 |.F$,1,.(F$)-1)..|
00000880 98 05 e1 0d 03 a2 04 0d 03 ac 11 dd 20 f2 5f 53 |............ ._S|
00000890 4f 52 54 5f 4d 65 6e 75 0d 03 b6 11 e7 20 49 63 |ORT_Menu..... Ic|
000008a0 6f 6e 4d 65 6e 75 25 20 8c 0d 03 c0 12 e7 20 21 |onMenu% ...... !|
000008b0 71 25 3d 31 20 8c 20 f2 64 69 65 0d 03 ca 05 cc |q%=1 . .die.....|
000008c0 0d 03 d4 1b f2 5f 73 70 75 74 28 30 2c 43 6f 6d |....._sput(0,Com|
000008d0 6d 61 6e 64 24 28 21 71 25 29 29 0d 03 de 26 f4 |mand$(!q%))...&.|
000008e0 20 50 52 4f 43 5f 73 70 75 74 28 32 2c 53 54 52 | PROC_sput(2,STR|
000008f0 24 28 54 58 62 79 74 65 73 25 28 21 71 25 29 29 |$(TXbytes%(!q%))|
00000900 29 0d 03 e8 18 f2 5f 73 70 75 74 28 35 2c c3 28 |)....._sput(5,.(|
00000910 21 71 25 29 2b 22 20 22 29 0d 03 f2 05 cd 0d 03 |!q%)+" ").......|
00000920 fc 1f c8 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 |...."Wimp_GetPoi|
00000930 6e 74 65 72 49 6e 66 6f 22 2c 2c 71 25 0d 04 06 |nterInfo",,q%...|
00000940 0e e7 20 71 25 21 38 3d 31 20 8c 0d 04 10 4d e7 |.. q%!8=1 ....M.|
00000950 20 49 63 6f 6e 4d 65 6e 75 25 20 8c 20 c8 99 22 | IconMenu% . .."|
00000960 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00000970 2c 2c 57 6d 65 6e 75 25 20 8b 20 c8 99 22 57 69 |,,Wmenu% . .."Wi|
00000980 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00000990 43 6f 6d 6d 65 6e 75 25 0d 04 1a 05 cd 0d 04 24 |Commenu%.......$|
000009a0 05 e1 0d 04 2e 04 0d 04 38 0d dd 20 f2 5f 63 6c |........8.. ._cl|
000009b0 6f 73 65 0d 04 42 37 e7 20 71 25 21 30 3d 6d 6f |ose..B7. q%!0=mo|
000009c0 6e 57 25 20 8c 20 c8 99 22 57 69 6d 70 5f 47 65 |nW% . .."Wimp_Ge|
000009d0 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 57 6e |tWindowInfo",,Wn|
000009e0 25 3a 77 6f 70 65 6e 25 3d a3 0d 04 4c 20 e7 20 |%:wopen%=...L . |
000009f0 71 25 21 30 3d 77 61 72 6e 69 6e 67 57 25 20 8c |q%!0=warningW% .|
00000a00 20 77 61 72 6e 4f 6e 25 3d a3 0d 04 56 1d c8 99 | warnOn%=...V...|
00000a10 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 | "Wimp_CloseWind|
00000a20 6f 77 22 2c 2c 71 25 0d 04 60 05 e1 0d 04 6a 04 |ow",,q%..`....j.|
00000a30 0d 04 74 14 dd 20 f2 5f 64 6f 5f 63 6c 69 63 6b |..t.. ._do_click|
00000a40 28 71 25 29 0d 04 7e 0c 69 25 3d 71 25 21 31 36 |(q%)..~.i%=q%!16|
00000a50 0d 04 88 0e c8 8e 20 71 25 21 31 32 20 ca 0d 04 |...... q%!12 ...|
00000a60 92 28 c9 20 77 61 72 6e 69 6e 67 57 25 3a 20 71 |.(. warningW%: q|
00000a70 25 21 30 3d 77 61 72 6e 69 6e 67 57 25 20 3a f2 |%!0=warningW% :.|
00000a80 5f 63 6c 6f 73 65 0d 04 9c 04 0d 04 a6 28 c9 20 |_close.......(. |
00000a90 2d 32 3a 20 f4 20 4c 6f 6f 6b 20 66 69 72 73 74 |-2: . Look first|
00000aa0 20 61 74 20 49 63 6f 6e 20 42 61 72 20 43 6c 69 | at Icon Bar Cli|
00000ab0 63 6b 0d 04 b0 1e 20 20 20 20 20 20 20 20 e7 20 |ck.... . |
00000ac0 71 25 21 31 36 3d 73 6d 70 69 63 6f 6e 25 20 8c |q%!16=smpicon% .|
00000ad0 0d 04 ba 4a 20 20 20 20 20 20 20 20 e7 20 71 25 |...J . q%|
00000ae0 21 38 3d 32 20 8c 20 49 63 6f 6e 4d 65 6e 75 25 |!8=2 . IconMenu%|
00000af0 3d b9 3a 20 c8 99 22 57 69 6d 70 5f 43 72 65 61 |=.: .."Wimp_Crea|
00000b00 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 2c 71 |teMenu",,menu%,q|
00000b10 25 21 30 2d 39 34 2c 31 39 30 0d 04 c4 1d 20 20 |%!0-94,190.... |
00000b20 20 20 20 20 20 20 e7 20 71 25 21 38 3d 34 20 8c | . q%!8=4 .|
00000b30 20 f2 5f 4f 70 65 6e 0d 04 ce 0d 20 20 20 20 20 | ._Open.... |
00000b40 20 20 20 cd 0d 04 d8 04 0d 04 e2 0e c9 20 6d 6f | .......... mo|
00000b50 6e 57 25 3a 20 20 0d 04 ec 27 20 20 20 20 20 20 |nW%: ...' |
00000b60 20 20 20 20 20 20 20 20 e7 20 71 25 21 38 3d 34 | . q%!8=4|
00000b70 20 8c 20 f2 5f 4d 6f 6e 43 6c 69 63 6b 0d 04 f6 | . ._MonClick...|
00000b80 05 cb 0d 05 00 05 e1 0d 05 0a 04 0d 05 14 04 0d |................|
00000b90 05 1e 10 dd 20 f2 5f 4d 6f 6e 43 6c 69 63 6b 0d |.... ._MonClick.|
00000ba0 05 28 11 ea 20 59 25 2c 58 25 2c 42 25 2c 69 25 |.(.. Y%,X%,B%,i%|
00000bb0 0d 05 32 26 f4 20 44 6f 20 74 68 65 20 61 63 74 |..2&. Do the act|
00000bc0 69 6f 6e 20 66 6f 72 20 61 20 77 69 6e 64 6f 77 |ion for a window|
00000bd0 20 63 6c 69 63 6b 0d 05 3c 0c 69 25 3d 71 25 21 | click..<.i%=q%!|
00000be0 31 36 0d 05 46 0b 42 25 3d 71 25 21 38 0d 05 50 |16..F.B%=q%!8..P|
00000bf0 0b 58 25 3d 71 25 21 30 0d 05 5a 0b 59 25 3d 71 |.X%=q%!0..Z.Y%=q|
00000c00 25 21 34 0d 05 64 12 f2 5f 54 72 61 6e 73 28 6d |%!4..d.._Trans(m|
00000c10 6f 6e 57 25 29 0d 05 6e 50 20 e7 20 42 25 3d 34 |onW%)..nP . B%=4|
00000c20 20 80 20 69 25 3d 31 20 8c 20 49 63 6f 6e 4d 65 | . i%=1 . IconMe|
00000c30 6e 75 25 3d a3 3a c8 99 22 57 69 6d 70 5f 43 72 |nu%=.:.."Wimp_Cr|
00000c40 65 61 74 65 4d 65 6e 75 22 2c 2c 43 6f 6d 6d 65 |eateMenu",,Comme|
00000c50 6e 75 25 2c 49 58 25 28 31 29 2b 78 6f 25 2d 33 |nu%,IX%(1)+xo%-3|
00000c60 37 30 2c 59 25 0d 05 78 0a 20 42 25 3d 69 25 0d |70,Y%..x. B%=i%.|
00000c70 05 82 0c 20 c8 8e 20 42 25 20 ca 0d 05 8c 0f c9 |... .. B% ......|
00000c80 20 37 3a 20 20 f2 73 65 6e 64 0d 05 96 10 c9 20 | 7: .send..... |
00000c90 38 3a 20 20 f2 64 72 75 6d 73 0d 05 a0 0e c9 20 |8: .drums..... |
00000ca0 39 3a 20 20 f2 6f 66 66 0d 05 aa 10 c9 20 31 30 |9: .off..... 10|
00000cb0 3a 20 f2 72 65 73 65 74 0d 05 b4 05 cb 0d 05 be |: .reset........|
00000cc0 05 e1 0d 05 c8 04 0d 05 d2 0c dd 20 f2 5f 4f 70 |........... ._Op|
00000cd0 65 6e 0d 05 dc 2e c8 99 22 4f 53 5f 52 65 61 64 |en......"OS_Read|
00000ce0 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
00000cf0 2c 33 20 b8 20 2c 2c 4e 63 6f 6c 6f 75 72 73 25 |,3 . ,,Ncolours%|
00000d00 0d 05 e6 19 f4 20 4f 50 45 4e 20 55 50 20 57 49 |..... OPEN UP WI|
00000d10 4e 44 4f 57 20 48 45 52 45 0d 05 f0 0e e7 20 77 |NDOW HERE..... w|
00000d20 6f 70 65 6e 25 20 8c 0d 05 fa 0e 71 25 21 30 3d |open% .....q%!0=|
00000d30 6d 6f 6e 57 25 0d 06 04 1f c8 99 22 57 69 6d 70 |monW%......"Wimp|
00000d40 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00000d50 2c 2c 71 25 0d 06 0e 36 20 20 e7 20 71 25 21 32 |,,q%...6 . q%!2|
00000d60 38 3c 3e 2d 31 20 8c 20 71 25 21 32 38 3d 2d 31 |8<>-1 . q%!28=-1|
00000d70 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 |: .. "Wimp_OpenW|
00000d80 69 6e 64 6f 77 22 2c 2c 71 25 0d 06 18 05 cc 0d |indow",,q%......|
00000d90 06 22 1d c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e |."... "Wimp_Open|
00000da0 57 69 6e 64 6f 77 22 2c 2c 57 6e 25 0d 06 2c 0c |Window",,Wn%..,.|
00000db0 77 6f 70 65 6e 25 3d b9 0d 06 36 05 cd 0d 06 40 |wopen%=...6....@|
00000dc0 05 e1 0d 06 4a 04 0d 06 54 10 dd 20 f2 5f 64 6f |....J...T.. ._do|
00000dd0 57 69 6e 64 6f 77 0d 06 5e 10 20 20 ea 20 41 25 |Window..^. . A%|
00000de0 2c 49 25 2c 4c 25 0d 06 68 04 0d 06 72 15 20 20 |,I%,L%..h...r. |
00000df0 20 f2 5f 54 72 61 6e 73 28 6d 6f 6e 57 25 29 0d | ._Trans(monW%).|
00000e00 06 7c 29 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 |.|) .. "Wimp_R|
00000e10 65 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c 71 25 |edrawWindow",,q%|
00000e20 20 b8 20 66 6c 61 67 25 0d 06 86 11 20 20 20 20 | . flag%.... |
00000e30 20 c8 95 20 66 6c 61 67 25 0d 06 90 04 0d 06 9a | .. flag%.......|
00000e40 1a 20 20 20 20 20 f4 20 44 72 61 77 20 74 68 65 |. . Draw the|
00000e50 20 77 69 6e 64 6f 77 0d 06 a4 2b 20 20 20 20 20 | window...+ |
00000e60 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 |.. "Wimp_GetRect|
00000e70 61 6e 67 6c 65 22 2c 2c 71 25 20 b8 20 66 6c 61 |angle",,q% . fla|
00000e80 67 25 0d 06 ae 0a 20 20 20 20 20 ce 0d 06 b8 06 |g%.... .....|
00000e90 20 20 0d 06 c2 07 20 20 e1 0d 06 cc 04 0d 06 d6 | .... ........|
00000ea0 04 0d 06 e0 12 dd 20 f2 5f 54 72 61 6e 73 28 77 |...... ._Trans(w|
00000eb0 68 25 29 0d 06 ea 0b 21 71 25 3d 77 68 25 0d 06 |h%)....!q%=wh%..|
00000ec0 f4 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 |. .. "Wimp_GetWi|
00000ed0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 0d 06 |ndowState",,q%..|
00000ee0 fe 28 78 6f 25 3d 71 25 21 34 2d 71 25 21 32 30 |.(xo%=q%!4-q%!20|
00000ef0 2b 38 3a 79 6f 25 3d 71 25 21 31 36 2d 71 25 21 |+8:yo%=q%!16-q%!|
00000f00 32 34 2d 32 39 30 0d 07 08 16 58 4f 25 3d 71 25 |24-290....XO%=q%|
00000f10 21 34 3a 59 4f 25 3d 71 25 21 31 36 0d 07 12 05 |!4:YO%=q%!16....|
00000f20 e1 0d 07 1c 04 0d 07 26 0f dd f2 73 65 74 75 70 |.......&...setup|
00000f30 6d 65 6e 75 0d 07 30 08 ea 20 6d 25 0d 07 3a 04 |menu..0.. m%..:.|
00000f40 0d 07 44 16 24 6d 65 6e 75 25 3d 22 56 6f 69 63 |..D.$menu%="Voic|
00000f50 65 53 77 61 70 22 0d 07 4e 0e 6d 65 6e 75 25 3f |eSwap"..N.menu%?|
00000f60 31 32 3d 37 0d 07 58 0e 6d 65 6e 75 25 3f 31 33 |12=7..X.menu%?13|
00000f70 3d 32 0d 07 62 0e 6d 65 6e 75 25 3f 31 34 3d 37 |=2..b.menu%?14=7|
00000f80 0d 07 6c 0e 6d 65 6e 75 25 3f 31 35 3d 30 0d 07 |..l.menu%?15=0..|
00000f90 76 10 6d 65 6e 75 25 21 31 36 3d 31 32 38 0d 07 |v.menu%!16=128..|
00000fa0 80 0f 6d 65 6e 75 25 21 32 30 3d 34 30 0d 07 8a |..menu%!20=40...|
00000fb0 0e 6d 65 6e 75 25 21 32 34 3d 30 0d 07 94 0f 6d |.menu%!24=0....m|
00000fc0 25 3d 6d 65 6e 75 25 2b 32 38 0d 07 9e 0a 6d 25 |%=menu%+28....m%|
00000fd0 21 30 3d 30 0d 07 a8 0e 6d 25 21 34 3d 69 6e 66 |!0=0....m%!4=inf|
00000fe0 6f 25 0d 07 b2 18 6d 25 21 38 3d 28 37 3c 3c 32 |o%....m%!8=(7<<2|
00000ff0 34 29 84 20 25 31 30 30 30 31 0d 07 bc 13 24 28 |4). %10001....$(|
00001000 6d 25 2b 31 32 29 3d 22 49 6e 66 6f 22 0d 07 c6 |m%+12)="Info"...|
00001010 04 0d 07 d0 0a 6d 25 2b 3d 32 34 0d 07 da 0c 6d |.....m%+=24....m|
00001020 25 21 30 3d 26 38 30 0d 07 e4 0a 6d 25 21 34 3d |%!0=&80....m%!4=|
00001030 30 0d 07 ee 18 6d 25 21 38 3d 28 37 3c 3c 32 34 |0....m%!8=(7<<24|
00001040 29 84 20 25 31 30 30 30 31 0d 07 f8 13 24 28 6d |). %10001....$(m|
00001050 25 2b 31 32 29 3d 22 51 75 69 74 22 0d 08 02 04 |%+12)="Quit"....|
00001060 0d 08 0c 17 24 43 6f 6d 6d 65 6e 75 25 3d 22 43 |....$Commenu%="C|
00001070 6f 6d 6d 61 6e 64 22 0d 08 16 11 43 6f 6d 6d 65 |ommand"....Comme|
00001080 6e 75 25 3f 31 32 3d 37 0d 08 20 11 43 6f 6d 6d |nu%?12=7.. .Comm|
00001090 65 6e 75 25 3f 31 33 3d 32 0d 08 2a 11 43 6f 6d |enu%?13=2..*.Com|
000010a0 6d 65 6e 75 25 3f 31 34 3d 37 0d 08 34 11 43 6f |menu%?14=7..4.Co|
000010b0 6d 6d 65 6e 75 25 3f 31 35 3d 30 0d 08 3e 13 43 |mmenu%?15=0..>.C|
000010c0 6f 6d 6d 65 6e 75 25 21 31 36 3d 32 38 38 0d 08 |ommenu%!16=288..|
000010d0 48 12 43 6f 6d 6d 65 6e 75 25 21 32 30 3d 34 30 |H.Commenu%!20=40|
000010e0 0d 08 52 11 43 6f 6d 6d 65 6e 75 25 21 32 34 3d |..R.Commenu%!24=|
000010f0 30 0d 08 5c 12 6d 25 3d 43 6f 6d 6d 65 6e 75 25 |0..\.m%=Commenu%|
00001100 2b 32 38 0d 08 66 04 0d 08 70 12 e3 20 41 25 3d |+28..f...p.. A%=|
00001110 30 20 b8 20 4e 63 6f 6d 25 0d 08 7a 0a 6d 25 21 |0 . Ncom%..z.m%!|
00001120 30 3d 30 0d 08 84 0a 6d 25 21 34 3d 30 0d 08 8e |0=0....m%!4=0...|
00001130 1c 6d 25 21 38 3d 28 37 3c 3c 32 34 29 84 20 25 |.m%!8=(7<<24). %|
00001140 31 30 30 30 31 30 30 30 31 0d 08 98 16 6d 25 21 |100010001....m%!|
00001150 31 32 3d 43 73 6d 25 2b 28 41 25 2a 32 35 29 0d |12=Csm%+(A%*25).|
00001160 08 a2 0b 6d 25 21 31 36 3d 30 0d 08 ac 0c 6d 25 |...m%!16=0....m%|
00001170 21 32 30 3d 32 35 0d 08 b6 0a 6d 25 2b 3d 32 34 |!20=25....m%+=24|
00001180 0d 08 c0 05 ed 0d 08 ca 0a 6d 25 2d 3d 32 34 0d |.........m%-=24.|
00001190 08 d4 0c 6d 25 21 30 3d 26 38 30 0d 08 de 04 0d |...m%!0=&80.....|
000011a0 08 e8 05 e1 0d 08 f2 04 0d 08 fc 12 dd 20 f2 72 |............. .r|
000011b0 65 63 65 69 76 65 28 71 25 29 0d 09 06 08 ea 20 |eceive(q%)..... |
000011c0 41 25 0d 09 10 0c 41 25 3d 71 25 21 31 36 0d 09 |A%....A%=q%!16..|
000011d0 1a 0b c8 8e 20 41 25 20 ca 0d 09 24 0c c9 20 30 |.... A% ...$.. 0|
000011e0 3a f2 64 69 65 0d 09 2e 14 c9 20 26 35 30 32 3a |:.die..... &502:|
000011f0 20 20 20 c8 8e 20 b9 20 ca 0d 09 38 64 20 20 20 | .. . ...8d |
00001200 20 20 20 20 20 20 20 20 20 20 c9 20 71 25 21 33 | . q%!3|
00001210 32 3d 2d 32 20 80 20 71 25 21 33 36 3d 73 6d 70 |2=-2 . q%!36=smp|
00001220 69 63 6f 6e 25 3a 6d 65 73 24 3d 22 54 68 69 73 |icon%:mes$="This|
00001230 20 69 73 20 74 68 65 20 56 6f 69 63 65 20 53 77 | is the Voice Sw|
00001240 61 70 20 69 63 6f 6e 2e 7c 4d 43 68 61 6e 67 65 |ap icon.|MChange|
00001250 20 4d 49 44 49 20 76 6f 69 63 65 73 22 0d 09 42 | MIDI voices"..B|
00001260 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 7f 3a |. .:|
00001270 6d 65 73 24 3d 22 22 0d 09 4c 12 20 20 20 20 20 |mes$=""..L. |
00001280 20 20 20 20 20 20 20 20 cb 0d 09 56 14 20 20 20 | ...V. |
00001290 20 e7 20 6d 65 73 24 3c 3e 22 22 20 8c 0d 09 60 | . mes$<>"" ...`|
000012a0 12 20 20 20 20 71 25 21 31 32 3d 71 25 21 38 0d |. q%!12=q%!8.|
000012b0 09 6a 18 20 20 20 20 24 28 71 25 2b 32 30 29 3d |.j. $(q%+20)=|
000012c0 6d 65 73 24 2b bd 30 0d 09 74 1e 20 20 20 20 71 |mes$+.0..t. q|
000012d0 25 21 30 3d 28 32 30 2b a9 6d 65 73 24 2b 34 29 |%!0=(20+.mes$+4)|
000012e0 80 20 ac 20 33 0d 09 7e 12 20 20 20 20 71 25 21 |. . 3..~. q%!|
000012f0 31 36 3d 26 35 30 33 0d 09 88 28 20 20 20 20 c8 |16=&503...( .|
00001300 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 |. "Wimp_SendMess|
00001310 61 67 65 22 2c 31 38 2c 71 25 2c 71 25 21 34 0d |age",18,q%,q%!4.|
00001320 09 92 05 cb 0d 09 9c 05 e1 0d 09 a6 04 0d 09 b0 |................|
00001330 0c dd 20 f2 5f 44 61 63 6b 0d 09 ba 10 73 65 6e |.. ._Dack....sen|
00001340 64 74 68 25 3d 71 25 21 34 0d 09 c4 0f 6d 79 72 |dth%=q%!4....myr|
00001350 65 66 25 3d 71 25 21 38 0d 09 ce 22 c8 99 20 22 |ef%=q%!8...".. "|
00001360 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
00001370 6e 66 6f 22 2c 2c 71 25 2b 38 0d 09 d8 0e 71 25 |nfo",,q%+8....q%|
00001380 21 32 38 3d 71 25 21 38 0d 09 e2 0f 71 25 21 33 |!28=q%!8....q%!3|
00001390 32 3d 71 25 21 31 32 0d 09 ec 18 71 25 21 30 3d |2=q%!12....q%!0=|
000013a0 28 34 34 2b a9 6e 24 2b 34 29 80 20 ac 20 33 0d |(44+.n$+4). . 3.|
000013b0 09 f6 10 71 25 21 31 32 3d 6d 79 72 65 66 25 0d |...q%!12=myref%.|
000013c0 0a 00 0b 71 25 21 31 36 3d 34 0d 0a 0a 0c 71 25 |...q%!16=4....q%|
000013d0 21 33 36 3d 2d 31 0d 0a 14 0e 71 25 21 34 30 3d |!36=-1....q%!40=|
000013e0 26 46 46 39 0d 0a 1e 12 24 28 71 25 2b 34 34 29 |&FF9....$(q%+44)|
000013f0 3d 6e 24 2b bd 30 0d 0a 28 27 c8 99 20 22 57 69 |=n$+.0..('.. "Wi|
00001400 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00001410 31 37 2c 71 25 2c 73 65 6e 64 74 68 25 0d 0a 32 |17,q%,sendth%..2|
00001420 05 cd 0d 0a 3c 05 e1 0d 0a 46 04 0d 0a 50 0a dd |....<....F...P..|
00001430 a4 69 63 6f 6e 0d 0a 5a 0b 71 25 21 30 3d 2d 31 |.icon..Z.q%!0=-1|
00001440 0d 0a 64 0a 71 25 21 34 3d 30 0d 0a 6e 1b 71 25 |..d.q%!4=0..n.q%|
00001450 21 38 3d 31 30 20 3a 20 f4 20 59 20 44 49 52 45 |!8=10 : . Y DIRE|
00001460 43 54 49 4f 4e 0d 0a 78 1c 71 25 21 31 32 3d 37 |CTION..x.q%!12=7|
00001470 30 20 3a 20 f4 20 58 20 44 49 52 45 43 54 49 4f |0 : . X DIRECTIO|
00001480 4e 0d 0a 82 0c 71 25 21 31 36 3d 39 36 0d 0a 8c |N....q%!16=96...|
00001490 0f 71 25 21 32 30 3d 26 32 30 30 32 0d 0a 96 16 |.q%!20=&2002....|
000014a0 24 28 71 25 2b 32 34 29 3d 22 21 47 4d 53 77 61 |$(q%+24)="!GMSwa|
000014b0 70 22 0d 0a a0 24 c8 99 20 22 57 69 6d 70 5f 43 |p"...$.. "Wimp_C|
000014c0 72 65 61 74 65 49 63 6f 6e 22 2c 2c 71 25 20 b8 |reateIcon",,q% .|
000014d0 20 69 63 6f 6e 25 0d 0a aa 0a 3d 69 63 6f 6e 25 | icon%....=icon%|
000014e0 0d 0a b4 04 0d 0a be 12 dd 20 f2 5f 73 65 74 75 |......... ._setu|
000014f0 70 57 28 74 24 29 0d 0a c8 58 21 71 25 3d 77 61 |pW(t$)...X!q%=wa|
00001500 72 6e 69 6e 67 57 25 3a 71 25 21 34 3d 32 30 30 |rningW%:q%!4=200|
00001510 3a 71 25 21 38 3d 32 30 30 3a 71 25 21 31 32 3d |:q%!8=200:q%!12=|
00001520 32 30 30 2b 58 51 25 3a 71 25 21 31 36 3d 32 30 |200+XQ%:q%!16=20|
00001530 30 2b 59 51 25 3a 71 25 21 32 30 3d 30 3a 71 25 |0+YQ%:q%!20=0:q%|
00001540 21 32 34 3d 30 3a 71 25 21 32 38 3d 2d 31 0d 0a |!24=0:q%!28=-1..|
00001550 d2 11 24 54 65 78 74 57 61 72 6e 25 3d 74 24 0d |..$TextWarn%=t$.|
00001560 0a dc 15 54 65 78 74 57 61 72 6e 25 3f a9 28 74 |...TextWarn%?.(t|
00001570 24 29 3d 30 0d 0a e6 07 ef 20 37 0d 0a f0 0d 77 |$)=0..... 7....w|
00001580 61 72 6e 4f 6e 25 3d b9 0d 0a fa 1c c8 99 20 22 |arnOn%=....... "|
00001590 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"|
000015a0 2c 2c 71 25 0d 0b 04 05 e1 0d 0b 0e 04 0d 0b 18 |,,q%............|
000015b0 0f dd 20 f2 65 72 72 6f 72 62 6f 78 0d 0b 22 19 |.. .errorbox..".|
000015c0 c8 99 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 |.. "Wimp_DragBox|
000015d0 22 2c 2c 2d 31 0d 0b 2c 32 21 62 75 66 66 65 72 |",,-1..,2!buffer|
000015e0 73 25 3d 9f 3a 24 28 62 75 66 66 65 72 73 25 2b |s%=.:$(buffers%+|
000015f0 34 29 3d f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 |4)=.$+" at line |
00001600 22 2b c3 9e 2b bd 30 0d 0b 36 31 c8 99 20 22 57 |"+..+.0..61.. "W|
00001610 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 |imp_ReportError"|
00001620 2c 62 75 66 66 65 72 73 25 2c 31 2c 22 56 6f 69 |,buffers%,1,"Voi|
00001630 63 65 20 53 77 61 70 22 0d 0b 40 08 f2 64 69 65 |ce Swap"..@..die|
00001640 0d 0b 4a 05 e1 0d 0b 54 04 0d 0b 5e 09 dd f2 64 |..J....T...^...d|
00001650 69 65 0d 0b 68 2a c8 99 20 22 57 69 6d 70 5f 43 |ie..h*.. "Wimp_C|
00001660 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 61 |loseDown",taskha|
00001670 6e 64 25 2c 21 74 61 73 6b 69 64 25 0d 0b 72 05 |nd%,!taskid%..r.|
00001680 e0 0d 0b 7c 05 e1 0d 0b 86 04 0d 0b 90 2e dd 20 |...|........... |
00001690 f2 64 72 61 67 69 63 6f 6e 28 6d 6f 75 73 65 78 |.dragicon(mousex|
000016a0 25 2c 6d 6f 75 73 65 79 25 2c 68 61 6e 64 6c 65 |%,mousey%,handle|
000016b0 25 2c 69 63 6f 6e 25 29 0d 0b 9a 21 ea 20 62 78 |%,icon%)...!. bx|
000016c0 25 2c 62 79 25 2c 69 78 30 25 2c 69 79 30 25 2c |%,by%,ix0%,iy0%,|
000016d0 69 78 31 25 2c 69 79 31 25 0d 0b a4 12 f2 67 65 |ix1%,iy1%.....ge|
000016e0 74 77 28 68 61 6e 64 6c 65 25 29 0d 0b ae 18 f2 |tw(handle%).....|
000016f0 67 65 74 69 28 68 61 6e 64 6c 65 25 2c 69 63 6f |geti(handle%,ico|
00001700 6e 25 29 0d 0b b8 16 21 71 25 3d 68 61 6e 64 6c |n%)....!q%=handl|
00001710 65 25 3a 71 25 21 34 3d 35 0d 0b c2 3e 71 25 21 |e%:q%!4=5...>q%!|
00001720 38 3d 62 78 25 2b 69 78 30 25 3a 71 25 21 31 32 |8=bx%+ix0%:q%!12|
00001730 3d 62 79 25 2b 69 79 30 25 3a 71 25 21 31 36 3d |=by%+iy0%:q%!16=|
00001740 62 78 25 2b 69 78 31 25 3a 71 25 21 32 30 3d 62 |bx%+ix1%:q%!20=b|
00001750 79 25 2b 69 79 31 25 0d 0b cc 2a 71 25 21 32 34 |y%+iy1%...*q%!24|
00001760 3d 71 25 21 38 2d 6d 6f 75 73 65 78 25 3a 71 25 |=q%!8-mousex%:q%|
00001770 21 32 38 3d 71 25 21 31 32 2d 6d 6f 75 73 65 79 |!28=q%!12-mousey|
00001780 25 0d 0b d6 19 c8 99 20 22 57 69 6d 70 5f 44 72 |%...... "Wimp_Dr|
00001790 61 67 42 6f 78 22 2c 2c 71 25 0d 0b e0 0c 53 46 |agBox",,q%....SF|
000017a0 4c 41 47 25 3d b9 0d 0b ea 05 e1 0d 0b f4 04 0d |LAG%=...........|
000017b0 0b fe 14 dd 20 f2 67 65 74 77 28 68 61 6e 64 6c |.... .getw(handl|
000017c0 65 25 29 0d 0c 08 38 21 71 25 3d 68 61 6e 64 6c |e%)...8!q%=handl|
000017d0 65 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |e%:.. "Wimp_GetW|
000017e0 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 3a |indowState",,q%:|
000017f0 f2 69 6e 66 6f 28 71 25 2b 34 29 0d 0c 12 05 e1 |.info(q%+4).....|
00001800 0d 0c 1c 12 dd 20 f2 67 65 74 69 28 68 25 2c 69 |..... .geti(h%,i|
00001810 25 29 0d 0c 26 2d 21 71 25 3d 68 25 3a 71 25 21 |%)..&-!q%=h%:q%!|
00001820 34 3d 69 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 |4=i%:.. "Wimp_Ge|
00001830 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 0d |tIconState",,q%.|
00001840 0c 30 2e 69 78 30 25 3d 71 25 21 38 3a 69 79 30 |.0.ix0%=q%!8:iy0|
00001850 25 3d 71 25 21 31 32 3a 69 78 31 25 3d 71 25 21 |%=q%!12:ix1%=q%!|
00001860 31 36 3a 69 79 31 25 3d 71 25 21 32 30 0d 0c 3a |16:iy1%=q%!20..:|
00001870 1e 69 66 6c 61 67 73 25 3d 71 25 21 32 34 3a 69 |.iflags%=q%!24:i|
00001880 64 61 74 61 25 3d 71 25 2b 32 38 0d 0c 44 05 e1 |data%=q%+28..D..|
00001890 0d 0c 4e 04 0d 0c 58 0f dd 20 f2 69 6e 66 6f 28 |..N...X.. .info(|
000018a0 70 25 29 0d 0c 62 0d ea 20 78 30 25 2c 79 30 25 |p%)..b.. x0%,y0%|
000018b0 0d 0c 6c 27 78 30 25 3d 21 70 25 3a 79 30 25 3d |..l'x0%=!p%:y0%=|
000018c0 70 25 21 34 3a 78 31 25 3d 70 25 21 38 3a 79 31 |p%!4:x1%=p%!8:y1|
000018d0 25 3d 70 25 21 31 32 0d 0c 76 35 73 63 78 25 3d |%=p%!12..v5scx%=|
000018e0 70 25 21 31 36 3a 73 63 79 25 3d 70 25 21 32 30 |p%!16:scy%=p%!20|
000018f0 3a 62 68 61 6e 64 6c 65 25 3d 70 25 21 32 34 3a |:bhandle%=p%!24:|
00001900 66 6c 61 67 73 25 3d 70 25 21 32 38 0d 0c 80 1d |flags%=p%!28....|
00001910 62 78 25 3d 78 30 25 2d 73 63 78 25 3a 62 79 25 |bx%=x0%-scx%:by%|
00001920 3d 79 31 25 2d 73 63 79 25 0d 0c 8a 05 e1 0d 0c |=y1%-scy%.......|
00001930 94 04 0d 0c 9e 10 dd 20 f2 5f 4b 65 79 50 72 65 |....... ._KeyPre|
00001940 73 73 0d 0c 9f 08 ea 20 41 25 0d 0c a1 0d 41 25 |ss..... A%....A%|
00001950 3d a4 70 67 28 35 29 0d 0c a2 2c e7 20 41 25 3e |=.pg(5)...,. A%>|
00001960 30 20 80 20 41 25 3c 31 32 37 20 8c 20 f2 5f 73 |0 . A%<127 . ._s|
00001970 70 75 74 28 30 2c 43 6f 6d 6d 61 6e 64 24 28 41 |put(0,Command$(A|
00001980 25 29 29 0d 0c a8 09 f2 73 65 6e 64 0d 0c b2 05 |%)).....send....|
00001990 e1 0d 0c bc 04 0d 0c c6 13 dd 20 f2 5f 73 70 75 |.......... ._spu|
000019a0 74 28 6e 25 2c 58 24 29 0d 0c d0 08 ea 20 41 25 |t(n%,X$)..... A%|
000019b0 0d 0c da 12 78 25 3d 53 50 6f 69 6e 74 25 28 6e |....x%=SPoint%(n|
000019c0 25 29 0d 0c e4 12 e3 20 41 25 3d 31 20 b8 20 a9 |%)..... A%=1 . .|
000019d0 28 58 24 29 0d 0c ee 14 3f 78 25 3d 97 28 c1 58 |(X$)....?x%=.(.X|
000019e0 24 2c 41 25 2c 31 29 29 0d 0c f8 09 78 25 2b 3d |$,A%,1))....x%+=|
000019f0 31 0d 0d 02 05 ed 0d 0d 0c 09 3f 78 25 3d 30 0d |1.........?x%=0.|
00001a00 0d 16 40 c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 |..@.."Wimp_Force|
00001a10 52 65 64 72 61 77 22 2c 6d 6f 6e 57 25 2c 49 58 |Redraw",monW%,IX|
00001a20 25 28 6e 25 29 2c 49 59 25 28 6e 25 29 2c 49 58 |%(n%),IY%(n%),IX|
00001a30 31 25 28 6e 25 29 2c 49 59 31 25 28 6e 25 29 0d |1%(n%),IY1%(n%).|
00001a40 0d 20 05 e1 0d 0d 2a 04 0d 0d 34 0e dd a4 73 67 |. ....*...4...sg|
00001a50 65 74 28 78 25 29 0d 0d 3e 08 ea 20 78 24 0d 0d |et(x%)..>.. x$..|
00001a60 48 21 c8 95 20 3f 78 25 3e 26 32 30 20 78 24 2b |H!.. ?x%>&20 x$+|
00001a70 3d bd 28 3f 78 25 29 3a 78 25 2b 3d 31 3a ce 0d |=.(?x%):x%+=1:..|
00001a80 0d 52 07 3d 78 24 0d 0d 5c 04 0d 0d 66 0b dd a4 |.R.=x$..\...f...|
00001a90 73 6b 67 65 74 0d 0d 70 08 ea 20 78 24 0d 0d 7a |skget..p.. x$..z|
00001aa0 18 c8 95 20 3f 78 70 25 3d 26 32 30 20 78 70 25 |... ?xp%=&20 xp%|
00001ab0 2b 3d 31 3a ce 0d 0d 84 24 c8 95 20 3f 78 70 25 |+=1:....$.. ?xp%|
00001ac0 3e 26 32 30 20 78 24 2b 3d bd 28 3f 78 70 25 29 |>&20 x$+=.(?xp%)|
00001ad0 3a 78 70 25 2b 3d 31 3a ce 0d 0d 8e 07 3d 78 24 |:xp%+=1:.....=x$|
00001ae0 0d 0d 98 04 0d 0d a2 0c dd a4 70 67 28 6e 25 29 |..........pg(n%)|
00001af0 0d 0d ac 08 ea 20 41 24 0d 0d b6 19 41 24 3d a4 |..... A$....A$=.|
00001b00 73 67 65 74 28 53 50 6f 69 6e 74 25 28 6e 25 29 |sget(SPoint%(n%)|
00001b10 29 0d 0d c0 0a 3d bb 28 41 24 29 0d 0d ca 04 0d |)....=.(A$).....|
00001b20 0d d4 0b dd 20 f2 72 63 6f 6d 0d 0d de 0e ea 20 |.... .rcom..... |
00001b30 41 25 2c 42 25 2c 54 24 0d 0d e8 1a e3 20 41 25 |A%,B%,T$..... A%|
00001b40 3d 31 20 b8 20 33 3a 54 78 25 28 41 25 29 3d 30 |=1 . 3:Tx%(A%)=0|
00001b50 3a ed 0d 0d f2 1c 41 25 3d 30 3a 42 25 3d 30 3a |:.....A%=0:B%=0:|
00001b60 78 70 25 3d 53 50 6f 69 6e 74 25 28 35 29 0d 0d |xp%=SPoint%(5)..|
00001b70 fc 05 f5 0d 0e 06 09 41 25 2b 3d 31 0d 0e 10 0d |.......A%+=1....|
00001b80 54 24 3d a4 73 6b 67 65 74 0d 0e 1a 0e e7 20 54 |T$=.skget..... T|
00001b90 24 3c 3e 22 22 20 8c 0d 0e 24 12 e7 20 c0 54 24 |$<>"" ...$.. .T$|
00001ba0 2c 31 29 3d 22 26 22 20 8c 0d 0e 2e 17 54 78 25 |,1)="&" .....Tx%|
00001bb0 28 41 25 29 3d a4 68 73 28 c2 54 24 2c 31 29 29 |(A%)=.hs(.T$,1))|
00001bc0 0d 0e 38 42 e7 20 c1 54 24 2c a9 28 54 24 29 2d |..8B. .T$,.(T$)-|
00001bd0 31 2c 31 29 3c 3e 22 26 22 20 8c 20 54 78 25 28 |1,1)<>"&" . Tx%(|
00001be0 41 25 29 3d 54 78 25 28 41 25 29 2b a4 68 73 28 |A%)=Tx%(A%)+.hs(|
00001bf0 c1 54 24 2c a9 28 54 24 29 2d 31 2c 31 29 29 2a |.T$,.(T$)-1,1))*|
00001c00 31 36 0d 0e 42 05 cc 0d 0e 4c 11 54 78 25 28 41 |16..B....L.Tx%(A|
00001c10 25 29 3d bb 28 54 24 29 0d 0e 56 05 cd 0d 0e 60 |%)=.(T$)..V....`|
00001c20 05 cd 0d 0e 6a 12 fd 20 54 24 3d 22 22 20 84 20 |....j.. T$="" . |
00001c30 41 25 3d 31 0d 0e 74 1f f4 20 63 6f 6e 66 65 72 |A%=1..t.. confer|
00001c40 6d 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 77 69 6e |m command in win|
00001c50 64 6f 77 0d 0e 7e 05 e1 0d 0e 88 04 0d 0e 92 0d |dow..~..........|
00001c60 dd 20 a4 68 73 28 76 24 29 0d 0e 9c 08 ea 20 76 |. .hs(v$)..... v|
00001c70 25 0d 0e a6 12 76 25 3d 97 28 76 24 29 20 80 20 |%....v%=.(v$) . |
00001c80 26 44 46 0d 0e b0 22 e7 20 76 25 3e 26 34 30 20 |&DF...". v%>&40 |
00001c90 8c 20 76 25 3d 76 25 2d 35 35 20 8b 20 76 25 3d |. v%=v%-55 . v%=|
00001ca0 76 25 2d 34 38 0d 0e ba 07 3d 76 25 0d 0e c4 04 |v%-48....=v%....|
00001cb0 0d 0e ce 0b dd 20 f2 73 65 6e 64 0d 0e d8 08 ea |..... .send.....|
00001cc0 20 41 25 0d 0e e2 09 f2 72 63 6f 6d 0d 0e f6 14 | A%.....rcom....|
00001cd0 f4 20 53 65 6c 65 63 74 20 43 68 61 6e 6e 65 6c |. Select Channel|
00001ce0 0d 0f 00 0d 41 25 3d a4 70 67 28 32 29 0d 0f 0a |....A%=.pg(2)...|
00001cf0 11 e7 20 41 25 3c 31 20 8c 20 41 25 3d 31 0d 0f |.. A%<1 . A%=1..|
00001d00 14 13 e7 20 41 25 3e 31 36 20 8c 20 41 25 3d 31 |... A%>16 . A%=1|
00001d10 36 0d 0f 1e 13 f2 5f 73 70 75 74 28 32 2c c3 28 |6....._sput(2,.(|
00001d20 41 25 29 29 0d 0f 28 0f c8 99 26 34 30 34 43 32 |A%))..(...&404C2|
00001d30 2c 41 25 0d 0f 32 1c f4 20 50 72 6f 67 72 61 6d |,A%..2.. Program|
00001d40 20 43 68 61 6e 67 65 20 6d 65 73 73 61 67 65 0d | Change message.|
00001d50 0f 3c 13 c8 99 26 34 30 34 44 35 2c 54 78 25 28 |.<...&404D5,Tx%(|
00001d60 31 29 0d 0f 46 05 e1 0d 0f 50 04 0d 0f 5a 0c dd |1)..F....P...Z..|
00001d70 20 f2 64 72 75 6d 73 0d 0f 64 08 ea 20 41 25 0d | .drums..d.. A%.|
00001d80 0f 6e 0d 41 25 3d a4 70 67 28 32 29 0d 0f 78 11 |.n.A%=.pg(2)..x.|
00001d90 e7 20 41 25 3c 31 20 8c 20 41 25 3d 31 0d 0f 82 |. A%<1 . A%=1...|
00001da0 13 e7 20 41 25 3e 31 36 20 8c 20 41 25 3d 31 36 |.. A%>16 . A%=16|
00001db0 0d 0f 8c 13 f2 5f 73 70 75 74 28 32 2c c3 28 41 |....._sput(2,.(A|
00001dc0 25 29 29 0d 0f 96 0f c8 99 26 34 30 34 43 32 2c |%))......&404C2,|
00001dd0 41 25 0d 0f a0 14 e7 20 44 52 55 4d 53 25 28 41 |A%..... DRUMS%(A|
00001de0 25 29 3d a3 20 8c 0d 0f aa 12 c8 99 26 34 30 34 |%)=. .......&404|
00001df0 43 45 2c 30 2c 31 32 37 0d 0f b4 11 c8 99 26 34 |CE,0,127......&4|
00001e00 30 34 43 45 2c 33 32 2c 30 0d 0f be 0e c8 99 26 |04CE,32,0......&|
00001e10 34 30 34 44 35 2c 31 0d 0f c8 10 44 52 55 4d 53 |404D5,1....DRUMS|
00001e20 25 28 41 25 29 3d b9 0d 0f d2 05 cc 0d 0f dc 09 |%(A%)=..........|
00001e30 f2 72 63 6f 6d 0d 0f e6 10 c8 99 26 34 30 34 43 |.rcom......&404C|
00001e40 45 2c 30 2c 30 0d 0f f0 11 c8 99 26 34 30 34 43 |E,0,0......&404C|
00001e50 45 2c 33 32 2c 30 0d 0f fa 13 c8 99 26 34 30 34 |E,32,0......&404|
00001e60 44 35 2c 54 78 25 28 31 29 0d 10 04 10 44 52 55 |D5,Tx%(1)....DRU|
00001e70 4d 53 25 28 41 25 29 3d a3 0d 10 0e 05 cd 0d 10 |MS%(A%)=........|
00001e80 18 05 e1 0d 10 22 04 0d 10 2c 13 f4 20 41 6c 6c |....."...,.. All|
00001e90 20 6e 6f 74 65 73 20 6f 66 66 0d 10 36 0a dd 20 | notes off..6.. |
00001ea0 f2 6f 66 66 0d 10 40 0c c8 99 26 34 30 34 44 30 |.off..@...&404D0|
00001eb0 0d 10 4a 05 e1 0d 10 54 04 0d 10 5e 10 f4 20 52 |..J....T...^.. R|
00001ec0 65 73 65 74 20 4d 49 44 49 0d 10 68 0c dd 20 f2 |eset MIDI..h.. .|
00001ed0 72 65 73 65 74 0d 10 72 0c c8 99 26 34 30 34 44 |reset..r...&404D|
00001ee0 45 0d 10 7c 05 e1 0d 10 86 04 0d 10 90 0e dd 20 |E..|........... |
00001ef0 a4 62 73 74 28 73 25 29 0d 10 9a 0c ea 20 54 24 |.bst(s%)..... T$|
00001f00 2c 73 74 25 0d 10 a4 26 e7 20 54 78 25 28 31 29 |,st%...&. Tx%(1)|
00001f10 3d 30 20 8c 20 73 74 25 3d 73 25 2b 34 38 20 8b |=0 . st%=s%+48 .|
00001f20 20 73 74 25 3d 73 25 2b 31 36 0d 10 ae 09 54 24 | st%=s%+16....T$|
00001f30 3d 22 22 0d 10 b8 11 e7 20 73 25 3c 52 78 25 28 |=""..... s%<Rx%(|
00001f40 30 29 20 8c 0d 10 c2 05 f5 0d 10 cc 10 e7 20 54 |0) ........... T|
00001f50 78 25 28 31 29 3d 30 20 8c 0d 10 d6 2e e7 20 52 |x%(1)=0 ...... R|
00001f60 78 25 28 73 25 29 3e 26 31 46 20 8c 20 54 24 3d |x%(s%)>&1F . T$=|
00001f70 54 24 2b bd 28 52 78 25 28 73 25 29 29 20 8b 20 |T$+.(Rx%(s%)) . |
00001f80 54 24 2b 3d 22 20 22 0d 10 e0 05 cc 0d 10 ea 33 |T$+=" "........3|
00001f90 54 24 3d 54 24 2b a4 68 65 78 28 52 78 25 28 73 |T$=T$+.hex(Rx%(s|
00001fa0 25 29 20 3e 3e 20 34 29 2b a4 68 65 78 28 52 78 |%) >> 4)+.hex(Rx|
00001fb0 25 28 73 25 29 20 80 20 31 35 29 2b 22 20 22 0d |%(s%) . 15)+" ".|
00001fc0 10 f4 05 cd 0d 10 fe 09 73 25 2b 3d 31 0d 11 08 |........s%+=1...|
00001fd0 18 fd 20 73 25 3e 52 78 25 28 30 29 20 84 20 73 |.. s%>Rx%(0) . s|
00001fe0 25 3d 73 74 25 0d 11 12 05 cd 0d 11 1c 07 3d 54 |%=st%.........=T|
00001ff0 24 0d 11 26 04 0d 11 30 0e dd 20 a4 68 65 78 28 |$..&...0.. .hex(|
00002000 6e 25 29 0d 11 3a 08 ea 20 54 24 0d 11 44 27 e7 |n%)..:.. T$..D'.|
00002010 20 6e 25 3e 39 20 8c 20 54 24 3d bd 28 6e 25 2b | n%>9 . T$=.(n%+|
00002020 35 35 29 20 8b 20 54 24 3d bd 28 6e 25 2b 26 33 |55) . T$=.(n%+&3|
00002030 30 29 0d 11 4e 07 3d 54 24 0d 11 58 04 0d 11 62 |0)..N.=T$..X...b|
00002040 0c dd 20 f2 5f 69 6e 69 74 0d 11 6c 0d 4e 63 6f |.. ._init..l.Nco|
00002050 6d 25 3d 31 32 37 0d 11 76 10 54 58 62 79 74 65 |m%=127..v.TXbyte|
00002060 73 25 28 29 3d 30 0d 11 80 13 e3 20 41 25 3d 30 |s%()=0..... A%=0|
00002070 20 b8 20 20 4e 63 6f 6d 25 0d 11 8a 12 f3 20 43 | . Ncom%..... C|
00002080 6f 6d 6d 61 6e 64 24 28 41 25 29 0d 11 94 20 24 |ommand$(A%)... $|
00002090 28 43 73 6d 25 2b 28 41 25 2a 32 35 29 29 3d 43 |(Csm%+(A%*25))=C|
000020a0 6f 6d 6d 61 6e 64 24 28 41 25 29 0d 11 9e 05 ed |ommand$(A%).....|
000020b0 0d 11 a8 0f e3 20 41 25 3d 31 20 b8 20 31 36 0d |..... A%=1 . 16.|
000020c0 11 b2 10 44 52 55 4d 53 25 28 41 25 29 3d a3 0d |...DRUMS%(A%)=..|
000020d0 11 bc 05 ed 0d 11 c6 05 e1 0d 11 d0 04 0d 11 da |................|
000020e0 49 dc 20 41 63 6f 75 73 74 69 63 20 70 69 61 6e |I. Acoustic pian|
000020f0 6f 2c 42 72 69 67 68 74 20 70 69 61 6e 6f 2c 53 |o,Bright piano,S|
00002100 79 6e 74 68 20 70 69 61 6e 6f 2c 48 6f 6e 6b 79 |ynth piano,Honky|
00002110 20 74 6f 6e 6b 2c 45 6c 65 63 74 72 69 63 20 70 | tonk,Electric p|
00002120 69 61 6e 6f 20 31 0d 11 e4 46 dc 20 45 6c 65 63 |iano 1...F. Elec|
00002130 74 72 69 63 20 70 69 61 6e 6f 20 32 2c 48 61 72 |tric piano 2,Har|
00002140 70 73 63 68 6f 72 64 2c 20 43 6c 61 76 69 2c 43 |pschord, Clavi,C|
00002150 65 6c 65 73 74 2c 47 6c 6f 63 6b 65 6e 73 70 65 |elest,Glockenspe|
00002160 61 6c 2c 4d 75 73 69 63 20 62 6f 78 0d 11 ee 4b |al,Music box...K|
00002170 dc 20 56 69 62 65 73 2c 20 4d 61 72 69 6d 62 61 |. Vibes, Marimba|
00002180 2c 20 58 79 6c 6f 70 68 6f 6e 65 2c 20 54 75 62 |, Xylophone, Tub|
00002190 65 20 42 65 6c 6c 73 2c 20 44 75 6c 63 69 6d 65 |e Bells, Dulcime|
000021a0 72 2c 44 72 61 77 20 6f 72 67 61 6e 2c 50 65 72 |r,Draw organ,Per|
000021b0 63 20 6f 72 67 61 6e 0d 11 f8 4c dc 20 52 6f 63 |c organ...L. Roc|
000021c0 6b 20 6f 72 67 61 6e 2c 43 68 75 72 63 68 20 6f |k organ,Church o|
000021d0 72 67 61 6e 2c 52 65 65 64 20 6f 72 67 61 6e 2c |rgan,Reed organ,|
000021e0 41 63 63 6f 72 64 69 61 6e 2c 48 61 72 6d 6f 6e |Accordian,Harmon|
000021f0 69 63 61 2c 54 61 6e 67 6f 20 61 63 63 6f 72 64 |ica,Tango accord|
00002200 69 61 6e 0d 12 02 49 dc 20 4e 79 6c 6f 6e 20 67 |ian...I. Nylon g|
00002210 75 74 69 74 61 72 2c 53 74 65 65 6c 20 67 75 74 |utitar,Steel gut|
00002220 69 74 61 72 2c 4a 61 7a 7a 20 67 75 74 69 74 61 |itar,Jazz gutita|
00002230 72 2c 43 6c 65 61 6e 20 67 75 74 69 74 61 72 2c |r,Clean gutitar,|
00002240 4d 75 74 65 20 67 75 74 69 74 61 72 0d 12 0c 45 |Mute gutitar...E|
00002250 dc 20 4f 76 65 72 64 72 69 76 65 20 67 75 74 69 |. Overdrive guti|
00002260 74 61 72 2c 44 69 73 74 6f 72 74 69 6f 6e 20 67 |tar,Distortion g|
00002270 75 74 69 74 61 72 2c 47 69 72 6c 20 67 75 74 69 |utitar,Girl guti|
00002280 74 61 72 2c 41 63 6f 75 73 74 69 63 20 62 61 73 |tar,Acoustic bas|
00002290 73 0d 12 16 41 dc 20 46 69 6e 67 65 72 20 62 61 |s...A. Finger ba|
000022a0 73 73 2c 50 69 63 6b 20 62 61 73 73 2c 46 72 65 |ss,Pick bass,Fre|
000022b0 74 6c 65 73 73 20 62 61 73 73 2c 53 6c 61 70 20 |tless bass,Slap |
000022c0 62 61 73 73 20 31 2c 53 6c 61 70 20 62 61 73 73 |bass 1,Slap bass|
000022d0 20 32 0d 12 20 4a dc 20 53 79 6e 74 68 20 62 61 | 2.. J. Synth ba|
000022e0 73 73 20 31 2c 53 79 6e 74 68 20 62 61 73 73 20 |ss 1,Synth bass |
000022f0 32 2c 56 69 6f 6c 69 6e 2c 56 69 6f 6c 61 2c 43 |2,Violin,Viola,C|
00002300 65 6c 6c 6f 2c 43 6f 6e 74 72 61 62 61 2c 54 72 |ello,Contraba,Tr|
00002310 65 6d 6c 6f 20 73 74 72 69 6e 67 73 0d 12 2a 49 |emlo strings..*I|
00002320 dc 20 50 69 7a 7a 63 61 72 74 6f 20 73 74 72 69 |. Pizzcarto stri|
00002330 6e 67 73 2c 48 61 72 70 2c 54 69 6d 70 61 6e 69 |ngs,Harp,Timpani|
00002340 2c 4d 61 72 63 61 74 6f 2c 53 6c 6f 77 20 73 74 |,Marcato,Slow st|
00002350 72 69 6e 67 73 2c 53 79 6e 74 68 20 73 74 72 69 |rings,Synth stri|
00002360 6e 67 73 20 31 0d 12 34 44 dc 20 53 79 6e 74 68 |ngs 1..4D. Synth|
00002370 20 73 74 72 69 6e 67 73 20 32 2c 43 68 6f 69 72 | strings 2,Choir|
00002380 2c 44 6f 6f 2c 56 6f 69 63 65 73 2c 4f 72 63 68 |,Doo,Voices,Orch|
00002390 68 69 74 2c 54 72 75 6d 70 65 74 2c 54 72 6f 6d |hit,Trumpet,Trom|
000023a0 62 6f 6e 65 2c 54 75 62 61 0d 12 3e 41 dc 20 4d |bone,Tuba..>A. M|
000023b0 75 74 72 74 72 75 6d 2c 20 46 72 65 6e 63 68 20 |utrtrum, French |
000023c0 68 6f 72 6e 2c 48 69 74 20 62 72 61 73 73 2c 53 |horn,Hit brass,S|
000023d0 79 6e 74 68 20 62 72 61 73 73 20 31 2c 53 79 6e |ynth brass 1,Syn|
000023e0 74 68 20 62 72 61 73 73 20 32 0d 12 48 47 dc 20 |th brass 2..HG. |
000023f0 53 70 72 6e 6f 20 73 61 78 2c 20 41 6c 74 6f 20 |Sprno sax, Alto |
00002400 73 61 78 2c 54 65 6e 6f 72 20 73 61 78 2c 42 61 |sax,Tenor sax,Ba|
00002410 72 69 74 6f 6e 65 20 73 61 78 2c 4f 62 6f 65 2c |ritone sax,Oboe,|
00002420 43 6f 72 6f 6e 67 6c 61 79 2c 42 61 73 73 6f 6f |Coronglay,Bassoo|
00002430 6e 0d 12 52 48 dc 20 43 6c 61 72 69 6e 65 74 2c |n..RH. Clarinet,|
00002440 50 69 63 63 6f 6c 6f 2c 46 6c 75 74 65 2c 52 65 |Piccolo,Flute,Re|
00002450 63 6f 72 64 65 72 2c 57 6f 6f 64 20 66 6c 75 74 |corder,Wood flut|
00002460 65 2c 42 6f 74 74 6c 65 2c 53 68 61 6b 61 7a 75 |e,Bottle,Shakazu|
00002470 6c 2c 57 68 69 73 74 6c 65 0d 12 5c 47 dc 20 4f |l,Whistle..\G. O|
00002480 63 61 72 69 6e 61 2c 53 71 75 61 72 65 20 77 61 |carina,Square wa|
00002490 76 65 2c 53 61 77 20 77 61 76 65 2c 43 61 6c 6c |ve,Saw wave,Call|
000024a0 69 6f 70 65 2c 43 68 69 66 66 20 6c 65 61 64 2c |iope,Chiff lead,|
000024b0 43 68 61 72 61 6e 67 2c 56 6f 78 20 6c 65 61 64 |Charang,Vox lead|
000024c0 0d 12 66 49 dc 20 4c 65 61 64 20 35 74 68 2c 20 |..fI. Lead 5th, |
000024d0 42 61 73 73 20 6c 65 61 64 2c 46 61 6e 74 61 73 |Bass lead,Fantas|
000024e0 69 61 2c 57 61 72 6d 20 70 61 64 2c 50 6f 6c 79 |ia,Warm pad,Poly|
000024f0 20 73 79 6e 74 68 2c 47 68 6f 73 74 69 65 2c 42 | synth,Ghostie,B|
00002500 6c 6f 77 20 67 6c 61 73 73 0d 12 70 46 dc 20 4d |low glass..pF. M|
00002510 65 74 61 6c 20 70 61 64 2c 48 61 6c 6f 20 70 61 |etal pad,Halo pa|
00002520 64 2c 53 77 65 65 70 65 72 2c 41 75 72 6f 72 61 |d,Sweeper,Aurora|
00002530 2c 53 6f 75 6e 64 20 74 72 61 63 6b 2c 43 72 79 |,Sound track,Cry|
00002540 73 74 61 6c 2c 41 74 6d 6f 73 70 68 65 72 65 0d |stal,Atmosphere.|
00002550 12 7a 44 dc 20 46 72 65 73 68 61 69 72 2c 55 6e |.zD. Freshair,Un|
00002560 69 63 6f 72 6e 2c 45 63 68 6f 20 76 6f 78 2c 53 |icorn,Echo vox,S|
00002570 74 61 72 20 54 72 65 63 6b 2c 53 69 74 61 72 2c |tar Treck,Sitar,|
00002580 42 61 6e 6a 6f 2c 53 68 61 6d 69 73 65 6e 2c 4b |Banjo,Shamisen,K|
00002590 6f 74 6f 0d 12 84 4a dc 20 4b 61 6c 69 6d 62 61 |oto...J. Kalimba|
000025a0 2c 42 61 67 70 69 70 65 73 2c 46 69 64 64 6c 65 |,Bagpipes,Fiddle|
000025b0 2c 53 68 61 6e 6e 61 69 2c 43 61 72 69 6c 6c 6f |,Shannai,Carillo|
000025c0 6e 2c 41 67 6f 67 6f 2c 53 74 65 65 6c 20 44 72 |n,Agogo,Steel Dr|
000025d0 75 6d 2c 57 6f 6f 64 20 62 6c 6f 63 6b 0d 12 8e |um,Wood block...|
000025e0 4c dc 20 54 61 69 6b 6f 2c 54 6f 6d 73 2c 53 79 |L. Taiko,Toms,Sy|
000025f0 6e 74 68 20 74 6f 6d 73 2c 52 65 76 63 79 6d 2c |nth toms,Revcym,|
00002600 46 78 2d 66 72 65 74 2c 46 78 2d 62 6c 6f 77 2c |Fx-fret,Fx-blow,|
00002610 53 65 61 73 68 6f 72 65 2c 4a 75 6e 67 6c 65 2c |Seashore,Jungle,|
00002620 54 65 6c 65 70 68 6f 6e 65 0d 12 98 28 dc 20 48 |Telephone...(. H|
00002630 65 6c 69 63 6f 70 74 65 72 2c 41 70 70 6c 61 75 |elicopter,Applau|
00002640 73 65 2c 50 69 73 74 6f 6c 2c 47 75 6e 73 68 6f |se,Pistol,Gunsho|
00002650 74 0d ff |t..|
00002653 
.