73.VMjLg.D....OPwTUGkjSSQUPTUDHig1WvziHw3BLh.Ra0QWYeMFZeASOh.iHfLFZeESOhDiKvHBHsUGck80Xn8UL8HBLh7hO..
73.VMjLg.D....OPwTUGkjSSQUPTUDHig1WvziHw3BLh.Ra0QWYeMFZeASOh.iHfLFZeESOhDiKvHBHsUGck80Xn8UL8HBLh7hO..
1130.3ocaX1taZiDFEN2C6MP27+l0i+1qZqDLPXiTCfBzzehnDmFTYwQAi1l69ER779bno+y73ONywv7Li3Ve7e90+3ry9vzO+kQWMd17dyG9N+CK2tsdiax91G229wyitHJON67.OFtSvIBtr.dJb4pyflnOkbgKOjBvoJuDNvJApCbWDm3Dtzzbcn6jppXopk5f2Ic8jmiz1Jc36r55tH572c85siaZqe4M9gOs7mu9oWN27mVtc2iM6p655r1lG6sYywqXW2MLqc8pe77QR2i+M7aq2zrZc6yg2WuOdwQ7jsKh5t1AeClKv.E2gFJWVRfAJsCcInrNzH4NyCLPEcndxkUFXfp5P80ganC8EVnC926LVLcEXhUVXozVfYVcgka8EVAEFXo0XXUTYCFGYcFliRCL1JMrPW7QFJ05LrPSF.J2ZLrPQFBJTiKAUY00XIgRLBjyJKrPE5AJwpJrPE5CJz.u08jbqnvBMX.nRqnvBUXngRCM3RPNqnvBMXDnDqnvBMnGnLqnvBUnOnPC7LEqzJJrPCFvztHqnvBUXHnPCtDThUTXgFLBTlUTXgFzCTgUTXgJzGTnA9DSRfZBlol.gZBlol.YpIPnlfYpIPnlfYpIPnlLVgYl.YhoTCgWBlok.gUBlIk.YNIPnjfYFIPHjLVo4i.gNBlYi.YxnLCgLBlIi.gLBlIi.YxHPHiLVkIi.gLBlIi.gLBlIi.YxnbCgLBlIi.gLBlIixY8MyFILzQBz7QBCgj.MijvPIIPyIILSJU.Cqj.MsDLGdIAZhIgYlIggZRflaRXHmDnYmDF5IAZ9IgYBpR1OAFJAZJJggiRfljRXlkRXnoDn4oDVnKcamT2zGaqDZXqmyVsbS8c+9632ctWtuW2+Z.dcycgcuN0GdQ4iriLomO1Nx7C9T6HapjO2Nx90luzNphmrDBo3HFG43HHGI4HJGY4HL9p2GSZwRmHM1BlOlzhIsXRKlzhIsXRKgzRHsD4UHokPZr6HeBokPZIjVBokRZojVJokJeiQZojVJowFW7ojVJokQZYjVFokQZYxOPHsLRKizxHM1SgOmzxIsbRKmzxIsb42ijVNokSZ4jVAowx89BRqfzJHsBRqP94OoUPZEjVIoURZkjFqD6KIsRRqjzJkYajVIoUQZUjVEoUQZUjFKR5qHsJRqRlbqytko2Qx76HYBdjLCORlhGIywijI4Qxr7HYZdjj6IZEIWUrnlEUsntEUtn1EUuH9EmHXbwpOSxUbLNQx3DKiSzLrtvz0sqd3a0auKrN38s0O01re0Cc+u.W2rs4yM+W8t1Ia2XqBb.9Oq+9CmR6eP7+iWW44Mj6uWQ+Zpu.OMZ6Ra177af9lssO0rYS8S6T7gkb95C01+0wKraa1r+eqUxr86ZWtNLDmLyOc4wQyxPMdZ82Wre8wg1gy9k4ilb03QKNbYK5MXvMCmMawzdymO7lwe77e47WMcQuwCVLcxMyOrhXbwEGdbW396pnH24+0mN6+0mrzOG
1174.3ocaX1sSaiEEFsuCyKPGtuL93+8noijiyOCRERDIkdYTJDJQMSLh3no71OAv685iRuKrhsW9Kae97QbUS7u+ke6cu6ul8oOO4rKlundwn22b2pc6VuML8P28G593IQmFkGmchwigGDbhfKKfmBWN5LnI5UIW3xEo.bpxKgCrRf5MdHhu3UbIo45sdPhphknVp27AIqu55HosRu8CdbCmFcx6OeytKZ6V+7u3G+qU+3k+54uawCq1s+918q6y57t16q2t8oiXe+ILuay0e+wmH8W92vuZ811q2z8n860GhW9Dd5tkQ8ZF9UXg9yeHn3dzH4vRLFnzdzXPY8BlHmYtw.Uzel0xgU1eX0fp5QCzaWKCCDVnm07gfyrPbLq.Sre.DVZOajdfYdbgk64ElkjI5IWZPgUQjcXbjAEVfPCL1CMLahzD4nTe9ByFICAk6IFVgw.YwXLnJe95rDafLATvCKLKB0frDLPNL6gpAfrYQim8jbe3ByRvPPkdPgYChQNJ0RvXPAOnvrDLAj87TsbX1PnFTlGTXVDF.xdXpgkXk9DElMDFxxtHOnvrgvHPVBFCJwe.FlMCl.JymnvrGipAU3O7BydLZ.HaFzj3kDTMAyql.Q0DLuZBjMCFChpIX1LXBHplf4USfp7IpyJrUyC.YInI0QwdPgYIXHnTOnv7RIP1LXLHpjf4MRfnPxYk1PnFD0Qvrgv.PdYTlinLBlkfgfx8fByhvHP1LXLHJibVkMCl.hxHXdYDHJif4kQf7xnbGk6AElWFApzCJLuLJm2u4sQBK3yTAZigIBKwCq.8FIgk4yUA5cRByKkJfU50uBzxxPXgHOyBzKlDl2LILplDn2MILJmDn2NILpmDn8j0.g4ETkreBZnDnWQIL5nDnWRILukRXTSIPeKTBylK8amT2zGaqDps0y4WuZ65a90mwu56d97dY+qF771arcuNqw9gpIx+jW50D6ex6GZR8O4KkZx8O4Os0T5ephqrHAKAzDvS.QALEPU.WAjwnuIFawRlvFaAqIFawXKFawXKFawXKAaIXKQ9IDaIXicG0jfsDrkfsDrkhsTrkhsTYhgsTrkhM13RSJ1RwVF1xvVF1xvVl7.B1xvVF1xvF6onIGa4XKGa4XKGa4xyiXKGa4XKGaEXiW22TfsBrUfsBrUHO9isBrUfsRrUhsRrwahaJwVI1JwVorZCakXqBaUXqBaUXqBa7RxlJrUgsJYwst5VVdGIquijE3QxJ7HYIdjrFORVjGIqxijk4Qh2WUqHd0hEsYQqVztEsbQaWz5EoeIHELgXsOS7JcLAojIHsLAolg2KLaS2028006twd43scqenq8v020++E371csep8+Vuua5ts9aANB+mMe6tWSGbr3+6u7lm2Pt8VE8yVeF9Z09g1t8w2.aZ208P61sqeXuhO9Jmub2Z++0wyrqZ2d3eWqj4G12sZicKNcdyrUOc2rxhwCa91xCad5V63294ESld1ESVd7vVVOb3kilOe4r5EKFc4Ee7je56Oa1x5KFtb1zKWb7MhwEmd7xcZ3OqhhBm7G+869e.K0G8qB
2346.3oc6W2GTSblF..OXoB01dwOpEh8jnUmxYcFBbY7.4ircJy3GGvYmAcXZKPDo5Z6cRP.IeRVaosnmQRc7zfeDVsbBV8jHp8n7QRphjfhjTMRSUjr.qgHI.Ig7cxtYus1d+Smat149m6O59NyNOuOu442Sd1cRlII2xqHOZjqM7l4taxPL4keAo88Qxq2i1+2WYsm8jVYqfLtyXhOVZ+646G2+zkfSO8HkXREXIVbSb6ErxOc2K7kGeyqbqW5.aXfK74K8kd8O5Uem4snK8Nqsp7V21Nyg2NbdWwrl8WalJeevvkl4nS+7OIevo2Psib3ZaU4TY3UyrG6XnYdv0PGTOLa81p7OF7Qu8KNt4i6jwIcfxUh+A2hjGmG2fO5paI681UmITpDaVcTqiO7hWbPqSgB+Hb6VuXmIIF2Z335L5Gg86DO20TQDvUAy7IIvLBaoguua5EYjUuEOZeCWXQAHlJuHsBMdGxYFfnKaZl6S.D3evzADLVUoqMAZzFy3ychllGMZGXJr0GCsyrnelj+hNunZNYNFMQ9PIyibv0Pi19ax.7RnQaY+LIe8txut00ycnbTNJGkixQ4nbTNJGkixQ4nbTNJGkixQ4nbTNJGkixQ4nbTNJGkixQ4nbTNJGkixQ4nbTNJGkixQ490pi2875sZtgUmboQ+.+u6oZZdzdij+8o8rznsPSgplLYUTITITITI+JMIHwhLUTdltD6jx.0OC5M69jrSJSzuDLaI53eZ2CvPUVn2ksFOxblIZGrKERGeX2eJaKBzojskZzgB1aHYcdZ2eKaK0paDiAalsl.xHYFX2bFnk.hcN1ZbJyI.ZbFBNHH1XLbxAsACBLx.PhN4m18iY.HRmXiBPXrEk6MfLsUoStR2jsjPFbFnIaL3EAwtOClYfVOHlWF.UqqACAcw.ZFYv4ftJPrGwfYNnkChgwPak5zaLX+r4rWcrT5l7MxGaNB0YBThcYaA18cXP1XPCAGlszYjocu5TA69U.wljAjGYHYhxSo6Q.k3WFx5QqFrXkt6ATRTYZqSmSkti.lsXcjmS2Pv9XqoRcIXL38X.QNm70UMH1cYvkC5ZAwby.hPFTk5.xFkoR2xMFLYPLSri9.FbwYaZ04m9Rdsxx70x+F0jeSe7TuZ95+3M2TiO2QSc4jG2c7lRqrE2Z42X0O83T9gZZJUxWdzeb2SK3POs5e9lbiZX+erc+2axyYZneIyzOoIT2X+ucicpWzj9lw6iU1U66b13Pby0kj.OnxQTG4FGxojQr1AermXct13ya4Zm7rMTQNUtu8Izi9F2J9WWDKtp88kNHZomteT2YGZfVTDWEH3iolYIMxTMtAhditMlYRbg2kmZI3p5N65v5X1jzZuCyHQ1Fxrxi5yGy43p1gEsmRNVTEMW2rGr7.XMpZzHy.WLgs9Gh2wgbp2X6UG4jNHVeT0Z8cI3f274Yow8dTvWqm6hhDYFTyYiM.LGIX9iLqD6gBPzlCn4Z2AzcO0n0QXsOEMvkuu6XBN58kWLQiP6kftXeXhlPQ6R2mG.8MhP7sJhJCJzWjLG2Sq.91vWsgq2omT+JeWfd8wUpuxpLBVpBbsMlyWkvga354pJbpBlITYtb4quwxkEwU7z2XY0Ny4C3RqSGjE93vk45rD9Wbo7wSM3QTPPyVCWuE.IQygLxmiveHpNfWwIIFYH3Qf5pMxF3yL8542qeMFnWuSMRSTxzbrTIdpekmwpSIy4yqWoIlM9bvWOTYUZir6GkEQyjlBXlAdy5ADDcmjcLKx4z0wIO8RjcJqeXp1Cy0Sz026IdRnJHqI.F1Tx8qVakQeFr9EkXugDjHlsHykpqTyv+PY+BUThgHGSkjYWKTvrLp92ZJc0d8XT5XUEwBuR6HtjD3cNkl0VmW+i1COgC5K2Ils7NYImqF+t5IEsduQglINnPhDrHLZ8Di2Y6bGWwEYpsZaF3o0YK.98ukhIBZ2b6DiCZ.5l7RzTKFXhGHfzWu0zWRgoo9.SMzM2Z9xKPu2SvBHvzI.4TdoMNUVbCGxG2SXQSuSnJeUGpFu18aMrpSyhml8EXVkYwp2f4Df3CvhvhWWQdr04flE+gN6wSTaHd.ZN6nnAsyFlzKdxk.ic1A2XJLk30tIyhMGx3ieEcd8YlvAWMU5rscHhcZK0zgZxR942u2uql7gk5mulfmK4lEQPmi66QuznpDxSpmGPmaocDgXcNWEcrYcpw8gMCsyvCXsNDembvYhCoVgAFBZ35HRPSDxO9oOPoDHWZvg4YQT3p1mua4ffe03nHBvGlWIV9mXqDFxp1aeETigJhvgZnT9oODtkoTPLTp.2c.f11VVNwmocrdGOOniIrKQ1ixsRKHoi+7xwAH10qS9WJ.X8d6XAznshV8XKVZ6eCOM4xLLIV738yWJt7J372xApEQdHdfHmWcXxuWF4t7sswNY1afVR+wajtlIsH2RSLUO4YECz8QYli2GJFPTgR89vFbh+D2XOYbER8N4oXV2jGxXT21fizhQDrkuIy.B0actlIm+CB2cnBIlVt14PF+YTzPEZdfvmbjr32H85A7FzZU1pWwHcRX1GynHi1ccgdjUsHX6YaJrAH7kvRNE3H2mdI32J.fm0BTanoFTYfhwmXiovGXegd.jTGHQmX3jY1UzDv+FOoCMlh+LDNnqt5iOhmOLfzwrGVfQsNqJT575JPV3kTX5d3WPndZMkns+EmhLhURg5IuPtMqrmjUawPaLVw9K7WdXPb+ATwIGeSMU+s0VBvMmjmmtSuDQgmQhHQpiSaz3T0spQE89HtJpYn9qGYBsCjN9ZMJ1kUnCWDlShIIN2djv2oT61CYSNj+tcneX1D7ei+QeqXMSMyga2vvaJ1ymxKem+vNiG7.fWtbZkrDYsa.YfW37+oD9tIlnr32Y7y6jme.ZcGyhxc40O+bysdNMs7gVAsqUzeMlZ5ZIcm41M8aryY6ErfX+JrzdK6u401eAll+ac0sdnU9YWevM8Iq7aV18mr+ckjrBFvxQ96M9ctJe6f6d6Bt7xFX66PeQqfyNFmvqyXLcT5eD2Deo2NVN3GEbhHqv6y1V3XlGwcOyBWU2wmyYiukXaIwVRskLt+R+7LJdUadcEs3Xap9VW87nUy5uXv+kCd2wx
var
btn_onoff, btn_1up : widget
midi_dummy : MidiInBlock
note1, note2, velocity : Integer
Initialization
//Change the values to yur own needs
note1 = C2
note2 = C#2
velocity = 100
End
//when the "ON/OFF" button is pressed
On WidgetValueChanged (b_val : double) from btn_onoff
If b_val > 0.6 Then //if the button is switched ON
SendNow (midi_dummy, MakeNoteMessage (note1, velocity)) //play note1
Else //if the button is OFF,
AllNotesOff(midi_dummy) // stop all note from playing
End
End
//when the "1 UP" button is pressed
On WidgetValueChanged (b_val : double) from btn_1up
If b_val > 0.6 Then //if the button is switched ON
AllNotesOff(midi_dummy) //first stop any playing notes
SendNow (midi_dummy, MakeNoteMessage (note2, velocity)) //now play note2
Else //if the button is OFF
AllNotesOff(midi_dummy)//first stop any playing notes
SendNow (midi_dummy, MakeNoteMessage (note1, velocity))//then play note1 again
End
End