XPSE

DECLARE THREADSTACK%,STARTPAINTSTACK%,MXI#,GLOB_OP$,BILD#,AFFORD_FILL_MABS%
,AFFORD_CONTROL_ERRS%,TBADDBITMAP#,_THREAD_PATDLG%,MYFONT&,MYFONT2&,MYFONT3
&,MYFONT_BIG&,GLOB_SHOWALLPATS%,GLOB_SHOWALLPATSMONTH%,_THREAD_LKDLG%,_THRE
AD_ABRDLG%,GLOB_C_BEIH%,GLOB_C_PV%,_GLOB_PLEASEWAIT%,RECT_ALAMOUSE#,REMOTEL
K$,GLOB_SECUREMODE%,G_MOUSEX%,G_MOUSEY%,DPLA&,HOSTSCRIPT$,L_MOUSEX%,L_MOUSE
Y%,_THREAD_NETWORK%,GLOBMOUSEPOS#,LASTLOCKINFORMATION$,OID_MOUSEANI_HCUR#,A
FFORD_INTERPRETEHOSTSCRIPT$,_LBADDMEM#,NETID$,NETHOST$,NETIDDESC$,FIRMSTR$,
ORTSTR$,ALLEPS$,GLOB_EPMEM$,ACTMABTOT%,MYYELLOW&,MYDATE$,PRGINPAST%,AFFORD_
CONTROLPLANS%,TLB&,PLB&,MLB%,INP1%,INP2%,TX1%,TX2%,BT1%,GB1%,GB2%,GB3%,SLB%
,ACTDAY$,GB4&,MONTHCAL&,ACTDATEPICK$,ELB%,OACTDATEPICK$,ACTMAB$,OACTMAB$,AC
TDAYNUM%,MINIMIZED%,UNCONTROLPLANS%,MABGOMOSTDOWN%,ACTMABNR%,OACTMABNR%,ERL
B&,FRBUT&,MIBUT&,ABBUT&,SPBUT&,NABUT&,HIBUT&,DWBUT&,DELBUT&,VORBUT&,OLDLBAB
LE%,STBUT&,PRNBUT&,DELBUT2&,PRBUT&,PLBPRINTBUT&,MLBPRINTBUT&,TERMINADDBUT&,
TERMINDELBUT&,TERMINERLBUT&,TERMINOPNBUT&,ELB_ADDUNREGBUT&,ELB_DELPLANBUT&,
ELB_PLANROUTE&,PLBDROPBUT&,DELPATFASTBUT&,DELMABFASTBUT&,OPNPATDLGXBUT&,OPN
MABDLGXBUT&,CALNEXTDAY&,CALPREVDAY&,AGB2%,AMLB%,RGB2%,RAGB2%,TET$,TET2$,OPM
ERK$,TET3$,ERROR_LKS%,ERROR_LKSNAME$,ERROR_AUFN%,ERROR_AUFNNAME$,TUT$,OTUT$
,ERROR_ELB%,ERROR_TERMS%,ERROR_GEB%,ERROR_GEBNAME$,PLBFONT&,SLBPIC&,ERLBPIC
&,TLBPIC&,OTET$,DONTDELPLANLINE%,GLOB_CURSELL%,CURSELL%,TMPE9$,TMPE8$,PIC_1
&,TMP_H%,TMP_H2%,OTMP_H%,OTMP_H2%,SLBGB1%,SLBGB2%,SLBGB3%,SLBGB4%,SLBGB5%,D
AYINDEXNUM&,ACTPAT$,RET1$,RET2$,RET3$,RET4$,SLBDBLKX%,ICC_STRUCT#,TOOLTIP&,
TOOLINFO#,TEXT#,BUTTONSTRUCT#,TOOLTIP1&,BSTR#,BUTTONTIPTEXT$[23],BILD1#,THR
EADSECONDER&,THREADNETFLE$,TB_BUTTON%,PRG_LICENSE_TXT$,PRG_LICENSE_TXT2$,IN
STALLER_DEVTXT&,I_PROGRAMSPATH$,I_PROGRAMSPATH_SUPER$,INSTL_PERC%,INSTL_COL
_WHITE&,INSTL_EX%,INSTL_X%,INSTL_Y%,INSTL_DESC%,INSTL_BRW%,INSTL_P%,INSTL_C
B4%,INSTL_CB3%,INSTL_LIC%,INSTL_BUT1%,INSTL_BUT2%,INSTL_DSC1%,INSTL_INP1%,I
NSTL_CANC%,INSTL_CB2%,INSTL_CB1%,INSTL_O_DSCI$,PROGRAMNAME$,PROGRAMVERSIA$,
PROGRAMSYMBOL%,PROGRAMINSTALLER$,INSTL_WRONGLNG$,INSTL_WRONGBITSCOL$,INSTL_
DSCI%,INSTL_CABINETCNT%,SHARIWARI%,I_ERROR%,ORG_PROGRAMENGLISHVERSION%,PRG_
PRICE$,PRG_DESCRIPTION$,TMPFZ&,OID_PARS$,INSTL_HALFSTARTMENU%,OID_STATBAR&,
DONTINSTALL%,PROGRAMAUTOINSTALL%,PROGRAMNOSYMBOLS%,NOJPG%,PROGRAMDEVELOPERM
ODE%,OID_GMSGFIRST%,PROGRAMENGLISHVERSION%,OID_SKDLL&,OID_DBLCLICK%,OID_DBL
CLICKCNT&,PROGRAMEXEFILENAME$,PROGRAMDIRNAME$,PROGRAMDESCRIPTION$,PROGRAMIN
IFILE$,PROGRAMINIVERSIA%,PROGRAMINSTALLMODE%,PROGRAMDISPVERSIA$,CLSID_ISHEL
LLINK#,IID_ISHELLLINK#,IID_IPERSISTFILE#,PROGRAMDESKICON%,SK_NORMALBMP#,SK_
HOVERBMP#,SK_CLICKEDBMP#,OID_REBAR&,OID_REBARH%,OID_STATBARH%,OID_SECONDTOO
LBAR&,TRMENHANDLE&,TR_SUBMENU&,UDLL&,INTFLEJPG#,DLLFILE$,DATEINAME#, BM#,PI
C_X%,PIC_Y%,OID_TRACER$,OID_MINWINX%,OID_MINWINY%,OID_USEDWINDOWSTYLE%,_RET
 $,OID_PIC_VERLAUF&,OID_PIC_VERLAUF2&,OID_HTMLBUFF#,OID_HTMLBUFF_LEN&,OID_HT
