(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 5-May-2023 22:14:14" ("compiled on " {WMEDLEY}CALENDAR.;4) " 5-May-2023 21:46:52" brecompiled exprs%: PACKDATE in "FULL 5-May-2023 ..." dated " 5-May-2023 21:46:57") (FILECREATED " 5-May-2023 22:14:14" {WMEDLEY}CALENDAR.;4 173398 :EDIT-BY rmk :CHANGES-TO ( FNS PACKDATE CALTEDITSTRING) :PREVIOUS-DATE " 1-Feb-2022 17:14:32" {WMEDLEY}CALENDAR.;2) CALADDEVENTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CALMONLOCK F 1 INITMSG F 2 M F 3 MSGSTREAM F 4 D F 5 YR) Phg QRTU c(20 CALTEDITSTRING 11 OBTAIN.MONITORLOCK) (6 WITH.MONITOR) () CALADDEVENT :D8 (L (4 BROWSER 3 W) P 13 SI::*RESETFORMS* P 12 SI::*LOCKED-MONITOR* I 6 MSGSTREAM I 5 INITMSG I 2 YR I 1 D I 0 M F 14 CALMONLOCK F 15 CALDEFAULTALERTDELTA F 16 CALNEEDSUPDATE F 17 CALALERTFLG F 18 CALUPDATEONSHRINKFLG F 19 CALHASH F 20 CALREMSLOADED) z W FE g $F&` o` W hg XA4dll o ZbJkbJbl o H &` o` W hl o H l _HOl HO k \ddo h\ _@AB [l o H &` o` W hl o H l _HOl HO k ddo h ^O+` o` @ABCDH in 7o -L+K ` o` OjNjN_WjNjOW l o H &` o` W hl o H l_HOl HO k ddo io hW"]W&g jW ic(W Hll o H k YCdg gCgh Cg AA__OO,IFhONM@OBD CC@OB Ok_ic W$h(886 CALUPDATEINIT 866 SHOWREMSINDAY 853 CALCREATEREM 816 GETWINDOWUSERPROP 804 PUTWINDOWPROP 784 GETWINDOWUSERPROP 771 SUBSTRING 764 STRPOS 758 CONCAT 748 CHARACTER 738 RELEASE.MONITORLOCK 721 HARRAYPROP 703 CL::SIMPLE-STRING-EQUAL 689 CL::SIMPLE-STRING-EQUAL 677 SUBSTRING 670 STRPOS 662 CHARACTER 647 STRPOS 641 CONCAT 631 CHARACTER 622 RELEASE.MONITORLOCK 614 PRIN1 598 TERPRI 586 STRPOS 580 CONCAT 570 CHARACTER 562 TPLUS 530 PRIN1 514 TERPRI 501 IDATE 496 IDATE 485 SHOULDNT 468 CALADDEVENT 455 PRIN1 439 TERPRI 424 NEWPARSETIME 416 CL::SIMPLE-STRING-EQUAL 404 SUBSTRING 397 STRPOS 389 CHARACTER 374 STRPOS 368 CONCAT 358 CHARACTER 349 RELEASE.MONITORLOCK 341 PRIN1 325 TERPRI 313 STRPOS 307 CONCAT 297 CHARACTER 289 PACKDATE 279 NEWPARSETIME 270 CL::SIMPLE-STRING-EQUAL 257 SUBSTRING 250 STRPOS 242 CHARACTER 227 STRPOS 221 CONCAT 211 CHARACTER 202 RELEASE.MONITORLOCK 194 PRIN1 178 TERPRI 166 STRPOS 160 CONCAT 150 CHARACTER 123 \UNPACKDATE 118 IDATE 113 CONCAT 103 SUBSTRING 89 COERCETEXTOBJ 77 RELEASE.MONITORLOCK 69 PRIN1 53 TERPRI 35 SI::MONITOR-UNWIND 30 \MVLIST 25 CALADDEVENTA0001 9 OBTAIN.MONITORLOCK) (811 GROUPEND 798 GROUPEND 789 % 779 GROUPEND 716 NUMKEYS 609 PROMPTWINDOW 593 PROMPTWINDOW 525 PROMPTWINDOW 509 PROMPTWINDOW 450 PROMPTWINDOW 434 PROMPTWINDOW 336 PROMPTWINDOW 320 PROMPTWINDOW 189 PROMPTWINDOW 173 PROMPTWINDOW 84 STRINGP 64 PROMPTWINDOW 48 PROMPTWINDOW 20 SI::MONITOR-UNWIND) ( 753 "Event time" 698 "No" 684 "Yes" 636 "Alert: " 604 "Error parsing alert option: reminder aborted" 575 "Alert: " 520 "Warning: you have added a reminder with a time in the past." 480 "Illegal time: must be <= 23:59" 445 "Sorry - I couldn't parse that time." 411 ">>Time<<" 363 "Alert time: " 331 "Error parsing alert time: reminder aborted" 302 "Alert time: " 265 ">>Time<<" 216 "Event time: " 184 "Error parsing event time: reminder aborted" 155 "Event time: " 108 " 12:00:00" 59 "Reminder aborted") CALCREATEREM :D8 (L (7 BROWSER 6 YR 5 D 4 M 3 ALERTFLG 2 ALERTTIME 1 REMTIME 0 MSG) F 3 CALREMINDERS F 4 CALDIRTYREMLST F 5 CALHASH) 0ADEF Y`ZjBB!BjBDEF AjI hIJhXJH@ G'AjJCGI 9S0HhSi )J kGg GJ HhcJdTTcDEF DEF U Jh g U h(216 PUTHASH 210 SORT 200 \NCONC2 192 GETHASH 186 CALMAKEKEY 178 CALMAKEKEY 151 TB.SELECT.ITEM 140 TB.NUMBER.OF.ITEMS 126 TB.INSERT.ITEM 118 MERGE 102 IDATE 97 IDATE 77 \APPEND2 55 SETUPTIMER.DATE 44 SETUPTIMER.DATE 39 PACKDATE 11 PACKDATE) (205 REMINDERTIMELT 135 SELECTED 70 TABLEITEM 17 |TABLEITEMTYPE#|) () CALDELETEREM :D8 (L (1 ITEM 0 BROWSER) F 11 CALREMINDERS F 12 CALDIRTYREMLST F 13 CALHASH F 14 CALDAYBROWSERS) D  @@A AW cAd g(Ad gA[d\d XL YL Z@VL GWh__h]9_IO "HO JO OiOMMA  Kd $L W_>One line<<" (CHARACTER 13) "Event time: >>Time<<" (CHARACTER 13) "Alert time: >>Time<<" (CHARACTER 9) "Alert: >>Yes No<<" (CHARACTER 13) "Duration: >>hh:mm<<" (CHARACTER 13) "Message: >>Any text<<") 302 ((DATEFORMAT NO.TIME)) 293 (0 0 0) 267 "Date: " 209 ", " 203 " " 187 "Calendar message editor for " 60 (Save Abort) 38 "" 14 "INTERLISP" 4 "INTERLISP") CALUPDATEFILEA0001A0002 :D8 (L (1 KEY 0 VLIST) F 5 FSTREAM F 6 RDATA F 7 R# F 8 WRITTENREMS F 9 REMLIST F 10 CALDIRTYREMLST F 11 REMSTREAM) W@AH I c\dW dW c VAVhU L c +L g g U U gU Wkcl jW` o` LJKhZYHX.K&Z(201 PRIN1 185 PRIN1 169 REMAINDER 155 PRINT 143 TERPRI 136 COPYCHARS 130 OPENSTREAM 120 COERCETEXTOBJ 109 LAST 94 STREAMP 86 LAST 72 PRINT 38 MEMBER 29 MEMBER 16 \APPEND2) (196 PROMPTWINDOW 180 PROMPTWINDOW 149 *start* 125 INPUT 115 FILE 102 TABLEITEM 79 TABLEITEM 47 TABLEITEM) ( 191 ",") CALUPDATEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 CALFILELST F 2 FSTREAM F 3 R# F 4 CALMONLOCK F 5 WRITTENREMS F 6 REMLIST F 7 CALREMSLOADED F 8 CALENDARVERSION F 9 CALHASH F 10 CALDIRTYREMLST) Thg Pgg c ` o` P` o` PdQQcPQ g c gWhR Wg gR R hcPQ gU icSl jS` o` o` (243 PRIN1 227 PRIN1 211 PRIN1 196 REMAINDER 185 PUTPROP 173 MEMBER 163 CLOSEF 157 PRINT 146 MAPHASH 134 PRINT 116 GETPROP 105 MEMBER 88 PRIN1 72 PRIN1 60 PRIN1 44 TERPRI 34 OUTPUT 27 OPENSTREAM 11 OBTAIN.MONITORLOCK) (238 PROMPTWINDOW 222 PROMPTWINDOW 206 PROMPTWINDOW 179 CONTENTS 151 STOP 141 CALUPDATEFILEA0001A0002 123 $$CALREMINDERS 111 CONTENTS 83 PROMPTWINDOW 67 PROMPTWINDOW 55 PROMPTWINDOW 39 PROMPTWINDOW 22 OLD/NEW 17 BOTH 6 WITH.MONITOR) ( 233 " done." 217 "," 78 "..." 50 "Updating reminder file ") CALUPDATEFILE :D8 (P 9 SI::*RESETFORMS* P 8 SI::*LOCKED-MONITOR* P 7 WRITTENREMS P 6 REMLIST P 5 RDATA P 4 REMSTREAM P 3 FSTREAM P 2 R# I 0 FILE F 10 CALMONLOCK) E o o jSW  g $W h(65 RELEASE.MONITORLOCK 53 SI::MONITOR-UNWIND 48 \MVLIST 43 CALUPDATEFILEA0001 30 OBTAIN.MONITORLOCK 19 CL:FIND-PACKAGE 9 FIND-READTABLE) (38 SI::MONITOR-UNWIND) ( 14 "INTERLISP" 4 "OLD-INTERLISP-T") CALUPDATEINIT :D8 (F 3 CALFILELST F 4 CALDEFAULTHOST&DIR) 0`Sggh dIdodg dgjdndhdJ Xdddg` o` hgzohd` X` o` hgH 3gHgTohd`hdl  c H XddS g BHd 8Hdoo Z` o` h 5oHo ` o` hH h(408 CALUPDATEFILE 400 PRIN1 384 TERPRI 372 MOUSECONFIRM 367 CONCAT 349 INFILEP 342 PRIN1 326 TERPRI 313 MOUSECONFIRM 308 CONCAT 288 INFILEP 278 GETPROP 267 MEMBER 258 MKATOM 251 PACKFILENAME 244 U-CASE 239 PROMPTFORWORD 201 MEMBER 196 UNPACKFILENAME 183 PRIN1 167 TERPRI 154 U-CASE 149 PROMPTFORWORD 122 PRIN1 106 TERPRI 82 MENU 27 \APPEND2) (395 PROMPTWINDOW 379 PROMPTWINDOW 337 PROMPTWINDOW 321 PROMPTWINDOW 273 CONTENTS 229 PROMPTWINDOW 214 DIRECTORY 208 NAME 190 HOST 178 PROMPTWINDOW 162 PROMPTWINDOW 144 PROMPTWINDOW 129 Other 117 PROMPTWINDOW 101 PROMPTWINDOW 92 Abort 57 DEFAULTMENUHELDFN 48 CLRPROMPT 19 Abort 14 Other 7 |MENUTYPE#|) ( 390 "File not updated." 362 "?" 356 "Should I create " 332 "File not updated." 303 " Should I overwrite it?" 298 " already exists but hasn't been loaded into this Calendar yet." 222 "Please enter a host & directory for the reminders file:" 173 "No file given - update aborted." 137 "File name:" 112 "Update aborted." 39 "File to update:") CALYEARICONFN :D8 (L (1 ICON 0 W) F 0 CALYEARICONMAP F 1 CALYEARICON F 2 LITTLEFONT) ;A"Phohcd@g R @g A(55 ICONW.TITLE 50 MONTHNAME 45 GETWINDOWUSERPROP 33 TITLEDICONW 27 GETWINDOWUSERPROP) (40 YEAR# 22 YEAR#) ( 9 (6 26 50 9)) CALYEARINRANGE :D8 (L (0 YR)) @n4@@nNIL NIL () CIRCLETODAY :D8 (L (0 CALMONTHWINDOW) F 4 CALCIRCLEDAY F 5 CALHILITETODAY F 6 CALCIRCLEMONTH) @g o"UhT @g  @g  @i TH g@ @gh ThV ZH IZOUdgKJKJJkh@ .g'hjd@KKH H ghn  cH IֺTH UdgKJKJJkh@ 4g-hjd@KKH lH lghn g@ @gg  c (383 LISPDATEMONTH 378 DATE 372 PUTWINDOWPROP 355 DSPOPERATION 343 BKBITBLT 325 MAXMENUITEMHEIGHT 316 MAXMENUITEMWIDTH 291 DRAWCIRCLE 260 MDMENUITEMREGION 250 MAXMENUITEMWIDTH 241 LISPDATEDAY 236 DATE 230 BKBITBLT 215 MAXMENUITEMHEIGHT 209 MAXMENUITEMWIDTH 184 DRAWCIRCLE 149 MAXMENUITEMWIDTH 140 LISPDATEMONTH 135 DATE 125 PUTWINDOWPROP 112 DSPOPERATION 100 MDMENUITEMREGION 92 TOTOPW 82 LISPDATEYEAR 77 DATE 72 GETWINDOWUSERPROP 58 LISPDATEMONTH 53 DATE 48 GETWINDOWUSERPROP 34 LISPDATEDAY 29 DATE 10 GETWINDOWUSERPROP) (367 CIRCLETODAY 362 TOTOPFN 349 REPLACE 333 TEXTURE 298 BOX 268 CIRCLE 220 TEXTURE 191 BOX 161 CIRCLE 119 TOTOPFN 106 INVERT 67 YEAR# 43 MONTH# 5 MENU) ( 16 0.62) CLEARDAY :D8 (L (2 CALMONTHMENU 1 CALMONTHWINDOW 0 D) F 1 CALCIRCLEDAY) @B @QhcA Ag ldHhddAHHAg oHAg okggn @Q hcA h(125 CIRCLETODAY 109 BKBITBLT 82 GETWINDOWPROP 60 GETWINDOWPROP 35 GETWINDOWPROP 23 CIRCLETODAY 6 MDMENUITEMREGION) (100 ERASE 95 TEXTURE 77 HEIGHT 55 HEIGHT 30 HEIGHT) ( 87 0.0868 65 0.053) CLOSEMONTH :D8 (L (0 W) F 4 CALMONTHLST F 5 CALUPDATEONSHRINKFLG F 6 CALNEEDSUPDATE F 7 CALDAYBROWSERS) i@g @g "UgVo @T cWZhHK IK K J(98 CLOSEW 93 TB.WINDOW 82 TB.USERDATA 71 TB.USERDATA 52 REMOVE 44 ADD.PROCESS 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (30 Never 16 YEAR# 5 MONTH#) ( 39 (CALUPDATEINIT)) DAYABBR :D8 (L (1 SCALE 0 D)) 'oAo@k o@k (35 NTH 20 NTH) NIL ( 27 (S M T W T F S % ) 12 (Sun Mon Tue Wed Thu Fri Sat % ) 4 0.2) DAYNAME :D8 (L (0 D)) o@k (12 NTH) NIL ( 4 (Sunday Monday Tuesday Wednesday Thursday Friday Saturday % )) DAYOF :D8 (L (2 Y 1 D 0 M)) Fo@lBBkjo@dlkl jAooddjlojNIL NIL ( 64 0.5 50 7.0 44 621049 22 30.6 4 365.25) DAYPLUS :D8 (L (3 N 2 YR 1 D 0 M)) AC@B ACC@B A(23 DAYSIN 9 DAYSIN) NIL () DAYSIN :D8 (L (1 Y 0 M)) 0@lAdljldjAnjllo@ (44 NTH) NIL ( 38 (31 NIL 31 30 31 30 31 31 30 31 30 31)) DERIVENEWDATE :D8 (L (1 ITEMKEY 0 DSTRING)) `@ X@ Y@ ZAj"HIJk HIJk HLJkԺK7l AHk l A$HIJl HIJl KHLJkԺL@ o HIJ ]  yM(155 IDATE 150 DATE 145 IDATE 139 PACKDATE 131 GDATE 121 IDATE 102 MONTHOFDAYPLUS 91 DAYPLUS 72 MONTHPLUS 47 MONTHOFDAYPLUS 37 DAYPLUS 22 LISPDATEYEAR 15 LISPDATEDAY 8 LISPDATEMONTH) NIL ( 126 (DATEFORMAT NO.DATE)) DOREMINDER :D8 (L (0 REM) F 10 CALREMINDERS F 11 CALTUNE F 12 CALFLASHTYPE F 13 CALFLASHTIMES F 14 CALKEEPEXPIREDREMSFLG F 15 CALREMDISPLAYREGION)  o o  o jWc@l  l Y@ZId g l o K ml ؼIL K LkIH ]MM o oWo W WghW Ikj Ih IWo Wg IW ho @l ^@l  l _d8dl&2JO _ ONh_WOhWi OhcWh@ h(403 CALDELETEREM 385 MERGE 360 SETUPTIMER.DATE 353 DERIVENEWDATE 333 NTH 326 GETREMDEF 320 NTH 310 NTH 301 TEDIT 289 FLASHWINDOW 271 CREATEW 257 TEDIT.SHOWSEL 249 TEDIT.SETSEL 240 FLASHWINDOW 222 PLAYTUNE 214 CLOSEF 209 CREATE-PROCESS-STREAM 204 CONCAT 185 CL::SIMPLE-STRING-EQUAL 175 CL:MACHINE-TYPE 167 EVAL 156 READ 144 NCHARS 137 SETFILEPTR 122 STRPOS 116 CONCAT 106 CHARACTER 98 COERCETEXTOBJ 85 EVAL 70 NTH 63 GETREMDEF 57 NTH 38 IDATE 28 IDATE 19 CL:FIND-PACKAGE 9 FIND-READTABLE) (278 WINDOW 230 SCREEN 93 STRINGP) ( 296 (QUITFN T LEAVETTY T SEL DON'T) 266 "Reminder Display Window" 199 "> /dev/audio" 192 "cat " 180 "sparc" 111 "Message: " 33 "31-Dec-86 00:00" 14 "INTERLISP" 4 "OLD-INTERLISP-T") FMNWAYITEM :D8 (L (2 LABEL 1 ID 0 W)) ]@g HhYIoI A%IIoI BIiHX(71 ERROR 40 ERROR 10 GETWINDOWUSERPROP) (76 FREEMENUITEM 57 FREEMENUITEM 45 FREEMENUITEM 26 FREEMENUITEM 5 FM.ITEMS) ( 65 "Arg must be FreeMenuItem" 34 "Arg must be FreeMenuItem") GETREMDEF :D8 (L (0 ITEM)) '@d g@(13 TYPENAME) (34 TABLEITEM 27 TABLEITEM 18 TABLEITEM 6 TABLEITEM) () INVERTGROUP :D8 (L (7 CALMONTHMENU 6 SHADE 5 YR2 4 D2 3 M2 2 YR1 1 D1 0 M1)) %DdAIHhIG GF IkY(28 SHADEITEM 20 MENUITEM) NIL () LISPDATEDAY :D8 (L (0 LD)) !@dkd o lkl (30 SUBATOM 18 STREQUAL 8 SUBSTRING) NIL ( 13 " ") LISPDATEMONTH :D8 (L (0 LD)) @ll (14 MONTHNUM 9 SUBATOM) NIL () LISPDATEYEAR :D8 (L (0 LD)) ,@dl d gnl@ll ll (41 SUBATOM 30 SUBATOM 9 SUBATOM) (14 % ) () MDMENUITEMREGION :D8 (L (2 SCALE 1 MNAME 0 ITEM)) JAHB10IA @IHXdBֺKJh\J&LIA (71 MENUITEMREGION 27 MENUITEMREGION) (5 MENU) () MENUITEM :D8 (L (1 MNAME 0 ITEM)) #AHh@IIiHXNIL (5 MENU) () MENUREGIONITEM :D8 (L (1 MNAME 0 W)) ;AHhYA @ @ IiHX(46 INSIDEP 41 LASTMOUSEY 35 LASTMOUSEX 29 MENUITEMREGION 4 GETMOUSESTATE) (10 MENU) () MONTHABBR :D8 (L (0 M)) o@ (10 NTH) NIL ( 4 (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)) MONTHNAME :D8 (L (0 M)) o@ (10 NTH) NIL ( 4 (January February March April May June July August September October November December)) MONTHNUM :D8 (L (0 MNAME)) o@'NIL NIL ( 4 (Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12)) MONTHOFDAYPLUS :D8 (L (3 N 2 YR 1 D 0 M)) @dABC A@k (20 MONTHPLUS 9 DAYPLUS) NIL () MONTHPLUS :D8 (L (1 N 0 M)) #@dAj@Al dl Ajk@Al NIL NIL () MONTHYEARPLUS :D8 (L (2 N 1 YR 0 M)) A@Bl @BjmjNIL NIL () NEWPARSETIME :D8 (L (0 TSTRING) F 7 CALDAYSTART) @ o ao@k 2o@k $o@k Hd3jHHdlldրHlnֺh[\]@jI3o@k o@k jIInIo` ho@k o@k 2jIIdnnInIdn `񲷿o` hInIdn 7񲗿n `Io` hiWjWWn 7+o` W` ` hI]W[ddnJnJ MnJ ^KdnNLNMNLNM^N(379 IMOD 367 IMOD 340 TERPRI 329 PRIN1 316 PRIN1 280 PRIN1 241 PRIN1 193 STRPOS 180 STRPOS 166 PRIN1 137 STRPOS 124 STRPOS 63 STRPOS 49 STRPOS 35 STRPOS 20 PACK 15 LDIFFERENCE 5 UNPACK) (335 PROMPTWINDOW 324 PROMPTWINDOW 311 PROMPTWINDOW 275 PROMPTWINDOW 236 PROMPTWINDOW 161 PROMPTWINDOW) ( 306 "- invalid variable CALDAYSTART " 270 " - time greater than 23:59 doesn't make sense" 231 " - time greater than 23:59 doesn't make sense" 186 "p" 173 "P" 156 " - time greater than 12:00 plus am doesn't make sense" 130 "a" 117 "A" 56 "-" 42 ":" 28 "." 10 (%. %: - % A P M a p m)) NEXTMDISPLAYREGION :D8 (L (1 H 0 W) F 5 CALMONTHLST F 6 CALMONTHDEFAULTREGION) PUPVXUwH[UOH\HYHZUKI@`xVKI@`LdJA`sVs g Ug g Ug jUKI@`{KIkرuJk؀L@Ah(159 \INSUREWINDOW 154 GETWINDOWUSERPROP 138 GETWINDOWUSERPROP 123 \INSUREWINDOW 118 GETWINDOWUSERPROP 104 GETWINDOWUSERPROP 89 \INSUREWINDOW) (177 SCREENWIDTH 149 ICONFOR 133 ICONFOR 113 ICONFOR 99 ICONFOR 74 SCREENHEIGHT 58 SCREENWIDTH 43 SCREENWIDTH) () PACKDATE :D8 (I 3 YR I 2 D I 1 M I 0 MTIME) 7l BBoB oA oCo@djh (52 CONCAT 28 MONTHABBR 17 CONCAT) NIL ( 39 " " 33 "-" 22 "-" 11 " ") PARSETIME :D8 (L (0 TSTRING)) @jd o 3h@ o @d 3@ l@ 3g@ ldko@k no@k nj(137 STRPOS 119 STRPOS 101 MEMBER 96 UNPACK 81 MKATOM 70 MKATOM 60 MKATOM 53 PACK 48 LDIFFERENCE 38 UNPACK 25 PACK 20 LDIFFERENCE 10 UNPACK) (90 %:) ( 130 "p" 112 "P" 43 (%. %: - % A P M a p m) 15 (%. %: - % A P M a p m)) PICKFONTSIZE :D8 (L (1 H 0 W)) FAd@@Hdl(ll2l HdlO@dO>O O*O$ODk_Dl_6jO6O6 O O@_$O$`O@l_:_8O8l O:_$O@kl_ldKkj_6dO6ldKkj_8dO8dgdg dgjdndh_:dO: _Bd O@OB O>_MO"d Mgg Mgg Mgh Mgg gO$O& _(N Mg O,O( _OF'OFjOFOF rjOFKOBOBKcOBO ON oMg oOD ODMg o N OBO$_F_BODk_DrlMg IJkOM oMg oWdWbM OON oMg oo%oMg oooN WbM lLIJkMON OOho""O@_BO>4gO$O& M hcpM MdWf_DoLo!IOB IJOB ODOkM fODON IOB oIOB _*oKohoKoO*lO*j N O@_@O>_>WfcfKldWj i I(2262 CURSOR 2255 WINDOWTITLEFONT 2221 PRIN1 2215 SUBSTRING 2168 STRPOSL 2163 MONTHNAME 2158 MONTHPLUS 2145 MONTHNAME 2140 MONTHPLUS 2131 MOVETO 2119 SHOWMONTHSMALL 2107 MONTHYEARPLUS 2098 MONTHPLUS 2058 CIRCLETODAY 2047 DSPFONT 2041 FONTCREATE 2036 PICKFONTSIZE 1990 SHOWREMSINMONTH 1971 DSPFONT 1962 PRIN1 1937 GETWINDOWPROP 1906 GETWINDOWPROP 1889 MOVETO 1878 DSPFONT 1859 GETWINDOWPROP 1842 SHOWMOON 1828 GETWINDOWPROP 1794 PRIN1 1788 DAYABBR 1777 GETWINDOWPROP 1762 DAYNAME 1747 GETWINDOWPROP 1730 MOVETO 1700 \FZEROP 1649 DSPFONT 1628 GETWINDOWPROP 1600 GETWINDOWPROP 1583 PRIN3 1574 MOVETO 1524 STRINGWIDTH 1515 GETWINDOWPROP 1503 DSPFONT 1495 FONTCREATE 1490 PICKFONTSIZE 1475 PUTWINDOWPROP 1458 PUTWINDOWPROP 1445 PUTWINDOWPROP 1428 PUTWINDOWPROP 1411 ADDMENU 1153 FONTCREATE 1148 PICKFONTSIZE 1119 \APPEND2 1114 \APPEND2 1109 \APPEND2 1104 \APPEND2 1099 \APPEND2 1094 \APPEND2 971 DAYSIN 964 DAYOF 936 DAYSIN 868 DAYOF 842 PUTWINDOWPROP 829 CLEARW 822 PUTWINDOWPROP 782 STRINGWIDTH 775 \INSUREWINDOW 767 GETWINDOWPROP 643 GETWINDOWPROP 631 GETWINDOWPROP 615 PUTWINDOWPROP 602 PUTWINDOWPROP 586 GETWINDOWUSERPROP 565 GETWINDOWPROP 547 GETWINDOWPROP 535 DELETEMENU 522 GETWINDOWUSERPROP 500 STRINGWIDTH 484 DECODE/WINDOW/OR/DISPLAYSTREAM 474 WINDOWTITLEFONT 464 WINDOWTITLEFONT 453 PUTWINDOWPROP 440 PUTWINDOWPROP 427 PUTWINDOWPROP 413 PUTWINDOWPROP 396 PUTWINDOWPROP 391 FIND.PROCESS 374 PUTWINDOWPROP 357 PUTWINDOWPROP 340 PUTWINDOWPROP 323 PUTWINDOWPROP 306 PUTWINDOWPROP 289 PUTWINDOWPROP 273 CREATEW 264 NEXTMDISPLAYREGION 259 HEIGHTIFWINDOW 252 WIDTHIFWINDOW 98 WINDOWP 91 SETCURSOR 78 CALYEARINRANGE 69 CONCAT 55 CONCAT 50 MKSTRING 39 MKSTRING 34 MONTHNAME 10 LAST) (2027 TIMESROMAN 1932 WIDTH 1901 WIDTH 1854 HEIGHT 1823 WIDTH 1772 WIDTH 1742 WIDTH 1623 WIDTH 1595 WIDTH 1557 FONTDESCRIPTOR 1510 WIDTH 1481 TIMESROMAN 1470 CALMONTHBEF 1465 BUTTONEVENTFN 1452 SCROLLFN 1440 REPAINTMONTH 1435 REPAINTFN 1423 REPAINTMONTH 1418 RESHAPEFN 1390 MENU 1374 MENU 1343 DEFAULTMENUHELDFN 1334 CLRPROMPT 1325 SHOWDAY 1223 % 1139 TIMESROMAN 1081 NEXT 1069 % 1056 PREV 1044 % 1031 OPTIONS 1019 % 1006 OUCH 994 % 884 % 859 |MENUTYPE#| 836 GROUPEND 762 WIDTH 638 HEIGHT 626 WIDTH 609 YEAR# 596 MONTH# 581 MONTH# 560 HEIGHT 542 WIDTH 517 MENU 491 TITLE 447 YEAR# 434 MONTH# 420 BORDER 403 MINSIZE 386 BACKGROUND 381 PROCESS 369 CALMONTHRBF 364 RIGHTBUTTONFN 352 CIRCLETODAY 347 TOTOPFN 335 CALMONTHICONFN 330 ICONFN 318 SHRINKMONTH 313 SHRINKFN 301 CLOSEMONTH 296 CLOSEFN 284 PRINTMONTH 279 HARDCOPYFN 86 WAITINGCURSOR) ( 2198 868.0 2192 0.2 2181 868.0 2175 0.6 2150 (J F M A S O N D) 2086 700.0 2080 0.9 2003 (-1 1) 1956 "O" 1950 "Opt" 1942 868.0 1926 0.2 1919 "Options" 1911 868.0 1895 0.6 1864 700.0 1848 0.6 1782 868.0 1752 868.0 1736 0.7 1633 700.0 1617 0.4 1605 700.0 1589 0.6 1229 "Does nothing." 1179 "Left opens a day browser; middle adds a reminder" 1075 "Left shows next month in this window; middle creates a new window." 1050 "Left shows last month in this window; middle creates a new window." 1025 "Opens a menu for setting options." 1000 " " 890 "Does nothing." 807 1.045 750 1.165 738 23.0 726 1.39 714 15.0 702 1.66 690 36.1667 678 1.096 650 7.15 408 (77 . 77) 233 1.045 221 3.472 209 1.165 197 23.0 185 1.39 173 12.1 161 1.66 149 36.1667 137 1.096 111 7.15 62 " " 44 " ") SHOWMONTHSMALL :D8 (L (5 WINDOW 4 SCALE 3 YLOC 2 XLOC 1 YR 0 M)) jBCl0DIDlJDl E E gnEg @ @ E @kA k2ML#g_OOh_Mk]O&_N@A k2MdLN M_OOh_Mk]O&_dIJE KE IDlԹHkXljBJDmԺh(201 PRIN1 193 MOVETO 152 \APPEND2 135 DAYSIN 84 DAYOF 76 PRIN1 70 MONTHABBR 63 MONTHNAME 55 GETWINDOWPROP 34 IMAGESTREAMTYPE 28 MOVETO) (98 % 50 WIDTH 39 DISPLAY) () SHOWMOON :D8 (L (4 STREAM 3 CALMONTHMENU 2 SCALE 1 YR 0 M)) CD goo@A bIHhD gID@JA nnXnl@JA n ^n,n DK ho nXDg Dg MdLLK 5K Dg Dg _OdNNo hdDJCB Dg oJCB Dg ol"dgg IH(311 BKBITBLT 285 GETWINDOWPROP 272 MDMENUITEMREGION 257 GETWINDOWPROP 245 MDMENUITEMREGION 234 SCALEBITMAP 211 GETWINDOWPROP 200 GETWINDOWPROP 189 EVAL 181 EVAL 164 GETWINDOWPROP 153 GETWINDOWPROP 136 SHOWBITMAP.IP 125 EVAL 117 \MOVETO.IP 99 WEEKOF 77 DAYOF 60 IMAGESTREAMTYPE 36 POMDAYS 17 VIDEOCOLOR 5 IMAGESTREAMTYPE) (305 INVERT 300 INPUT 280 HEIGHT 252 WIDTH 206 HEIGHT 195 WIDTH 159 HEIGHT 148 WIDTH 65 INTERPRESS 10 DISPLAY) ( 290 350.0 262 16.6 228 900.0 131 0.5 29 (FMMAP LQMAP NMMAP FQMAP) 23 (NMMAP FQMAP FMMAP LQMAP)) SHOWREMSINDAY :D8 (L (3 YR 2 D 1 M 0 CALMONTHWINDOW) F 7 LITTLEFONT F 8 DAYREGION) @ @g @g ojB@I W@ HBI hH lH BI cdH JABC "kL(jd@g @g H hNKBI H hMH LNk԰(188 CALPRINTREM 179 DSPXPOSITION 172 MDMENUITEMREGION 156 DSPCLIPPINGREGION 150 CREATEREGION 145 GETWINDOWPROP 134 GETWINDOWPROP 111 REMINDERSOF 102 DSPCLIPPINGREGION 93 MDMENUITEMREGION 86 DSPYPOSITION 77 DSPYPOSITION 70 MOVETOUPPERLEFT 65 MDMENUITEMREGION 57 DSPFONT 49 CLEARDAY 30 GETWINDOWPROP 18 GETWINDOWUSERPROP 5 \INSUREWINDOW) (140 HEIGHT 129 WIDTH 25 HEIGHT 13 MENU) ( 35 0.01) SHOWREMSINMONTH :D8 (L (5 STREAM 4 CALMONTHMENU 3 CALMONTHWINDOW 2 SCALE 1 YR 0 M))  E g1@A YHCg oj؁l[@A I"k_M+H&jdCg Cg E hOLNpHODB 2@OA nnXl@OA n ^n,nn ^hEJ hE lE JE KN" k_O MOkԱP_OOJE hOE O_Ok԰(268 CALPRINTREM 258 DSPXPOSITION 213 DSPCLIPPINGREGION 205 DSPYPOSITION 196 DSPYPOSITION 188 MOVETOUPPERLEFT 160 WEEKOF 141 DAYOF 130 MDMENUITEMREGION 106 DSPCLIPPINGREGION 100 CREATEREGION 95 GETWINDOWPROP 84 GETWINDOWPROP 55 DAYSIN 36 GETWINDOWPROP 21 REMSINMONTH 5 IMAGESTREAMTYPE) (90 HEIGHT 79 WIDTH 31 HEIGHT 10 DISPLAY) ( 41 0.01) SHOWYEAR :D8 (L (3 CALYEARWINDOW 2 BUTTON 1 MNAME 0 ITEM) F 16 CALENDARVERSION F 17 CALYEARICON F 18 LITTLEFONT F 19 CALMAINMENU F 20 DEFAULTFONT) `@@  Hdg*` ohd`hdl  X C+Ik-nlnDhddo ZJnlnDh woW oH bhW oH CgW" Cgg CgH W&Cgg h`l k2OO.gOHh_OOh__Ok_O&_OdLdldgdg dgjdndhdM ^d lFlN lvCo Cgg Cgg Cgh W(C ln&K HK W$C lj__OOblj__OdOOk_kOlHOlxllOlFlkC Ok_` o` h(604 PRIN1 588 TERPRI 569 SHOWMONTHSMALL 491 DSPFONT 482 PRIN1 474 MOVETO 462 DSPFONT 453 PUTWINDOWPROP 440 PUTWINDOWPROP 423 PUTWINDOWPROP 406 ADDMENU 237 ATTACHMENU 218 PUTWINDOWPROP 205 PUTWINDOWPROP 188 PUTWINDOWPROP 174 DECODE/WINDOW/OR/DISPLAYSTREAM 169 CONCAT 164 MKSTRING 148 CREATEW 143 CONCAT 138 MKSTRING 118 CLEARW 97 GETBOXPOSITION 65 CALYEARINRANGE 59 MKATOM 54 PROMPTFORWORD 31 TERPRI 7 LENGTH) (599 PROMPTWINDOW 583 PROMPTWINDOW 447 SCROLLFN 435 REPAINTYEAR 430 REPAINTFN 418 DON'T 413 RESHAPEFN 387 MENU 369 MENU 342 DEFAULTMENUHELDFN 333 CLRPROMPT 324 SHOWMONTH 264 % 245 |MENUTYPE#| 232 TOP 227 RIGHT 212 YEAR# 200 CALYEARICONFN 195 ICONFN 181 ICON 44 PROMPTWINDOW 26 PROMPTWINDOW 17 Other) ( 594 "Sorry - I can only handle years between 1700 and 2100." 401 (0 . 0) 158 " " 132 " " 125 (32 400 364 324) 91 "Please position the Year Window." 37 "Year: ") SHRINKMONTH :D8 (L (0 X) F 0 CALMONTHICON F 1 CALUPDATEONSHRINKFLG F 2 CALNEEDSUPDATE F 3 CALMONTHICONMAP) 'QgRo PShohc(19 ADD.PROCESS) (5 Shrink) ( 30 (3 51 56 9) 14 (CALUPDATEINIT)) SHRINKYEAR :D8 (L (0 X) F 0 CALYEARICON F 1 CALYEARWINDOW F 2 CALYEARICONMAP) <Qg QgP P PRhohc(40 PUTWINDOWPROP 35 GETBOXPOSITION 30 BITMAPHEIGHT 24 BITMAPWIDTH 10 GETWINDOWUSERPROP) (18 ICONPOSITION 5 ICONPOSITION) ( 51 (6 26 50 9)) TIMEDREMP :D8 (L (0 REM)) @NIL NIL () TPLUS :D8 (L (1 MINS 0 TIME)) 6@lkn Al