; ------- Bome MIDI Translator: signed project file ; ------- You can modify this file as you like, but that will invalidate the ; ------- signature so that it cannot be opened in the BomeBox or MT Player anymore. ; [Preset.0] Active=1 Comments= Incoming0=EnDi02 Incoming1=KAM10000KSQ1000201B21B Incoming2=Tim0TimT0004Init Name=Init Name0=Project Opened - Init Name1=ESC - Init Name2=Init Global Options0=Actv01Stop00OutO00 Options1=Actv01Stop00OutO00 Options2=Actv01Stop00OutO00StMa00000008label0017__cmt>// Encoded numberga=0label0006__cmt>label001D__cmt>// Page Number (1 base)gb=0label0006__cmt>label0015__cmt>// current bankgc=0 Outgoing0=Tim0TimS0004Init1:0:1 Outgoing1=Tim0TimS0004Init1:0:1 Outgoing2=None PresetSwitchIgnore=0 [Preset.1] Active=1 Comments= Incoming0=MID3 Incoming1=MID3 Incoming10=Tim0TimT000ASend Digit Incoming11=Tim0TimT000ASend Digit Incoming12=Tim0TimT000ASend Digit Incoming13=Tim0TimT000ASend Digit Incoming14=Tim0TimT000ASend Digit Incoming15=Tim0TimT000ASend Digit Incoming16=Tim0TimT000ASend Digit Incoming17=Tim0TimT000ASend Digit Incoming18=Tim0TimT0009Send Post Incoming2=Tim0TimT0004Send Incoming3=Tim0TimT0004Send Incoming4=Tim0TimT000BSend Prefix Incoming5=Tim0TimT000BSend Prefix Incoming6=Tim0TimT0004Send Incoming7=Tim0TimT000ASend Digit Incoming8=Tim0TimT000ASend Digit Incoming9=Tim0TimT000ASend Digit Name=Work Name0=Bank Change Name1=Incoming Program Change Name10=3 Name11=4 Name12=5 Name13=6 Name14=7 Name15=8 Name16=9 Name17=Increment digit counter and Send Post Name18=Send Post Name2=Send Timer Name3=Send Timer Name4=Prefix Name5=Focus Name6=Send Digit Name7=0 Name8=1 Name9=2 Options0=Actv01Stop00OutO00StMa00000007label0006__cmt>label0020__cmt>// scale it from 128 to 78pp=pp*78pp=pp/128if(zz!=0)label001F__log>Log scaled value is %pp%gc=ppif(gc>77)gc=77 Options1=Actv01Stop00OutO00StMa0000003Clabel000E__cmt>// debugzz=0label0014__cmt>// Bank numberrr=gcss=rr*128pp=pp+sslabel0015__cmt>// Start with 1pp=pp+1if(pp>9999)pp=9999gb=pplabel0024__cmt>// we now have the value in pplabel0006__cmt>if(zz!=0)label0011__log>Log pp=%pp%label0036__cmt>//if zz!=0 then exit rules, skip outgoing actionlabel0006__cmt>label0035__cmt>// ignore if we are in the middle of a sequencerr=ga&15label0035__cmt>// note if you do PC faster than the keystrokeslabel002D__cmt>// are being sent, you will lose the PClabel002E__cmt>// although you don't want to send a newlabel0035__cmt>// PC mid stream in a character output sequenceif(rr!=0)noexecutelabel0006__cmt>label001B__cmt>// get 1000's into uuuu=pp/1000uu=uu&15label0031__cmt>//if zz!=0 then Log "Log thousands is %uu%"label0018__cmt>// get 100's in qqqq=pp/100qq=qq%10qq=qq&15label0030__cmt>//if zz!=0 then Log "Log hundreds is %qq%"label0017__cmt>// get 10's in rrrr=pp/10rr=rr%10rr=rr&15label002C__cmt>//if zz!=0 then Log "Log tens is %rr%"label0016__cmt>// get 1's in ssss=pp%10ss=ss&15label002C__cmt>//if zz!=0 then Log "Log ones is %ss%"label0006__cmt>label0015__cmt>//if zz!=0 thenlabel0020__log>Number is %uu%%qq%%rr%%ss%label0018__cmt>// ss rr qq uu sqga=0label0018__cmt>// store thousandstt=uu<<4ga=ga|ttlabel0016__cmt>//store hundredstt=qq<<8ga=ga|ttlabel0013__cmt>// store tenstt=rr<<12ga=ga|ttlabel0013__cmt>// store onestt=ss<<16ga=ga|ttlabel0006__cmt>label0006__cmt> Options10=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Dlabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=3)noexecutelabel0006__cmt>if(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options11=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Dlabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=4)noexecutelabel0006__cmt>if(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options12=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Clabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=5)noexecuteif(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options13=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Clabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=6)noexecuteif(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options14=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Dlabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=7)noexecutelabel0006__cmt>if(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options15=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Dlabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=8)noexecutelabel0015__cmt>//if zz==1 thenlabel003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options16=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Dlabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=9)noexecutelabel0006__cmt>if(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options17=Actv01Stop00OutO00Dlaytt:MillisStMa00000008label0010__cmt>//pp=ga&15if(pp>0)ga=ga+1if(pp>0)pp=pp+1label000E__cmt>// delaytt=pp*10label001F__log>Increment Sequence = %pp%if(pp<5)noexecutelabel0006__cmt> Options18=Actv01Stop00OutO00StMa00000006label0029__cmt>// set back to 0 for next iterationga=0if(zz==1)label0016__log>Log Sending Postif(zz==1)noexecuteif(zz==1)noexecuteif(zz!=0)label0010__log>Log RETURN Options2=Actv01Stop00OutO00StMa00000002pp=ga&15if(pp!=0)noexecute Options3=Actv01Stop00OutO00StMa00000004pp=ga&15label001E__cmt>// delay in millisecondsqq=pp*10ga=ga+1 Options4=Actv00Stop00OutO00Dlay0:MillisStMa00000002if(zz==1)label002E__log>Log prefix being sent with delay of %qq%if(zz==1)noexecute Options5=Actv01Stop00OutO00Dlay0:MillisStMa00000002if(zz==1)label002E__log>Log prefix being sent with delay of %qq%if(zz==1)noexecute Options6=Actv01Stop00OutO00StMa00000007pp=ga&15label001E__cmt>// delay in millisecondsqq=pp*10label0006__cmt>label0006__cmt>if(zz==1)label0030__log>Log Digit being sent with delay of %qq% msif(zz==1)noexecute Options7=Actv01Stop00OutO00Dlaytt:MillisStMa00000026label0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10label0011__cmt>//thousandsif(pp==1)qq=ga>>4label0010__cmt>//hundredsif(pp==2)qq=ga>>8label000D__cmt>// tensif(pp==3)qq=ga>>12label000D__cmt>// onesif(pp==4)qq=ga>>16qq=qq&15label0017__log>Digit %pp% = %qq%if(qq!=0)noexecutelabel0006__cmt>label0020__cmt>// this is not working yetgoto0004overlabel001B__cmt>// Skip leading zeroslabel001C__cmt>// leading not skippedvv=0label002D__cmt>// thousands if under 1000 skip digit 1if(pp!=1)sk2iplabel0018__cmt>// leading skippedvv=1noexecuteif(vv==1)skipif(pp!=2)sk2ipvv=1noexecuteif(pp!=3)skipnoexecutelabel0004overlabel0006__cmt>label0006__cmt>label0006__cmt>if(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options8=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Clabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=1)noexecuteif(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Options9=Actv01Stop00OutO00Dlaytt:MillisStMa0000000Clabel0012__cmt>// get digitpp=ga&15label0012__cmt>// set delaytt=pp*10if(pp==1)qq=ga>>4if(pp==2)qq=ga>>8if(pp==3)qq=ga>>12if(pp==4)qq=ga>>16qq=qq&15if(qq!=2)noexecuteif(zz==1)label003B__log>Log pass %pp% Sending keystroke %qq% delay of %tt% msif(zz==1)noexecute Outgoing0=None Outgoing1=Tim0TimS0004Send1:0:1 Outgoing10=KAM10100KSQ10002033233 Outgoing11=KAM10100KSQ10002034234 Outgoing12=KAM10100KSQ10002035235 Outgoing13=KAM10100KSQ10002036236 Outgoing14=KAM10100KSQ10002037237 Outgoing15=KAM10100KSQ10002038238 Outgoing16=KAM10100KSQ10002039239 Outgoing17=Tim0TimS0009Send Post1:0:1 Outgoing18=KAM10100KSQ1000200D20D Outgoing2=Tim0TimS000BSend Prefix1:0:1 Outgoing3=Tim0TimS000ASend Digit1:0:1 Outgoing4=KAM3Text Outgoing5=AcApA000Ceditplus.exe Outgoing6=Tim0TimS000ASend Digit3:0:10 Outgoing7=KAM10100KSQ10002030230 Outgoing8=KAM10100KSQ10002031231 Outgoing9=KAM10100KSQ10002032232 PresetSwitchIgnore=0 [Project] DefaultInPorts=MIDA0001000FFrom Controller DefaultOutPorts=MIDA0000 Version=2 [Signatures] SigName-1=[Midi Translator Pro Internal] Signature-1=nPbbWeIxm2E+YeXcYSgaw1zrWUhDQqooB7F6/Fqziqvr6sT1Cn+6n3LpClfaZ0uDodKlC024LbG8cVwIr4CsZsXCgQCfQPT4+UwUwE7En81tBhgNmJNyckJ2AlxQIbDMUb4IoVPnfUNaB7MZZiMQ9CaJKm+MZ/yFWpJWnHa8ccI= SignedBy-1=Steve Caldwell