/*

Elaborated by Paul Fenton July 2009.Elaborated by Paul Fenton July 2009.Thanks to schwa,Siggi Eriksson,Philip S. Considine and others from whom I've learnt to copy and make something useable.
JX-8P sysex parameter is F0 41 36 00 21 20 01 sp xx F7 where sp = sysex parameter and xx = value to change parameter.
Patch Parameters sysex is F0 41 36 00 21 30 01 sp xx F7
JS sysex support: midisyx(frameoffset,msgbuf,len)

*/
desc:Roland JX-8P Sysex PG-800

slider1:1<0,127,1{GROFILE,SYNBASS,MIRA,VOICES,WARPRISE,OOOH-AAAH,OBPAD,PAULPAD1,LEVL2BASS,SYNTHBELL2,HOLLOWPADP2,ORBITPAD,SOLOHORN,CYBERDAWN2,RSTRINGS,POLYSYNTH,XMODPAD,SYNTHBASS3,LONGAIR,ELP,OOOOH,WAVEOLA,MELOJ,LONGETHER,TEKNOSTRING,ETHERCHOIR,FLUTE2,LONGPAD1,LYLE2,BYRDBASS2,BDRONE,NOSESYNTH,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,PIANO1,PIANO2,PIANO3,CELLOSECT,ARCOSTRING,LOSTRINGS,HISTRINGS,VOICES,ORGAN1,ORGAN2,PIPEORGAN,TIMBALES,MUSICBOX,WINDCHIMES,EBASS,SYNTHBASS,SOUNDTRACK,FATFIFTH,RESBELL,WAVEAURA,TOMS,CLAV,RESLEAD,SQUARELEAD,SYNCLEAD,POLYBRASS,SOFTBRASS,STABBRASS,AGOGOBELL,CHURCHBELL,BUBBLES,PSYCHMELLO,PIANO4,PIANO5,PIANO6,STRINGBRASS,BRIGHTBOW,STRINGS1,STRINGS2,CHOIR,MAYSWIND,MARIMBA,HARPSICH,KALIMBA,XMASBELLS,VIBES,UPRITEBASS,SYNTHCLAV,RECORDERS,FLUTES,ACCORDION,HARMONICA,LOGDRUM,METALLET,POLYSYNTH,TOUCHSYNC,GUITARCLAV,SYNCPLUCK,SLAPBACK,OVERTONES,SYNDULCIMR,TONECHO,GONG,JXJET}}>Patch
 
slider2:0<0,127,1>Filter Cutoff 

slider3:0<0,127,1>Filter Resonance

slider4:0<0,127,1>Filter Envelope

slider5:0<0,127,1>Filter LFO
 
slider6:0<0,127,1>Filter LFO Rate

slider7:0<0,127,1>Filter Keyfollow

slider8:0<0,127,1{OFF,Chorus 1,Chorus 2}>Chorus

slider9:120<0,127,1>VCA volume

slider10:0<0,127,1{OFF,1,2,3}>HPF

slider11:0<0,127,1>Env1 A 

slider12:0<0,127,1>Env1 D

slider13:0<0,127,1>Env1 S

slider14:0<0,127,1>Env1 R
 
slider15:0<0,127,1{OFF,1,2,3}>Env1 Key

slider16:0<0,127,1>Env2 A

slider17:0<0,127,1>Env2 D

slider18:0<0,127,1>Env2 S

slider19:0<0,127,1>Env2 R

slider20:0<0,127,1{OFF,1,2,3}>Env2 Key

slider21:0<0,127,1{16,8,4,2}>DCO1 Range

slider22:0<0,127,1{Noise,Square,Pulse,Sine}>DCO1 Wave

slider23:0<0,127,1>DCO1 Tune (-12 semitones +12)

slider24:0<0,127,1>DCO1 LFO
 
slider25:0<0,127,1>DCO1 Env

