/**== 28  PROFYPTX XEDIT ==============================OF BIU====**/
/***** TEX    PF'S - EXTERNAL PANEL (XEDIT PROFILE)******/
'SET TOFEOF OFF'                       /* BASIC PROFILE */
'SET CMDLINE OFF'
'SET MSGLINE OFF'
'SET LINEND OFF'
'SET NULLS ON'
'SET NUMBER OFF'
'SET PREFIX OFF'
'SET SCALE OFF'
'SET PF4 ""'
'SET PF16 ""'
/*-----------------------*/
GRUP=1
/**==============================================================**/
DISPLY1:
IF GRUP=1 THEN CALL STSCRN1
IF GRUP=2 THEN CALL STSCRN2
OUT1:
'COMMAND READ NOCHANGE TAG'
DO QUEUED()
   PARSE PULL KEY KEYN .
   SELECT
    WHEN KEY = 'PFK' THEN OP=KEYN
    OTHERWISE NOP
    END
  END
IF OP=11 | OP=12 THEN DO
   IF OP=11 THEN GRUP=GRUP-1
   IF OP=12 THEN GRUP=GRUP+1
   IF GRUP<1 THEN GRUP=1
   IF GRUP>2 THEN GRUP=2
   SIGNAL DISPLY1
  END
IF OP=3 THEN PFF=3
  ELSE PFF= GRUP || '_' || OP
'GLOBALV SELECT XXEDSCR PUT PFF'
EXTRACT @LSCREEN
'SET SCREEN WIDTH' LSCREEN.6
COMMAND QUIT
EXIT
/**==============================================================**/
STSCRN1:
L1 ='!^      TEX COMMANDS               '
L2 ='!^                                 '
L3 ='!^ PF2  \begin{}                   '
L4 ='!^ PF4  \end{}                     '
L5 ='!^ PF5  [    ]                     '
L6 ='!^ PF6  \medskip\latin\noindent    '
L7 ='!^ PF7  \bigskip\latin\noindent    '
L8 ='!^ PF8  \medskip\hebrew\hnoindent  '
L9 ='!^ PF9  \bigskip\hebrew\hnoindent  '
L10='!^ PF10 \hfil\break                '
L11='!^ PF13 \par                       '
L12='!^ PF14 \vfill\eject               '
L13='!^ PF15 \footnote{$^{10}$}{}       '
L14='!^ PF16 \centerline{\bf }          '
L15='!^ PF17 \underbar{}                '
L16='!^ PF18 {\bf }                     '
L17='!^ PF19 {\it }                     '
L18='!^ PF20 \indent                    '
L19='!^ PF21 \noindent                  '
L20='!^ PF22 \hnoindent                 '
L21='!^ PF23 \leftline{}                '
L22='!^ PF24 \line{ \hfill }            '
L23='!^                                 '
L24='!^   = PF3-QUIT    11-12 PAGING =  '
SIGNAL SETRESER
/**==============================================================**/
STSCRN2:
L1 ='!^                                 '
L2 ='!^                                 '
L3 ='!^ PF2  \L{}                       '
L4 ='!^ PF4  \R{}                       '
L5 ='!^ PF5  \latin                     '
L6 ='!^ PF6  \hebrew                    '
L7 ='!^ PF7  \settabs 4\columns \+&&&\cr'
L8 ='!^ PF8  {\obeylines\smallskip      '
L9 ='!^                                 '
L10='!^                                 '
L11='!^                                 '
L12='!^                                 '
L13='!^                                 '
L14='!^                                 '
L15='!^                                 '
L16='!^                                 '
L17='!^                                 '
L18='!^                                 '
L19='!^                                 '
L20='!^                                 '
L21='!^                                 '
L22='!^                                 '
L23='!^                                 '
L24='!^   = PF3-QUIT    11-12 PAGING =  '
SIGNAL SETRESER
/**==============================================================**/
SETRESER:
'SET CTL ! ESCAPE'
'SET CTL ^ P H'
'SET CTL ã N'
'SET RESER 1  H 'VALUE('L1')
'SET RESER 2  H 'VALUE('L2')
'SET RESER 3  H 'VALUE('L3')
'SET RESER 4  H 'VALUE('L4')
'SET RESER 5  H 'VALUE('L5')
'SET RESER 6  H 'VALUE('L6')
'SET RESER 7  H 'VALUE('L7')
'SET RESER 8  H 'VALUE('L8')
'SET RESER 9  H 'VALUE('L9')
'SET RESER 10 H 'VALUE('L10')
'SET RESER 11 H 'VALUE('L11')
'SET RESER 12 H 'VALUE('L12')
'SET RESER 13 H 'VALUE('L13')
'SET RESER 14 H 'VALUE('L14')
'SET RESER 15 H 'VALUE('L15')
'SET RESER 16 H 'VALUE('L16')
'SET RESER 17 H 'VALUE('L17')
'SET RESER 18 H 'VALUE('L18')
'SET RESER 19 H 'VALUE('L19')
'SET RESER 20 H 'VALUE('L20')
'SET RESER 21 H 'VALUE('L21')
'SET RESER 22 H 'VALUE('L22')
'SET RESER 23 H 'VALUE('L23')
'SET RESER 24 H 'VALUE('L24')
'COMMAND CURSOR SCREEN 1 2'
RETURN
/**==============================================================**/