(FILECREATED "13-Dec-84 03:49:04" ("compiled on " {ERIS}LIBRARY>MONSTERSCOPE.;13) " 7-Dec-84 13:55:23" recompiled changes: ! \REMOTE! \BOUNDNCHARSP in "INTERLISP-D 8-Dec-84 ..." dated " 8-Dec-84 16:41:33") (FILECREATED "13-Dec-84 03:48:39" {ERIS}LIBRARY>MONSTERSCOPE.;13 12798 changes to: (VARS MONSTERSCOPECOMS) (FNS \REMOTE! ! \BOUNDNCHARSP) (RESOURCES \REMOTE!STREAM) previous date: "11-Dec-84 00:58:43" {ERIS}LIBRARY>MONSTERSCOPE.;8) !A0001 D1 (NAME ERRORSET P 2 STREAM P 1 BSPSOC P 0 PUPORT F 3 RESETVARSLST F 4 ANS F 5 WR F 6 RESETY) oT!Hµ TU hc id¡²îHd¡²äH Y¨Ho ¿gIÉ ihhhSc¿oIgg ZhSc¿J c°¤(151Q READ 134Q OPENBSPSTREAM 66Q ERROR 54Q OPENRTPSOCKET 17Q ERROR) (131Q \MONSTERSCOPE.ERRORHANDLER 126Q \MONSTERSCOPE.PUPHANDLER 76Q BSPSOC 72Q CLOSEPUPSOCKET) ( 122Q (PROGN (CLOSEBSPSTREAM OLDVALUE)) 63Q "Cant establish BSP connection") ! D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 WR P 0 ANS I 0 LINE F 5 LISPXHIST F 6 RESETVARSLST) »`d¡³@`d›lð´` d¡µ#ohdddi  d¡µg ¿g@h` oHdgð•¿HX°1gð²$U!Vog ‘h‚g\ ¿L“¿…HI ¿H¥HI ¿HH¸YdšI jñ“I H(267Q LISPXPRIN1 260Q NCHARS 241Q ERROR 230Q ERROR 220Q ERROR! 212Q RESETRESTORE 200Q !A0001 125Q REMOTEVAL 104Q HELP 66Q ETHERHOSTNUMBER 63Q MKATOM 60Q PROMPTFORWORD 33Q ETHERHOSTNUMBER) (206Q ERROR 175Q INTERNAL 156Q BSP 143Q OK 122Q REMOTEMONSTER 113Q \REMOTE! 107Q REMOTEMONSTER 101Q REMOTEMONSTER 30Q REMOTEMONSTER 15Q REMOTEMONSTER 2 REMOTEMONSTER) ( 172Q (!A0001) 131Q "WRONG RESULT" 47Q "What is the PUP name or number of your RemoteMonsterscope server? ") \MONSTERSCOPE.PUPHANDLER D1 (I 1 STREAM I 0 PUP) @ʇlð´`´ @` (24Q PRINTERRORPUP) (21Q PUPTRACEFILE 13Q PUPTRACEFLG) () \MONSTERSCOPE.ERRORHANDLER D1 (I 1 ERRCODE I 0 STREAM) Agð´@É"@kHNIL (12Q STREAM 3 MARK.ENCOUNTERED) () \REMOTE!A0001 D1 (NAME ERRORSET P 0 LEN F 1 \REMOTE!STREAM F 2 RESETVARSLST F 3 ANS F 4 LINE F 5 RESETY) ioQg hRc¿`²gQ hhhRc¿gT c¿`´#Q X¿jð³Qg ¿H kHQ €hScc i(134Q AIN 126Q ALLOCSTRING 121Q OPENSTREAM 105Q DRIBBLE 101Q GETFILEPTR 62Q EVAL 36Q DRIBBLE 12Q OPENSTREAM) (116Q INPUT 73Q REMOTEMONSTER.DRIBBLEFLG 55Q %. 32Q DRIBBLE 25Q REMOTEMONSTER.DRIBBLEFLG 7 OUTPUT) ( 3 (PROGN (CLOSEF? OLDVALUE))) \REMOTE! D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 PUPSOC P 2 ANS P 0 \REMOTE!STREAM I 0 LINE F 7 CREATEW F 10Q LISPXHIST F 11Q RESETVARSLST F 12Q \LOCALPUPNETHOST) ·g ²4`µ+W ²oo gg ¿`… ¿`µ"gg 1W!Wog ˜h‰h¿°äg^ ¿N“¿nôJi •gJ°-g[Jh ¿kYló¨¿IkÔ°ôgWK hH¿(253Q PUPSOCKETNUMBER 234Q BLOCK 222Q ADD.PROCESS 211Q OPENPUPSOCKET 174Q \BOUNDNCHARSP 162Q ERROR! 154Q RESETRESTORE 133Q \REMOTE!A0001 107Q OPENSTREAM 70Q TTYDISPLAYSTREAM 62Q DSPCREATE 52Q PUTWINDOWPROP 36Q CREATEW 21Q \DEFINEDP 5 \DEFINEDP) (263Q \\REMOTE!STREAM.GLOBALRESOURCE 245Q BSP 206Q \SENDMONSTERESULTS 200Q OK 150Q ERROR 142Q \\REMOTE!STREAM.GLOBALRESOURCE 130Q INTERNAL 104Q BOTH 101Q {NODIRCORE} 74Q \\REMOTE!STREAM.GLOBALRESOURCE 65Q REMOTEMONSTER.TTYWINDOW 56Q REMOTEMONSTER.TTYWINDOW 47Q TRUE 44Q PAGEFULLFN 41Q REMOTEMONSTER.TTYWINDOW 12Q REMOTEMONSTER.TTYWINDOW 2 CREATEW) ( 125Q (\REMOTE!A0001) 33Q "TtyWindow for REMOTEMONSTER" 27Q (310Q 144Q 620Q 310Q)) \SENDMONSTERESULTSA0001A0002A0003 D1 (I 0 C F 0 OUTSTREAM) P@ (4 BOUT) NIL () \SENDMONSTERESULTSA0001A0002 D1 (NAME ERRORSET L (0 NIL) F 1 STREAM F 2 OUTSTREAM F 3 ANS F 4 RESETY) Bl lxöHg ­¿Rg ®°ìQ ¿o ¿gSi ¿Q ci(74Q CLOSEBSPSTREAM 67Q \MAPCHARS 55Q ERROR 45Q CLOSEBSPSTREAM 36Q BSPOPENP 26Q BLOCK 22Q TIMEREXPIRED? 5 \DAYTIME0) (62Q \SENDMONSTERESULTSA0001A0002A0003 33Q OUTPUT 17Q SECONDS) ( 52Q "Timed out") \SENDMONSTERESULTSA0001 D1 (NAME ERRORSET P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 OUTSTREAM P 1 STREAM P 0 BSPSOC F 6 RESETVARSLST F 7 PUPSOC F 10Q LISPXHIST F 11Q RESETY) [gWihhhVc ¿hgWho !Hgd Y ºW!Vog ‘h‚g] ¿M“¿hci(121Q ERROR! 113Q RESETRESTORE 101Q \SENDMONSTERESULTSA0001A0002 60Q BSPOUTPUTSTREAM 54Q OPENBSPSTREAM 41Q OPENRTPSOCKET) (107Q ERROR 76Q INTERNAL 50Q NILL 26Q SERVER 2 CLOSEPUPSOCKET) ( 73Q (\SENDMONSTERESULTSA0001A0002) 35Q 352300Q) \SENDMONSTERESULTS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ANS I 0 PUPSOC F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \SENDMONSTERESULTSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\SENDMONSTERESULTSA0001)) \BOUNDNCHARSPA0001 D1 (I 0 C F 0 N) jPmÿÔcñ´g (17Q RETFROM) (14Q \BOUNDNCHARSP) () \BOUNDNCHARSP D1 (I 3 RDTBL I 2 FLG I 1 X I 0 N) gABC i(10Q \MAPCHARS) (2 \BOUNDNCHARSPA0001) () SPP! D1 (P 5 STREAM P 3 NSADD P 2 WR P 1 ANS P 0 N I 0 LINE) ½`d¡³0ohdddi  HœH Xd¡µ g ¿Hg`@h` o"Iµ°gð’IIdd¡–[µ IJ hlð²õKIi l lxö¼Lg ª¿M ®°ïM ¿o ¿M ¹M I(271Q SPP.CLOSE 264Q READ 257Q ERROR 247Q SPP.CLOSE 240Q SPP.READP 233Q BLOCK 227Q TIMEREXPIRED? 214Q \DAYTIME0 203Q SPP.OPEN 164Q ERROR 111Q REMOTEVAL 62Q HELP 43Q ETHERHOSTNUMBER 32Q MKATOM 27Q PROMPTFORWORD) (224Q SECONDS 132Q SPP! 106Q REMOTEMONSTER 76Q \MY.NSADDRESS 73Q SPP\REMOTE! 67Q REMOTEMONSTER 57Q REMOTEMONSTER 2 REMOTEMONSTER) ( 254Q "Timed out" 115Q "WRONG RESULT" 16Q "What is the PUP name or number of your RemoteMonsterscope server? ") SPP\REMOTE!A0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 \REMOTE!STREAM F 2 LINE F 3 RESETY) gQ hhPc¿gR ci(30Q EVAL 6 OUTPUT) (23Q %. 2 OUTPUT) () SPP\REMOTE! D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 LEN P 3 SKT P 2 ANS P 0 \REMOTE!STREAM I 1 LINE I 0 NSADD F 10Q REMOTEMONSTER.TTYWINDOW F 11Q LISPXHIST F 12Q RESETVARSLST) ÄW ­oo c¿W `µ+gg Hj ¿0W!Wog ˜h‰h¿°Ûg_ ¿O“€NºH \jð³L kLH Hj ¿ƒoJºnôJ ñ•gJ°,g@[Jh ¿kYl ó¨¿IkÔ°ôK `hH¿(265Q NSOCKETNUMBER 253Q BLOCK 241Q ADD.PROCESS 227Q OPENNSOCKET 210Q NCHARS 170Q SETFILEPTR 163Q AIN 155Q ALLOCSTRING 144Q GETFILEPTR 134Q ERROR! 125Q RESETRESTORE 103Q SPP\REMOTE!A0001 56Q SETFILEPTR 46Q OPENSTREAM 30Q TTYDISPLAYSTREAM 20Q CREATEW 4 WINDOWP) (300Q \\REMOTE!STREAM.GLOBALRESOURCE 270Q \MY.NSADDRESS 223Q SPP\SENDMONSTERESULTS 215Q OK 120Q ERROR 112Q \\REMOTE!STREAM.GLOBALRESOURCE 100Q INTERNAL 43Q BOTH 40Q {NODIRCORE} 33Q \\REMOTE!STREAM.GLOBALRESOURCE) ( 176Q "" 75Q (SPP\REMOTE!A0001) 15Q "TtyWindow for REMOTEMONSTER" 11Q (310Q 144Q 620Q 310Q)) SPP\SENDMONSTERESULTSA0001 D1 (I 0 C F 0 STREAM) P@ (4 BOUT) NIL () SPP\SENDMONSTERESULTS D1 (P 1 SPPCON P 0 STREAM I 2 ANS I 1 SKT I 0 NSADD) whA 1HÉ Yl lxöºJg ¯¿IÊjðž°êH ¿o ¿gBi H l lxö»Kg ®¿IÊ jð³ëH Ai h(163Q CLOSENSOCKET 156Q SPP.CLOSE 136Q BLOCK 132Q TIMEREXPIRED? 117Q \DAYTIME0 111Q SPP.SENDEOM 105Q \MAPCHARS 74Q ERROR 64Q SPP.CLOSE 43Q BLOCK 37Q TIMEREXPIRED? 24Q \DAYTIME0 4 SPP.OPEN) (143Q SPPCON 127Q SECONDS 100Q SPP\SENDMONSTERESULTSA0001 50Q SPPCON 34Q SECONDS 13Q STREAM) ( 71Q "Timed out") (PRETTYCOMPRINT MONSTERSCOPECOMS) (RPAQQ MONSTERSCOPECOMS ((FILES (SYSLOAD FROM LISPUSERS) EVALSERVER) (COMS (* "Client side") (FNS ! \MONSTERSCOPE.PUPHANDLER \MONSTERSCOPE.ERRORHANDLER) (INITVARS (REMOTEMONSTER NIL)) (GLOBALVARS REMOTEMONSTER)) (COMS (* "Server side") (FNS \REMOTE! \SENDMONSTERESULTS \BOUNDNCHARSP) (DECLARE: EVAL@COMPILE DONTCOPY (RESOURCES \REMOTE!STREAM)) (INITRESOURCES \REMOTE!STREAM) (INITVARS ( REMOTEMONSTER.DRIBBLEFLG T)) (GLOBALVARS REMOTEMONSTER.TTYWINDOW REMOTEMONSTER.DRIBBLEFLG)) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) BSP)) (FILES (SYSLOAD) BSP) (DECLARE: DONTEVAL@LOAD DOCOPY (P (OR (WAKE.PROCESS (QUOTE EvalServerListening)) (EVALSERVER)))) (COMS (* "At one time, I tried using SPP instead of BSP") (DECLARE: DONTCOPY (FNS SPP! SPP\REMOTE! SPP\SENDMONSTERESULTS) (FILES (LOADCOMP) SPP))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SPP! !) (NLAML SPP\SENDMONSTERESULTS SPP\REMOTE! \SENDMONSTERESULTS \REMOTE!) (LAMA))))) (FILESLOAD (SYSLOAD FROM LISPUSERS) EVALSERVER) (RPAQ? REMOTEMONSTER NIL) (/SETTOPVAL (QUOTE \\REMOTE!STREAM.GLOBALRESOURCE)) (RPAQ? REMOTEMONSTER.DRIBBLEFLG T) (FILESLOAD (SYSLOAD) BSP) (OR (WAKE.PROCESS (QUOTE EvalServerListening)) (EVALSERVER)) (PUTPROPS MONSTERSCOPE COPYRIGHT ("Xerox Corporation" 1984)) NIL