FTN95 Intrinsic AND extension

In the Help pages on 'Graphics selections' the following snippet of code is provided:

INTEGER FUNCTION gr_func()
INCLUDE <windows.ins>
INTEGER x1,y1,y2,a,b,flags,grey
LOGICAL IsUp,WasDown
DATA WasDown/.FALSE./

flags=clearwin_info@('graphics_mouse_flags')
IsUp=AND(flags,MK_LBUTTON).EQ.0

AND is an intrinsic procedure, but is an extension. Does anybody know how to replace this function (specifically as used in the context above would be good enough) with standard intrinsic functions and/or simply with standard operators?

It is a bitwise 'and' which is IAND in standard Fortran.