var hi1, hi2 : int
var menuinput : int
var ch : string (1)
var file : int
var winningnumbers1, winningnumbers2 : int := 0
var linenumber := 0
var tot2hi4lo : int
var linex : int

loop
    cls
    put "3. high and low"
    put "4. exit"
    get menuinput

    if menuinput = 3 then
        cls
        locate (1, 1)
        put "how many lines"
        get linex
        var lines2h4l : array 0 .. linex of int
%Open the file here early
        open : file, "D:/Winnings.txt", get
        for linez2h4l : 1 .. upper (lines2h4l)

            loop
                loop
                    loop
                        hi1 := Rand.Int (1, 4)
                        hi2 := Rand.Int (1, 4)
                        if hi1 not= hi2
                                and hi2 not= hi1
                                then
                            exit
                        end if
                    end loop

                    var d : int := 0
                    var sure : boolean := false
                    loop
                        if hi1 > hi2 then
                            d := hi1
                            hi1 := hi2
                            hi2 := d
                            sure := false
                        end if
                        exit when sure
                        sure := true
                    end loop

                    tot2hi4lo := hi1 + hi2

                    if tot2hi4lo >= 3 and tot2hi4lo <= 7 then
                        exit
                    end if
                end loop


%Trying to read the file here to make sure my generated numbers don't match
                loop
                    exit when eof (file)
                    get : file, winningnumbers1, winningnumbers2

                end loop


                if (winningnumbers1 xor winningnumbers2) not= (hi1 xor hi2) then
                    exit
                end if


            end loop
            locate (11 + linez2h4l, 1)
            color (36)
            put " ", hi1, " ", hi2, "  = ", tot2hi4lo
            color (16)
            put "----------------------------------------------------------------"
        end for

%Close the file at this point       
        close : file
       
        color (1)
        put "Back To The Menu, Hit Enter"
        getch (ch)
    end if

    if menuinput = 4 then
        exit
    end if
end loop