slider26:0<0,127,1{16,8,4,2}>DCO2 Range

slider27:0<0,127,1{Noise,Square,Pulse,Sine}>DCO2 Wave

slider28:0<0,127,1{OFF,Sync1,Sync2,XMOD}>XMOD

slider29:0<0,127,1>DCO2 Tune (-12 semitones +12)

slider30:0<0,127,1>DCO2 Fine (-50 cents +50)

slider31:0<0,127,1>DCO2 LFO

slider32:0<0,127,1>DCO2 Env

slider33:0<0,127,1{OFF,1,2,3}>DCO Dyn

slider34:0<0,127,1{Env2 inverted,Env2,Env1 inverted,Env1}>DCO Mod

slider35:0<0,127,1>DCO1 Mix
 
slider36:0<0,127,1>DCO2 Mix

slider37:0<0,127,1>Mix Env

slider38:0<0,127,1{OFF,1,2,3}>Mix Dyn

slider39:0<0,127,1{Env2 inverted,Env2,Env1 inverted,Env1}>Mix Mode 

slider40:0<0,127,1{OFF,1,2,3}>VCA Dyn

slider41:0<0,1,1{Gate,Env2}>VCA Mode

slider42:0<0,127,1{OFF,1}>VCF Dyn

slider43:0<0,127,1{Env2 inverted,Env2,Env1 inverted,Env1}>VCF Mode

slider44:0<0,127,1{Random,Square,Sine}>LFO Wave

slider45:0<0,4,1{OFF,Vibrato,Brilliance,-,Volume}>Aftertouch Function
 
slider46:0<0,65,65{OFF,ON}>Portamento OFF ON

slider47:0<0,127,1>Port Time

slider48:0<0,6,1{Poly 1,Unison 1,Solo 1,mute,Poly 2,Unison 2,Solo 2}>Keymode

slider49:64<0,127,1>Unison Detune - +
////////////////////////////////////////////////////////////////////////////
@init

in_pin:none
out_pin:none


statProgram = $xC0;
Fcut = $x22;
Fres = $x23;
Fenv = $x25;
Flfo = $x24;
FlfoR = $x2e;
FKey = $x26;
Chor = $x2B;
VCA = $x29;
HPF = $x21;
Env1A = $x2F;
Env1D = $x30;
Env1S = $x31;
Env1R = $x32;
Env1Key = $x33;
Env2A = $x34;
Env2D = $x35;
Env2S = $x36;
Env2R = $x37;
Env2Key = $x38;
DCO1Range = $x0B;
DCO1Wave = $x0C;
DCO1Tune = $x0D;
DCO1LFO = $x0E;
DCO1Env = $x0F;
DCO2Range = $x10;
DCO2Wave = $x11;
XMOD = $x12;
DCO2Tune = $x13;
DCO2Fine = $x14;
DCO2LFO = $x15;
DCO2Env = $x16;
DCODyn = $x1A;
DCOMod = $x1B;
DCO1Mix = $x1C;
DCO2Mix = $x1D;
MixEnv = $x1E;
MixDyn = $x1F;
MixMode = $x20;
VCADyn = $x2A;
VCAMode = $x3A;
VCFDyn = $x27;
VCFMode = $x28;
LFOWave = $x2C;
Aftertouchfunction = $x04;
Port = $x02;
Porttime= $x01; 
Keymode = $x03;
Unisondetune = $x06;



////////////////////////////////////////////////////////////////////////////
@slider
slider1 = floor(slider1);

