* ISAYUT
       RUTINA DESPLEGAR-AYUDA-TEXTO
*
*      ESTA RUTINA SIRVE PARA DAR UNA AYUDA DE LAS TECLAS DE FUNCION
*      QUE SE USAN EN LA LECTURA O MODIFICACION DE TEXTOS ASI COMO DE
*      REGLAS QUE SE TIENEN
*
*      SE FORMA EL TEXTO DE LAS TECLAS DE FUNCION
*
       FORMAR TEXTO AYUDA-TEXTO CON 'La explicacion de las teclas de$
            $ funcion F4 a F8 es la siguiente:' /P /INICIO
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F5       Se inicia un parrafo. (P)'  /I /DII 0 2 12
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F6       Se inicia un inciso. (I)' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F7       Se termina un parrafo o un inciso (F) $
                      $Tambien texto sin identacion.'  /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F8       Se Termina la lectura o modificacion $
            $del texto.' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F5    Se inicia sin identacion. (S)' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F6    Se pone centrar. (C)' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F7    Se pone justificar a la derecha. (J)' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F8    Se borra la linea' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F4/F5 Se quita P I S J C B' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
            '-F4/F4/F6 Se quita F' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-F4/F4/F7 Se inserta nuevas lineas arriba de la actual' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-F4/F4/F8 Se inserta nuevas lineas abajo de la actual' /I
*
       FORMAR TEXTO AYUDA-TEXTO CON $
             'RESUMEN DE TECLAS DE FUNCION' /C /RBA 2 /RBD 1
       FORMAR TEXTO AYUDA-TEXTO CON $
             '       -  Parrafo         Inciso    Fin        $
             $ Terminar    -' /S
       FORMAR TEXTO AYUDA-TEXTO CON $
             ' F4    -  Sin identacion  Centrar   Justificar $
             $ Borrar      -' /S
       FORMAR TEXTO AYUDA-TEXTO CON $
             ' F4/F4 -  Quitar <        Quitar >  Insertar < $
             $ Insertar >  -' /S /F /RBD 2
*      SE FORMA EL TEXTO DE LAS REGLAS DE TECLEO
*
       FORMAR TEXTO AYUDA-TEXTO CON $
             'Es muy IMPORTANTE recordar que la forma en que $
             $se tecle y la forma en que se desplegara o ' /P
       FORMAR TEXTO AYUDA-TEXTO CON $
             'imprimira el Texto es diferente por lo que las reglas $
             $para eliminar blancos al teclear la informacion son:'
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Con opcion P o I se eliminan blancos a la izquierda $
             $y derecha de cada renglon del texto.' /I /DII
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Con opcion S se eliminan solo a la derecha.' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-NO truncar palabras, es decir parte en un renglon $
             $y parte en otro.' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Con opcion C o J se quitan blancos a la izquierda $
             $y derecha. No se puede exceder de un renglon.' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             'Las reglas para dejar lineas en blanco son:' /P
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-En el texto de un parrafo o en un inciso, las lineas $
             $en blanco internas se eliminan.' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Entre un parrafo y el siguiente, entre un inciso y el $
             $siguiente, ... Si NO hay lineas en blanco ' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             'se asumen lo que tenga el TEXTO EN DBD, si estas $
             $se ponen son las que se tendran.'
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Cuando se inicia la lectura de un texto se asume $
             $S (Sin identacion), si se dejan lineas en blanco' /I
       FORMAR TEXTO AYUDA-TEXTO CON $
             ' estas se asumen y se pone F (fin) a la ultima linea $
             $que no esta en blanco.'
       FORMAR TEXTO AYUDA-TEXTO CON $
             '-Con opcion C o J se deben de dejar las lineas $
             $en blanco que sean necesarias.' /I
*
       OPCION TERMINAL AREA 9002 /TEXTO /MARCO /BN VI $
       /COLOR BLANCO AZUL AMARILLO $
       /POS. 3 5 /LONG. 18 70 $
       /CAMPOS AYUDA-TEXTO /VAR.
*
       OPCION TERMINAL AREA 9002 /DESPLEGAR /SALVAR-ANTERIORES
       ESCRIBIR TERMINAL AYUDA-TEXTO
       OPCION TERMINAL AREA 9002 /TERMINAR
       RETORNO
