1 /*****************************************************************************
2 
3 	ExeJ()
4 
5 	This function executes a J command.
6 	nJ	Move pointer to "n"
7 
8 *****************************************************************************/
9 
10 #include "zport.h"		/* define portability identifiers */
11 #include "tecoc.h"		/* define general identifiers */
12 #include "defext.h"		/* define external global variables */
13 
ExeJ()14 DEFAULT ExeJ()			/* execute J command */
15 {
16 	DBGFEN(1,"ExeJ",NULL);
17 
18 	if (EStTop == EStBot) {			/* if no numeric argument */
19 		NArgmt = 0;			/* default is 0J */
20 	} else {
21 		if (GetNmA() == FAILURE) {	/* get numeric argument */
22 			DBGFEX(1,DbgFNm,"FAILURE");
23 			return FAILURE;
24 		}
25 	}
26 	DBGFEX(1,DbgFNm,"DoCJR()");
27 	return DoCJR(EBfBeg-GapBeg+NArgmt);
28 }
29