patch != slider1 ?
(
	patch = slider1;
	send = 1;
);
// No fractions only integers...
slider2 = floor(slider2);
slider3 = floor(slider3);
slider4 = floor(slider4);
slider5 = floor(slider5);
slider6 = floor(slider6);
slider7 = floor(slider7);
slider8 = floor(slider8);
slider9 = floor(slider9);
slider10 = floor(slider10);
slider11 = floor(slider11);
slider12 = floor(slider12);
slider13 = floor(slider13);
slider14 = floor(slider14);
slider15 = floor(slider15);
slider16 = floor(slider16);
slider17 = floor(slider17);
slider18 = floor(slider18);
slider19 = floor(slider19);
slider20 = floor(slider20);
slider21 = floor(slider21);
slider22 = floor(slider22);
slider23 = floor(slider23);
slider24 = floor(slider24);
slider25 = floor(slider25);
slider26 = floor(slider26);
slider27 = floor(slider27);
slider28 = floor(slider28);
slider29 = floor(slider29);
slider30 = floor(slider30);
slider31 = floor(slider31);
slider32 = floor(slider32);
slider33 = floor(slider33);
slider34 = floor(slider34);
slider35 = floor(slider35);
slider36 = floor(slider36);
slider37 = floor(slider37);
slider38 = floor(slider38);
slider39 = floor(slider39);
slider40 = floor(slider40);
slider41 = floor(slider41);
slider42 = floor(slider42);
slider43 = floor(slider43);
slider44 = floor(slider44);
slider45 = floor(slider45);
slider46 = floor(slider46);
slider47 = floor(slider47);
slider48 = floor(slider48);
slider49 = floor(slider49);
////////////////////////////////////////////////////////////////////////////
@block
send == 1 ?
(
	midisend(0,statProgram,patch);//Program Change
	send = 0;
);

//Filter Cutoff
(slider2 != oldslider2) ?
(
 msgbuf[0] = $x41;
 msgbuf[1] = $x36;
 msgbuf[2] = $x00;
 msgbuf[3] = $x21;
 msgbuf[4] = $x20;
 msgbuf[5] = $x01;
 msgbuf[6] = Fcut;
 msgbuf[7] = floor(slider2);
  
 midisyx(0,msgbuf,8);
  oldslider2 = slider2;
);
//Filter Resonance
(slider3 != oldslider3) ?
(  
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Fres;
msgbuf[7] = floor(slider3);
  midisyx(0,msgbuf,8);
  oldslider3 = slider3;
);
//Filter Envelope
(slider4 != oldslider4) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Fenv;
msgbuf[7] = floor(slider4);

midisyx(0, msgbuf, 8);
oldslider4 = slider4;
);
//Filter LFO
(slider5 != oldslider5) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Flfo;
msgbuf[7] = floor(slider5);

midisyx(0, msgbuf, 8);
oldslider5 = slider5;
);

//Filter LFO Rate
(slider6 != oldslider6) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = FlfoR;
msgbuf[7] = floor(slider6);

midisyx(0, msgbuf, 8);
oldslider6 = slider6;
);

//Filter Key
(slider7 != oldslider7) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = FKey;
msgbuf[7] = floor(slider7);

midisyx(0, msgbuf, 8);
oldslider7 = slider7;
);

//Chorus
(slider8 != oldslider8) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Chor;
msgbuf[7] = (floor(slider8))*$x20;

midisyx(0, msgbuf, 8);
oldslider8 = slider8;
);

//VCA
(slider9 != oldslider9) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = VCA;
msgbuf[7] = floor(slider9);

midisyx(0, msgbuf, 8);
oldslider9 = slider9;
);

//HPF
(slider10 != oldslider10) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = HPF;
msgbuf[7] = (floor(slider10))*$x20;

midisyx(0, msgbuf, 8);
oldslider10 = slider10;
);

//Env1A
(slider11 != oldslider11) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env1A;
msgbuf[7] = floor(slider11);

midisyx(0, msgbuf, 8);
oldslider11 = slider11;
);

//Env1D
(slider12 != oldslider12) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env1D;
msgbuf[7] = floor(slider12);

midisyx(0, msgbuf, 8);
oldslider12 = slider12;
);

//Env1S
(slider13 != oldslider13) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env1S;
msgbuf[7] = floor(slider13);

