(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 1-Feb-98 09:35:18" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>CALENDARHACKS.;4|) "31-Jan-98 19:10:48" |bcompl'd| |in| "Medley 31-Jan-98 ..." |dated| "31-Jan-98 19:12:50") (FILECREATED "23-Mar-94 17:45:59" |{DSK}export>lispcore>internal>library>CALENDARHACKS.;3| 11258 |changes| |to:| (FNS PRINTMONTHIMAGE PRINT-NOTEBOOK-YEAR PRINT-SUMMARY-YEAR PRINT-SCALED-MONTH) |previous| |date:| "15-Jun-90 11:46:01" |{DSK}export>lispcore>internal>library>CALENDARHACKS.;1| ) PRINT-LAND-MONTH :D8 (P 0 PRINTSTREAM I 2 STREAM I 1 YEAR I 0 MONTH) ?Bµogo @An{dooHl ll H (60 CLOSEF 54 PRINT-SCALED-MONTH 22 OPENIMAGESTREAM) (12 INTERPRESS) ( 41 1.0 36 1.0 17 (LANDSCAPE T) 7 "{LPT}") PRINT-LAND-YEAR :D8 (P 2 MONTH P 0 PRINTSTREAM I 1 STREAM I 0 YEAR) XAµogo l kJdIó—H @n{dooHl ll ¿H ¿JkÔZ°Ì(79 DSPNEWPAGE 72 PRINT-SCALED-MONTH 43 CLOSEF 22 OPENIMAGESTREAM) (12 INTERPRESS) ( 59 1.0 54 1.0 17 (LANDSCAPE T) 7 "{LPT}") PRINT-NOTEBOOK-MONTH :D8 (I 2 STREAM I 1 YEAR I 0 MONTH) @AjdooB (20 PRINT-SCALED-MONTH) NIL ( 13 0.6 8 0.75) PRINT-NOTEBOOK-YEAR :D8 (P 2 MONTH P 0 PRINTSTREAM I 1 STREAM I 0 YEAR) ]Aµog l kJdIó—H @jJkåjð“n6’€jooH ¿Jdkåjð˜¿H ¿JkÔZ°Â(84 DSPNEWPAGE 69 PRINT-SCALED-MONTH 38 CLOSEF 17 OPENIMAGESTREAM) (12 POSTSCRIPT) ( 62 0.6 57 0.75 7 "{LPT}") PRINT-SUMMARY-YEAR :D8 (P 3 YOFFSET P 2 MONTH P 0 PRINTSTREAM I 1 STREAM I 0 YEAR) ÕAµogo lkn­ÔJdIó²,lln­ÔJdIó²El l n­ÔJdIó²_H @lãKooHlll ¿JkÔºKoÔ»°¨@ncSKooHlll ¿JkÔºKoÔ»°Ž@nÅÃKooHlll ¿JkÔºKoÔ»±ÿt(195 PRINT-SCALED-MONTH 152 PRINT-SCALED-MONTH 109 PRINT-SCALED-MONTH 81 CLOSEF 22 OPENIMAGESTREAM) (12 POSTSCRIPT) ( 206 -14800 182 0.23 177 0.33 163 -14800 139 0.23 134 0.33 120 -14800 96 0.23 91 0.33 17 (LANDSCAPE T) 7 "{LPT}") PRINT-NARROW-MONTH :D8 (I 2 STREAM I 1 YEAR I 0 MONTH) @AjdooBhddo (28 PRINT-SCALED-MONTH) NIL ( 22 (LANDSCAPE T) 13 0.95 8 0.45) PRINT-SCALED-MONTH :D8 (P 3 PLITTLEFONT P 2 PCALFONT P 1 PBIGFONT P 0 STREAM-EXISTED I 10 OPTIONS I 9 TINYSIZE I 8 DATESIZE I 7 DAYSIZE I 6 STREAM I 5 Y-SCALE I 4 X-SCALE I 3 Y-OFFSET I 2 X-OFFSET I 1 YEAR I 0 MONTH) ¼ F1` ` ¿o` FµogG b gGµlhjF YgGµl hjF ZgGµlhjF [@AFBCDEµdIJK H¦F ¿o` ¿` i h(184 CURSOR 178 TERPRI 167 PRIN1 151 CLOSEF 143 PRINTMONTHIMAGE 123 FONTCREATE 102 FONTCREATE 81 FONTCREATE 59 OPENIMAGESTREAM 39 PRIN1 23 TERPRI 13 SETCURSOR) (173 PROMPTWINDOW 162 PROMPTWINDOW 108 MODERN 87 CLASSIC 66 MODERN 52 POSTSCRIPT 34 PROMPTWINDOW 18 PROMPTWINDOW 8 WAITINGCURSOR) ( 157 "done." 47 "{LPT}" 29 "Formatting for print...") PRINTMONTHIMAGE :D8 (P 18 D P 17 X P 14 Y P 12 X P 10 I P 9 CT P 8 Y P 7 X P 6 DAYLABELS P 2 N P 0 TITLESTRING I 9 TINYDATEFONT I 8 DATEFONT I 7 DAYFONT I 6 Y-SCALE I 5 X-SCALE I 4 YOFFSET I 3 XOFFSET I 2 STREAM I 1 YEAR I 0 MONTH F 19 PLITTLEFONT) ‹ B nÿÿB @ oA n’· HG lÛÕnáã B GB @ B ¿oB ¿AB @kA k2JIó²*K@A k2JdIó²0¿K nn¸ëj N°zg½Lµ Mh\»JkÔZ°ÂM&¼°÷½Lµ Mh\»JkÔZ°ÀM&¼°÷d_¿O O B ¿OB ¿On)†Ô_¿OkÔ_lÜjð²n¥_¿OoÔ_¿µ´honR OdOó¢±°nÙn¥OOó¢±ÓGB lonÜjO$OóªO"dO ó¢±æ¿oEó³hW&B ¿@mÿ @Amÿ nÕµ n … EoêB ¿@k @Ak nÿÈ n … EoêB B n¥ O nÙ l(gB ¿On)†Ô_±ÿnR O o O l(gB ¿On#Ô_±þò nÛ> B ¿O$ B ¿O"n)†Ô_"¿O$kÔ_$±þÞ(630 PRIN1 624 DAYNAME 616 MOVETO 610 CAL-Y 602 CAL-X 585 DRAWLINE 571 CAL-Y 564 CAL-X 554 CAL-Y 547 CAL-X 527 DRAWLINE 513 CAL-Y 505 CAL-X 498 CAL-Y 490 CAL-X 483 SHOWMONTHSMALL 469 CAL-Y 461 CAL-X 453 MONTHYEARPLUS 445 MONTHPLUS 437 SHOWMONTHSMALL 423 CAL-Y 415 CAL-X 407 MONTHYEARPLUS 398 MONTHPLUS 389 DSPFONT 340 DSPFONT 245 PRIN1 236 MOVETO 230 CAL-Y 223 CAL-X 153 \\APPEND2 135 DAYSIN 117 DAYOF 109 PRIN1 101 PRIN1 89 PRIN1 83 MONTHNAME 77 DSPFONT 68 MOVETO 62 CAL-Y 50 STRINGWIDTH 42 CAL-X 31 CONCAT 20 MONTHNAME 14 DSPRIGHTMARGIN 5 DSPRESET) (578 PAINT 520 PAINT 171 \ ) ( 559 75260 475 28.0 429 28.0 377 0.7 347 72567 296 75968 281 -8974 95 " " 25 " ") (PRETTYCOMPRINT CALENDARHACKSCOMS) (RPAQQ CALENDARHACKSCOMS ((* |;;| "Hacks for making reminder-book pages for calendars.") (FILES CALENDAR) (COMS (* |;;| "User level functions") (FNS PRINT-LAND-MONTH PRINT-LAND-YEAR PRINT-NOTEBOOK-MONTH PRINT-NOTEBOOK-YEAR PRINT-SUMMARY-YEAR PRINT-NARROW-MONTH)) (COMS (* |;;| "Internal functions and macros") (FNS PRINT-SCALED-MONTH PRINTMONTHIMAGE) (FUNCTIONS CAL-X CAL-Y)))) (FILESLOAD CALENDAR) (DEFMACRO CAL-X (VALUE) (BQUOTE (+ XOFFSET (FIXR (FTIMES (\\\, VALUE) X-SCALE))))) (DEFMACRO CAL-Y (VALUE) (BQUOTE (+ YOFFSET (FIXR (FTIMES (\\\, VALUE) Y-SCALE))))) (PUTPROPS CALENDARHACKS COPYRIGHT ("Venue & Xerox Corporation" 1987 1990 1994)) NIL