ML_PREBUFF#,OID_HTML_PREBUFF_LEN_CNT#,OID_HTML_TBYTE%,OID_HTML_HFONT$,OID_M
OUSEX%,OID_MOUSEY%,OID_GRAY&,OID_UPDATE_STARTOK%,OID_URL_OUTPUT$,OID_UPDATE
_OUT%,OID_UPDATE_BTN%,OID_UPDATEMODI%,OID_ABOUTMODI%,OID_HWNDSHAPE%,OID_HWN
DH%,OID_TOOLBAR&,OID_TOOLBUTS_CX%,OID_TOOLBUT_ACTIVE%,OID_PROGRAMEXIT%,OID_
MENUITEM%,OID_WHITE&,OID_ICOSTR$,OID_ICO%,OID_ICONAME$,OID_DATEINAME#,OID_I
CON&,OID_HBMCHECKED&,OID_HBMUNCHECKED&,OID_HMENU&,OID_SCALECURSET%,OID_TMP%
,OID_TMPX%,OID_TMPY%,OID_WINW%,OID_WINH%,OID_BT%[20],OID_REBARBANDINFO#,OID
_RECT#,OID_BTNH%,OID_TOOLBARIMAGE&,OID_TOOLBARSET%,OID_WPARAM&,OID_LM%,OID_
RM%,OID_OWPARAM&,DATETIMEPICK#,HEUTE#,RECT#,SELRANGE#,OID_ST#,MCS_DAYSTATE&
,MCS_MULTISELECT&,MCS_WEEKNUMBERS&,OID_PIC_DESK&,OID_TOOLSHAPE%,OID_TOOLSHA
PE_BUT%,OID_TOOLBUTPIC&,MCS_NOTODAYCIRCLE&,MCS_NOTODAY&,TRMENA#,OID_TIMED&,
MCSTYLE&,QBEREICH#,DTS_UPDOWN&,DTS_SHOWNONE&,DTS_SHORTDATEFORMAT&,DTS_LONGD
ATEFORMAT&,DTS_TIMEFORMAT&,DTS_APPCANPARSE&,DTS_RIGHTALIGN&,ICC_STRUCT#,TOO
LINFOBUTTON#,RKTEXT1#,BUTTONTIP&,SA%,DELAY%,OID_DLBTIMER&,FONT_TAHOMA&,FONT
_TAHOMA_BIG&,FONT_COURIER&,FONT_WINDINGS&,FONT_TAHOMA_SMALL&,FONT_TAHOMA_SM
ALL_BIG&,FILENAME#,DATA#,CUT&,COPY&,PASTE&,UNDO&,REDOW&,DELETE&,FILENEW&,FI
LEOPEN&,FILESAVE&,PRINTPREV&,PROPERTIES&,HELP&,FIND&,REPLACE&,PRINT&,FILL_M
ABS_STACK%,CONTROL_ERRS_STACK%,XPSETMP1L&,XPSETMP1R!,XPSETMP1S$,XPSETMP1I%,
XPSETMP1LD&