midisyx(0, msgbuf, 8);
oldslider13 = slider13;
);

//Env1R
(slider14 != oldslider14) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env1R;
msgbuf[7] = floor(slider14);

midisyx(0, msgbuf, 8);
oldslider14 = slider14;
);

//Env1Key
(slider15 != oldslider15) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env1Key;
msgbuf[7] = (floor(slider15))*$x20;

midisyx(0, msgbuf, 8);
oldslider15 = slider15;
);

//Env2A
(slider16 != oldslider16) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env2A;
msgbuf[7] = floor(slider16);

midisyx(0, msgbuf, 8);
oldslider16 = slider16;
);

//Env2D
(slider17 != oldslider17) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env2D;
msgbuf[7] = floor(slider17);

midisyx(0, msgbuf, 8);
oldslider17 = slider17;
);

//Env2S
(slider18 != oldslider18) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env2S;
msgbuf[7] = floor(slider18);

midisyx(0, msgbuf, 8);
oldslider18 = slider18;
);

//Env2R
(slider19 != oldslider19) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env2R;
msgbuf[7] = floor(slider19);

midisyx(0, msgbuf, 8);
oldslider19 = slider19;
);

//Env2Key
(slider20 != oldslider20) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = Env2Key;
msgbuf[7] = (floor(slider20))*$x20;

midisyx(0, msgbuf, 8);
oldslider20 = slider20;
);

//DCO1Range
(slider21 != oldslider21) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1Range;
msgbuf[7] = (floor(slider21))*$x20;

midisyx(0, msgbuf, 8);
oldslider21 = slider21;
);

//DCO1Wave
(slider22 != oldslider22) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1Wave;
msgbuf[7] = (floor(slider22))*$x20;

midisyx(0, msgbuf, 8);
oldslider22 = slider22;
);

//DCO1Tune
(slider23 != oldslider23) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1Tune;
msgbuf[7] = floor(slider23);

midisyx(0, msgbuf, 8);
oldslider23 = slider23;
);

//DCO1LFO
(slider24 != oldslider24) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1LFO;
msgbuf[7] = floor(slider24);

midisyx(0, msgbuf, 8);
oldslider24 = slider24;
);

//DCO1Env
(slider25 != oldslider25) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1Env;
msgbuf[7] = floor(slider25);

midisyx(0, msgbuf, 8);
oldslider25 = slider25;
);

//DCO2Range
(slider26 != oldslider26) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Range;
msgbuf[7] = (floor(slider26))*$x20;

midisyx(0, msgbuf, 8);
oldslider26 = slider26;
);

//DCO2Wave
(slider27 != oldslider27) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Wave;
msgbuf[7] = (floor(slider27))*$x20;

midisyx(0, msgbuf, 8);
oldslider27 = slider27;
);

//XMOD
(slider28 != oldslider28) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = XMOD;
msgbuf[7] = (floor(slider28))*$x20;

midisyx(0, msgbuf, 8);
oldslider28 = slider28;
);

//DCO2Tune
(slider29 != oldslider29) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Tune;
msgbuf[7] = floor(slider29);

midisyx(0, msgbuf, 8);
oldslider29 = slider29;
);

//DCO2Fine
(slider30 != oldslider30) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Fine;
msgbuf[7] = floor(slider30);

midisyx(0, msgbuf, 8);
oldslider30 = slider30;
);

//DCO2LFO
(slider31 != oldslider31) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2LFO;
msgbuf[7] = floor(slider31);

midisyx(0, msgbuf, 8);
oldslider31 = slider31;
);

//DCO2Env
(slider32 != oldslider32) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Env;
msgbuf[7] = floor(slider32);

midisyx(0, msgbuf, 8);
oldslider32 = slider32;
);

//DCODyn
(slider33 != oldslider33) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCODyn;
msgbuf[7] = (floor(slider33))*$x20;

