Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/remind.com
There are no other files named remind.com in the archive.
(FILECREATED " 4-DEC-81 00:02:03" ("compiled on " <LISPUSERS>REMIND.;2) (2 . 2) brecompiled changes: 
nothing in WORK dated " 2-DEC-81 17:41:27")
(FILECREATED " 4-DEC-81 00:01:34" <LISPUSERS>REMIND.;2 8618 changes to: REMINDCOMS previous date: 
"27-NOV-81 12:43:59" <LISPUSERS>REMIND.;1)
ADDREMINDER BINARY
@5>-.5@7,~Z-,ZZ2B8+. 8,<9,<9$:XB[[[[ZB:,<Z,<Z,<,XBZ[[[[[Z2B+Z[[[[[,<,<;$;Z[[[[[[Z2B+"Z[[[[[[,<,<<$;Z[[[[[[[Z2B+-Z"[[[[[[[,<,<<$;Z'B=+2Z
,<,<Z-Z1Z,XB2 =Z,~` 
@(VARIABLE-VALUE-CELL when . 93)
(VARIABLE-VALUE-CELL what . 96)
(VARIABLE-VALUE-CELL REMINDERLIST . 103)
(NIL VARIABLE-VALUE-CELL newRecord . 100)
(NIL VARIABLE-VALUE-CELL DATUM . 16)
MULTIPLEDATETIMES
SETNOWDATETIME
NOW
DATETIME
GETPROP
EVAL
0
RPLACA
1
AM
FINISHDATETIME
UPDATEREMINDFILE
(CONS LIST3 KNIL SKLST ENTERF)42pX0x8
CANCELREMINDERS BINARY
0'/-.'@',~Z,<Zp-,++"Zp,<@( +!,<"),<),<$*[Z-,ZZ2B*+[ZB++ZB+,<,<$*,<"),<+,<$*[[Z,<,<$*,<"),<,,<,,<-,<-(.2B,+ZZ,XB,~ZXB,~[pXBp+/Z 3B+&ZXB .Z,~
VAM-@H(VARIABLE-VALUE-CELL REMINDERLIST . 74)
(NIL VARIABLE-VALUE-CELL newReminderList . 73)
(NIL VARIABLE-VALUE-CELL changes . 70)
(VARIABLE-VALUE-CELL reminder . 58)
TERPRI
"Expire date - "
PRIN1
MULTIPLEDATETIMES
DATETIMETOSTRING
"Reminder - "
10
N
"Do you want to delete this request? "
(((Y "es
") (N "o
")) . 0)
ASKUSER
UPDATEREMINDFILE
(BHC CONS KNIL SKLST KT SKNLST ENTER0)8pp$XP@0	
CHECKREMINDERS BINARY
J:H-.:@;0
,~ > >,<?,<?$@XBZB@,<@A +5Z`XBZ	-,+
Z`,~Z
XBZDC3B+2ZXB,<C,<$D,<D,<$DZ,<,<$D,<"E+![[ZBF[Z-,ZZ2BF+4Z!XB,<[$Z[[ZBFXB%Z),<ZDC2B+&Zp/Z&,<Z)DGZ-Z,XB0+4Z/Z1,XB2[
XB4+
Z2B+8Z,~Z3XB G+7y( 5, @P!!@(VARIABLE-VALUE-CELL REMINDERLIST . 113)
(VARIABLE-VALUE-CELL CHECKREMINDERINTERVAL . 110)
(NIL VARIABLE-VALUE-CELL remindFile . 0)
(NIL VARIABLE-VALUE-CELL fullName . 0)
(NIL VARIABLE-VALUE-CELL changes . 107)
(NIL VARIABLE-VALUE-CELL now . 85)
(NIL VARIABLE-VALUE-CELL DATUM . 93)
(NIL VARIABLE-VALUE-CELL newReminderList . 112)
CHECKTODAY
SETNOWDATETIME
NOW
DATETIME
GETPROP
APPEND
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL rem . 105)
(NIL VARIABLE-VALUE-CELL reminder . 100)
DLESSP
""
PRIN1
"Reminder expired "
DATETIMETOSTRING
TERPRI
EVAL
MULTIPLEDATETIMES
RPLACA
UPDATEREMINDFILE
(CONS BHC SKLST SKSTP KT KNIL SKNLST ENTER0)4`0(hHp,h#8
LOADREMINDERS BINARY
-.@,~,<,<,<,<,<,<,BXB3B+
DIRECTORY
DIRECTORYNAME
NAME
REMIND
EXTENSION
LISP
PACKFILENAME
INFILEP
INPUT
OLD
OPENFILE
READ
EVAL
CLOSEF
(KNIL ENTER0)
REMIND BINARY
dSa-.S@T,~UUZ3B+&BVXB-,ZZ2BV+'[[[[[Z2B+[	[[[[,<,<W$W[YXB$+'Z,~Z%-,ZZ2BY+8,<Z,<$Z['[Z,<,<$Z,<"[[+[[[Z,<,<$Z,<"[,<[,<$Z,<"\XB+Z/-,ZZ3B\+>Z8-,ZZ2B]+D,<],<$Z,<"[,<^,<$Z,<"\XB7+Z;-,ZZ2BV+QZD,<,<^,<V$D3B+Q,<`,<$Z,<"[,<`,<$Z,<"\XBC+ZG,<ZDa+&L`(A (0uU{-(`(VARIABLE-VALUE-CELL when . 160)
(VARIABLE-VALUE-CELL what . 164)
(NIL VARIABLE-VALUE-CELL time . 162)
CHECKTODAY
SETNOWDATETIME
PARSEDATETIME
DATETIME
0
RPLACA
1
AM
FINISHDATETIME
DATETIMEERROR
"Date format error - "
PRIN1
TERPRI
"Try again (NIL to give up) - "
READ
DURATION
QUALIFIEDDATETIME
"Date must be a specific time or a recurring time "
"Try again (NIL to give up) - "
NOW
GETPROP
DLESSP
"Your date has already expired"
"Try again (NIL to give up) - "
ADDREMINDER
(KT SKLST KNIL ENTERF)
O	XL0B?p6H3x.8X<(x	0FP:'pPX
UPDATEREMINDFILE BINARY
-.@,~,< ,<,<,<,<,<,XB,<,<$XB3B+BZ3B+ZB,<"ZB,<"Z
BZ,~_K](VARIABLE-VALUE-CELL REMINDERLIST . 29)
(NIL VARIABLE-VALUE-CELL remindFile . 33)
(NIL VARIABLE-VALUE-CELL fullName . 18)
DIRECTORY
DIRECTORYNAME
NAME
REMIND
EXTENSION
LISP
PACKFILENAME
OLD
FULLNAME
DELFILE
OUTFILE
"(RPAQQ REMINDERLIST "
PRIN1
PRINT
")
STOP
"
CLOSEF
(KNIL ENTER0)H

(PRETTYCOMPRINT REMINDCOMS)
(RPAQQ REMINDCOMS ((FNS ADDREMINDER CANCELREMINDERS CHECKREMINDERS LOADREMINDERS REMIND 
UPDATEREMINDFILE) (DECLARE: DONTCOPY EVAL@COMPILE (RECORDS REMINDNOTICE) (FILES (SOURCE) 
DATETIMERECORDS)) (DECLARE: DONTEVAL@LOAD DOCOPY (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) 
DATETIME IOWAITDAEMON)) (VARS (REMINDERLIST NIL) (CHECKREMINDERINTERVAL 5)) (ADDVARS (
IOWAITDAEMONFORMS (CHECKREMINDERS)) (AFTERSYSOUTFORMS (LOADREMINDERS))) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML REMIND) (LAMA)))))
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) DATETIME IOWAITDAEMON)
(RPAQQ REMINDERLIST NIL)
(RPAQQ CHECKREMINDERINTERVAL 5)
(ADDTOVAR IOWAITDAEMONFORMS (CHECKREMINDERS))
(ADDTOVAR AFTERSYSOUTFORMS (LOADREMINDERS))
(PUTPROPS REMIND COPYRIGHTOWNER NONE)
NIL