Macro: ENT$KEY

  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