Imports Microsoft.VisualBasic
For i As Short = 0 To 6374
Dim str As String = strBCDtoStr(i)
Console.WriteLine($"{i,3}{vbtab}{str}{vbtab}{StrToShort(str),3}" ) Public Function strBCDToStr(ByVal shIn As Short) As String
Dim m_strTemp As String = ""
For m_iLoop As Integer = 1 To 4
m_strTemp = Chr((shIn Mod 16) + 48) & m_strTemp
Public Function StrToShort(bcd As String) As Short
bcd = bcd.Replace(":", "A").Replace(";", "B").Replace("<", "C").Replace("=","D").Replace(">", "E").Replace("?", "F") Return Convert.ToInt16(bcd, 16)
