simon
Joined: 05 Jul 2006 Posts: 268
|
Posted: Sat Mar 11, 2017 5:16 am Post subject: FTN95 Intrinsic AND extension |
|
|
In the Help pages on "Graphics selections" the following snippet of code is provided:
Code: | 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? |
|