Media Share 9/MEDIASHARE_09.ISO/clarion/brokcode.zip/DH4-1.EXE/AAAFE.ENT

Text File | 1992-01-20 | 865b | 18 lines

! 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()......