_PROGRAM ADMIN.OBJ ADMIN
*
*
*
*
*
*
*
*
*
      _INCLUDE ADMIN.SRC ADMIN.COMMON
*
      LOOP WHILE 1 DO
         _PAGE ADMIN1.HTM
         BEGIN CASE
            CASE B.WHAT
               _CALL "EXECTCL.SUB" "WHAT"
            CASE B.LISTU
               _CALL "EXECTCL.SUB" "LISTU"
            CASE B.POVF
               _CALL "EXECTCL.SUB" "POVF"
            CASE B.WHERE
               _CALL "EXECTCL.SUB" "WHERE"
            CASE B.USAGE
               _CALL "USAGE.SUB"
         END CASE
      REPEAT