Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros2.cmz/ORGCAL.SMM

INI File | 1994-08-14 | 71.6 KB | 4,916 lines

[ver]
    4
[sty]
    _MACRO.STY
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    ºQÑ╬ Organizer ╕Ω«╞½╪Ñ▀ñδ╛Σ




    774566453
    35
    738366549
    489
    21
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[l1]
    0
[pg]
    21
    44 0 50 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    92 0 32 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    141 0 30 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    190 0 6 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    239 0 22 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    283 107 7 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    328 0 8 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    377 0 40 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    426 0 19 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    475 0 14 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    524 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    572 0 15 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    621 0 9 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    670 0 29 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    719 0 44 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    768 0 79 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    817 0 49 0 0 0 0 65535 22 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    864 0 18 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    912 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    956 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    1004 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#568,9025>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

<:#284,9025>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

<:#568,9025>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

<:#568,9025>Define PostMessage(hwnd, message, wparam, lparao) dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4)

<:#284,9025>

<:#284,9025>

<:#284,9025><:><:><:><:>Define EnableHardwareInput() dllcall("user,EnableHardwareInput,AA", %1)

<:#284,9025>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

<:#284,9025>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

<:#284,9025>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")

@Outline2@<:#568,9025>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)

@Outline2@<:#284,9025>Define GetWindowText() DllCall("user,GetWindowText,HHCH", %1, %2, 50)

<:#284,9025>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

<:#568,9025>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

<:#284,9025>define WM_GETTEXT        0x000D

<:#284,9025>define SC_RESTORE      0xF120

<:#284,9025>define WM_SYSCOMMAND       0x0112

<:#284,9025>Define WM_SETFONT 0x30

<:#284,9025>Define WM_COMMAND 0x111

<:#284,9025>Define WM_QUIT 0x0012

<:#284,9025>

<:#284,9025>define calstyle "<:f240,BArial,255,0,0>_orgcal.sty<:f>"

<:#284,9025>

<:#284,9025>declare startcal(p1, p2)

<:#284,9025>declare getorgdata(orgsection, orgsection2)

<:#284,9025>declare readorgdates(p1, p2, p3, p4, p5)

<:#284,9025>declare datenum2datestr(orgmonth)

<:#284,9025>declare autocal(year, month)

<:#284,9025>declare datestr2datenum(orgmonth)

<:#284,9025>declare findday(orgday)

<:#284,9025>declare findday_ann(orgday)

<:#284,9025>declare readorganniversary(dates, text, month)

<:#284,9025>declare createdlgfont()

<:#284,9025>declare setfont(hdlg, id)

<:#284,9025>declare deletefont()

<:#284,9025>declare delfile(filename)

<:#284,9025>declare FindAndReplace(String, Findwhat, Replacewith)

<:#284,9025>

<:#284,9025>' Macro by Charlie Pappas, Calendar by Powell Smith

<:#284,9025>

@Function@<:#293,9025>function orgcal()

<:#284,9025>'singlestep(0)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>stylesheet = "<:f240,BArial,255,0,0>_CALORG.STY<:f>"

<:#284,9025>if getopenfilecount() <;> 0

<:#284,9025>    if (getdocinfo$(ddstylesheet) <<<;> stylesheet) <:f240,BArial,0,0,128>Or (GetDocInfo$(dduser8) = 1)<:f>

<:#284,9025>        if New(stylesheet, WithContents, 1024) <<<;> 1

<:#568,9025>            message("Unable to find the style sheet {stylesheet}.", "Ami Pro")

<:#284,9025>            return 0

<:#284,9025>        endif

<:#284,9025>        return 0

<:#284,9025>    endif

<:#284,9025>else

<:#284,9025>    makenew:

<:#284,9025>    if New(stylesheet, WithContents, 1024) <<<;> 1

<:#284,9025><:f240,BArial,255,0,0>        message("Unable to find the style sheet {stylesheet}.", "Ami Pro")<:f>

<:#284,9025>        return 0

<:#284,9025>    endif

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>

<:#284,9025>defstr year, month;

<:#284,9025>'goto debug

<:#284,9025>

<:#284,9025>if autocal(&year, &month) <<<;> 1

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>docinfofields("", "", "", "", "", "", "", 1)

<:#284,9025>defstr startrow, startcol, endrow, endcol;

<:#284,9025>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)

<:#284,9025>if startrow = 10

<:#284,9025>    type("<[>down]<[>down]<[>shiftdown]")

<:#284,9025>    answermsgbox(yes)

<:#284,9025>    DeleteColumnRow(row)

<:#284,9025>endif

<:#284,9025>

<:#284,9025>orgsection = GetProfileString$("OrgCal", "Calendar", "amipro2.ini")

<:#284,9025>if orgsection = ""

<:#284,9025>    orgsection =     "ñΘ╛Σ"

<:#284,9025>    WriteProfileString("OrgCal", "Calendar", "ñΘ╛Σ", "amipro2.ini")

<:#284,9025>endif

<:#284,9025>orgsection2 = GetProfileString$("OrgCal", "<:f240,BArial,255,0,0>Anniversary<:f>", "amipro2.ini")

<:#284,9025>if orgsection2 = ""

<:#284,9025>    orgsection2 = "¼÷⌐└ñΘ"

<:#284,9025>    WriteProfileString("OrgCal", "Anniversary", "¼÷⌐└ñΘ", "amipro2.ini")

<:#284,9025>endif

<:#284,9025>windir = getwindowsdirectory$()

<:#284,9025>type("<[>ctrlhome]<[>down]<[>down]")

<:#284,9025>statusbarmsg("<:f240,BArial,255,0,0>Getting Organizer data...<:f>")

<:#284,9025>if getorgdata(orgsection, orgsection2) <<<;> 1

<:#284,9025>    statusbarmsg("")

<:#284,9025>    hwnd = findwindow("TZ_PORG", 0)

<:#284,9025>    showwindow(hwnd, 1)

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>statusbarmsg("")

<:#284,9025>pause(001)

<:#284,9025>debug:

<:#284,9025>dim dates(1)

<:#284,9025>dim dates_ann(1)

<:#284,9025>dim text(1)

<:#284,9025>dim text_ann(1)

<:#284,9025>dim time(1)

<:#284,9025>SingleStep(0)

<:#284,9025>monthnum = datestr2datenum(month)

<:#284,9025>statusbarmsg("<:f240,BArial,255,0,0>Reading Organizer data...<:f>")

<:#284,9025>numrecs = readorgdates(&dates, &text, &time, year, monthnum)

<:#284,9025>statusbarmsg("")

<:#284,9025>if numrecs = 0

<:#284,9025><:f240,BArial,0,0,128>    Goto Anniver    <:f><:f240,BArial,0,0,128>    ' pmm 5/24/93

<:#284,9025>endif

<:#284,9025>

<:#284,9025>curday = 1

<:#284,9025>findday(curday)

<:#284,9025>for i = 1 to numrecs

<:#284,9025>    orgdate = dates(i)

<:#284,9025>    if orgdate <<<;> curday

<:#284,9025>        type("<[>tab]<[>up]")

<:#284,9025>        curday = findday(orgdate)

<:#284,9025>        if curday = 0

<:#284,9025>            return 0

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>    timex = time(i)

<:#284,9025>    txt = text(i)

<:#284,9025>    setstyle("Entry")

<:#284,9025>    bold()

<:#284,9025>    type("{timex}")

<:#284,9025>    bold()

<:#284,9025>    if KInstr(1, txt, "    ") <;> 0

<:#284,9025>        findandreplace(&txt, "    ", "   ")

<:#284,9025>    endif

<:#284,9025>    type(" {txt}<[>enter]")

<:#284,9025>next

<:#284,9025>

<:#284,9025><:f240,BArial,0,0,128>Anniver:<:f>

<:#284,9025>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1

<:#284,9025>    goto done

<:#284,9025>endif

<:#284,9025>

<:#284,9025>' Now do the anniversary dates

<:#284,9025>type("<[>ctrlhome]<[>down]<[>down]")

<:#284,9025>statusbarmsg("<:f240,BArial,255,0,0>Reading Organizer Anniversary data...<:f>")

<:#284,9025>

<:#284,9025>numrecs = readorganniversary(&dates_ann, &text_ann, monthnum)

<:#284,9025>statusbarmsg("")

<:#284,9025>if numrecs = 0

<:#284,9025>    goto done

<:#284,9025>endif

<:#284,9025>curday = 1

<:#284,9025>findday_ann(curday)

<:#284,9025>for i = 1 to numrecs

<:#284,9025>    orgdate = dates_ann(i)

<:#284,9025>    if orgdate <<<;> curday

<:#284,9025>        type("<[>tab]<[>up]")

<:#284,9025>        curday = findday_ann(orgdate)

<:#284,9025>        if curday = 0

<:#284,9025>            return 0

<:#284,9025>        endif

<:#284,9025>    endif

<:#284,9025>    txt = text_ann(i)

<:#284,9025>    Message("text = {txt}")

<:#284,9025>    if Kinstr(1, txt, "    ") <;> 0

<:#284,9025>        findandreplace(&txt, "    ", "   ")

<:#284,9025>    endif

<:#284,9025>    type("{txt}<[>enter]")

<:#284,9025>next

<:#284,9025>

<:#284,9025>done:

<:#284,9025>defstr fh;

<:#284,9025>delfile(GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini"))

<:#284,9025>delfile(GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini"))

<:#284,9025>pause(001)

<:#284,9025>message("<:f240,BArial,255,0,0>Here is your calendar from Lotus Organizer.", "Ami Pro<:f>")

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function findday(orgday)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>while(1)

<:#284,9025>    curday = curword$()

<:#284,9025>    if curday = orgday

<:#284,9025>        type("<[>down]")

<:#284,9025>        return curday

<:#284,9025>    endif

<:#284,9025>    type("<[>tab]")

<:#284,9025>    if getmode() <<<;> 129

<:#284,9025>        message("<:f240,BArial,255,0,0>Unable to continue.<:f>", "Ami Pro")

<:#284,9025>        return 0

<:#284,9025>    endif

<:#284,9025>wend

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function findday_ann(orgday)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>while(1)

<:#284,9025>    curday = curword$()

<:#284,9025>    if curday = orgday

<:#284,9025>        type("<[>left]")

<:#284,9025>        return curday

<:#284,9025>    endif

<:#284,9025>    type("<[>tab]")

<:#284,9025>    if getmode() <<<;> 129

<:#284,9025>        message("<:f240,BArial,255,0,0>Unable to continue.<:f>", "Ami Pro")

<:#284,9025>        return 0

<:#284,9025>    endif

<:#284,9025>wend

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function startcal(year, month)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>defstr startrow, startcol, endrow, endcol;

