left routine EVRN.FLOOR
''
'' COPYRIGHT (C) 1996, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 12-8-96
'' DESCRIPTION:
''    Called whenever a value is assigned to the global variable.
''    This routine controls the display of checks on the menu items
''

define ITEMS as a 1-dim text array
define FLOOR as a double variable

enter with FLOOR
move from FLOOR

reserve ITEMS(*) as 3
let ITEMS(1) = "EVRN.FLOOR.LOW"
let ITEMS(2) = "EVRN.FLOOR.MEDIUM"
let ITEMS(3) = "EVRN.FLOOR.HIGH"

'' set the appropriate check box depending on menu item
select case FLOOR
  case .FLOOR.LOW      call MENU.CHECK(MENU.PTR, ITEMS(*), 1)
  case .FLOOR.MEDIUM   call MENU.CHECK(MENU.PTR, ITEMS(*), 2)
  case .FLOOR.HIGH     call MENU.CHECK(MENU.PTR, ITEMS(*), 3)
endselect

release ITEMS(*)
End
