(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Jul-94 01:59:07" ("compiled on " {DSK}lispusers>CROCK.;1) " 2-Jun-94 10:43:09" bcompl'd in "Medley 2-Jun-94 ..." dated " 2-Jun-94 10:52:50") (FILECREATED " 2-Apr-87 00:37:46" {ERIS}LYRIC>CROCK.;2 17791 previous date%: "11-Jan-86 19:46:27" {PHYLUM}LYRIC>CROCK.;1) CROCK :D8 (I 0 REGION) W` "@o b @`@ g ogi h(83 ADD.PROCESS 67 DEL.PROCESS 56 SHAPEW 37 CREATEW 30 GETREGION 24 PROMPTPRINT 9 WINDOWP) (77 RESTARTABLE 62 CROCK.PROCESS 50 CROCKWINDOW 42 CROCKWINDOW 4 CROCKWINDOW) ( 72 (CROCK.PROCESS) 19 "Please indicate a region for the clock") CROCK.BUTTONEVENTFN :D8 (I 0 WINDOW) >`dkj@ lHj HH gg h(57 WAKE.PROCESS 40 \FZEROP 17 CROCK.CHANGE.STYLE) (52 REPAINT 47 CROCK.PROCESS 4 LASTMOUSEBUTTONS) () CROCK.CHANGE.STYLEA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS*) (4 SETTIME) NIL () CROCK.CHANGE.STYLE :D8 (P 5 SI::*RESETFORMS* P 3 NO.CHANGE P 2 STYLE P 1 COMMAND P 0 MENU I 0 WINDOW F 6 CROCK.STYLE.MENU F 7 CROCK.DEFAULT.STYLE) PV6`dodg dgjdndhdL c Xd Y@g ZIi[Dg7g` hhhg $IdgW ZgJgi IdgJgh gJgi IdgJgh gJgi |IdgJgh cgJgi MIdgJgg /gJgh IdgJ ci[g` o` ` lh` o` Jg'oo` o` Jg'oo` o` Jg'oo` o` Jg'oo` i[K@gJ gg h(692 WAKE.PROCESS 676 PUTWINDOWPROP 660 SHOULDNT 651 PRIN1 621 PRIN1 605 PRIN1 575 PRIN1 559 PRIN1 529 PRIN1 513 PRIN1 483 PRIN1 467 TAB 453 TERPRI 442 PRIN1 426 TERPRI 398 COPY 379 LISTPUT 357 LISTPUT 327 LISTPUT 305 LISTPUT 280 LISTPUT 258 LISTPUT 233 LISTPUT 211 LISTPUT 186 LISTPUT 163 COPY 138 SI::RESETUNWIND 133 \MVLIST 128 CROCK.CHANGE.STYLEA0006 108 TTY.PROCESS 76 GETWINDOWUSERPROP 64 MENU) (687 CHANGE.STYLE 682 CROCK.PROCESS 670 STYLE 646 PROMPTWINDOW 628 TIMES 616 PROMPTWINDOW 600 PROMPTWINDOW 582 HANDS 570 PROMPTWINDOW 554 PROMPTWINDOW 536 RINGS 524 PROMPTWINDOW 508 PROMPTWINDOW 490 NUMBERS 478 PROMPTWINDOW 462 PROMPTWINDOW 448 PROMPTWINDOW 437 PROMPTWINDOW 421 PROMPTWINDOW 411 SHOW.STYLE 389 CHANGE.DEFAULT 373 NUMBERS 365 NO.NUMBERS 352 POINTS 347 NUMBERS 337 POINTS 321 NUMBERS 313 NUMBERS 299 RINGS 290 NO.RINGS 274 RINGS 266 RINGS 252 TIMES 243 NO.TIMES 227 TIMES 219 TIMES 205 HANDS 196 NO.HANDS 180 HANDS 172 HANDS 153 SET.TO.DEFAULT 123 SI::RESETUNWIND 103 \RUNNING.PROCESS 98 TTY.PROCESS 90 SETTIME 71 STYLE 35 DEFAULTMENUHELDFN 26 CLRPROMPT 10 |MENUTYPE#|) ( 641 "no" 635 "yes" 611 "; Times: " 595 "no" 589 "yes" 565 "; Hands: " 549 "no" 543 "yes" 519 "; Rings: " 503 "no" 497 "yes" 473 "Numbers: " 432 "CROCK style: " 17 (NUMBERS POINTS NO.NUMBERS RINGS NO.RINGS HANDS NO.HANDS TIMES NO.TIMES (" " NIL) SHOW.STYLE SET.TO.DEFAULT CHANGE.DEFAULT (" " NIL) SETTIME)) CROCK.CLOSEFN :D8 (I 0 WINDOW) gg (14 WAKE.PROCESS) (9 CLOSING 4 CROCK.PROCESS) () CROCK.PROCESS :D8 (P 34 RAD P 33 I P 31 OLDHOURS P 30 1APR P 29 STRPTR P 28 FONT P 27 CHANGE.STYLE P 26 FONTHALFHEIGHT P 25 NUM P 24 MINUTEANGLE P 23 HOURANGLE P 22 HEIGHT P 21 WIDTH P 20 OLDMINUTES P 19 SECONDS P 18 MINUTES P 17 HOURS P 16 DATE P 15 UDATE P 14 IDATE P 13 DONE P 12 OUTLINEDSP P 11 OUTLINE P 10 CLIPPINGREGION P 9 STYLE P 8 DS P 7 HOURHANDSIZE P 6 MINUTEHANDSIZE P 5 INSIDERADIUS P 4 RADIUS P 3 YCENTER P 2 XCENTER P 1 HALFSIZE P 0 SIZE F 35 CROCK.DATEFORMAT F 36 CROCK.ALARMS) s# ` WF _:` _i_6hO __*lۺOl _,lۻO,dO*O*Xl۹oI \l ٽoM_oMO*O, __OO l2Lgl gl g _8O O8O `g _k__(_6jgO JKLlhO JKllhO Og'!JKOlhO JKNlhO Og'diO8 lO8 _4l k!OBdO@ _2O.OO$_(`O O ` WHOWHnl