Intermec Sabre 1555, Programmer'S Reference Manual

Page: 55 / 178

Interactive Programming Mode
4-15
4
lSum = lSum + nWeight * Val("&H" & sByte & "&")
nWeight = nWeight - 1
Next i
sCksum = Hex(lSum)
If Len(sCksum) > 4 Then
sCksum = Mid(sCksum, 1, 4)
End If
If Len(sCksum) < 4 Then
If Len(sCksum) = 3 Then sCksum = "0" & sCksum
If Len(sCksum) = 2 Then sCksum = "00" & sCksum
End If
ChecksumCalc = sCksum
‘the correct checksum for the IMC On command is: CheckSumVal =
”0039”
cmd = “0A00010102” & CheckSumVal
'check for special DLE characters in command string
TmpStr = ""
tmpCMDStr = ""
For x = 1 To Len(cmd) Step 2
TmpStr = Mid(cmd, x, 2)
If TmpStr = "7F" Then tmpCMDStr = tmpCMDStr & "EE80"
If TmpStr = "EE" Then tmpCMDStr = tmpCMDStr & "EEEF"
If TmpStr <> "7F" Or TmpStr <> "EE" Then tmpCMDStr =
tmpCMDStr & TmpStr
Next x
cmd = ""
cmd = tmpCMDStr
cmd = "7F" & cmd & "7F"
‘the complete command with checksum and the start and end
characters added is as follows:
‘cmd = “7F0A0001010200397F”}
Note: Specification AFNOR Z63.300/EN 799/USS describes the checksum
calculation method for Code 128.