! file AAAFE.end, for form AAAfe
! null entry field edit line, calls AAAfn form for Status choice entry
  IF (KEYCODE() > 0) OR AAA:Status = ''
    TempAction# = Action	    ! hold original value
    AAAfn			    ! call form for status choices
    Action = TempAction#	    ! restore action to original value
    CASE KEYCODE()		    ! what key was hit to exit choice form?
    OF Esc_Key			    !  was it ESC?
      SELECT(?-1)		    !	yes, go back one field
    OF Reject_Key		    !  was it ^ESC?
      RETURN			    !	yes, bail out of program (see notes)
    OF Accept_Key OROF 0	    !  was it ^Enter?
      SELECT( ?+1 )		    !	needed only if fields after Status
      SELECT			    !	go into save mode (see notes)
      CYCLE			    !	keep from hitting Designer's select
    END				    !  end of keycode check
  END				    ! end of "if keycode()......
