* ISAYUP
      RUTINA DESPLEGAR-AYUDA
*
*     RUTINA PARA DESPLEGAR AYUDA DE CAMPO O DE AREA
*
      OPCION TERMINAL AREA 9000 /TEXTO /POS. REN-AYUDA COL-AYUDA $
         /LONG. TOT-REN-AYUDA TOT-COL-AYUDA /LONG-MAX. 15 60 $
         /TECLAS-DE-FUNCION 2 'PANTALLACOMPLETA' $
         /MARCO /COLOR BLANCO BLANCO AZUL /BN VI $
         /CAMPOS TEXTO-AYUDA /VAR.
*
*     SACAR LA AYUDA. PARA ELLO SE BUSCA CON:
*        -EL NOMBRE DEL VARIABLE Y EL PROGRAMA
*        -EL NOMBRE DEL VARIABLE
*        -EL NUMERO DEL AREA Y EL PROGRAMA
*
      SACAR PARAMETROS NOMBRE-DE-VARIABLE NOM-VAR PROGRAMA INI-PRO $
       NUMERO-DE-AREA NUM-AREA
      BUSCAR DISCO AYUDAV EJECUTA 10 PRIN-G1 NOM-VAR INI-PRO
      LEER DISCO AYUDAV TEXTO-AYUDA
      EJECUTA 20
      IGUAL AYUDAV INI-PRO INI-PRO-A
10    MOVER ' ' A INI-PRO-A
      BUSCAR DISCO AYUDAV EJECUTA 11 PRIN-G1 NOM-VAR INI-PRO-A
      LEER DISCO AYUDAV TEXTO-AYUDA
      EJECUTA 20
11    BUSCAR DISCO AYUDAA EJECUTA 15 PRIN-G1 NUM-AREA INI-PRO
      LEER DISCO AYUDAA TEXTO-AYUDA
      EJECUTA 20
15    FORMAR TEXTO TEXTO-AYUDA CON 'No hay ayuda para la variable ' $
            /S /INICIO
      FORMAR TEXTO TEXTO-AYUDA CON NOM-VAR
      FORMAR TEXTO TEXTO-AYUDA CON ', del area '
      FORMAR TEXTO TEXTO-AYUDA CON NUM-AREA
      FORMAR TEXTO TEXTO-AYUDA CON ', en el programa '
      FORMAR TEXTO TEXTO-AYUDA CON INI-PRO
*
*     CALCULAR RENGLON Y COLUMNA DE AREA DE AYUDA. PARA ELLO
*     INTENTA PONERLA ABAJO DE LA OPCION, PERO SI EL AREA
*     ES DE MENOS DE 4 RENGLONES POR 15 COLUMNAS, LA PONE A LA
*     IZQUIERDA DE LA TERMINAL O DERECHA DE LA TERMINAL
*
*
20    SACAR PARAMETROS RENGLON-COLUMNA REN-CE COL-CE $
                      CARACTERES-DE-TEXTO CAR-TEX
*
      COL-AYUDA = COL-CE
      TOT-COL-AYUDA = 80 - COL-AYUDA
      SI TOT-COL-AYUDA > 60 TOT-COL-AYUDA = 60
*
      REN-AYUDA = REN-CE + 1
      TOT-REN-DISP = 21 - REN-AYUDA
      TOT-REN-AYUDA = CAR-TEX / TOT-COL-AYUDA + 4
      SI TOT-REN-AYUDA > TOT-REN-DISP TOT-REN-AYUDA = TOT-REN-DISP
      SI TOT-REN-AYUDA > 15 TOT-REN-AYUDA = 15
*
      SI TOT-REN-AYUDA >= 4 Y TOT-COL-AYUDA >= 15 EJECUTA ETIQUETA 30
      COL-AYUDA = 5
      SI COL-CE <= 40 COL-AYUDA = 45
      TOT-COL-AYUDA = 30
      TOT-REN-AYUDA = CAR-TEX / 30 + 4
      SI TOT-REN-AYUDA > 15 TOT-REN-AYUDA = 15
      REN-AYUDA = 15 - TOT-REN-AYUDA / 2 + 5
*
*     DESPLEGARLA Y TERMINAR
*
30    OPCION TERMINAL AREA 9000 /DESPLEGAR /SALVAR-ANTERIORES $
             /EMPALMAR
31    ESCRIBIR TERMINAL TEXTO-AYUDA
      OPCION TERMINAL AREA 9000 /TERMINAR
*
*     REVISA TECLAS DE FUNCION, DESPLEGAR EN TODA LA PANTALLA
*
      SACAR PARAMETROS CONDICION-TERMINAR CONDICION-AYUDA
      SI CONDICION-AYUDA <> 2 RETORNO
      REN-AYUDA = 5
      COL-AYUDA = 10
      TOT-REN-AYUDA = 15
      TOT-COL-AYUDA = 60
      OPCION TERMINAL AREA 9000 /DESPLEGAR /SALVAR-ANTERIORES
      EJECUTA 31
