(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "13-Jun-2021 21:02:06" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;1) "13-Jun-2021 14:44:27" recompiled explicitly%: \PROMPTFORWORDRETYPE in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "16-May-90 21:02:21" {DSK}local>lde>lispcore>sources>PASSWORDS.;2 22217 changes to%: (VARS PASSWORDSCOMS) previous date%: " 3-May-88 12:15:19" {DSK}local>lde>lispcore>sources>PASSWORDS.;1) LOGIN :D8 (L (3 MSG 2 DIRECTORY 1 FLG 0 HOST)) O@d²&dgð³dgð³ µ o@ AgðhðBCho@ ´g (75 \INTERNAL/GETPASSWORD 62 STRPOS 39 ERROR 26 CANONICAL.HOSTNAME) (69 NS 45 QUIET 18 GV 9 |NS::|) ( 56 ":" 33 "Host not found") SETPASSWORD :D8 (L (3 DIRECTORY 2 PASSWORD 1 USER 0 HOST)) ,@d— µ@CµAdš „ B C(40 \INTERNAL/SETPASSWORD 33 MKSTRING 27 MKATOM 21 MKSTRING 7 CANONICAL.HOSTNAME) NIL () \INTERNAL/GETPASSWORD :D8 (L (5 OSTYPE 4 DEFAULTNAME 3 MSG 2 DIRECTORY 1 ALWAYSASK 0 HOST)) i@d²(d3@ð¨@ b¿E³o@ —gb ¿@` A¦BµHµ@hBACDE d ¿B bH°Ø(96 MKATOM 91 U-CASE 83 STRINGP 76 \INTERNAL/SETPASSWORD 51 GETHASH 31 STRPOS 14 MKATOM) (46 LOGINPASSWORDS 37 NS) ( 25 ":") \INTERNAL/SETPASSWORDA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 9 OSTYPE F 10 NEWNAME/PASS F 11 HOST F 12 DEFAULTNAME F 13 DIRECTORY F 14 ALWAYSASK F 15 MSG F 16 INFOCHANGED F 17 SI::NLSETQ-VALUE) i@W` aW²uJ¯Whh`ºW³%W¨WoŽWWWiW c´‚±%WJµ JWW cJ¿W±dW ¿c±ëW«Wµcgc¿`È[jð£jKÑ»Wgð´g` _¿hidW ½Wµ#O²,W³(OO \±¢ °ŸW ±ˆWµ OµJµM†W c¿W³[M²XK²UWMð³WM`gð²:K ^ jñ²*WWdgð—¿N Žgð–N €N^\°WWWhW ¼ic ¿L_¿W ²TWgð²'OœOOð²+Oµghh`LŽOMðšK˜KL ¿W²-M²*Wgð¢KµW³g` ¿O³Vh°sÈjð²æg ²ÚO²WgðœOg ‡O„o ¿K²¯KO’L„o ¿°›hºL ¿JµWhh`L¿Lhc"g(622 PUTHASH 603 \ENCRYPT.PWD 591 SetBcplString 570 SETUSERNAME 556 \ADJUST.USERNAME 529 \DEFINEDP 505 CLRHASH 471 SetBcplString 453 PUTHASH 395 \LOGIN.READ 373 U-CASE 359 L-CASE 336 NCHARS 330 GetBcplString 316 ALPHORDER 284 \ADJUST.USERNAME 258 CONCAT 247 GETOSTYPE 237 \DECRYPT.PWD 211 \ADJUST.USERNAME 204 USERNAME 193 GETHASH 131 \ENCRYPT.PWD 126 CONCAT 104 \ENCRYPT.PWD 99 CONCAT 72 \LOGIN.READ 40 PUTHASH 16 GETHASH) (636 :NORMAL 617 LOGINPASSWORDS 551 LOCAL 542 NS 524 SETUSERNAME 500 LOGINPASSWORDS 486 NS 448 LOGINPASSWORDS 440 |NS::| 416 NS 365 TENEX 350 UNIX 321 EQUAL 311 UPPERCASEARRAY 188 LOGINPASSWORDS 183 |NS::| 175 NS 158 \InterfacePage 150 LOCAL 35 LOGINPASSWORDS 11 LOGINPASSWORDS) ( 586 "" 565 "" 55 "") \INTERNAL/SETPASSWORDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) 9`hg`TioUI gð´H(42 \INTERNAL/SETPASSWORDA0001A0002 15 OBTAIN.MONITORLOCK) (48 :NORMAL 23 SI::NLSETQ-PROCEED-CASE 10 WITH.MONITOR 4 \GETPASSWORD.LOCK) ( 31 (CL:ERROR . SI::NLSETQHANDLER)) \INTERNAL/SETPASSWORD :D8 (P 4 SI::*RESETFORMS* P 3 SI::*LOCKED-MONITOR* P 1 INFOCHANGED I 6 OSTYPE I 5 DEFAULTNAME I 4 MSG I 3 ALWAYSASK I 2 DIRECTORY I 1 NEWNAME/PASS I 0 HOST) <0 g ¿$XI²`Œdº@HlJ¿µòH(25 SI::MONITOR-UNWIND 20 \MVLIST 15 \INTERNAL/SETPASSWORDA0001) (39 \AFTERLOGINFNS 10 SI::MONITOR-UNWIND) () \LOGIN.READA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 DEFAULTNAME F 3 PROMPT F 4 TERMINATIONS F 5 READBUF F 6 CONNECTFLG F 7 OSTYPE F 8 HELPFN F 9 HOST) Îo i ¿¿hiUV²RShdigiT °~SRWihiT ¹W²R`²KWd—dgð’¿i¿h²8oI ³+oi ¿`i ¿Io`€I ohdig H–H ¿i ¿(202 TERPRI 194 BKBUFS 185 PROMPTFORWORD 166 MKATOM 159 CONCAT 142 PRIN1 130 PRIN1 117 STRPOS 75 PROMPTFORWORD 59 PROMPTFORWORD 35 CLBUFS 26 SYSBUF 20 LINBUF 15 FRESHLINE 9 PROVIDE.PROMPTING.WINDOW) (179 * 154 DEFAULTREGISTRY 136 DEFAULTREGISTRY 97 IFS 85 DEFAULTREGISTRY 51 *) ( 171 " (password) " 149 "." 124 "." 111 "." 4 "Password prompter") \LOGIN.READ :D8 (L (2 MSG) P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 TERMINATIONS P 1 HELPFN P 0 PROMPT I 4 OSTYPE I 3 CONNECTFLG I 1 DEFAULTNAME I 0 HOST F 6 LISPXHIST) Dgð¥oŒ@•o„ooDgð´oC²oAo¸o¹@²o@oH¸BµV!g ¿$gH¸°×(138 CONCAT 122 SI::RESETUNWIND 117 \MVLIST 112 \LOGIN.READA0001 94 CONCAT 67 CONCAT) (132 % 107 SI::RESETUNWIND 37 NS 5 NS) ( 88 "} " 82 "{" 73 "Type followed by the password for the directory. " 62 ": " 56 "Connect password for " 45 (13 10) 31 " You are being asked for a user name and password for login. Type to accept the given user name, or to back up over it, or type a new name followed by . " 26 "Login ( to terminate): " 20 " (terminate input with ) Login: " 12 "Login: ") PROVIDE.PROMPTING.WINDOWA0001 :D8 (L (1 PROC 0 WINDOW)) &@ É.bd² ´Ag g(30 PROCESS.APPLY 17 PROCESSP 5 \INSUREWINDOW) (35 DON'T 25 ERROR!) () PROVIDE.PROMPTING.WINDOW :D8 (L (1 REGION 0 TITLE) F 2 SI::*RESETFORMS* F 3 \WINDOWWORLD F 4 \TERM.OFD) }`µ‚±:S´‚±lig ´‚±VŸTi ’±?AµD`µ``Ø``Ø``b@µolgHhhdRcgH hhRcgHghdhdRcHgg`µH`ð³øAoYH ÙâjH¿Ii ¿i ¿i ¿gð•¿nu0 ²3°ª`ð’±þÂ`’±þ¹g` hhRc¿±þHk °½h(375 FLASHWINDOW 355 TTY.PROCESS 317 WAIT.FOR.TTY 308 RINGBELLS 296 MACHINETYPE 290 TERPRI 283 TERPRI 276 PRIN1 268 RELMOVETO 259 STRINGWIDTH 226 PUTWINDOWPROP 176 TTYDISPLAYSTREAM 145 CREATEW 128 CREATEREGION 57 OPENWP 52 WFROMDS 44 HASTTYWINDOWP 33 DISPLAYSTREAMP 28 GETSTREAM) (350 \RUNNING.PROCESS 345 TTY.PROCESS 336 \PROC.READY 326 \TTY.PROCESS 301 DANDELION 240 \TTY.PROCESS 231 \RUNNING.PROCESS 221 PROVIDE.PROMPTING.WINDOWA0001 216 CLOSEFN 196 CLOSEFN 190 WINDOWPROP 170 TTYDISPLAYSTREAM 153 CLOSEW 119 UNSCHEDULEDPROMPTREGION 111 UNSCHEDULEDPROMPTREGION 103 UNSCHEDULEDPROMPTREGION 96 \TTYREGIONOFFSETSPTR 89 UNSCHEDULEDPROMPTREGION 82 \TTYREGIONOFFSETSPTR 77 TTYREGIONOFFSETS 69 \TTYREGIONOFFSETSPTR 23 OUTPUT 4 \RUNNING.PROCESS) ( 252 "-> Click here, please <-" 138 "Special input window") \ADJUST.USERNAME :D8 (L (1 OSTYPE 0 NAME) F 1 CH.DEFAULT.ORGANIZATION) ·@d¢±² jð’±¦A˜Agð²+`¢±o@ ’±@o``²o@ Xœ@kHkÙb¿Adgð—¿@ gð²1`²*Q²'g@ ³@g`gQ @h(176 CONCAT 151 STRPOS 121 L-CASE 101 SUBSTRING 89 STRPOS 67 PACK* 47 STRPOS 10 NCHARS) (169 %: 164 CH.DEFAULT.DOMAIN 159 %: 145 %: 135 CH.DEFAULT.DOMAIN 127 NS 112 UNIX 76 DEFAULTREGISTRY 62 DEFAULTREGISTRY 32 DEFAULTREGISTRY 24 IFS) ( 83 "." 57 "." 41 ".") \ENCRYPT.PWD :D8 (L (0 STR)) !k@H@H µ@lIæ¿HkÔ¸°æ(24 RPLCHARCODE 12 NTHCHARCODE) NIL () \DECRYPT.PWD :D8 (L (0 STR)) @ (10 \ENCRYPT.PWD 5 CONCAT) NIL () PROMPTFORWORDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 7 RUBBING? P 4 BELLBEENHEARD? P 3 TIMELIMITEXPIRED? P 2 X0Y0 P 1 TTYD P 0 CHARBUFFER I 0 SI::*CLEANUP-FORMS* F 18 ECHO.CHANNEL F 19 DONTECHOTYPEIN.FLG F 20 URGENCY.OPTION F 21 TERMINCHARS.LST F 22 SI::*RESETFORMS* F 23 KEYBD.CHANNEL F 24 CANDIDATE.STR F 25 GENERATE?LIST.FN F 26 PROMPT.STR) b g` hhW,c,W0d™ ±W(gð³W(d²_¿gW(²R`²)``ð³g` hhW,c,¿`²9g` hhW,c,°W(3 ³W(d“dið’¿i¿h§W( ¿gW$µig c$ hhW,c,¿W$ ¹W&µW*µ)oc*±¬ið³ðW& kð˜W&k €ic&¿°× ˜W*hc*±€W*d²t!Oµ O´d0W*°S_d ³d3@ð¨O ²O kðši_¿O_°Æi°,dd3 ¤ _¿O µ Oh_"‚O&_ ¿µßO"c*¿h—W* ¿W.µxW(²l W(3 µjö_¿W4µFIŸhI hI ºH•¿W.IW(O]—MdW*²?¿K¢±^W0d¢±d ±\W$ ¿oW$ ¿°§ghc.¿±ÿ|` dgð²¿H´ i¾_¿h±dgð²¿H´W&ið¥¿i¾h¸‚_¿h±ïdgð²¿H´W&ið¥¿_¿h±Êdgð²\¿H´Ri¾Hg`_¿¿Hµ°4½O³Mg`²ß°Mg`³Ëh°Å_¿h°fgð¢±¯W&³#OŸIW$l\ ¿h_¿M W$ ¿W.IW(Oi ]¢±þ³I² W&³IMhdddi «¿¿i¢±þwN³H²Ml ð’±þW&¥¿h¸MH¸i¾W&ið’±þPO²I³gW$ ¿h_¿W$W&µM ±þ(Ml?ð²©W$ ¿W2²CO³W2 µW4W0lW2_¿i_¿O²UgW$ ¿gW$ ¿O°'O³Ûg_°ÔdW$ ¿gW$ ¿µçgW$ ˆOW$ ¿W$ ±ýnHd™ ¸W$ H(1118 \CARET.DOWN 1110 CONCATCODES 1105 DREVERSE 1094 FRESHLINE 1086 PRIN1 1076 PRIN3 1059 PRIN3 1046 PRIN1 1019 PRIN3 1006 PRIN3 970 STRINGP 954 FRESHLINE 938 BOUT 921 PRIN3 885 \PROMPTFORWORDERASE 857 \PROMPTFORWORDRETYPE 851 \PROMPTFORWORDERASE 845 \DSPMOVELR 820 \PROMPTFORWORDBIN 805 PRIN3 798 CHARACTER 787 BOUT 748 SYNTAXP 728 SYNTAXP 700 \PROMPTFORWORDBS 692 SYNTAXP 652 \PROMPTFORWORDRETYPE 646 \PROMPTFORWORDERASE 610 \PROMPTFORWORDERASE 579 \PROMPTFORWORDBS 559 GETSYNTAX 543 \GETSTREAM 529 PRIN3 516 PRIN3 506 CONCAT 479 \PROMPTFORWORDBIN 466 \PROMPTFORWORDRETYPE 457 DSPYPOSITION 450 DSPXPOSITION 426 \DAYTIME0 409 \ILLEGAL.ARG 369 CHCON1 341 NCHARS 332 STRINGP 318 CHARCODEP 274 CHARCODEP 262 NTHCHARCODE 251 NCHARS 221 DISPLAYSTREAMP 203 TTYDISPLAYSTREAM 196 GETSTREAM 175 \ILLEGAL.ARG 136 CURSOR 103 TTY.PROCESS 38 DREVERSE 33 CHCON 14 SETTERMTABLE) (1069 } 1052 % 1033 ?? 1012 % 999 { 914 \ 764 CNTRLV 743 \PROMPTFORWORDTTBL 738 WORDSEPR 723 \PROMPTFORWORDTTBL 718 WORDSEPR 687 \PROMPTFORWORDTTBL 682 WORDSEPR 666 WORDDELETE 629 RETYPE 593 LINEDELETE 565 CHARDELETE 554 \PROMPTFORWORDTTBL 537 INPUT 191 OUTPUT 181 TTYDISPLAYSTREAM 131 \PROMPTFORWORD.CURSOR 126 CURSOR 119 \PROMPTFORWORD.CURSOR 98 \RUNNING.PROCESS 93 TTY.PROCESS 85 \TTY.PROCESS 80 \RUNNING.PROCESS 73 \RUNNING.PROCESS 63 TTY 48 TTY 9 \PROMPTFORWORDTTBL 4 SETTERMTABLE) ( 522 " " 235 (13 27 32 10 9)) PROMPTFORWORD :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST I 7 KEYBD.CHANNEL I 6 TERMINCHARS.LST I 5 URGENCY.OPTION I 4 DONTECHOTYPEIN.FLG I 3 ECHO.CHANNEL I 2 GENERATE?LIST.FN I 1 CANDIDATE.STR I 0 PROMPT.STR F 6 LISPXHIST) ‡` ³/ljg IHó²7hJ ¿iJ ¿J¿V!g ¿$Idl ð³&dlð³ dl ð³dl ð³dl ð¬gJ¿IkÔY°™(126 ECHOCHAR 80 SI::RESETUNWIND 75 \MVLIST 70 PROMPTFORWORDA0001 47 CONTROL 39 ECHOMODE 24 COPYTERMTABLE 9 TERMTABLEP) (120 INDICATE 65 SI::RESETUNWIND 55 \PROMPTFORWORDTTBL 19 ORIG 4 \PROMPTFORWORDTTBL) () \PROMPTFORWORDBIN :D8 (L (3 TIMER 2 URGENCY.OPTION 1 DISPLAYECHOSTREAM 0 INSTREAM) F 7 BELLBEENHEARD? F 8 \LINEBUF.OFD F 9 TERMINCHARS.LST F 10 TIMELIMITEXPIRED?) lB´ W“nu0€jBd“3 hðWÉ4J²CÃ‘C‚l Höb¿@µK`ðhðµI \²E@µKi ²+K °%i “@ °@É É<½@kM”Wµ0A•„¿Cµnu0¹L²°œg ²íB–J¤ichW³ic¿gð•¿Ahn^¿J¢±ÿ^`ž``ð¢±ÿ0Hàll<Ö¾dNñ‘¿N¸±ÿ(215 FLASHWINDOW 204 RINGBELLS 192 MACHINETYPE 168 TIMEREXPIRED? 145 BLOCK 139 \TTYBACKGROUND 101 READP 89 READP 76 WAIT.FOR.TTY 51 \DAYTIME0) (237 \TTY.PROCESS 232 \RUNNING.PROCESS 226 \RUNNING.PROCESS 197 DANDELION 163 SECONDS 119 FDEV 112 STREAM 65 \KEYBOARD.STREAM 40 FIXP 26 STREAM) () \PROMPTFORWORDERASE :D8 (F 3 TTYD F 4 X0Y0 F 5 ECHO.CHANNEL) KS²BhS TTIJSSI JHÙjð³ShS HSÈ ÙJHÙhU (72 TERPRI 64 DSPCLEOL 46 DSPLEFTMARGIN 31 DSPCLEOL 24 MOVETO 9 DSPYPOSITION) (53 FONTDESCRIPTOR) () \PROMPTFORWORDBS :D8 (F 2 CHARBUFFER F 3 DONTECHOTYPEIN.FLG F 4 RUBBING? F 5 ECHO.CHANNEL F 6 TTYD) NRRc¿Sið³>SµH¹VµT¯gU ¿ic¿UI ¿°Ihdddi ª¿I(74 \PROMPTFORWORDRETYPE 68 \PROMPTFORWORDERASE 62 \DSPMOVELR 47 BOUT 35 PRIN3) (29 \) () \PROMPTFORWORDRETYPE :D8 (F 1 DONTECHOTYPEIN.FLG F 2 CHARBUFFER F 3 ECHO.CHANNEL) $Qið³R °dSQµH µîh(27 \OUTCHAR 10 REVERSE) NIL () (PRETTYCOMPRINT PASSWORDSCOMS) (RPAQQ PASSWORDSCOMS ((COMS (FNS LOGIN SETPASSWORD \INTERNAL/GETPASSWORD \INTERNAL/SETPASSWORD \LOGIN.READ PROVIDE.PROMPTING.WINDOW \ADJUST.USERNAME \ENCRYPT.PWD \DECRYPT.PWD) (INITVARS ( LOGINPASSWORDS (HASHARRAY 8)) (\GETPASSWORD.LOCK (CREATE.MONITORLOCK "GetPassword")) (DEFAULTREGISTRY) (\AFTERLOGINFNS) (\PROC.READY T) (UNSCHEDULEDPROMPTREGION (QUOTE (262 466 500 100)))) (GLOBALVARS LOGINPASSWORDS USERNAME \GETPASSWORD.LOCK DEFAULTREGISTRY \AFTERLOGINFNS UNSCHEDULEDPROMPTREGION \PROC.READY TTYREGIONOFFSETS \TTYREGIONOFFSETSPTR) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (PROP DMACRO EMPASSWORDLOC) (MACROS \DECRYPT.PWD.CHAR))) (P (MOVD? (QUOTE NILL) (QUOTE CLBUFS)))) (COMS (* PROMPTFORWORD) (FNS PROMPTFORWORD \PROMPTFORWORDBIN \PROMPTFORWORDERASE \PROMPTFORWORDBS \PROMPTFORWORDRETYPE) (INITVARS (\PROMPTFORWORDTTBL NIL) (\PROMPTFORWORD.CURSOR)) (GLOBALVARS \PROMPTFORWORDTTBL \PROMPTFORWORD.CURSOR)) (LOCALVARS . T))) (RPAQ? LOGINPASSWORDS (HASHARRAY 8)) (RPAQ? \GETPASSWORD.LOCK (CREATE.MONITORLOCK "GetPassword")) (RPAQ? DEFAULTREGISTRY) (RPAQ? \AFTERLOGINFNS) (RPAQ? \PROC.READY T) (RPAQ? UNSCHEDULEDPROMPTREGION (QUOTE (262 466 500 100))) (MOVD? (QUOTE NILL) (QUOTE CLBUFS)) (RPAQ? \PROMPTFORWORDTTBL NIL) (RPAQ? \PROMPTFORWORD.CURSOR) (PUTPROPS PASSWORDS COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1988 1990)) NIL