(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "26-Jan-98 13:26:31" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>NSPRINT.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "28-Apr-92 17:29:44" |{PELE:MV:ENVOS}SOURCES>NSPRINT.;3| 30963 changes to%: ( FNS \NSPRINT.INTERNAL) previous date%: "16-May-90 20:54:31" |{PELE:MV:ENVOS}SOURCES>NSPRINT.;2|) GETNSPRINTER :D8 (P 1 INFO P 0 NAME I 0 HOST) ²@d²Ãš@Ã‘@@µb`µ[og ´Djd`¿o` ¿`` ¿o` ¿`Hµohi XhiYµoH Ih(167 ERROR 153 LOOKUP.NS.SERVER 145 PARSE.NSNAME 139 ERROR 115 PRIN1 99 PRIN1 83 PRIN1 67 TAB 47 CH.LIST.OBJECTS) (121 NS.DEFAULT.PRINTER 110 PROMPTWINDOW 94 PROMPTWINDOW 89 NS.DEFAULT.PRINTER 78 PROMPTWINDOW 62 PROMPTWINDOW 53 NS.DEFAULT.PRINTER 42 PRINT.SERVICE 30 NS.DEFAULT.PRINTER 19 NSADDRESS 10 NSNAME) ( 161 "Can't find address of " 132 "Can't find an NS printserver" 105 "]" 73 "[Default NS printer set to " 37 "*") NSPRINTA0001A0002 :D8 (I 0 DATASTREAM F 0 INSTREAM) FP jð¯P ²Pj ¿P@ hP P ¿ghdo c°×(64 OPENSTREAM 45 CLOSEF 39 FULLNAME 31 COPYBYTES 23 SETFILEPTR 14 RANDACCESSP 5 GETFILEPTR) (51 INPUT) ( 58 ((SEQUENTIAL T))) NSPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 JOBNAME P 1 PRINTRESULTS P 0 DOCUMENT.NAME I 0 SI::*CLEANUP-FORMS* F 3 OPTIONS F 4 PRINTER F 5 INSTREAM F 6 FILE) ™0T cVghdo c Sg'XµmgU XSc¿Sg'³gUg Sc¿TSgYd´+`²#Sg'³ITJµHg µHHº°¦(146 \NSPRINT.WATCH.JOB 138 UNPACKFILENAME.STRING 102 \NSPRINT.INTERNAL 84 GETFILEINFO 52 FULLNAME 29 OPENSTREAM 8 GETNSPRINTER) (133 NAME 119 NO.WATCHER 111 NSPRINT.WATCHERFLG 97 NSPRINTA0001A0002 79 ICREATIONDATE 73 DOCUMENT.CREATION.DATE 65 DOCUMENT.CREATION.DATE 46 DOCUMENT.NAME 37 DOCUMENT.NAME 16 INPUT) ( 23 ((SEQUENTIAL T))) NSPRINTA0003 :D8 (F 0 INSTREAM) Pd” (7 CLOSEF?) NIL () NSPRINT :D8 (P 0 INSTREAM I 2 OPTIONS I 1 FILE I 0 PRINTER) g H–H ¿$(25 CLOSEF? 17 \MVLIST 12 NSPRINTA0001) (7 NSPRINTA0003) () \NSPRINT.INTERNALA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 14 PS P 13 SS P 12 LASTSTATUS P 11 STATUS P 10 VALUE P 9 PROPERTIES P 8 PRINTOPTIONS P 7 ATTRIBUTES P 6 DOCNAME P 5 SENDER.NAME P 4 TWO.SIDED? P 3 STAPLE? P 0 MEDIUM I 0 SI::*CLEANUP-FORMS* F 15 OPTIONS F 16 PRINTER F 17 COURIERSTREAM F 18 TRANSFERFN) Wg'µ`!Wg'Wg'µ`lðWg'd¦diWg'µogNhgWg'µhgMhhgWg'µkjØhhAWg'_² gO µ O hO_¿Wg'_²9gOdgð³ dgð³dgð¬dgð¤ hO_¿Wg'_² gO µ O hO_¿Wg'_µEW c"’±€jd`¿o` ¿W ` ¿nˆ ¿°¿d²<¿Od²4d³/Y²'jIñ³"OZ²jJñ³gOhO_¿°ƒO ¿±ÿy W"ggg_gð¢±„OOô³g` ¿o` ¿W ` ¿o` ¿Olmþ` ¿o` ¿O_¿nu0 ¿nˆ ¿±ÿ_gO_Oð³åOdgð¢±ÓH¦K¤L¢±°W"ggg_gð¢±üO_¿W" ¿Odgð³dgðªdgð¢±˜¿Og_ð³_` ¿o` ¿W ` ¿o` ¿O ` ¿o` ¿n' ¿±ýägð´A`oW gO_gðªOdgð’¿h„ ¿O_±þÁgO_±ÿHµ!K²VgO²;gihO_°7gOW _´gOhO_¿h¸°ºW o ¿h»L²6gOŸgihO_°Wg'´W o ¿h¼W"ggW$OOg _gð’±þTW" ¿hc"O¿ooW NO ¿±ü©(1178 CL:CERROR 1147 CLOSEF 1127 COURIER.CALL 1095 \NSPRINT.UNSUPPORTED 1040 \NSPRINT.UNSUPPORTED 1004 \NSPRINT.MEDIUM.CHECK 930 CL:FORMAT 925 STRING 863 DISMISS 854 PRIN1 838 PRIN1 828 CL:STRING-CAPITALIZE 818 PRIN1 802 PRIN1 788 PRIN1 772 TERPRI 716 CLOSEF 691 COURIER.CALL 625 DISMISS 616 DISMISS 602 PRIN1 586 PRIN1 576 SUBSTRING 563 PRIN1 547 PRIN1 533 PRIN1 517 TERPRI 487 COURIER.CALL 458 \ILLEGAL.ARG 388 DISMISS 379 PRIN1 365 PRIN1 349 TAB 331 \NSPRINT.COURIER.OPEN 303 MKSTRING 294 STRINGP 261 \ILLEGAL.ARG 194 MKSTRING 185 STRINGP 116 IDATE 66 USERNAME) (1135 ERROR 1121 RETURNERRORS 1110 PRINT 1105 PRINTING 1080 %#SIDES 1062 TWO.SIDED 1051 TWO.SIDED 1013 MEDIUM.HINT 992 MEDIA 976 STAPLE 964 STAPLE 943 SPOOLER 915 Busy 905 Available 893 PRINTER 880 PROMPTWINDOW 872 Busy 849 PROMPTWINDOW 833 PROMPTWINDOW 813 PROMPTWINDOW 797 PROMPTWINDOW 783 PROMPTWINDOW 767 PROMPTWINDOW 757 Busy 744 CONNECTION.ERROR 736 TRANSFER.ERROR 727 TOO.MANY.CLIENTS 699 ERROR 686 RETURNERRORS 681 GET.PRINTER.PROPERTIES 676 PRINTING 654 Available 634 SPOOLER 597 PROMPTWINDOW 581 PROMPTWINDOW 558 PROMPTWINDOW 542 PROMPTWINDOW 528 PROMPTWINDOW 512 PROMPTWINDOW 495 ERROR 482 RETURNERRORS 477 GET.PRINTER.STATUS 472 PRINTING 438 PAGES.TO.PRINT 374 PROMPTWINDOW 360 PROMPTWINDOW 344 PROMPTWINDOW 319 PAGES.TO.PRINT 287 MESSAGE 277 MESSAGE 254 HIGH 246 NORMAL 237 LOW 228 HOLD 220 PRIORITY.HINT 210 PRIORITY 178 RECIPIENT.NAME 168 RECIPIENT.NAME 147 %#COPIES 140 COPY.COUNT 124 SENDER.NAME 108 DOCUMENT.CREATION.DATE 101 PRINT.OBJECT.CREATE.DATE 92 PRINT.OBJECT.NAME 76 DOCUMENT.NAME 56 SENDER.NAME 43 EMPRESS#SIDES 35 %#SIDES 24 STAPLE? 14 NSPRINT.DEFAULT.MEDIUM 6 MEDIUM) ( 1165 "Unexpected error from ~A while attempting to print ~A -- ~A" 1160 "Try to send the document again" 1090 "two-sided copies" 1035 "stapled copies" 885 "~%%[Spooler on ~A is busy~@[ (printer ~A)~]; will retry]" 844 "; will retry]" 808 " -- " 778 "[From " 592 "; will retry]" 553 " Error: " 523 "[From " 355 "No response from printer " 84 "Document") \NSPRINT.INTERNALA0004 :D8 (F 0 COURIERSTREAM) Pd•i (8 SPP.CLOSE) NIL () \NSPRINT.INTERNAL :D8 (P 0 COURIERSTREAM I 2 TRANSFERFN I 1 OPTIONS I 0 PRINTER) !g H—Hi ¿$(26 SPP.CLOSE 17 \MVLIST 12 \NSPRINT.INTERNALA0001) (7 \NSPRINT.INTERNALA0004) () \NSPRINT.MEDIUM.CHECK :D8 (P 1 X I 2 PRINTER I 1 MEDIA I 0 MEDIUM) M@ið’AAHµBo@¿AY@ô³"Igð²@Ihddd ‘IHX°Â(67 STRPOS 61 UPPERCASEARRAY 26 \NSPRINT.UNSUPPORTED) (43 PAPER) ( 20 "print medium") \NSPRINT.UNSUPPORTED :D8 (I 2 VALUE I 1 FEATURE I 0 PRINTER) `o@AB (19 CL:FORMAT) (4 PROMPTWINDOW) ( 9 "~%%[Printer ~A does not support ~A~@[: ~A~]]") NSPRINTER.HOSTNAMEP :D8 (I 0 PRINTERNAME) o@ ´g(10 STRPOS) (17 INTERPRESS) ( 4 ":") NSPRINTER.STATUS :D8 (I 0 PRINTER) @g (10 \NSPRINT.ENQUIRE) (5 GET.PRINTER.STATUS) () NSPRINTER.PROPERTIES :D8 (I 0 PRINTER) @g (10 \NSPRINT.ENQUIRE) (5 GET.PRINTER.PROPERTIES) () NSPRINTREQUEST.STATUS :D8 (I 1 PRINTER I 0 REQUESTID) Ag@h (14 \NSPRINT.ENQUIRE) (5 GET.PRINT.REQUEST.STATUS) () \NSPRINT.ENQUIREA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 SI::*RESETFORMS* F 2 OP) 7gPhhdQcgPgRd¡hgh (52 APPLY 45 \APPEND2) (38 NOERROR 27 PRINTING 21 COURIER.CALL 4 \SPP.RESETCLOSE) () \NSPRINT.ENQUIRE :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 STREAM I 1 OP I 0 PRINTER F 4 LISPXHIST) 2@ bd H´T!g ¿$(43 SI::RESETUNWIND 38 \MVLIST 33 \NSPRINT.ENQUIREA0001 13 \NSPRINT.COURIER.OPEN 5 GETNSPRINTER) (28 SI::RESETUNWIND) () \NSPRINT.COURIER.OPEN :D8 (I 0 PRINTER) @hi@Éo (28 COURIER.OPEN 23 PACK*) (11 NSNAME) ( 18 "#Printing") \NSPRINT.WATCHDOG :D8 (P 10 JOBNAME P 9 PRINTER P 8 ID P 7 A17489 P 6 A17490 P 5 A17491 P 4 GIVEUPCNT P 3 LASTSTATUS P 2 TAIL P 1 STATUS P 0 MSG I 2 JOBNAME I 1 PRINTER I 0 ID) gn:˜ `±0dQJ_O^ N] M¼M»OO YKô’±øjd`¿O²O` ¿o` ¿O` ¿o` ¿Iµo` ¿IX².o` ¿H` ¿o` ¿IX².o` ¿H` ¿o` ¿Idgð§dgð”¿j¼h‰§LkÔ\ló€i“JhˆJLI¿µ‚±þÏh` ¡hnu0 ¿±þ¨(353 BLOCK 337 DREMOVE 265 PRIN1 249 PRIN1 237 PRIN1 214 PRIN1 198 PRIN1 186 PRIN1 164 PRIN1 144 PRIN1 128 PRIN1 114 PRIN1 98 PRIN1 81 TAB 62 \NSPRINT.FULL.REQUEST.STATUS 7 BLOCK) (342 *PRINT-JOBS-IN-PROGRESS* 332 *PRINT-JOBS-IN-PROGRESS* 282 InProgress 274 Pending 260 PROMPTWINDOW 244 PROMPTWINDOW 232 PROMPTWINDOW 209 PROMPTWINDOW 193 PROMPTWINDOW 181 PROMPTWINDOW 159 PROMPTWINDOW 139 PROMPTWINDOW 123 PROMPTWINDOW 109 PROMPTWINDOW 93 PROMPTWINDOW 76 PROMPTWINDOW 15 *PRINT-JOBS-IN-PROGRESS*) ( 255 ")" 227 " (" 204 ")" 176 " (" 154 "No response" 134 " -- " 104 " on ") \NSPRINT.WATCH.JOB :D8 (I 2 JOBNAME I 1 PRINTER I 0 PRINTRESULTS) C@ABjh`g µ#ghgggg (64 ADD.PROCESS 29 FIND.PROCESS) (58 DELETE 53 AFTEREXIT 48 Printer% Watcher 43 NAME 36 \NSPRINT.WATCHDOG 24 Printer% Watcher 19 *PRINT-JOBS-IN-PROGRESS* 13 *PRINT-JOBS-IN-PROGRESS*) () \NSPRINT.FULL.REQUEST.STATUSA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 2 STATUS P 1 RESULT P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 PRINTER F 5 ID) šT !H´‚±‹gHhhdSc¿HggUg Y´^gIgIZdžo hð´JgHgggZd´gðªJdgð´¿hd(121 COURIER.CALL 90 STREQUAL 56 COURIER.CALL 5 \NSPRINT.COURIER.OPEN) (142 Available 133 Busy 116 NOERROR 111 GET.PRINTER.STATUS 106 PRINTING 100 PRINTER 73 STATUS.MESSAGE 64 STATUS 50 NOERROR 44 GET.PRINT.REQUEST.STATUS 39 PRINTING 20 \SPP.RESETCLOSE) ( 85 "") \NSPRINT.FULL.REQUEST.STATUSA0001 :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 LISPXHIST F 6 SI::NLSETQ-VALUE) -i@U!g ¿$hcg(28 SI::RESETUNWIND 23 \MVLIST 18 \NSPRINT.FULL.REQUEST.STATUSA0001A0002) (42 :NORMAL 13 SI::RESETUNWIND) () \NSPRINT.FULL.REQUEST.STATUS :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 1 PRINTER I 0 ID F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) 1A b`TioUI gð´H(34 \NSPRINT.FULL.REQUEST.STATUSA0001 5 GETNSPRINTER) (40 :NORMAL 15 SI::NLSETQ-PROCEED-CASE) ( 23 (CL:ERROR . SI::NLSETQHANDLER)) FAX.SEND.FILE :D8 (P 0 HOST&OPTIONS I 2 PRINTOPTIONS I 1 FILE I 0 HOST) 0@ HAHB`´gih (45 NSPRINT 40 \APPEND2 35 \APPEND2 5 \FAX.PARSE.NAME) (26 NO.WATCHER 19 FAX.NO.WATCHER) () FAX.STATUS :D8 (I 0 HOST) @ (11 NSPRINTER.STATUS 5 \FAX.PARSE.NAME) NIL () FAX.PROPERTIES :D8 (I 0 HOST) @ (11 NSPRINTER.PROPERTIES 5 \FAX.PARSE.NAME) NIL () FAX.HOSTNAMEP :D8 (I 0 PRINTERNAME) o@ ´g(10 STRPOS) (17 FAX) ( 4 "@") \FAX.PARSE.NAME :D8 (P 9 CH P 6 INFO P 5 MSG P 4 HOST P 3 PHONE P 2 DESTINATION P 1 PERSON P 0 AT I 0 PLACE) D€o@ Xkðhð´@kHkÙY™gIh¹@HkØ ZQ OdÊjð¥ ÈkÙ_¿OdÊjð¥ É_¿OOl Ø_¿OdÊjð¥ ‚Ê‡lDð_¿OkØ_Oñ³;O—OOÐÈ„OOÂ__¿l0Oñ¦Ol9ñ²ÕOl-ð³ÎOl*ð³ÇOl#ð³Àh€i²7J»L³c`\µ\o½o@oMo hJ `^µoJo°¸[²ìN\°ŸLgKI(298 CONCAT 272 MKATOM 267 U-CASE 259 ERROR 254 CONCAT 243 CONCAT 126 %%ARRAY-TYPE-NUMBER 108 \GETBASEFIXP 91 %%ARRAY-BASE 69 %%ARRAY-OFFSET 51 SUBSTRING 30 SUBSTRING 13 STRPOS) (316 MESSAGE 277 FAXADDRESSES 218 DEFAULTFAXHOST 37 RECIPIENT.NAME) ( 293 "%" is unknown. Edit the list FAXADDRESSES" 287 "The FAX destination %"" 249 " appropriately, then say OK. Alternatively, RETURN %"name@CorrectPhoneOrDestination%"" 238 " because:" 232 "Don't understand " 226 "Don't know the name of your local FAX server. Set the variable DEFAULTFAXHOST" 7 "@") (PRETTYCOMPRINT NSPRINTCOMS) (RPAQQ NSPRINTCOMS ((COMS (COURIERPROGRAMS PRINTING) (DECLARE%: DONTCOPY (RECORDS NSPRINTER) ( GLOBALVARS NS.DEFAULT.PRINTER NSPRINT.DEFAULT.MEDIUM NSPRINT.WATCHERFLG)) (INITVARS ( NS.DEFAULT.PRINTER NIL) (NSPRINT.DEFAULT.MEDIUM) (NSPRINT.WATCHERFLG T)) (FNS GETNSPRINTER NSPRINT \NSPRINT.INTERNAL \NSPRINT.MEDIUM.CHECK \NSPRINT.UNSUPPORTED NSPRINTER.HOSTNAMEP NSPRINTER.STATUS NSPRINTER.PROPERTIES NSPRINTREQUEST.STATUS \NSPRINT.ENQUIRE \NSPRINT.COURIER.OPEN)) (COMS (* ; "Printer watcher") (FNS \NSPRINT.WATCHDOG \NSPRINT.WATCH.JOB \NSPRINT.FULL.REQUEST.STATUS) (GLOBALVARS *PRINT-JOBS-IN-PROGRESS*) (INITVARS (*PRINT-JOBS-IN-PROGRESS*))) (COMS (* ; "FAX") (FNS FAX.SEND.FILE FAX.STATUS FAX.PROPERTIES FAX.HOSTNAMEP \FAX.PARSE.NAME) (INITVARS (DEFAULTFAXHOST) (FAXADDRESSES) ( FAX.NO.WATCHER T)) (GLOBALVARS DEFAULTFAXHOST FAXADDRESSES FAX.NO.WATCHER) (ADDVARS (PRINTERTYPES (( FAX TELECOPIER) (CANPRINT (INTERPRESS)) (HOSTNAMEP FAX.HOSTNAMEP) (STATUS FAX.STATUS) (PROPERTIES FAX.PROPERTIES) (SEND FAX.SEND.FILE) (BITMAPSCALE INTERPRESS.BITMAPSCALE) (BITMAPFILE ( INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))))))) (COURIERPROGRAM PRINTING (4 3) TYPES ((REQUEST.ID (ARRAY 5 UNSPECIFIED)) (PRINT.ATTRIBUTES (SEQUENCE ( CHOICE (PRINT.OBJECT.NAME 0 STRING) (PRINT.OBJECT.CREATE.DATE 1 TIME) (SENDER.NAME 2 STRING)))) ( PRINT.OPTIONS (SEQUENCE (CHOICE (PRINT.OBJECT.SIZE 0 LONGCARDINAL) (RECIPIENT.NAME 1 STRING) (MESSAGE 2 STRING) (COPY.COUNT 3 CARDINAL) (PAGES.TO.PRINT 4 (RECORD (BEGINNING.PAGE.NUMBER CARDINAL) ( ENDING.PAGE.NUMBER CARDINAL))) (MEDIUM.HINT 5 MEDIUM) (PRIORITY.HINT 6 (ENUMERATION (HOLD 0) (LOW 1) ( NORMAL 2) (HIGH 3))) (RELEASE.KEY 7 HASHED.PASSWORD) (STAPLE 8 BOOLEAN) (TWO.SIDED 9 BOOLEAN)))) ( PRINTER.PROPERTIES (SEQUENCE (CHOICE (MEDIA 0 MEDIA) (STAPLE 1 BOOLEAN) (TWO.SIDED 2 BOOLEAN)))) ( PRINTER.STATUS (SEQUENCE (CHOICE (SPOOLER 0 (ENUMERATION (Available 0) (Busy 1) (Disabled 2) (Full 3)) ) (FORMATTER 1 (ENUMERATION (Available 0) (Busy 1) (Disabled 2))) (PRINTER 2 (ENUMERATION (Available 0 ) (Busy 1) (Disabled 2) (NeedsAttention 3) (NeedKeyOperator 4))) (MEDIA 3 MEDIA)))) (REQUEST.STATUS ( SEQUENCE (CHOICE (STATUS 0 (ENUMERATION (Pending 0) (InProgress 1) (Completed 2) (Unknown 3) (Rejected 4) (Aborted 5) (Cancelled 6) (Held 7))) (STATUS.MESSAGE 1 STRING)))) (MEDIA (SEQUENCE MEDIUM)) ( MEDIUM (CHOICE (PAPER 0 PAPER))) (PAPER (CHOICE (UNKNOWN 0 NIL) (KNOWN.SIZE 1 (ENUMERATION ( "US.LETTER" 1) ("US.LEGAL" 2) ("A0" 3) ("A1" 4) ("A2" 5) ("A3" 6) ("A4" 7) ("A5" 8) ("A6" 9) ("A7" 10) ("A8" 11) ("A9" 12) ("A10" 35) ("ISO.B0" 13) ("ISO.B1" 14) ("ISO.B2" 15) ("ISO.B3" 16) ("ISO.B4" 17) ("ISO.B5" 18) ("ISO.B6" 19) ("ISO.B7" 20) ("ISO.B8" 21) ("ISO.B9" 22) ("ISO.B10" 23) ("JIS.B0" 24) ( "JIS.B1" 25) ("JIS.B2" 26) ("JIS.B3" 27) ("JIS.B4" 28) ("JIS.B5" 29) ("JIS.B6" 30) ("JIS.B7" 31) ( "JIS.B8" 32) ("JIS.B9" 33) ("JIS.B10" 34))) (OTHER.SIZE 2 (RECORD (WIDTH CARDINAL) (LENGTH CARDINAL))) )) (CONNECTION.PROBLEM (ENUMERATION (NoRoute 0) (NoResponse 1) (TransmissionHardware 2) ( TransportTimeout 3) (TooManyLocalConnections 4) (TooManyRemoteConnections 5) (MissingCourier 6) ( MissingProgram 7) (MissingProcedure 8) (ProtocolMismatch 9) (ParameterInconsistency 10) ( InvalidMessage 11) (ReturnTimedOut 12) (Other 65535))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) ( ChecksumIncorrect 1) (FormatIncorrect 2) (NoRendezvous 3) (WrongDirection 4)))) PROCEDURES ((PRINT 0 ( BULK.DATA.SOURCE PRINT.ATTRIBUTES PRINT.OPTIONS) RETURNS (REQUEST.ID) REPORTS (BUSY CONNECTION.ERROR INSUFFICIENT.SPOOL.SPACE INVALID.PRINT.PARAMETERS MASTER.TOO.LARGE MEDIUM.UNAVAILABLE SERVICE.UNAVAILABLE SPOOLING.DISABLED SPOOLING.QUEUE.FULL SYSTEM.ERROR TOO.MANY.CLIENTS TRANSFER.ERROR UNDEFINED.ERROR)) (GET.PRINTER.PROPERTIES 1 NIL RETURNS (PRINTER.PROPERTIES) REPORTS ( SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR)) (GET.PRINT.REQUEST.STATUS 2 (REQUEST.ID) RETURNS ( REQUEST.STATUS) REPORTS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR)) (GET.PRINTER.STATUS 3 NIL RETURNS (PRINTER.STATUS) REPORTS (SERVICE.UNAVAILABLE SYSTEM.ERROR UNDEFINED.ERROR))) ERRORS ((BUSY 0) (INSUFFICIENT.SPOOL.SPACE 1) (INVALID.PRINT.PARAMETERS 2) (MASTER.TOO.LARGE 3) (MEDIUM.UNAVAILABLE 4) (SERVICE.UNAVAILABLE 5) (SPOOLING.DISABLED 6) (SPOOLING.QUEUE.FULL 7) (SYSTEM.ERROR 8) ( TOO.MANY.CLIENTS 9) (UNDEFINED.ERROR 10 (CARDINAL)) (CONNECTION.ERROR 11 (CONNECTION.PROBLEM)) ( TRANSFER.ERROR 12 (TRANSFER.PROBLEM)))) (RPAQ? NS.DEFAULT.PRINTER NIL) (RPAQ? NSPRINT.DEFAULT.MEDIUM) (RPAQ? NSPRINT.WATCHERFLG T) (RPAQ? *PRINT-JOBS-IN-PROGRESS*) (RPAQ? DEFAULTFAXHOST) (RPAQ? FAXADDRESSES) (RPAQ? FAX.NO.WATCHER T) (ADDTOVAR PRINTERTYPES ((FAX TELECOPIER) (CANPRINT (INTERPRESS)) (HOSTNAMEP FAX.HOSTNAMEP) (STATUS FAX.STATUS) (PROPERTIES FAX.PROPERTIES) (SEND FAX.SEND.FILE) (BITMAPSCALE INTERPRESS.BITMAPSCALE) ( BITMAPFILE (INTERPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PUTPROPS NSPRINT COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1990 1992)) NIL