/**== 29  PROFYTX XEDIT ===============================OF BIU====**/
/*                 TEX COMMANDS BY PF-KEYS     */
ARG PFF
PRESERVE
'SET LINEND OFF'
'SET TABS 1'
SELECT
WHEN PFF='1_2' THEN DO; OP='\begin{}'; OPL=11; END;
WHEN PFF='1_4' THEN DO; OP='\end{}'; OPL=9; END;
WHEN PFF='1_5' THEN DO; OP='[    ]'; OPL=7; END;
WHEN PFF='1_6' THEN DO; OP='\medskip\latin\noindent';OPL=24; END;
WHEN PFF='1_7' THEN DO; OP='\bigskip\latin\noindent';OPL=24; END;
WHEN PFF='1_8' THEN DO; OP='\medskip\hebrew\hnoindent';OPL=26; END;
WHEN PFF='1_9' THEN DO; OP='\bigskip\hebrew\hnoindent';OPL=26; END;
WHEN PFF='1_10' THEN DO; OP='\hfil\break';OPL=12; END;
WHEN PFF='1_13' THEN DO; OP='\par';OPL=5; END;
WHEN PFF='1_14' THEN DO; OP='\vfill\eject';OPL=13; END;
WHEN PFF='1_15' THEN DO; OP='\footnote{$^{10}$}{}';OPL=14; END;
WHEN PFF='1_16' THEN DO; OP='\centerline{\bf }';OPL=17; END;
WHEN PFF='1_17' THEN DO; OP='\underbar{}';OPL=11; END;
WHEN PFF='1_18' THEN DO; OP='{\bf }';OPL=6; END;
WHEN PFF='1_19' THEN DO; OP='{\it }';OPL=6; END;
WHEN PFF='1_20' THEN DO; OP='\indent';OPL=8; END;
WHEN PFF='1_21' THEN DO; OP='\noindent';OPL=10; END;
WHEN PFF='1_22' THEN DO; OP='\hnoindent';OPL=11; END;
WHEN PFF='1_23' THEN DO; OP='\leftline{}';OPL=12; END;
WHEN PFF='1_24' THEN DO; OP='\line{ \hfill}';OPL=7; END;
WHEN PFF='2_2' THEN DO; OP='\L{}';OPL=4; END;
WHEN PFF='2_4' THEN DO; OP='\R{}';OPL=4; END;
WHEN PFF='2_5' THEN DO; OP='\latin';OPL=7; END;
WHEN PFF='2_6' THEN DO; OP='\hebrew';OPL=8; END;
WHEN PFF='2_7' THEN DO
  CALL CMND
  REPLACE '\settabs 4\columns'||CURLINE.3
  INPUT '\+&&&\cr'
  LINCOL=CURSOR.3+1 3
  SIGNAL CMNDEND
 END
WHEN PFF='2_8' THEN DO
  CALL CMND
  REPLACE '{\obeylines\smallskip'||CURLINE.3
  INPUT ' '
  INPUT ' \smallskip}'
  LINCOL=CURSOR.3+1 1
  SIGNAL CMNDEND
 END
/***** END OF SCRIPT COMMANDS BY PF-KEYS *****/
/**==============================================================**/
 OTHERWISE SIGNAL CMNDEX
 END /*END OF SELECT*/
/**==============================================================**/
CMND1:                        /*COMMON TO MOST PF'S*/
EXTRACT @CURSOR @LINE
PLINE=LINE.1
IF CURSOR.3 = '-1' THEN DO; RESTORE; EXIT; END
'COMMAND :'CURSOR.3
EXTRACT @CURLINE @TRUNC
VR1=''
IF CURSOR.4<1 THEN CURSOR.4=1
IF CURSOR.4>1 THEN VR1=SUBSTR(CURLINE.3,1,CURSOR.4 -1)
VR2=SUBSTR(CURLINE.3,CURSOR.4)
IF LENGTH(VR1||OP||VR2) ^> TRUNC.1 THEN DO
   REPLACE VR1||OP||VR2
   'COMMAND :'PLINE
   'COMMAND CURSOR FILE' CURSOR.3 LENGTH(VR1)+OPL 'PRIORITY 30'
  END
  ELSE DO
   REPLACE VR1
   INPUT OP||VR2
   'COMMAND :'PLINE
   'COMMAND CURSOR FILE' CURSOR.3+1 OPL 'PRIORITY 30'
  END
RESTORE
RETURN
/**==============================================================**/
CMND:                         /*COMMON TO SCRIPT PF'S*/
EXTRACT @CURSOR @LINE
PLINE=LINE.1
IF CURSOR.3 = '-1' THEN DO; RESTORE; EXIT; END
'COMMAND :'CURSOR.3
EXTRACT @CURLINE
RETURN
/**==============================================================**/
CMNDEND:                      /*COMMON TO END OF PF'S*/
'COMMAND :'PLINE
'COMMAND CURSOR FILE' LINCOL 'PRIORITY 30'
CMNDEX:
RESTORE
RETURN
/**==============================================================**/