ENT$DISP:
IF ENTER$DISPLAY NE 0 BEGIN
!A [FOUND] $042 ENTER$DISPLAY
END
ELSE BEGIN
[FOUND] ENTDISPLAY // JUST DO AN ENTDISPLAY
END
// ENTAGAIN
!A [] $287
// RETURN
!A [] $43 |CL0
//<<<<<<< STANDARD KEY PROCEDURES FOR ENTER GROUP >>>>>>>>>>
//KEYPROC KEY.FIND
ENTER$.FIND:
// ENTFIND GE // no, FIND
!A [] $281 |CI3
#KEYPROC 7 !a
// GOTO ENT$DISP
!A [] $41 ENT$DISP
//KEYPROC KEY.NEXT // FIND next record
ENTER$.NEXT:
// ENTFIND GT
!A [] $281 |CI4
#KEYPROC 15 !a
// GOTO ENT$DISP
!A [] $41 ENT$DISP
//KEYPROC KEY.PREVIOUS // FIND prv record
ENTER$.PREVIOUS:
// ENTFIND LT
!A [] $281 |CI0
#KEYPROC 14 !a
// GOTO ENT$DISP
!A [] $41 ENT$DISP
//KEYPROC KEY.UP
//KEYPROC KEY.FIELD // BACK FIELD
ENTER$.FIELD:
// BACKFIELD
!A [] $288
#KEYPROC 16 !a
#KEYPROC 6 !a
// RETURN
!A [] $43 |CI0
//KEYPROC KEY.CLEAR // CLEAR SCREEN
ENTER$.CLEAR:
// INDICATE ERR FALSE
!A [] $4028 |CI0 |CI0 |127
#KEYPROC 13 !a
!A [] $284 // ENTCLEAR
// RETURN
!A [] $43 |CI0
//KEYPROC KEY.SAVE
ENTER$.SAVE:
!A [] $285 // ENTSKIP
#KEYPROC 9 !a
// RETURN
!A [] $43 |CI0
//KEYPROC KEY.HELP
ENTER$.HELP:
//HELP
!A [] $1C5 |CI0
#KEYPROC 18 !a
//ENTAGAIN
!A [] $287
//RETURN
!A [] $43 |CI0
// KEYPROC KEY.PRINT
ENTER$.PRINT:
// output current page
!A [] $202 |VI9
#KEYPROC 2 !a
//ENTAGAIN and RETURN
!A [] $287
!A [] $43 |CI0