(FILECREATED "28-Mar-85 18:58:00" ("compiled on " {ERIS}SOURCES>PUPPRINT.;2) "19-Mar-85 14:34:17" recompiled exprs: EFTP in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "28-Mar-85 18:56:47" {ERIS}SOURCES>PUPPRINT.;2 15086 changes to: (FNS EFTP) previous date: "30-Jan-85 22:25:27" {ERIS}SOURCES>PUPPRINT.;1) EFTPA0001 D1 (NAME ERRORSET P 34Q IPUP P 33Q CAPABILITIES P 32Q CLOSER P 31Q ABORTER P 30Q PRESSDATAPAGE# P 27Q THISPAGELENGTH P 26Q LENGTH P 25Q LASTPAGELENGTH P 24Q LASTPAGE# P 23Q SOC P 22Q ID P 21Q CURPAGE# P 20Q NEWSTATUS P 17Q STATUS P 16Q HOSTNAME P 15Q NC P 14Q USERNAMESTRING P 13Q ENDING P 12Q RESULT P 11Q DATA P 10Q STREAM P 7 CRDATE P 6 DOCNAME P 5 #COPIES P 4 #SIDES P 3 OPUP P 2 CHECKSTATUS P 1 TIMEOUT P 0 HOSTPORT F 41Q PRINTOPTIONS F 42Q RESETVARSLST F 43Q HOST F 44Q FILE F 45Q RESETY) h!WFg `WB WHd`g _gOh_4hhWDcDOg _,n_*O,_(WBO*joWH O(k_0WBdg WBg ^KWBg ]MjkWBg _dOo _hdi _ _l"Okl 4 l3Nkl3 N lOhi _ OoO _g_&hhhWDcDKHllmO&i gO&Kh_2hhWDcDO"`o` j_$O"j/O j"O Oj O4O g _j_"KlLdO6oH _ BOlVhH _6Ujd` o` WF` o` h_Ojd` O _` ` gO6  lTVLkgO6  lT?Kl(_nOnKgLkgghhOl lm_"WFi oi i O"O(O*ji_&KO*_.lO(O"Kn_.li_OKlKl`K O$YOKl(__<6_:Ok_@O>J9H _ d/O)jd` O _` Odldk`YhO&KhdI _8WBO$jiO@k԰dl5O8 O8 O$O$k_$O"k_"OKO$ O&K UlC`o` O8(O8 dlgO8l 3dl` .l(O8 hOO2gOOcJijd` o` WF` o` (2143Q PRIN1 2130Q PRIN1 2117Q PRIN1 2104Q TAB 2037Q RELEASE.PUP 2021Q DISMISS 2002Q GETPUPSTRING 1761Q RELEASE.PUP 1747Q PRIN1 1721Q SENDPUP 1653Q RELEASE.PUP 1604Q EXCHANGEPUPS 1545Q PRIN1 1531Q TAB 1507Q PUP.PRINTER.STATUS 1451Q SetBcplString 1433Q SetBcplString 1420Q SetBcplString 1206Q TERPRI 1201Q PRIN1 1170Q PRIN1 1145Q \STOREPLIST 1060Q CHCON1 1053Q ASSOC 1031Q CHCON1 1024Q ASSOC 1011Q BLOCK 1000Q PRIN1 764Q TAB 740Q PRIN1 725Q PRIN1 714Q PRIN1 701Q TAB 665Q PUP.PRINTER.PROPERTIES 643Q PUP.PRINTER.STATUS 601Q OPENSTREAM 573Q CLOSEF 561Q SETFILEPTR 552Q RANDACCESSP 541Q GETFILEPTR 521Q PRIN1 451Q SETUPPUP 413Q OPENPUPSOCKET 402Q CONCAT 364Q NCHARS 357Q ETHERHOSTNAME 343Q MKSTRING 336Q SUBSTRING 323Q NCHARS 316Q SUBSTRING 277Q NCHARS 272Q USERNAME 261Q GDATE 241Q LISTGET 217Q LISTGET 204Q LISTGET 173Q LISTGET 147Q HELP 103Q GETFILEINFO 44Q OPENSTREAM 17Q ALLOCATE.PUP 7 BESTPUPADDRESS) (2140Q PROMPTWINDOW 2125Q PROMPTWINDOW 2114Q PROMPTWINDOW 2101Q PROMPTWINDOW 2054Q * 2016Q \EFTP.LONGTIMEOUT 1773Q REJECT 1744Q PUPTRACEFILE 1734Q PUPTRACEFLG 1566Q \EFTP.LONGTIMEOUT 1542Q PROMPTWINDOW 1526Q PROMPTWINDOW 1463Q \MAXETHERTRIES 1130Q TRUE 1124Q FALSE 1115Q DUPLEX 1046Q DUPLEX 1017Q PRINT-INSTANCE 1006Q \EFTP.TIMEOUT 775Q PROMPTWINDOW 761Q PROMPTWINDOW 735Q PROMPTWINDOW 722Q PROMPTWINDOW 711Q PROMPTWINDOW 676Q PROMPTWINDOW 576Q INPUT 516Q PUPTRACEFILE 506Q PUPTRACEFLG 455Q \ABORT.EFTP 410Q CLOSEPUPSOCKET 236Q DOCUMENT.CREATION.DATE 214Q #COPIES 201Q DOCUMENT.NAME 170Q #SIDES 100Q LENGTH 52Q CLOSEF 41Q INPUT 34Q STREAMTYPE# 12Q \EFTP.TIMEOUT 4 ERROR) ( 2135Q "]" 2111Q "[No response from " 1741Q "[abort]" 1175Q " does not support #sides specification" 732Q "]" 706Q "[No response from " 513Q " (restarting)" 375Q " on " 256Q (DATEFORMAT TIME.ZONE) 142Q "Press file with non-integral number of pages?") EFTP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 PRINTOPTIONS I 1 FILE I 0 HOST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q EFTPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (EFTPA0001)) \ABORT.EFTP D1 (I 1 PUP I 0 SOC) AlAlAk(@A (23Q SENDPUP) NIL () PUP.PRINTER.STATUS D1 (P 4 IPUP P 3 RESULT P 2 OPUP P 1 SOC P 0 HOSTPORT I 0 PRINTER) @` CHhJHllhI `k^MJIJhi \9dlL(Ll L 9l`L` L "L Nk԰`o` ` J K(214Q RELEASE.PUP 207Q TERPRI 200Q PRIN1 153Q RELEASE.PUP 145Q RELEASE.PUP 140Q PRINTERRORPUP 116Q RELEASE.PUP 110Q GETPUPSTRING 60Q EXCHANGEPUPS 37Q SETUPPUP 14Q ALLOCATE.PUP 11Q \GETMISCSOCKET 6 BESTPUPADDRESS) (204Q PUPTRACEFILE 175Q PUPTRACEFILE 164Q PUPTRACEFLG 135Q PUPTRACEFILE 130Q PUPTRACEFLG 42Q \MAXETHERTRIES 3 PROMPTWINDOW) ( 172Q "Printer status request timed out") PUP.PRINTER.PROPERTIES D1 (P 4 IPUP P 3 RESULT P 2 OPUP P 1 SOC P 0 HOSTPORT I 0 PRINTER) @` CHhJHllhI `k^M7IJhi \Nk԰dlL [+l`"L` `o` ` LL K(173Q RELEASE.PUP 164Q TERPRI 155Q PRIN1 134Q PRINTERRORPUP 110Q READPLIST 105Q GETPUPSTREAM 60Q EXCHANGEPUPS 37Q SETUPPUP 14Q ALLOCATE.PUP 11Q \GETMISCSOCKET 6 BESTPUPADDRESS) (161Q PUPTRACEFILE 152Q PUPTRACEFILE 141Q PUPTRACEFLG 131Q PUPTRACEFILE 123Q PUPTRACEFLG 42Q \MAXETHERTRIES 3 PROMPTWINDOW) ( 147Q "Printer capability request timed out") (PRETTYCOMPRINT PUPPRINTCOMS) (RPAQQ PUPPRINTCOMS ((FNS EFTP \ABORT.EFTP PUP.PRINTER.STATUS PUP.PRINTER.PROPERTIES) (DECLARE: DONTCOPY (CONSTANTS * EFTPPUPTYPES) (CONSTANTS * EFTPCONSTANTS) (ADDVARS * (LIST (CONS (QUOTE PUPTYPES ) EFTPPUPTYPES))) (GLOBALVARS \EFTP.TIMEOUT \EFTP.LONGTIMEOUT)) (INITVARS (\EFTP.TIMEOUT 5000) ( \EFTP.LONGTIMEOUT 15000)))) (RPAQ? \EFTP.TIMEOUT 5000) (RPAQ? \EFTP.LONGTIMEOUT 15000) (PUTPROPS PUPPRINT COPYRIGHT ("Xerox Corporation" 1985)) NIL