(*
	This file contains procedures that extract menu,
	item and subitem numbers from the code returned by
	Intuition. This works with V1.1
	See Intuition Manual V1.1 pages 6-9..6-12
	
	Created: 5/25/86 by Richie Bielak
	
	Modified:

	Copyright (c) 1986 by Richard Bielak
	
	This program may be freely copied, but please
	leave my name in. Thanks.....Richie

*)
DEFINITION MODULE DecodeMenu;

CONST
  MenuNull = 0FFFFH;

  PROCEDURE MenuNumber (code : CARDINAL) : CARDINAL;
  PROCEDURE ItemNumber (code : CARDINAL) : CARDINAL;
  PROCEDURE SubItemNumber (code : CARDINAL) : CARDINAL;

END DecodeMenu.