<:#284,9025>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)

<:#284,9025>if startrow = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>type("<[>ctrlhome]");

<:#284,9025>*year = curword$()

<:#284,9025>type("<[>tab]")

<:#284,9025>*month = curword$()

<:#284,9025>type("<[>down]<[>down]<[>home]<[>home]<[>tab]")

<:#284,9025>return 1

<:#284,9025>end function

<:#284,9025>

@Function@<:#293,9025>function getorgdata(orgsection, orgsection2)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>buffsize=80

<:#284,9025>defstr txt;

<:#284,9025>hwnd = findwindow("TZ_PORG", 0)

<:#284,9025>if isiconic(hwnd)

<:#284,9025>    appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)

<+@><:#284,9025>endif

<:#284,9025>showwindow(hwnd, 0)

<:#284,9025>activateapp("<:f240,BArial,255,0,0>Lotus Organizer<:f>")

<:#284,9025>enablehardwareinput(0)

<:#284,9025>wparam = 0x03F2

<:#284,9025>lparao = 0x00000000

<:#284,9025>PostMessage(hwnd, wm_command, wparam, lparao)

<:#284,9025>pause(001)

<:#284,9025>hdlg = getactivewindow()

<:S+-1><:#284,9025>sendkeys("<[>ctrlhome]")    ' go to beginning of organize and do File/Export

<:S+-1><:#284,9025>pause(002)

<:S+-1><:#284,9025>for i = 1 to 20

<:#568,9025>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)

<:#284,9025>    'if Kinstr(3, txt, orgsection) <;> 1

<:#284,9025>    if Kinstr(3, txt, orgsection) <<<;> 0

<:#284,9025>        goto rabbit

<:#284,9025>    endif

<:#284,9025>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' go to next org item in combo box

<:#284,9025>next

<:#284,9025>statusbarmsg("")

<:#284,9025>enablehardwareinput(1)

<:#284,9025>return 0

<:#284,9025>rabbit:

<:#284,9025>temp = getwindowsdirectory$()

<:#284,9025>if right$(temp, 1) <<<;> "\"

<:#284,9025>    temp = strcat$(temp, "\")

<:#284,9025>endif

<:#284,9025>again:

<:#284,9025>uname = right$(now(), 7)

<:#284,9025>filename = "{temp}~{uname}.tmp"

<:#284,9025>WriteProfileString("OrgCal", "CalendarFile", filename, "amipro2.ini");

<:#284,9025>

<:#284,9025>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")

<:#284,9025>sendkeys("<:f240,BArial,255,0,0><[>alto]<:f><:f240,BArial,255,0,0><[>altf]<:f>")

<:#284,9025>pause(001)

<:#284,9025>if GetDlgItemText(getactivewindow(), 307) <<<;> 1

<:#284,9025>    sendkeys(" ") ' send a space to check the box

<:#284,9025>endif

<:#284,9025>pause(001)

<:#568,9025>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option

<:#568,9025>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each 'country

<:#568,9025>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]{filename}<:f><:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields

<:#284,9025>hdlg = getactivewindow()

<:#284,9025>defstr windowtext;

<:#284,9025>pause(002)

<:#284,9025>while(1)

<:#284,9025>    getwindowtext(getactivewindow(), &windowtext)

<:#568,9025>    if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' check on export dialog box title bar until it is gone

<:#284,9025>        sendkeys("<:f240,BArial,255,0,0><[><:f240,BArial,255,0,0>esc<:f><:f240,BArial,255,0,0>]<:f>") ' clear the next message box

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>    pause(010)

<:#284,9025>    if windowtext <<<;> "<:f240,BArial,255,0,0>Status<:f>"

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>wend

<:#284,9025>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1

<:#284,9025>    goto done

<:#284,9025>endif

<:#284,9025>

<:#284,9025>again2:

<:#284,9025>uname = right$(now(), 7)

<:#284,9025>filename = "{temp}~{uname}.tmp"

<:#284,9025>WriteProfileString("OrgCal", "AnniversaryFile", filename, "amipro2.ini");

<:#284,9025>

<:#284,9025>PostMessage(hwnd, wm_command, wparam, lparao)

<:#284,9025>pause(001)

<:#284,9025>hdlg = getactivewindow()

<:S+-1><:#284,9025>sendkeys("<[>ctrlhome]")

<:S+-1><:#284,9025>for i = 1 to 20

<:#568,9025>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)

<:#284,9025>    'if Kinstr(3, txt, orgsection2) <;> 1

<:#284,9025>    if Kinstr(3, txt, orgsection2) <<<;> 0

<:#284,9025>        goto rabbit2

<:#284,9025>    endif

<:#284,9025>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' see above

<:#284,9025>next

<:#284,9025>enablehardwareinput(1)

<:#284,9025>return 0

<:#284,9025>rabbit2:

<:#284,9025>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")

<:#284,9025>sendkeys("<:f240,BArial,255,0,0><[>alto]<:f><:f240,BArial,255,0,0><[>altf]<:f>") ' goes to O

<:#284,9025>pause(001)

<:#284,9025>if GetDlgItemText(getactivewindow(), 307) <<<;> 1

<:#284,9025>    sendkeys(" ") ' send a space to check the box

<:#284,9025>endif

<:#284,9025>pause(001)

<:#568,9025>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option

<:#568,9025>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each 'country

<:#568,9025>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]{filename}<:f><:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields

<:#284,9025>hdlg = getactivewindow()

<:#284,9025>pause(002)

<:#284,9025>while(1)

<:#284,9025>    getwindowtext(getactivewindow(), &windowtext)

<:#284,9025>    if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' see above

<:#284,9025>        sendkeys("<:f240,BArial,255,0,0><[>esc<:f><:f240,BArial,255,0,0>]<:f>") ' see above

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>    pause(010)

<:#284,9025>    if windowtext <<<;> "<:f240,BArial,255,0,0>Status<:f>"

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>wend

<:#284,9025>done:

<:#284,9025>appminimize("<:f240,BArial,255,0,0>Lotus Organizer<:f>")

<:#284,9025>showwindow(hwnd, 1)

<:#284,9025>activateapp("")

<:#284,9025>enablehardwareinput(1)

<:#284,9025>return 1

<:#284,9025>endit:

<:#284,9025>showwindow(hwnd, 1)

<:#284,9025>enablehardwareinput(1)

<:#284,9025>return 0

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function readorganniversary(dates_ann, text_ann, month)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>DIM field(2)

<:#284,9025>'pause(030)

<:#284,9025>datafile = GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini");

<:#284,9025>fh = fopen(datafile, "r")

<:#284,9025>if fh = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>if fgets$(fh) = -1

<:#284,9025>    fclose(fh)

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>fclose(fh)

<:#284,9025>handle = RecOpen(datafile,, "*Comma:1", 0)

<:#284,9025>IF handle = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>numfields = RecFieldCount(handle)

<:#284,9025>if numfields << 1

<:#284,9025>    goto endit

<:#284,9025>endif

<:#284,9025>

<:#284,9025>sep = GetProfileString$("intl", "sDate")

<:#284,9025>if sep = ""

<:#284,9025>    sep = "/"

<:#284,9025>endif

<:#284,9025>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))

<:#284,9025>if sShortDate = ""

<:#284,9025>    sShortDate = "M/D/YY"

<:#284,9025>endif

<:#284,9025>for i = 1 to 3

<:#284,9025>    smonth = strfield$(sShortDate, i, sep)

<:#284,9025>    if smonth = "M"

<:#284,9025>        smonth = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>for i = 1 to 3

<:#284,9025>    sday = strfield$(sShortDate, i, sep)

<:#284,9025>    if sday = "D"

<:#284,9025>        sday = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>for i = 1 to 3

<:#284,9025>    syear = strfield$(sShortDate, i, sep)

<:#284,9025>    if syear = "YY"

<:#284,9025>        syear = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>

<:#284,9025>FOR I = 1 to 2

<:#284,9025>    name = (RecFieldName$(handle, I))

<:#284,9025>    field(i) = name

<:#284,9025>NEXT

<:#284,9025>i = 1

<:#284,9025>

<:#284,9025>WHILE RecNextRec(handle) = 0

<:#284,9025>    name = (RecGetField(handle, field(1))); ' date

<:#284,9025>    orgmonth = strfield$(name, smonth, sep)

<:#284,9025>    if orgmonth <<<;> month

<:#284,9025>        goto skipit

<:#284,9025>    endif

<:#284,9025>    date = strfield$(name, sday, sep)

<:#284,9025>    if Kmid$(date,1, 1) = 0

<:#284,9025>        date = right$(date, 1)

<:#284,9025>    endif

<:#284,9025>    ArrayInsert(&dates_ann, i, date) ' insert the date

<:#284,9025>    name = (RecGetField(handle, field(2)));

<:#284,9025>    ArrayInsert(&text_ann, i, name)

<:#284,9025>    statusbarmsg(name)

<:#284,9025>    i = i + 1

<:#284,9025>    skipit:

<:#284,9025>WEND

<:#284,9025>RecClose(handle)

<:#284,9025>statusbarmsg("")

<:#284,9025>return i - 1

<:#284,9025>endit:

<:#284,9025>RecClose(handle)

<:#284,9025>statusbarmsg("")

<:#284,9025>return 0

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function readorgdates(dates, text, time, year, month)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>onerror endit

<:#284,9025>oncancel endit

<:#284,9025>mynumfields = 4

<:#284,9025>year = right$(year, 2)

<:#284,9025>DIM field(mynumfields)

<:#284,9025>datafile = GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini");

<:#284,9025>'pause(030)

<:#284,9025>fh = fopen(datafile, "r")

<:#284,9025>if fh = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>if fgets$(fh) = -1

<:#284,9025>    fclose(fh)

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>fclose(fh)

<:#284,9025>handle = RecOpen(datafile,, "*Comma:1", 0)

<:#284,9025>IF handle = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>numfields = RecFieldCount(handle)

<:#284,9025>if numfields << 1

<:#284,9025>    goto endit

<:#284,9025>endif

<:#284,9025>

<:#284,9025>sep = GetProfileString$("intl", "sDate")

<:#284,9025>if sep = ""

<:#284,9025>    sep = "/"

<:#284,9025>endif

<:#284,9025>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))

<:#284,9025>if sShortDate = ""

<:#284,9025>    sShortDate = "M/D/YY"

<:#284,9025>endif

<:#284,9025>for i = 1 to 3

<:#284,9025>    smonth = strfield$(sShortDate, i, sep)

<:#284,9025>    if smonth = "M"

<:#284,9025>        smonth = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>for i = 1 to 3

<:#284,9025>    sday = strfield$(sShortDate, i, sep)

<:#284,9025>    if sday = "D"

