     !(trim(first)) +' '+ !(trim(last)) 
      *  test the hire date for validity
      STORE hiredate TEY <> " "
          SET INDE TO RT/ZIP,RT/SER,RT/COMP
          FIND &ZIPKEY

       CASE COMPKEY <> " "   @        @0       @@       @`                 TIM MONIHAN             TERRY BRADSHAW          JOE STEGMAN            2Bradshaw  Terry                         dallas              -    232-3232 12/31/80  /  /  fot1234.0001234.000bal @ 14,10 SAY "Hire date"
          @ 14,28 GET Mea:   BETH HEMERYICK          JIM TAYLOR              JOE STEGMAN             TERRY BRADSHAW          JOE STEGMAN            2Bradshaw  Terry                         dallas              -    232-3232 12/31/80  /  /  fot1234.0001234.000bal @ 14,10 SAY "Hire date"
          @ 14,28 GET Mea:date PICTURE '99/99/99'
          READ
          STORE T TO Mea:nodate
        ENDIF
      ENDDO
      SET colon OFF
      @ 22,0 SAY "Is the employee data correct (Y/N)? " GET Mea:ok
      READ
      SET colon oyee records
        3     List the employee data
        4     Terminate an employee or two


   Enter the menu selection here
  ENDTEXT
  WAIT TO Mselect

  *   erase the error messa   7Stegman   Joe       9929 w jefferson    culver city    90230-    204-5570 01/28/83        a1   10.000  10.000pm ployee file, release all variables and return to dBASE II
      USE
      RELEASE ALL
      RETURN

    CASE Mselect = "1"
     *   enter some ne employees
      DO emp-entr

    CASE Mselect =