Clarion - Reemplazar Caracter

LOC:Palabra = ''

I# = 0 ! Inicializo 

LOOP C# = 1 TO 120 BY 1 

    IF Sub(Apellido,C#,1) > ' ' 

        Case Sub(Apellido,C#,1) 

        OF '0' TO '9'    ! consideras numeros

            I# += 1 

            Letra[I#] = Sub(Apellido,C#,1) 

        OF 'A' to 'z'    ! consideras letras mayusculas y minusculas

            I# += 1 

            Letra[I#] = Sub(Apellido,C#,1) 

        OF 'G'

            I# += 1 

            Letra[I#] = Sub(Apellido,C#,1)    !  Cargas la G que encontraste

            I# += 1

            Letra[I#] = 'G'            ! Le agregas otra G y continuo 

        End ! Case

    END ! IF

End ! Loop