(FILECREATED "17-Jul-86 13:35:11" ("compiled on " {ICE}LISP>CALENDAR.;101) "12-Nov-85 14:59:23" recompiled changes: ACTUALREMINDDATE CALADDEVENT CALCREATEREM CALEXTENDSEL CALMONTHRBF CLOSEMONTH INVERTGROUP LISPDATEDAY MENUITEM MENUREGIONITEM SHOWDAY SHOWMONTH SHRINKMONTH in "SMALLLOOPS/KOTO 27-Feb-86 ..." dated "27-Feb-86 13:57:34") (FILECREATED "17-Jul-86 13:32:03" {ICE}LISP>CALENDAR.;101 61240 changes to: (VARS CALENDARCOMS ) (FNS LISPDATEDAY SHOWDAY ACTUALREMINDDATE CALCREATEREM CALEXTENDSEL CALADDEVENT SHOWMONTH SHRINKMONTH CALMONTHRBF INVERTGROUP MENUITEM MENUREGIONITEM CLOSEMONTH) previous date: "13-Jun-86 15:07:20" {ICE}LISP>CALENDAR.;97) ACTUALREMINDDATE D1 (I 0 R) @ nòð”@ @ (24Q REMINDER.NEXTREMINDDATE 17Q REMINDER.EXPIRATIONDATE 6 LISPDATEYEAR 3 REMINDER.EXPIRATIONDATE) NIL () CALADDEVENTA0001 D1 NIL oNIL NIL ( 3 (Y N)) CALADDEVENT D1 (P 6 RDAY P 4 R P 3 REMTIME P 2 REMDATE P 1 MSG P 0 ANS I 2 YR I 1 D I 0 M F 7 CALNEEDSUPDATE F 10Q CALCHECKEARLYTIME F 11Q CALUPDATEONSHRINKFLG F 12Q CALREMSLOADED F 13Q CALMONTHWINDOW) >P` ` ¿ohd`hdl [@ABZ` Kµ` ¿o` ¿@ABin 7ñ²` ¿o` ¿@ABiJ ñ³` ¿o` hKjñ²EWKñ²?` ¿ohg` ¸` ¿Hgð³Hgð¬Kn°Ô[@ABº jñ–W£ic¿ohd`hdl µoYWg µAANMó³IK@NB ¿@NB¿NkÔ^°çA@Bh icW¢h(472Q CALUPDATEINIT 461Q SHOWDAY 437Q SHOWREMSINDAY 430Q CALCREATEREM 403Q GETWINDOWUSERPROP 364Q PROMPTFORWORD 331Q LENGTH 326Q ACTIVEREMINDERNAMES 322Q PACKDATE 270Q TERPRI 261Q CHARACTER 256Q CHCON1 253Q PROMPTFORWORD 234Q TERPRI 211Q PRIN1 176Q TERPRI 165Q IDATE 162Q IDATE 154Q CALADDEVENT 145Q PRIN1 132Q TERPRI 114Q CALADDEVENT 105Q PRIN1 72Q TERPRI 61Q TERPRI 52Q PACKDATE 43Q PARSETIME 40Q PROMPTFORWORD 16Q TERPRI 10Q TERPRI) (400Q GROUPEND 354Q PROMPTWINDOW 304Q Y 275Q y 265Q PROMPTWINDOW 250Q PROMPTWINDOW 245Q CALADDEVENTA0001 231Q PROMPTWINDOW 206Q PROMPTWINDOW 173Q PROMPTWINDOW 142Q PROMPTWINDOW 127Q PROMPTWINDOW 102Q PROMPTWINDOW 67Q PROMPTWINDOW 56Q PROMPTWINDOW 30Q PROMPTWINDOW 13Q PROMPTWINDOW 5 PROMPTWINDOW) ( 372Q " " 347Q "Message:" 241Q "Do you *really* mean A.M.?" 203Q "You can't add timed reminders with a time that has already passed." 137Q "Illegal time: must be <= 23:59" 77Q "Sorry - I couldn't parse that time." 23Q "Time:") CALCREATEREM D1 (P 1 REMDATE P 0 R I 4 YR I 3 D I 2 M I 1 REMTIME I 0 MSG F 2 CALREMINDERS F 3 CALKEEPEXPIREDREMSFLG F 4 CALHASH) y ABCDYXh@IS©d Dð³S‘AƒoBCnò€h dR£Rc¿H H H H THh g THg h(165Q UNMARKASCHANGED 156Q PUTHASH 152Q SORT 144Q \NCONC2 134Q CALMAKEKEY 131Q LISPDATEDAY 126Q REMINDER.NEXTREMINDDATE 122Q LISPDATEMONTH 117Q REMINDER.NEXTREMINDDATE 113Q CALMAKEKEY 110Q LISPDATEDAY 105Q REMINDER.NEXTREMINDDATE 101Q LISPDATEMONTH 76Q REMINDER.NEXTREMINDDATE 61Q SETREMINDER 53Q PACKDATE 27Q LISPDATEYEAR 15Q CALUNIQUEGENSYM 11Q PACKDATE) (162Q REMINDER 147Q REMINDERTIMELT) ( 43Q "12:01:00") CALDISPEVENT D1 (P 2 YR P 1 D P 0 M I 0 ITEM F 4 CALDISPMENU F 5 CALMONTHWINDOW) @@@ @gð˜HIJ±nT`ð’T°/`do¿dg ¿dg¿jdnÿdh»dK ¿c dgð²¿` ¿o` ±dgð²K¿@hgoggi@g ho@ ¿` ¿o` ±Èdgð²o¿@hggol o` ¿ohd`hdl l l @g hh@ ¿` ¿o` °Sgð´N` ¿@ @ @ nòð”U ˆ@ h@g ¿ ¿i h(611Q CURSOR 604Q SHOWDAY 600Q DELDEF 563Q LISPDATEYEAR 560Q REMINDER.NEXTREMINDDATE 551Q YEAROF 540Q LISPDATEYEAR 535Q REMINDER.NEXTREMINDDATE 527Q LISPDATEMONTH 524Q ACTUALREMINDDATE 516Q LISPDATEDAY 513Q ACTUALREMINDDATE 504Q SETCURSOR 466Q PRIN1 453Q TERPRI 444Q SETREMINDER 441Q REMINDER.NEXTREMINDDATE 425Q CONCAT 416Q GETDEF 405Q CHARACTER 400Q CHARACTER 373Q PROMPTFORWORD 351Q TERPRI 337Q CHARACTER 301Q PRIN1 266Q TERPRI 257Q SETREMINDER 254Q REMINDER.NEXTREMINDDATE 227Q GETDEF 161Q PRIN1 146Q TERPRI 130Q MENU 33Q CALADDEVENT 12Q LAST) (575Q REMINDER 501Q WAITINGCURSOR 473Q CALDELETE 463Q PROMPTWINDOW 450Q PROMPTWINDOW 413Q REMINDER 363Q PROMPTWINDOW 346Q PROMPTWINDOW 326Q LAFITE.SENDMESSAGE 323Q PROGN 310Q CALMAIL 276Q PROMPTWINDOW 263Q PROMPTWINDOW 224Q REMINDER 215Q PROMPTWINDOW 212Q PRINTOUT 203Q PROGN 170Q CALBEEP 156Q PROMPTWINDOW 143Q PROMPTWINDOW 134Q CALFLASH 77Q DEFAULTMENUHELDFN 70Q CLRPROMPT 53Q MENUTYPE# 43Q MENUTYPE# 23Q ADD) ( 460Q "The message will be mailed when its time arrives." 356Q "Send message to: " 343Q "To: " 332Q "Subject: A CALENDAR Message" 273Q "The message will print here and beep." 243Q ((DISMISS 12Q) (BEEPOFF)) 207Q (BEEPON 144Q) 153Q "This is the default action." 61Q ((Flash (QUOTE CALFLASH) "The message will flash here.") (Beep (QUOTE CALBEEP) "The message will print here and beep.") (SendMail (QUOTE CALMAIL) "The message will be mailed to the recipients of your choice.") (Delete (QUOTE CALDELETE) "The message will be deleted immediately."))) CALENDAR D1 (I 2 YR I 1 D I 0 M F 5 CALMAINMENU F 6 CALDEFAULTHOST&DIR F 7 CALFONT F 10Q CALREMSLOADED F 11Q CALENDARVERSION) ´V²)gggV ²gggV “ic¿U`ð”U ¿` lØ kÙ2IdHó¢±Ä¿Joh HdI¿do¿di¿di¿dg¿dg ¿dg¿jdnÿdhHdI ¿c W³4@³!A³B³` ¿o` ¿` ¿gl$ c¿i ¿@µUA³QB³NWi ¿i oi ¿i ` ¿o` U doh¼KµLh[ºIkÔY±ÿ"L&»°ö@gð² h @dgð²¿h h gð› h @²"AœBšA@Bh @žBšh@Bh @¨Bd–h h(657Q SHOWYEAR 644Q SHOWMONTH 625Q SHOWDAY 603Q SHOWYEAR 576Q LISPDATEYEAR 573Q DATE 562Q SHOWMONTH 553Q LISPDATEYEAR 550Q DATE 545Q LISPDATEMONTH 542Q DATE 524Q SHOWDAY 515Q LISPDATEYEAR 512Q DATE 507Q LISPDATEMONTH 504Q DATE 501Q LISPDATEDAY 476Q DATE 425Q MENU 421Q PRIN1 406Q TERPRI 400Q TERPRI 373Q PRIN1 363Q TERPRI 356Q PRIN1 336Q CURSOR 327Q FONTCREATE 316Q SETCURSOR 307Q PRIN1 274Q TERPRI 141Q \APPEND2 110Q LISPDATEYEAR 105Q DATE 77Q LISPDATEYEAR 74Q DATE 64Q DELETEMENU 44Q LOAD? 41Q PACKFILENAME 22Q INFILEP 17Q PACKFILENAME) (566Q THISYEAR 532Q THISMONTH 470Q TODAY 416Q PROMPTWINDOW 403Q PROMPTWINDOW 322Q TIMESROMAN 313Q WAITINGCURSOR 304Q PROMPTWINDOW 271Q PROMPTWINDOW 217Q DEFAULTMENUHELDFN 210Q CLRPROMPT 201Q SHOWYEAR 70Q MENUTYPE# 56Q MENUTYPE# 35Q DIRECTORY 32Q CALREMINDERS 27Q NAME 13Q DIRECTORY 10Q CALREMINDERS 5 NAME) ( 433Q "Will make a calendar for this year." 413Q "Select a year for calendar." 367Q "See the Prompt Window for Calendar messages." 301Q "Looking for font - one moment please ..." 160Q "Year" 134Q (Other (QUOTE OTHER) "Lets you choose another year")) CALEXTENDSEL D1 (P 1 NEWEND P 0 DEND F 2 CALCURMONTH F 3 CALCURYEAR F 4 CALMONTHMENU F 5 CALCURDAY F 6 CALDAYWINDOW F 7 CALMONTHWINDOW) Q ¿`lålð²1T ¸RUSRHSnÿÿ ¿T ¹HIñ²ÔRISRHSj ¿I¸°ÄWgHV h(115Q TOTOPW 111Q PUTWINDOWPROP 73Q INVERTGROUP 51Q MENUREGIONITEM 44Q INVERTGROUP 25Q MENUREGIONITEM 5 GETMOUSESTATE) (105Q GROUPEND 11Q LASTMOUSEBUTTONS) () CALMAKEKEY D1 (I 1 D I 0 M) @ldÚAØ(2 BLOCK) NIL () CALMONTHBEF D1 (I 0 W F 1 CALDAYWINDOW) .Q ²$¿`låHjðµH´H ¤Q ¿@ (53Q MENUBUTTONFN 46Q CLOSEW 40Q \FZEROP 10Q GETMOUSESTATE 3 WINDOWP) (14Q LASTMOUSEBUTTONS) () CALMONTHICONFN D1 (I 1 ICON I 0 W F 0 CALCURMONTH F 1 CALMONTHICONMAP F 2 CALMONTHICON) %AµQhohcdP `P A(41Q ICONW.TITLE 36Q MONTHNAME 31Q TITLEDICONW 23Q MONTHNAME) (26Q LITTLEFONT) ( 10Q (0 57Q 100Q 12Q)) CALMONTHRBF D1 (I 0 X F 0 CALMONTHWINDOW F 1 CALMONTHSTREAM) ?jdPg Pg lZÙQ Q ²¿`låjð¤P P (74Q DOWINDOWCOM 67Q CALEXTENDSEL 63Q MENUBUTTONFN 45Q GETMOUSESTATE 40Q INSIDEP 35Q LASTMOUSEY 31Q LASTMOUSEX 25Q CREATEREGION 17Q GETWINDOWPROP 10Q GETWINDOWPROP) (51Q LASTMOUSEBUTTONS 14Q HEIGHT 5 WIDTH) () CALPRINTREM D1 (I 1 STREAM I 0 REMINDER) $@ jð®@ A ¿kA ¿@ A A (41Q TERPRI 35Q PRIN1 31Q CALREMDEF 24Q SPACES 16Q PRIN1 12Q REMINDERTIME 3 REMINDERTIME) NIL () CALREMDEF D1 (P 0 STR I 0 REMINDER) Q@g ›@g °#@g l h XdkH l( (116Q SUBSTRING 113Q MIN 106Q LENGTH 103Q UNPACK 74Q MKSTRING 71Q PACK 66Q LDIFFERENCE 61Q CHARACTER 54Q UNPACK 42Q GETDEF 26Q GETDEF 11Q GETDEF) (37Q REMINDERS 23Q REMINDERS 6 REMINDERS) () CALUNIQUEGENSYM D1 (P 0 REMNAME) X ³öH(14Q MEMBER 11Q ACTIVEREMINDERNAMES 5 GENSYM) NIL () CALUPDATEFILE D1 (P 2 X P 0 FSTREAM I 0 FILE F 3 CALNEEDSUPDATE F 4 CALREMSLOADED) ¢@ggX ` ¿o` ¿@` ¿o` Iµ1gghH gH H hcico` hº¿ggJhogJg hhH ¿IY° (232Q PRINT 216Q GETDEF 165Q BLOCK 156Q PRIN1 136Q CLOSEF 132Q PRINT 122Q PRINT 112Q ACTIVEREMINDERNAMES 72Q ACTIVEREMINDERNAMES 67Q STOREREMS 64Q PRIN1 51Q PRIN1 41Q PRIN1 26Q TERPRI 20Q OUTPUT 14Q OPENSTREAM) (213Q REMINDERS 207Q QUOTE 174Q QUOTE 171Q PUTDEF 153Q PROMPTWINDOW 126Q STOP 107Q CALREMINDERS 104Q RPAQQ 61Q PROMPTWINDOW 46Q PROMPTWINDOW 36Q PROMPTWINDOW 23Q PROMPTWINDOW 11Q OLD/NEW 6 OUTPUT) ( 204Q (QUOTE REMINDERS) 150Q "done." 56Q "..." 33Q "Updating reminder file ") CALUPDATEINIT D1 (P 0 FILE F 1 CALDEFAULTHOST&DIR F 2 CALREMSLOADED) d` gggQµohd`hdl cXi R³,H ²&oQo ³` ¿o` hH h(140Q CALUPDATEFILE 132Q PRIN1 117Q TERPRI 107Q MOUSECONFIRM 104Q CONCAT 66Q INFILEP 57Q CURSOR 52Q PACKFILENAME 45Q PROMPTFORWORD 10Q SETCURSOR) (127Q PROMPTWINDOW 114Q PROMPTWINDOW 35Q PROMPTWINDOW 21Q DIRECTORY 16Q CALREMINDERS 13Q NAME 5 WAITINGCURSOR) ( 124Q "File not updated; to load it, call (CALENDAR)." 101Q " which you haven't loaded yet. Should I overwrite it?" 74Q "There is a CALREMINDERS file on " 30Q "Please enter a host & directory for the reminders file:") CALYEARINRANGE D1 (L (0 YR)) @´n4@ñ´@n¤ñNIL NIL () CIRCLETODAY D1 (I 0 W F 0 CALCIRCLEDAY F 1 CALMONTHSTREAM F 2 CALMONTHMENU F 3 CALCIRCLEMONTH F 4 CALCURMONTH F 5 CALCURYEAR F 6 CALMONTHWINDOW) T ð´‚±U ð´‚±‚P ð³vVi gQ P²)S ð²PR lØPR lØlkhQ ¿ R lØ R lØlkhQ gQ c ch(226Q LISPDATEMONTH 223Q DATE 216Q LISPDATEDAY 213Q DATE 210Q DSPOPERATION 201Q DRAWCIRCLE 163Q MDMENUITEMREGION 157Q LISPDATEDAY 154Q DATE 145Q MDMENUITEMREGION 141Q LISPDATEDAY 136Q DATE 132Q DRAWCIRCLE 114Q MDMENUITEMREGION 103Q MDMENUITEMREGION 73Q LISPDATEMONTH 70Q DATE 61Q DSPOPERATION 52Q TOTOPW 42Q LISPDATEDAY 37Q DATE 24Q LISPDATEYEAR 21Q DATE 6 LISPDATEMONTH 3 DATE) (204Q REPLACE 55Q INVERT) () CLEARDAY D1 (I 0 D F 0 CALMONTHWINDOW F 1 CALCIRCLEDAY F 2 CALMONTHMENU) 5hcP hddP@R @R l%Ølwl=ggnÿÿ hcP (62Q CIRCLETODAY 53Q BITBLT 25Q MDMENUITEMREGION 17Q MDMENUITEMREGION 6 CIRCLETODAY) (44Q ERASE 41Q TEXTURE) () CLOSEMONTH D1 (I 0 X F 0 CALUPDATEONSHRINKFLG F 1 CALNEEDSUPDATE) P´Q´ o (14Q ADD.PROCESS) NIL ( 11Q (CALUPDATEINIT)) DAYNAME D1 (I 0 D) o@kØ (11Q NTH) NIL ( 3 (Sunday Monday Tuesday Wednesday Thursday Friday Saturday % )) DAYOF D1 (L (2 Y 1 D 0 M)) ;@lñ‘B‚BkÙoê@dlñ‘kl ØoêAØØoÙlëddjØélêoèjØNIL NIL ( 65Q .5 45Q 2274771Q 35Q 30.6 15Q 365.25) DAYSIN D1 (I 1 Y I 0 M) @lðœAlÜjð’llo@ (31Q NTH) NIL ( 25Q (37Q NIL 37Q 36Q 37Q 36Q 37Q 37Q 36Q 37Q 36Q 37Q)) INVERTGROUP D1 (P 1 D I 6 SHADE I 5 YR2 I 4 D2 I 3 M2 I 2 YR1 I 1 D1 I 0 M1 F 2 CALMONTHMENU) Dd™AIdHó‘hR RF¿IkÔY°ì(26Q SHADEITEM 21Q MENUITEM) NIL () LISPDATEDAY D1 (I 0 LD) @dkdo ’l€kl(27Q SUBATOM 15Q STREQUAL 6 SUBSTRING) NIL ( 12Q " ") LISPDATEMONTH D1 (I 0 LD) @ll (12Q MONTHNUM 7 SUBATOM) NIL () LISPDATEYEAR D1 (I 0 LD) #@l dgðœ@ll nlØ@ll(40Q SUBATOM 23Q SUBATOM 6 SUBATOM) (11Q % ) () MAKEDAYTITLE D1 (I 2 YR I 1 D I 0 M F 0 CALDAYSTREAM) qP hP lÙP `P ¿@AB P ¿oP ¿@ P ¿kP ¿AP ¿oP ¿BP ¿`P ¿P ¿P hP kØP (156Q DSPYPOSITION 150Q DSPYPOSITION 143Q TERPRI 136Q TERPRI 131Q CHANGEFONT 121Q PRIN1 113Q PRIN1 102Q PRIN1 74Q SPACES 66Q PRIN1 62Q MONTHNAME 55Q PRIN1 44Q PRIN1 40Q DAYNAME 35Q DAYOF 26Q CHANGEFONT 17Q DSPYPOSITION 10Q DSPYPOSITION 3 MOVETOUPPERLEFT) (125Q DEFAULTFONT 22Q BIGFONT) ( 107Q ", " 51Q ", ") MDMENUITEMREGION D1 (P 1 I I 2 SCALE I 1 MNAME I 0 ITEM) DAÉHµB²/0IA ° ¹@Ið³íHX°ådBÖºKµJh\J&»µîLIA (101Q MENUITEMREGION 27Q MENUITEMREGION) (3 MENU) () MENUITEM D1 (L (1 MNAME 0 ITEM)) !AÉHµh¹@Ið”IµiHX°ìNIL (3 MENU) () MENUREGIONITEM D1 (P 1 I I 0 MNAME F 2 CALMONTHSTREAM) /@ÉHµhY@ R R ”IµiHX°á(42Q INSIDEP 37Q LASTMOUSEY 33Q LASTMOUSEX 27Q MENUITEMREGION 2 GETMOUSESTATE) (6 MENU) () MONTHABBR D1 (I 0 M) o@ (7 NTH) NIL ( 3 (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)) MONTHNAME D1 (I 0 M) o@ (7 NTH) NIL ( 3 (% January February % % March % % April % % % May % % June % % July % August September % October November December)) MONTHNUM D1 (I 0 MNAME) o@ (7 LISTGET) NIL ( 3 (Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 10Q Sep 11Q Oct 12Q Nov 13Q Dec 14Q)) MONTHPLUS D1 (L (1 N 0 M)) @dAØjñ¥AlØØlð•Ajñ‘k@AØl ÜNIL NIL () MONTHYEARPLUS D1 (L (2 N 1 YR 0 M)) A@BØl Û@BØjñ¢mÿ€jØØNIL NIL () PACKDATE D1 (I 3 YR I 2 D I 1 M I 0 MTIME) Z@jð²&l Bñ¡B‡oB oA oo l Bñ¡B‡oB oA oCdnÏñ£nlÙo@ (127Q CONCAT 77Q MONTHABBR 67Q CONCAT 47Q CONCAT 33Q MONTHABBR 23Q CONCAT) NIL ( 122Q " " 103Q "-" 73Q "-" 63Q " " 43Q "2034 12:01:00" 37Q "-" 27Q "-" 17Q " ") PARSETIME D1 (I 0 TSTRING) ‡@² @ o d¥d¡¡h@µj o @ d¥d¡˜@ lñ²@ d¥d¡g@ ¢ld€kÚo@k“n°Žo@k“n°€jØ(175Q STRPOS 157Q STRPOS 140Q MEMBER 135Q UNPACK 113Q MKATOM 102Q MKATOM 63Q MKATOM 57Q PACK 54Q LDIFFERENCE 45Q UNPACK 20Q PACK 15Q LDIFFERENCE 6 UNPACK) (131Q :) ( 170Q "p" 152Q "P" 51Q (%. : - % A P M a p m) 12Q (%. : - % A P M a p m)) POM D1 (P 15Q SECSPERMOON P 14Q SECSPERDAY P 13Q SECSPERHR P 12Q DAYINYEAR P 11Q SECSTHISMOON P 10Q SECSFROMNEWTHISYEAR P 7 EPACT P 6 EXTRADAYS P 5 CLAVCORRECTION P 4 GREGCORRECTION P 3 CENTURY P 2 GOLDEN P 1 MONTHTABLE P 0 SECSPERMIN I 2 YR I 1 D I 0 M) Ôl