(FILECREATED " 4-May-84 18:46:37" ("compiled on " {PHYLUM}DATEFNS.;1) " 3-May-84 18:22:53" tcompl'd in WORK dated " 4-May-84 12:48:44") (FILECREATED " 4-May-84 18:46:07" {PHYLUM}DATEFNS.;1 20688 changes to: (FNS CALRBUTTONFN DATEMENU CALENDARW) (VARS DATEFNSCOMS) previous date: " 3-May-84 12:42:22" {PHYLUM}DATEFNS.;2) BUILDCALENDAR D1 (P 20Q CURRENTREG P 14Q OTHERMONHEIGHT P 13Q OTHERMONWIDTH P 12Q DAYHEIGHT P 11Q DAYWIDTH P 10Q 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 21Q CALBORDER F 22Q CALGRIDBORDER F 23Q DAYNAMEFONT F 24Q DAYNUMBERFONT F 25Q OTHERMONTHFONT F 26Q MONTHNAMEFONT F 27Q MONTH.LIST) Aµll @µllâI YdW. ³ lñ˜Ikl°æIo ¿IH ºoIoHo »JdKØl#ñ“¿lŠKØlñ’ll¼W$kØlÚoW& oW( _¿dOñ¢¿OØlÚoW* lØ_lÚoW, Ø_¿dOñ¢¿OjØ]W" _¿W* lØ_W, _¿dOñ¢¿OW& W$W( lØØ_LÚlØØØ^hW"_¿B ²FB ÉB ¿Bg ¿O Oð³"BgO O OO ÙÙOO¿°``OO hW"b¿Bgg¿Bgg¿Bgg¿Bgg¿BgIHJKLhJ¿BgMdlÛ_lÚÙlÛjOOh¿BgjNOÙOOhMOÙNOÙOOhh¿B B(1006Q DRAWCALENDAR 1001Q PUTWINDOWPROP 727Q PUTWINDOWPROP 667Q PUTWINDOWPROP 643Q PUTWINDOWPROP 630Q PUTWINDOWPROP 615Q PUTWINDOWPROP 602Q PUTWINDOWPROP 565Q CREATEW 557Q MAKEWITHINREGION 554Q CREATEREGION 533Q PUTWINDOWPROP 530Q CREATEREGION 460Q PUTWINDOWPROP 450Q CLEARW 437Q \INSUREWINDOW 431Q WINDOWP 422Q HEIGHTIFWINDOW 376Q FONTHEIGHT 367Q FONTHEIGHT 347Q FONTHEIGHT 335Q FONTHEIGHT 325Q WIDTHIFWINDOW 301Q STRINGWIDTH 260Q STRINGWIDTH 230Q STRINGWIDTH 217Q STRINGWIDTH 146Q DAYOFWEEK 143Q IDATE 140Q CONCAT 115Q DAYSIN 107Q ERROR 75Q SUBSTRING 62Q NCHARS 55Q MEMB 46Q MKATOM 43Q U-CASE 34Q SUBSTRING 25Q DATE 17Q MKATOM 14Q SUBSTRING 5 DATE) (734Q OTHERMONTHREGIONS 674Q CALGRIDSPEC 650Q CALENDARINFO 640Q DON'T 635Q RESHAPEFN 625Q CALRBUTTONFN 622Q CURSORMOVEDFN 612Q CALRBUTTONFN 607Q CURSORINFN 577Q CALRBUTTONFN 574Q BUTTONEVENTFN 545Q LASTMOUSEY 542Q LASTMOUSEX 500Q REGION 455Q RESHAPEFN) ( 274Q " MAR 84 " 253Q "MAY" 223Q "28" 212Q "Su" 134Q " 12:00:00" 127Q "-" 122Q "01-" 104Q "not recognized as a month. Should be 3 letter abbrev.") CALRBUTTONFN D1 (P 21Q REG P 17Q MONTH P 16Q YEAR P 15Q ITEM P 14Q MOUSEDOWN P 13Q MAXYBOX P 12Q DSPY P 11Q DSPX P 10Q 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) @g @g @g `lµH_H_H_O¿`låjð°;¿`låjð³,`låjð©@ ¿h_°i_¿M²MNJ@¿MNJ@¿h’±Á@ J _mÿO²@ J _mÿL®IO µ%h_²aOMð—ONð’±ÿuM²1O²%MNJ@°#_"@ @ “O"°ÍO _ °ÂMNJ@¿O™OOJ@ˆOOJ@¿O½O¾±ÿ#M²O—MNJ@†MNJ@¿h½@ É``´v±þ÷M´O—MNJ@†MNJ@¿@ ¿M ²;MIð²O _dgð² ¿OkÙ°O _dgð™¿OkØ_¿OO@M´@g@MNOO(652Q PUTWINDOWPROP 647Q MAKE.DATE 640Q XYTODATE 622Q BUILDCALENDAR 572Q FOLLOWING.MONTH 545Q PREVIOUS.MONTH 530Q REGIONP 523Q CLOSEW 516Q \CALBOXITEM 506Q \CALINVERTITEM 464Q INSIDEP 451Q \INSUREWINDOW 442Q \CALBOXITEM 432Q \CALINVERTITEM 403Q \CALBOXITEM 371Q \CALINVERTITEM 354Q \CALBOXITEM 331Q INSIDE? 326Q LASTMOUSEY 322Q LASTMOUSEX 311Q \CALINVERTITEM 236Q STRICTLY/BETWEEN 226Q GRIDXCOORD 222Q LASTMOUSEX 214Q STRICTLY/BETWEEN 203Q GRIDYCOORD 177Q LASTMOUSEY 165Q \CALINVERTITEM 155Q \CALBOXITEM 131Q DOWINDOWCOM 101Q GETMOUSESTATE 63Q GETMOUSESTATE 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (632Q VALUE 600Q JAN 553Q DEC 461Q LASTMOUSEY 456Q LASTMOUSEX 117Q LASTMOUSEBUTTONS 105Q LASTMOUSEBUTTONS 67Q LASTMOUSEBUTTONS 27Q LASTMOUSEBUTTONS 21Q CALGRIDSPEC 12Q OTHERMONTHREGIONS 3 CALENDARINFO) () CENTERBLTINREGION D1 (I 2 STRM I 1 REGION I 0 BITMAP) 4@jdBAA@ ÙlÛØAA@ÈÙlÛØhdghdA (61Q BITBLT 15Q BITMAPWIDTH) (52Q INPUT 36Q BITMAP) () DATEMENU D1 (P 0 CALMENUW I 1 YEAR I 0 MON) '@A Hg H ¿nô ¿°ìHg (44Q PUTWINDOWPROP 32Q DISMISS 23Q TOTOPW 16Q GETWINDOWUSERPROP 4 BUILDCALENDAR) (41Q VALUE 13Q VALUE) () DAY D1 (I 0 STRDATE) O@ dkð”odlð”odlð”odlð”odlð”odlð”ojð”o(114Q SHOULDNT 6 DAYOFWEEK 3 IDATE) NIL ( 110Q "SUNDAY" 100Q "SATURDAY" 66Q "FRIDAY" 54Q "THURSDAY" 42Q "WEDNESDAY" 30Q "TUESDAY" 16Q "MONDAY") DAYOFWEEK D1 (I 0 INTERNALDATE F 0 \TimeZoneComp) @ âlÛl<Ûl¨ØPÙdlÛlØlÜ(3 LISP.TO.ALTO.DATE) NIL () DAYSIN D1 (I 1 YEAR I 0 MONTH) 6@ dgð›¿A ’lldgð³dgð«dgð¥dgð’ll(16Q LEAPYEARP 3 MKATOM) (54Q NOV 46Q SEP 40Q JUN 31Q APR 7 FEB) () DRAWCALENDAR D1 (P 22Q NEARMONTH P 21Q REGION P 16Q CHAR P 15Q #DAYOFWEEK P 13Q DATE P 12Q #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 23Q CALGRIDBORDER F 24Q DAYNUMBERFONT F 25Q DAYNAMEFONT F 26Q MONTHNAMEFONT F 27Q LISTOFDAYS F 30Q OTHERMONTHFONT) g@g @g r@ IlHZW&@ I[I\W(@ HHkOdOñ²:W*@ W.jOµ^W0@ H^d N h@g "O µi°pJOlÛÙkÙI _¿OlÜI OKLh@¿OkØ_¿OkØ_°Ž_JI _¿OI OKLh@¿O_¿OkØ_¿±ÿs_"¿Oµ@W,@ NoHjI JkØI ]KlÚh@ É MÙh@h_$¿O"O"O"O"kh@ ¿O$O"@¿O _ ¿O_¿±ÿ(525Q CENTERPRINTINREGION 514Q DRAWAREABOX 455Q CENTERPRINTINREGION 436Q DSPCLIPPINGREGION 431Q \INSUREWINDOW 417Q BOTTOMOFGRIDCOORD 410Q LEFTOFGRIDCOORD 403Q CONCAT 370Q DSPFONT 327Q CENTERPRINTINREGION 312Q LEFTOFGRIDCOORD 301Q BOTTOMOFGRIDCOORD 251Q CENTERPRINTINREGION 234Q LEFTOFGRIDCOORD 220Q BOTTOMOFGRIDCOORD 171Q GETWINDOWUSERPROP 157Q FOLLOWING.MONTH 153Q PREVIOUS.MONTH 144Q DSPFONT 122Q DSPFONT 66Q DSPFONT 45Q GRID 24Q CLEARW 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (166Q OTHERMONTHREGIONS 12Q CALGRIDSPEC 3 CALENDARINFO) ( 375Q " ") FOLLOWING.MONTH D1 (L (0 MONTH) F 2 MONTH.LIST) RHY´@Ið—IµRI°íNIL NIL () LEAPYEARP D1 (I 0 YEAR) 3@dd¥d¡³µll ‚ bl jð´@jðhð(47Q REMAINDER 40Q \ILLEGAL.ARG 34Q MKATOM 31Q SUBSTRING 22Q DATE) NIL () MAKE.DATE D1 (I 2 YEAR I 1 MONTH I 0 DAY) jk@ñ² A bgð•BkÙb¿@AB kØØb°'@AB ñ²@AB Ùb¿A bgð•BkØb¿@l ñ‘@‡o@ oAoBo (147Q CONCAT 125Q CONCAT 71Q FOLLOWING.MONTH 61Q DAYSIN 50Q DAYSIN 33Q DAYSIN 10Q PREVIOUS.MONTH) (76Q JAN 15Q DEC) ( 143Q " 00:00:00" 136Q "-" 131Q "-" 121Q "0") PREVIOUS.MONTH D1 (I 0 MONTH F 2 MONTH.LIST) "@Rð•R RHY´ @Ið’II°ñ(10Q LAST) NIL () XYTODATE D1 (P 0 CALINFO I 2 Y I 1 X I 0 WINDOW) )@g AH HB kÙØlÚkØØØ(34Q MINUS 22Q MINUS 6 GETWINDOWUSERPROP) (3 CALENDARINFO) () \CALBOXITEM D1 (P 3 HGHT P 2 WID P 1 BTM P 0 LFT I 3 DSP I 2 GRID I 1 ROW I 0 COLUMN) q@@ ž@¸@¹@º@°@B ¸AB ¹BºB»hddCHkØIkØJlÙKlÙggnÿÿ hddCHlØIlØJlÙKlÙggnÿÿ h(155Q BITBLT 114Q BITBLT 41Q BOTTOMOFGRIDCOORD 33Q LEFTOFGRIDCOORD 6 REGIONP) (146Q INVERT 143Q TEXTURE 105Q INVERT 102Q TEXTURE) () \CALINVERTITEM D1 (I 3 DSP I 2 GRID I 1 ROW I 0 COLUMN F 0 CALGRIDBORDER) "@ ›@nÿÿgC@AnÿÿgBPC (37Q SHADEGRIDBOX 17Q DSPFILL 3 REGIONP) (30Q INVERT 13Q 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)) NIL