(FILECREATED " 4-Aug-84 23:32:07" ("compiled on " {ERIS}LIBRARY>RS232LOGIN.;7) " 1-Aug-84 17:04:49" recompiled changes: RS232.PROMPT&LOGIN RS232LOGIN in "INTERLISP-D 4-Aug-84 ..." dated " 4-Aug-84 16:09:54") (FILECREATED " 4-Aug-84 23:31:40" {ERIS}LIBRARY>RS232LOGIN.;7 16922 changes to: (FNS RS232.PROMPT&LOGIN RS232LOGIN) previous date: "25-Jun-84 21:13:47" {ERIS}LIBRARY>RS232LOGIN.;6) RS232.PROMPT&LOGIN D1 (P 1 HOST.SYSTEMTYPE P 0 HOST I 0 TypeScriptStream F 2 NETWORKOSTYPES) µ ` ¿’±‡` ¿n ¿o`g`hg  X³Xl °ÊH` µHR Y³S` ¿n ¿ohg`hg  Yµl Ž` ³o ¿²®gHI`¿HhdI@`g (262Q RS232LOGIN 222Q \RS232LOGIN.CHECKSTOP 216Q HELP 205Q ASSOC 176Q RINGBELLS 166Q MKATOM 163Q PROMPTFORWORD 137Q \RS232INSURE.LINEBUFFER 130Q FRESHLINE 116Q ASSOC 107Q ASSOC 76Q RINGBELLS 66Q MKATOM 63Q PROMPTFORWORD 35Q \RS232INSURE.LINEBUFFER 26Q FRESHLINE 14Q \RS232LOGIN.CHECKSTOP 10Q DSPRESET) (256Q TTY 253Q PROMPTWINDOW 242Q RS232OSTYPES 236Q RS232OSTYPES 227Q StopLogin 202Q RS232LOGINSYSTEMTYPEINFO 157Q TTY 153Q PROMPTWINDOW 150Q \RS232.P&L.FINDGOODNAMES 125Q PROMPTWINDOW 104Q RS232OSTYPES 57Q TTY 53Q PROMPTWINDOW 50Q \RS232.P&L.FINDGOODNAMES 45Q \RS232LOGIN.LASTHOSTNAME 23Q PROMPTWINDOW 5 PROMPTWINDOW) ( 213Q "Sorry, I don't know that SYSTEMTYPE; type OK to try again. " 144Q " HostSYSTEMTYPE = " 42Q "{Login thru RS232} Hostname: ") RS232LOGIN D1 (P 20Q PREVIOUSCHAR P 17Q C P 12Q PAGEPATTERN P 11Q PAGESIZE P 10Q MESSAGE P 7 CHAR P 6 5SECS.tics P 5 3SECS.tics P 4 WINDOW P 3 Host'sAttnChar P 2 LoginName P 1 PWHashEntry P 0 HST I 6 URGENCY.OPTION I 5 PROMPTFORWORDstream I 4 TypeScriptStream I 3 HostSYSTEMTYPE I 2 PASSWORD I 1 UserName I 0 HOST F 24Q NETWORKOSTYPES) N`¦g ¿Dd`ð²g ³GDo °<¥i °3Ddgð“¿h°( ªD ¥Ddið–¿D °lð—Dg ƒD b¿Cgð³@C` Xµ/@²"@` µ@W( XšH` Xµ@µDoC ¿HbB²B­Blð´B b¿F£ib ¿@d“`hdi ²h°k` X²¶hb°¹A³6Ib³0E ¿@œo@o ƒoJhEhF  b¿’h°%B“I³I•I ŒohdEiF b’@µui´‚±CD ´D `lÚ`lÚt Cd¡µjdnñ£¿n ¿L”L ¿g ¿o_d³goonÿÿ i¿OŽAB ¿°‡d ¿µøk_lñ’±‹™g gKD•DK ¿Ki ¿`lð“`‚lwNö_¿Og ³?`™`²!°`›`Èn€xåjð„n€tñ£¿``ð§``€h_²»O³ OkرÿrO³Dµgg ¿°ò¿NhDL ³õ’±ÿTCQOÈ_$¿OÉ_&¿O$OÈkÙØ_"¿O$O"ñ³dO&O$dkØ_$¿Â_dl˜ð–¿A °Cl™ð²9¿O l ð¦O lð²MiDL _¿oOhddd` €iB›Bi „O ¿O_ ¿°™’±þ¿NhDL ”°ô’±þª@¿C¿g ¿Ld•CM h(1512Q \RS232LOGIN.SENDPAGESIZE 1501Q RS232CLEARBUFFER 1455Q \RS232LOGIN.CHECKSTOP 1450Q \RS232.CHECKUART 1444Q \RS232LOGIN.MSGDALLY 1434Q RS232FORCEOUTPUT 1425Q \RS232LOGIN.CHECKSTOP 1411Q RS232WRITEBYTE 1403Q RS232WRITESTRING 1371Q STRPOS 1345Q \RS232LOGIN.MSGDALLY 1320Q RS232FORCEOUTPUT 1306Q RS232WRITESTRING 1203Q \RS232LOGIN.CHECKSTOP 1176Q \RS232LOGIN.MSGDALLY 1166Q \RS232.CHECKUART 1160Q \RS232BOUTSTRING 1155Q MKSTRING 1073Q \RS232.PROCESSINTERRUPT 1040Q \RS232C.PROCESSINTERRUPT 1022Q TIMEREXPIRED? 761Q RS232WRITEBYTE 753Q BOUT 736Q RS232CLEARBUFFER 727Q \RS232LOGIN.CHECKSTOP 705Q \FRESHENUPFN 675Q SETPASSWORD 657Q \ONPATHS.CCODE 623Q RS232CLEARBUFFER 614Q TOTOPW 605Q \RS232INSURE.LINEBUFFER 532Q WFROMDS 524Q DISPLAYSTREAMP 477Q PROMPTFORWORD 461Q \DECRYPT.PWD 437Q \RS232LOGIN.CHECKSTOP 431Q MKATOM 426Q PROMPTFORWORD 410Q CONCAT 371Q FRESHLINE 343Q ASSOC 330Q \RS232LOGIN.CHECKSTOP 322Q USERNAME 272Q MKSTRING 243Q ERROR 224Q ASSOC 212Q ASSOC 202Q ASSOC 164Q ASSOC 136Q \ILLEGAL.ARG 131Q OPENSTREAM 113Q GETSTREAM 100Q DISPLAYSTREAMP 73Q WINDOWP 53Q GETSTREAM 44Q ERROR 32Q OPENP 12Q ERROR) (1476Q INPUT 1472Q \RS232LOGIN.LASTHOSTSYSTEMTYPE 1465Q \RS232LOGIN.LASTHOSTNAME 1365Q UPPERCASEARRAY 1152Q NoResponseFromHost 1146Q NoResponseFromHost 1112Q \RS232IRING.READ 1107Q \RS232IRINGBUF 1102Q \RS232IRING.WRITE 1077Q \RS232IRING.READ 1051Q \DLionTTYInLoc 1045Q \RS232DLion? 1033Q \RS232BACKGROUNDERRORSTATUS 1027Q \RS232DLionRS232C? 1017Q TICKS 1004Q FIXP 775Q \RS232LOGIN.TIMER 765Q \RS232LOGIN.TIMER 741Q StopLogin 733Q BOTH 641Q \RS232INSURE.LINEBUFFER 620Q BOTH 543Q \RCLKSECOND 535Q \RCLKSECOND 340Q RS232LOGINSYSTEMTYPEINFO 311Q LOGINPASSWORDS 221Q RS232LOGINSYSTEMTYPEINFO 177Q RS232OSTYPES 161Q RS232LOGINSYSTEMTYPEINFO 147Q LOGINSYSTEMTYPE 126Q OUTPUT 62Q NONE 27Q OUTPUT 21Q STREAMTYPE# 7 RS232NotInitialized 2 RS232INIT) ( 1354Q "PASSWORD" 651Q (\RS232INSURE.LINEBUFFER CHCON1 NCHARS CHARCODEP DSPBACKUP ERROR \LISPERROR \ILLEGAL.ARG RAID BLOCK \CLOCK0 HELP \DAYTIME0 \ILLEGAL.ARG SHOULDNT \GETBASESTRING DISMISS CLOCK0 \STOPSCROLL? BITMAPCREATE DSPBACKCOLOR FONTCREATE \SHOWCARET CREATEW OPENW MKSTRING ERRORX \RUN.PROCESS \CanonicalizeTimerUnits \MAPCHARS MENU) 645Q (\RS232LOGIN.CHECKSTOP \RS232BOUTSTRING RS232WRITESTRING \DSPPRINTCHAR RS232WRITEBYTE RS232READBYTE RS232READSTRING RS232FORCEOUTPUT \RS232LOGIN.MSGDALLY STRPOS) 630Q (NIL) 466Q " (password)" 415Q "Login ID:" 405Q ":" 400Q "Login ID for " 237Q "We really must know what the HostSYSTEMTYPE is" 41Q "Not open for output") \RS232LOGIN.CHECKSTOP D1 NIL ´`gð´` gh¿ð(23Q MENU 2 \RS232CHECK.BLOCK) (32Q \RS232CHAT.MENUSIGNAL 26Q StopLogin 20Q \RS232CHATMENU 12Q MENU 7 \RS232CHAT.MENUSIGNAL) () \RS232LOGIN.MSGDALLY D1 (P 5 C P 4 J P 3 I P 1 OPOS P 0 MESSAGE I 3 WINDOWP I 2 TypeScriptStream I 1 FORCETRUNC7? I 0 WAIT?.tics F 6 \RS232CHAT.IgnoreCharcodes) šn hdd@d¡µ`g` ²g Igi °^H´ HÈjð‘hA®`²>`lñ²4HÈkjKJñ³"HK)lå½C”Ml ð«MV§HLkØ\M+¿KkØ[°ÞHLÍB`ð”BH H(226Q \RS232BOUTSTRING 67Q RETFROM 54Q STKPOS 44Q \RS232LOGIN.CHECKSTOP 36Q RS232READSTRING 5 \RS232INSURE.LINEBUFFER) (217Q STREAMTYPE# 121Q RS232INIT 114Q \RS232CHAT7? 63Q StopLogin 51Q RS232LOGIN 32Q \RS232STRPTR 27Q TICKS 24Q \RCLKSECOND) () \RS232LOGIN.SENDPAGESIZEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 X F 5 PAGESIZE F 6 PAGEPATTERN F 7 MACROY) JVAHÈ»HɼKHÈkÙØZ¿KJñ³+LKdkØ»ÂYdl˜ð¥dl™ð²l˜ð’U€U °Ø °Óhci(100Q RS232WRITEBYTE 73Q RS232WRITESTRING 70Q MKSTRING) NIL () \RS232LOGIN.SENDPAGESIZE D1 (P 7 RESETSTATE P 6 MACROY P 4 OLDVALUE P 3 MSG P 2 OUTSTRM P 1 PAGEPATTERN P 0 PAGESIZE I 2 DALLY.tics I 1 HostSYSTEMTYPE I 0 WINDOW F 10Q RESETVARSLST) Š@g A@ H´^I´[g ¿A[µOl 1gLhhWc½og ¥g_¿Mc¿gM ¿O“¿¿hdJi hi ¿BhJi ¿g ¿°Ÿ(205Q RS232CLEARBUFFER 176Q \RS232LOGIN.MSGDALLY 166Q RS232WRITEBYTE 160Q \RS232LOGIN.MSGDALLY 150Q RS232FORCEOUTPUT 143Q ERROR! 134Q APPLY 106Q \RS232LOGIN.SENDPAGESIZEA0001 52Q RADIX 36Q RS232CLEARBUFFER 17Q GETSTREAM 6 GETWINDOWUSERPROP) (202Q INPUT 125Q RADIX 112Q ERROR 103Q INTERNAL 60Q RADIX 33Q INPUT 3 PAGESIZE) ( 100Q (DUMMY.FOR.ERRORSET)) \RS232.P&L.FINDGOODNAMES D1 (P 4 X I 0 MSG) W@@o ”`°:`°5dL¼o[d¬oi i¿KL ´LhX–Iµ HZY¿µÌJ YH°ó(120Q LAST 67Q STRPOSL 55Q MAKEBITTABLE 12Q STREQUAL) (23Q RS232LOGINSYSTEMTYPEINFO 16Q RS232OSTYPES) ( 51Q (55Q) 41Q (NIL) 7 "{Login thru RS232} Hostname = ") (PRETTYCOMPRINT RS232LOGINCOMS) (RPAQQ RS232LOGINCOMS ((COMS (* Temporary patch) (P (MOVD? (QUOTE EVQ) (QUOTE \ENCRYPT.PWD)) (MOVD? ( QUOTE EVQ) (QUOTE \DECRYPT.PWD)) (OR (AND (BOUNDP (QUOTE UPPERCASEARRAY)) (STRPOS "foo" "FOO" NIL NIL NIL NIL UPPERCASEARRAY)) (FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH)))) (FILES (SYSLOAD) RS232) (* LOGIN facilities) (DECLARE: EVAL@COMPILE DONTCOPY (P (OR (GETMACROPROP (QUOTE RS232INITIALIZECHECK) COMPILERMACROPROPS) (LOADFROM (QUOTE RS232))))) (RECORDS LOGINSYSTEMTYPE) (VARS RS232OSTYPES RS232LOGINSYSTEMTYPEINFO) (FNS RS232.PROMPT&LOGIN RS232LOGIN \RS232LOGIN.CHECKSTOP \RS232LOGIN.MSGDALLY \RS232LOGIN.SENDPAGESIZE \RS232.P&L.FINDGOODNAMES) (INITVARS ( \RS232LOGIN.LASTHOSTNAME NIL) (\RS232LOGIN.LASTHOSTSYSTEMTYPE NIL) (\RS232LOGIN.TIMER (SETUPTIMER 0)) (\RS232STRPTR (ALLOCSTRING 0))) (GLOBALVARS RS232OSTYPES RS232LOGINSYSTEMTYPEINFO \RS232LOGIN.LASTHOSTNAME \RS232LOGIN.LASTHOSTSYSTEMTYPE \RS232LOGIN.TIMER \RS232STRPTR) (INITVARS ( \RS232CHAT7? T) (\RS232CHAT.EOLsequence " ") (\RS232CHAT.NEWLINECHAR (CHARCODE LF)) (\RS232CHAT.IgnoreCharcodes (LIST (CHARCODE NULL)))) ( GLOBALVARS \RS232CHAT7?) (SPECVARS \RS232CHAT.NEWLINECHAR \RS232CHAT.EOLsequence \RS232CHAT.IgnoreCharcodes))) (MOVD? (QUOTE EVQ) (QUOTE \ENCRYPT.PWD)) (MOVD? (QUOTE EVQ) (QUOTE \DECRYPT.PWD)) (OR (AND (BOUNDP (QUOTE UPPERCASEARRAY)) (STRPOS "foo" "FOO" NIL NIL NIL NIL UPPERCASEARRAY)) ( FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH)) (FILESLOAD (SYSLOAD) RS232) (TYPERECORD LOGINSYSTEMTYPE (ATTNCHAR LOGINPATTERN PAGESIZEPATTERN MINIMALLINEBUFFERSIZE)) (RPAQQ RS232OSTYPES ((MAXC . TENEX) (SUMEX-AIM . TOPS20) (SUMEX . TOPS20) (NIL . TENEX))) (RPAQQ RS232LOGINSYSTEMTYPEINFO ((TENEX LOGINSYSTEMTYPE 3 "LOGIN ˜ ™ " "LENGTH ™ WIDTH ˜ " 512) (TOPS20 LOGINSYSTEMTYPE 3 "LOGIN ˜™ " "TERMINAL WIDTH ˜ TERMINAL LENGTH ™ " 512) (VMS LOGINSYSTEMTYPE 13 "˜ ™ " "SET TERMINAL/WIDTH=˜/PAGE=™ " 512) (UNIX LOGINSYSTEMTYPE 13 "˜ ™ " NIL 512) (WAITS LOGINSYSTEMTYPE 3 "LOGIN ˜ ™ " NIL 1536) (ITS LOGINSYSTEMTYPE 26 ":LOGIN ˜ ™ " ":TCTYP LINELENGTH ˜ PAGESIZE ™ " 512) (TOPS10 LOGINSYSTEMTYPE 3 "LOGIN ˜ ™ " NIL 512))) (RPAQ? \RS232LOGIN.LASTHOSTNAME NIL) (RPAQ? \RS232LOGIN.LASTHOSTSYSTEMTYPE NIL) (RPAQ? \RS232LOGIN.TIMER (SETUPTIMER 0)) (RPAQ? \RS232STRPTR (ALLOCSTRING 0)) (RPAQ? \RS232CHAT7? T) (RPAQ? \RS232CHAT.EOLsequence " ") (RPAQ? \RS232CHAT.NEWLINECHAR (CHARCODE LF)) (RPAQ? \RS232CHAT.IgnoreCharcodes (LIST (CHARCODE NULL))) (PUTPROPS RS232LOGIN COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL