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()14DEFAULT 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