% this chooses the colour code for guessing
    for j : 1 .. 4

        randint (roll, 1, teams)

        if j = 1 then
            code (1) := roll
        end if

        if j = 2 then
            loop

                if roll not= code (1) then
                    code (2) := roll
                    exit
                end if

                randint (roll, 1, 4)

            end loop
        end if


        if j = 3 then
            loop
                if roll not= code (2) and roll not= code (1) then
                    code (3) := roll
                    exit
                end if

                randint (roll, 1, 4)

            end loop
        end if

        if j = 4 then
            loop
                if roll not= code (3) and roll not= code (2) and roll not= code (1) then
                    code (4) := roll
                    exit
                end if

                randint (roll, 1, 4)

            end loop
        end if


        code (j) := roll

             
         put code (j), "         " ..
 
    end for