* ISATV2.SIS
*
*      SE INCLUYEN LAS RUTINAS PARA LEER ACCIONES SOBRE EL TEXTO
*      Y LA AYUDA DEL MISMO
*
       RUTINA CONTROL-DE-TEXTO
*
*      ESTA RUTINA SIRVE PARA LEER LAS DIFERENTES ACCIONES CUANDO
*      SE LEE INFORMACION DE UN TEXTO
*
       OPCION TERMINAL AREA 9005 /MENU /POS. 4 COL-AYUDA /LONG. 15 50 $
       /MARCO /COLOR BLANCO BLANCO NEGRO NEGRO AMARILLO BLANCO NEGRO $
       /BN NO-E VI NO-E /TECLAS-DE-FUNCION  2 '*AYUDA' $
       /AYUDA-GLOBAL DESPLEGAR-AYUDA-TEXTO  /CAMPOS $
        1 'Inicio de un Parrafo (*P)' $
        2 'Inicio de un Inciso (*I)'  $
        3 'Fin de parrafo o Inciso (*F)' $
        4 '*Terminar lectura o modificacion' $
        5 'Inicio sin identacion (*S)' $
        6 'Centrar el Texto (*C)' $
        7 'Justificar a la derecha (*J)' $
        8 'Borrar esta linea (*B)' $
        9 'Se *quita P I S B J C' $
       10 'Se quita fin (F)' $
       11 'En modificacion, se inserta arriba' $
       12 'En *modificacion, se inserta abajo' $
       0  'Continuar sin *ninguna accion' $
          NUMERO-DE-ACCION /VAR-SEL.
*
*      CALCULAR COLUMNA DONDE SE DESPLIEGA
*
       SACAR PARAMETROS RENGLON-COLUMNA REN-CE COL-CE
       COL-AYUDA = 31
       SI COL-CE >= 31 COL-AYUDA = 1
*
*      DESPLEGAR Y LEER NUMERO DE CONTROL
*
       OPCION TERMINAL AREA 9005 /DESPLEGAR /SALVAR-ANTERIORES /EMPALMAR
10     LEER TERMINAL EJECUTA 10 NUMERO-DE-ACCION
       OPCION TERMINAL AREA 9005 /TERMINAR
       RETORNO
*
       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 TEXTO-AYUDA-DESP CON 'La explicacion de las$
           $ teclas de funcion F7 Y F8 es la siguiente:' /P /INICIO
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            '-F7       Se pide seleccionar una accion sobre $
            $el texto' /I /DII 0 2 12
        FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            '-F8       Se Termina la lectura o modificacion $
            $del texto.' /I
*
*      SE FORMA TEXTO DE EXPLICACION DE LETRAS
*
       FORMAR TEXTO TEXTO-AYUDA-DESP CON 'La explicacion de las$
           $ letras a la izquierda y derecha del texto es:' /P
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'P        Se inicia un parrafo.'   /I /DII 0 3 12
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'I        Se inicia un inciso.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'F        Se termina un parrafo o un inciso $
                      $Tambien texto sin identacion.'  /I
        FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'S        Se inicia texto sin identacion.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'C        El texto se centra en la linea.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'J        El texto se justifica a la derecha.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
            'B        Se borra esta linea' /I
*
*      SE FORMA EL TEXTO DE LAS REGLAS DE TECLEO
*
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             'Es muy IMPORTANTE recordar que la forma en que $
             $se tecle y la forma en que se desplegara o ' /P
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             'imprimira el Texto es diferente por lo que las reglas $
             $para eliminar blancos al teclear la informacion son:'
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-Con opcion P o I se eliminan blancos a la izquierda $
             $y derecha de cada renglon del texto.' /I /DII
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-Con opcion S se eliminan solo a la derecha.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-NO truncar palabras, es decir parte en un renglon $
             $y parte en otro.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-Con opcion C o J se quitan blancos a la izquierda $
             $y derecha. No se puede exceder de un renglon.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             'Las reglas para dejar lineas en blanco son:' /P
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-En el texto de un parrafo o en un inciso, las lineas $
             $en blanco internas se eliminan.' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-Entre un parrafo y el siguiente, entre un inciso y el $
             $siguiente, ... Si NO hay lineas en blanco ' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             'se asumen lo que tenga el TEXTO EN DBD, si estas $
             $se ponen son las que se tendran.'
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             '-Cuando se inicia la lectura de un texto se asume $
             $S (Sin identacion), si se dejan lineas en blanco' /I
       FORMAR TEXTO TEXTO-AYUDA-DESP CON $
             ' estas se asumen y se pone F (fin) a la ultima linea $
             $que no esta en blanco.'
       FORMAR TEXTO TEXTO-AYUDA-DESP 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 BLANCO NEGRO $
       /POS. 3 5 /LONG. 18 70 $
       /CAMPOS TEXTO-AYUDA-DESP /VAR.
*
       OPCION TERMINAL AREA 9002 /DESPLEGAR /SALVAR-ANTERIORES
       ESCRIBIR TERMINAL TEXTO-AYUDA-DESP
       OPCION TERMINAL AREA 9002 /TERMINAR
       RETORNO