<:#284,9025>        sday = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>for i = 1 to 3

<:#284,9025>    syear = strfield$(sShortDate, i, sep)

<:#284,9025>    if syear = "YY"

<:#284,9025>        syear = i

<:#284,9025>        break

<:#284,9025>    endif

<:#284,9025>next

<:#284,9025>

<:#284,9025>FOR i = 1 to mynumfields

<:#284,9025>    name = (RecFieldName$(handle, i))

<:#284,9025>    field(i) = name

<:#284,9025>NEXT

<:#284,9025>i = 1

<:#284,9025>WHILE RecNextRec(handle) = 0

<:#284,9025>    name = (RecGetField(handle, field(1))); ' date

<:#284,9025>    orgyear = strfield$(name, syear, sep)

<:#284,9025>    if orgyear <<<;> year

<:#284,9025>        goto skipit

<:#284,9025>    endif

<:#284,9025>    orgmonth = strfield$(name, smonth, sep)

<:#284,9025>    if orgmonth <<<;> month

<:#284,9025>        goto skipit

<:#284,9025>    endif

<:#284,9025>    date = strfield$(name, sday, sep)

<:#284,9025>    if Kmid$(date,1, 1) = 0

<:#284,9025>        date = right$(date, 1)

<:#284,9025>    endif

<:#284,9025>    ArrayInsert(&dates, i, date) ' insert the date

<:#284,9025>    name = (RecGetField(handle, field(2))); ' time

<:#284,9025>    ArrayInsert(&time, i, name)

<:#284,9025>    name = (RecGetField(handle, field(4))); ' text

<:#284,9025>    ArrayInsert(&text, i, name)

<:#284,9025>    statusbarmsg(name)

<:#284,9025>    i = i + 1

<:#284,9025>    skipit:

<:#284,9025>WEND

<:#284,9025>RecClose(handle)

<:#284,9025>statusbarmsg("")

<:#284,9025>return i - 1

<:#284,9025>endit:

<:#284,9025>RecClose(handle)

<:#284,9025>statusbarmsg("")

<:#284,9025>return 0

<:#284,9025>end function

@Function@<:#293,9025>

<:#284,9025>

@Function@<:#293,9025>function helpme()

<:#568,9025>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 140)

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function datenum2datestr(orgmonth)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>switch orgmonth

<:#284,9025>    case 01

<:#284,9025><:f240,BArial,255,0,0>        return "January"

<:#284,9025><:f240,BArial,255,0,0>    case 02

<:#284,9025><:f240,BArial,255,0,0>        return "February"

<:#284,9025><:f240,BArial,255,0,0>    case 03

<:#284,9025><:f240,BArial,255,0,0>        return "March"

<:#284,9025><:f240,BArial,255,0,0>    case 04

<:#284,9025><:f240,BArial,255,0,0>        return "April"

<:#284,9025><:f240,BArial,255,0,0>    case 05

<:#284,9025><:f240,BArial,255,0,0>        return "May"

<:#284,9025><:f240,BArial,255,0,0>    case 06

<:#284,9025><:f240,BArial,255,0,0>        return "June"

<:#284,9025><:f240,BArial,255,0,0>    case 07

<:#284,9025><:f240,BArial,255,0,0>        return "July"

<:#284,9025><:f240,BArial,255,0,0>    case 08

<:#284,9025><:f240,BArial,255,0,0>        return "August"

<:#284,9025><:f240,BArial,255,0,0>    case 09

<:#284,9025><:f240,BArial,255,0,0>        return "September"

<:#284,9025><:f240,BArial,255,0,0>    case 10

<:#284,9025><:f240,BArial,255,0,0>        return "October"

<:#284,9025><:f240,BArial,255,0,0>    case 11

<:#284,9025><:f240,BArial,255,0,0>        return "November"

<:#284,9025><:f240,BArial,255,0,0>    case 12

<:#284,9025><:f240,BArial,255,0,0>        return "December"

<:#284,9025>endswitch

<:#284,9025>end function

<:#284,9025>

@Function@<:#293,9025>function datestr2datenum(orgmonth)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>switch orgmonth

<:#284,9025><:f240,BArial,255,0,0>    case "January"

<:#284,9025><:f240,BArial,255,0,0>        return 01

<:#284,9025><:f240,BArial,255,0,0>    case "February"

<:#284,9025><:f240,BArial,255,0,0>        return 02

<:#284,9025><:f240,BArial,255,0,0>    case "March"

<:#284,9025><:f240,BArial,255,0,0>        return 03

<:#284,9025><:f240,BArial,255,0,0>    case "April"

<:#284,9025><:f240,BArial,255,0,0>        return 04

<:#284,9025><:f240,BArial,255,0,0>    case "May"

<:#284,9025><:f240,BArial,255,0,0>        return 05

<:#284,9025><:f240,BArial,255,0,0>    case "June"

<:#284,9025><:f240,BArial,255,0,0>        return 06

<:#284,9025><:f240,BArial,255,0,0>    case "July"

<:#284,9025><:f240,BArial,255,0,0>        return 07

<:#284,9025><:f240,BArial,255,0,0>    case "August"

<:#284,9025><:f240,BArial,255,0,0>        return 08

<:#284,9025><:f240,BArial,255,0,0>    case "September"

<:#284,9025><:f240,BArial,255,0,0>        return 09

<:#284,9025><:f240,BArial,255,0,0>    case "October"

<:#284,9025><:f240,BArial,255,0,0>        return 10

<:#284,9025><:f240,BArial,255,0,0>    case "November"

<:#284,9025><:f240,BArial,255,0,0>        return 11

<:#284,9025><:f240,BArial,255,0,0>    case "December"

<:#284,9025>        return 12

<:#284,9025>endswitch

<:#284,9025>end function

@Function@<:#293,9025>

<:#284,9025>

<:#284,9025>FUNCTION AutoCal(year, month)

<:#284,9025>ignorekeyboard(1)

@Remark@<:#284,9025>'Declaration of Variables

<:#284,9025>DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>

<:#284,9025>DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>

<:#284,9025>DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>

<:#284,9025>DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>

<:#284,9025>DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>

<:#284,9025>DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>

<:#284,9025>DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>

<:#284,9025>DEFSTR ChkLen  <:f160,2Tms Rmn,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.<:f>

<:#284,9025>DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>

<:#284,9025>DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>

<:#284,9025>DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>'This contains the number of MDI windows open when starting macro.

@Remark@<:#284,9025>'Declaration of Functions.

<:#284,9025>DECLARE BuildDate(M,Y,N)

<:#284,9025>DECLARE FillCalendar(F,L)

<:#284,9025>DECLARE CheckLeap(M,Y,N)

<:#284,9025>DECLARE AdjustTable()

<:#284,9025>NW=IsNewWave()

<:#284,9025>if nw = 1

<:#284,9025>    message("<:f240,BArial,255,0,0>Unable to run under NewWave.<:f>", "Ami Pro")

<:#284,9025>    return 0

<:#284,9025>ENDIF

<:#284,9025>LayoutMode()

<:#284,9025>FullPageView()

<:#284,9025>rmac = getrunningmacrofile$()

<:#284,9025>tryagain:

@Remark@<:#284,9025>'Fill Edit boxes with current Month and Year.

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." "))

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." "))

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"January")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"February")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"March")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"April")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"May")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"June")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"July")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"August")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"September")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"October")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"November")

<:#284,9025><:f240,BArial,255,0,0>FillEdit(9500,"December")

<:#284,9025>FillEdit(9501,"1980")

<:#284,9025>FillEdit(9501,"1981")

<:#284,9025>FillEdit(9501,"1982")

<:#284,9025>FillEdit(9501,"1983")

<:#284,9025>FillEdit(9501,"1984")

<:#284,9025>FillEdit(9501,"1985")

<:#284,9025>FillEdit(9501,"1986")

<:#284,9025>FillEdit(9501,"1987")

<:#284,9025>FillEdit(9501,"1988")

<:#284,9025>FillEdit(9501,"1989")

<:#284,9025>FillEdit(9501,"1990")

<:#284,9025>FillEdit(9501,"1991")

<:#284,9025>FillEdit(9501,"1992")

<:#284,9025>FillEdit(9501,"1993")

<:#284,9025>FillEdit(9501,"1994")

<:#284,9025>FillEdit(9501,"1995")

<:#284,9025>FillEdit(9501,"1996")

<:#284,9025>FillEdit(9501,"1997")

<:#284,9025>FillEdit(9501,"1998")

<:#284,9025>FillEdit(9501,"1999")

<:#284,9025>filledit(20, getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini"))

@Remark@<:#284,9025>

@Remark@<:#284,9025>'Call Dialog box for data entry and get data from edit boxes.

<:#284,9025>

<:#284,9025>SetDlgCallBack(0, "{rmac}!initdlg")

<:#284,9025>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")

<:#284,9025>Stat1=DialogBox("." "Heymon")

<:#284,9025>deletefont()

<:#284,9025>if stat1 = 0

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>if findwindow("TZ_PORG", 0) << 1

<:#284,9025>    PostMessage(getactivewindow(),0x111,1,0)

<:#284,9025>    message("<:f240,BArial,255,0,0>Lotus Organizer is not running.<:f>", "Ami Pro")

<:#284,9025>    return 0

<:#284,9025>endif

<:#284,9025>

<:#284,9025>Month1=GetDialogField$(9500)

<:#284,9025>Year1=GetDialogField$(9501)

@Remark@<:#284,9025>WriteProfileString("OrgCal", "DoAnniversary", getdialogfield$(20), "amipro2.ini")

@Remark@<:#284,9025>'Check for Cancel.

@Remark@<:#284,9025>'Check for error in entry.

<:#284,9025>IF Year1 << 1980 OR Year1 <;> 1999

<:#284,9025>    Message("Year must be in the range 1980 to 1999.")

<:#284,9025>    FillEdit(9500,Month1)

<:#284,9025>    FillEdit(9501,Year1)

<:#284,9025>    GOTO TryAgain

<:#284,9025>ENDIF

<:#284,9025>ChkLen = tlen(Year1)

<:#284,9025>IF ChkLen<<<;>4

<:#284,9025><:f240,BArial,255,0,0>    Message("Year must be in the format, YYYY (Ex.
<:f240,BArial,255,0,0>'1991')")<:f>

<:#284,9025>    FillEdit(9500,Month1)

<:#284,9025>    FillEdit(9501,Year1)

<:#284,9025>    GOTO TryAgain

<:#284,9025>'ELSEIF Year1<<1980 OR Year1<;>1999

<:#284,9025><:f240,BArial,255,0,0>    Message("Year must be in a range from 1980 to 1999.")<:f>

<:#284,9025>    FillEdit(9500,Month1)

