Print setLang($9)
Print getLang()
Print setLang($7)
Print getLang()
Input()



Function setLang%(id%)
    bank = CreateBank(4)
    api_SystemParametersInfo($59,0,bank,0)
    PokeByte(bank,0,id)
    PokeByte(bank,2,id)
    res%=api_SystemParametersInfo($5A,0,bank)
    FreeBank(bank)
    Return(res)
End Function

Function getLang%()
    bank = CreateBank(4)
    api_SystemParametersInfo($59,0,bank,0)
    res%=PeekByte(bank,0)
    FreeBank(bank)
    Return(res)
End Function