/**== 13  XSPYTEX XEDIT ===============================OF BIU====**
Insert TEX commands by PK-keys.
 **==============================================================**/
EXTRACT @CURSOR @LSCREEN
IF CURSOR.3 = '-1' THEN DO; MSG 'CURSOR OUT OF FILE'; EXIT; END
'SET SCREEN WIDTH' LSCREEN.6-45 '45'
'SOS TABCMDF 1'
   'XEDIT $$NO$$ $$NO$$ A     (PROFILE PROFYPTX'
   'CURSOR HOME'
   'GLOBALV SELECT XXEDSCR GET PFF'
   IF PFF/=3 THEN CALL 'PROFYTX' PFF
'GLOBALV SELECT XXEDSCR PURGE'
EXIT
/**==============================================================**/