(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 9-Sep-94 09:32:34" ("compiled on " |{DSK}lispusers>DIGI-CLOCK.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED "15-Mar-89 16:24:43" {ERIS}DOC>HACKS>DIGI-CLOCK.\;5 50813 |changes| |to:| ( VARS DIGI-CLOCKCOMS) (FNS DC-DELETE-ALARM-SETTING DIGI-CLOCK DC-KILL-PROCESS DC-PROMPT-FOR-ALARM-MESSAGE DC-START-PROCESS DC-ADD-AUXW DC-SHAPE-TO-FIT DC-SET-ALARM) |previous| |date:| "22-Feb-89 16:50:15" {ERIS}DOC>HACKS>DIGI-CLOCK.\;4) DIGI-CLOCK :D8 (I 0 RESTART-FROM-SCRATCH F 0 IDLE.SUSPEND.PROCESS.NAMES) Ro šo ¿oP ©oPc¿g@hgogi (79 ADD.PROCESS 48 BLOCK 32 MEMBER 20 DEL.PROCESS 9 FIND.PROCESS) (72 RESTARTABLE 62 NAME 53 DC-START-PROCESS) ( 67 "DIGITAL CLOCK" 38 "DIGITAL CLOCK" 26 "DIGITAL CLOCK" 15 "DIGITAL CLOCK" 4 "DIGITAL CLOCK") DC-START-PROCESS :D8 (I 0 RESTART-FROM-SCRATCH F 0 *DC-WINDOW* F 1 *DC-FONT* F 2 *DC-OLD-DATE* F 3 *DC-DATEFORMAT* F 4 *DC-AUXW-FONT*) jó•„oc¿g ²8PggP É$ ¿P ¿Pgg¿@¯g ”P’±¡k`l.Ùn®l. cgg¿oc¿Pgg¿Pgg¿gl c¿gl$ c¿Pgg¿Pgi¿QP ¿¿(268 DC-PROCESS 262 DC-ADD-AUXW 256 DSPFONT 248 PUTWINDOWPROP 235 PUTWINDOWPROP 216 FONTCREATE 201 FONTCREATE 188 PUTWINDOWPROP 171 PUTWINDOWPROP 146 PUTWINDOWPROP 129 CREATEW 124 CREATEREGION 99 BOUNDP 86 PUTWINDOWPROP 69 CLOSEW 62 PUTWINDOWPROP 57 REMOVE 50 \\INSUREWINDOW 31 BOUNDP 12 DATE 4 IDATE) (242 CAN-UPDATE 230 LOUD 225 ALARM-MODE 209 HELVETICA 194 HELVETICA 183 DC-KILL-PROCESS 178 CLOSEFN 166 DC-BUTTONEVENTFN 161 BUTTONEVENTFN 141 DON\'T 136 RESHAPEFN 111 SCREENHEIGHT 94 *DC-WINDOW* 81 DC-KILL-PROCESS 76 CLOSEFN 44 DC-KILL-PROCESS 39 CLOSEFN 26 *DC-WINDOW*) ( 152 (DATEFORMAT SPACES NO.SECONDS DAY.OF.WEEK DAY.SHORT) 18 " 1-Jan-88 08:00:00") DC-KILL-PROCESS :D8 NIL o ´o (21 DEL.PROCESS 9 FIND.PROCESS) NIL ( 16 "DIGITAL CLOCK" 4 "DIGITAL CLOCK") DC-BUTTONEVENTFN :D8 (I 0 WINDOW F 0 *DC-WINDOW* F 1 *DC-DATEFORMAT*) ™Pg ´‚±‰Pgh@ ¿`kåjð’±<dgð’±+dgðœ¿¢±±dgð˜¿±dgð˜¿±ôdgð˜¿±Ødgð˜¿±Òdgð²¿Pgg±µdgð²¿Pgg±˜dgðž¿Pgi°udgðž¿Pgh°^dgð²!¿Pogg¿@ °6dgð—¿°1gð²*PQ Pg ¿ ¿¿`låjðª ¿Pgi(406 PUTWINDOWPROP 393 DC-UPDATE 388 IDATE 371 GETMOUSESTATE 365 DC-UPDATE 360 IDATE 354 DC-SHAPE-TO-FIT 349 DC-MAKE-DISPLAY-TIME-STRING 344 GETWINDOWUSERPROP 333 DATE 316 DC-ADD-AUXW 300 DC-SET-TIME-ZONE 293 DC-PRINT-JUSTIFIED-STRING 260 PUTWINDOWPROP 237 PUTWINDOWPROP 213 PUTWINDOWPROP 184 PUTWINDOWPROP 155 DC-DELETE-ALARM-SETTING 138 DC-TURN-ALARM-OFF 121 DC-SET-ALARM 104 DC-SET-TIME 83 DC-SET-FONT 58 DC-GET-OPERATION 39 GETMOUSESTATE 34 TOTOPW 28 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (400 CAN-UPDATE 377 LASTMOUSEBUTTONS 339 12-HOUR-MODE 323 |Shape to Fit| 308 |Add New Regional Time Zone| 288 CLEARW 283 CENTER 268 |Set Local Time Zone| 254 12-HOUR-MODE 245 |24-Hour Clock| 231 12-HOUR-MODE 222 |12-Hour Clock| 208 LOUD 203 ALARM-MODE 193 |Loud Alarm| 179 QUIET 174 ALARM-MODE 164 |Quiet Alarm| 147 |Delete Alarm Setting| 130 |Turn Alarm Off| 113 |Set Alarm| 96 |Set Time| 75 |Set Font| 64 * 45 LASTMOUSEBUTTONS 22 CAN-UPDATE 5 CAN-UPDATE) ( 278 "Select Local Time Zone") DC-AUXW-BUTTONEVENTFN :D8 (I 0 WINDOW F 0 *DC-WINDOW*) ÒPg ´‚±ÂPgh@ ¿`kåjð³vdgð³gdgðŸ¿@g ²R°Edgðš¿@ ²?°2dgð˜¿@ °+dgð—¿@ gð²@ ¿ ¿¿`låjðª ¿Pgi(207 PUTWINDOWPROP 194 DC-UPDATE 189 IDATE 172 GETMOUSESTATE 166 DC-UPDATE 161 IDATE 155 DC-SET-TIME-ZONE 140 DC-SET-TIME-ZONE-HEADING 123 DC-DELETE-AUXW 104 DC-SET-FONT 85 DC-SET-FONT 56 DC-AUXW-GET-OPERATION 39 GETMOUSESTATE 34 TOTOPW 28 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (201 CAN-UPDATE 178 LASTMOUSEBUTTONS 146 |Set Regional Time Zone| 131 |Set Time-Zone Heading| 114 |Delete This Window| 95 |Set Aux Clock Font In Just This Window| 80 ALL-AUXW 71 |Set Font for Aux Clocks| 62 * 45 LASTMOUSEBUTTONS 22 CAN-UPDATE 5 CAN-UPDATE) () DC-SET-TIME-BUTTONEVENTFN :D8 (P 0 DISPLAY-TIME I 2 BUTTON I 1 MENU I 0 ITEM F 1 *DC-SET-TIME-MENUW* F 2 *DC-SET-TIME-WINDOW* F 3 *DC-WINDOW* F 4 *DC-OLD-DATE*) §@dgð²S¿Q Rg š cSg ªnè ¿°ë gð–Q @ o XdSg XRHgg(164 DC-PRINT-JUSTIFIED-STRING 146 DC-MAKE-DISPLAY-TIME-STRING 141 GETWINDOWUSERPROP 128 DC-CONVERT-DATE-FORMAT 118 DC-SET-TIME-MAKE-DATE-STRING 113 DC-UPDATE-TIME-ITEM 106 CLOSEW 92 DC-UPDATE 87 IDATE 79 BLOCK 70 GETWINDOWUSERPROP 57 DATE 52 SETTIME 47 DC-SET-TIME-MAKE-DATE-STRING 41 DC-ADD-ALARM-SETTING 36 DC-SET-TIME-MAKE-DATE-STRING 30 GETWINDOWUSERPROP 19 CLOSEW) (159 CLEARW 154 CENTERED 136 12-HOUR-MODE 98 |Esc| 65 CAN-UPDATE 25 SETTING-ALARM 9 |Set|) ( 123 (DATEFORMAT NO.SECONDS)) ST :D8 (I 4 YEAR I 3 MONTH I 2 DATE I 1 MINUTE I 0 HOUR F 0 *DC-OLD-DATE*) }g §oc¿@¢P°SA£jb¿B«Pklb¿C¬Pllb¿D¬Pll b¿CoBoDo@oA ¿c(120 DATE 115 CLRPROMPT 109 SETTIME 104 CONCAT 70 SUBSTRING 55 SUBSTRING 40 SUBSTRING 9 BOUNDP) (4 *DC-OLD-DATE*) ( 97 ":" 91 " " 85 "-" 79 "-" 15 " 1-Jan-88 08:00:00") DC-PROCESS :D8 (F 0 *DC-WINDOW*) >Pg ²'Pgh¿ ¿Pgi¿nê` ¿°Å(57 BLOCK 48 PUTWINDOWPROP 35 DC-UPDATE 30 IDATE 24 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (42 CAN-UPDATE 18 CAN-UPDATE 5 CAN-UPDATE) () DC-UPDATE :D8 (P 2 WINDOW P 1 AUX-CLOCKS P 0 MERIDIAN I 0 ITIME F 3 *DC-WINDOW*) TSg Sg @jñ²1@H @ š¿IY°IŽd@HJµðh(81 DC-WARNING-TIME-NOT-SET 69 DC-AUXW-UPDATE 48 DC-RING-ALARM 42 DC-ALARM-DUE-TO-RING? 36 DC-DISPLAY-TIME 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (16 ATTACHEDWINDOWS 5 12-HOUR-MODE) () DC-GET-OPERATION :D8 (P 0 MENU-LIST F 2 *DC-WINDOW*) ÃgggRg gð•g„gRg –g°Rg •g„ggRg •g„gggh`dH¿di¿dg ¿dg¿jdnÿdh¹dI ¿ (192 MENU 101 GETWINDOWUSERPROP 73 GETWINDOWUSERPROP 54 GETWINDOWUSERPROP 25 GETWINDOWUSERPROP) (167 DEFAULTMENUHELDFN 158 CLRPROMPT 141 |MENUTYPE#| 123 |Add New Regional Time Zone| 118 |Set Local Time Zone| 113 |12-Hour Clock| 107 |24-Hour Clock| 96 12-HOUR-MODE 90 |Shape to Fit| 85 || 79 |Delete Alarm Setting| 68 ALARM-LIST 60 |Turn Alarm Off| 49 ALARM-RINGING 43 |Quiet Alarm| 37 |Loud Alarm| 30 QUIET 20 ALARM-MODE 14 |Set Alarm| 9 |Set Time| 4 |Set Font|) () DC-AUXW-GET-OPERATION :D8 NIL B`do¿di¿dg ¿dg¿jdnÿdhHdI ¿ (63 MENU) (34 DEFAULTMENUHELDFN 25 CLRPROMPT 4 |MENUTYPE#|) ( 11 (|Delete This Window| (|Set Font for Aux Clocks| (QUOTE |Set Font for Aux Clocks|) NIL (SUBITEMS |Set Aux Clock Font In Just This Window|)) |Set Time-Zone Heading| |Set Regional Time Zone|)) DC-ADD-AUXW :D8 (P 3 AUXW P 2 WINDOW-HEIGHT P 1 MERIDIAN P 0 ITIME F 4 *DC-WINDOW* F 5 *DC-AUXW-FONT* F 6 *DC-DATEFORMAT* F 7 *DC-OLD-DATE*) ¼Tg UÈ k`JÙn®Jhdi[dTggUK KoggK ²AKggTHV I Hjñ˜HIKW IKK K (185 CLOSEW 179 DETACHWINDOW 172 DC-AUXW-UPDATE 165 IDATE 157 DC-AUXW-UPDATE 145 DC-SHAPE-TO-FIT 140 DC-MAKE-DISPLAY-TIME-STRING 134 GDATE 126 PUTWINDOWPROP 108 DC-SET-TIME-ZONE 102 DC-PRINT-JUSTIFIED-STRING 81 DSPFONT 74 ATTACHWINDOW 56 CREATEW 48 CREATEREGION 28 HEIGHTIFWINDOW 15 GETWINDOWUSERPROP 4 IDATE) (121 DC-AUXW-BUTTONEVENTFN 116 BUTTONEVENTFN 97 CLEARW 92 CENTER 69 JUSTIFY 64 BOTTOM 37 SCREENHEIGHT 21 FONTDESCRIPTOR 10 12-HOUR-MODE) ( 87 "Select Time Zone for this Window") DC-DELETE-AUXW :D8 (P 1 W P 0 WINDOW-LIST I 0 WINDOW F 2 *DC-WINDOW*) M@ @ Rg HŒdI µòH°dIRggµçh(68 ATTACHWINDOW 38 DETACHWINDOW 22 GETWINDOWUSERPROP 11 CLOSEW 5 DETACHWINDOW) (63 JUSTIFY 58 BOTTOM 17 ATTACHEDWINDOWS) () DC-AUXW-UPDATE :D8 (P 3 DISPLAY-TIME P 2 REGIONAL-TIME P 1 TIME-OFFSET P 0 LOCATION I 2 WINDOW I 1 MERIDIAN I 0 ITIME F 4 *DC-DATEFORMAT*) JBg Bg "T@IZdA [BHggBKgK(70 DC-PRINT-JUSTIFIED-STRING 58 DC-PRINT-JUSTIFIED-STRING 40 DC-MAKE-DISPLAY-TIME-STRING 32 DC-GET-DATE 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (65 RIGHT 53 CLEARW 48 LEFT 16 TIME-ZONE-OFFSET 5 LOCATION) () DC-WARNING-TIME-NOT-SET :D8 (P 2 W P 1 I P 0 WINDOWS F 3 *DC-WINDOW*) `Sdg SoggkYl ó‘hH°&dld ¿J ¿ld ¿J µÛIkÔ°Ì(84 INVERTW 77 BLOCK 69 INVERTW 62 BLOCK 36 DC-PRINT-JUSTIFIED-STRING 11 GETWINDOWUSERPROP) (31 CLEARW 26 CENTER 6 ATTACHEDWINDOWS) ( 21 "Time not set.") DC-SET-TIME :D8 (F 0 *DC-SET-TIME-WINDOW*) Pgh(16 PUTWINDOWPROP 4 DC-INITIALIZE-SET-TIME-MENU) (10 SETTING-ALARM) () DC-UPDATE-TIME-ITEM :D8 (P 1 ITEM P 0 CHANGE I 0 ITEM F 2 *DC-SET-TIME-WINDOW*) R@@Hgð¢±¤RIRI kØ ’±„Idgð¿Rgkdgð²%¿Rg lñœRgkgðœRgkIgð§Igð˜RIjRIRI kÙhRIRI kÙ ³äIdgð–¿gð²kRg ñ²åRglIdgðž¿Rglcgð™RIlIgð™RIl;RIRI kØ(335 WINDOWPROP 328 WINDOWPROP 318 WINDOWPROP 300 WINDOWPROP 283 PUTWINDOWPROP 259 PUTWINDOWPROP 243 GETWINDOWUSERPROP 222 DC-SET-LAST-DAY-FOR-MONTH 205 DC-VALID-DATE-P 200 DC-SET-TIME-MAKE-DATE-STRING 195 WINDOWPROP 188 WINDOWPROP 176 WINDOWPROP 169 WINDOWPROP 159 WINDOWPROP 134 PUTWINDOWPROP 114 DC-SET-LAST-DAY-FOR-MONTH 108 PUTWINDOWPROP 92 GETWINDOWUSERPROP 70 PUTWINDOWPROP 44 DC-VALID-DATE-P 39 DC-SET-TIME-MAKE-DATE-STRING 34 WINDOWPROP 27 WINDOWPROP) (307 MIN 289 HR 276 YR 267 YR 252 MO 238 MO 228 MO 214 DY 149 MIN 141 HR 128 YR 120 YR 102 MO 87 MO 77 MO 64 DY 55 DY 13 +) () DC-VALID-DATE-P :D8 (I 0 DATE-STRING) @ ´@(5 IDATE) NIL () DC-SET-LAST-DAY-FOR-MONTH :D8 (F 1 *DC-SET-TIME-WINDOW*) ªQg dlð²B¿Qg lÜHjðµ H´H QglQgldlð®dlð©dl ð¤dlðž¿Qgldkð³#dlð³dlð³dlð¯dlðªdl ð¥dlð´¿Qgl(167 PUTWINDOWPROP 114 PUTWINDOWPROP 79 PUTWINDOWPROP 65 PUTWINDOWPROP 50 \\FZEROP 28 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (160 DY 107 DY 72 DY 58 DY 23 YR 5 MO) () DC-INITIALIZE-SET-TIME-MENU :D8 (P 2 DISPLAY-TIME P 1 DATE-STRING P 0 MERIDIAN F 3 *DC-OLD-DATE* F 4 *DC-SET-TIME-MENUW* F 5 *DC-WINDOW* F 6 *DC-SET-TIME-WINDOW*) ƒg ‘T¥¿Ug !S ñ²So ¹So °o ¹o ZH ZVJggI (128 DC-EXTRACT-STARTING-SET-TIME-DATE 122 DC-PRINT-JUSTIFIED-STRING 105 DC-OPEN-SET-TIME-MENUW 99 DC-MAKE-DISPLAY-TIME-STRING 92 DATE 81 DATE 69 DC-CONVERT-DATE-FORMAT 57 DC-CONVERT-DATE-FORMAT 43 IDATE 38 IDATE 29 GETWINDOWUSERPROP 17 DC-MAKE-NEW-SET-TIME-MENU 9 BOUNDP) (117 CLEARW 112 CENTERED 24 12-HOUR-MODE 4 *DC-SET-TIME-MENUW*) ( 87 (DATEFORMAT NO.SECONDS) 76 (DATEFORMAT NUMBER.OF.MONTH NO.SECONDS) 64 (NO.SECONDS) 52 (NUMBER.OF.MONTH NO.SECONDS)) DC-MAKE-NEW-SET-TIME-MENU :D8 (P 1 MENU-FONT P 0 TITLE-FONT F 3 *DC-SET-TIME-MENUW* F 4 *DC-SET-TIME-WINDOW*) gl gl `do¿dl¿dI¿dH$¿do¿dg¿dg ¿dg¿jdnÿdhºdJ ¿ c``lxlhdicdSggIT (170 DSPFONT 163 ATTACHWINDOW 144 CREATEW 136 CREATEREGION 115 ADDMENU 23 FONTCREATE 11 FONTCREATE) (158 JUSTIFY 153 TOP 127 LASTMOUSEY 122 LASTMOUSEX 90 DEFAULTMENUHELDFN 81 CLRPROMPT 72 DC-SET-TIME-BUTTONEVENTFN 31 |MENUTYPE#| 16 HELVETICA 4 HELVETICA) ( 63 "DY MO YR HR MIN SET " 38 ((+ DY) (\ - DY) (+ MO) (\ - MO) (+ YR) (\ - YR) (+ HR) (\ - HR) (+ MIN) (\ - MIN) |Set| |Esc|)) DC-OPEN-SET-TIME-MENUW :D8 (P 0 CLOCK-REGION F 1 *DC-SET-TIME-MENUW* F 2 *DC-WINDOW*) DR ÉHHØl×Ø`ñ—QRg†QRgg¿Q Q (65 OPENW 59 DETACHWINDOW 52 ATTACHWINDOW 5 \\INSUREWINDOW) (47 TOP 42 RIGHT 34 LEFT 25 SCREENWIDTH) () DC-EXTRACT-STARTING-SET-TIME-DATE :D8 (I 0 DATE-STRING F 0 *DC-SET-TIME-WINDOW*) ž@kdoôšPg@ld‰Pg@kl ¿Pg@ll Pg@ll Pg@l l Pg@l l (155 PUTWINDOWPROP 150 MKATOM 145 SUBSTRING 129 PUTWINDOWPROP 124 MKATOM 119 SUBSTRING 103 PUTWINDOWPROP 98 MKATOM 93 SUBSTRING 77 PUTWINDOWPROP 72 MKATOM 67 SUBSTRING 50 PUTWINDOWPROP 45 MKATOM 40 SUBSTRING 7 SUBSTRING) (135 MIN 109 HR 83 YR 57 MO 31 DY 20 DY) ( 12 " ") DC-SET-TIME-MAKE-DATE-STRING :D8 (F 0 *DC-SET-TIME-WINDOW*) SPg oPg oPg oPg oPg (80 CONCAT 74 GETWINDOWUSERPROP 58 GETWINDOWUSERPROP 42 GETWINDOWUSERPROP 26 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (69 MIN 53 HR 37 YR 21 DY 5 MO) ( 63 ":" 47 " " 31 "-" 15 "-") DC-SET-TIME-ZONE-HEADING :D8 (P 0 LOCATION I 0 WINDOW) @@g @ @ @goHh@hgo (61 PUTWINDOWPROP 56 PROMPTFORWORD 25 MOVETOUPPERLEFT 19 CLEARW 10 GETWINDOWUSERPROP) (45 TTY 31 LOCATION 5 LOCATION) ( 50 (13 27 10 9) 36 "Location Name: ") DC-SET-TIME-ZONE :D8 (P 1 W P 0 TIME-ZONE-INFO I 0 WINDOW F 2 |\\TimeZoneComp| F 3 *DC-WINDOW*) }H´r@dSð²=¿Hc¿Sg °%dIgnIg RÙÚµÜ°0gH¿@gH¿@gnHRÙÚH(121 PUTWINDOWPROP 101 PUTWINDOWPROP 87 PUTWINDOWPROP 68 PUTWINDOWPROP 60 GETWINDOWUSERPROP 33 GETWINDOWUSERPROP 4 DC-GET-TIME-ZONE) (108 TIME-ZONE-OFFSET 94 TIME-ZONE 80 LOCATION 55 TIME-ZONE 46 TIME-ZONE-OFFSET 28 ATTACHEDWINDOWS) () DC-GET-TIME-ZONE :D8 (F 2 TIME-ZONE-MENU F 3 *DC-TIME-ZONE-LIST*) Wg ’RµD`do¿dS¿di¿dg ¿dg¿jdnÿdhHdI ¿c (84 MENU 9 BOUNDP) (53 DEFAULTMENUHELDFN 44 CLRPROMPT 18 |MENUTYPE#| 4 TIME-ZONE-MENU) ( 25 "ENTER TIME ZONE") DC-SET-ALARM :D8 (F 0 *DC-SET-TIME-WINDOW*) Pgi(16 PUTWINDOWPROP 4 DC-INITIALIZE-SET-TIME-MENU) (10 SETTING-ALARM) () DC-ADD-ALARM-SETTING :D8 (P 4 ALARM-DATE P 3 MESSAGE P 2 ITIME P 1 ALARM-LIST P 0 MESSAGE-WINDOW I 0 DATE-STRING F 5 *DC-WINDOW*) pUg @ #H [UgJKIY@o bdUg bo@ \HLgg(109 DC-PRINT-JUSTIFIED-STRING 91 CONCAT 78 DC-MAKE-DISPLAY-TIME-STRING 73 GETWINDOWUSERPROP 59 DC-CONVERT-DATE-FORMAT 48 PUTWINDOWPROP 30 DC-PROMPT-FOR-ALARM-MESSAGE 21 IDATE 15 GETWINDOWUSERPROP 4 DC-GET-MESSAGE-WINDOW) (104 CLEARW 99 CENTERED 68 12-HOUR-MODE 37 ALARM-LIST 10 ALARM-LIST) ( 85 "Alarm set for: " 54 (DATEFORMAT SPACES NO.SECONDS)) DC-DELETE-ALARM-SETTING :D8 (P 5 ITEM P 2 DELETE-ITEM P 1 NEW-ALARM-LIST P 0 MENU-LIST F 6 *DC-WINDOW* F 7 *DC-DATEFORMAT*) ¼oAVg °!dWM oMHXµà`dH¿dg ¿dg¿jdnÿdh»dK ¿ ZdoôœVghJkl ZVg d\J £LI¹µïVgI(185 PUTWINDOWPROP 164 EQP 153 GETWINDOWUSERPROP 141 IDATE 136 SUBSTRING 126 PUTWINDOWPROP 105 MENU 46 CONCAT 34 DC-GET-DATE 18 GETWINDOWUSERPROP) (179 ALARM-LIST 148 ALARM-LIST 120 ALARM-LIST 80 DEFAULTMENUHELDFN 71 CLRPROMPT 59 |MENUTYPE#| 13 ALARM-LIST) ( 112 "CLEAR ALL" 39 " - " 4 ("CLEAR ALL")) DC-ALARM-DUE-TO-RING? :D8 (P 3 ALARM P 1 ALARM-LIST P 0 ALARM-RINGING I 0 ITIME F 4 *DC-WINDOW*) GTg Tg "H‘iId”Zµh»@Kýñ³TgK¿Kh¿°äJ°Ü(58 PUTWINDOWPROP 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (52 ALARM-RINGING 16 ALARM-LIST 5 ALARM-RINGING) () DC-RING-ALARM :D8 (P 2 I P 1 MESSAGE-WINDOW P 0 ALARM-MESSAGE F 3 *DC-WINDOW*) cSg IHggSg gð•kZló‘hhð ¿ln ¿JkÔ°á(91 BLOCK 83 VIDEOCOLOR 76 VIDEOCOLOR 59 RINGBELLS 47 GETWINDOWUSERPROP 36 DC-PRINT-JUSTIFIED-STRING 16 DC-GET-MESSAGE-WINDOW 10 GETWINDOWUSERPROP) (52 LOUD 42 ALARM-MODE 31 CLEARW 26 CENTERED 5 ALARM-RINGING) () DC-TURN-ALARM-OFF :D8 (P 1 ALARM P 0 TEMP-ALARM-LIST I 2 BUTTON I 1 MENU I 0 ITEM F 2 *DC-WINDOW*) FRg °dI™HIh ¸µëRgHRgh(67 DC-CLOSE-MESSAGE-WINDOW 62 PUTWINDOWPROP 50 PUTWINDOWPROP 32 \\APPEND2 13 GETWINDOWUSERPROP) (56 ALARM-RINGING 44 ALARM-LIST 8 ALARM-LIST) () DC-PROMPT-FOR-ALARM-MESSAGE :D8 (P 0 MESSAGE I 0 MESSAGE-WINDOW F 1 *DC-WINDOW* F 2 WINDOW) HQgh@ R ooh@hgo XQgiH(68 PUTWINDOWPROP 55 PROMPTFORWORD 26 MOVETOUPPERLEFT 20 CLEARW 14 PUTWINDOWPROP) (62 CAN-UPDATE 44 TTY 8 CAN-UPDATE) ( 49 (13 27 10 9) 36 "No Message" 31 " Message: ") DC-GET-MESSAGE-WINDOW :D8 (P 0 MESSAGE-WINDOW F 1 *DC-WINDOW* F 2 *DC-AUXW-FONT*) PQg µBk`lÙn®l HQggHgiRH H(76 DSPFONT 69 PUTWINDOWPROP 57 ATTACHWINDOW 37 CREATEW 32 CREATEREGION 10 GETWINDOWUSERPROP) (63 MESSAGE-WINDOW 52 JUSTIFY 47 BOTTOM 19 SCREENHEIGHT 5 ATTACHEDWINDOWS) () DC-CLOSE-MESSAGE-WINDOW :D8 (P 0 MESSAGE-WINDOW F 1 *DC-WINDOW*) *Qg Hg ´H H (39 CLOSEW 33 DETACHWINDOW 25 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (20 MESSAGE-WINDOW 5 ATTACHEDWINDOWS) () DC-DISPLAY-TIME :D8 (P 1 DISPLAY-TIME P 0 LOCAL-TIME I 1 MERIDIAN I 0 ITIME F 2 *DC-DATEFORMAT* F 3 *DC-WINDOW*) 'R@ HA SIgg(36 DC-PRINT-JUSTIFIED-STRING 16 DC-MAKE-DISPLAY-TIME-STRING 6 DC-GET-DATE) (31 CLEARW 26 CENTERED) () DC-MAKE-DISPLAY-TIME-STRING :D8 (P 2 DAY P 1 HOUR P 0 DISPLAY-TIME I 1 MERIDIAN I 0 DATE-STRING) +@dll A¢±û@l Ijð³4Iµ(l Iñ²I@kl o@llo±¯ ²Õ@kl o@l lo±ˆlIñ²@klo °qIl ²@klo °RlIñ²+@kl oIlÙ@l lo °#@kl IlÙ@l lo¸J—HJ ¸Hkdoô˜Hl H(294 SUBSTRING 279 SUBSTRING 269 CONCAT 259 CONCAT 249 SUBSTRING 235 SUBSTRING 224 CONCAT 213 SUBSTRING 194 SUBSTRING 177 CONCAT 167 SUBSTRING 156 EQP 146 CONCAT 136 SUBSTRING 113 SUBSTRING 98 SUBSTRING 87 \\FZEROP 74 SUBSTRING 59 SUBSTRING 31 SUBSTRING 15 MKATOM 10 SUBSTRING) NIL ( 284 " " 254 "pm" 218 "pm" 199 " " 172 "pm" 141 "am" 118 "am" 103 "12" 79 "am" 64 " ") DC-PRINT-JUSTIFIED-STRING :D8 (P 1 WINDOW-WIDTH P 0 STRING-WIDTH I 3 CLEARW? I 2 JUSTIFICATION I 1 STRING I 0 WINDOW F 2 *DC-WINDOW*) ‘A@ @g C–@ ¿@ HIñ²RA ¿@g ¹BdgðŸ¿oA b°5gð²Ao b¿lA@ Ø¸IHÙ…IHÙlÛ@ ¿A@ (142 PRIN1 134 DSPXPOSITION 116 STRINGWIDTH 104 CONCAT 81 CONCAT 59 GETWINDOWPROP 47 DC-SHAPE-TO-FIT 35 MOVETOUPPERLEFT 28 CLEARW 17 GETWINDOWPROP 6 STRINGWIDTH) (90 RIGHT 67 LEFT 54 WIDTH 12 WIDTH) ( 99 " " 75 " ") DC-CONVERT-DATE-FORMAT :D8 (I 1 NEW-FORMAT-LIST I 0 DATE-STRING) *Agðœ@ A @ gA (39 GDATE 27 IDATE 20 GDATE 14 IDATE) (32 DATEFORMAT 6 DATEFORMAT) () DC-SHAPE-TO-FIT :D8 (P 9 AUXW P 8 Y P 7 X P 6 AUXW-HEIGHT P 5 AUXW-STRING-WIDTH P 4 STRING-WIDTH P 3 REGION P 2 HEIGHT P 1 STRING-WIDTH P 0 WINDOW-LIST I 1 STRING I 0 WINDOW F 10 *DC-WINDOW* F 11 WIDTH) ó Wg oA @ @È @ ÉT@ghH°5d O ¿Og oAO ]Iñ‘M¹µÌK_K_I c@OOWJh HÈ ^H°0d OOOWNh ¿OWggµÑWgg(240 PUTWINDOWPROP 218 ATTACHWINDOW 198 SHAPEW 170 HEIGHTIFWINDOW 156 SHAPEW 136 WIDTHIFWINDOW 110 STRINGWIDTH 103 CONCAT 92 GETWINDOWUSERPROP 79 DETACHWINDOW 64 PUTWINDOWPROP 47 \\INSUREWINDOW 41 HEIGHTIFWINDOW 28 STRINGWIDTH 22 CONCAT 11 GETWINDOWUSERPROP) (235 DON\'T 230 RESHAPEFN 213 JUSTIFY 208 BOTTOM 163 FONTDESCRIPTOR 87 LOCATION 58 RESHAPEFN 34 FONTDESCRIPTOR 6 ATTACHEDWINDOWS) ( 97 " " 16 " ") DC-GET-DATE :D8 (I 2 OFFSET I 1 ITIME I 0 DATEFORMAT) 4A²B™ABÙ@ A@ BBÙ@ @ (49 GDATE 43 IDATE 37 GDATE 29 IDATE 21 GDATE 13 GDATE) NIL () DC-MENU-POSITION :D8 (P 1 MENU-HEIGHT P 0 WINDOW-REGION I 0 MENU F 2 *DC-WINDOW*) *R É@ HHØHHØIÙ(13 MENUREGION 5 \\INSUREWINDOW) NIL () DC-SET-FONT :D8 (P 5 AUXW P 4 NEW-FONT P 3 OLD-FONT P 2 FACE P 1 SIZE P 0 FAMILY I 1 ALL-AUXW-P I 0 WINDOW F 6 *DC-WINDOW* F 7 *DC-AUXW-FONT* F 8 *DC-FONT* F 9 *DC-DATEFORMAT*) è#H”I’J³9@´h@€V »H«Kg ¸I«Kg ¹J«Kg ºVoggHIJhdg \d²YA²#cVg ŽdWM µðŽ@’L@ƒLcV ¿VW Vg °VoggL(228 DC-PRINT-JUSTIFIED-STRING 205 DC-SHAPE-TO-FIT 200 DC-MAKE-DISPLAY-TIME-STRING 195 GETWINDOWUSERPROP 184 GDATE 177 IDATE 170 DSPFONT 150 DSPFONT 136 GETWINDOWUSERPROP 116 FONTCREATE 100 DC-PRINT-JUSTIFIED-STRING 78 FONTPROP 64 FONTPROP 50 FONTPROP 36 DSPFONT 14 DC-FONT-FACE-MENU 9 DC-FONT-SIZE-MENU 4 DC-FONT-FAMILY-MENU) (223 CLEARW 218 CENTER 190 12-HOUR-MODE 131 ATTACHEDWINDOWS 110 NOERRORFLG 95 CLEARW 90 CENTER 73 FACE 59 SIZE 45 FAMILY) ( 213 "Font Not Found" 85 "Fetching Font") DC-FONT-FAMILY-MENU :D8 (F 2 *DC-FONT-FAMILY-MENU*) ag ’RµH`do¿di¿do¿dg ¿dg¿jdnÿdhHdI ¿cd (94 MENU 89 DC-MENU-POSITION 9 BOUNDP) (57 DEFAULTMENUHELDFN 48 CLRPROMPT 18 |MENUTYPE#| 4 *DC-FONT-FAMILY-MENU*) ( 39 " Font " 25 ((|Titan| (QUOTE TITAN)) (|Hippo| (QUOTE HIPPO)) (|Gacha| (QUOTE GACHA)) (|Classic| (QUOTE CLASSIC)) (|BoldPS| (QUOTE BOLDPS)) (|Modern| (QUOTE MODERN)) (|Terminal| (QUOTE TERMINAL)) (|Helvetica| (QUOTE HELVETICA)) (|Helveticad| (QUOTE HELVETICAD)) ("Old English" (QUOTE OLDENGLISH)) ("Letter Gothic" (QUOTE LETTERGOTHIC)) ("Times Roman" (QUOTE TIMESROMAN)) ("Times Romand" (QUOTE TIMESROMAND)))) DC-FONT-SIZE-MENU :D8 (F 2 *DC-FONT-SIZE-MENU*) bg ’RµI`do¿dl¿do¿dg ¿dg¿jdnÿdhHdI ¿cd (95 MENU 90 DC-MENU-POSITION 9 BOUNDP) (58 DEFAULTMENUHELDFN 49 CLRPROMPT 18 |MENUTYPE#| 4 *DC-FONT-SIZE-MENU*) ( 40 " Size " 25 (6 7 8 9 10 11 12 14 16 18 24 26 30 36 72)) DC-FONT-FACE-MENU :D8 (F 2 *DC-FONT-FACE-MENU*) ag ’RµH`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿cd (94 MENU 89 DC-MENU-POSITION 9 BOUNDP) (57 DEFAULTMENUHELDFN 48 CLRPROMPT 18 |MENUTYPE#| 4 *DC-FONT-FACE-MENU*) ( 34 " Face " 25 ((|Bold| (QUOTE BRR)) (|Italic| (QUOTE MIR)) ("Bold Italic" (QUOTE BIR)) (|Regular| (QUOTE MRR)))) (PRETTYCOMPRINT DIGI-CLOCKCOMS) (RPAQQ DIGI-CLOCKCOMS ((* |;;| "Top level functions") (FNS DIGI-CLOCK DC-START-PROCESS DC-KILL-PROCESS DC-BUTTONEVENTFN DC-AUXW-BUTTONEVENTFN DC-SET-TIME-BUTTONEVENTFN ST) (* |;;| "Dc-buttoneventfns") ( FNS DC-PROCESS DC-UPDATE DC-GET-OPERATION) (* |;;| "Auxw functions") (FNS DC-AUXW-GET-OPERATION DC-ADD-AUXW DC-DELETE-AUXW DC-AUXW-UPDATE) (* |;;| "Set time functions") (FNS DC-WARNING-TIME-NOT-SET) (FNS DC-SET-TIME DC-UPDATE-TIME-ITEM DC-VALID-DATE-P DC-SET-LAST-DAY-FOR-MONTH) (FNS DC-INITIALIZE-SET-TIME-MENU DC-MAKE-NEW-SET-TIME-MENU DC-OPEN-SET-TIME-MENUW) (FNS DC-EXTRACT-STARTING-SET-TIME-DATE DC-SET-TIME-MAKE-DATE-STRING) (FNS DC-SET-TIME-ZONE-HEADING DC-SET-TIME-ZONE DC-GET-TIME-ZONE) (* |;;| "Alarm functions") (FNS DC-SET-ALARM DC-ADD-ALARM-SETTING DC-DELETE-ALARM-SETTING) (FNS DC-ALARM-DUE-TO-RING? DC-RING-ALARM DC-TURN-ALARM-OFF) (FNS DC-PROMPT-FOR-ALARM-MESSAGE DC-GET-MESSAGE-WINDOW DC-CLOSE-MESSAGE-WINDOW) (* |;;| "Display & Misc functions") (FNS DC-DISPLAY-TIME DC-MAKE-DISPLAY-TIME-STRING DC-PRINT-JUSTIFIED-STRING DC-CONVERT-DATE-FORMAT DC-SHAPE-TO-FIT DC-GET-DATE DC-MENU-POSITION) (* |;;| "Font functions") (FNS DC-SET-FONT DC-FONT-FAMILY-MENU DC-FONT-SIZE-MENU DC-FONT-FACE-MENU) (* |;;| "List of the world's time zones") (VARS *DC-TIME-ZONE-LIST*) (* |;;| "Call digi-clock "))) (RPAQQ *DC-TIME-ZONE-LIST* (("Nome, Alaska" (QUOTE ("Nome, Alaska: " . 11)) (QUOTE (-180 . -165))) ( "Honolulu, Hawaii" (QUOTE ("Honolulu, Hawaii: " . 10)) (QUOTE (-165 . -150))) ("Marquesas Islands" ( QUOTE ("Marquesas Islands: " . 9)) (QUOTE (-150 . -135))) ("San Francisco, California" (QUOTE ( "San Francisco, California: " . 8)) (QUOTE (-135 . -120))) ("Denver, Colorado" (QUOTE ( "Denver, Colorado: " . 7)) (QUOTE (-120 . -105))) ("Houston, Texas" (QUOTE ("Houston, Texas: " . 6)) ( QUOTE (-105 . -90))) ("Washington DC" (QUOTE ("Washington DC: " . 5)) (QUOTE (-90 . -75))) ( "Buenos Aires, Argentina" (QUOTE ("Buenos Aires, Argentina: " . 4)) (QUOTE (-75 . -60))) ( "Brasilia, Brasil" (QUOTE ("Brasilia, Brasil: " . 3)) (QUOTE (-60 . -45))) ("Rio de Janeiro, Brasil" ( QUOTE ("Rio de Janeiro, Brasil: " . 2)) (QUOTE (-45 . -30))) ("Reykjavik, Iceland" (QUOTE ( "Reykjavik, Iceland: " . 1)) (QUOTE (-30 . -15))) ("Greenwich, England" (QUOTE ("Greenwich, England: " . 0)) (QUOTE (-15 . 0))) ("Paris, France" (QUOTE ("Paris, France: " . -1)) (QUOTE (0 . 15))) ( "Athens, Greece" (QUOTE ("Athens, Greece: " . -2)) (QUOTE (15 . 30))) ("Moscow, USSR" (QUOTE ( "Moscow, USSR: " . -3)) (QUOTE (30 . 45))) ("Riyadh, Arabia" (QUOTE ("Riyadh, Arabia: " . -4)) (QUOTE (45 . 60))) ("Kabul, Afganistan" (QUOTE ("Kabul, Afganistan: " . -5)) (QUOTE (60 . 75))) ( "Kathmandu, Nepal" (QUOTE ("Kathmandu, Nepal: " . -6)) (QUOTE (75 . 90))) ("Bangkok, Thailand" (QUOTE ("Bangkok, Thailand:" . -7)) (QUOTE (90 . 105))) ("Hong Kong" (QUOTE ("Hong Kong: " . -8)) (QUOTE (105 . 120))) ("Seoul, South Korea" (QUOTE ("Seoul, South Korea: " . -9)) (QUOTE (120 . 135))) ( "Tokyo, Japan" (QUOTE ("Tokyo, Japan: " . -10)) (QUOTE (135 . 150))) ("Sydney Austrailia" (QUOTE ( "Sydney Austrailia:" . -11)) (QUOTE (150 . 165))) ("Aukland, New Zealand" (QUOTE ( "Aukland, New Zealand: " . -12)) (QUOTE (165 . 180))))) (PUTPROPS DIGI-CLOCK COPYRIGHT ("XEROX Corporation" 1988 1989)) NIL