Intermec EasyCoder 3400d User Manual page 25

*** INITIALIZE FOR DATA DOWNLOAD
*
C
C
C
C
C
C
C
C
C
C
C
C
C
*
*** DOWNLOAD FORMAT TO OUTQUE
*
C
*
*****************************************************
** MAINLINE LOGIC
*****************************************************
*
C
*
C FUNCTN
C FUNCTN
C
C
*
C
**************************
*
*****************************************************
** SCRN1 - PROMPT SCREEN
*****************************************************
*
C SCRN1
*
C
*
C *IN03
C
C
C
*
C ERR
C
C
C
*
C
*
C
**************************
*
*****************************************************
** EDIT01 - EDITS THE PROMPT SCREEN FIELD
*****************************************************
*
C EDIT01
*
MOVE '<CR>' QCR
MOVE '<ETB>' QETB
MOVE '<ESC>' QESC
MOVE '<CAN>' QCAN
MOVE '<STX>' QSTX
MOVE '<ETX>' QETX
MOVE '<RS>' QRS
MOVE '<FS>' QFS
MOVE '<US>' QUS
MOVEL'<ESC>' QKINC1
MOVE 'I1' QKINC1
MOVEL'<ESC>' QKDEC1
MOVE 'D1' QKDEC1
**
EXSR DLOADQ
MOVE 'A' FUNCTN
DOWNE'Z'
CASEQ'A' SCRN1
END
END
SETON
BEGSR
EXFMTSCRN01
IFEQ ON
MOVE 'Z' FUNCTN
ELSE
EXSR EDIT01
IFEQ NO
EXSR LABELQ
MOVE *BLANKS NAME
END
END
ENDSR
BEGSR
Twinax Interface
4
5
5
5
5
5
4
4
4
7
7
**
1
LR
**
**
T
23