<:#284,9025>    FillEdit(9501,Year1)

<:#284,9025>    GOTO TryAgain

<:#284,9025>ENDIF

@Remark@<:#284,9025>'Convert month to lower case and process.

<:#284,9025>LMonth=LCase$(Month1)

<:#284,9025>IF LMonth= <:f240,BArial,255,0,0>"january"

<:#284,9025>    NMonth=<:f240,BArial,255,0,0>"01/01/"<:f>

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025>ELSEIF LMonth= <:f240,BArial,255,0,0>"february"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="02/01/"

<:#284,9025>    LastDay=CheckLeap(Month1,Year1,NMonth)

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "march"<:f>

<:#284,9025><:f240,BArial,255,0,0>    NMonth="03/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "april"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="04/01/"

<:#284,9025>    LastDay=30

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "may"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="05/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "june"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="06/01/"

<:#284,9025>    LastDay=30

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "july"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="07/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "august"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="08/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "september"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="09/01/"

<:#284,9025>    LastDay=30

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "october"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="10/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "november"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="11/01/"

<:#284,9025>    LastDay=30

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

<:#284,9025><:f240,BArial,255,0,0>ELSEIF LMonth= "december"

<:#284,9025><:f240,BArial,255,0,0>    NMonth="12/01/"

<:#284,9025>    LastDay=31

<:#284,9025>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#284,9025>    FillCalendar(FirstDayWeek,LastDay)

@Remark@<:#284,9025>'Check for error in Month entry

<:#284,9025>ELSE

<:#284,9025><:f240,BArial,255,0,0>    Message ("This is not a valid month.  Please try again.")

<:#284,9025>    FillEdit(9500,Month1)

<:#284,9025>    FillEdit(9501,Year1)

<:#284,9025>    GOTO TryAgain

<:#284,9025>ENDIF;

<:#284,9025>*year = year1;

<:#284,9025>*month = month1

<:#284,9025>return 1

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>Function BuildDate(Month1,Year1,NMonth)

@Remark@<:#284,9025>ignorekeyboard(1)

<:#284,9025>DEFSTR CDate

<:#284,9025>DEFSTR NDate

<:#284,9025>DEFSTR NDays

<:#284,9025>DEFSTR WDate

<:#284,9025>DEFSTR DateRef

<:#284,9025>DEFSTR TYear

@Remark@<:#284,9025>'Extract last two digits of date for processing.

<:#284,9025>TYear=KMid$(Year1,3,2)

<:#284,9025>CDate=StrCat$(NMonth,TYear)

<:#284,9025><:f240,BArial,255,0,0>DateRef="01/01/90"

<:#284,9025>NDays=DateDiff(CDate,DateRef)

<:#284,9025>NDate=NDays*86400+631224000

<:#284,9025>WDate=FormatDate$(NDate,"f")

<:#284,9025>BuildDate=StrField$(WDate,1," ")

<:#284,9025>Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}")

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>FUNCTION FillCalendar(FirstDayWeek,LastDay)

<:#284,9025>ignorekeyboard(1)

<:#284,9025>'answermsgbox(yes)

<:#284,9025>'SaveAs("x.sam", 1, "", "")

<:#284,9025>DEFSTR DayNum

<:#284,9025>DEFSTR Column

<:#284,9025>DEFSTR Row

<:#284,9025>DEFSTR Row2

<:#284,9025>DEFSTR Row3

<:#284,9025>DEFSTR R1

<:#284,9025>DEFSTR R2

<:#284,9025>DEFSTR R3

<:#284,9025>DEFSTR R4

<:#284,9025>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )

<:#284,9025>DayNum=1

<:#284,9025>IF FirstDayWeek=<:f240,BArial,255,0,0>"Sunday"

<:#284,9025>    FOR R1=1 TO 6

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>    NEXT

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Monday"

<:#284,9025>    Type("<[>Right]<[>Right]")

<:#284,9025>    FOR R1=1 TO 5

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>    NEXT

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Tuesday"

<:#284,9025>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")

<:#284,9025>    FOR R2=1 TO 4

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>    NEXT

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Wednesday"

<:#284,9025>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#284,9025>    FOR R3=1 TO 3

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>    NEXT

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Thursday"

<:#284,9025>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#284,9025>    FOR R4=1 TO 2

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>    NEXT

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Friday"

<:#284,9025>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#284,9025>    Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>    DayNum=DayNum + 1

<:#284,9025>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Saturday"

<:#852,9025>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#284,9025>ENDIF

<:#284,9025>Type("{DayNum}<[>Right]<[>Down]<[>Right]")

<:#284,9025>DayNum=DayNum + 1

<:#284,9025>FOR Column=2 <++>to<-+> 6

<:#284,9025>    FOR Row= 1 <++>to<-+> 6

<:#284,9025>        Type("{DayNum}<[>Right]<[>Right]")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>        IF DayNum <;> LastDay

<:#284,9025>            EXIT FUNCTION

<:#284,9025>        ENDIF

<:#284,9025>    NEXT

<:#284,9025>    IF Column=7 AND DayNum<<LastDay

<:#284,9025>        Type("{DayNum}")

<:#284,9025>        DayNum=DayNum + 1

<:#284,9025>        Type("<[>Right]")

<:#284,9025>'        AdjustTable()

<:#284,9025>        FOR Row2=1 TO 7

<:#284,9025>'            ConnectCells()

<:#284,9025>goto debug

<:#284,9025>            FOR Row3=1 TO 2

<:#284,9025>                TurnOn=TopSide

<:#284,9025>                TurnOff=0

<:#284,9025>                StaySame=CellShade + Outline

<:#568,9025>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)

<:#284,9025>                Type("<[>CTRLRight]")

<:#284,9025>            NEXT

<:#284,9025>            Type("<[>CTRLLeft]")

<:#284,9025>debug:

<:#284,9025>

<:#284,9025>            Type("{DayNum}")

<:#284,9025>            DayNum=DayNum + 1

<:#284,9025>            Type("<[>CTRLRight]")

<:#284,9025>            IF DayNum <;> LastDay

<:#284,9025>                BREAK

<:#284,9025>            ENDIF

<:#284,9025>        NEXT

<:#284,9025>    ELSEIF DayNum = LastDay

<:#284,9025>        Type("{DayNum}<[>CtrlHome]")

<:#284,9025>        BREAK

<:#284,9025>    ELSE

<:#284,9025>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")

<:#284,9025>    ENDIF

<:#284,9025>    DayNum=DayNum + 1

<:#284,9025>NEXT

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>FUNCTION CheckLeap(Month1,Year1,NMonth)

@Remark@<:#284,9025>ignorekeyboard(1)

<:#284,9025>DEFSTR CDate

<:#284,9025>DEFSTR NDate

<:#284,9025>DEFSTR NDays

<:#284,9025>DEFSTR WDate

<:#284,9025>DEFSTR DateRef

<:#284,9025>DEFSTR TYear

<:#284,9025>DEFSTR LNDate

<:#284,9025>DEFSTR LeapDate

@Remark@<:#284,9025>'Extract last two digits of date for processing.

<:#284,9025>TYear=KMID$(Year1,3,2)

<:#284,9025>CDate=StrCat$(NMonth,TYear)

<:#284,9025><:f240,BArial,255,0,0>DateRef="01/01/90"

<:#284,9025>NDays=DateDiff(CDate,DateRef)

<:#284,9025>NDate=NDays*86400+631224000

<:#284,9025>LNDate=NDate +  2419200

<:#284,9025><:f240,BArial,255,0,0>LeapDate=FormatDate$(LNDate,"a")<:f>

<:#284,9025>LeapNum=StrField$(LeapDate,1,"/")

<:#284,9025>IF LeapNum=3

<:#284,9025>    CheckLeap=28

<:#284,9025>ELSE

<:#284,9025>    CheckLeap=29

<:#284,9025>ENDIF

<:#284,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

<:#284,9025>function initdlg(hdlg, id, value)

<:#284,9025>for i = 1002 to 1008

<:#284,9025>    setfont(hdlg, i)

<:#284,9025>next

<:#284,9025>end function

<:#284,9025>

@Remark@<:#284,9025>'Dialog Box Section

<:#284,9025>

<:#284,9025>

DIALOG    Heymon

-2134376448    14    74    41    192    127    ""    "AmiDialog"    "Organizer ñδ╛Σ"

FONT    12    "System"

6    5    134    18    1002    1342177280    "static"    "ª╣Ñ\»αÑiºQÑ╬ Lotus Organizer
ññ¬║¼∙╖|╢╡Ñ╪íA½╪Ñ▀ñδ╛ΣíC"    0

6    72    28    10    1000    1342177280    "static"    "ñδÑ≈(&M):"    0

6    88    30    10    1001    1342177280    "static"    "ª~Ñ≈(&Y):"    0

36    71    52    40    9500    1344339979    "combobox"    ""    0

36    86    52    40    9501    1344339979    "combobox"    ""    0

6    108    102    12    20    1342242819    "button"    "Ñ]ºt¼÷⌐└ñΘ╢╡Ñ╪(&I)"    0

148    5    40    14    1    1342242817    "button"    "╜T⌐w"    0

148    21    40    14    2    1342242816    "button"    "¿·«°"    0

5    24    6    10    1003    1342177280    "static"    "1."    0

16    24    106    10    1004    1342177280    "static"    "╕ⁿñJ OrganizeríC"    0

5    34    6    10    1005    1342177280    "static"    "2."    0

16    34    124    16    1006    1342177280    "static"    "╢}▒╥▒z╖Q½╪Ñ▀ñδ╛Σ¬║ Organizer
└╔«╫íC"    0

5    50    6    10    1007    1342177280    "static"    "3."    0

16    51    164    16    1008    1342177280    "static"    "┐∩╛▄ 'Organizer ñδ╛Σ' Ñ\»αíA¿├┐∩╛▄ñδÑ≈⌐Mª~Ñ≈íC"    0

END DIALOG


@Function@<:#293,9025>function createdlgfont()

<:#284,9025>rmac = getrunningmacrofile$()

<:#284,9025>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, <:f240,BArial,255,0,0>"Helv"<:f>)

<:#284,9025>if hfont <;> 1

<:#284,9025>    AllocGlobalVar("{rmac}hfont", 1)

<:#284,9025>    SetGlobalVar("{rmac}hfont", hFont)

<:#284,9025>    Return hfont

<:#284,9025>endif

<:#284,9025>End Function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function deletefont()

<:#284,9025>rmac = getrunningmacrofile$()

<:#284,9025>AllocGlobalVar("{rmac}hfont", 1)

<:#284,9025>hfont = getglobalvar$("{rmac}hfont")

<:#284,9025>if hfont <;> 1

<:#284,9025>    deleteobject(hfont)

