subroutine InitMasked(string: Dialog_SV) is

 

string  Child_SV

        InitialValue_SV

 

    for each child Child_SV of Dialog_SV loop

        switch type of Child_SV is

            case char "entry field" is 

                copy parameter of Child_SV to InitialValue_SV

                change Child_SV text to InitialValue_SV

            default is

        end switch

    end loop