DECLARE THREADSTACK%,STARTPAINTSTACK%,TDD%,IDD%,B_PRINT%,C_GESELLSCH%,T_GESELLSCH%,C_BSHG%,C_PV%,C_BEIH%,C_PRIV%,C_EA%,CD%,CF%,_GLOB_PATDLG%,IS%,TS%,IH5%,IJ5%,IK5%,IL5%,IG6%,IH6%,IJ6%,IK6%,IL6%,IG7%,IH7%,IJ7%,IK7%,IL7%,CG%,CGD%,IG%,GLOB_PAT_ONLYREAD%,CCB%,IH%,IJ%,IK%,IL%,IG2%,IH2%,IJ2%,IK2%,IL2%,IG3%,IH3%,IJ3%,IK3%,IL3%,IG4%,IH4%,IJ4%,IK4%,IL4%,IG5%,TD%,ID%,IF%,TF%,IA%,I3%,I6%,TD%,ID%,IF%,TF%,IA%,I3%,I6%,MXI#,GLOB_OP$,XPSETMP1L&,XPSETMP1R!,XPSETMP1S$,XPSETMP1I%,XPSETMP1LD&
SET("MessageMode",2)
FILEMODE 002
DECIMALS 000
SETTRUECOLOR 001
SETERRORLEVEL 000
RANDOMIZE
THREADSTACK%=0
CLASS MXI-INTERVAL = #INTTIME&,#INTPROC&,#INTIDENT&,ONINTERVAL@,INTERVALON@,INTERVALOFF@
DEF &LB_GETTOPINDEX $018E
DEF &LB_SETTOPINDEX $0197
DEF APISETCLASSLONG(3) !"user32","SetClassLongA"
DEF ALOADCURSOR(2) !"USER32","LoadCursorA"

PROC FRONTNULTOSPACE

    PARAMETERS S$

    IF EQU$("0",MID$(S$,1,1))

        RETURN " "+MID$(S$,2,LEN(S$)-1)

    ENDIF

    RETURN S$

ENDPROC

PROC STARTPAINT_SAVE

    PARAMETERS HDL&

    IFNOT STARTPAINTSTACK%

        ADD STARTPAINTSTACK%,1
        STARTPAINT HDL&
        RETURN 1

    ELSE

        RETURN 0

    ENDIF

ENDPROC

PROC ENDPAINT_SAVE

    IF STARTPAINTSTACK%

        STARTPAINTSTACK%=0
        ENDPAINT

    ENDIF

ENDPROC

PROC OID_KILLSYSKEY

    SETTIMER 10
    WAITINPUT
    KILLTIMER

ENDPROC

PROC MXI-INTERVAL.ONINTERVAL

    PARAMETERS TIME&, PROC&
    .INTTIME& = TIME&
    .INTPROC& = PROC&

ENDPROC

PROC MXI-INTERVAL.INTERVALON

    .INTIDENT& = EXTERNAL("user32.dll","SetTimer",0,0,.INTTIME&,.INTPROC&)

ENDPROC

PROC MXI-INTERVAL.INTERVALOFF

    IF .INTIDENT& <> 0

        EXTERNAL("user32.dll","KillTimer",0,.INTIDENT&)

    ENDIF

ENDPROC

DiM MXI#,MXI-INTERVAL
MXI#.INTERVALOFF()
END