midisyx(0, msgbuf, 8);
oldslider33 = slider33;
);

//DCOMod
(slider34 != oldslider34) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCOMod;
msgbuf[7] = (floor(slider34))*$x20;

midisyx(0, msgbuf, 8);
oldslider34 = slider34;
);

//DCO1Mix
(slider35 != oldslider35) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO1Mix;
msgbuf[7] = floor(slider35);

midisyx(0, msgbuf, 8);
oldslider35 = slider35;
);

//DCO2Mix
(slider36 != oldslider36) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = DCO2Mix;
msgbuf[7] = floor(slider36);

midisyx(0, msgbuf, 8);
oldslider36 = slider36;
);

//MixEnv
(slider37 != oldslider37) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = MixEnv;
msgbuf[7] = floor(slider37);

midisyx(0, msgbuf, 8);
oldslider37 = slider37;
);

//MixDyn
(slider38 != oldslider38) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = MixDyn;
msgbuf[7] = (floor(slider38))*$x20;

midisyx(0, msgbuf, 8);
oldslider38 = slider38;
);

//MixMode
(slider39 != oldslider39) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = MixMode;
msgbuf[7] = (floor(slider39))*$x20;

midisyx(0, msgbuf, 8);
oldslider39 = slider39;
);

//VCADyn
(slider40 != oldslider40) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = VCADyn;
msgbuf[7] = (floor(slider40))*$x20;

midisyx(0, msgbuf, 8);
oldslider40 = slider40;
);

//VCAMode
(slider41 != oldslider41) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = VCAMode;
msgbuf[7] = (floor(slider41))*$x7F;

midisyx(0, msgbuf, 8);
oldslider41 = slider41;
);

//VCFDyn
(slider42 != oldslider42) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = VCFDyn;
msgbuf[7] = (floor(slider42))*$x20;

midisyx(0, msgbuf, 8);
oldslider42 = slider42;
);

//VCFMode
(slider43 != oldslider43) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = VCFMode;
msgbuf[7] = (floor(slider43))*$x20;

midisyx(0, msgbuf, 8);
oldslider43 = slider43;
);

//LFOWave
(slider44 != oldslider44) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x20;
msgbuf[5] = $x01;
msgbuf[6] = LFOWave;
msgbuf[7] = (floor(slider44))*$x20;

midisyx(0, msgbuf, 8);
oldslider44 = slider44;
);

//Aftertouchfunction
(slider45 != oldslider45) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x30;
msgbuf[5] = $x01;
msgbuf[6] = Aftertouchfunction;
msgbuf[7] = floor(slider45);

midisyx(0, msgbuf, 8);
oldslider45 = slider45;
);

//Port
(slider46 != oldslider46) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x30;
msgbuf[5] = $x01;
msgbuf[6] = Port;
msgbuf[7] = (floor(slider46))*$x41;

midisyx(0, msgbuf, 8);
oldslider46 = slider46;
);

//Porttime
(slider47 != oldslider47) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x30;
msgbuf[5] = $x01;
msgbuf[6] = Porttime;
msgbuf[7] = floor(slider47);

midisyx(0, msgbuf, 8);
oldslider47 = slider47;
);

//Keymode
(slider48 != oldslider48) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x30;
msgbuf[5] = $x01;
msgbuf[6] = Keymode;
msgbuf[7] = floor(slider48);

midisyx(0, msgbuf, 8);
oldslider48 = slider48;
);

//Unisondetune
(slider49 != oldslider49) ?

(
msgbuf[0] = $x41;
msgbuf[1] = $x36;
msgbuf[2] = $x00;
msgbuf[3] = $x21;
msgbuf[4] = $x30;
msgbuf[5] = $x01;
msgbuf[6] = Unisondetune;
msgbuf[7] = floor(slider49);

midisyx(0, msgbuf, 8);
oldslider49 = slider49;
);