fgl_getenv('LOGTTY')
SET ISOLATION TO DIRTY READ
SET ISOLATION TO COMMITTED READ
SET LOCK MODE TO WAIT
SET LOCK MODE TO WAIT 1
FGL_LASTKEY() = 2000 up
FGL_LASTKEY() = 2001 down
FGL_LASTKEY() = 2002 left
FGL_LASTKEY() = 2003 right
OPEN WINDOW w_name AT 15,9 WITH 2 ROWS, 60 COLUMNS ATTRIBUTE(BORDER,YELLOW)
MENU ""
COMMAND "A.doA" doA
COMMAND "B.doB" doB
COMMAND "C.doC" doC
COMMAND "Esc" EXIT MENU
END MENU
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/24955184/viewspace-775385/
,如需转载,请注明出处,否则将追究法律责任。