/* CopyRight 2001 EndUser4gl */ /* Ph Bergougnoux */ // **************************************************** ", // mots clés", // bloc du programme", "#DEFINE-MCLE M_BEGIN_MAIN BEGIN_MAIN DEBUT_PROGRAMME " , "#DEFINE-MCLE M_END_MAIN END_MAIN FIN_PROGRAMME " , "#DEFINE-MCLE M_AFFECT := " , "#DEFINE-MCLE M_PV ; " , "#DEFINE-MCLE M_V , " , "#DEFINE-MCLE M_AO {" , "#DEFINE-MCLE M_AF } " , "#DEFINE-MCLE M_2PP :", "#DEFINE-MCLE M_AND & ", "#DEFINE-MCLE M_CLEAR CLEAR ", "#DEFINE-MCLE M_FREEMEMORYSTRING FREEMEMORYSTRING", "#DEFINE-MCLE M_ALNUM CHAR " , "#DEFINE-MCLE M_INTEGER INTEGER " , "#DEFINE-MCLE M_FLOAT FLOAT " , "#DEFINE-MCLE M_LONG LONG " , "#DEFINE-MCLE M_DOUBLE DOUBLE " , "#DEFINE-MCLE M_RATE RATE " , "#DEFINE-MCLE M_AMOUNT AMOUNT " , "#DEFINE-MCLE M_CONSTANT_NUM CONSTANT_NUM " , "#DEFINE-MCLE M_CONSTANT_STRING CONSTANT_STRING " , "#DEFINE-MCLE M_DEFINE DEFINE " , "#DEFINE-MCLE M_INIT INIT ", "#DEFINE-MCLE M_STRING STRING " , "#DEFINE-MCLE M_TABLE TABLE " , "#DEFINE-MCLE M_TABLEBTREE TABLEBTREE " , "#DEFINE-MCLE M_STRUCT STRUCT " , "#DEFINE-MCLE M_DEC DEC ", "#DEFINE-MCLE M_DISPLAY DISPLAY " , "#DEFINE-MCLE M_GLOBAL GLOBAL ", "#DEFINE-MCLE M_ENDGLOBAL END_GLOBAL ", "#DEFINE-MCLE M_BEGIN BEGIN ", "#DEFINE-MCLE M_ENDBEGIN END_BEGIN ", "#DEFINE-MCLE M_END END ", "#DEFINE-MCLE M_ENTER ENTER ", "#DEFINE-MCLE M_SYSCOMMANDWINDOWS SYSCOMMANDWINDOWS ", "#DEFINE-MCLE M_PROCESSWINDOWS PROCESSWINDOWS ", "#DEFINE-MCLE M_EXITPGM EXIT_PGM ", "#DEFINE-MCLE M_EU_LOGO EU_LOGO ", "#DEFINE-MCLE M_EU_ORDER EU_ORDER ", "#DEFINE-MCLE M_PLAY_MOVIE_AVI PLAY_MOVIE_AVI ", "#DEFINE-MCLE M_HWDISPLAY HWDISPLAY ", "#DEFINE-MCLE M_DISPLAYSYMBG DISPLAY_GLOBAL_TABLE_SYMBOL ", "#DEFINE-MCLE M_DISPLAYSYMBL DISPLAY_LOCAL_TABLE_SYMBOL ", "#DEFINE-MCLE M_PO (", "#DEFINE-MCLE M_PF ) ", "#DEFINE-MCLE M_SIZESTRUCT SIZESTRUCT ", "#DEFINE-MCLE M_SIZE SIZE ", "#DEFINE-MCLE M_VOID VOID ", "#DEFINE-MCLE M_NOTVOID NOT_VOID ", "#DEFINE-MCLE M_DATE DATE " , "#DEFINE-MCLE M_TIME TIME " , "#DEFINE-MCLE M_PAGE PAGE " , "#DEFINE-MCLE M_DPRINT DPRINT " , "#DEFINE-MCLE M_PRINT PRINT " , "#DEFINE-MCLE M_COLUMN COLUMN ", "#DEFINE-MCLE M_INTO INTO " , "#DEFINE-MCLE M_TOP TOP " , "#DEFINE-MCLE M_BOT BOT " , "#DEFINE-MCLE M_VRIGHT VRIGHT " , "#DEFINE-MCLE M_VLEFT VLEFT " , "* string ", "#DEFINE-MCLE M_STRINGCONCAT STRINGCONCAT " , "#DEFINE-MCLE M_STRINGLENGTH STRINGLENGTH " , "#DEFINE-MCLE M_STRINGSORT STRINGSORT " , "#DEFINE-MCLE M_STRINGREVERSE STRINGREVERSE " , "#DEFINE-MCLE M_STRINGREPEAT STRINGREPEAT " , "#DEFINE-MCLE M_STRINGTOUPPER STRINGTOUPPER " , "#DEFINE-MCLE M_STRINGUPPER STRINGUPPER " , "#DEFINE-MCLE M_STRINGNUMERIC STRINGNUMERIC " , "#DEFINE-MCLE M_INSERTTABLEBTREE INSERTTABLEBTREE " , "#DEFINE-MCLE M_DELETETABLEBTREE DELETETABLEBTREE " , "#DEFINE-MCLE M_UPDATETABLEBTREE UPDATETABLEBTREE " , "#DEFINE-MCLE M_LOOKUPTABLEBTREE LOOKUPTABLEBTREE " , "#DEFINE-MCLE M_LOADBTREE LOADBTREE " , "#DEFINE-MCLE M_EXTRACTSTRING EXTRACTSTRING " , "#DEFINE-MCLE M_SEARCHSTRING SEARCHSTRING " , "#DEFINE-MCLE M_CHARTOUPPER CHARTOUPPER " , "#DEFINE-MCLE M_CHARUPPER CHARUPPER " , "#DEFINE-MCLE M_WITH WITH " , "#DEFINE-MCLE M_CONVERNUMERIC CONVERNUMERIC " , "#DEFINE-MCLE M_CONVERSTRING CONVERSTRING " , "#DEFINE-MCLE M_FORMAT FORMAT ", "* file", "#DEFINE-MCLE M_BY BY " , "#DEFINE-MCLE M_TO TO " , "#DEFINE-MCLE M_FILEEXIST FILEEXIST " , "#DEFINE-MCLE M_TABLEEXIST TABLEEXIST " , "#DEFINE-MCLE M_FILEOPEN FILEOPEN " , "#DEFINE-MCLE M_FILEREAD FILEREAD " , "#DEFINE-MCLE M_FILEUPDATE FILEUPDATE " , "#DEFINE-MCLE M_RESTORCURRENTDATA RESTORECURRENTDATA " , "#DEFINE-MCLE M_FILEADD FILEADD " , "#DEFINE-MCLE M_FILERENAME FILERENAME " , "#DEFINE-MCLE M_FILECOPY FILECOPY " , "#DEFINE-MCLE M_TABLECOPY TABLECOPY " , "#DEFINE-MCLE M_FILEMERGE FILEMERGE " , "#DEFINE-MCLE M_FILEDELETE FILEDELETE " , "#DEFINE-MCLE M_TABLEDELETE TABLEDELETE " , "#DEFINE-MCLE M_FILECLOSE FILECLOSE " , "#DEFINE-MCLE M_FILECLOSEALL FILECLOSEALL " , "#DEFINE-MCLE M_LOADFILETXT LOADFILETXT" , "#DEFINE-MCLE M_EXECUTEDIRECTORYFETCH EXECUTEDIRECTORYFETCH ", "#DEFINE-MCLE M_FOREACHFILEFIND FOREACHFILEFIND", "#DEFINE-MCLE M_ENDFOREACHFILE END_FOREACHFILE ", "#DEFINE-MCLE M_GETINFOFILENAME GETINFOFILENAME ", "#DEFINE-MCLE M_READ READ " , "#DEFINE-MCLE M_READWRITE READWRITE " , "#DEFINE-MCLE M_WRITE WRITE " , "#DEFINE-MCLE M_SETCURRENTDIR SETCURRENTDIR ", "#DEFINE-MCLE M_GETCURRENTDIR GETCURRENTDIR ", "#DEFINE-MCLE M_GETLASTERROR GETLASTERROR ", "#DEFINE-MCLE M_DIREXIST DIREXIST ", "#DEFINE-MCLE M_EOF EOF ", "#DEFINE-MCLE M_FPOSITTOP FPOSIT_TOP ", "#DEFINE-MCLE M_FPOSITBOT FPOSIT_BOT ", "#DEFINE-MCLE M_FPOSITCUR FPOSIT_CUR ", "#DEFINE-MCLE M_FILESCAN FILESCAN ", "#DEFINE-MCLE M_BEGIN_SCAN BEGIN_SCAN ", "#DEFINE-MCLE M_END_SCAN END_SCAN ", "#DEFINE-MCLE M_FILEINQUIRE FILEINQUIRE ", "#DEFINE-MCLE M_RECORD RECORD ", "#DEFINE-MCLE M_YMD YMD", "#DEFINE-MCLE M_DMY DMY", // procedure", "#DEFINE-MCLE M_LOCAL LOCAL", "#DEFINE-MCLE M_ENDLOCAL END_LOCAL", "#DEFINE-MCLE M_PROCEDURE PROC ", "#DEFINE-MCLE M_BEGIN_PROCEDURE BEGIN_PROCEDURE", "#DEFINE-MCLE M_END_PROCEDURE END_PROCEDURE ", // function", "#DEFINE-MCLE M_FUNCTION FUNC ", "#DEFINE-MCLE M_BEGIN_FUNCTION BEGIN_FUNCTION ", "#DEFINE-MCLE M_END_FUNCTION END_FUNCTION ", "#DEFINE-MCLE M_RETURN RETURN ", "#DEFINE-MCLE M_RETURNING RETURNING ", "#DEFINE-MCLE M_OCCURS OCCURS ", // *********************** ", // : SORT : ", // *********************** ", "#DEFINE-MCLE M_POSIT POSIT " , "#DEFINE-MCLE M_SELECT SELECT " , "#DEFINE-MCLE M_SORTIN SORTINPUT " , "#DEFINE-MCLE M_SORTOUT SORTOUTPUT " , "#DEFINE-MCLE M_LENGTHVAR LENGTHVAR " , "#DEFINE-MCLE M_LENGTH LENGTH " , "#DEFINE-MCLE M_USE USE " , "#DEFINE-MCLE M_DECIMAL DECIMAL " , "#DEFINE-MCLE M_POINT . " , "#DEFINE-MCLE M_ALLDATA ALLDATA " , "#DEFINE-MCLE M_MERGE MERGE " , "#DEFINE-MCLE M_ASCENDANT ASC " , "#DEFINE-MCLE M_DESCENDANT DESC " , "#DEFINE-MCLE M_KEEPREJET KEEPREJECT " , "#DEFINE-MCLE M_KEEPMERGE KEEPMERGE " , "#DEFINE-MCLE M_CREATEINDEX CREATEINDEX " , "#DEFINE-MCLE M_SEPARATOR RETURN_CARRIAGE " , "#DEFINE-MCLE M_NUMERIC NUMERIC ", "#DEFINE-MCLE M_BEGIN_REPORT BEGIN_REPORT " , "#DEFINE-MCLE M_REPORTINPUT REPORTINPUT " , "#DEFINE-MCLE M_ISSU_OF_SORT ISSU_OF_SORT " , "#DEFINE-MCLE M_REPORTOUTPUT REPORTOUTPUT " , "#DEFINE-MCLE M_LEVEL LEVEL " , "#DEFINE-MCLE M_LEVELKEY LEVEL_KEY " , "#DEFINE-MCLE M_END_REPORT END_REPORT " , "#DEFINE-MCLE M_HEADERREPORT HEADER_REPORT " , "#DEFINE-MCLE M_ENDHEADERREPORT END_HEADER_REPORT ", "#DEFINE-MCLE M_HEADERLEVEL HEADER_LEVEL " , "#DEFINE-MCLE M_ENDHEADERLEVEL END_HEADER_LEVEL ", "#DEFINE-MCLE M_BREAKENDLEVEL BREAK_END_LEVEL " , "#DEFINE-MCLE M_ENDBREAKENDLEVEL END_BREAK_END_LEVEL", "#DEFINE-MCLE M_DETAIL DETAIL ", "#DEFINE-MCLE M_ENDDETAIL END_DETAIL ", "#DEFINE-MCLE M_HEADEREND HEADER_END " , "#DEFINE-MCLE M_ENDHEADEREND END_HEADER_END " , "#DEFINE-MCLE M_SKIPLINE SKIP_LINE " , "#DEFINE-MCLE M_TOTALLEVEL TOTAL_LEVEL " , "#DEFINE-MCLE M_TOTALEND TOTAL_END_REPORT " , // *********************** ", // SQL and QUERY ", // *********************** ", "* see you sort :#DEFINE-MCLE M_SELECT SELECT ", "#DEFINE-MCLE M_FROM FROM ", "#DEFINE-MCLE M_ALL ALL ", "#DEFINE-MCLE M_DISTINCT DISTINCT ", "#DEFINE-MCLE M_UNIQUE UNIQUE ", "#DEFINE-MCLE M_WHERE WHERE ", "#DEFINE-MCLE M_GROUP GROUP ", "#DEFINE-MCLE M_HAVING HAVING ", "#DEFINE-MCLE M_ORDER ORDER ", "#DEFINE-MCLE M_INQUIRE INQUIRE ", "#DEFINE-MCLE M_SETENVDATABASESQL SETENVDATABASESQL ", "#DEFINE-MCLE M_DESTROYENVSQL DESTROYENVSQL ", "#DEFINE-MCLE M_SETVERSQL SETVERSQL ", "#DEFINE-MCLE M_SETVERDRIVERSQL SETVERDRIVERSQL ", "#DEFINE-MCLE M_EXECUTESQL EXECUTESQL ", "#DEFINE-MCLE M_EXECUTESQLDIALOG EXECUTESQLDIALOG ", "#DEFINE-MCLE M_EXECUTESQLFETCH EXECUTESQLFETCH ", "#DEFINE-MCLE M_GETDATACOLUMN GETDATACOLUMN ", "#DEFINE-MCLE M_FOREACHROWFIND FOREACHROWFIND ", "#DEFINE-MCLE M_ENDFOREACHROW END_FOREACHROW ", "#DEFINE-MCLE M_BEGIN_FETCH_ORIENTATION BEGIN_FETCH_ORIENTATION ", "#DEFINE-MCLE M_END_FETCH_ORIENTATION END_FETCH_ORIENTATION ", "#DEFINE-MCLE M_GETSELECTITEMSQL GETSELECTITEMSQL ", "#DEFINE-MCLE M_EXECUTEQUERY EXECUTEQUERY ", "#DEFINE-MCLE M_EXECUTEQUERYDIALOG EXECUTEQUERYDIALOG ", "#DEFINE-MCLE M_XLS XLS ", "#DEFINE-MCLE M_DBF DBF ", "#DEFINE-MCLE M_TXT TXT ", "#DEFINE-MCLE M_FOX FOX ", "#DEFINE-MCLE M_MDB ACCESS ", // *********************** ", // INTERNET : ", // *********************** ", "#DEFINE-MCLE M_NAVIGATEINTERNET NAVIGATEINTERNET ", "#DEFINE-MCLE M_GOHOMEINTERNET GOHOMEINTERNET ", "#DEFINE-MCLE M_GOSEARCHINTERNET GOSEARCHINTERNET ", "#DEFINE-MCLE M_STOPINTERNET STOPINTERNET ", "#DEFINE-MCLE M_FULLSCREENINTERNET FULLSCREENINTERNET ", // *********************** ", // MAPI : ", // *********************** ", "#DEFINE-MCLE M_SENDMAIL SENDMAIL ", "#DEFINE-MCLE M_RECEIVEMAIL RECEIVE ", "#DEFINE-MCLE M_SENDDOCUMENT SENDDOCUMENT ", "#DEFINE-MCLE M_GETADRESSMAIL GETADRESSMAIL ", // *********************** ", // WINDOWS : ", // *********************** ", "#DEFINE-MCLE M_MSGBOX MSGBOX ", "#DEFINE-MCLE M_TITLE TITLE ", "#DEFINE-MCLE M_MESSAGE MESSAGE ", "#DEFINE-MCLE M_BUTTON BUTTON ", "#DEFINE-MCLE M_ICON ICON ", "#DEFINE-MCLE M_ICONDIALOG ICONDIALOG ", "#DEFINE-MCLE M_TRANSACTION TRANSACTION", "#DEFINE-MCLE M_BEGINTRANSACTION BEGIN_TRANSACTION ", "#DEFINE-MCLE M_ENDTRANSACTION END_TRANSACTION ", "#DEFINE-MCLE M_BEGIN_MESSAGE_DIALOG BEGIN_MESSAGE_DIALOG", "#DEFINE-MCLE M_END_MESSAGE_DIALOG END_MESSAGE_DIALOG", "#DEFINE-MCLE M_ONCLIKDIALOG ONCLICKDIALOG ", "#DEFINE-MCLE M_ONCLICKMENUSELECT ONCLICKMENUSELECT ", "#DEFINE-MCLE M_ONMOVECURSOR ONMOVECURSOR ", "#DEFINE-MCLE M_EXITTRANSACTION EXIT_TRANSACTION ", "#DEFINE-MCLE M_EXECUTE EXECUTE", "#DEFINE-MCLE M_INPUTDATA INPUTDATA ", "#DEFINE-MCLE M_SETNEWPARENTWIN SETNEWPARENTWIN ", "#DEFINE-MCLE M_SETNEWPARENTDIALOG SETNEWPARENTDIALOG ", "#DEFINE-MCLE M_WAITCLOSEUSER WAITCLOSEUSER ", "#DEFINE-MCLE M_BEGININITIALIZE BEGIN_INITIALIZE ", "#DEFINE-MCLE M_ENDINITIALIZE END_INITIALIZE ", "#DEFINE-MCLE M_SHOWSPLASH SHOWSPLASH", "#DEFINE-MCLE M_DIALOG DIALOG ", "#DEFINE-MCLE M_REBAR REBAR ", "#DEFINE-MCLE M_BEGINDIALOG BEGIN_DIALOG ", "#DEFINE-MCLE M_BEGINDIALOGCHILD BEGIN_DIALOGCHILD ", "#DEFINE-MCLE M_BEGINSPLASH BEGIN_SPLASH ", "#DEFINE-MCLE M_BEGINTOOLBAR BEGIN_TOOLBAR ", "#DEFINE-MCLE M_BEGINREBAR BEGIN_REBAR ", "#DEFINE-MCLE M_BEGINTABCONTROL BEGIN_TABCONTROL ", "#DEFINE-MCLE M_BEGINTABCONTROLITEM BEGIN_TABCONTROLITEM ", "#DEFINE-MCLE M_BEGINMENU BEGIN_MENU ", "#DEFINE-MCLE M_BEGINPOPMENU BEGIN_POPMENU ", "#DEFINE-MCLE M_BEGINSUBMENU BEGIN_SUBMENU ", "#DEFINE-MCLE M_BEGINTRACKPOPMENU BEGIN_TRACKPOPMENU", "#DEFINE-MCLE M_ENDTRACKPOPMENU END_TRACKPOPMENU", "#DEFINE-MCLE M_OPENTRACKPOPMENU OPENTRACKPOPMENU", "#DEFINE-MCLE M_MENUITEM MENUITEM ", "#DEFINE-MCLE M_MENUID ID ", "#DEFINE-MCLE M_DISABLE DISABLE ", "#DEFINE-MCLE M_ENDMENU END_MENU ", "#DEFINE-MCLE M_ENDPOPMENU END_POPMENU ", "#DEFINE-MCLE M_ENDSUBMENU END_SUBMENU ", "#DEFINE-MCLE M_BEGINMSGFRAME BEGIN_MSGFRAME ", "#DEFINE-MCLE M_ENDSPLASH END_SPLASH ", "#DEFINE-MCLE M_ENDDIALOG END_DIALOG ", "#DEFINE-MCLE M_ENDDIALOGCHILD END_DIALOGCHILD ", "#DEFINE-MCLE M_ENDTOOLBAR END_TOOLBAR ", "#DEFINE-MCLE M_ENDREBAR END_REBAR ", "#DEFINE-MCLE M_ENDTABCONTROL END_TABCONTROL ", "#DEFINE-MCLE M_ENDTABCONTROLITEM END_TABCONTROLITEM", "#DEFINE-MCLE M_ESPACE SPACE ", "#DEFINE-MCLE M_BACKGROUNDCOLOR BACKGROUNDCOLOR ", "#DEFINE-MCLE M_BACKGROUNDBMP BACKGROUNDBMP ", "#DEFINE-MCLE M_BACKGROUNDHATCHBRUSH BACKGROUNDHATCHBRUSH", "#DEFINE-MCLE M_WINEXTENDSTYLE WINEXTENDSTYLE ", "#DEFINE-MCLE M_WINSTYLE WINSTYLE ", "#DEFINE-MCLE M_SHOWDIALOG SHOWDIALOG ", "#DEFINE-MCLE M_OPENDIALOG OPENDIALOG ", "#DEFINE-MCLE M_CREATE CREATE CREATION ", "#DEFINE-MCLE M_INFO INFO ", "#DEFINE-MCLE M_CURSOR CURSOR ", "#DEFINE-MCLE M_LIKE LIKE ", "#DEFINE-MCLE M_COMBOBOX COMBOBOX", "#DEFINE-MCLE M_TEXT TEXT", "#DEFINE-MCLE M_TEXTBOX TEXTBOX", "#DEFINE-MCLE M_WIDTH WIDTH", "#DEFINE-MCLE M_HEIGHT HEIGHT", "#DEFINE-MCLE M_STATUSBAR STATUSBAR", "#DEFINE-MCLE M_SETPARTSTATUSBAR SETPARTSTATUSBAR", "#DEFINE-MCLE M_SETSTATUSBAR SETSTATUSBAR", "#DEFINE-MCLE M_NBPARTS NBPARTS", "#DEFINE-MCLE M_PART PART ", "#DEFINE-MCLE M_POPOUT POPOUT", "#DEFINE-MCLE M_OKBUTTON OKBUTTON", "#DEFINE-MCLE M_CANCELBUTTON CANCELBUTTON", "#DEFINE-MCLE M_PUSHICON PUSHICON", "#DEFINE-MCLE M_CHECKBOX CHECKBOX", "#DEFINE-MCLE M_CHECK CHECK ", "#DEFINE-MCLE M_LISTBOX LISTBOX", "#DEFINE-MCLE M_SCROLLBAR SCROLLBAR", "#DEFINE-MCLE M_GROUPBOX GROUPBOX", "#DEFINE-MCLE M_OPTIONGROUP OPTIONGROUP", "#DEFINE-MCLE M_OPTIONBUTTON OPTIONBUTTON", "#DEFINE-MCLE M_PICTUREICON PICTUREICON", "#DEFINE-MCLE M_PICTUREBMP PICTUREBMP", "#DEFINE-MCLE M_DRAWFOCUSRECT DRAWFOCUSRECT", "#DEFINE-MCLE M_DRAWFOCUSRECTLIST DRAWFOCUSRECTLIST", "#DEFINE-MCLE M_DRAWBMPFILE DRAWBMPFILE", "#DEFINE-MCLE M_ANIMATEBMP ANIMATEBMP ", "#DEFINE-MCLE M_ACTIVANIMATEBMP ACTIVANIMATEBMP ", "#DEFINE-MCLE M_DRAWICONFILE DRAWICONFILE", "#DEFINE-MCLE M_DRAWICONFILESYS DRAWICONFILESYS", "#DEFINE-MCLE M_DRAWEMFFILE DRAWEMFFILE", "#DEFINE-MCLE M_DRAWTEXTWIN DRAWTEXTWIN", "#DEFINE-MCLE M_DRAWTEXT DRAWTEXT", "#DEFINE-MCLE M_DRAWRECTANGLE DRAWRECTANGLE", "#DEFINE-MCLE M_ELLIPSE ELLIPSE " , "#DEFINE-MCLE M_RECTANGLE RECTANGLE " , "#DEFINE-MCLE M_ROUNDRECT ROUNDRECT " , "#DEFINE-MCLE M_ROUNDANNOUNCE ROUNDANNOUNCE " , "#DEFINE-MCLE M_ROUNDDIMENSION ROUNDDIMENSION ", "#DEFINE-MCLE M_ANNOUNCE ANNOUNCE " , "#DEFINE-MCLE M_ELLIPTICAL ELLIPTICAL ", "#DEFINE-MCLE M_FILLCOLOR FILLCOLOR " , "#DEFINE-MCLE M_FRAMECOLOR FRAMECOLOR " , "#DEFINE-MCLE M_SHADOWTEXT SHADOWTEXT ", "#DEFINE-MCLE M_SHADOWWIN SHADOWWIN ", "#DEFINE-MCLE M_REQUIRE REQUIRE PLEASE ", "#DEFINE-MCLE M_BEEP BEEP AVERTI", "#DEFINE-MCLE M_PLAYSOUND PLAYSOUND ACTIVESON ", "#DEFINE-MCLE M_SETHOURGLASSCURSOR SETHOURGLASSCURSOR ", "#DEFINE-MCLE M_SETARROWCURSOR SETARROWCURSOR ", "#DEFINE-MCLE M_SETCURSORPOSITION SETCURSORPOSITION ", "#DEFINE-MCLE M_GETCHECK GETCHECK ", "#DEFINE-MCLE M_GETWINDIR GETWINDIR ", "#DEFINE-MCLE M_GETSYSWINDIR GETSYSWINDIR ", "#DEFINE-MCLE M_LOADWINHELP LOADWINHELP ", "#DEFINE-MCLE M_SETCHECK SETCHECK ", "#DEFINE-MCLE M_GETPUSH GETPUSH ", "#DEFINE-MCLE M_SETPUSHENABLE SETPUSHENABLE ", "#DEFINE-MCLE M_SETPUSHDISABLE SETPUSHDISABLE ", "#DEFINE-MCLE M_UNCHECK UNCHECK ", "#DEFINE-MCLE M_ENABLEWINDOW ENABLEWINDOW ", "#DEFINE-MCLE M_DISABLEWINDOW DISABLEWINDOW ", "#DEFINE-MCLE M_HIDEWINDOW HIDEWINDOW ", "#DEFINE-MCLE M_RESTOREWINDOW RESTOREWINDOW ", "#DEFINE-MCLE M_DESTROYDIALOG DESTROYDIALOG ", "#DEFINE-MCLE M_DESTROYWIN DESTROYWIN ", "#DEFINE-MCLE M_REFRESHDIALOG REFRESHDIALOG ", "#DEFINE-MCLE M_REFRESHWIN REFRESHWIN ", "#DEFINE-MCLE M_SETSTATUSWINDOW SETSTATUSWINDOW ", "#DEFINE-MCLE M_SETFOREGROUNDIALOG SETFOREGROUNDDIALOG ", "#DEFINE-MCLE M_SETSTATUSDIALOG SETSTATUSDIALOG", "#DEFINE-MCLE M_CLOSEWINDOW CLOSEWINDOW ", "#DEFINE-MCLE M_CLOSEDIALOG CLOSEDIALOG ", "#DEFINE-MCLE M_SETWINDOWPOS SETWINDOWPOS ", "#DEFINE-MCLE M_SETDISPLAYPOS SETDISPLAYPOS ", "#DEFINE-MCLE M_SETDIALOGPOS SETDIALOGPOS ", "#DEFINE-MCLE M_SETWINDOWATTRIBUT SETWINDOWATTRIBUT ", "#DEFINE-MCLE M_SETWINTXT SETWINTXT ", "#DEFINE-MCLE M_GETWINTXT GETWINTXT ", "#DEFINE-MCLE M_ATTRIBUT ATTRIBUT ", "#DEFINE-MCLE M_IMAGE IMAGE ", "#DEFINE-MCLE M_ISONINPUTDATA ISONINPUTDATA", "#DEFINE-MCLE M_SETINFO SETINFO ", "#DEFINE-MCLE M_SETINFOBUTTONBMP SETINFOBUTTONBMP ", /* win color */ "#DEFINE-MCLE M_COLOR COLOR ", "#DEFINE-MCLE M_SETBKCOLORDIALOG SETBKCOLORDIALOG ", "#DEFINE-MCLE M_SETCOLORBUTTON SETCOLORBUTTON ", "#DEFINE-MCLE M_SETCOLORTXT SETCOLORTEXT ", "#DEFINE-MCLE M_GETCOLORTXT GETCOLORTEXT ", "#DEFINE-MCLE M_SETTEXTOUT SETTEXTOUT ", "#DEFINE-MCLE M_SETBKCOLORLV SETBKCOLORLV ", "#DEFINE-MCLE M_SETCOLORTXTLV SETCOLORTEXTLV ", "#DEFINE-MCLE M_SETBKCOLORGD SETBKCOLORGD ", "#DEFINE-MCLE M_SETCOLORTXTGD SETCOLORTEXTGD ", "#DEFINE-MCLE M_SETCOLORSYS SETCOLORSYS ", "#DEFINE-MCLE M_RESTORECOLORSYS RESTORECOLORSYS ", /* win fonts */ "#DEFINE-MCLE M_SETFONTS SETFONTS ", "#DEFINE-MCLE M_SETFONTSGROUP SETFONTSGROUP ", "#DEFINE-MCLE M_SETATTRTXTORIENTATION SETATTRTEXTORIENTATION ", /* buttons */ "#DEFINE-MCLE M_PUSHBUTTON PUSHBUTTON", "#DEFINE-MCLE M_PUSHBUTTONDEF PUSHBUTTONDEF", "#DEFINE-MCLE M_BUTTONDRAW BUTTONDRAW", "#DEFINE-MCLE M_BUTTONBMPDRAW BUTTONBMPDRAW", "#DEFINE-MCLE M_BUTTONBMPDRAWLABEL BUTTONBMPDRAWLABEL", "#DEFINE-MCLE M_BUTTONBMP BUTTONBMP", "#DEFINE-MCLE M_BUTTONBMPPUSH BUTTONBMPPUSH", "#DEFINE-MCLE M_BUTTONBMPPUSHLABEL BUTTONBMPPUSHLABEL", "#DEFINE-MCLE M_BUTTONREGIONCHILD BUTTONREGIONCHILD", "#DEFINE-MCLE M_BUTTONEMF BUTTONEMF", "#DEFINE-MCLE M_BUTTONICONDRAW BUTTONICONDRAW ", "#DEFINE-MCLE M_BUTTONICONDRAWLABEL BUTTONICONDRAWLABEL", "#DEFINE-MCLE M_BUTTONICONDRAWLABELCENTER BUTTONICONDRAWLABELCENTER", "#DEFINE-MCLE M_BUTTONICON BUTTONICON", "#DEFINE-MCLE M_BUTTONICONPUSH BUTTONICONPUSH", "#DEFINE-MCLE M_BUTTONICONPUSHLABEL BUTTONICONPUSHLABEL", "#DEFINE-MCLE M_REPLACEBUTTONBMP REPLACEBUTTONBMP", "#DEFINE-MCLE M_REPLACEBUTTONICON REPLACEBUTTONICON", "#DEFINE-MCLE M_SWAPBMP SWAPBMP", "#DEFINE-MCLE M_SWAPICON SWAPICON", "#DEFINE-MCLE M_SWAPTEXT SWAPTEXT", "#DEFINE-MCLE M_SWAPCOLOR SWAPCOLOR", "#DEFINE-MCLE M_SWAPFONT SWAPFONT", "#DEFINE-MCLE M_BUTTONTEXT BUTTONTEXT ", /* Grid */ "#DEFINE-MCLE M_GRID GRID " , "#DEFINE-MCLE M_ADDITEMGD ADDITEMGD ", "#DEFINE-MCLE M_SETITEMGD SETITEMGD ", "#DEFINE-MCLE M_INITGD INITGD ", "#DEFINE-MCLE M_FREEMEMORYGD FREEMEMORYGD ", "#DEFINE-MCLE M_PROPERTY PROPERTY ", "#DEFINE-MCLE M_MAX MAX", "#DEFINE-MCLE M_HEIGHTCOLUMN HEIGHTCOLUMN ", "#DEFINE-MCLE M_HEIGHTLINE HEIGHTLINE ", "#DEFINE-MCLE M_SETPROPERTYCELLGD SETPROPERTYCELLGD ", "#DEFINE-MCLE M_GETITEMCHECKGD GETITEMCHECKGD ", "#DEFINE-MCLE M_GETITEMCOUNTGD GETITEMCOUNTGD ", "#DEFINE-MCLE M_GETITEMTEXTGD GETITEMTEXTGD ", "#DEFINE-MCLE M_LINES LINES ", /* listView */ "#DEFINE-MCLE M_LISTVIEW LISTVIEW", "#DEFINE-MCLE M_ADDITEMLV ADDITEMLV", "#DEFINE-MCLE M_DELETEITEMLV DELETEITEMLV", "#DEFINE-MCLE M_SETITEMLV SETITEMLV", "#DEFINE-MCLE M_SETITEMTEXTLISTVIEW SETITEMTEXTLV", "#DEFINE-MCLE M_GETSELECTITEMLV GETSELECTITEMLV ", "#DEFINE-MCLE M_GETITEMTEXTLISTVIEW GETITEMTEXTLV ", "#DEFINE-MCLE M_REPLACEICONLISTVIEW REPLACEICONLV ", "#DEFINE-MCLE M_GETITEMCOUNTLISTVIEW GETITEMCOUNTLV ", "#DEFINE-MCLE M_GETITEMCHECKLISTVIEW GETITEMCHECKLV ", "#DEFINE-MCLE M_CLEARLISTVIEW CLEARLV ", "#DEFINE-MCLE M_INSERTCOLUMNLISTVIEW INSERTCOLUMNLV", "#DEFINE-MCLE M_DELETECOLUMNLISTVIEW DELETECOLUMNLV", "#DEFINE-MCLE M_SORTLISTVIEW SORTLV", /* treeView */ "#DEFINE-MCLE M_TREEVIEW TREEVIEW", "#DEFINE-MCLE M_ADDITEMTV ADDITEMTV", "#DEFINE-MCLE M_REPLACEICONTREEVIEW REPLACEICONTV ", "#DEFINE-MCLE M_GETSELECTITEMTV GETSELECTITEMTV ", "#DEFINE-MCLE M_CLEARTREEVIEW CLEARTV", /* TabControl */ "#DEFINE-MCLE M_TABCONTROL TABCONTROL", "#DEFINE-MCLE M_ITEM ITEM", "#DEFINE-MCLE M_SETITEMTC SETITEMTC", "#DEFINE-MCLE M_ADDITEMTC ADDITEMTC", "#DEFINE-MCLE M_DELETEITEMTC DELETEITEMTC", "#DEFINE-MCLE M_REPLACEICONTC REPLACEICONTC ", "#DEFINE-MCLE M_GETSELECTITEMTC GETSELECTITEMTC ", "#DEFINE-MCLE M_SETSELECTITEMTC SETSELECTITEMTC ", "#DEFINE-MCLE M_SETACTIVEWINITEMTC SETACTIVEWINITEMTC ", "#DEFINE-MCLE M_GETITEMCOUNTTC GETITEMCOUNTTC ", /* Menu */ "#DEFINE-MCLE M_GETSELECTPOPMENUITEMID GETSELECTPOPMENUITEMID ", "#DEFINE-MCLE M_DELETEPOPMENUITEMID DELETEPOPMENUITEMID ", /* ListBox Combobox */ "#DEFINE-MCLE M_GETSELECTLISTBOX GETSELECTLISTBOX", "#DEFINE-MCLE M_ADDLISTBOX ADDLISTBOX ", "#DEFINE-MCLE M_ADDCOMBOBOX ADDCOMBOBOX ", "#DEFINE-MCLE M_DELETEINDEXCOMBOBOX DELETEINDEXCOMBOBOX ", "#DEFINE-MCLE M_GETSELECTCOMBOBOX GETSELECTCOMBOBOX", /* Mouse */ "#DEFINE-MCLE M_ISCLICKMOUSE ISCLICKMOUSE", "#DEFINE-MCLE M_ISDCLICKMOUSE ISDCLICKMOUSE", "#DEFINE-MCLE M_ISONSETCURSOR ISONSETCURSOR", "#DEFINE-MCLE M_ISONSETCURSORLIST ISONSETCURSORLIST", /* autres Keywords */ "#DEFINE-MCLE M_FRAMEWORK FRAMEWORK ", "#DEFINE-MCLE M_CENTER CENTER CENTER", "#DEFINE-MCLE M_LEFT LEFT", "#DEFINE-MCLE M_RIGHT RIGHT", "#DEFINE-MCLE M_EXIT EXIT ", /* status bar */ "#DEFINE-MCLE M_SETTXTSB SETTXTSB ", /* Windows STYLE */ "#DEFINE-MCLE M_CENTERWINDOW CENTERDIALOG ", "#DEFINE-MCLE M_FULLWINDOW FULLDIALOG ", "#DEFINE-MCLE M_LV_REPORT LV_REPORT ", "#DEFINE-MCLE M_LV_ICON LV_ICON ", "#DEFINE-MCLE M_LV_LIST LV_LIST ", "#DEFINE-MCLE M_LV_EDIT LV_EDIT ", "#DEFINE-MCLE M_LV_STEDIT_ALL LV_STEDIT_ALL ", "#DEFINE-MCLE M_TC_VERTICAL TC_VERTICAL", "#DEFINE-MCLE M_TC_BUTTONS TC_BUTTONS ", "#DEFINE-MCLE M_TC_RIGHT TC_RIGHT ", "#DEFINE-MCLE M_SYSOPENFILE SYSOPENFILE ", "#DEFINE-MCLE M_SYSSAVEFILE SYSSAVEFILE ", "#DEFINE-MCLE M_SYSPRINTFILE SYSPRINTFILE ", "#DEFINE-MCLE M_SYSOPENDIRECTORY SYSOPENDIRECTORY", "#DEFINE-MCLE M_RETURNBEGINTRANSACTION RETURN_BEGIN_TRANSACTION", "#DEFINE-MCLE M_CALL CALL ", "#DEFINE-MCLE M_C LANGAGE_C ", "#DEFINE-MCLE M_EXTERN EXTERN ", // *********************************", // DEMO ", // *********************************", "#DEFINE-MCLE M_ALBUMBMP ALBUMBMP ", "#DEFINE-MCLE M_SHOWALBUMBMP SHOWALBUMBMP", // INSTRUCTIONS", "#DEFINE-INST I_CASE CASE_OF ", "#DEFINE-INST I_OLD OLD", "#DEFINE-INST I_ENDCASE END_CASE", "#DEFINE-INST I_OTHERWISE OTHERWISE ", "#DEFINE-INST I_WHEN WHEN ", "#DEFINE-INST I_END_WHEN END_WHEN ", "#DEFINE-INST I_BREAK BREAK ", "#DEFINE-INST I_CONTINUE CONTINUE ", "#DEFINE-INST I_LEAVE LEAVE ", "#DEFINE-INST I_MULT *", "#DEFINE-INST I_SOUST -", "#DEFINE-INST I_ADD +", "#DEFINE-INST I_DIV /", "* IF", "#DEFINE-INST I_IF IF ", "#DEFINE-INST I_THEN THEN ", "#DEFINE-INST I_ELSE ELSE ", "#DEFINE-INST I_ENDIF END_IF ", // instruction while", "#DEFINE-INST I_WHILE WHILE ", "#DEFINE-INST I_BEGINWHILE BEGIN_WHILE ", "#DEFINE-INST I_ENDWHILE END_WHILE ", // instructions FOR ", "#DEFINE-INST I_INCR_ADD ++", "#DEFINE-INST I_INCR_SOUST -- ", "#DEFINE-INST I_FOR FOR ", "#DEFINE-INST I_BEGINFOR BEGIN_FOR ", "#DEFINE-INST I_ENDFOR END_FOR ", // instruction do", "#DEFINE-INST I_DO DO ", "#DEFINE-INST I_BEGINDO BEGIN_DO ", "#DEFINE-INST I_ENDDO END_DO ", "#DEFINE-INST I_ET AND ", "#DEFINE-INST I_OU OR ", "#DEFINE-INST I_SUP > ", "#DEFINE-INST I_INF < ", "#DEFINE-INST I_ESUP => ", "#DEFINE-INST I_EINF <= ", "#DEFINE-INST I_EGAL = ", "#DEFINE-INST I_NEGAL != ", // instruction do while", "#DEFINE-INST I_DOWHILE DOWHILE", "#DEFINE-INST I_BEGINDOWHILE BEGIN_DOWHILE", "#DEFINE-INST I_ENDDOWHILE END_DOWHILE ", "#DEFINE-CHAR-SEPARATE * ++ + -- - / [ ] . ( ) { } & | ; , \" => <= != := : > < = ", // --------------------->indice<--.....", "#DEFINE-FORMAT-TABLE [ ] .", // --------------------->.....", "#DEFINE-FORMAT-RECORD .", // -----------------------><--start--->---<--end----->", "#DEFINE-BLOC-PROGRAM BEGIN_MAIN END_MAIN", "#DEFINE-DECLARE-PROC PROC END_PROCEDURE ", "#DEFINE-DECLARE-FUNCTION FUNC END_FUNCTION ", "#DEFINE-RELATION-BLOC IF END_IF ", "#DEFINE-RELATION-BLOC WHILE END_WHILE ", "#DEFINE-RELATION-BLOC FILESCAN END_SCAN ", "#DEFINE-RELATION-BLOC DO END_DO", "#DEFINE-RELATION-BLOC WHEN END_WHEN", "#DEFINE-RELATION-BLOC BEGIN_DOWHILE DOWHILE ", "#DEFINE-RELATION-BLOC BEGIN_REPORT END_REPORT ", "#DEFINE-RELATION-BLOC BEGIN_DIALOG END_DIALOG", "#DEFINE-RELATION-BLOC BEGIN_SPLASH END_SPLASH ", "#DEFINE-RELATION-BLOC BEGIN_INITIALIZE END_INITIALIZE ", "#DEFINE-RELATION-BLOC BEGIN_TRANSACTION END_TRANSACTION ", "#DEFINE-RELATION-BLOC BEGIN_MESSAGE_DIALOG END_MESSAGE_DIALOG", "#DEFINE-RELATION-BLOC FOREACHROWFIND END_FOREACHROW ", "#DEFINE-RELATION-BLOC FOREACHFILEFIND END_FOREACHFILE ", "#DEFINE-RELATION-BLOC HEADER_REPORT END_HEADER_REPORT ", "#DEFINE-RELATION-BLOC HEADER_LEVEL END_HEADER_LEVEL ", "#DEFINE-RELATION-BLOC BREAK_END_LEVEL END_BREAK_END_LEVEL ", "#DEFINE-RELATION-BLOC DETAIL END_DETAIL ", "#DEFINE-RELATION-BLOC HEADER_END END_HEADER_END ", // ---------------------><--return action>-<--after Return-->", "#DEFINE-RELATION-RETURN RETURN RETURNING ", "#DEFINE-BLOC-IF-ELSE ELSE", //"#DEFINE-RELATION-BLOCTOBLOC WHEN WHEN", //"#DEFINE-RELATION-BLOCTOBLOC WHEN OTHERWISE", "#DEFINE-RELATION-BLOCTOBLOC OTHERWISE END_CASE", "#DEFINE-RELATION-FOR FOR BEGIN_FOR END_FOR", } ;