(FILECREATED "18-Nov-85 13:40:01" ("compiled on " {ICE}LISP>PROMPTREMINDERS.;1) "19-Mar-85 14:34:17" recompiled changes: nothing in "SMALLLOOPS 17-Sep-85 ..." dated "17-Sep-85 18:34:36") (FILECREATED "18-Nov-85 13:39:10" {ICE}LISP>PROMPTREMINDERS.;1 18199 changes to: (RECORDS PERIODIC.PROMPT.REMINDER) previous date: "23-Apr-85 14:16:35" {ICE}PROMPTREMINDERS.;1) SETREMINDER D1 (P 1 REMINDER P 0 RNAME I 6 WINKINGDURATION I 5 REMINDINGDURATION I 4 EXPIRATION I 3 INITIALDELAY I 2 MESSAGE I 1 PERIOD I 0 NAME) ¶@µHghg Yµgl n>€öhdddddhYBµHIE3 µ`IF3 µ`HgI IAIC˜CI ° Idlð‘d‚l<¿ C3 µAµjöD²IDd3 ˜I Øi ¿` H(262Q NOTIFY.EVENT 253Q REMINDER.EXPIRATIONDATE 243Q IDATE 240Q REMINDER.NEXTREMINDDATE 210Q \DAYTIME0 162Q SETUPTIMER.DATE 137Q PUTDEF 37Q \DAYTIME0 23Q GETDEF 5 GENSYM) (257Q \REMINDER.EVENT 133Q REMINDERS 126Q DEFAULT.REMINDER.WINKINGDURATION 110Q DEFAULT.REMINDER.DURATION 31Q PERIODIC.PROMPT.REMINDER 20Q NOERROR 14Q REMINDERS) () SHOW.REMINDERA0001 D1 (NAME ERRORSET F 0 MESSAGE) P i(3 EVAL) NIL () SHOW.REMINDER D1 (P 5 WINKING P 4 VISIBLE P 3 DURATION P 2 LUACTION P 1 FIRSTTIME P 0 MESSAGE I 0 REMINDER F 6 \LASTUSERACTION) …@H™o ¿°p¿` ¿iV l @öl @öLhð\²H` ¿` ¿JVô©°#` ¿nô ¿Mg ²ÏKg ²µh(177Q TIMEREXPIRED? 165Q TIMEREXPIRED? 155Q DISMISS 146Q DSPRESET 130Q TERPRI 121Q PRIN3 72Q \DAYTIME0 51Q \DAYTIME0 43Q COPYALL 35Q DSPRESET 26Q PRINTBELLS 20Q SHOW.REMINDERA0001) (174Q SECONDS 162Q SECONDS 143Q REMINDERSTREAM 125Q REMINDERSTREAM 116Q REMINDERSTREAM 32Q REMINDERSTREAM) ( 15Q (SHOW.REMINDERA0001)) ACTIVEREMINDERNAMES D1 NIL %hdd`°d<¿=µ =h<‚=&<¿µçNIL (5 PERIODIC.PROMPT.REMINDERS) () REMINDER.NEXTREMINDDATE D1 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) }ekHñhð´r@gð‘@‹@gho Id²U Hkð‘JAµA [J K Ùjð³Hlñ’B³Igg ¿IKI ` (172Q NOTIFY.EVENT 163Q SETUPTIMER.DATE 151Q MARKASCHANGED 112Q IDATE 106Q IDATE 101Q GDATE 57Q GDATE 54Q ALTO.TO.LISP.DATE 40Q GETDEF) (167Q \REMINDER.EVENT 146Q CHANGED 143Q REMINDERS 30Q REMINDERS 20Q PERIODIC.PROMPT.REMINDER) ( 35Q (NOERROR NOCOPY)) REMINDER.EXPIRATIONDATE D1 (P 3 NEWDATE P 2 SDATE P 1 DEF P 0 N) Že0kHñ³@gð‘@‹@gho Yµh´ I ZHkñ²IAµA »J K µmÿô³Hlñ’B³Igg ¿KZI=d’ ¿¿J(207Q SETUPTIMER.DATE 166Q MARKASCHANGED 125Q IDATE 121Q IDATE 114Q GDATE 75Q GDATE 72Q ALTO.TO.LISP.DATE 41Q GETDEF) (163Q CHANGED 160Q REMINDERS 31Q REMINDERS 21Q PERIODIC.PROMPT.REMINDER) ( 36Q (NOERROR NOCOPY)) REMINDER.PERIOD D1 (P 4 NEWPERIOD P 3 PERIOD P 2 PERIOD P 1 DEF P 0 N) kekHñhð´`@gð‘@‹@gho Id²CHkÙjð‘KkAjØ\ñ™lLh ¿KLÙjð³Igg ¿IL(140Q MARKASCHANGED 106Q ERRORX 40Q GETDEF) (135Q CHANGED 132Q REMINDERS 30Q REMINDERS 20Q PERIODIC.PROMPT.REMINDER) ( 35Q (NOERROR NOCOPY)) REMINDERS.RESTART D1 NIL $g g µogggg (41Q ADD.PROCESS 13Q FIND.PROCESS 5 DEL.PROCESS) (35Q REMINDERS.WATCHDOG 32Q NAME 27Q HARDRESET 24Q RESTARTABLE 10Q REMINDERS.WATCHDOG 2 REMINDERS.WATCHDOG) ( 21Q (REMINDERS.WATCHDOG)) REMINDERS.WATCHDOG D1 (P 2 PR P 0 DELAY) h¿``1IµKd²JÙnèÚj=ñ³'d°%Zdl🠼K“KLó’L[¿IY°Èj<¿o=ñ‘dƒo<¿ ¿°ž(143Q AWAIT.EVENT 73Q ALTO.TO.LISP.DATE 32Q IDATE 5 PERIODICALLYCHECKREMINDERS) (14Q PERIODIC.PROMPT.REMINDERS 11Q \REMINDER.EVENT) ( 134Q 6673500Q 122Q 6673500Q) \PUTREMINDER D1 (P 1 PERIOD P 0 OLDDEF I 2 DEF I 1 FILEPKGTYPE I 0 NAME) u@`BBh¿@AH³g@Bh` ¿g°BHô’¿°5HB ¿g ¿I3 ²BBdlð‘d‚l<¿ Iö¿` @(161Q NOTIFY.EVENT 147Q \DAYTIME0 113Q MARKASCHANGED 104Q /RPLACA 53Q /SETTOPVAL) (156Q \REMINDER.EVENT 110Q CHANGED 57Q DEFINED 47Q PERIODIC.PROMPT.REMINDERS 37Q PERIODIC.PROMPT.REMINDERS 3 PERIODIC.PROMPT.REMINDERS) () \GETREMINDER D1 (I 1 TYPE I 0 NAME) @`NIL (3 PERIODIC.PROMPT.REMINDERS) () \DELREMINDER D1 (P 0 OLDDEF I 1 FILEPKGTYPE I 0 NAME) E@œ@lð–Agð³lAdgð‘¿@h ¿@`H´@Ag ¿gH` i(101Q /SETTOPVAL 76Q REMOVE 63Q MARKASCHANGED 37Q ERRORX) (73Q PERIODIC.PROMPT.REMINDERS 67Q PERIODIC.PROMPT.REMINDERS 60Q DELETED 44Q PERIODIC.PROMPT.REMINDERS 25Q REMINDERS 13Q REMINDERS) () PERIODICALLYCHECKREMINDERSA0001 D1 (NAME ERRORSET P 7 X P 6 FLASHFLG P 5 MESSAGE P 4 Reminder'sExpiration P 3 Reminmder'sPeriod P 2 Reminder'sTimer P 1 REMINDER P 0 ACTED F 10Q RESETVARSLST F 11Q RESETP F 12Q RESETY) ýh¿ohhWc¿p`±ÇdOY\µHIZ²4Jµ"I3 »W²LK¢±—IJl𢱂J±lð³ÜiIhZ¿²ÓL³uO`°ilð˜Lg ²®O`°PJg ²HK²IJlð‘J‚l KöL©O`ƒIh¿i¸I ¿K²IJlð‘J‚l Kö¿µ‚±ÿ8H´`´ ` ¿hci(364Q CLOSEW 331Q \DAYTIME0 305Q SHOW.REMINDER 252Q \DAYTIME0 225Q TIMEREXPIRED? 201Q TIMEREXPIRED?) (361Q REMINDERSTREAM 354Q CLOSEREMINDERSTREAMFLG 271Q \PR.REMOVALS 265Q \PR.REMOVALS 222Q SECONDS 214Q \PR.REMOVALS 210Q \PR.REMOVALS 176Q SECONDS 163Q \PR.REMOVALS 157Q \PR.REMOVALS 30Q PERIODIC.PROMPT.REMINDERS 3 \PR.REMOVALS) ( 10Q (PROGN (MAPC \PR.REMOVALS (FUNCTION (LAMBDA (X) (DELDEF (CAR X) (QUOTE REMINDERS))))))) PERIODICALLYCHECKREMINDERS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 RESETP F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q PERIODICALLYCHECKREMINDERSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PERIODICALLYCHECKREMINDERSA0001)) (PRETTYCOMPRINT PROMPTREMINDERSCOMS) (RPAQQ PROMPTREMINDERSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (RECORDS PERIODIC.PROMPT.REMINDER)) (FNS SETREMINDER SHOW.REMINDER ACTIVEREMINDERNAMES REMINDER.NEXTREMINDDATE REMINDER.EXPIRATIONDATE REMINDER.PERIOD REMINDERS.RESTART REMINDERS.WATCHDOG) (PROP ARGNAMES REMINDER.NEXTREMINDDATE REMINDER.EXPIRATIONDATE REMINDER.PERIOD) (FNS \PUTREMINDER \GETREMINDER \DELREMINDER) (FNS PERIODICALLYCHECKREMINDERS) (INITVARS (\PR.REMOVALS NIL)) (INITVARS (DEFAULT.REMINDER.DURATION 60) ( DEFAULT.REMINDER.WINKINGDURATION 10) (PERIODIC.PROMPT.REMINDERS NIL) (REMINDERSTREAM PROMPTWINDOW)) ( GLOBALVARS \PR.REMOVALS REMINDERSTREAM PERIODIC.PROMPT.REMINDERS DEFAULT.REMINDER.DURATION DEFAULT.REMINDER.WINKINGDURATION DEFAULT.REMINDER.PERIOD) (FILEPKGCOMS REMINDERS) (INITVARS ( CLOSEREMINDERSTREAMFLG)) (VARS (\REMINDER.EVENT (CREATE.EVENT (QUOTE PERIODIC.PROMPT.REMINDERS)))) ( GLOBALVARS CLOSEREMINDERSTREAMFLG \REMINDER.EVENT) (ADDVARS (AFTERLOGOUTFORMS (REMINDERS.RESTART))) (P (REMINDERS.RESTART)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA REMINDER.PERIOD REMINDER.EXPIRATIONDATE REMINDER.NEXTREMINDDATE))))) (PUTPROPS REMINDER.NEXTREMINDDATE ARGNAMES (REMINDER NEWVALUE)) (PUTPROPS REMINDER.EXPIRATIONDATE ARGNAMES (REMINDER NEWVALUE)) (PUTPROPS REMINDER.PERIOD ARGNAMES (REMINDER NEWVALUE)) (RPAQ? \PR.REMOVALS NIL) (RPAQ? DEFAULT.REMINDER.DURATION 60) (RPAQ? DEFAULT.REMINDER.WINKINGDURATION 10) (RPAQ? PERIODIC.PROMPT.REMINDERS NIL) (RPAQ? REMINDERSTREAM PROMPTWINDOW) (PUTDEF (QUOTE REMINDERS) (QUOTE FILEPKGCOMS) (QUOTE ((TYPE DESCRIPTION "Periodic PROMPT Reminders" GETDEF \GETREMINDER PUTDEF \PUTREMINDER DELDEF \DELREMINDER)))) (RPAQ? CLOSEREMINDERSTREAMFLG) (RPAQ \REMINDER.EVENT (CREATE.EVENT (QUOTE PERIODIC.PROMPT.REMINDERS))) (ADDTOVAR AFTERLOGOUTFORMS (REMINDERS.RESTART)) (REMINDERS.RESTART) (PUTPROPS PROMPTREMINDERS COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL