Attribute VB_Name = "mASCII"
Option Explicit
    Dim arrChr(1 To 255)
    Public loadedArr As Boolean
    

Public Function g_Chr(lChrID As Integer) As String
    If loadedArr = False Then
        LoadArrayASCII
    End If
    
    If lChrID < 256 And lChrID > 0 Then
        g_Chr = arrChr(lChrID)
    Else
        g_Chr = 0
    End If

End Function

Public Function g_Asc(strChr As String) As Integer
Dim i As Integer
Dim foundMatch As Integer
    foundMatch = -1

    If loadedArr = False Then
        LoadArrayASCII
    End If
    
    For i = 1 To 255
        If arrChr(i) = strChr Then
            foundMatch = i
        End If
    Next i

    If foundMatch = -1 Then
        g_Asc = 0
    Else
        g_Asc = foundMatch
    End If
End Function

Public Function LoadArrayASCII()
    loadedArr = True
'    MyDebug "Loading ASCII Array..."
    arrChr(1) = "
"
    arrChr(2) = ""
    arrChr(3) = ""
    arrChr(4) = ""
    arrChr(5) = ""
    arrChr(6) = ""
    arrChr(7) = ""
    arrChr(8) = ""
    arrChr(9) = vbTab
    arrChr(10) = vbLf
    arrChr(11) = ""
    arrChr(12) = ""
    arrChr(13) = vbCr
    arrChr(14) = ""
    arrChr(15) = ""
    arrChr(16) = ""
    arrChr(17) = ""
    arrChr(18) = ""
    arrChr(19) = ""
    arrChr(20) = ""
    arrChr(21) = ""
    arrChr(22) = ""
    arrChr(23) = ""
    arrChr(24) = ""
    arrChr(25) = ""
    arrChr(26) = ""
    arrChr(27) = ""
    arrChr(28) = ""
    arrChr(29) = ""
    arrChr(30) = ""
    arrChr(31) = ""
    arrChr(32) = " "
    arrChr(33) = "!"
    arrChr(34) = """"
    arrChr(35) = "#"
    arrChr(36) = "$"
    arrChr(37) = "%"
    arrChr(38) = "&"
    arrChr(39) = "'"
    arrChr(40) = "("
    arrChr(41) = ")"
    arrChr(42) = "*"
    arrChr(43) = "+"
    arrChr(44) = ","
    arrChr(45) = "-"
    arrChr(46) = "."
    arrChr(47) = "/"
    arrChr(48) = "0"
    arrChr(49) = "1"
    arrChr(50) = "2"
    arrChr(51) = "3"
    arrChr(52) = "4"
    arrChr(53) = "5"
    arrChr(54) = "6"
    arrChr(55) = "7"
    arrChr(56) = "8"
    arrChr(57) = "9"
    arrChr(58) = ":"
    arrChr(59) = ";"
    arrChr(60) = "<"
    arrChr(61) = "="
    arrChr(62) = ">"
    arrChr(63) = "?"
    arrChr(64) = "@"
    arrChr(65) = "A"
    arrChr(66) = "B"
    arrChr(67) = "C"
    arrChr(68) = "D"
    arrChr(69) = "E"
    arrChr(70) = "F"
    arrChr(71) = "G"
    arrChr(72) = "H"
    arrChr(73) = "I"
    arrChr(74) = "J"
    arrChr(75) = "K"
    arrChr(76) = "L"
    arrChr(77) = "M"
    arrChr(78) = "N"
    arrChr(79) = "O"
    arrChr(80) = "P"
    arrChr(81) = "Q"
    arrChr(82) = "R"
    arrChr(83) = "S"
    arrChr(84) = "T"
    arrChr(85) = "U"
    arrChr(86) = "V"
    arrChr(87) = "W"
    arrChr(88) = "X"
    arrChr(89) = "Y"
    arrChr(90) = "Z"
    arrChr(91) = "["
    arrChr(92) = "\"
    arrChr(93) = "]"
    arrChr(94) = "^"
    arrChr(95) = "_"
    arrChr(96) = "`"
    arrChr(97) = "a"
    arrChr(98) = "b"
    arrChr(99) = "c"
    arrChr(100) = "d"
    arrChr(101) = "e"
    arrChr(102) = "f"
    arrChr(103) = "g"
    arrChr(104) = "h"
    arrChr(105) = "i"
    arrChr(106) = "j"
    arrChr(107) = "k"
    arrChr(108) = "l"
    arrChr(109) = "m"
    arrChr(110) = "n"
    arrChr(111) = "o"
    arrChr(112) = "p"
    arrChr(113) = "q"
    arrChr(114) = "r"
    arrChr(115) = "s"
    arrChr(116) = "t"
    arrChr(117) = "u"
    arrChr(118) = "v"
    arrChr(119) = "w"
    arrChr(120) = "x"
    arrChr(121) = "y"
    arrChr(122) = "z"
    arrChr(123) = "{"
    arrChr(124) = "|"
    arrChr(125) = "}"
    arrChr(126) = "~"
    arrChr(127) = ""
    arrChr(128) = "�"
    arrChr(129) = "�"
    arrChr(130) = "�"
    arrChr(131) = "�"
    arrChr(132) = "�"
    arrChr(133) = "�"
    arrChr(134) = "�"
    arrChr(135) = "�"
    arrChr(136) = "�"
    arrChr(137) = "�"
    arrChr(138) = "�"
    arrChr(139) = "�"
    arrChr(140) = "�"
    arrChr(141) = "�"
    arrChr(142) = "�"
    arrChr(143) = "�"
    arrChr(144) = "�"
    arrChr(145) = "�"
    arrChr(146) = "�"
    arrChr(147) = "�"
    arrChr(148) = "�"
    arrChr(149) = "�"
    arrChr(150) = "�"
    arrChr(151) = "�"
    arrChr(152) = "�"
    arrChr(153) = "�"
    arrChr(154) = "�"
    arrChr(155) = "�"
    arrChr(156) = "�"
    arrChr(157) = "�"
    arrChr(158) = "�"
    arrChr(159) = "�"
    arrChr(160) = "�"
    arrChr(161) = "�"
    arrChr(162) = "�"
    arrChr(163) = "�"
    arrChr(164) = "�"
    arrChr(165) = "�"
    arrChr(166) = "�"
    arrChr(167) = "�"
    arrChr(168) = "�"
    arrChr(169) = "�"
    arrChr(170) = "�"
    arrChr(171) = "�"
    arrChr(172) = "�"
    arrChr(173) = "�"
    arrChr(174) = "�"
    arrChr(175) = "�"
    arrChr(176) = "�"
    arrChr(177) = "�"
    arrChr(178) = "�"
    arrChr(179) = "�"
    arrChr(180) = "�"
    arrChr(181) = "�"
    arrChr(182) = "�"
    arrChr(183) = "�"
    arrChr(184) = "�"
    arrChr(185) = "�"
    arrChr(186) = "�"
    arrChr(187) = "�"
    arrChr(188) = "�"
    arrChr(189) = "�"
    arrChr(190) = "�"
    arrChr(191) = "�"
    arrChr(192) = "�"
    arrChr(193) = "�"
    arrChr(194) = "�"
    arrChr(195) = "�"
    arrChr(196) = "�"
    arrChr(197) = "�"
    arrChr(198) = "�"
    arrChr(199) = "�"
    arrChr(200) = "�"
    arrChr(201) = "�"
    arrChr(202) = "�"
    arrChr(203) = "�"
    arrChr(204) = "�"
    arrChr(205) = "�"
    arrChr(206) = "�"
    arrChr(207) = "�"
    arrChr(208) = "�"
    arrChr(209) = "�"
    arrChr(210) = "�"
    arrChr(211) = "�"
    arrChr(212) = "�"
    arrChr(213) = "�"
    arrChr(214) = "�"
    arrChr(215) = "�"
    arrChr(216) = "�"
    arrChr(217) = "�"
    arrChr(218) = "�"
    arrChr(219) = "�"
    arrChr(220) = "�"
    arrChr(221) = "�"
    arrChr(222) = "�"
    arrChr(223) = "�"
    arrChr(224) = "�"
    arrChr(225) = "�"
    arrChr(226) = "�"
    arrChr(227) = "�"
    arrChr(228) = "�"
    arrChr(229) = "�"
    arrChr(230) = "�"
    arrChr(231) = "�"
    arrChr(232) = "�"
    arrChr(233) = "�"
    arrChr(234) = "�"
    arrChr(235) = "�"
    arrChr(236) = "�"
    arrChr(237) = "�"
    arrChr(238) = "�"
    arrChr(239) = "�"
    arrChr(240) = "�"
    arrChr(241) = "�"
    arrChr(242) = "�"
    arrChr(243) = "�"
    arrChr(244) = "�"
    arrChr(245) = "�"
    arrChr(246) = "�"
    arrChr(247) = "�"
    arrChr(248) = "�"
    arrChr(249) = "�"
    arrChr(250) = "�"
    arrChr(251) = "�"
    arrChr(252) = "�"
    arrChr(253) = "�"
    arrChr(254) = "�"
    arrChr(255) = "�"
End Function