Specifications

54
For StringStripperIT=StripStringStart To Len(TxStringUnstripped)-5'5 i
StringChar=Mid(TxStringUnstripped, StringStripperIT, 1)
If StringChar<>CHR(34) Then TxString=TxString+StringChar
Next StringStripperIT
TxString=TxString+",!M"'*************in summer too
'TxString=Right(TxString,Len(TxString)-InStr(1,TxString,CHR(44),4)+0)
Call IridiumTx
MPFLAG=false'remove!!
If NOT TxSendSuccess Then ExitFor
Next
If SendRecordIT = 0 Then ResetTable(TxBufferTable)
SendRecordBacklog = SendRecordIT
TxPowerDueForSwOff = True
EndIf
EndIf
EndIf
If TxPowerDueForSwOff AND NOT (FastScanMode OR LastFastScan) Then
SerialOut(ComRS232,"AT*F"+CHR(13)+CHR(10),"OK",1,100)' to allow 5 secs f
Delay(0,1,sec)
PortSet(6,false)
TxModuleGPSPowerOn = False
TxInitializeOk = False'turn this off??
TxPowerDueForSwOff = False
EndIf
If LastFastScan Then LastFastScan = False
If FanPowerDueForSwOff AND NOT FastScanMode
PortSet(8,false)
Asp_fan_on = False
FanPowerDueForSwOff = False
EndIf
SerialClose(ComRS232)
Batt_VoltI = -999' Batt_VoltF doesn't need such a NODATA value, so it is lef
PulsePort(5,10000)
NextScan
EndProg