%Main start up, asking for what to convert%
var sChoose : string := ""
var iChoose2 : int := 0
var sChoosedecimal : int := 0
var sChoosebinary : string := ""
var sChoosehexadecimal : string := ""
var sChooseanswer : boolean
var sChooseoctal : string := ""
loop
    put "This is the Conversion program that will convert any number"
    put "What do you want to convert, decimal, binary or hexadecimal"
    get sChoose
    exit when sChoose = "decimal" or sChoose = "binary" or sChoose = "hexadecimal"
end loop
%gets value for the first choice%
loop
    put "Enter your ", sChoose, " number"
    if sChoose = "decimal" then
        get sChoosedecimal
        sChooseanswer := true
    elsif sChoose = "binary" then
        get sChoosebinary
        sChooseanswer := true
    elsif sChoose = "hexadecimal" then
        get sChoosehexadecimal
        sChooseanswer := true
elsif sChoose = "octal" then
get sChooseoctal
sChooseanswer:= true
    end if
    exit when sChooseanswer = true
end loop
%gets the value of the second choice%
loop
    put "What do you want to convert it into?"
    put "Enter 1 for decimal, 2 for binary, 3 for hexadecimal or 4 for octal"
    get iChoose2
    if iChoose2 = 1 then
        put "Enter your decimal number from 1-255"
    elsif iChoose2 = 2 then
        put "Enter your 8 digit binary number"
    elsif iChoose2 = 3 then
        put "Enter your 2 digit hexadecimal value"
    end if
    exit when iChoose2 = 1 or iChoose2 = 2 or iChoose2 = 3
end loop
%Decimal to Binary conversion%
function dectobin (iNum2 : int) : string
    var iBinary : int := 256
    var stringbin : string := ""
    var iNum := iNum2
    for i : 1 .. 8
        iBinary := iBinary div 2
        if iNum - iBinary > 0 then
            stringbin := stringbin + "1"
            iNum := iNum - iBinary
        else
            stringbin := stringbin + "0"
        end if
    end for
    result stringbin
end dectobin
%Octal to Decimal Conversion%
        function octtodec (iNum2 : string) : int
            var iOctal : int := 0
            if iNum2 (1) = "1" then
                iOctal := iOctal + 64 %this is where 8 is to the power of 2 multiplied by the number entered, for the first digit of octal%
            elsif iNum2 (1) = "2" then
                iOctal := iOctal + 128
            elsif iNum2 (1) = "3" then
                iOctal := iOctal + 192
            elsif iNum2 (1) = "4" then
                iOctal := iOctal + 256
            elsif iNum2 (1) = "5" then
                iOctal := iOctal + 320
            elsif iNum2 (1) = "6" then
                iOctal := iOctal + 384
            elsif iNum2 (1) = "7" then
                iOctal := iOctal + 448
            end if
            if iNum2 (2) = "1" then % this is where 8 is to the power of 1 and multiplied by the number entered, for the second digit of octal%
                iOctal := iOctal + 8
            elsif iNum2 (2) = "2" then
                iOctal := iOctal + 16
            elsif iNum2 (2) = "3" then
                iOctal := iOctal + 24
            elsif iNum2 (2) = "4" then
                iOctal := iOctal + 32
            elsif iNum2 (2) = "5" then
                iOctal := iOctal + 40
            elsif iNum2 (2) = "6" then
                iOctal := iOctal + 48
            elsif iNum2 (2) = "7" then
                iOctal := iOctal + 56
            end if
            if iNum2 (3) = "1" then %this is where there is no power of 8 and it is just the number entered for the last digit%
                iOctal := iOctal + 1
            elsif iNum2 (3) = "2" then
                iOctal := iOctal + 2
            elsif iNum2 (3) = "3" then
                iOctal := iOctal + 3
            elsif iNum2 (3) = "4" then
                iOctal := iOctal + 4
            elsif iNum2 (3) = "5" then
                iOctal := iOctal + 5
            elsif iNum2 (3) = "6" then
                iOctal := iOctal + 6
            elsif iNum2 (3) = "7" then
                iOctal := iOctal + 7
            end if
            result iOctal
        end octtodec