<:#284,9025>    freeglobalvar("{rmac}hfont")

<:#284,9025>endif

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>function setfont(hdlg, id)

<:#284,9025>rmac = getrunningmacrofile$()

<:#284,9025>AllocGlobalVar("{rmac}hfont", 1)

<:#284,9025>hfont = getglobalvar$("{rmac}hfont")

<:#284,9025>if hfont << 1

<:#284,9025>    if createdlgfont() << 1

<:#284,9025>        return 0

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>hfont = getglobalvar$("{rmac}hfont")

<:#284,9025>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)

<:#284,9025>end function

<:#284,9025>

@Function@<:#293,9025>function delfile(filename)

<:#284,9025>fh = fopen(filename, "r")

<:#284,9025>if fh <<<;> 0

<:#284,9025>    fseek(fh, 0, 2)

<:#284,9025>    stat = ftell(fh)

<:#284,9025>    fclose(fh)

<:#284,9025>    if stat <<<;> 0

<:#284,9025>        dosdelfile(filename)

<:#284,9025>    endif

<:#284,9025>endif

<:#284,9025>end function

<:#284,9025>

<:#284,9025>

@Function@<:I0,0,0,0><:S+-1><:#293,9025>Function FindAndReplace(String, Findwhat, Replacewith)

<:#284,9025>DefStr Location;

<:#284,9025>OffSet = 1 ' add 1 using Kinstr

<:#284,9025>While 0 != Assign(&Location, Kinstr(OffSet, String, FindWhat))

<:#284,9025>    BeforeLocation = Kmid$(String,1, Location - 1)

<:#284,9025>    AfterLocation = Right$(String, tlen(String) - Location);

<:#284,9025>    *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)

<:#284,9025>Wend

<+@><:I0,0,0,0><:S+-1><:#284,9025>End Function

>

