(FILECREATED " 8-Sep-94 20:20:18" ("compiled on " {DSK}lispusers>DATEFNS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "10-Oct-86 13:07:26" {DSK}DATEFNS.;1 20771 changes to: (FNS MAKE.DATE) previous date: " 4-May-84 18:46:07" {DANTE}LISPUSERS>DATEFNS.;1) BUILDCALENDAR D8 (P 16 CURRENTREG P 12 OTHERMONHEIGHT P 11 OTHERMONWIDTH P 10 DAYHEIGHT P 9 DAYWIDTH P 8 CALWHEIGHT P 7 CALWWIDTH P 6 CALHEIGHT P 5 CALWIDTH P 4 WEEKROWS P 3 FIRSTDAY P 2 DAYSIN P 1 MON P 0 YEAR I 2 CALENDARW I 1 YEAR I 0 MON F 17 CALBORDER F 18 CALGRIDBORDER F 19 DAYNAMEFONT F 20 DAYNUMBERFONT F 21 OTHERMONTHFONT F 22 MONTHNAMEFONT F 23 MONTH.LIST) Aµll @µllâI YdW. ³# lñšIkl°ÞIo ¿IH ºoIoHo »JKØl#ñ’l‹JKØlñ’ll¼lW$kØÚoW& oW( _¿dOñ¢¿OØlÚlloW* Ø_ÚoW, Ø_¿dOñ¢¿OjØ]W" _¿ldW*È Ø_W,È _¿dOñ¢¿OØlW&È ØØW$lØW(È Ø_LÚØ^hW"_¿B ²UB ÉB ¿Bgh¿O Oð³(BgO O OO ÙÙOO¿°&``OO hW"hb¿Bgg¿Bgg¿Bgg¿Bgg¿BgIHJKLhJ¿BgMlMlÛ_ÚÙlÛjOOh¿BgjNOÙOOhMOÙNOÙOOhh¿B B(651 DRAWCALENDAR 644 PUTWINDOWPROP 598 PUTWINDOWPROP 562 PUTWINDOWPROP 538 PUTWINDOWPROP 521 PUTWINDOWPROP 504 PUTWINDOWPROP 487 PUTWINDOWPROP 468 CREATEW 459 MAKEWITHINREGION 454 CREATEREGION 431 PUTWINDOWPROP 426 CREATEREGION 382 PUTWINDOWPROP 369 CLEARW 358 \INSUREWINDOW 350 WINDOWP 341 HEIGHTIFWINDOW 260 WIDTHIFWINDOW 238 STRINGWIDTH 222 STRINGWIDTH 191 STRINGWIDTH 179 STRINGWIDTH 136 DAYOFWEEK 131 IDATE 126 CONCAT 102 DAYSIN 94 ERROR 81 SUBSTRING 68 NCHARS 61 MEMB 52 MKATOM 47 U-CASE 38 SUBSTRING 29 DATE 21 MKATOM 16 SUBSTRING 7 DATE) (605 OTHERMONTHREGIONS 569 CALGRIDSPEC 545 CALENDARINFO 533 DON'T 528 RESHAPEFN 516 CALRBUTTONFN 511 CURSORMOVEDFN 499 CALRBUTTONFN 494 CURSORINFN 482 CALRBUTTONFN 477 BUTTONEVENTFN 445 LASTMOUSEY 440 LASTMOUSEX 400 REGION 376 RESHAPEFN 324 FONTDESCRIPTOR 308 FONTDESCRIPTOR 285 FONTDESCRIPTOR 273 FONTDESCRIPTOR) ( 231 " MAR 84 " 215 "MAY" 184 "28" 172 "Su" 120 " 12:00:00" 114 "-" 108 "01-" 89 "not recognized as a month. Should be 3 letter abbrev.") CALRBUTTONFN D8 (P 19 REG P 15 MONTH P 14 YEAR P 13 ITEM P 12 MOUSEDOWN P 11 MAXYBOX P 10 DSPY P 9 DSPX P 8 BOXY P 7 BOXX P 6 OLDBOXY P 5 OLDBOXX P 4 MAXXBOX P 3 LASTBUTTONSTATE P 2 MGRIDSPEC P 1 OTHERMONTHREGIONS P 0 CALINFO I 0 CALENDARW) 3@g @g @g `lÕH_H_H_O²'¿`lå_ jð’±SO ²dO °W¿`lå_"jð³BO"˜O" ³4`låjð«@ ¿h_°i_¿M²MNJ@¿MNJ@¿h’±ë@ J _mÿO²@ J _mÿL®IO$µ'h_²oOMð—ONð’±ÿ5M²;O²-MNJ@°+_&@ @ “O&°ÅO$_$°ºMNJ@¿O›OOJ@ŠOOJ@¿O½O¾±þÕM²O™MNJ@ˆMNJ@¿h½@ É``´‚±‘±þ™M´!O™MNJ@ˆMNJ@¿@ ¿M ²EMIð²O _dgð²$¿OkÙ°O _dgð™¿OkØ_¿OO@M´@g@MNOO(560 PUTWINDOWPROP 555 MAKE.DATE 546 XYTODATE 528 BUILDCALENDAR 500 FOLLOWING.MONTH 475 PREVIOUS.MONTH 460 REGIONP 453 CLOSEW 446 \CALBOXITEM 436 \CALINVERTITEM 412 INSIDEP 395 \INSUREWINDOW 386 \CALBOXITEM 376 \CALINVERTITEM 351 \CALBOXITEM 339 \CALINVERTITEM 324 \CALBOXITEM 303 INSIDE? 298 LASTMOUSEY 292 LASTMOUSEX 281 \CALINVERTITEM 236 STRICTLY/BETWEEN 226 GRIDXCOORD 220 LASTMOUSEX 212 STRICTLY/BETWEEN 201 GRIDYCOORD 195 LASTMOUSEY 183 \CALINVERTITEM 173 \CALBOXITEM 151 DOWINDOWCOM 132 \FZEROP 105 GETMOUSESTATE 98 \FZEROP 68 GETMOUSESTATE 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (538 VALUE 508 JAN 483 DEC 407 LASTMOUSEY 402 LASTMOUSEX 139 LASTMOUSEBUTTONS 111 LASTMOUSEBUTTONS 74 LASTMOUSEBUTTONS 37 LASTMOUSEBUTTONS 27 CALGRIDSPEC 16 OTHERMONTHREGIONS 5 CALENDARINFO) () CENTERBLTINREGION D8 (I 2 STRM I 1 REGION I 0 BITMAP) <@jdBAA@ ÙlÛØAA@ÈÙlÛØhdghdA (57 BKBITBLT 15 BITMAPWIDTH) (48 INPUT 34 BITMAP) () DATEMENU D8 (P 0 CALMENUW I 1 YEAR I 0 MON) 6@A Hg œHghH ¿nô ¿°×(49 DISMISS 40 TOTOPW 33 PUTWINDOWPROP 20 GETWINDOWUSERPROP 6 BUILDCALENDAR) (27 VALUE 15 VALUE) () DAY D8 (I 0 STRDATE) \@ dkð•odlð•odlð•odlð•odlð•odlð•ojð•o(89 SHOULDNT 10 DAYOFWEEK 5 IDATE) NIL ( 83 "SUNDAY" 74 "SATURDAY" 63 "FRIDAY" 52 "THURSDAY" 41 "WEDNESDAY" 30 "TUESDAY" 19 "MONDAY") DAYOFWEEK D8 (P 0 UNITSSINCEBASE I 0 INTERNALDATE F 1 \TimeZoneComp) '@oæâlÛHl<ÛllÚØQÙXlHlÛØlÜNIL NIL ( 5 -2147483648) DAYSIN D8 (I 1 YEAR I 0 MONTH) D@ dgð¿A ’lldgð³dgð¯dgð§dgð’ll(20 LEAPYEARP 5 MKATOM) (58 NOV 50 SEP 42 JUN 33 APR 11 FEB) () DRAWCALENDAR D8 (P 18 NEARMONTH P 17 REGION P 14 CHAR P 13 #DAYOFWEEK P 11 DATE P 10 #DAYOFWEEK P 6 MONTH P 5 BOTTOM P 4 GRIDHEIGHT P 3 GRIDWIDTH P 2 ROWS P 1 CALGRIDSPEC P 0 CALENDARINFO I 0 CALENDARW F 19 CALGRIDBORDER F 20 DAYNUMBERFONT F 21 DAYNAMEFONT F 22 MONTHNAMEFONT F 23 LISTOFDAYS F 24 OTHERMONTHFONT) œ@g @g r@ IlHZW&@ I[I\W(@ HHkOOó²GW*@ W.jOµrW0@ H^d N h@g "O µy±€OJOlÛÙkÙI _¿OlÜI OKLh@¿OkÔ_¿OkÔ_±ÿz_JI _¿OI OKLh@¿O_¿OkÔ_¿±ÿY_"¿OµHW,@ NoHjI JkØI ]lKÚ@g MÙh@h_$¿O"O"O"O"kh@ ¿O$O"@¿O _ ¿O_¿±þþ(394 CENTERPRINTINREGION 383 DRAWAREABOX 350 CENTERPRINTINREGION 337 GETWINDOWPROP 321 BOTTOMOFGRIDCOORD 312 LEFTOFGRIDCOORD 305 CONCAT 291 DSPFONT 256 CENTERPRINTINREGION 241 LEFTOFGRIDCOORD 230 BOTTOMOFGRIDCOORD 203 CENTERPRINTINREGION 188 LEFTOFGRIDCOORD 174 BOTTOMOFGRIDCOORD 146 GETWINDOWUSERPROP 132 FOLLOWING.MONTH 126 PREVIOUS.MONTH 117 DSPFONT 97 DSPFONT 68 DSPFONT 49 GRID 30 CLEARW 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (332 HEIGHT 141 OTHERMONTHREGIONS 16 CALGRIDSPEC 5 CALENDARINFO) ( 297 " ") FOLLOWING.MONTH D8 (L (0 MONTH) F 2 MONTH.LIST) RHY¡h@Ið—IµRI°ìNIL NIL () LEAPYEARP D8 (I 0 YEAR) T@d3³µll „ bl Hjðµ H´H ´@jðµ @´@ hð(79 \FZEROP 60 \FZEROP 41 REMAINDER 32 \ILLEGAL.ARG 26 MKATOM 21 SUBSTRING 12 DATE) NIL () MAKE.DATE D8 (I 2 YEAR I 1 MONTH I 0 DAY) k@ñ²'A bgð•BkÙb¿@kØAB Øb¿°.@AB ñ²#@AB Ùb¿A bgð•BkØb¿l @ñ¡@Šo@ oAoBo (126 CONCAT 103 CONCAT 70 FOLLOWING.MONTH 60 DAYSIN 49 DAYSIN 35 DAYSIN 10 PREVIOUS.MONTH) (77 JAN 17 DEC) ( 120 " 00:00:00" 114 "-" 108 "-" 97 "0") PREVIOUS.MONTH D8 (I 0 MONTH F 2 MONTH.LIST) $@Rð—R RHY´ @Ið’II°ñ(10 LAST) NIL () XYTODATE D8 (P 0 CALINFO I 2 Y I 1 X I 0 WINDOW) ,@g kAØjHÕØmÿHØjBÕØlÚØ(10 GETWINDOWUSERPROP) (5 CALENDARINFO) () \CALBOXITEM D8 (P 3 HGHT P 2 WID P 1 BTM P 0 LFT I 3 DSP I 2 GRID I 1 ROW I 0 COLUMN) ƒ@@ ž@¸@¹@º@°@B ¸AB ¹BºB»hddCHkØIkØJlÙKlÙggnÿÿ hddCHlØIlØJlÙKlÙggnÿÿ h(127 BKBITBLT 88 BKBITBLT 39 BOTTOMOFGRIDCOORD 31 LEFTOFGRIDCOORD 8 REGIONP) (118 INVERT 113 TEXTURE 79 INVERT 74 TEXTURE) () \CALINVERTITEM D8 (I 3 DSP I 2 GRID I 1 ROW I 0 COLUMN F 0 CALGRIDBORDER) ,@ Ÿ@nÿÿgC@AnÿÿgBPC (41 SHADEGRIDBOX 21 DSPFILL 5 REGIONP) (32 INVERT 15 INVERT) () (PRETTYCOMPRINT DATEFNSCOMS) (RPAQQ DATEFNSCOMS ((FNS BUILDCALENDAR CALRBUTTONFN CENTERBLTINREGION DATEMENU DAY DAYOFWEEK DAYSIN DRAWCALENDAR FOLLOWING.MONTH LEAPYEARP MAKE.DATE PREVIOUS.MONTH XYTODATE \CALBOXITEM \CALINVERTITEM) ( VARS LISTOFDAYS MONTH.LIST) (VARS (CALBORDER 3) (CALGRIDBORDER 1)) (VARS (MONTHNAMEFONT (FONTCREATE ( QUOTE GACHA) 12)) (OTHERMONTHFONT (FONTCREATE (QUOTE GACHA) 8)) (DAYNAMEFONT (FONTCREATE (QUOTE GACHA) 10)) (DAYNUMBERFONT (FONTCREATE (QUOTE GACHA) 12 (QUOTE BOLD)))) (DECLARE: DONTCOPY (RECORDS CALENDARINFO)))) (RPAQQ LISTOFDAYS ("Su" "M" "Tu" "W" "Th" "F" "Sa")) (RPAQQ MONTH.LIST (JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC)) (RPAQQ CALBORDER 3) (RPAQQ CALGRIDBORDER 1) (RPAQ MONTHNAMEFONT (FONTCREATE (QUOTE GACHA) 12)) (RPAQ OTHERMONTHFONT (FONTCREATE (QUOTE GACHA) 8)) (RPAQ DAYNAMEFONT (FONTCREATE (QUOTE GACHA) 10)) (RPAQ DAYNUMBERFONT (FONTCREATE (QUOTE GACHA) 12 (QUOTE BOLD))) (PUTPROPS DATEFNS COPYRIGHT ("Xerox Corporation" 1984 1986)) NIL