Campos en InputForm con ^IfMain

El código funciona para cualquier campo texto.
El subprograma DecompObjectIfMain está hecho para convertir el contenido del campo a cadena pero si deseas bajo ciertas condiciones puedes usar sólo DO>STR en lugar de este.

Oskr, Gaak, Edwin, son moderadores de este foro, explíquenme porque he sido expulsado el dia de hoy.

He tenido que crear una nueva cuenta.

Está un poco largo porque funciona para cualquier campo TEXTO, respetando al parámetro #Decompile del texto.
Es decir, si se muestra con fuente de sistema o minifuente, si se muestra NOVAL, una cadena o un OBJETO NUMÉRICO con el formato numérico actual o con el modo estándar (todo esto está especificado en el parámetro #decompile del campo).

Información adicional sobre el parámetro #Decompile

El parámetro #Decompile es un bint que especifica como los objetos ingresados en el campo serán mostrados en la pantalla. Es un bint situado entre BINT0 y BINT47.
BINT1: muestra el objeto usando la minifuente.
BINT2: muestra los números usando el modo actual (STD, FIX, SCI, ENG)
BINT4: muestra los números usando siempre el modo estándar (STD)
BINT8: muestra solamente el primer carácter del objeto.
Puedes ingresar otro bint que sea la suma de algunos de los indicados.
Por ejemplo, si ingresas BINT5 (4+1), el objeto se mostrará usando el modo estándar y con minifuente.

Si el objeto contenido en el campo es una lista o cualquier compuesto, puedes agregar:
BINT16: muestra sólo el primer objeto del compuesto.
BINT32: muestra sólo el segundo objeto del compuesto.
Esta opción puede ser útil cuando uses un campo CHOOSE.
Por ejemplo, si ingresas BINT41 (32+8+1), se mostrará el segundo objeto del compuesto (sólo puede ser cadena o bint porque no tiene a 2 o a 4 como uno de sus sumandos), solamente su primer carácter y con fuente pequeña.
Otro ejemplo, si ingresas BINT18 (16+2), se mostrará el primer objeto del compuesto, usando el modo numérico actual y con fuente de tamaño normal (pues no está el 1).

OBSERVACIONES:
También puedes especificar el parámetro #Decompile como BINT0. En este caso, ninguna descompilación es hecha y sólo puedes usar cadenas y bints (se mostrará la cadena correspondiente al mensaje de error de dicho bint). En ambos casos, la cadena se mostrará sin las comillas dobles y con fuente de tamaño normal.
El parámetro #Decompile debe contener como uno de sus sumandos a BINT2 o a BINT4, excepto cuando el objeto que se mostrará es una cadena o un bint.