[Embedded]
00045450
>
[macsum] 21
orgcal 0 0 25 40
findday 3247 1 2 177
findday_ann 3583 1 2 194
startcal 3927 2 5 211
getorgdata 4288 2 12 226
readorganniversary 7941 3 15 351
readorgdates 10463 5 17 439
helpme 13267 0 1 534
datenum2datestr 13445 1 1 539
datestr2datenum 14355 1 1 569
AutoCal 15265 2 14 600
BuildDate 20406 3 7 777
FillCalendar 20897 2 13 796
CheckLeap 23902 3 10 892
initdlg 24538 3 2 919
Heymon 24762 0 -1 928
createdlgfont 25667 0 3 947
deletefont 25968 0 3 958
setfont 26222 2 3 969
delfile 26605 1 3 982
FindAndReplace 26876 3 5 995
[macse]
14 orgcal
0 32 1
7 "_CALORG.STY"
8 1
0 1050
13
5 0
18 3
11 00000284
0 279 3
13
6 1
18 1
0 279 15
13
5 1
18 0
1 2
11 00000271
2 101 1 "{1}" 1 1024
13
5 1
18 1
11 00000259
0 3 "Unable to find the style sheet {1}." "Ami Pro"
5 0
15
9
5 0
15
9
10 00000411
2 101 1 "{1}" 1 1024
13
5 1
18 1
11 00000399
0 3 "Unable to find the style sheet {1}." "Ami Pro"
5 0
15
9
5 0
15
9
16 autocal &2 &3
13
5 1
18 1
11 00000469
5 0
15
9
2 140 1 "" "" "" "" "" "" "" 1
0 1301 &4 &5 &6 &7
6 4
5 10
18 0
11 00000593
0 6 "[40][40][4136]"
0 291 6
2 628 1 0
0 286 "OrgCal" "Calendar" "amipro2.ini"
13
8 8
6 8
7 ""
18 0
11 00000736
7 "ñΘ╛Σ"
8 8
0 287 "OrgCal" "Calendar" "ñΘ╛Σ" "amipro2.ini"
0 286 "OrgCal" "Anniversary" "amipro2.ini"
13
8 9
6 9
7 ""
18 0
11 00000889
7 "¼÷⌐└ñΘ"
8 9
0 287 "OrgCal" "Anniversary" "¼÷⌐└ñΘ" "amipro2.ini"
0 1288
13
8 10
0 6 "[16420][40][40]"
0 789 "Getting Organizer data..."
16 getorgdata "{8}" "{9}"
13
5 1
18 1
11 00001131
0 789 ""
0 284 "user,FindWindow,HCC" "TZ_PORG" 0
13
8 11
0 284 "user,ShowWindow,HHH" "{11}" 1
5 0
15
9
0 789 ""
0 274 001
5 1
21 12 [X]
5 1
21 13 [X]
5 1
21 14 [X]
5 1
21 15 [X]
5 1
21 16 [X]
0 4 0
17 64
29 17 monthnum
16 datestr2datenum "{3}"
13
8 17
17 65
0 789 "Reading Organizer data..."
17 66
29 18 numrecs
16 readorgdates &12 &14 &16 "{2}" "{17}"
13
8 18
17 67
0 789 ""
17 68
6 18
5 0
18 0
11 00001488
17 69
10 00002128
17 72
29 19 curday
5 1
8 19
17 73
16 findday "{19}"
29 20 i
5 1
8 20
17 74
6 18
6 20
18 2
12 00001652
10 00002128
5 1
6 20
3 0
8 20
10 00001566
17 75
29 21 orgdate
6 20
22 12
8 21
17 76
6 21
6 19
18 1
11 00001845
17 77
0 6 "[9][38]"
17 78
16 findday "{21}"
13
8 19
17 79
6 19
5 0
18 0
11 00001845
17 80
5 0
15
9
17 83
29 22 timex
6 20
22 16
8 22
17 84
29 23 txt
6 20
22 14
8 23
17 85
2 323 1 "Entry"
17 86
2 254 1
17 87
0 6 "{22}"
17 88
2 254 1
17 89
0 138 1 "{23}" "    "
13
5 0
18 3
11 00002091
17 90
16 findandreplace &23 "    " "   "
17 92
0 6 " {23}[13]"
10 00001617
17 96
0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
13
5 1
18 1
11 00002229
17 97
10 00002972
17 101
0 6 "[16420][40][40]"
17 102
0 789 "Reading Organizer Anniversary data..."
17 104
16 readorganniversary &13 &15 "{17}"
13
8 18
17 105
0 789 ""
17 106
6 18
5 0
18 0
11 00002448
17 107
10 00002972
17 109
5 1
8 19
17 110
16 findday_ann "{19}"
5 1
8 20
17 111
6 18
6 20
18 2
12 00002596
10 00002972
5 1
6 20
3 0
8 20
10 00002509
17 112
6 20
22 13
8 21
17 113
6 21
6 19
18 1
11 00002784
17 114
0 6 "[9][38]"
17 115
16 findday_ann "{21}"
13
8 19
17 116
6 19
5 0
18 0
11 00002784
17 117
5 0
15
9
17 120
6 20
22 15
8 23
17 121
0 3 "text = {23}"
17 122
0 138 1 "{23}" "    "
13
5 0
18 3
11 00002935
17 123
16 findandreplace &23 "    " "   "
17 125
0 6 "{23}[13]"
10 00002561
17 129
29 24 fh
17 130
0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
13
16 delfile [X]
17 131
0 286 "OrgCal" "CalendarFile" "amipro2.ini"
13
16 delfile [X]
17 132
0 274 001
17 133
0 3 "Here is your calendar from Lotus Organizer." "Ami Pro"
6 0
15
17 134
9
14 findday
29 0 orgday
29 1 findday
17 1
0 32 1
17 2
5 1
11 00000317
17 3
29 2 curday
0 23
13
8 2
17 4
6 2
6 0
18 0
11 00000182
17 5
0 6 "[40]"
17 6
6 2
15
9
17 8
0 6 "[9]"
17 9
0 29
13
5 129
18 1
11 00000304
17 10
0 3 "Unable to continue." "Ami Pro"
17 11
5 0
15
9
10 00000053
6 1
15
17 14
9
14 findday_ann
29 0 orgday
29 1 findday_ann
17 1
0 32 1
17 2
5 1
11 00000325
17 3
29 2 curday
0 23
13
8 2
17 4
6 2
6 0
18 0
11 00000190
17 5
0 6 "[37]"
17 6
6 2
15
9
17 8
0 6 "[9]"
17 9
0 29
13
5 129
18 1
11 00000312
17 10
0 3 "Unable to continue." "Ami Pro"
17 11
5 0
15
9
10 00000061
6 1
15
17 14
9
14 startcal
29 0 year
29 1 month
29 2 startcal
17 1
0 32 1
17 2
29 3 startrow
29 4 startcol
29 5 endrow
29 6 endcol
17 3
0 1301 &3 &4 &5 &6
17 4
6 3
5 0
18 0
11 00000206
17 5
5 0
15
9
17 7
0 6 "[16420]"
17 8
0 23
13
28 0
17 9
0 6 "[9]"
17 10
0 23
13
28 1
17 11
0 6 "[40][40][36][36][9]"
17 12
5 1
15
9
6 2
15
17 13
9
14 getorgdata
29 0 orgsection
29 1 orgsection2
29 2 getorgdata
17 1
0 32 1
17 2
20 00003521
17 3
19 00003521
17 4
29 3 buffsize
5 80
8 3
17 5
29 4 txt
17 6
29 5 hwnd
0 284 "user,FindWindow,HCC" "TZ_PORG" 0
13
8 5
17 7
0 284 "user,IsIconic,HH" "{5}"
13
11 00000321
17 8
0 1036 "{5}" 274 61728 0
17 10
0 284 "user,ShowWindow,HHH" "{5}" 0
17 11
0 38 "Lotus Organizer"
17 12
0 284 "user,EnableHardwareInput,AA" 0
17 13
29 6 wparam
5 1010
8 6
17 14
29 7 lparao
5 0
8 7
17 15
0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}"
17 16
0 274 001
17 17
29 8 hdlg
0 284 "user,GetActiveWindow,H"
13
8 8
17 18
0 36 "[16420]"
17 19
0 274 002
29 9 i
5 1
8 9
17 20
5 20
6 9
18 2
12 00000785
10 00001003
5 1
6 9
3 0
8 9
10 00000702
17 21
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 301
13
0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
17 23
0 138 3 "{4}" "{0}"
13
5 0
18 1
11 00000970
17 24
10 00001085
17 26
0 36 "[40]"
10 00000752
17 28
0 789 ""
17 29
0 284 "user,EnableHardwareInput,AA" 1
17 30
5 0
15
9
17 32
29 10 temp
0 1288
13
8 10
17 33
0 807 "{10}" 1
13
7 "\"
18 1
11 00001209
17 34
0 16 "{10}" "\"
13
8 10
17 37
29 11 uname
0 772
13
0 807 [X] 7
13
8 11
17 38
29 12 filename
7 "{10}~{11}.tmp"
8 12
17 39
0 287 "OrgCal" "CalendarFile" "{12}" "amipro2.ini"
17 42
0 36 "[8271][8262]"
17 43
0 274 001
17 44
0 284 "user,GetActiveWindow,H"
13
0 42 [X] 307
13
5 1
18 1
11 00001518
17 45
0 36 " "
17 47
0 274 001
17 48
0 36 "[13]"
17 50
0 36 "[8261]a[9]{12}[13][8269][13]"
17 51
0 284 "user,GetActiveWindow,H"
13
8 8
17 52
29 13 windowtext
17 53
0 274 002
17 54
5 1
11 00001991
17 55
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &13 50
17 56
6 13
7 "Lotus Organizer"
18 0
11 00001896
17 57
0 36 "[27]"
17 58
10 00001991
17 60
0 274 010
17 61
6 13
7 "Status"
18 1
11 00001978
17 62
10 00001991
10 00001691
17 65
0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
13
5 1
18 1
11 00002092
17 66
10 00003358
17 70
0 772
13
0 807 [X] 7
13
8 11
17 71
7 "{10}~{11}.tmp"
8 12
17 72
0 287 "OrgCal" "AnniversaryFile" "{12}" "amipro2.ini"
17 74
0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}"
17 75
0 274 001
17 76
0 284 "user,GetActiveWindow,H"
13
8 8
17 77
0 36 "[16420]"
5 1
8 9
17 78
5 20
6 9
18 2
12 00002470
10 00002688
5 1
6 9
3 0
8 9
10 00002387
17 79
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 301
13
0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
17 81
0 138 3 "{4}" "{1}"
13
5 0
18 1
11 00002655
17 82
10 00002753
17 84
0 36 "[40]"
10 00002437
17 86
0 284 "user,EnableHardwareInput,AA" 1
17 87
5 0
15
9
17 90
0 36 "[8271][8262]"
17 91
0 274 001
17 92
0 284 "user,GetActiveWindow,H"
13
0 42 [X] 307
13
5 1
18 1
11 00002901
17 93
0 36 " "
17 95
0 274 001
17 96
0 36 "[13]"
17 98
0 36 "[8261]a[9]{12}[13][8269][13]"
17 99
0 284 "user,GetActiveWindow,H"
13
8 8
17 100
0 274 002
17 101
5 1
11 00003358
17 102
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &13 50
17 103
6 13
7 "Lotus Organizer"
18 0
11 00003260
17 104
0 36 "[27]"
17 105
10 00003358
17 107
0 274 010
17 108
6 13
7 "Status"
18 1
11 00003345
17 109
10 00003358
10 00003050
17 113
0 1030 "Lotus Organizer"
17 114
0 284 "user,ShowWindow,HHH" "{5}" 1
17 115
0 38 ""
17 116
0 284 "user,EnableHardwareInput,AA" 1
17 117
5 1
15
9
17 119
0 284 "user,ShowWindow,HHH" "{5}" 1
17 120
0 284 "user,EnableHardwareInput,AA" 1
17 121
5 0
15
9
6 2
15
17 122
9
14 readorganniversary
29 0 dates_ann
29 1 text_ann
29 2 month
29 3 readorganniversary
17 1
0 32 1
17 2
20 00002446
17 3
19 00002446
17 4
5 2
29 4 field
21 4 [X]
17 6
29 5 datafile
0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
13
8 5
17 7
29 6 fh
0 259 "{5}" "r"
13
8 6
17 8
6 6
5 0
18 0
11 00000348
17 9
5 0
15
9
17 11
0 257 "{6}"
13
5 -1
18 0
11 00000436
17 12
0 260 "{6}"
17 13
5 0
15
9
17 15
0 260 "{6}"
17 16
29 7 handle
0 1290 "{5}" "*Comma:1" 0
13
8 7
17 17
6 7
5 0
18 0
11 00000567
17 18
5 0
15
9
17 20
29 8 numfields
0 1294 "{7}"
13
8 8
17 21
6 8
5 1
18 5
11 00000669
17 22
10 00002446
17 25
29 9 sep
0 286 "intl" "sDate"
13
8 9
17 26
6 9
7 ""
18 0
11 00000773
17 27
7 "/"
8 9
17 29
29 10 sShortDate
0 286 "intl" "sShortDate"
13
0 18 [X]
13
8 10
17 30
6 10
7 ""
18 0
11 00000912
17 31
7 "M/D/YY"
8 10
29 11 i
5 1
8 11
17 33
5 3
6 11
18 2
12 00001017
10 00001165
5 1
6 11
3 0
8 11
10 00000932
17 34
29 12 smonth
0 20 "{10}" "{11}" "{9}"
13
8 12
17 35
6 12
7 "M"
18 0
11 00001152
17 36
6 11
8 12
17 37
10 00001165
10 00000982
5 1
8 11
17 40
5 3
6 11
18 2
12 00001261
10 00001407
5 1
6 11
3 0
8 11
10 00001176
17 41
29 13 sday
0 20 "{10}" "{11}" "{9}"
13
8 13
17 42
6 13
7 "D"
18 0
11 00001394
17 43
6 11
8 13
17 44
10 00001407
10 00001226
5 1
8 11
17 47
5 3
6 11
18 2
12 00001503
10 00001651
5 1
6 11
3 0
8 11
10 00001418
17 48
29 14 syear
0 20 "{10}" "{11}" "{9}"
13
8 14
17 49
6 14
7 "YY"
18 0
11 00001638
17 50
6 11
8 14
17 51
10 00001651
10 00001468
5 1
8 11
17 55
5 2
6 11
18 2
12 00001747
10 00001835
5 1
6 11
3 0
8 11
10 00001662
17 56
29 15 name
0 1295 "{7}" "{11}"
13
8 15
17 57
6 11
6 15
23 4
10 00001712
17 59
5 1
8 11
17 61
0 1293 "{7}"
13
5 0
18 0
11 00002378
17 62
5 1
22 4
0 1292 "{7}" [X]
13
8 15
17 63
29 16 orgmonth
0 20 "{15}" "{12}" "{9}"
13
8 16
17 64
6 16
6 2
18 1
11 00002064
17 65
10 00002365
17 67
29 17 date
0 20 "{15}" "{13}" "{9}"
13
8 17
17 68
0 133 "{17}" 1 1
13
5 0
18 0
11 00002205
17 69
0 807 "{17}" 1
13
8 17
17 71
0 1041 &0 "{11}" "{17}"
17 72
5 2
22 4
0 1292 "{7}" [X]
13
8 15
17 73
0 1041 &1 "{11}" "{15}"
17 74
0 789 "{15}"
17 75
6 11
5 1
3 0
8 11
10 00001853
17 78
0 1291 "{7}"
17 79
0 789 ""
17 80
6 11
5 1
3 1
15
9
17 82
0 1291 "{7}"
17 83
0 789 ""
17 84
5 0
15
9
6 3
15
17 85
9
14 readorgdates
29 0 dates
29 1 text
29 2 time
29 3 year
29 4 month
29 5 readorgdates
17 1
0 32 1
17 2
20 00002727
17 3
19 00002727
17 4
29 6 mynumfields
5 4
8 6
17 5
0 807 "{3}" 2
13
8 3
17 6
6 6
29 7 field
21 7 [X]
17 7
29 8 datafile
0 286 "OrgCal" "CalendarFile" "amipro2.ini"
13
8 8
17 9
29 9 fh
0 259 "{8}" "r"
13
8 9
17 10
6 9
5 0
18 0
11 00000413
17 11
5 0
15
9
17 13
0 257 "{9}"
13
5 -1
18 0
11 00000501
17 14
0 260 "{9}"
17 15
5 0
15
9
17 17
0 260 "{9}"
17 18
29 10 handle
0 1290 "{8}" "*Comma:1" 0
13
8 10
17 19
6 10
5 0
18 0
11 00000635
17 20
5 0
15
9
17 22
29 11 numfields
0 1294 "{10}"
13
8 11
17 23
6 11
5 1
18 5
11 00000741
17 24
10 00002727
17 27
29 12 sep
0 286 "intl" "sDate"
13
8 12
17 28
6 12
7 ""
18 0
11 00000849
17 29
7 "/"
8 12
17 31
29 13 sShortDate
0 286 "intl" "sShortDate"
13
0 18 [X]
13
8 13
17 32
6 13
7 ""
18 0
11 00000988
17 33
7 "M/D/YY"
8 13
29 14 i
5 1
8 14
17 35
5 3
6 14
18 2
12 00001093
10 00001242
5 1
6 14
3 0
8 14
10 00001008
17 36
29 15 smonth
0 20 "{13}" "{14}" "{12}"
13
8 15
17 37
6 15
7 "M"
18 0
11 00001229
17 38
6 14
8 15
17 39
10 00001242
10 00001058
5 1
8 14
17 42
5 3
6 14
18 2
12 00001338
10 00001485
5 1
6 14
3 0
8 14
10 00001253
17 43
29 16 sday
0 20 "{13}" "{14}" "{12}"
13
8 16
17 44
6 16
7 "D"
18 0
11 00001472
17 45
6 14
8 16
17 46
10 00001485
10 00001303
5 1
8 14
17 49
5 3
6 14
18 2
12 00001581
10 00001730
5 1
6 14
3 0
8 14
10 00001496
17 50
29 17 syear
0 20 "{13}" "{14}" "{12}"
13
8 17
17 51
6 17
7 "YY"
18 0
11 00001717
17 52
6 14
8 17
17 53
10 00001730
10 00001546
5 1
8 14
17 57
6 6
6 14
18 2
12 00001826
10 00001915
5 1
6 14
3 0
8 14
10 00001741
17 58
29 18 name
0 1295 "{10}" "{14}"
13
8 18
17 59
6 14
6 18
23 7
10 00001791
17 61
5 1
8 14
17 62
0 1293 "{10}"
13
5 0
18 0
11 00002658
17 63
5 1
22 7
0 1292 "{10}" [X]
13
8 18
17 64
29 19 orgyear
0 20 "{18}" "{17}" "{12}"
13
8 19
17 65
6 19
6 3
18 1
11 00002146
17 66
10 00002645
17 68
29 20 orgmonth
0 20 "{18}" "{15}" "{12}"
13
8 20
17 69
6 20
6 4
18 1
11 00002263
17 70
10 00002645
17 72
29 21 date
0 20 "{18}" "{16}" "{12}"
13
8 21
17 73
0 133 "{21}" 1 1
13
5 0
18 0
11 00002405
17 74
0 807 "{21}" 1
13
8 21
17 76
0 1041 &0 "{14}" "{21}"
17 77
5 2
22 7
0 1292 "{10}" [X]
13
8 18
17 78
0 1041 &2 "{14}" "{18}"
17 79
5 4
22 7
0 1292 "{10}" [X]
13
8 18
17 80
0 1041 &1 "{14}" "{18}"
17 81
0 789 "{18}"
17 82
6 14
5 1
3 0
8 14
10 00001933
17 85
0 1291 "{10}"
17 86
0 789 ""
17 87
6 14
5 1
3 1
15
9
17 89
0 1291 "{10}"
17 90
0 789 ""
17 91
5 0
15
9
6 5
15
17 92
9
14 helpme
29 0 helpme
17 1
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
0 798
13
0 16 [X] "HelpPack.hlp"
13
0 284 "user,WinHelp,HHCHJ" [X] [X] 1 140
6 0
15
17 2
9
14 datenum2datestr
29 0 orgmonth
29 1 datenum2datestr
17 1
0 32 1
17 2
5 01
6 0
18 0
11 00000146
17 4
7 "January"
15
9
10 00000891
5 02
6 0
18 0
11 00000216
17 6
7 "February"
15
9
10 00000891
5 03
6 0
18 0
11 00000283
17 8
7 "March"
15
9
10 00000891
5 04
6 0
18 0
11 00000351
17 10
7 "April"
15
9
10 00000891
5 05
6 0
18 0
11 00000417
17 12
7 "May"
15
9
10 00000891
5 06
6 0
18 0
11 00000484
17 14
7 "June"
15
9
10 00000891
5 07
6 0
18 0
11 00000551
17 16
7 "July"
15
9
10 00000891
5 08
6 0
18 0
11 00000620
17 18
7 "August"
15
9
10 00000891
5 09
6 0
18 0
11 00000692
17 20
7 "September"
15
9
10 00000891
5 10
6 0
18 0
11 00000762
17 22
7 "October"
15
9
10 00000891
5 11
6 0
18 0
11 00000833
17 24
7 "November"
15
9
10 00000891
5 12
6 0
18 0
11 00000891
17 26
7 "December"
15
9
6 1
15
17 28
9
14 datestr2datenum
29 0 orgmonth
29 1 datestr2datenum
17 1
0 32 1
17 2
7 "January"
6 0
18 0
11 00000146
17 4
5 01
15
9
10 00000891
7 "February"
6 0
18 0
11 00000216
17 6
5 02
15
9
10 00000891
7 "March"
6 0
18 0
11 00000283
17 8
5 03
15
9
10 00000891
7 "April"
6 0
18 0
11 00000351
17 10
5 04
15
9
10 00000891
7 "May"
6 0
18 0
11 00000417
17 12
5 05
15
9
10 00000891
7 "June"
6 0
18 0
11 00000484
17 14
5 06
15
9
10 00000891
7 "July"
6 0
18 0
11 00000551
17 16
5 07
15
9
10 00000891
7 "August"
6 0
18 0
11 00000620
17 18
5 08
15
9
10 00000891
7 "September"
6 0
18 0
11 00000692
17 20
5 09
15
9
10 00000891
7 "October"
6 0
18 0
11 00000762
17 22
5 10
15
9
10 00000891
7 "November"
6 0
18 0
11 00000833
17 24
5 11
15
9
10 00000891
7 "December"
6 0
18 0
11 00000891
17 26
5 12
15
9
6 1
15
17 28
9
14 AutoCal
29 0 year
29 1 month
29 2 AutoCal
17 1
0 32 1
17 3
29 3 Month1
17 4
29 4 Year1
17 5
29 5 LMonth
17 6
29 6 NMonth
17 7
29 7 Stat1
17 8
29 8 FirstDayWeek
17 9
29 9 LastDay
17 10
29 10 ChkLen
17 11
29 11 CurStyleSheet
17 12
29 12 CurDocName
17 13
29 13 TotalWindows
17 15
17 16
17 17
17 18
17 19
29 14 NW
0 1317
13
8 14
17 20
6 14
5 1
18 0
11 00000474
17 21
0 3 "Unable to run under NewWave." "Ami Pro"
17 22
5 0
15
9
17 24
2 210 1
17 25
2 201 1
17 26
29 15 rmac
0 802
13
8 15
17 29
0 772
13
0 770 [X] "c"
13
0 20 [X] 2. " "
13
0 31 9500 [X]
17 30
0 772
13
0 770 [X] "c"
13
0 20 [X] 3. " "
13
0 31 9501 [X]
17 31
0 31 9500 "January"
17 32
0 31 9500 "February"
17 33
0 31 9500 "March"
17 34
0 31 9500 "April"
17 35
0 31 9500 "May"
17 36
0 31 9500 "June"
17 37
0 31 9500 "July"
17 38
0 31 9500 "August"
17 39
0 31 9500 "September"
17 40
0 31 9500 "October"
17 41
0 31 9500 "November"
17 42
0 31 9500 "December"
17 43
0 31 9501 "1980"
17 44
0 31 9501 "1981"
17 45
0 31 9501 "1982"
17 46
0 31 9501 "1983"
17 47
0 31 9501 "1984"
17 48
0 31 9501 "1985"
17 49
0 31 9501 "1986"
17 50
0 31 9501 "1987"
17 51
0 31 9501 "1988"
17 52
0 31 9501 "1989"
17 53
0 31 9501 "1990"
17 54
0 31 9501 "1991"
17 55
0 31 9501 "1992"
17 56
0 31 9501 "1993"
17 57
0 31 9501 "1994"
17 58
0 31 9501 "1995"
17 59
0 31 9501 "1996"
17 60
0 31 9501 "1997"
17 61
0 31 9501 "1998"
17 62
0 31 9501 "1999"
17 63
0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
13
0 31 20 [X]
17 67
0 41 0 "{15}!initdlg"
17 68
0 47 112 "{15}!helpme"
17 69
0 26 "." "Heymon"
13
8 7
17 70
16 deletefont
17 71
6 7
5 0
18 0
11 00001757
17 72
5 0
15
9
17 74
0 284 "user,FindWindow,HCC" "TZ_PORG" 0
13
5 1
18 5
11 00001995
17 75
0 284 "user,GetActiveWindow,H"
13
0 284 "user,PostMessage,JHHHJ" [X] 273 1 0
17 76
0 3 "Lotus Organizer is not running." "Ami Pro"
17 77
5 0
15
9
17 80
0 27 9500
13
8 3
17 81
0 27 9501
13
8 4
17 82
0 27 20
13
0 287 "OrgCal" "DoAnniversary" [X] "amipro2.ini"
17 85
6 4
5 1980
18 5
6 4
5 1999
18 3
1 2
11 00002304
17 86
0 3 "Year must be in the range 1980 to 1999."
17 87
0 31 9500 "{3}"
17 88
0 31 9501 "{4}"
17 89
10 00000542
17 91
0 134 "{4}"
13
8 10
17 92
6 10
5 4
18 1
11 00002626
17 93
0 3 "Year must be in the format, YYYY (Ex. '1991')"
17 94
0 31 9500 "{3}"
17 95
0 31 9501 "{4}"
17 96
10 00000542
17 98
0 3 "Year must be in a range from 1980 to 1999."
17 99
0 31 9500 "{3}"
17 100
0 31 9501 "{4}"
17 101
10 00000542
17 104
0 17 "{3}"
13
8 5
17 105
6 5
7 "january"
18 0
11 00002843
17 106
7 "01/01/"
8 6
17 107
5 31
8 9
17 108
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 109
16 FillCalendar "{8}" "{9}"
10 00005063
17 110
6 5
7 "february"
18 0
11 00003062
17 111
7 "02/01/"
8 6
17 112
16 CheckLeap "{3}" "{4}" "{6}"
13
8 9
17 113
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 114
16 FillCalendar "{8}" "{9}"
10 00005063
17 115
6 5
7 "march"
18 0
11 00003248
17 116
7 "03/01/"
8 6
17 117
5 31
8 9
17 118
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 119
16 FillCalendar "{8}" "{9}"
10 00005063
17 120
6 5
7 "april"
18 0
11 00003434
17 121
7 "04/01/"
8 6
17 122
5 30
8 9
17 123
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 124
16 FillCalendar "{8}" "{9}"
10 00005063
17 125
6 5
7 "may"
18 0
11 00003618
17 126
7 "05/01/"
8 6
17 127
5 31
8 9
17 128
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 129
16 FillCalendar "{8}" "{9}"
10 00005063
17 130
6 5
7 "june"
18 0
11 00003803
17 131
7 "06/01/"
8 6
17 132
5 30
8 9
17 133
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 134
16 FillCalendar "{8}" "{9}"
10 00005063
17 135
6 5
7 "july"
18 0
11 00003988
17 136
7 "07/01/"
8 6
17 137
5 31
8 9
17 138
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 139
16 FillCalendar "{8}" "{9}"
10 00005063
17 140
6 5
7 "august"
18 0
11 00004175
17 141
7 "08/01/"
8 6
17 142
5 31
8 9
17 143
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 144
16 FillCalendar "{8}" "{9}"
10 00005063
17 145
6 5
7 "september"
18 0
11 00004365
17 146
7 "09/01/"
8 6
17 147
5 30
8 9
17 148
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 149
16 FillCalendar "{8}" "{9}"
10 00005063
17 150
6 5
7 "october"
18 0
11 00004553
17 151
7 "10/01/"
8 6
17 152
5 31
8 9
17 153
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 154
16 FillCalendar "{8}" "{9}"
10 00005063
17 155
6 5
7 "november"
18 0
11 00004742
17 156
7 "11/01/"
8 6
17 157
5 30
8 9
17 158
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 159
16 FillCalendar "{8}" "{9}"
10 00005063
17 160
6 5
7 "december"
18 0
11 00004931
17 161
7 "12/01/"
8 6
17 162
5 31
8 9
17 163
16 BuildDate "{3}" "{4}" "{6}"
13
8 8
17 164
16 FillCalendar "{8}" "{9}"
10 00005063
17 167
0 3 "This is not a valid month.  Please try again."
17 168
0 31 9500 "{3}"
17 169
0 31 9501 "{4}"
17 170
10 00000542
17 172
6 4
28 0
17 173
6 3
28 1
17 174
5 1
15
9
6 2
15
17 175
9
14 BuildDate
29 0 Month1
29 1 Year1
29 2 NMonth
29 3 BuildDate
17 1
0 32 1
17 2
29 4 CDate
17 3
29 5 NDate
17 4
29 6 NDays
17 5
29 7 WDate
17 6
29 8 DateRef
17 7
29 9 TYear
17 9
0 133 "{1}" 3 2
13
8 9
17 10
0 16 "{2}" "{9}"
13
8 4
17 11
7 "01/01/90"
8 8
17 12
0 769 "{4}" "{8}"
13
8 6
17 13
6 6
5 86400
4 0
5 631224000
3 0
8 5
17 14
0 770 "{5}" "f"
13
8 7
17 15
0 20 "{7}" 1 " "
13
8 3
17 16
0 6 "[16420]{1}[9]{0}[9]{1}"
6 3
15
17 17
9
14 FillCalendar
29 0 FirstDayWeek
29 1 LastDay
29 2 FillCalendar
17 1
0 32 1
17 4
29 3 DayNum
17 5
29 4 Column
17 6
29 5 Row
17 7
29 6 Row2
17 8
29 7 Row3
17 9
29 8 R1
17 10
29 9 R2
17 11
29 10 R3
17 12
29 11 R4
17 13
0 6 "[16420][40][40][39]"
17 14
5 1
8 3
17 15
6 0
7 "Sunday"
18 0
11 00000501
5 1
8 8
17 16
5 6
6 8
18 2
12 00000422
10 00000488
5 1
6 8
3 0
8 8
10 00000340
17 17
0 6 "{3}[39][39]"
17 18
6 3
5 1
3 0
8 3
10 00000389
10 00001783
17 20
6 0
7 "Monday"
18 0
11 00000738
17 21
0 6 "[39][39]"
5 1
8 8
17 22
5 5
6 8
18 2
12 00000659
10 00000725
5 1
6 8
3 0
8 8
10 00000577
17 23
0 6 "{3}[39][39]"
17 24
6 3
5 1
3 0
8 3
10 00000626
10 00001783
17 26
6 0
7 "Tuesday"
18 0
11 00000984
17 27
0 6 "[39][39][39][39]"
5 1
8 9
17 28
5 4
6 9
18 2
12 00000905
10 00000971
5 1
6 9
3 0
8 9
10 00000823
17 29
0 6 "{3}[39][39]"
17 30
6 3
5 1
3 0
8 3
10 00000872
10 00001783
17 32
6 0
7 "Wednesday"
18 0
11 00001244
17 33
0 6 "[39][39][39][39][39][39]"
5 1
8 10
17 34
5 3
6 10
18 2
12 00001165
10 00001231
5 1
6 10
3 0
8 10
10 00001080
17 35
0 6 "{3}[39][39]"
17 36
6 3
5 1
3 0
8 3
10 00001130
10 00001783
17 38
6 0
7 "Thursday"
18 0
11 00001511
17 39
0 6 "[39][39][39][39][39][39][39][39]"
5 1
8 11
17 40
5 2
6 11
18 2
12 00001432
10 00001498
5 1
6 11
3 0
8 11
10 00001347
17 41
0 6 "{3}[39][39]"
17 42
6 3
5 1
3 0
8 3
10 00001397
10 00001783
17 44
6 0
7 "Friday"
18 0
11 00001675
17 45
0 6 "[39][39][39][39][39][39][39][39][39][39]"
17 46
0 6 "{3}[39][39]"
17 47
6 3
5 1
3 0
8 3
10 00001783
17 48
6 0
7 "Saturday"
18 0
11 00001783
17 49
0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
17 51
0 6 "{3}[39][40][39]"
17 52
6 3
5 1
3 0
8 3
5 2
8 4
17 53
5 6
6 4
18 2
12 00001932
10 00002986
5 1
6 4
3 0
8 4
10 00001850
5 1
8 5
17 54
5 6
6 5
18 2
12 00002024
10 00002138
5 1
6 5
3 0
8 5
10 00001942
17 55
0 6 "{3}[39][39]"
17 56
6 3
5 1
3 0
8 3
17 57
6 3
6 1
18 3
11 00002125
6 2
15
9
10 00001991
17 61
6 4
5 7
18 0
6 3
6 1
18 5
1 1
11 00002822
17 62
0 6 "{3}"
17 63
6 3
5 1
3 0
8 3
17 64
0 6 "[39]"
5 1
8 6
17 66
5 7
6 6
18 2
12 00002351
10 00002809
5 1
6 6
3 0
8 6
10 00002269
17 68
10 00002673
5 1
8 7
17 69
5 2
6 7
18 2
12 00002463
10 00002651
5 1
6 7
3 0
8 7
10 00002381
17 70
29 12 TurnOn
5 16
8 12
17 71
29 13 TurnOff
5 0
8 13
17 72
29 14 StaySame
5 64
5 2
3 0
8 14
17 73
2 632 1 "{12}" "{13}" "{14}" 1 64
17 74
0 6 "[16423]"
10 00002430
17 76
0 6 "[16421]"
17 79
0 6 "{3}"
17 80
6 3
5 1
3 0
8 3
17 81
0 6 "[16423]"
17 82
6 3
6 1
18 3
11 00002796
17 83
10 00002809
10 00002318
10 00002946
17 86
6 3
6 1
18 0
11 00002916
17 87
0 6 "{3}[16420]"
17 88
10 00002986
10 00002946
17 90
0 6 "{3}[39][40][39]"
17 92
6 3
5 1
3 0
8 3
10 00001899
6 2
15
17 94
9
14 CheckLeap
29 0 Month1
29 1 Year1
29 2 NMonth
29 3 CheckLeap
17 1
0 32 1
17 2
29 4 CDate
17 3
29 5 NDate
17 4
29 6 NDays
17 5
29 7 WDate
17 6
29 8 DateRef
17 7
29 9 TYear
17 8
29 10 LNDate
17 9
29 11 LeapDate
17 11
0 133 "{1}" 3 2
13
8 9
17 12
0 16 "{2}" "{9}"
13
8 4
17 13
7 "01/01/90"
8 8
17 14
0 769 "{4}" "{8}"
13
8 6
17 15
6 6
5 86400
4 0
5 631224000
3 0
8 5
17 16
6 5
5 2419200
3 0
8 10
17 17
0 770 "{10}" "a"
13
8 11
17 18
29 12 LeapNum
0 20 "{11}" 1 "/"
13
8 12
17 19
6 12
5 3
18 0
11 00000599
17 20
5 28
8 3
10 00000617
17 22
5 29
8 3
6 3
15
17 24
9
14 initdlg
29 0 hdlg
29 1 id
29 2 value
29 3 initdlg
29 4 i
5 1002
8 4
17 1
5 1008
6 4
18 2
12 00000163
10 00000206
5 1
6 4
3 0
8 4
10 00000079
17 2
16 setfont "{0}" "{4}"
10 00000130
6 3
15
17 4
9
DIALOG Heymon
-2134376448 14 74 41 192 127 "" "AmiDialog" "Organizer ñδ╛Σ"
FONT 12 "System"
6 5 134 18 1002 1342177280 "static" "ª╣Ñ\»αÑiºQÑ╬ Lotus Organizer ññ¬║¼∙╖|╢╡Ñ╪íA½╪Ñ▀ñδ╛ΣíC" 0
6 72 28 10 1000 1342177280 "static" "ñδÑ≈(&M):" 0
6 88 30 10 1001 1342177280 "static" "ª~Ñ≈(&Y):" 0
36 71 52 40 9500 1344339979 "combobox" "" 0
36 86 52 40 9501 1344339979 "combobox" "" 0
6 108 102 12 20 1342242819 "button" "Ñ]ºt¼÷⌐└ñΘ╢╡Ñ╪(&I)" 0
148 5 40 14 1 1342242817 "button" "╜T⌐w" 0
148 21 40 14 2 1342242816 "button" "¿·«°" 0
5 24 6 10 1003 1342177280 "static" "1." 0
16 24 106 10 1004 1342177280 "static" "╕ⁿñJ OrganizeríC" 0
5 34 6 10 1005 1342177280 "static" "2." 0
16 34 124 16 1006 1342177280 "static" "╢}▒╥▒z╖Q½╪Ñ▀ñδ╛Σ¬║ Organizer └╔«╫íC" 0
5 50 6 10 1007 1342177280 "static" "3." 0
16 51 164 16 1008 1342177280 "static" "┐∩╛▄ 'Organizer ñδ╛Σ' Ñ\»αíA¿├┐∩╛▄ñδÑ≈⌐Mª~Ñ≈íC" 0
14 createdlgfont
29 0 createdlgfont
17 1
29 1 rmac
0 802
13
8 1
17 2
29 2 hfont
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 2
17 3
6 2
5 1
18 3
11 00000283
17 4
0 271 "{1}hfont" 1
17 5
0 264 "{1}hfont" "{2}"
17 6
6 2
15
9
6 0
15
17 8
9
14 deletefont
29 0 deletefont
17 1
29 1 rmac
0 802
13
8 1
17 2
0 271 "{1}hfont" 1
17 3
29 2 hfont
0 265 "{1}hfont"
13
8 2
17 4
6 2
5 1
18 3
11 00000236
17 5
0 284 "gdi,DeleteObject,HH" "{2}"
17 6
0 266 "{1}hfont"
6 0
15
17 8
9
14 setfont
29 0 hdlg
29 1 id
29 2 setfont
17 1
29 3 rmac
0 802
13
8 3
17 2
0 271 "{3}hfont" 1
17 3
29 4 hfont
0 265 "{3}hfont"
13
8 4
17 4
6 4
5 1
18 5
11 00000255
17 5
16 createdlgfont
13
5 1
18 5
11 00000255
17 6
5 0
15
9
17 9
0 265 "{3}hfont"
13
8 4
17 10
0 44 "{0}" "{1}"
13
0 284 "user,SendMessage,JHHHJ" [X] 48 "{4}" 0
6 2
15
17 11
9
14 delfile
29 0 filename
29 1 delfile
17 1
29 2 fh
0 259 "{0}" "r"
13
8 2
17 2
6 2
5 0
18 1
11 00000252
17 3
0 263 "{2}" 0 2
17 4
29 3 stat
0 262 "{2}"
13
8 3
17 5
0 260 "{2}"
17 6
6 3
5 0
18 1
11 00000252
17 7
0 779 "{0}"
6 1
15
17 10
9
14 FindAndReplace
29 0 String
29 1 Findwhat
29 2 Replacewith
29 3 FindAndReplace
17 1
29 4 Location
17 2
29 5 OffSet
5 1
8 5
17 3
5 0
0 138 "{5}" "{0}" "{1}"
13
0 805 &4 [X]
13
18 1
11 00000415
17 4
29 6 BeforeLocation
6 4
5 1
3 1
0 133 "{0}" 1 [X]
13
8 6
17 5
29 7 AfterLocation
0 134 "{0}"
13
6 4
3 1
0 807 "{0}" [X]
13
8 7
17 6
0 16 "{6}" "{2}" "{7}"
13
28 0
10 00000136
6 3
15
17 8
9
00045475