home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / ext_key.zip / EXT_MENU.CLA < prev    next >
Text File  |  1992-03-10  |  2KB  |  59 lines

  1.      MEMBER('ext_key')
  2. main         PROCEDURE
  3.  
  4. SCREEN         SCREEN      PRE(SCR),WINDOW(15,50),AT(6,16),HUE(0,7)
  5.           ROW(2,2)     PAINT(1,48),HUE(15,0)
  6.           ROW(1,1)     STRING('<201,205{48},187>')
  7.           ROW(2,1)     STRING('<186,0{48},186>')
  8.           ROW(3,1)     STRING('<199,196{48},182>')
  9.           ROW(4,1)     REPEAT(11);STRING('<186,0{48},186>') .
  10.           ROW(15,1)     STRING('<200,205{48},188>')
  11.           ROW(2,14)     STRING('External Key Demo Program')
  12.               ENTRY,USE(?FIRST_FIELD)
  13.               ENTRY,USE(?PRE_MENU)
  14.               MENU,USE(MENU_FIELD"),REQ
  15.           ROW(5,17)          STRING(' Show By Last Name')
  16.           ROW(7,16)          STRING(' Show By First Name ')
  17.           ROW(9,10)          STRING(' Show By Social Security Number ')
  18.           ROW(11,20)      STRING(' Show By Age ')
  19.           ROW(13,23)      STRING(' Quit ')
  20.          .          .
  21.  
  22.   EJECT
  23.   CODE
  24.   OPEN(SCREEN)                     !OPEN THE MENU SCREEN
  25.   SETCURSOR                     !TURN OFF ANY CURSOR
  26.   MENU_FIELD" = ''                 !START MENU WITH FIRST ITEM
  27.   LOOP                         !LOOP UNTIL USER EXITS
  28.     ALERT                     !TURN OFF ALL ALERTED KEYS
  29.     ALERT(REJECT_KEY)                 !ALERT SCREEN REJECT KEY
  30.     ALERT(ACCEPT_KEY)                 !ALERT SCREEN ACCEPT KEY
  31.     ACCEPT                     !READ A FIELD OR MENU CHOICE
  32.     IF KEYCODE() = REJECT_KEY THEN RETURN.     !RETURN ON SCREEN REJECT
  33.  
  34.     IF KEYCODE() = ACCEPT_KEY             !ON SCREEN ACCEPT KEY
  35.       UPDATE                     !  MOVE ALL FIELDS FROM SCREEN
  36.       SELECT(?)                     !  START WITH CURRENT FIELD
  37.       SELECT                     !  EDIT ALL FIELDS
  38.       CYCLE                     !  GO TO TOP OF LOOP
  39.     .                         !
  40.  
  41.     CASE FIELD()                 !JUMP TO FIELD EDIT ROUTINE
  42.     OF ?FIRST_FIELD                 !FROM THE FIRST FIELD
  43.       IF KEYCODE() = ESC_KEY THEN RETURN.     !  RETURN ON ESC KEY
  44.  
  45.     OF ?PRE_MENU                 !PRE MENU FIELD CONDITION
  46.       IF KEYCODE() = ESC_KEY             !  BACKING UP?
  47.     SELECT(?-1)                 !    SELECT PREVIOUS FIELD
  48.       ELSE                     !  GOING FORWARD
  49.     SELECT(?+1)                 !    SELECT MENU FIELD
  50.       .
  51.     OF ?MENU_FIELD"                 !FROM THE MENU FIELD
  52.       EXECUTE CHOICE()                 !  CALL THE SELECTED PROCEDURE
  53.     ext_table(emp:lnam_key)             !  Pass last name key
  54.     ext_table(emp:fnam_key)             !  Pass first name key
  55.     ext_table(emp:ssn_key)             !  Pass ssn key
  56.     ext_table(emp:age_key)             !  Pass age key
  57.     return
  58.   . . .
  59.