SUBROUTINE CONVER(ARGMNT) C C Routine to handle the input, output conversion erros in a C more reasonable manner than the standard OTS way. First, a C call to CONVER is made, passing the lun of the TI:. This is C done to set up some enhanced video options if the TI: is C a VT100. This first call also sets up the error reporting C structure with calls to ERRSET for the 2 errors involved, C namely 63, and 64. These are Output Conversion, and Input C Conversion errors respectively. C C The rest of the calls are to the REPERR entry point, but C this time, the argument is returned and is the error number C incase the caller wants to know. C C Since this routine has two entry points, 1 for initialization, C and the other for normal calls, this routine must be memory C resident (ie. not be a disk overlayed subroutine unless it is C in the root segment). C INTEGER ARGMNT LOGICAL VT100,CONTIN,COUNT,TYPE,LOG BYTE NORM(4),BOLD(4),BLINK(4),REVR(4) DATA CONTIN,TYPE/2*.TRUE./,COUNT,LOG/2*.FALSE./ LUN = ARGMNT CALL SETVID(LUN,VT100,NORM,BOLD,BLINK,REVR) CALL ERRSET(63,CONTIN,COUNT,TYPE,LOG) CALL ERRSET(64,CONTIN,COUNT,TYPE,LOG) RETURN C C REPERR entry point - call here to display an error C ENTRY REPERR CALL ERRSNS(ARGMNT) GO TO(63,64) ARGMNT-62 GO TO 999 63 WRITE (LUN,630) REVR,NORM 630 FORMAT (1X,4A1,'OUTPUT CONVERSION ERROR - NUMBER TOO LARGE ', $ 'FOR FORMAT',4A1) GO TO 999 64 WRITE (LUN,640) REVR,NORM 640 FORMAT (1X,4A1,'INPUT CONVERSION ERROR - ILLEGAL CHARACTER ', $ 'OR OVERFLOW',4A1) CONTINUE 999 RETURN END