Lexico
...el poder de lo simple...
Marzo.4.2010
clase Cosa
{
privados
el objeto x es una cantidad

publicos:
el objeto pu es una cantidad

mensajes
Cosa
{
copie 99 en x
copie 11 en pu
muestre "Ahora existo, soy una Cosa !\nTengo:\nprivado: x=\t", x, "\npúblico: pu=\t", pu
}

DemePrivado(x) nop
MuestreSusDatos muestre "Tengo:\nprivado x= ", x, "\npúblico pu=", pu
/*AgregarAprivado(deme cuanto) copie x + cuanto en x ERROR en EJECUCIÓN pues cuanto NO es cantidad sino Object*/
AgregarAprivado(deme cuanto es una cantidad) copie x + cuanto en x
}

tarea
{
muestre "Clase_y_tarea"
el objeto a es una Cosa

el objeto recibido es una cantidad

/*copie a.x en recibido ERROR: No accesible debido a su nivel de protección BIEN */

copie a.pu en recibido /* BIEN */
muestre "Copiado desde a.pu ", recibido /* BIEN */
muestre "Salida directa: ", a.pu /* BIEN */

/*muestre "DemePrivado: ", a.DemePrivado ERROR: Ninguna sobrecarga acepta 0 argumentos BIEN */
/*a.DemePrivado(recibido) ERROR Argumento inválido por el tipo de Flujo (por defecto es doy) BIEN */
a.DemePrivado(deme recibido) /* BIEN */
muestre "Recibido con DemePrivado: ", recibido

copie 77 en a.pu
muestre "Copiado a a.pu: ", a.pu

/*copie x+10 en x ERROR: x NO existe BIEN */
a.AgregarAprivado(10)
a.MuestreSusDatos
}