Specifications

52
TxInitializeOk = False
EndIf
If NOT (FastScanMode OR LastFastScan) Then
SerialOut(ComRS232,"AT+PP=0"+CHR(13)+CHR(10),"",1,10)
EndIf
SerialClose(ComRS232)
NGPSFLAG = false
TxPowerDueForSwOff = True
ElseIf (FastScanMode OR LastFastScan)
Call TxModuleInit
If TxInitializeOk Then
SerialOut(ComRS232,"AT*S=0"+CHR(13)+CHR(10),"",1,10)
SerialOut(ComRS232,"AT+PP=1"+CHR(13)+CHR(10),"",1,10)'should be sent as
SerialOut(ComRS232,"AT+PNAV=1"+CHR(13)+CHR(10),"",1,10)'should be sent a
SerialClose(ComRS232)
EndIf
If NOT (BestHDPseen < 100) Then'so to avoid deleting a previously obtained
For ParseStrIT=1 To 15
ParseStr(ParseStrIT)=""
Next
EndIf
EndIf
'Final Battery Voltage measurement Batt_Volt and Low_Batt check (do this befor
Battery(Batt_VoltF)
Batt_V_Drop = Batt_VoltI - Batt_VoltF
If Batt_VoltF < LoBattThre Then Low_Batt = True
If Batt_VoltF >= LoBattThre + LoBattResHyst Then Low_Batt = False
'***************************************************************************
'***************************************************************************
'\'SerialClose(com2)
Timer(2,sec,3)
SW12(False)'Disables switched 12V supply
SW12Von=False
EndIf
If TimeIntoInterval(0,ScanRate,sec) Then
CallTable(TableDiagnostics)
CallTable(TableMem)
' If TableMem.Output(1,1) Then
' BestHDPseen = 100
' EndIf
If FanPowerDueForSwOff AND NOT FastScanMode
PortSet(8,false)
Asp_fan_on = False
FanPowerDueForSwOff = False
EndIf
If IsSummer Then
CallTable(TableSummerTx)
If TableSummerTx.Output(1,1) Then
BestHDPseen = 100
TxBufferString=""
TableInstantaneousString=""
TxStringUnstripped=""
TxString=""
GetRecord(TxBufferString,TableSummerTx,1)
If AppendInstantaneous AND TimeIntoInterval(0, HoursInstantaneous, hr) T
CallTable(InstantaneousTable)
GetRecord(TableInstantaneousString,InstantaneousTable,1)