(FILECREATED "26-Mar-87 16:25:05" ("compiled on " {DSK}MATT>IDLERPATCH.;5) "11-Mar-87 13:17:31" tcompl'd in "Xerox Lisp 11-Mar-87 ..." dated "11-Mar-87 13:34:07") (FILECREATED "22-Apr-86 11:16:24" {DSK}MATT>IDLERPATCH.;5 3497 changes to: (FNS \IDLE.LOAD.NAMES.PWDS \IDLE.SAVE.NAMES.PWDS \IDLE.EDIT.NAMES.PWDS \IDLE.AUTHENTICATE) (FILEVARS IDLERPATCHCOMS) (VARS IDLERPATCHCOMS \NAME.PWD.ALIST) previous date: "21-Apr-86 11:18:53" {DSK}MATT>IDLERPATCH.;1) \IDLE.AUTHENTICATE §D4 (I 3 IFALLDOWN I 2 TYPE I 1 PWD I 0 NAME) A @`  ‘io h(24 PROMPTPRINT 14 STRING-EQUAL 10 SASSOC 3 \ENCRYPT.PWD) (7 \NAME.PWD.ALIST) ( 21 "?Incorrect password") \IDLE.EDIT.NAMES.PWDSA0001 §D4 (F 3 CURNAME) )Sd0`°d¸IµHhZY„HhY¿µëJ (37 REMOVE) (7 \NAME.PWD.ALIST) () \IDLE.EDIT.NAMES.PWDS §D4 (P 0 CURNAME) ˆhg "oHgI Z¡hohdIg  »I ¿KoJo hdIg  ô² J` µJK `°K ŒI ¿oI ¿I ¿°ˆ(131 TERPRI 126 PRIN1 117 TERPRI 111 \ENCRYPT.PWD 97 \ENCRYPT.PWD 90 SASSOC 80 U-CASE 77 PROMPTFORWORD 67 CONCAT 53 TERPRI 48 U-CASE 45 PROMPTFORWORD 27 U-CASE 24 PROMPTFORWORD 9 GETSTREAM 2 USERNAME) (105 \NAME.PWD.ALIST 101 \NAME.PWD.ALIST 87 \NAME.PWD.ALIST 73 * 41 * 20 \IDLE.EDIT.NAMES.PWDSA0001 6 OUTPUT) ( 122 "?Not confirmed" 64 ":" 59 "Retype password for " 35 " (password)" 16 "Username:") \IDLE.LOAD.NAMES.PWDS §D4 (P 0 FILE) )gH ‘H†H Xd›g Xd’ H (38 CLOSEF 31 READ 25 OPENSTREAM 16 FINDFILE 9 INFILEP) (34 \NAME.PWD.ALIST 22 INPUT 2 NAMES-PWDS.ALIST) () \IDLE.SAVE.NAMES.PWDS §D4 (P 0 FILE) 3gH ‘H‰H Xµgg ¸g ´`H H (48 CLOSEF 44 PRINT 35 BOUNDP 28 OPENSTREAM 16 FINDFILE 9 INFILEP) (40 \NAME.PWD.ALIST 32 \NAME.PWD.ALIST 25 OUTPUT 22 NAMES-PWDS.ALIST 2 NAMES-PWDS.ALIST) () (PRETTYCOMPRINT IDLERPATCHCOMS) (RPAQQ IDLERPATCHCOMS ((FNS \IDLE.AUTHENTICATE \IDLE.EDIT.NAMES.PWDS \IDLE.LOAD.NAMES.PWDS \IDLE.SAVE.NAMES.PWDS) (P (\IDLE.LOAD.NAMES.PWDS)) (GLOBALVARS \NAME.PWD.ALIST))) (\IDLE.LOAD.NAMES.PWDS) (PUTPROPS IDLERPATCH COPYRIGHT ("Matt Heffron" 1986)) NIL