diff --git a/Datalogger.exe b/Datalogger.exe new file mode 100644 index 0000000..5e297e7 Binary files /dev/null and b/Datalogger.exe differ diff --git a/Default.TGL b/Default.TGL new file mode 100644 index 0000000..9dd7bbe Binary files /dev/null and b/Default.TGL differ diff --git a/FreeLogDLRTP.js b/FreeLogDLRTP.js new file mode 100644 index 0000000..715230c --- /dev/null +++ b/FreeLogDLRTP.js @@ -0,0 +1,87 @@ +// +// Modified by Dan Near LtDanNear for use with FreeLog +// +// Added extra logging routines for commands I use +// +// 25h=0210=VTP&PSP, 26h=0211=VTS,ACS,ATP,Brake, 27h=021B=TPSTipIn, 28h=0220=ACC&PCS, +// 29h=0221=VTS?, 2Ah=0222=ATLockupSol, 2Bh=024F=Gear=Maybe RPM*VSS div 65535? +// 2Ch=03C2=Unused Analog Input?, 2Dh=03C5=IACV, 2Eh=ELD, 2Fh=Extra Input(0066) memory location +// +// Hi. Thanks for your interest in my 'Quick Datalogger +RTP' code. +// Feel free to look around and give me any comments. +// This is a highly optimized Datalog and RTP code used to improve +// the performance of ECU to PC communication. The datalog code +// used is an improvement upon Doc's original datalog code. It removes +// redundant or unnecessary lines of code, saving space and CPU cycles. +// The datalog code is also optimized. +// Probably the most important feature of this RTP/Datalog code is it's +// overall size. It is actually smaller than the original Honda serial_rx +// code so it fits comfortably in the same spot. The advantage of this +// is that converting to RTP/Datalog will not take up any extra bytes that +// can be used for other features instead (like dual maps). And since +// it doesn't compete for space with all other feature codes out there, +// it is compatible for use with almost every feature tool. +// +// Well.. that's just me rambling. Go on, try it out already. +// +// -John Cui, (CROME Lead Developer) +// +function __addFreeLogDLRTP () { + if (rom.base != rtP30) { + alert('This rom is not supported by this plugin.'); + return; + } + // Start Group Undo Point + rom.gup(); + // */ + // Add Dan's DL-RTP+ + // + rom.byteAt(0x2565) = 0xF8; + rom.byteAt(0x38D5) = 0xF8; + + rom.wordAt(0x000A) = 0x01FD; + _rom_write(0x01FD, + new Array(0xE5,0xF4,0xD5,0x1A,0xB5,0x04,0x98,0x02, + 0x01,0x57,0x6F,0x00,0xF9,0xF5,0x55,0x23, + 0xC0,0x00,0xCE,0x48,0xC6,0x07,0xC9,0x33, + 0xC6,0x08,0xC9,0x34,0xC6,0xAB,0xC9,0x33, + 0x8A,0xC6,0x30,0xC8,0x32,0xA6,0x10,0xCD, + 0x03,0xAB,0xCB,0x17,0xE5,0x06,0x95,0x53, + 0x62,0x97,0x02,0x92,0x81,0x92,0xA8,0x52, + 0xB2,0x4A,0xF2,0x92,0x15,0x44,0x15,0x45, + 0x15,0xD5,0x51,0xE5,0xF2,0xA2,0xD0,0xFE, + 0xD5,0x1A,0x02,0x92,0xAA,0x72,0xCB,0xF1, + 0x7D,0xCB,0xE8,0x77,0xCD,0xCB,0xE4,0x67, + 0x55,0x00,0xCB,0xDF,0x23,0xC0,0x01,0xCE, + 0x04,0x89,0xAB,0xCB,0xDE,0x23,0xC0,0x02, + 0xCE,0x10,0x88,0x44,0x7A,0x22,0xC0,0x01, + 0xC9,0x1A,0x22,0xC0,0x03,0xC9,0x1F,0xAB, + 0xCB,0xC9,0x23,0xC0,0x03,0xCE,0xD8,0x22, + 0xC0,0x02,0xC9,0x07,0x22,0xC0,0x04,0xC9, + 0x06,0xCB,0xCC,0xD2,0xF2,0xCB,0xAC,0x92, + 0x80,0x00,0x80,0xD2,0x44,0x7A,0x92,0xAA, + 0xCB,0xA1,0xC8,0x03,0xC0,0x03,0xBE,0x03, + 0xC1,0x03,0xA3,0x00,0x92,0x03,0xAC,0x00, + 0xAD,0x00,0x1F,0x01,0xD8,0x01,0xD9,0x01, + 0xD2,0x01,0x12,0x01,0x13,0x01,0x14,0x01, + 0x15,0x01,0xB4,0x00,0xD4,0x03,0xD5,0x03, + 0x44,0x02,0x43,0x02,0x3A,0x01,0x3C,0x43, + 0x52,0x4F,0x4D,0x45,0x3E), + 0xCD); + _rom_write(0x02C1, + new Array(0x10,0x02,0x11,0x02,0x1B,0x02,0x20,0x02, + 0x21,0x02,0x22,0x02,0x4F,0x02,0xC2,0x03, + 0xC5,0x03,0x66,0x00), + 0x14); + _rom_fill(0x02D6, 0x02DC, 0xFF); + // */ + // End Group Undo Point + rom.gup(); + alert('FreeLog DL+RTP Added!'); +} + +function __aboutFDLRTP() { + alert("FreeLog DL+RTP version 1.0\nby Dan Near"); +} + +addPlugin('Dan Near', 'FreeLog DL+RTP', '__addFreeLogDLRTP(1)', '__aboutFDLRTP()', 1); diff --git a/GridColors.Dat b/GridColors.Dat new file mode 100644 index 0000000..f6e98e9 Binary files /dev/null and b/GridColors.Dat differ diff --git a/INSTALLER/COMDLG32.OCX b/INSTALLER/COMDLG32.OCX new file mode 100644 index 0000000..84022fb Binary files /dev/null and b/INSTALLER/COMDLG32.OCX differ diff --git a/INSTALLER/FLEXWIZ.OCX b/INSTALLER/FLEXWIZ.OCX new file mode 100644 index 0000000..c980dd8 Binary files /dev/null and b/INSTALLER/FLEXWIZ.OCX differ diff --git a/INSTALLER/Install.bat b/INSTALLER/Install.bat new file mode 100644 index 0000000..c0677ea --- /dev/null +++ b/INSTALLER/Install.bat @@ -0,0 +1,46 @@ +@ECHO OFF + +ECHO Freelog Support File Installation +ECHO pgmfi.org + +ECHO. +ECHO Removing FreeLog entry from the registry +REGEDIT /s clear_registry.reg +ECHO done... + +ECHO. +ECHO Copying important dlls / ocx +Copy /-Y mscomm32.ocx c:\windows\system32\ +Copy /-Y comdlg32.ocx c:\windows\system32\ +Copy /-Y flexwiz32.ocx c:\windows\system32\ +Copy /-Y mscomctl32.ocx c:\windows\system32\ +Copy /-Y msdatgrd32.ocx c:\windows\system32\ +Copy /-Y msflxgrd32.ocx c:\windows\system32\ +Copy /-Y msscript32.ocx c:\windows\system32\ +Copy /-Y tabctl32.ocx c:\windows\system32\ +Copy /-Y msstdfmt.dll c:\windows\system32\ +Copy /-Y msvcrt.dll c:\windows\system32\ +Copy /-Y scrrun.dll c:\windows\system32\ +Copy /-Y vb6stkit.dll c:\windows\system32\ +ECHO done... + +ECHO. +ECHO Registrying dlls/ocx +regsvr32 /s c:\windows\system32\mscomm32.ocx +regsvr32 /s c:\windows\system32\comdlg32.ocx +regsvr32 /s c:\windows\system32\flexwiz32.ocx +regsvr32 /s c:\windows\system32\mscomctl32.ocx +regsvr32 /s c:\windows\system32\msdatgrd32.ocx +regsvr32 /s c:\windows\system32\msflxgrd32.ocx +regsvr32 /s c:\windows\system32\msscript32.ocx +regsvr32 /s c:\windows\system32\tabctl32.ocx +regsvr32 /s c:\windows\system32\msstdfmt.dll +regsvr32 /s c:\windows\system32\msvcrt.dll +regsvr32 /s c:\windows\system32\scrrun.dll +regsvr32 /s c:\windows\system32\vb6stkit.dll +ECHO done.. + +ECHO. +ECHO Try running Freelog now and report any bugs to the forum (pgmfi.org) +ECHO Goodluck !! + diff --git a/INSTALLER/MSCOMCTL.OCX b/INSTALLER/MSCOMCTL.OCX new file mode 100644 index 0000000..075849b Binary files /dev/null and b/INSTALLER/MSCOMCTL.OCX differ diff --git a/INSTALLER/MSCOMM32.OCX b/INSTALLER/MSCOMM32.OCX new file mode 100644 index 0000000..1fc5fb4 Binary files /dev/null and b/INSTALLER/MSCOMM32.OCX differ diff --git a/INSTALLER/MSDATGRD.OCX b/INSTALLER/MSDATGRD.OCX new file mode 100644 index 0000000..f4bf759 Binary files /dev/null and b/INSTALLER/MSDATGRD.OCX differ diff --git a/INSTALLER/MSSCRIPT.OCX b/INSTALLER/MSSCRIPT.OCX new file mode 100644 index 0000000..f6f3e69 Binary files /dev/null and b/INSTALLER/MSSCRIPT.OCX differ diff --git a/INSTALLER/MSSTDFMT.DLL b/INSTALLER/MSSTDFMT.DLL new file mode 100644 index 0000000..889d727 Binary files /dev/null and b/INSTALLER/MSSTDFMT.DLL differ diff --git a/INSTALLER/MSVCRT.DLL b/INSTALLER/MSVCRT.DLL new file mode 100644 index 0000000..a03646c Binary files /dev/null and b/INSTALLER/MSVCRT.DLL differ diff --git a/INSTALLER/Msflxgrd.oca b/INSTALLER/Msflxgrd.oca new file mode 100644 index 0000000..a0473a8 Binary files /dev/null and b/INSTALLER/Msflxgrd.oca differ diff --git a/INSTALLER/Msflxgrd.ocx b/INSTALLER/Msflxgrd.ocx new file mode 100644 index 0000000..5e81e64 Binary files /dev/null and b/INSTALLER/Msflxgrd.ocx differ diff --git a/INSTALLER/SCRRUN.DLL b/INSTALLER/SCRRUN.DLL new file mode 100644 index 0000000..1ddebf6 Binary files /dev/null and b/INSTALLER/SCRRUN.DLL differ diff --git a/INSTALLER/SETUP.LST b/INSTALLER/SETUP.LST new file mode 100644 index 0000000..64996a2 --- /dev/null +++ b/INSTALLER/SETUP.LST @@ -0,0 +1,81 @@ +[Bootstrap] +SetupTitle=Install +SetupText=Copying Files, please stand by. +CabFile=Datalogger.CAB +Spawn=Setup1.exe +Uninstal=st6unst.exe +TmpDir=msftqws.pdw +Cabs=1 + +[Bootstrap Files] +File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 1:00:00 AM,101888,6.0.84.50 + +[IconGroups] +Group0=FreeLog +PrivateGroup0=True +Parent0=$(Programs) + +[FreeLog] +Icon1="Datalogger.exe" +Title1=FreeLog +StartIn1=$(AppPath) + +[Setup] +Title=FreeLog 1.0.93 Beta +DefaultDir=$(ProgramFiles)\FreeLog Beta +AppExe=Datalogger.exe +AppToUninstall=Datalogger.exe + +[Setup1 Files] +File1=@GridColors.Dat,$(AppPath),,$(Shared),10/31/05 11:37:21 PM,7456,0.0.0.0 +File2=@FreeLogDLRTP.js,$(AppPath),,$(Shared),10/30/05 1:40:58 PM,3967,0.0.0.0 +File3=@datalog.mod,$(AppPath),,$(Shared),3/11/07 10:03:05 PM,3486,0.0.0.0 +File4=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 12:00:00 AM,119808,6.1.97.82 +File5=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/7/99 12:00:00 AM,262152,6.0.84.18 +File6=@tabctl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43 +File7=@msflxgrd.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 4:58:12 PM,244416,6.0.84.18 +File8=@MSCOMCTL.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 5:45:46 AM,1081616,6.1.97.82 +File9=@FLEXWIZ.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/24/98 12:00:00 AM,226328,6.0.0.8169 +File10=@Mscomm32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/30/99 11:04:32 AM,103744,6.0.81.69 +File11=@COMDLG32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/22/06 10:10:52 PM,152848,6.1.97.82 +File12=@msscript.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/13/08 8:10:20 PM,110592,1.0.0.16599 +File13=@Datalogger.exe,$(AppPath),,,8/28/08 10:18:30 PM,1286144,1.0.0.93 + +; The following lines may be deleted in order to obtain extra +; space for customizing this file on a full installation diskette. +; +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX diff --git a/INSTALLER/VB6STKIT.DLL b/INSTALLER/VB6STKIT.DLL new file mode 100644 index 0000000..0e9fa61 Binary files /dev/null and b/INSTALLER/VB6STKIT.DLL differ diff --git a/INSTALLER/clear_registry.reg b/INSTALLER/clear_registry.reg new file mode 100644 index 0000000..7ac6128 --- /dev/null +++ b/INSTALLER/clear_registry.reg @@ -0,0 +1,3 @@ +REGEDIT4 + +[-HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Open Source Datalogger] \ No newline at end of file diff --git a/INSTALLER/readme.txt b/INSTALLER/readme.txt new file mode 100644 index 0000000..5f45d68 --- /dev/null +++ b/INSTALLER/readme.txt @@ -0,0 +1,4 @@ +Run Install.bat or copy all files to c:\windows\system32\ + +Daniel Near +pgmfi.org \ No newline at end of file diff --git a/INSTALLER/setup.exe b/INSTALLER/setup.exe new file mode 100644 index 0000000..40044cd Binary files /dev/null and b/INSTALLER/setup.exe differ diff --git a/INSTALLER/tabctl32.ocx b/INSTALLER/tabctl32.ocx new file mode 100644 index 0000000..5a661fb Binary files /dev/null and b/INSTALLER/tabctl32.ocx differ diff --git a/TempData.Dat b/TempData.Dat new file mode 100644 index 0000000..0ced23d Binary files /dev/null and b/TempData.Dat differ diff --git a/datalog.mod b/datalog.mod new file mode 100644 index 0000000..0df4a1b --- /dev/null +++ b/datalog.mod @@ -0,0 +1,171 @@ +'FreeLog 1.0 +'VBScript Engine +'Note: Below are important functions of datalogger that you can customize. +' DO NOT CHANGE THE NAME OF FUNCTIONS OR THE NUMBER OF ARGUMENT +' DO NOT CHANGE THE NAME OF FUNCTIONS OR THE NUMBER OF ARGUMENT +' +' Start at the bottom of the page for custom functions + +Sub CalcFuelTbl(rxlcr, rxhcr, rxcol) + Call setFT(rxlcr, rxhcr, rxcol) +End Sub + +Function CalcBaro(rxbaro) + CalcBaro=round( ( (rxbaro/51) * -11.49) - 33.6 ,1) +End Function + +Function CalcEct(rxect) + CalcEct = MakeTemp(rxect) +End Function + +Function Calciat(rxiat) + CalcIat = MakeTemp(rxiat) +End Function + +Function MakeTemp(Index) + V = index / 51 + R6 = 0.1423 * V ^ 6 + R5 = 2.4938 * V ^ 5 + R4 = 17.837 * V ^ 4 + R3 = 68.698 * V ^ 3 + R2 = 154.69 * V ^ 2 + R1 = 232.75 * V + MakeTemp = Round( (R6 - R5 + R4 - R3 + R2 - R1 + 284.24) , 0) +End Function + +Function CalcMap(rxmap) + CalcMap=round( ( (rxmap/51) * -11.49) - 33.6 ,1) +End Function + +Function CalcExtra1(rxextra1) + CalcExtra1=rxextra1+5 +End Function + +Function CalcExtra2(rxextra2) + CalcExtra2=rxextra * 2 +End Function + +Function CalcExtra3(rxextra3) + CalcExtra3=rxextra *3 +End Function + +Function CalcExtra4(rxextra4) + CalcExtra4=4 +End Function + +Function CalcExtra5(rxextra5) + CalcExtra5=round(rxextra5/5,1) +End Function + +Function CalcExtra6(rxextra6) + CalcExtra6=0 +End Function + +Function CalcExtra7(rxextra7) + CalcExtra7=0 +End Function + +Function CalcExtra8(rxextra8) + CalcExtra8=0 +End Function + +Function CalcExtra9(rxextra9) + CalcExtra9=0 +End Function + +Function CalcExtra10(rxextra10) + CalcExtra10=0 +End Function + +Function CalcExtra11(rxextra11) + CalcExtra11=0 +End Function + +Function CalcExtra12(rxextra12) + CalcExtra12=0 +End Function + +Function CalcExtra13(rxextra13) + CalcExtra13=0 +End Function + +Function CalcExtra14(rxextra14) + CalcExtra14 = 0 +End Function + +Function CalcExtra15(rxextra15) + CalcExtra15 = 0 +End Function + +Function CalcExtra16(rxextra16) + CalcExtra16 = 0 +End Function + +Function CalcExtra17(rxextra17) + CalcExtra17 = 0 +End Function + +Function CalcExtra18(rxextra18) + CalcExtra18 = 0 +End Function +Function CalcExtra19(rxextra18) + CalcExtra19 = 0 +End Function + +Function CalcExtra20(rxextra18) + CalcExtra20 = 0 +End Function + +Function CalcExtra21(rxextra18) + CalcExtra21 = 0 +End Function + +Function CalcExtra22(rxextra18) + CalcExtra22 = 0 +End Function + +Function CalcExtra23(rxextra18) + CalcExtra23 = 0 +End Function + +Function CalcExtra24(rxextra18) + CalcExtra24 = 0 +End Function + +Function CalcExtra25(rxextra18) + CalcExtra25 = 0 +End Function + + +Function CalcO2( rxo2 ) + CalcO2=round( ( 2 * rxo2 ) + 10 , 1 ) +End Function + +Function CalcTps( rxtps ) + CalcTps=( 0.4716 * rxtps ) - 11.3184 +End Function + +Function CalcSpd(rxspd) + CalcSpeed=round(rxspd*.6213,0) +End Function + +Function CalcRpm(rpmhi, rpmlo) + temp=(rpmhi*256)+rpmlo + if temp=0 then + calcrpm=0 + else + CalcRpm=round(1875000/temp,0) + end if +End Function + +Function CalcVtec(rxvtec) + if rxvtec=2 or rxvtec=6 then + CalcVtec=1 + else + CalcVtec=0 + End If +End Function + +'**************************************************************************** +'CUSTOM FUNCTIONS AND VARIABLES START HERE +'**************************************************************************** \ No newline at end of file