High Voltage Shareware

home *** CD-ROM | disk | FTP | other *** search

/ High Voltage Shareware / high1.zip / high1 / DIR36 / ORGCAL.ZIP / ORGCAL.SMM

Wrap

INI File | 1993-12-14 | 91KB | 4,418 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] Apple LaserWriter Plus [port] LPT1: [lang] 1 [desc] 755918537 20 738366549 284 23 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Arial 240 0 16384 [algn] 1 1 216 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Function 4 [fnt] Arial 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 1 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [pg] 23 41 0 38 0 1 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 86 0 26 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 131 0 27 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 176 0 45 0 1 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 221 0 58 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 266 0 31 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 309 0 29 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 352 0 30 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 397 0 25 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 442 0 30 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 487 0 25 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 531 0 21 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 576 0 42 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 621 0 66 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 666 0 25 64 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 711 0 47 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 756 0 47 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 801 0 34 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 844 0 82 32 0 0 0 65535 43 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 887 0 27 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 930 0 13 32 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 970 0 21 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 1005 0 36 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] <:#566,9360><:f,2Times New Roman,>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14) <:#283,9360><:f,2Times New Roman,>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1) <:#566,9360><:f,2Times New Roman,>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4) <:#566,9360><:f,2Times New Roman,>Define PostMessage(hwnd, message, wparam, lparao) dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4) <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> <:#283,9360><:><:><:><:><:f,2Times New Roman,>Define EnableHardwareInput() dllcall("user,EnableHardwareInput,AA", %1) <:#283,9360><:f,2Times New Roman,>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2) <:#283,9360><:f,2Times New Roman,>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2) <:#283,9360><:f,2Times New Roman,>Define GetActiveWindow() DllCall("user,GetActiveWindow,H") @Outline2@<:#566,9360><:f,2Times New Roman,>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4) @Outline2@<:#283,9360><:f,2Times New Roman,>Define GetWindowText() DllCall("user,GetWindowText,HHCH", %1, %2, 50) <:#283,9360><:f,2Times New Roman,>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1) <:#283,9360><:f,2Times New Roman,>define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4) <:#283,9360><:f,2Times New Roman,>define WM_GETTEXT 0x000D <:#283,9360><:f,2Times New Roman,>define SC_RESTORE 0xF120 <:#283,9360><:f,2Times New Roman,>define WM_SYSCOMMAND 0x0112 <:#283,9360><:f,2Times New Roman,>Define WM_SETFONT 0x30 <:#283,9360><:f,2Times New Roman,>Define WM_COMMAND 0x111 <:#283,9360><:f,2Times New Roman,>Define WM_QUIT 0x0012 <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>define calstyle "<:f240,2Times New Roman,255,0,0>_orgcal.sty<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>declare startcal(p1, p2) <:#283,9360><:f,2Times New Roman,>declare getorgdata(orgsection, orgsection2) <:#283,9360><:f,2Times New Roman,>declare readorgdates(p1, p2, p3, p4, p5) <:#283,9360><:f,2Times New Roman,>declare datenum2datestr(orgmonth) <:#283,9360><:f,2Times New Roman,>declare autocal(year, month) <:#283,9360><:f,2Times New Roman,>declare datestr2datenum(orgmonth) <:#283,9360><:f,2Times New Roman,>declare findday(orgday) <:#283,9360><:f,2Times New Roman,>declare findday_ann(orgday) <:#283,9360><:f,2Times New Roman,>declare readorganniversary(dates, text, month) <:#283,9360><:f,2Times New Roman,>declare createdlgfont() <:#283,9360><:f,2Times New Roman,>declare setfont(hdlg, id) <:#283,9360><:f,2Times New Roman,>declare deletefont() <:#283,9360><:f,2Times New Roman,>declare delfile(filename) <:#283,9360><:f,2Times New Roman,>declare FindAndReplace(String, Findwhat, Replacewith) <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>' Macro by Charlie Pappas, Calendar by Powell Smith <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function orgcal() <:#283,9360><:f,2Times New Roman,>'singlestep(0) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>stylesheet = "<:f240,2Times New Roman,255,0,0>_CALORG.STY<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,>if getopenfilecount() <;> 0 <:f,2Times New Roman,> if (getdocinfo$(ddstylesheet) <<<;> stylesheet) <:f240,2Times New Roman,0,0,128>Or (GetDocInfo$(dduser8) = 1) <:#283,9360><:f,2Times New Roman,> if New(stylesheet, WithContents, 1024) <<<;> 1 <:#283,9360><:f,2Times New Roman,> message("Unable to find the style sheet {stylesheet}.", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>else <:#283,9360><:f,2Times New Roman,> makenew: <:#283,9360><:f,2Times New Roman,> if New(stylesheet, WithContents, 1024) <<<;> 1 <:f240,2Times New Roman,255,0,0> message("Unable to find the style sheet {stylesheet}.", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>defstr year, month; <:#283,9360><:f,2Times New Roman,>'goto debug <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>if autocal(&year, &month) <<<;> 1 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>docinfofields("", "", "", "", "", "", "", 1) <:#283,9360><:f,2Times New Roman,>defstr startrow, startcol, endrow, endcol; <:#283,9360><:f,2Times New Roman,>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol) <:#283,9360><:f,2Times New Roman,>if startrow = 10 <:#283,9360><:f,2Times New Roman,> type("<[>down]<[>down]<[>shiftdown]") <:#283,9360><:f,2Times New Roman,> answermsgbox(yes) <:#283,9360><:f,2Times New Roman,> DeleteColumnRow(row) <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>orgsection = GetProfileString$("OrgCal", "Calendar", "amipro2.ini") <:#283,9360><:f,2Times New Roman,>if orgsection = "" <:#283,9360><:f,2Times New Roman,> orgsection = "<:f240,2Times New Roman,255,0,0>Calendar<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,> WriteProfileString("OrgCal", "Calendar", "Calendar", "amipro2.ini") <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>orgsection2 = GetProfileString$("OrgCal", "<:f240,2Times New Roman,255,0,0>Anniversary<:f,2Times New Roman,>", "amipro2.ini") <:#283,9360><:f,2Times New Roman,>if orgsection2 = "" <:#283,9360><:f,2Times New Roman,> orgsection2 = "<:f240,2Times New Roman,255,0,0>Anniversary<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,> WriteProfileString("OrgCal", "Anniversary", "<:f240,2Times New Roman,255,0,0>Anniversary<:f,2Times New Roman,>", "amipro2.ini") <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>windir = getwindowsdirectory$() <:#283,9360><:f,2Times New Roman,>type("<[>ctrlhome]<[>down]<[>down]") <:#283,9360><:f,2Times New Roman,>statusbarmsg("<:f240,2Times New Roman,255,0,0>Getting Organizer data...<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>if getorgdata(orgsection, orgsection2) <<<;> 1 <:#283,9360><:f,2Times New Roman,> statusbarmsg("") <:#283,9360><:f,2Times New Roman,> hwnd = findwindow("TZ_PORG", 0) <:#283,9360><:f,2Times New Roman,> showwindow(hwnd, 1) <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>debug: <:#283,9360><:f,2Times New Roman,>dim dates(1) <:#283,9360><:f,2Times New Roman,>dim dates_ann(1) <:#283,9360><:f,2Times New Roman,>dim text(1) <:#283,9360><:f,2Times New Roman,>dim text_ann(1) <:#283,9360><:f,2Times New Roman,>dim time(1) <:#283,9360><:f,2Times New Roman,>monthnum = datestr2datenum(month) <:#283,9360><:f,2Times New Roman,>statusbarmsg("<:f240,2Times New Roman,255,0,0>Reading Organizer data...<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>numrecs = readorgdates(&dates, &text, &time, year, monthnum) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>if numrecs = 0 <:f240,2Times New Roman,0,0,128> Goto Anniver <:f240,2Times New Roman,0,0,128> ' pmm 5/24/93 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>curday = 1 <:#283,9360><:f,2Times New Roman,>findday(curday) <:#283,9360><:f,2Times New Roman,>for i = 1 to numrecs <:#283,9360><:f,2Times New Roman,> orgdate = dates(i) <:#283,9360><:f,2Times New Roman,> if orgdate <<<;> curday <:#283,9360><:f,2Times New Roman,> type("<[>tab]<[>up]") <:#283,9360><:f,2Times New Roman,> curday = findday(orgdate) <:#283,9360><:f,2Times New Roman,> if curday = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> timex = time(i) <:#283,9360><:f,2Times New Roman,> txt = text(i) <:#283,9360><:f,2Times New Roman,> setstyle("Entry") <:#283,9360><:f,2Times New Roman,> bold() <:#283,9360><:f,2Times New Roman,> type("{timex}") <:#283,9360><:f,2Times New Roman,> bold() <:#283,9360><:f,2Times New Roman,> if Instr(0, txt, " ") <;> 0 <:#283,9360><:f,2Times New Roman,> findandreplace(&txt, " ", " ") <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> type(" {txt}<[>enter]") <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,> <:f240,2Times New Roman,0,0,128>Anniver: <:#283,9360><:f,2Times New Roman,>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1 <:#283,9360><:f,2Times New Roman,> goto done <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>' Now do the anniversary dates <:#283,9360><:f,2Times New Roman,>type("<[>ctrlhome]<[>down]<[>down]") <:#283,9360><:f,2Times New Roman,>statusbarmsg("<:f240,2Times New Roman,255,0,0>Reading Organizer Anniversary data...<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>numrecs = readorganniversary(&dates_ann, &text_ann, monthnum) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>if numrecs = 0 <:#283,9360><:f,2Times New Roman,> goto done <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>curday = 1 <:#283,9360><:f,2Times New Roman,>findday_ann(curday) <:#283,9360><:f,2Times New Roman,>for i = 1 to numrecs <:#283,9360><:f,2Times New Roman,> orgdate = dates_ann(i) <:#283,9360><:f,2Times New Roman,> if orgdate <<<;> curday <:#283,9360><:f,2Times New Roman,> type("<[>tab]<[>up]") <:#283,9360><:f,2Times New Roman,> curday = findday_ann(orgdate) <:#283,9360><:f,2Times New Roman,> if curday = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> txt = text_ann(i) <:#283,9360><:f,2Times New Roman,> if Instr(0, txt, " ") <;> 0 <:#283,9360><:f,2Times New Roman,> findandreplace(&txt, " ", " ") <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> type("{txt}<[>enter]") <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>done: <:#283,9360><:f,2Times New Roman,>defstr fh; <:#283,9360><:f,2Times New Roman,>delfile(GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini")) <:#283,9360><:f,2Times New Roman,>delfile(GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini")) <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>message("<:f240,2Times New Roman,255,0,0>Here is your calendar from Lotus Organizer.", "Ami Pro<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function findday(orgday) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>while(1) <:#283,9360><:f,2Times New Roman,> curday = curword$() <:#283,9360><:f,2Times New Roman,> if curday = orgday <:#283,9360><:f,2Times New Roman,> type("<[>down]") <:#283,9360><:f,2Times New Roman,> return curday <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> type("<[>tab]") <:#283,9360><:f,2Times New Roman,> if getmode() <<<;> 129 <:#283,9360><:f,2Times New Roman,> message("<:f240,2Times New Roman,255,0,0>Unable to continue.<:f,2Times New Roman,>", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>wend <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function findday_ann(orgday) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>while(1) <:#283,9360><:f,2Times New Roman,> curday = curword$() <:#283,9360><:f,2Times New Roman,> if curday = orgday <:#283,9360><:f,2Times New Roman,> type("<[>left]") <:#283,9360><:f,2Times New Roman,> return curday <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> type("<[>tab]") <:#283,9360><:f,2Times New Roman,> if getmode() <<<;> 129 <:#283,9360><:f,2Times New Roman,> message("<:f240,2Times New Roman,255,0,0>Unable to continue.<:f,2Times New Roman,>", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>wend <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function startcal(year, month) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>defstr startrow, startcol, endrow, endcol; <:#283,9360><:f,2Times New Roman,>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol) <:#283,9360><:f,2Times New Roman,>if startrow = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>type("<[>ctrlhome]"); <:#283,9360><:f,2Times New Roman,>*year = curword$() <:#283,9360><:f,2Times New Roman,>type("<[>tab]") <:#283,9360><:f,2Times New Roman,>*month = curword$() <:#283,9360><:f,2Times New Roman,>type("<[>down]<[>down]<[>home]<[>home]<[>tab]") <:#283,9360><:f,2Times New Roman,>return 1 <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function getorgdata(orgsection, orgsection2) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>onerror endit <:#283,9360><:f,2Times New Roman,>oncancel endit <:#283,9360><:f,2Times New Roman,>buffsize=80 <:#283,9360><:f,2Times New Roman,>defstr txt; <:#283,9360><:f,2Times New Roman,>hwnd = findwindow("TZ_PORG", 0) <:#283,9360><:f,2Times New Roman,>if isiconic(hwnd) <:#283,9360><:f,2Times New Roman,> appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0) <+@><:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>showwindow(hwnd, 0) <:#283,9360><:f,2Times New Roman,>activateapp("<:f240,2Times New Roman,255,0,0>Lotus Organizer<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>enablehardwareinput(0) <:#283,9360><:f,2Times New Roman,>wparam = 0x03F2 <:#283,9360><:f,2Times New Roman,>lparao = 0x00000000 <:#283,9360><:f,2Times New Roman,>PostMessage(hwnd, wm_command, wparam, lparao) <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>hdlg = getactivewindow() <:S+-1><:#283,9360><:f,2Times New Roman,>sendkeys("<[>ctrlhome]") ' go to beginning of organize and do File/Export <:S+-1><:#283,9360><:f,2Times New Roman,>pause(002) <:S+-1><:#283,9360><:f,2Times New Roman,>for i = 1 to 20 <:#283,9360><:f,2Times New Roman,> SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt) <:#283,9360><:f,2Times New Roman,> if Instr(3, txt, orgsection) <;> 1 <:#283,9360><:f,2Times New Roman,> goto rabbit <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> sendkeys("<:f240,2Times New Roman,255,0,0><[>down]<:f,2Times New Roman,>") ' go to next org item in combo box <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>enablehardwareinput(1) <:#283,9360><:f,2Times New Roman,>return 0 <:#283,9360><:f,2Times New Roman,>rabbit: <:#283,9360><:f,2Times New Roman,>temp = getwindowsdirectory$() <:#283,9360><:f,2Times New Roman,>if right$(temp, 1) <<<;> "\" <:#283,9360><:f,2Times New Roman,> temp = strcat$(temp, "\") <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>again: <:#283,9360><:f,2Times New Roman,>uname = right$(now(), 7) <:#283,9360><:f,2Times New Roman,>filename = "{temp}~{uname}.tmp" <:#283,9360><:f,2Times New Roman,>WriteProfileString("OrgCal", "CalendarFile", filename, "amipro2.ini"); <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>alto]<[>altt]u<[>altf]<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>if GetDlgItemText(getactivewindow(), 307) <<<;> 1 <:#283,9360><:f,2Times New Roman,> sendkeys(" ") ' send a space to check the box <:#283,9360><:f,2Times New Roman,>endif <:#566,9360><:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>enter]<:f,2Times New Roman,>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option <:#283,9360><:f,2Times New Roman,>'sendkeys("<:f240,2Times New Roman,255,0,0><[>alto]<[>altt]<:f240,2Times New Roman,0,0,255>m<:f240,2Times New Roman,255,0,0><[>enter]<:f,2Times New Roman,>") ' U sets US 437 in US, need to localize for each country <:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>alte<:f240,2Times New Roman,255,0,0>]a<:f240,2Times New Roman,255,0,0><[>tab]{filename}<:f240,2Times New Roman,255,0,0><[>enter]<[>altm]<[>enter]<:f,2Times New Roman,>") ' command organizer to export ascii format to file and map all fields <:#283,9360><:f,2Times New Roman,>hdlg = getactivewindow() <:#283,9360><:f,2Times New Roman,>defstr windowtext; <:#283,9360><:f,2Times New Roman,>pause(002) <:#283,9360><:f,2Times New Roman,>while(1) <:#283,9360><:f,2Times New Roman,> getwindowtext(getactivewindow(), &windowtext) <:#283,9360><:f,2Times New Roman,> if windowtext = "<:f240,2Times New Roman,255,0,0>Lotus Organizer<:f,2Times New Roman,>" ' check on export dialog box title bar until it is gone <:f,2Times New Roman,> sendkeys("<:f240,2Times New Roman,255,0,0><[>esc<:f240,2Times New Roman,255,0,0>]<:f,2Times New Roman,>") ' clear the next message box <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> pause(010) <:#283,9360><:f,2Times New Roman,> if windowtext <<<;> "<:f240,2Times New Roman,255,0,0>Status<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>wend <:#283,9360><:f,2Times New Roman,>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1 <:#283,9360><:f,2Times New Roman,> goto done <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>again2: <:#283,9360><:f,2Times New Roman,>uname = right$(now(), 7) <:#283,9360><:f,2Times New Roman,>filename = "{temp}~{uname}.tmp" <:#283,9360><:f,2Times New Roman,>WriteProfileString("OrgCal", "AnniversaryFile", filename, "amipro2.ini"); <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>PostMessage(hwnd, wm_command, wparam, lparao) <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>hdlg = getactivewindow() <:S+-1><:#283,9360><:f,2Times New Roman,>sendkeys("<[>ctrlhome]") <:S+-1><:#283,9360><:f,2Times New Roman,>for i = 1 to 20 <:#283,9360><:f,2Times New Roman,> SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt) <:#283,9360><:f,2Times New Roman,> if Instr(3, txt, orgsection2) <;> 1 <:#283,9360><:f,2Times New Roman,> goto rabbit2 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> sendkeys("<:f240,2Times New Roman,255,0,0><[>down]<:f,2Times New Roman,>") ' see above <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>enablehardwareinput(1) <:#283,9360><:f,2Times New Roman,>return 0 <:#283,9360><:f,2Times New Roman,>rabbit2: <:#283,9360><:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>alto]<[>altt]u<[>altf]<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>pause(001) <:#283,9360><:f,2Times New Roman,>if GetDlgItemText(getactivewindow(), 307) <<<;> 1 <:#283,9360><:f,2Times New Roman,> sendkeys(" ") ' send a space to check the box <:#283,9360><:f,2Times New Roman,>endif <:#566,9360><:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>enter]<:f,2Times New Roman,>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option <:#283,9360><:f,2Times New Roman,>'sendkeys("<:f240,2Times New Roman,255,0,0><[>alto]<[>altt]<:f240,2Times New Roman,0,0,255>m<:f240,2Times New Roman,255,0,0><[>enter]<:f,2Times New Roman,>") ' U sets US 437 in US, need to localize for each country <:f,2Times New Roman,>sendkeys("<:f240,2Times New Roman,255,0,0><[>alte<:f240,2Times New Roman,255,0,0>]a<:f240,2Times New Roman,255,0,0><[>tab]{filename}<:f240,2Times New Roman,255,0,0><[>enter]<[>altm]<[>enter]<:f,2Times New Roman,>") ' command organizer to export ascii format to file and map all fields <:#283,9360><:f,2Times New Roman,>hdlg = getactivewindow() <:#283,9360><:f,2Times New Roman,>pause(002) <:#283,9360><:f,2Times New Roman,>while(1) <:#283,9360><:f,2Times New Roman,> getwindowtext(getactivewindow(), &windowtext) <:#283,9360><:f,2Times New Roman,> if windowtext = "<:f240,2Times New Roman,255,0,0>Lotus Organizer<:f,2Times New Roman,>" ' see above <:f,2Times New Roman,> sendkeys("<:f240,2Times New Roman,255,0,0><[>esc<:f240,2Times New Roman,255,0,0>]<:f,2Times New Roman,>") ' see above <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> pause(010) <:#283,9360><:f,2Times New Roman,> if windowtext <<<;> "<:f240,2Times New Roman,255,0,0>Status<:f,2Times New Roman,>" <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>wend <:#283,9360><:f,2Times New Roman,>done: <:#283,9360><:f,2Times New Roman,>appminimize("<:f240,2Times New Roman,255,0,0>Lotus Organizer<:f,2Times New Roman,>") <:#283,9360><:f,2Times New Roman,>showwindow(hwnd, 1) <:#283,9360><:f,2Times New Roman,>activateapp("") <:#283,9360><:f,2Times New Roman,>enablehardwareinput(1) <:#283,9360><:f,2Times New Roman,>return 1 <:#283,9360><:f,2Times New Roman,>endit: <:#283,9360><:f,2Times New Roman,>showwindow(hwnd, 1) <:#283,9360><:f,2Times New Roman,>enablehardwareinput(1) <:#283,9360><:f,2Times New Roman,>return 0 <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function readorganniversary(dates_ann, text_ann, month) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>onerror endit <:#283,9360><:f,2Times New Roman,>oncancel endit <:#283,9360><:f,2Times New Roman,>DIM field(2) <:#283,9360><:f,2Times New Roman,>'pause(030) <:#283,9360><:f,2Times New Roman,>datafile = GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini"); <:#283,9360><:f,2Times New Roman,>fh = fopen(datafile, "r") <:#283,9360><:f,2Times New Roman,>if fh = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>if fgets$(fh) = -1 <:#283,9360><:f,2Times New Roman,> fclose(fh) <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>fclose(fh) <:#283,9360><:f,2Times New Roman,>handle = RecOpen(datafile,, "*Comma:1", 0) <:#283,9360><:f,2Times New Roman,>IF handle = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>numfields = RecFieldCount(handle) <:#283,9360><:f,2Times New Roman,>if numfields << 1 <:#283,9360><:f,2Times New Roman,> goto endit <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>sep = GetProfileString$("intl", "sDate") <:#283,9360><:f,2Times New Roman,>if sep = "" <:#283,9360><:f,2Times New Roman,> sep = "/" <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>sShortDate = ucase$(GetProfileString$("intl", "sShortDate")) <:#283,9360><:f,2Times New Roman,>if sShortDate = "" <:#283,9360><:f,2Times New Roman,> sShortDate = "M/D/YY" <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> smonth = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if smonth = "M" <:#283,9360><:f,2Times New Roman,> smonth = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> sday = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if sday = "D" <:#283,9360><:f,2Times New Roman,> sday = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> syear = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if syear = "YY" <:#283,9360><:f,2Times New Roman,> syear = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>FOR I = 1 to 2 <:#283,9360><:f,2Times New Roman,> name = (RecFieldName$(handle, I)) <:#283,9360><:f,2Times New Roman,> field(i) = name <:#283,9360><:f,2Times New Roman,>NEXT <:#283,9360><:f,2Times New Roman,>i = 1 <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>WHILE RecNextRec(handle) = 0 <:#283,9360><:f,2Times New Roman,> name = (RecGetField(handle, field(1))); ' date <:#283,9360><:f,2Times New Roman,> orgmonth = strfield$(name, smonth, sep) <:#283,9360><:f,2Times New Roman,> if orgmonth <<<;> month <:#283,9360><:f,2Times New Roman,> goto skipit <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> date = strfield$(name, sday, sep) <:#283,9360><:f,2Times New Roman,> if left$(date, 1) = 0 <:#283,9360><:f,2Times New Roman,> date = right$(date, 1) <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> ArrayInsert(&dates_ann, i, date) ' insert the date <:#283,9360><:f,2Times New Roman,> name = (RecGetField(handle, field(2))); <:#283,9360><:f,2Times New Roman,> ArrayInsert(&text_ann, i, name) <:#283,9360><:f,2Times New Roman,> statusbarmsg(name) <:#283,9360><:f,2Times New Roman,> i = i + 1 <:#283,9360><:f,2Times New Roman,> skipit: <:#283,9360><:f,2Times New Roman,>WEND <:#283,9360><:f,2Times New Roman,>RecClose(handle) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>return i - 1 <:#283,9360><:f,2Times New Roman,>endit: <:#283,9360><:f,2Times New Roman,>RecClose(handle) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>return 0 <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function readorgdates(dates, text, time, year, month) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>onerror endit <:#283,9360><:f,2Times New Roman,>oncancel endit <:#283,9360><:f,2Times New Roman,>mynumfields = 4 <:#283,9360><:f,2Times New Roman,>year = right$(year, 2) <:#283,9360><:f,2Times New Roman,>DIM field(mynumfields) <:#283,9360><:f,2Times New Roman,>datafile = GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini"); <:#283,9360><:f,2Times New Roman,>'pause(030) <:#283,9360><:f,2Times New Roman,>fh = fopen(datafile, "r") <:#283,9360><:f,2Times New Roman,>if fh = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>if fgets$(fh) = -1 <:#283,9360><:f,2Times New Roman,> fclose(fh) <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>fclose(fh) <:#283,9360><:f,2Times New Roman,>handle = RecOpen(datafile,, "*Comma:1", 0) <:#283,9360><:f,2Times New Roman,>IF handle = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>numfields = RecFieldCount(handle) <:#283,9360><:f,2Times New Roman,>if numfields << 1 <:#283,9360><:f,2Times New Roman,> goto endit <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>sep = GetProfileString$("intl", "sDate") <:#283,9360><:f,2Times New Roman,>if sep = "" <:#283,9360><:f,2Times New Roman,> sep = "/" <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>sShortDate = ucase$(GetProfileString$("intl", "sShortDate")) <:#283,9360><:f,2Times New Roman,>if sShortDate = "" <:#283,9360><:f,2Times New Roman,> sShortDate = "M/D/YY" <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> smonth = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if smonth = "M" <:#283,9360><:f,2Times New Roman,> smonth = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> sday = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if sday = "D" <:#283,9360><:f,2Times New Roman,> sday = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>for i = 1 to 3 <:#283,9360><:f,2Times New Roman,> syear = strfield$(sShortDate, i, sep) <:#283,9360><:f,2Times New Roman,> if syear = "YY" <:#283,9360><:f,2Times New Roman,> syear = i <:#283,9360><:f,2Times New Roman,> break <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>FOR i = 1 to mynumfields <:#283,9360><:f,2Times New Roman,> name = (RecFieldName$(handle, i)) <:#283,9360><:f,2Times New Roman,> field(i) = name <:#283,9360><:f,2Times New Roman,>NEXT <:#283,9360><:f,2Times New Roman,>i = 1 <:#283,9360><:f,2Times New Roman,>WHILE RecNextRec(handle) = 0 <:#283,9360><:f,2Times New Roman,> name = (RecGetField(handle, field(1))); ' date <:#283,9360><:f,2Times New Roman,> orgyear = strfield$(name, syear, sep) <:#283,9360><:f,2Times New Roman,> if orgyear <<<;> year <:#283,9360><:f,2Times New Roman,> goto skipit <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> orgmonth = strfield$(name, smonth, sep) <:#283,9360><:f,2Times New Roman,> if orgmonth <<<;> month <:#283,9360><:f,2Times New Roman,> goto skipit <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> date = strfield$(name, sday, sep) <:#283,9360><:f,2Times New Roman,> if left$(date, 1) = 0 <:#283,9360><:f,2Times New Roman,> date = right$(date, 1) <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,> ArrayInsert(&dates, i, date) ' insert the date <:#283,9360><:f,2Times New Roman,> name = (RecGetField(handle, field(2))); ' time <:#283,9360><:f,2Times New Roman,> ArrayInsert(&time, i, name) <:#283,9360><:f,2Times New Roman,> name = (RecGetField(handle, field(4))); ' text <:#283,9360><:f,2Times New Roman,> ArrayInsert(&text, i, name) <:#283,9360><:f,2Times New Roman,> statusbarmsg(name) <:#283,9360><:f,2Times New Roman,> i = i + 1 <:#283,9360><:f,2Times New Roman,> skipit: <:#283,9360><:f,2Times New Roman,>WEND <:#283,9360><:f,2Times New Roman,>RecClose(handle) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>return i - 1 <:#283,9360><:f,2Times New Roman,>endit: <:#283,9360><:f,2Times New Roman,>RecClose(handle) <:#283,9360><:f,2Times New Roman,>statusbarmsg("") <:#283,9360><:f,2Times New Roman,>return 0 <:#283,9360><:f,2Times New Roman,>end function @Function@<:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function helpme() <:#566,9360><:f,2Times New Roman,>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 140) <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function datenum2datestr(orgmonth) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>switch orgmonth <:#283,9360><:f,2Times New Roman,> case 01 <:#283,9360><:f240,2Times New Roman,255,0,0> return "January" <:#283,9360><:f240,2Times New Roman,255,0,0> case 02 <:#283,9360><:f240,2Times New Roman,255,0,0> return "February" <:#283,9360><:f240,2Times New Roman,255,0,0> case 03 <:#283,9360><:f240,2Times New Roman,255,0,0> return "March" <:#283,9360><:f240,2Times New Roman,255,0,0> case 04 <:#283,9360><:f240,2Times New Roman,255,0,0> return "April" <:#283,9360><:f240,2Times New Roman,255,0,0> case 05 <:#283,9360><:f240,2Times New Roman,255,0,0> return "May" <:#283,9360><:f240,2Times New Roman,255,0,0> case 06 <:#283,9360><:f240,2Times New Roman,255,0,0> return "June" <:#283,9360><:f240,2Times New Roman,255,0,0> case 07 <:#283,9360><:f240,2Times New Roman,255,0,0> return "July" <:#283,9360><:f240,2Times New Roman,255,0,0> case 08 <:#283,9360><:f240,2Times New Roman,255,0,0> return "August" <:#283,9360><:f240,2Times New Roman,255,0,0> case 09 <:#283,9360><:f240,2Times New Roman,255,0,0> return "September" <:#283,9360><:f240,2Times New Roman,255,0,0> case 10 <:#283,9360><:f240,2Times New Roman,255,0,0> return "October" <:#283,9360><:f240,2Times New Roman,255,0,0> case 11 <:#283,9360><:f240,2Times New Roman,255,0,0> return "November" <:#283,9360><:f240,2Times New Roman,255,0,0> case 12 <:#283,9360><:f240,2Times New Roman,255,0,0> return "December" <:#283,9360><:f,2Times New Roman,>endswitch <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function datestr2datenum(orgmonth) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>switch orgmonth <:#283,9360><:f240,2Times New Roman,255,0,0> case "January" <:#283,9360><:f240,2Times New Roman,255,0,0> return 01 <:#283,9360><:f240,2Times New Roman,255,0,0> case "February" <:#283,9360><:f240,2Times New Roman,255,0,0> return 02 <:#283,9360><:f240,2Times New Roman,255,0,0> case "March" <:#283,9360><:f240,2Times New Roman,255,0,0> return 03 <:#283,9360><:f240,2Times New Roman,255,0,0> case "April" <:#283,9360><:f240,2Times New Roman,255,0,0> return 04 <:#283,9360><:f240,2Times New Roman,255,0,0> case "May" <:#283,9360><:f240,2Times New Roman,255,0,0> return 05 <:#283,9360><:f240,2Times New Roman,255,0,0> case "June" <:#283,9360><:f240,2Times New Roman,255,0,0> return 06 <:#283,9360><:f240,2Times New Roman,255,0,0> case "July" <:#283,9360><:f240,2Times New Roman,255,0,0> return 07 <:#283,9360><:f240,2Times New Roman,255,0,0> case "August" <:#283,9360><:f240,2Times New Roman,255,0,0> return 08 <:#283,9360><:f240,2Times New Roman,255,0,0> case "September" <:#283,9360><:f240,2Times New Roman,255,0,0> return 09 <:#283,9360><:f240,2Times New Roman,255,0,0> case "October" <:#283,9360><:f240,2Times New Roman,255,0,0> return 10 <:#283,9360><:f240,2Times New Roman,255,0,0> case "November" <:#283,9360><:f240,2Times New Roman,255,0,0> return 11 <:#283,9360><:f240,2Times New Roman,255,0,0> case "December" <:#283,9360><:f,2Times New Roman,> return 12 <:#283,9360><:f,2Times New Roman,>endswitch <:#283,9360><:f,2Times New Roman,>end function @Function@<:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>FUNCTION AutoCal(year, month) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) @Remark@<:#283,9360><:f,2Times New Roman,>'Declaration of Variables <:f,2Times New Roman,>DEFSTR Month1 <:f160,2Times New Roman,255,0,0>'This variable contains the month direct from the dialog box. <:f,2Times New Roman,>DEFSTR Year1 <:f160,2Times New Roman,255,0,0> 'This variable contains the year direct from dialog box (YYYY). <:f,2Times New Roman,>DEFSTR LMonth <:f160,2Times New Roman,255,0,0> 'This variable contains the calendar month in lower case. <:f,2Times New Roman,>DEFSTR NMonth <:f160,2Times New Roman,255,0,0> 'This variable contains the month and day of Calendar Date (MM/DD/). <:f,2Times New Roman,>DEFSTR Stat1 <:f160,2Times New Roman,255,0,0>'This variable checks for Cancel from dialog box. <:f,2Times New Roman,>DEFSTR FirstDayWeek <:f160,2Times New Roman,255,0,0> 'This contains the Value of the day of the week the month starts on. <:f,2Times New Roman,>DEFSTR LastDay <:f160,2Times New Roman,255,0,0>'This contains the value of the number of days in current month. <:f,2Times New Roman,>DEFSTR ChkLen <:f160,2Times New Roman,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon. <:f,2Times New Roman,>DEFSTR CurStyleSheet <:f160,2Times New Roman,255,0,0>'This contains the style sheet for the current dicument <:f,2Times New Roman,>DEFSTR CurDocName <:f160,2Times New Roman,255,0,0> 'This contains the name of the current document. <:#283,9360><:f,2Times New Roman,>DEFSTR TotalWindows <:f160,2Times New Roman,255,0,0>'This contains the number of MDI windows open when starting macro. @Remark@<:#283,9360><:f,2Times New Roman,>'Declaration of Functions. <:#283,9360><:f,2Times New Roman,>DECLARE BuildDate(M,Y,N) <:#283,9360><:f,2Times New Roman,>DECLARE FillCalendar(F,L) <:#283,9360><:f,2Times New Roman,>DECLARE CheckLeap(M,Y,N) <:#283,9360><:f,2Times New Roman,>DECLARE AdjustTable() <:#283,9360><:f,2Times New Roman,>NW=IsNewWave() <:#283,9360><:f,2Times New Roman,>if nw = 1 <:#283,9360><:f,2Times New Roman,> message("<:f240,2Times New Roman,255,0,0>Unable to run under NewWave.<:f,2Times New Roman,>", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>ENDIF <:#283,9360><:f,2Times New Roman,>LayoutMode() <:#283,9360><:f,2Times New Roman,>FullPageView() <:#283,9360><:f,2Times New Roman,>rmac = getrunningmacrofile$() <:#283,9360><:f,2Times New Roman,>tryagain: @Remark@<:#283,9360><:f,2Times New Roman,>'Fill Edit boxes with current Month and Year. <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." ")) <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." ")) <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"January") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"February") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"March") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"April") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"May") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"June") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"July") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"August") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"September") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"October") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"November") <:#283,9360><:f240,2Times New Roman,255,0,0>FillEdit(9500,"December") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1980") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1981") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1982") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1983") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1984") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1985") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1986") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1987") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1988") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1989") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1990") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1991") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1992") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1993") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1994") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1995") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1996") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1997") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1998") <:#283,9360><:f,2Times New Roman,>FillEdit(9501,"1999") <:#283,9360><:f,2Times New Roman,>filledit(20, getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini")) @Remark@<:#283,9360><:f,2Times New Roman,> @Remark@<:#283,9360><:f,2Times New Roman,>'Call Dialog box for data entry and get data from edit boxes. <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>SetDlgCallBack(0, "{rmac}!initdlg") <:#283,9360><:f,2Times New Roman,>dlgkeyinterrupt(<[>f1], "{rmac}!helpme") <:#283,9360><:f,2Times New Roman,>windir = getwindowsdirectory$() <:#283,9360><:f,2Times New Roman,>currentcalname = getprofilestring$("OrgCal", "Calendar", "{windir}amipro2.ini") <:f,2Times New Roman,>if currentcalname = "" <:f,2Times New Roman,> filledit(8000, "Calendar") <:f,2Times New Roman,>else <:f,2Times New Roman,> filledit(8000, currentcalname) <:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>Stat1=DialogBox("." "Heymon") <:#283,9360><:f,2Times New Roman,>deletefont() <:#283,9360><:f,2Times New Roman,>if stat1 = 0 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>if findwindow("TZ_PORG", 0) << 1 <:#283,9360><:f,2Times New Roman,> PostMessage(getactivewindow(),0x111,1,0) <:#283,9360><:f,2Times New Roman,> message("<:f240,2Times New Roman,255,0,0>Lotus Organizer is not running.<:f,2Times New Roman,>", "Ami Pro") <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,>endif <:f,2Times New Roman,>writeprofilestring("OrgCal", "Calendar", getdialogfield$(8000), "{windir}amipro2.ini")<:f> <:#283,9360><:f,2Times New Roman,>Month1=GetDialogField$(9500) <:#283,9360><:f,2Times New Roman,>Year1=GetDialogField$(9501) @Remark@<:#283,9360><:f,2Times New Roman,>WriteProfileString("OrgCal", "DoAnniversary", getdialogfield$(20), "amipro2.ini") @Remark@<:#283,9360><:f,2Times New Roman,>'Check for Cancel. @Remark@<:#283,9360><:f,2Times New Roman,>'Check for error in entry. <:#283,9360><:f,2Times New Roman,>IF Year1 << 1980 OR Year1 <;> 1999 <:#283,9360><:f,2Times New Roman,> Message("Year must be in the range 1980 to 1999.") <:#283,9360><:f,2Times New Roman,> FillEdit(9500,Month1) <:#283,9360><:f,2Times New Roman,> FillEdit(9501,Year1) <:#283,9360><:f,2Times New Roman,> GOTO TryAgain <:#283,9360><:f,2Times New Roman,>ENDIF <:#283,9360><:f,2Times New Roman,>ChkLen = LEN(Year1) <:#283,9360><:f,2Times New Roman,>IF ChkLen<<<;>4 <:f240,2Times New Roman,255,0,0> Message("Year must be in the format, YYYY (Ex. '1991')") <:#283,9360><:f,2Times New Roman,> FillEdit(9500,Month1) <:#283,9360><:f,2Times New Roman,> FillEdit(9501,Year1) <:#283,9360><:f,2Times New Roman,> GOTO TryAgain <:#283,9360><:f,2Times New Roman,>'ELSEIF Year1<<1980 OR Year1<;>1999 <:f240,2Times New Roman,255,0,0> Message("Year must be in a range from 1980 to 1999.") <:#283,9360><:f,2Times New Roman,> FillEdit(9500,Month1) <:#283,9360><:f,2Times New Roman,> FillEdit(9501,Year1) <:#283,9360><:f,2Times New Roman,> GOTO TryAgain <:#283,9360><:f,2Times New Roman,>ENDIF @Remark@<:#283,9360><:f,2Times New Roman,>'Convert month to lower case and process. <:#283,9360><:f,2Times New Roman,>LMonth=LCase$(Month1) <:#283,9360><:f,2Times New Roman,>IF LMonth= <:f240,2Times New Roman,255,0,0>"january" <:f,2Times New Roman,> NMonth=<:f240,2Times New Roman,255,0,0>"01/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f,2Times New Roman,>ELSEIF LMonth= <:f240,2Times New Roman,255,0,0>"february" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="02/01/" <:#283,9360><:f,2Times New Roman,> LastDay=CheckLeap(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "march" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="03/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "april" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="04/01/" <:#283,9360><:f,2Times New Roman,> LastDay=30 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "may" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="05/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "june" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="06/01/" <:#283,9360><:f,2Times New Roman,> LastDay=30 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "july" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="07/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "august" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="08/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "september" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="09/01/" <:#283,9360><:f,2Times New Roman,> LastDay=30 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "october" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="10/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "november" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="11/01/" <:#283,9360><:f,2Times New Roman,> LastDay=30 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f240,2Times New Roman,255,0,0>ELSEIF LMonth= "december" <:#283,9360><:f240,2Times New Roman,255,0,0> NMonth="12/01/" <:#283,9360><:f,2Times New Roman,> LastDay=31 <:#283,9360><:f,2Times New Roman,> FirstDayWeek=BuildDate(Month1,Year1,NMonth) <:#283,9360><:f,2Times New Roman,> FillCalendar(FirstDayWeek,LastDay) @Remark@<:#283,9360><:f,2Times New Roman,>'Check for error in Month entry <:#283,9360><:f,2Times New Roman,>ELSE <:#283,9360><:f240,2Times New Roman,255,0,0> Message ("This is not a valid month. Please try again.") <:#283,9360><:f,2Times New Roman,> FillEdit(9500,Month1) <:#283,9360><:f,2Times New Roman,> FillEdit(9501,Year1) <:#283,9360><:f,2Times New Roman,> GOTO TryAgain <:#283,9360><:f,2Times New Roman,>ENDIF; <:#283,9360><:f,2Times New Roman,>*year = year1; <:#283,9360><:f,2Times New Roman,>*month = month1 <:#283,9360><:f,2Times New Roman,>return 1 <:#283,9360><:f,2Times New Roman,>END FUNCTION <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>Function BuildDate(Month1,Year1,NMonth) @Remark@<:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>DEFSTR CDate <:#283,9360><:f,2Times New Roman,>DEFSTR NDate <:#283,9360><:f,2Times New Roman,>DEFSTR NDays <:#283,9360><:f,2Times New Roman,>DEFSTR WDate <:#283,9360><:f,2Times New Roman,>DEFSTR DateRef <:#283,9360><:f,2Times New Roman,>DEFSTR TYear @Remark@<:#283,9360><:f,2Times New Roman,>'Extract last two digits of date for processing. <:#283,9360><:f,2Times New Roman,>TYear=Mid$(Year1,3,2) <:#283,9360><:f,2Times New Roman,>CDate=StrCat$(NMonth,TYear) <:#283,9360><:f240,2Times New Roman,255,0,0>DateRef="01/01/90" <:#283,9360><:f,2Times New Roman,>NDays=DateDiff(CDate,DateRef) <:#283,9360><:f,2Times New Roman,>NDate=NDays*86400+631224000 <:#283,9360><:f,2Times New Roman,>WDate=FormatDate$(NDate,"f") <:#283,9360><:f,2Times New Roman,>BuildDate=StrField$(WDate,1," ") <:#283,9360><:f,2Times New Roman,>Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}") <:#283,9360><:f,2Times New Roman,>END FUNCTION <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>FUNCTION FillCalendar(FirstDayWeek,LastDay) <:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>'answermsgbox(yes) <:#283,9360><:f,2Times New Roman,>'SaveAs("x.sam", 1, "", "") <:#283,9360><:f,2Times New Roman,>DEFSTR DayNum <:#283,9360><:f,2Times New Roman,>DEFSTR Column <:#283,9360><:f,2Times New Roman,>DEFSTR Row <:#283,9360><:f,2Times New Roman,>DEFSTR Row2 <:#283,9360><:f,2Times New Roman,>DEFSTR Row3 <:#283,9360><:f,2Times New Roman,>DEFSTR R1 <:#283,9360><:f,2Times New Roman,>DEFSTR R2 <:#283,9360><:f,2Times New Roman,>DEFSTR R3 <:#283,9360><:f,2Times New Roman,>DEFSTR R4 <:#283,9360><:f,2Times New Roman,>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" ) <:#283,9360><:f,2Times New Roman,>DayNum=1 <:#283,9360><:f,2Times New Roman,>IF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Sunday" <:#283,9360><:f,2Times New Roman,> FOR R1=1 TO 6 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Monday" <:#283,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> FOR R1=1 TO 5 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Tuesday" <:#283,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> FOR R2=1 TO 4 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Wednesday" <:#283,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> FOR R3=1 TO 3 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Thursday" <:#283,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> FOR R4=1 TO 2 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Friday" <:#283,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,>ELSEIF FirstDayWeek=<:f240,2Times New Roman,255,0,0>"Saturday" <:#849,9360><:f,2Times New Roman,> Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,>ENDIF <:#283,9360><:f,2Times New Roman,>Type("{DayNum}<[>Right]<[>Down]<[>Right]") <:#283,9360><:f,2Times New Roman,>DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,>FOR Column=2 <++>to<-+> 6 <:#283,9360><:f,2Times New Roman,> FOR Row= 1 <++>to<-+> 6 <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Right]") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> IF DayNum <;> LastDay <:#283,9360><:f,2Times New Roman,> EXIT FUNCTION <:#283,9360><:f,2Times New Roman,> ENDIF <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,> IF Column=7 AND DayNum<<LastDay <:#283,9360><:f,2Times New Roman,> Type("{DayNum}") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> Type("<[>Right]") <:#283,9360><:f,2Times New Roman,>' AdjustTable() <:#283,9360><:f,2Times New Roman,> FOR Row2=1 TO 7 <:#283,9360><:f,2Times New Roman,>' ConnectCells() <:#283,9360><:f,2Times New Roman,>goto debug <:#283,9360><:f,2Times New Roman,> FOR Row3=1 TO 2 <:#283,9360><:f,2Times New Roman,> TurnOn=TopSide <:#283,9360><:f,2Times New Roman,> TurnOff=0 <:#283,9360><:f,2Times New Roman,> StaySame=CellShade + Outline <:#283,9360><:f,2Times New Roman,> TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade) <:#283,9360><:f,2Times New Roman,> Type("<[>CTRLRight]") <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,> Type("<[>CTRLLeft]") <:#283,9360><:f,2Times New Roman,>debug: <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> Type("{DayNum}") <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,> Type("<[>CTRLRight]") <:#283,9360><:f,2Times New Roman,> IF DayNum <;> LastDay <:#283,9360><:f,2Times New Roman,> BREAK <:#283,9360><:f,2Times New Roman,> ENDIF <:#283,9360><:f,2Times New Roman,> NEXT <:#283,9360><:f,2Times New Roman,> ELSEIF DayNum = LastDay <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>CtrlHome]") <:#283,9360><:f,2Times New Roman,> BREAK <:#283,9360><:f,2Times New Roman,> ELSE <:#283,9360><:f,2Times New Roman,> Type("{DayNum}<[>Right]<[>Down]<[>Right]") <:#283,9360><:f,2Times New Roman,> ENDIF <:#283,9360><:f,2Times New Roman,> DayNum=DayNum + 1 <:#283,9360><:f,2Times New Roman,>NEXT <:#283,9360><:f,2Times New Roman,>END FUNCTION <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>FUNCTION CheckLeap(Month1,Year1,NMonth) @Remark@<:#283,9360><:f,2Times New Roman,>ignorekeyboard(1) <:#283,9360><:f,2Times New Roman,>DEFSTR CDate <:#283,9360><:f,2Times New Roman,>DEFSTR NDate <:#283,9360><:f,2Times New Roman,>DEFSTR NDays <:#283,9360><:f,2Times New Roman,>DEFSTR WDate <:#283,9360><:f,2Times New Roman,>DEFSTR DateRef <:#283,9360><:f,2Times New Roman,>DEFSTR TYear <:#283,9360><:f,2Times New Roman,>DEFSTR LNDate <:#283,9360><:f,2Times New Roman,>DEFSTR LeapDate @Remark@<:#283,9360><:f,2Times New Roman,>'Extract last two digits of date for processing. <:#283,9360><:f,2Times New Roman,>TYear=Mid$(Year1,3,2) <:#283,9360><:f,2Times New Roman,>CDate=StrCat$(NMonth,TYear) <:#283,9360><:f240,2Times New Roman,255,0,0>DateRef="01/01/90" <:#283,9360><:f,2Times New Roman,>NDays=DateDiff(CDate,DateRef) <:#283,9360><:f,2Times New Roman,>NDate=NDays*86400+631224000 <:#283,9360><:f,2Times New Roman,>LNDate=NDate + 2419200 <:#283,9360><:f240,2Times New Roman,255,0,0>LeapDate=FormatDate$(LNDate,"a") <:#283,9360><:f,2Times New Roman,>LeapNum=StrField$(LeapDate,1,"/") <:#283,9360><:f,2Times New Roman,>IF LeapNum=3 <:#283,9360><:f,2Times New Roman,> CheckLeap=28 <:#283,9360><:f,2Times New Roman,>ELSE <:#283,9360><:f,2Times New Roman,> CheckLeap=29 <:#283,9360><:f,2Times New Roman,>ENDIF <:#283,9360><:f,2Times New Roman,>END FUNCTION <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,>function initdlg(hdlg, id, value) <:#283,9360><:f,2Times New Roman,>for i = 1002 to 1008 <:#283,9360><:f,2Times New Roman,> setfont(hdlg, i) <:#283,9360><:f,2Times New Roman,>next <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> @Remark@<:#283,9360><:f,2Times New Roman,>'Dialog Box Section <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> <:f,2Times New Roman,><:f>DIALOG Heymon -2134376448 16 75 41 192 127 "" "AmiDialog" "Monthly Organizer Calendar" FONT 8 "Helv" <:#550,9360>5 5 134 18 1002 1342177280 "static" "This feature creates a monthly calendar using appointment entries in Lotus Organizer." 0 <:#275,9360>5 72 27 10 1000 1342177280 "static" "&Month :" 0 <:#275,9360>94 72 23 10 1001 1342177280 "static" "&Year :" 0 <:#275,9360>36 71 52 40 9500 1344339979 "combobox" "" 0 <:#275,9360>121 71 52 40 9501 1344339979 "combobox" "" 0 <:#275,9360>5 96 168 12 8000 1350631552 "edit" "" 0 <:#550,9360>5 109 101 12 20 1342242819 "button" "&Include Anniversary entries" 0 <:#275,9360>147 5 40 14 1 1342242817 "button" "OK" 0 <:#275,9360>147 21 40 14 2 1342242816 "button" "Cancel" 0 <:#275,9360>5 24 6 10 1003 1342177280 "static" "1." 0 <:#550,9360>15 24 105 10 1004 1342177280 "static" "Load the Organizer." 0 <:#275,9360>5 34 6 10 1005 1342177280 "static" "2." 0 <:#550,9360>15 34 124 16 1006 1342177280 "static" "Open the Organizer file for which you want to create a calendar." 0 <:#275,9360>5 50 6 10 1007 1342177280 "static" "3." 0 <:#550,9360>15 51 163 16 1008 1342177280 "static" "Choose this 'Monthly Organizer Calendar' feature and choose a month and a year for the calendar." 0 <:#550,9360>5 87 168 9 1009 1342177280 "static" "Calendar Section Name:" 0 <:#275,9360>END DIALOG<:f,2Times New Roman,><:f><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function createdlgfont() <:#283,9360><:f,2Times New Roman,>rmac = getrunningmacrofile$() <:#283,9360><:f,2Times New Roman,>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, <:f240,2Times New Roman,255,0,0>"Helv"<:f,2Times New Roman,>) <:#283,9360><:f,2Times New Roman,>if hfont <;> 1 <:#283,9360><:f,2Times New Roman,> AllocGlobalVar("{rmac}hfont", 1) <:#283,9360><:f,2Times New Roman,> SetGlobalVar("{rmac}hfont", hFont) <:#283,9360><:f,2Times New Roman,> Return hfont <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>End Function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function deletefont() <:#283,9360><:f,2Times New Roman,>rmac = getrunningmacrofile$() <:#283,9360><:f,2Times New Roman,>AllocGlobalVar("{rmac}hfont", 1) <:#283,9360><:f,2Times New Roman,>hfont = getglobalvar$("{rmac}hfont") <:#283,9360><:f,2Times New Roman,>if hfont <;> 1 <:#283,9360><:f,2Times New Roman,> deleteobject(hfont) <:#283,9360><:f,2Times New Roman,> freeglobalvar("{rmac}hfont") <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function setfont(hdlg, id) <:#283,9360><:f,2Times New Roman,>rmac = getrunningmacrofile$() <:#283,9360><:f,2Times New Roman,>AllocGlobalVar("{rmac}hfont", 1) <:#283,9360><:f,2Times New Roman,>hfont = getglobalvar$("{rmac}hfont") <:#283,9360><:f,2Times New Roman,>if hfont << 1 <:#283,9360><:f,2Times New Roman,> if createdlgfont() << 1 <:#283,9360><:f,2Times New Roman,> return 0 <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>hfont = getglobalvar$("{rmac}hfont") <:#283,9360><:f,2Times New Roman,>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0) <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> @Function@<:#283,9360><:f,2Times New Roman,>function delfile(filename) <:#283,9360><:f,2Times New Roman,>fh = fopen(filename, "r") <:#283,9360><:f,2Times New Roman,>if fh <<<;> 0 <:#283,9360><:f,2Times New Roman,> fseek(fh, 0, 2) <:#283,9360><:f,2Times New Roman,> stat = ftell(fh) <:#283,9360><:f,2Times New Roman,> fclose(fh) <:#283,9360><:f,2Times New Roman,> if stat <<<;> 0 <:#283,9360><:f,2Times New Roman,> dosdelfile(filename) <:#283,9360><:f,2Times New Roman,> endif <:#283,9360><:f,2Times New Roman,>endif <:#283,9360><:f,2Times New Roman,>end function <:#283,9360><:f,2Times New Roman,> <:#283,9360><:f,2Times New Roman,> @Function@<:I0,0,0,0><:S+-1><:#283,9360><:f,2Times New Roman,>Function FindAndReplace(String, Findwhat, Replacewith) <:#283,9360><:f,2Times New Roman,>DefStr Location; <:#283,9360><:f,2Times New Roman,>OffSet = 0 <:#283,9360><:f,2Times New Roman,>While 0 != Assign(&Location, Instr(OffSet, String, FindWhat)) <:#283,9360><:f,2Times New Roman,> BeforeLocation = Left$(String, Location - 1) <:#283,9360><:f,2Times New Roman,> AfterLocation = Right$(String, Len(String) - Location); <:#283,9360><:f,2Times New Roman,> *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation) <:#283,9360><:f,2Times New Roman,>Wend <+@><:I0,0,0,0><:S+-1><:#283,9360><:f,2Times New Roman,>End Function<:f> > [Embedded] 00069330 > [macsum] 21 orgcal 0 0 25 40 findday 2746 1 2 175 findday_ann 2973 1 2 192 startcal 3204 2 5 209 getorgdata 3395 2 12 224 readorganniversary 6194 3 15 343 readorgdates 8032 5 17 431 helpme 10059 0 1 526 datenum2datestr 10212 1 1 531 datestr2datenum 10985 1 1 561 AutoCal 11758 2 16 592 BuildDate 15743 3 7 776 FillCalendar 16001 2 13 795 CheckLeap 18309 3 10 891 initdlg 18633 3 2 918 Heymon 18785 0 -1 927 createdlgfont 19929 0 3 948 deletefont 20145 0 3 959 setfont 20317 2 3 970 delfile 20587 1 3 983 FindAndReplace 20760 3 5 996 [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 00000744 7 "Calendar" 8 8 0 287 "OrgCal" "Calendar" "Calendar" "amipro2.ini" 0 286 "OrgCal" "Anniversary" "amipro2.ini" 13 8 9 6 9 7 "" 18 0 11 00000907 7 "Anniversary" 8 9 0 287 "OrgCal" "Anniversary" "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 00001149 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] 16 datestr2datenum "{3}" 13 8 17 0 789 "Reading Organizer data..." 16 readorgdates &12 &14 &16 "{2}" "{17}" 13 8 18 0 789 "" 6 18 5 0 18 0 11 00001426 10 00001878 5 1 8 19 16 findday "{19}" 5 1 8 20 6 18 6 20 18 2 12 00001546 10 00001878 5 1 6 20 3 0 8 20 10 00001467 6 20 22 12 8 21 6 21 6 19 18 1 11 00001682 0 6 "[9][38]" 16 findday "{21}" 13 8 19 6 19 5 0 18 0 11 00001682 5 0 15 9 6 20 22 16 8 22 6 20 22 14 8 23 2 323 1 "Entry" 2 254 1 0 6 "{22}" 2 254 1 0 808 0 "{23}" " " 13 5 0 18 3 11 00001848 16 findandreplace &23 " " " " 0 6 " {23}[13]" 10 00001511 0 286 "OrgCal" "DoAnniversary" "amipro2.ini" 13 5 1 18 1 11 00001965 10 00002529 0 6 "[16420][40][40]" 0 789 "Reading Organizer Anniversary data..." 16 readorganniversary &13 &15 "{17}" 13 8 18 0 789 "" 6 18 5 0 18 0 11 00002136 10 00002529 5 1 8 19 16 findday_ann "{19}" 5 1 8 20 6 18 6 20 18 2 12 00002260 10 00002529 5 1 6 20 3 0 8 20 10 00002181 6 20 22 13 8 21 6 21 6 19 18 1 11 00002400 0 6 "[9][38]" 16 findday_ann "{21}" 13 8 19 6 19 5 0 18 0 11 00002400 5 0 15 9 6 20 22 15 8 23 0 808 0 "{23}" " " 13 5 0 18 3 11 00002500 16 findandreplace &23 " " " " 0 6 "{23}[13]" 10 00002225 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini" 13 16 delfile [X] 0 286 "OrgCal" "CalendarFile" "amipro2.ini" 13 16 delfile [X] 0 274 001 0 3 "Here is your calendar from Lotus Organizer." "Ami Pro" 6 0 15 9 14 findday 0 32 1 5 1 11 00000215 0 23 13 8 2 6 2 6 0 18 0 11 00000106 0 6 "[40]" 6 2 15 9 0 6 "[9]" 0 29 13 5 129 18 1 11 00000202 0 3 "Unable to continue." "Ami Pro" 5 0 15 9 10 00000020 6 1 15 9 14 findday_ann 0 32 1 5 1 11 00000219 0 23 13 8 2 6 2 6 0 18 0 11 00000110 0 6 "[37]" 6 2 15 9 0 6 "[9]" 0 29 13 5 129 18 1 11 00000206 0 3 "Unable to continue." "Ami Pro" 5 0 15 9 10 00000024 6 1 15 9 14 startcal 0 32 1 0 1301 &3 &4 &5 &6 6 3 5 0 18 0 11 00000082 5 0 15 9 0 6 "[16420]" 0 23 13 28 0 0 6 "[9]" 0 23 13 28 1 0 6 "[40][40][36][36][9]" 5 1 15 9 6 2 15 9 14 getorgdata 0 32 1 20 00002699 19 00002699 5 80 8 3 0 284 "user,FindWindow,HCC" "TZ_PORG" 0 13 8 5 0 284 "user,IsIconic,HH" "{5}" 13 11 00000185 0 1036 "{5}" 274 61728 0 0 284 "user,ShowWindow,HHH" "{5}" 0 0 38 "Lotus Organizer" 0 284 "user,EnableHardwareInput,AA" 0 5 1010 8 6 5 0 8 7 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}" 0 274 001 0 284 "user,GetActiveWindow,H" 13 8 8 0 36 "[16420]" 0 274 002 5 1 8 9 5 20 6 9 18 2 12 00000527 10 00000717 5 1 6 9 3 0 8 9 10 00000451 0 284 "user,GetActiveWindow,H" 13 0 44 [X] 301 13 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4 0 808 3 "{4}" "{0}" 13 5 1 18 3 11 00000691 10 00000778 0 36 "[40]" 10 00000494 0 789 "" 0 284 "user,EnableHardwareInput,AA" 1 5 0 15 9 0 1288 13 8 10 0 807 "{10}" 1 13 7 "\" 18 1 11 00000869 0 16 "{10}" "\" 13 8 10 0 772 13 0 807 [X] 7 13 8 11 7 "{10}~{11}.tmp" 8 12 0 287 "OrgCal" "CalendarFile" "{12}" "amipro2.ini" 0 36 "[8271][8276]u[8262]" 0 274 001 0 284 "user,GetActiveWindow,H" 13 0 42 [X] 307 13 5 1 18 1 11 00001107 0 36 " " 0 36 "[13]" 0 36 "[8261]a[9]{12}[13][8269][13]" 0 284 "user,GetActiveWindow,H" 13 8 8 0 274 002 5 1 11 00001453 0 284 "user,GetActiveWindow,H" 13 0 284 "user,GetWindowText,HHCH" [X] &13 50 6 13 7 "Lotus Organizer" 18 0 11 00001379 0 36 "[27]" 10 00001453 0 274 010 6 13 7 "Status" 18 1 11 00001440 10 00001453 10 00001209 0 286 "OrgCal" "DoAnniversary" "amipro2.ini" 13 5 1 18 1 11 00001540 10 00002576 0 772 13 0 807 [X] 7 13 8 11 7 "{10}~{11}.tmp" 8 12 0 287 "OrgCal" "AnniversaryFile" "{12}" "amipro2.ini" 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}" 0 274 001 0 284 "user,GetActiveWindow,H" 13 8 8 0 36 "[16420]" 5 1 8 9 5 20 6 9 18 2 12 00001862 10 00002052 5 1 6 9 3 0 8 9 10 00001786 0 284 "user,GetActiveWindow,H" 13 0 44 [X] 301 13 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4 0 808 3 "{4}" "{1}" 13 5 1 18 3 11 00002026 10 00002103 0 36 "[40]" 10 00001829 0 284 "user,EnableHardwareInput,AA" 1 5 0 15 9 0 36 "[8271][8276]u[8262]" 0 274 001 0 284 "user,GetActiveWindow,H" 13 0 42 [X] 307 13 5 1 18 1 11 00002230 0 36 " " 0 36 "[13]" 0 36 "[8261]a[9]{12}[13][8269][13]" 0 284 "user,GetActiveWindow,H" 13 8 8 0 274 002 5 1 11 00002576 0 284 "user,GetActiveWindow,H" 13 0 284 "user,GetWindowText,HHCH" [X] &13 50 6 13 7 "Lotus Organizer" 18 0 11 00002502 0 36 "[27]" 10 00002576 0 274 010 6 13 7 "Status" 18 1 11 00002563 10 00002576 10 00002332 0 1030 "Lotus Organizer" 0 284 "user,ShowWindow,HHH" "{5}" 1 0 38 "" 0 284 "user,EnableHardwareInput,AA" 1 5 1 15 9 0 284 "user,ShowWindow,HHH" "{5}" 1 0 284 "user,EnableHardwareInput,AA" 1 5 0 15 9 6 2 15 9 14 readorganniversary 0 32 1 20 00001790 19 00001790 5 2 21 4 [X] 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini" 13 8 5 0 259 "{5}" "r" 13 8 6 6 6 5 0 18 0 11 00000196 5 0 15 9 0 257 "{6}" 13 5 -1 18 0 11 00000263 0 260 "{6}" 5 0 15 9 0 260 "{6}" 0 1290 "{5}" "*Comma:1" 0 13 8 7 6 7 5 0 18 0 11 00000353 5 0 15 9 0 1294 "{7}" 13 8 8 6 8 5 1 18 5 11 00000418 10 00001790 0 286 "intl" "sDate" 13 8 9 6 9 7 "" 18 0 11 00000491 7 "/" 8 9 0 286 "intl" "sShortDate" 13 0 18 [X] 13 8 10 6 10 7 "" 18 0 11 00000591 7 "M/D/YY" 8 10 5 1 8 11 5 3 6 11 18 2 12 00000680 10 00000786 5 1 6 11 3 0 8 11 10 00000602 0 20 "{10}" "{11}" "{9}" 13 8 12 6 12 7 "M" 18 0 11 00000773 6 11 8 12 10 00000786 10 00000645 5 1 8 11 5 3 6 11 18 2 12 00000875 10 00000981 5 1 6 11 3 0 8 11 10 00000797 0 20 "{10}" "{11}" "{9}" 13 8 13 6 13 7 "D" 18 0 11 00000968 6 11 8 13 10 00000981 10 00000840 5 1 8 11 5 3 6 11 18 2 12 00001070 10 00001177 5 1 6 11 3 0 8 11 10 00000992 0 20 "{10}" "{11}" "{9}" 13 8 14 6 14 7 "YY" 18 0 11 00001164 6 11 8 14 10 00001177 10 00001035 5 1 8 11 5 2 6 11 18 2 12 00001266 10 00001328 5 1 6 11 3 0 8 11 10 00001188 0 1295 "{7}" "{11}" 13 8 15 6 11 6 15 23 4 10 00001231 5 1 8 11 0 1293 "{7}" 13 5 0 18 0 11 00001743 5 1 22 4 0 1292 "{7}" [X] 13 8 15 0 20 "{15}" "{12}" "{9}" 13 8 16 6 16 6 2 18 1 11 00001499 10 00001730 0 20 "{15}" "{13}" "{9}" 13 8 17 0 806 "{17}" 1 13 5 0 18 0 11 00001605 0 807 "{17}" 1 13 8 17 0 1041 &0 "{11}" "{17}" 5 2 22 4 0 1292 "{7}" [X] 13 8 15 0 1041 &1 "{11}" "{15}" 0 789 "{15}" 6 11 5 1 3 0 8 11 10 00001339 0 1291 "{7}" 0 789 "" 6 11 5 1 3 1 15 9 0 1291 "{7}" 0 789 "" 5 0 15 9 6 3 15 9 14 readorgdates 0 32 1 20 00001978 19 00001978 5 4 8 6 0 807 "{3}" 2 13 8 3 6 6 21 7 [X] 0 286 "OrgCal" "CalendarFile" "amipro2.ini" 13 8 8 0 259 "{8}" "r" 13 8 9 6 9 5 0 18 0 11 00000221 5 0 15 9 0 257 "{9}" 13 5 -1 18 0 11 00000288 0 260 "{9}" 5 0 15 9 0 260 "{9}" 0 1290 "{8}" "*Comma:1" 0 13 8 10 6 10 5 0 18 0 11 00000380 5 0 15 9 0 1294 "{10}" 13 8 11 6 11 5 1 18 5 11 00000448 10 00001978 0 286 "intl" "sDate" 13 8 12 6 12 7 "" 18 0 11 00000524 7 "/" 8 12 0 286 "intl" "sShortDate" 13 0 18 [X] 13 8 13 6 13 7 "" 18 0 11 00000624 7 "M/D/YY" 8 13 5 1 8 14 5 3 6 14 18 2 12 00000713 10 00000820 5 1 6 14 3 0 8 14 10 00000635 0 20 "{13}" "{14}" "{12}" 13 8 15 6 15 7 "M" 18 0 11 00000807 6 14 8 15 10 00000820 10 00000678 5 1 8 14 5 3 6 14 18 2 12 00000909 10 00001016 5 1 6 14 3 0 8 14 10 00000831 0 20 "{13}" "{14}" "{12}" 13 8 16 6 16 7 "D" 18 0 11 00001003 6 14 8 16 10 00001016 10 00000874 5 1 8 14 5 3 6 14 18 2 12 00001105 10 00001213 5 1 6 14 3 0 8 14 10 00001027 0 20 "{13}" "{14}" "{12}" 13 8 17 6 17 7 "YY" 18 0 11 00001200 6 14 8 17 10 00001213 10 00001070 5 1 8 14 6 6 6 14 18 2 12 00001302 10 00001365 5 1 6 14 3 0 8 14 10 00001224 0 1295 "{10}" "{14}" 13 8 18 6 14 6 18 23 7 10 00001267 5 1 8 14 0 1293 "{10}" 13 5 0 18 0 11 00001930 5 1 22 7 0 1292 "{10}" [X] 13 8 18 0 20 "{18}" "{17}" "{12}" 13 8 19 6 19 6 3 18 1 11 00001539 10 00001917 0 20 "{18}" "{15}" "{12}" 13 8 20 6 20 6 4 18 1 11 00001619 10 00001917 0 20 "{18}" "{16}" "{12}" 13 8 21 0 806 "{21}" 1 13 5 0 18 0 11 00001726 0 807 "{21}" 1 13 8 21 0 1041 &0 "{14}" "{21}" 5 2 22 7 0 1292 "{10}" [X] 13 8 18 0 1041 &2 "{14}" "{18}" 5 4 22 7 0 1292 "{10}" [X] 13 8 18 0 1041 &1 "{14}" "{18}" 0 789 "{18}" 6 14 5 1 3 0 8 14 10 00001376 0 1291 "{10}" 0 789 "" 6 14 5 1 3 1 15 9 0 1291 "{10}" 0 789 "" 5 0 15 9 6 5 15 9 14 helpme 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 9 14 datenum2datestr 0 32 1 5 01 6 0 18 0 11 00000091 7 "January" 15 9 10 00000761 5 02 6 0 18 0 11 00000155 7 "February" 15 9 10 00000761 5 03 6 0 18 0 11 00000216 7 "March" 15 9 10 00000761 5 04 6 0 18 0 11 00000277 7 "April" 15 9 10 00000761 5 05 6 0 18 0 11 00000336 7 "May" 15 9 10 00000761 5 06 6 0 18 0 11 00000396 7 "June" 15 9 10 00000761 5 07 6 0 18 0 11 00000456 7 "July" 15 9 10 00000761 5 08 6 0 18 0 11 00000518 7 "August" 15 9 10 00000761 5 09 6 0 18 0 11 00000583 7 "September" 15 9 10 00000761 5 10 6 0 18 0 11 00000646 7 "October" 15 9 10 00000761 5 11 6 0 18 0 11 00000710 7 "November" 15 9 10 00000761 5 12 6 0 18 0 11 00000761 7 "December" 15 9 6 1 15 9 14 datestr2datenum 0 32 1 7 "January" 6 0 18 0 11 00000091 5 01 15 9 10 00000761 7 "February" 6 0 18 0 11 00000155 5 02 15 9 10 00000761 7 "March" 6 0 18 0 11 00000216 5 03 15 9 10 00000761 7 "April" 6 0 18 0 11 00000277 5 04 15 9 10 00000761 7 "May" 6 0 18 0 11 00000336 5 05 15 9 10 00000761 7 "June" 6 0 18 0 11 00000396 5 06 15 9 10 00000761 7 "July" 6 0 18 0 11 00000456 5 07 15 9 10 00000761 7 "August" 6 0 18 0 11 00000518 5 08 15 9 10 00000761 7 "September" 6 0 18 0 11 00000583 5 09 15 9 10 00000761 7 "October" 6 0 18 0 11 00000646 5 10 15 9 10 00000761 7 "November" 6 0 18 0 11 00000710 5 11 15 9 10 00000761 7 "December" 6 0 18 0 11 00000761 5 12 15 9 6 1 15 9 14 AutoCal 0 32 1 0 1317 13 8 14 6 14 5 1 18 0 11 00000126 0 3 "Unable to run under NewWave." "Ami Pro" 5 0 15 9 2 210 1 2 201 1 0 802 13 8 15 0 772 13 0 770 [X] "c" 13 0 20 [X] 2. " " 13 0 31 9500 [X] 0 772 13 0 770 [X] "c" 13 0 20 [X] 3. " " 13 0 31 9501 [X] 0 31 9500 "January" 0 31 9500 "February" 0 31 9500 "March" 0 31 9500 "April" 0 31 9500 "May" 0 31 9500 "June" 0 31 9500 "July" 0 31 9500 "August" 0 31 9500 "September" 0 31 9500 "October" 0 31 9500 "November" 0 31 9500 "December" 0 31 9501 "1980" 0 31 9501 "1981" 0 31 9501 "1982" 0 31 9501 "1983" 0 31 9501 "1984" 0 31 9501 "1985" 0 31 9501 "1986" 0 31 9501 "1987" 0 31 9501 "1988" 0 31 9501 "1989" 0 31 9501 "1990" 0 31 9501 "1991" 0 31 9501 "1992" 0 31 9501 "1993" 0 31 9501 "1994" 0 31 9501 "1995" 0 31 9501 "1996" 0 31 9501 "1997" 0 31 9501 "1998" 0 31 9501 "1999" 0 286 "OrgCal" "DoAnniversary" "amipro2.ini" 13 0 31 20 [X] 0 41 0 "{15}!initdlg" 0 47 112 "{15}!helpme" 0 1288 13 8 16 0 286 "OrgCal" "Calendar" "{16}amipro2.ini" 13 8 17 6 17 7 "" 18 0 11 00001144 0 31 8000 "Calendar" 10 00001162 0 31 8000 "{17}" 0 26 "." "Heymon" 13 8 7 16 deletefont 6 7 5 0 18 0 11 00001246 5 0 15 9 0 284 "user,FindWindow,HCC" "TZ_PORG" 0 13 5 1 18 5 11 00001456 0 284 "user,GetActiveWindow,H" 13 0 284 "user,PostMessage,JHHHJ" [X] 273 1 0 0 3 "Lotus Organizer is not running." "Ami Pro" 5 0 15 9 0 27 8000 13 0 287 "OrgCal" "Calendar" [X] "{16}amipro2.ini" 0 27 9500 13 8 3 0 27 9501 13 8 4 0 27 20 13 0 287 "OrgCal" "DoAnniversary" [X] "amipro2.ini" 6 4 5 1980 18 5 6 4 5 1999 18 3 1 2 11 00001773 0 3 "Year must be in the range 1980 to 1999." 0 31 9500 "{3}" 0 31 9501 "{4}" 10 00000161 0 14 "{4}" 13 8 10 6 10 5 4 18 1 11 00002022 0 3 "Year must be in the format, YYYY (Ex. '1991')" 0 31 9500 "{3}" 0 31 9501 "{4}" 10 00000161 0 3 "Year must be in a range from 1980 to 1999." 0 31 9500 "{3}" 0 31 9501 "{4}" 10 00000161 0 17 "{3}" 13 8 5 6 5 7 "january" 18 0 11 00002191 7 "01/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "february" 18 0 11 00002370 7 "02/01/" 8 6 16 CheckLeap "{3}" "{4}" "{6}" 13 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "march" 18 0 11 00002516 7 "03/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "april" 18 0 11 00002662 7 "04/01/" 8 6 5 30 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "may" 18 0 11 00002806 7 "05/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "june" 18 0 11 00002951 7 "06/01/" 8 6 5 30 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "july" 18 0 11 00003096 7 "07/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "august" 18 0 11 00003243 7 "08/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "september" 18 0 11 00003393 7 "09/01/" 8 6 5 30 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "october" 18 0 11 00003541 7 "10/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "november" 18 0 11 00003690 7 "11/01/" 8 6 5 30 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 6 5 7 "december" 18 0 11 00003839 7 "12/01/" 8 6 5 31 8 9 16 BuildDate "{3}" "{4}" "{6}" 13 8 8 16 FillCalendar "{8}" "{9}" 10 00003939 0 3 "This is not a valid month. Please try again." 0 31 9500 "{3}" 0 31 9501 "{4}" 10 00000161 6 4 28 0 6 3 28 1 5 1 15 9 6 2 15 9 14 BuildDate 0 32 1 0 15 "{1}" 3 2 13 8 9 0 16 "{2}" "{9}" 13 8 4 7 "01/01/90" 8 8 0 769 "{4}" "{8}" 13 8 6 6 6 5 86400 4 0 5 631224000 3 0 8 5 0 770 "{5}" "f" 13 8 7 0 20 "{7}" 1 " " 13 8 3 0 6 "[16420]{1}[9]{0}[9]{1}" 6 3 15 9 14 FillCalendar 0 32 1 0 6 "[16420][40][40][39]" 5 1 8 3 6 0 7 "Sunday" 18 0 11 00000248 5 1 8 8 5 6 6 8 18 2 12 00000183 10 00000235 5 1 6 8 3 0 8 8 10 00000108 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00000150 10 00001348 6 0 7 "Monday" 18 0 11 00000450 0 6 "[39][39]" 5 1 8 8 5 5 6 8 18 2 12 00000385 10 00000437 5 1 6 8 3 0 8 8 10 00000310 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00000352 10 00001348 6 0 7 "Tuesday" 18 0 11 00000661 0 6 "[39][39][39][39]" 5 1 8 9 5 4 6 9 18 2 12 00000596 10 00000648 5 1 6 9 3 0 8 9 10 00000521 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00000563 10 00001348 6 0 7 "Wednesday" 18 0 11 00000886 0 6 "[39][39][39][39][39][39]" 5 1 8 10 5 3 6 10 18 2 12 00000821 10 00000873 5 1 6 10 3 0 8 10 10 00000743 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00000786 10 00001348 6 0 7 "Thursday" 18 0 11 00001118 0 6 "[39][39][39][39][39][39][39][39]" 5 1 8 11 5 2 6 11 18 2 12 00001053 10 00001105 5 1 6 11 3 0 8 11 10 00000975 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00001018 10 00001348 6 0 7 "Friday" 18 0 11 00001254 0 6 "[39][39][39][39][39][39][39][39][39][39]" 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 10 00001348 6 0 7 "Saturday" 18 0 11 00001348 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]" 0 6 "{3}[39][40][39]" 6 3 5 1 3 0 8 3 5 2 8 4 5 6 6 4 18 2 12 00001476 10 00002296 5 1 6 4 3 0 8 4 10 00001401 5 1 8 5 5 6 6 5 18 2 12 00001561 10 00001654 5 1 6 5 3 0 8 5 10 00001486 0 6 "{3}[39][39]" 6 3 5 1 3 0 8 3 6 3 6 1 18 3 11 00001641 6 2 15 9 10 00001528 6 4 5 7 18 0 6 3 6 1 18 5 1 1 11 00002167 0 6 "{3}" 6 3 5 1 3 0 8 3 0 6 "[39]" 5 1 8 6 5 7 6 6 18 2 12 00001832 10 00002154 5 1 6 6 3 0 8 6 10 00001757 10 00002053 5 1 8 7 5 2 6 7 18 2 12 00001930 10 00002038 5 1 6 7 3 0 8 7 10 00001855 5 16 8 12 5 0 8 13 5 64 5 2 3 0 8 14 2 632 1 "{12}" "{13}" "{14}" 1 64 0 6 "[16423]" 10 00001897 0 6 "[16421]" 0 6 "{3}" 6 3 5 1 3 0 8 3 0 6 "[16423]" 6 3 6 1 18 3 11 00002141 10 00002154 10 00001799 10 00002263 6 3 6 1 18 0 11 00002240 0 6 "{3}[16420]" 10 00002296 10 00002263 0 6 "{3}[39][40][39]" 6 3 5 1 3 0 8 3 10 00001443 6 2 15 9 14 CheckLeap 0 32 1 0 15 "{1}" 3 2 13 8 9 0 16 "{2}" "{9}" 13 8 4 7 "01/01/90" 8 8 0 769 "{4}" "{8}" 13 8 6 6 6 5 86400 4 0 5 631224000 3 0 8 5 6 5 5 2419200 3 0 8 10 0 770 "{10}" "a" 13 8 11 0 20 "{11}" 1 "/" 13 8 12 6 12 5 3 18 0 11 00000301 5 28 8 3 10 00000312 5 29 8 3 6 3 15 9 14 initdlg 5 1002 8 4 5 1008 6 4 18 2 12 00000103 10 00000140 5 1 6 4 3 0 8 4 10 00000025 16 setfont "{0}" "{4}" 10 00000070 6 3 15 9 DIALOG Heymon -2134376448 16 75 41 192 127 "" "AmiDialog" "Monthly Organizer Calendar" FONT 8 "Helv" 5 5 134 18 1002 1342177280 "static" "This feature creates a monthly calendar using appointment entries in Lotus Organizer." 0 5 72 27 10 1000 1342177280 "static" "&Month :" 0 94 72 23 10 1001 1342177280 "static" "&Year :" 0 36 71 52 40 9500 1344339979 "combobox" "" 0 121 71 52 40 9501 1344339979 "combobox" "" 0 5 96 168 12 8000 1350631552 "edit" "" 0 5 109 101 12 20 1342242819 "button" "&Include Anniversary entries" 0 147 5 40 14 1 1342242817 "button" "OK" 0 147 21 40 14 2 1342242816 "button" "Cancel" 0 5 24 6 10 1003 1342177280 "static" "1." 0 15 24 105 10 1004 1342177280 "static" "Load the Organizer." 0 5 34 6 10 1005 1342177280 "static" "2." 0 15 34 124 16 1006 1342177280 "static" "Open the Organizer file for which you want to create a calendar." 0 5 50 6 10 1007 1342177280 "static" "3." 0 15 51 163 16 1008 1342177280 "static" "Choose this 'Monthly Organizer Calendar' feature and choose a month and a year for the calendar." 0 5 87 168 9 1009 1342177280 "static" "Calendar Section Name:" 0 14 createdlgfont 0 802 13 8 1 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv" 13 8 2 6 2 5 1 18 3 11 00000204 0 271 "{1}hfont" 1 0 264 "{1}hfont" "{2}" 6 2 15 9 6 0 15 9 14 deletefont 0 802 13 8 1 0 271 "{1}hfont" 1 0 265 "{1}hfont" 13 8 2 6 2 5 1 18 3 11 00000160 0 284 "gdi,DeleteObject,HH" "{2}" 0 266 "{1}hfont" 6 0 15 9 14 setfont 0 802 13 8 3 0 271 "{3}hfont" 1 0 265 "{3}hfont" 13 8 4 6 4 5 1 18 5 11 00000162 16 createdlgfont 13 5 1 18 5 11 00000162 5 0 15 9 0 265 "{3}hfont" 13 8 4 0 44 "{0}" "{1}" 13 0 284 "user,SendMessage,JHHHJ" [X] 48 "{4}" 0 6 2 15 9 14 delfile 0 259 "{0}" "r" 13 8 2 6 2 5 0 18 1 11 00000161 0 263 "{2}" 0 2 0 262 "{2}" 13 8 3 0 260 "{2}" 6 3 5 0 18 1 11 00000161 0 779 "{0}" 6 1 15 9 14 FindAndReplace 5 0 8 5 5 0 0 808 "{5}" "{0}" "{1}" 13 0 805 &4 [X] 13 18 1 11 00000240 6 4 5 1 3 1 0 806 "{0}" [X] 13 8 6 0 14 "{0}" 13 6 4 3 1 0 807 "{0}" [X] 13 8 7 0 16 "{6}" "{2}" "{7}" 13 28 0 10 00000029 6 3 15 9 00069355