(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "16-Nov-93 17:21:19" ("compiled on " {DSK}export>lispcore>lispusers>BICLOCK.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "12-Sep-88 01:29:15" {ERINYES}MEDLEY>BICLOCK.;5 38172 changes to%: (FNS BICLOCK BICLOCKPROCESS) (VARS BICLOCKCOMS) previous date%: "14-Dec-87 17:32:47" {ERINYES}MEDLEY>BICLOCK.;2) BICLOCK :D8 (P 27 P P 26 PARMS P 25 W P 20 V P 19 P P 16 P P 6 PLIST P 2 I P 0 PROPS F 28 LOGOW F 29 BICLOCKWINDOW F 30 BICLOCKUSERPROPS F 31 BICLOCKDEFAULTPROPS) .eHdkð›¿ka“ka’kaHk2JdIó²\¿KW N kåjð›NOµIh›oN ¿Ng'´‚±™Ng'µ]NN"O$µ0°7a½Lµ Mh\»JkÔZ°“M&¼°÷_ d3@ð¦O µ°i°O_°¡_&¿O"µYhµldhghj`Ng'_¿dO¿Ng'_¿dO¿Ng'dgð¢±¿l±@_(¿O&dgð¢±ë¿O(´–Ng'dgð’¿°[dgð¿`O(Õl×°Fdgð²¿`O(ÕW8µjÕ°,g °ógðš`O(ÕkÕ‹Ng'3µjNg'dgð’¿°[dgð¿`O(Õl×°Fdgð²¿`O(ÕW8µjÕ°,g °ógðš`O(ÕkÕ‹Ng'3µjO(d±þ´gð”O(±þ¨O$_$¿O"_"¿±þZdgð§dgð“¿k°gð’lˆNg'3_¿dO¿Ng'dgð“¿k°gð’lˆNg'3_¿dO¿Ng'dgð”¿l<°gð’lˆNg'3_¿dO¿NN"O,µŒ_.¿O*µ‚±:h_¿dO ¿_¿dO¿Ng'´Ng' _¿dO¿Ng'³g ¿W:—W: ¿gO2d²dið3µgO2hO4d´dið3µgO4hhgg_6O2gO6O2ggO2ggO2ggO2ggO2ggO2gO4O2ggO2ggO2_0¿O.dgð•¿O0±þ¹gð–O0hð±þ«O,_,¿O*_*¿±þ†(1014 PUTWINDOWPROP 997 PUTWINDOWPROP 980 PUTWINDOWPROP 966 PUTWINDOWPROP 949 PUTWINDOWPROP 932 PUTWINDOWPROP 915 PUTWINDOWPROP 898 PUTWINDOWPROP 881 PUTWINDOWPROP 865 ADD.PROCESS 794 CLOSEW 783 DEL.PROCESS 752 IDATE 722 CREATE.EVENT 506 CREATEREGION 466 GETWINDOWPROP 358 GETWINDOWPROP 198 CREATEW 191 GETREGION 84 ERROR 56 LENGTH 47 \APPEND2 42 \APPEND2) (1042 ARABIC 1029 ROMAN 1009 BICLOCKBEFN 1004 BUTTONEVENTFN 992 BICLOCKBEFN 987 WINDOWENTRYFN 973 PARMS 961 BICLOCKRPFN 956 AFTERMOVEFN 944 BICLOCKCFN 939 CLOSEFN 927 BICLOCKRPFN 922 REPAINTFN 910 BICLOCKRSFN 905 RESHAPEFN 893 BICLOCKNRFN 888 NEWREGIONFN 874 PROCESS 860 HARDRESET 855 RESTARTABLE 841 QUOTE 818 QUOTE 800 BICLOCKPROCESS 778 BICLOCKPROCESS 770 IDLE 746 ALARMTIME 737 ALARMTIME 669 CHIME 658 QUORTER 646 HOUR 639 CHIME 621 DIGITS 610 |3/6/9/12| 599 HOUR 592 DIGITS 574 MARKS 563 |3/6/9/12| 552 MINUTE 544 HOUR&MINUTE 514 REGION 492 VERTICAL 480 SCREENHEIGHT 473 TOP 461 HEIGHT 445 SCREENHEIGHT 436 BELOW-LOGO 422 SCREENHEIGHT 414 CENTER 403 BOTTOM 396 VERTICAL 384 HORIZONTAL 372 SCREENWIDTH 365 RIGHT 353 WIDTH 337 SCREENWIDTH 328 LEFT-OF-LOGO 314 SCREENWIDTH 306 CENTER 295 LEFT 288 HORIZONTAL 272 SIZE 249 HOUR 242 MARKS 226 COLOR 210 SECONDS 203 |BICLOCKPARMSTYPE#| 186 BICLOCKNRFN 104 WINDOW 91 CREATE) ( 78 "ARG NOT PROPLIST IN BICLOCK") BICLOCKBEFN :D8 (P 4 SEL P 0 PROC I 0 W) >@ É.1H ²|` ¿o` ¿@gg@d´ddið³¿¿@3µg@h@g Yd´dið¬3µgIhhggX¿l@`lÂåjð‘j€kjð³,l`lÂåjð‘j€kjð³l@`lÂåjð‘j€kjð²>H @ ¿`låjð§¿°é @ H @g º¿`låjð³9JÉ²oJÉ o ¿`kåjð’±Î`do¿dg ¿dg¿jdnÿdh»dK ¿ Ldgðœ¿Ji±Ugð›Jh±BLgð³Lgð©Ldgðœ¿JL±gð›Jh±Ldgð¿Jl±ñgðœJl±ÝLdgðœ¿Jk±Çgð›Jh±´Ldgð¿Jl±gð›Jk±ŠLdgð›¿Jh °tgðšJi °bLdgð›¿Jh°Mgð›Jl<°:Ldgðœ¿Jl°$gð—@ °Ldgð›¿Jh¿Lo @ É. @ É. h(825 WAKE.PROCESS 818 \INSUREWINDOW 811 RESTART.PROCESS 804 \INSUREWINDOW 797 MEMB 764 BICLOCKSETALARM 422 MENU 353 GETMOUSESTATE 347 PROMPTPRINT 337 DATE 331 PROMPTPRINT 326 GDATE 308 DATE 280 GETMOUSESTATE 274 GETWINDOWUSERPROP 262 WAKE.PROCESS 256 INVERTW 250 BKSYSBUF 245 DATE 237 \BACKGROUND 220 GETMOUSESTATE 215 INVERTW 209 SUSPEND.PROCESS 139 PUTWINDOWPROP 133 ADD.PROCESS 93 GETWINDOWUSERPROP 44 PRIN1 28 TERPRI 16 PROCESS.FINISHEDP 5 \INSUREWINDOW) (782 BICLOCKPARMS 773 AOFF 756 ALARM 745 BICLOCKPARMS 736 CHIME15MIN 723 BICLOCKPARMS 715 CHIME 705 BICLOCKPARMS 696 NOCHIME 684 BICLOCKPARMS 676 ROMAN 666 BICLOCKPARMS 657 ARABIC 644 BICLOCKPARMS 636 HOUR 624 BICLOCKPARMS 615 3HOUR 602 BICLOCKPARMS 594 NODIG 583 BICLOCKPARMS 574 MINHOURMARKS 560 BICLOCKPARMS 552 HOURMARKS 540 BICLOCKPARMS 531 3HOURMARKS 518 BICLOCKPARMS 510 NOMARKER 499 BICLOCKPARMS 490 SHADOW 481 BLACK 472 WHITE 460 BICLOCKPARMS 452 SOFF 441 BICLOCKPARMS 432 SON 397 DEFAULTMENUHELDFN 388 CLRPROMPT 372 |MENUTYPE#| 359 LASTMOUSEBUTTONS 319 BICLOCKPARMS 299 BICLOCKPARMS 286 LASTMOUSEBUTTONS 269 PARMS 226 LASTMOUSEBUTTONS 189 \LASTKEYSTATE 168 \LASTKEYSTATE 147 \LASTKEYSTATE 128 HARDRESET 123 RESTARTABLE 110 QUOTE 88 PARMS 78 QUOTE 56 BICLOCKPROCESS 51 PROCESS 39 PROMPTWINDOW 23 PROMPTWINDOW) ( 792 (NOMARKER 3HOURMARKS HOURMARKS MINHOURMARKS NODIG 3HOUR HOUR ARABIC ROMAN) 379 (("Seconds On" (QUOTE SON)) ("Seconds Off" (QUOTE SOFF)) ("White" (QUOTE WHITE) "White with border" (SUBITEMS ("Shadow" (QUOTE SHADOW) "White with shadow"))) ("Black" (QUOTE BLACK)) ("Markers" (QUOTE MINSEC) "Use Submenu to Change number of Markers" (SUBITEMS ("No markers" (QUOTE NOMARKER)) ("3/6/9/12 Markers" (QUOTE 3HOURMARKS)) ("Only hours" (QUOTE HOURMARKS)) ("Hours and minutes" (QUOTE MINHOURMARKS)))) ("Digits" (QUOTE HOUR) "Use Submenu to Change number of Digits" (SUBITEMS ("No Digits" (QUOTE NODIG)) ("3/6/9/12 Hours" (QUOTE 3HOUR)) ("All Hours" (QUOTE HOUR)) ("Arabic digits" (QUOTE ARABIC)) ("Roman digits" (QUOTE ROMAN)))) ("Chime" (QUOTE CHIME) "Use Submenu to Change Chime interval" (SUBITEMS ("No chime" (QUOTE NOCHIME)) ("Hours" (QUOTE CHIME)) ("Hours and quarters" (QUOTE CHIME15MIN)))) ("Set Alarm" (QUOTE ALARM)) ("Alarm Off" (QUOTE AOFF))) 342 " NO ALARM SET" 313 " ALARM AT " 34 "RESTARING BICLOCK PROCESS") BICLOCKCFN :D8 (I 0 W) @ É. (12 DEL.PROCESS 5 \INSUREWINDOW) NIL () BICLOCKFINDFONTA0001 :D8 (L (1 F2 0 F1) F 1 MODERNCLASSIC) ZQ²"@do ²¿Ao hðµ%@Aóµ@A ´oHµhd@ð‘iAð³óHX°ë(54 EQP 30 MEMB 15 MEMB) NIL ( 61 (MODERN CLASSIC GACHA HELVETICA HELVETICAD TERMINAL) 25 (MODERN CLASSIC) 10 (MODERN CLASSIC)) BICLOCKFINDFONT :D8 (P 0 ALLFONTS I 1 MODERNCLASSIC I 0 SIZE) =gdgjg !Hg HYµhZ@ó¤JµiI°ì(36 SORT 22 FONTSAVAILABLE) (31 BICLOCKFINDFONTA0001 16 DISPLAY 10 MRR 4 *) () BICLOCKNRFN :D8 (P 1 DY P 0 DX I 1 MP I 0 FP) MAµ@@ÙA@ÙjHñ¡H‚jHÙjIñ¡I‚jIÙñ²A@HjHIÚó’mÿ€kÚØ°A@IjHIÚó’mÿ€kÚØANIL NIL () BICLOCKPROCESS :D8 (P 70 DEL P 69 N P 67 DY P 65 DX P 63 DY P 61 DX P 59 T1 P 58 V P 57 I P 55 SYM P 54 V P 53 H P 51 LASTCHIME P 50 INVERTFLG P 49 NOSEC P 48 REF P 47 CL0 P 46 SECS P 45 NOW P 44 DIGFONT P 43 DIGW P 42 HOURW P 41 MINW P 40 SECW P 39 MARK1W P 38 MARKW P 37 CIRCW P 36 HOURR P 35 MINR P 34 SECR P 33 DOTR P 32 MARK1LR P 31 MARKLR P 30 MARKUR P 29 R P 28 HP P 27 MP P 26 HY P 25 HX P 24 MY P 23 MX P 22 S P 21 CHIMECOUNT P 20 LIMIT P 19 MEAN P 18 SMODE P 17 SLOWMODE P 16 SY P 15 SX P 14 YC P 13 XC P 12 SHADOW P 11 BM1 P 10 BG P 9 BM P 1 HEIGHT P 0 WIDTH I 1 PARMS I 0 W) BGoh@@g @g rHI HI HI HI HlÛIlÛl¿O:oÖ_@¿O:oÖ_B¿O:oÖ_D¿O:oÖ_F¿¿O:oÖ_H¿O:oÖ_J¿O:AÉgð•o„oÖ_L¿O:oÖ_N¿O:oÖºkJñ¡J€k_P¿O:oÖ»lKñ¡Kl_R¿O:oÖ¼lLñ¡Ll_T¿O:AÉ3•o„oÖ_V¿O _,¿OO, ¿OO, ¿O:oÖ _XµO:AÉ3²ÖO4O>ÖOLgO, ¿OX¢±¤AÉ3¢±–OjAÉ ^jð¬N²}N ²uAÉ oOj Oj_n¿O2OVÖOnO, l×ÕO4OVÖAÉ ²O,È l×O,È Õ‹O,Èl×ÕO,¿OnO, ¿OjkÔ_j¿OlmâÔ_l¿±þÔl;jlZ:OrOpó’±ž¿OOrOt _.ODÖjØ¿O OrOt _0ODÖjØ¿AÉ3²IOrAÉ _jð®O²/O ²&O.ODÖO0ODÖO.O@ÖO0O@ÖONgO, ¿OrkÔ_r¿OtmúÔ_t¿±ÿ_¿jdOBnÿÿO, ¿OhdO¿;Ovÿ—¿°ñj nôØ_`OhdO¿_Z¿AÉ˜AÉOZ _nÖOl<ÖØOØ_\¿O"•¿O8O\lxÛ —jdO2O4°%jdO\lxÛ_8 OHÖjØ_2O8 OHÖjØ_4OTgO, ¿O"•¿O6O\l Û —jdO.O0°%jdO\l Û_6 OFÖjØ_.O6 OFÖjØ_0ORgO, ¿O"•¿Ob³4jdOO\l< O O\l< OPgO, ¿O"•¿AÉgð²nOhdO¿kj=OzOxó³Sjmþ?O~O|ó³=Ozjð—O~djð³+¿O"•¿OhdOOzO~hdgg ¿O~kÔ_~°ÂOzkÔ_z°¬°mOhdO¿kmÿAO‚O€ó³SkmÿCO†O„ó³=O‚jð—O†djð³+¿O"•¿OhdOO‚O†hdgg ¿O†kÔ_†°ÂO‚kÔ_‚°¬O"•¿@ ¿@ ÉhdO¿OhdOhdddgAÉdgð§dgð–¿gŒgð´g ¿O"•¿OhdOhdddgAÉdgð§dgð–¿gŒgð´g ¿Ohd@hdddOd•g„gg ¿O"¢±QAÉ²UOf²LOfAÉl<ÖÛO\AÉl<ÖÛÿ³2Of²)O\l<Ûl< jÿ²O\l") 32 ("") 27 ("

")) BICLOCKSETALARM1 :D8 (P 2 OLDTIME I 2 MODULOFLG I 1 DSEC I 0 W) „@g HÉµ l<ÔHB²3JHÉ YnÚIl<ÚØIØA Õ‚JAØHÉ HÉ (129 PROMPTPRINT 124 GDATE 111 NOTIFY.EVENT 90 IMOD 57 \UNPACKDATE 28 DAYTIME 10 GETWINDOWUSERPROP) (117 BICLOCKPARMS 104 BICLOCKPARMS 50 BICLOCKPARMS 40 BICLOCKPARMS 19 BICLOCKPARMS 5 PARMS) () BICLOCKSETALARM2 :D8 (I 0 W) F@g HhHÉ @g @g (67 CLOSEW 62 GETWINDOWUSERPROP 51 DETACHWINDOW 46 GETWINDOWUSERPROP 35 NOTIFY.EVENT 10 GETWINDOWUSERPROP) (57 ADJUSTMENUW 41 ADJUSTMENUW 28 BICLOCKPARMS 19 BICLOCKPARMS 5 PARMS) () IDLE.BICLOCKA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 BW I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 W F 3 BICLOCKIDLEPROPS) hS gHhhdQcnˆ ¿HÉRð¦R ¿Hj`Hg Õ j`Hg Õ ¿°µ(99 MOVEW 94 RAND 88 GETWINDOWPROP 71 RAND 65 GETWINDOWPROP 46 TOTOPW 33 BLOCK 5 BICLOCK) (83 HEIGHT 77 SCREENHEIGHT 60 WIDTH 54 SCREENWIDTH 13 CLOSEW) () IDLE.BICLOCK :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 W F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 IDLE.BICLOCKA0001) (8 SI::RESETUNWIND) () (PRETTYCOMPRINT BICLOCKCOMS) (RPAQQ BICLOCKCOMS ((FNS BICLOCK BICLOCKBEFN BICLOCKCFN BICLOCKFINDFONT BICLOCKNRFN BICLOCKPROCESS BICLOCKRPFN BICLOCKRSFN BICLOCKSETALARM BICLOCKSETALARM1 BICLOCKSETALARM2 IDLE.BICLOCK) (RECORDS BICLOCKPARMS UPTIMEREC) (INITVARS (BICLOCKWINDOW) (BICLOCKDEFAULTPROPS (QUOTE (SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE 152 HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T))) ( BICLOCKUSERPROPS) (BICLOCKINITIALPROPS) (BICLOCKIDLEPROPS (QUOTE (HORIZONTAL CENTER VERTICAL CENTER))) ) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL BICLOCKWINDOW BICLOCKDEFAULTPROPS BICLOCKUSERPROPS BICLOCKINITIALPROPS BICLOCKIDLEPROPS)))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BICLOCKWINDOW (BICLOCK BICLOCKINITIALPROPS)))) (ADDVARS (IDLE.FUNCTIONS (Biclock (QUOTE IDLE.BICLOCK))) ( IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA BICLOCK))))) (DATATYPE BICLOCKPARMS (SECONDSMODE COLORMODE MARKMODE DIGMODE CHIMEMODE ROMANDIGS ALARMTIME ADJUSTALARM ADJUSTEVENT)) (RECORD UPTIMEREC (YEAR MONTH DAY HOUR MINUTE SECOND QQQ)) (/DECLAREDATATYPE (QUOTE BICLOCKPARMS) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((BICLOCKPARMS 0 POINTER) (BICLOCKPARMS 2 POINTER) (BICLOCKPARMS 4 POINTER) (BICLOCKPARMS 6 POINTER) (BICLOCKPARMS 8 POINTER) (BICLOCKPARMS 10 POINTER) (BICLOCKPARMS 12 POINTER) (BICLOCKPARMS 14 POINTER) (BICLOCKPARMS 16 POINTER))) (QUOTE 18)) (RPAQ? BICLOCKWINDOW) (RPAQ? BICLOCKDEFAULTPROPS (QUOTE (SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE 152 HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T))) (RPAQ? BICLOCKUSERPROPS) (RPAQ? BICLOCKINITIALPROPS) (RPAQ? BICLOCKIDLEPROPS (QUOTE (HORIZONTAL CENTER VERTICAL CENTER))) (CL:PROCLAIM (QUOTE (CL:SPECIAL BICLOCKWINDOW BICLOCKDEFAULTPROPS BICLOCKUSERPROPS BICLOCKINITIALPROPS BICLOCKIDLEPROPS))) (RPAQ BICLOCKWINDOW (BICLOCK BICLOCKINITIALPROPS)) (ADDTOVAR IDLE.FUNCTIONS (Biclock (QUOTE IDLE.BICLOCK))) (ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS) (PUTPROPS BICLOCK COPYRIGHT ("Bernt Nilsson @ University of Linkoeping" 1984 1985 1986 1987 1988)) NIL