Type LevelCodes
    As String Codes(1 to 50)
    
    Declare Constructor()
    Declare Function CheckCode(Code as String) as Integer
End Type

Constructor LevelCodes()
    Codes(1) = "bhfFgT"
    Codes(2) = "woAoUC"
    Codes(3) = "XYVovH"
    Codes(4) = "psEIjO"
    Codes(5) = "VEcclq"
    Codes(6) = "nxyvyN"
    Codes(7) = "dTJBiF"
    Codes(8) = "USLPcq"
    Codes(9) = "HZwnzv"
    Codes(10) = "EsKNbu"
    Codes(11) = "ZeGQNE"
    Codes(12) = "UQFhoK"
    Codes(13) = "LrINoh"
    Codes(14) = "sVqhIQ"
    Codes(15) = "ESPwET"
    Codes(16) = "mxIXnJ"
    Codes(17) = "LtKRLL"
    Codes(18) = "wiHTDc"
    Codes(19) = "Gghlgq"
    Codes(20) = "amOtBN"
    Codes(21) = "FnEAHb"
    Codes(22) = "uOjxMf"
    Codes(23) = "AWBmFp"
    Codes(24) = "cWqFor"
    Codes(25) = "LrkqqW"
    Codes(26) = "RvqxSI"
    Codes(27) = "vVOgvI"
    Codes(28) = "vpcDZu"
    Codes(29) = "ejHFBc"
    Codes(30) = "IfqoaK"
    Codes(31) = "LmyfYI"
    Codes(32) = "zSdpwf"
    Codes(33) = "xDYGFt"
    Codes(34) = "sUZHzN"
    Codes(35) = "QuVjLr"
    Codes(36) = "LfHNMh"
    Codes(37) = "pJyrRg"
    Codes(38) = "ULFZUv"
    Codes(39) = "xzvedy"
    Codes(40) = "rhnTtW"
    Codes(41) = "oPZnHi"
    Codes(42) = "rWzCaJ"
    Codes(43) = "AXDtsU"
    Codes(44) = "kLKHRb"
    Codes(45) = "sRdWYD"
    Codes(46) = "BPvljO"
    Codes(47) = "RuaUsD"
    Codes(48) = "kRpSdH"
    Codes(49) = "JBQqdO"
    Codes(50) = "DpPXZH"
End Constructor

Function LevelCodes.CheckCode(LVLCode as String) as Integer
    Dim as Integer a
    
    For a = 1 to 50
        If LVLCode = Codes(a) then Return a
    Next a
    If Val(LVLCode) >= 50 then Return Val(LVLCode)
    
    Return 1
End Function