(FILECREATED "29-Nov-86 17:22:01" ("compiled on " {ERIS}LIBRARY>CENTRONICS.;4) "25-Nov-86 00:46:57" bcompl'd in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (FILECREATED " 8-Nov-85 14:07:01" {ERIS}LIBRARY>CENTRONICS.;4 5930 changes to: (FNS \DANDETIGERP \CENTRONICS-NO-PORT-ERROR CENTRONICS.RESET \CENTRONICS.OPENFILE \CENTRONICS-CHECK-FOR-PORT) (VARS CENTRONICSCOMS) previous date: "11-Oct-85 17:58:36" {ERIS}LIBRARY>CENTRONICS.;3) CENTRONICS.RESET §D4 (I 0 C150STREAM) *@²@É Égð´n un€uk n uh(34 DISMISS 2 \CENTRONICS-CHECK-FOR-PORT) (19 CENTRONICS 14 FDEV 9 STREAM) () CENTRONICS.BUSYWAIT §D4 (P 0 C150STATUSLINE) :tn|åXn ð‘itn|ån`ð³o` ¿` o ¿¿°Îh(50 HELP 43 TERPRI 36 PRIN1) (40 PROMPTWINDOW 33 PROMPTWINDOW) ( 47 "Printer error - RETURN to continue" 30 "Printer error") \CreateCentronicsDeviceA0006 §D4 (L (2 DEVICE 1 RECOG 0 NAME)) @NIL NIL () \CreateCentronicsDevice §D4 (P 0 DEVICE) Ü`dg¿dg¿dg,¿dg ¿dg¿dg¿dg¿dgB¿dgD¿dgP¿dgN¿dgL¿dgF¿dg@¿dg>¿dg<¿dg:¿dg8¿dg6¿dg4¿dg2¿dg0¿dg(¿dg¿dg¿dg¿dg¿dg ¿dg¿gH H(216 \DEFINEDEVICE) (212 CENTRONICS 203 NILL 196 NILL 189 \GENERIC.RENAMEFILE 182 NILL 175 NILL 168 NILL 161 NILL 154 \GENERIC.READCHAR 147 \GENERIC.WRITECHAR 140 \GENERIC.PEEKCHAR 133 \GENERIC.UNREADCHAR 126 \GENERIC.READP 119 \ILLEGAL.DEVICEOP 112 \GENERIC.BINS 105 \GENERIC.BOUTS 98 NILL 91 \GENERIC.CHARSET 84 \ILLEGAL.DEVICEOP 77 \IS.NOT.RANDACCESSP 70 \IS.NOT.RANDACCESSP 63 NILL 56 NILL 49 NILL 42 \CreateCentronicsDeviceA0006 35 \CENTRONICS.CLOSEFILE 28 \CENTRONICS.OPENFILE 21 \CENTRONICS.BOUT 14 \CENTRONICS.EVENTFN 7 CENTRONICS 2 FDEVTYPE#) () \CENTRONICS.OPENFILE §D4 (P 0 OLDSTREAM I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) §Agð¨Ag𢱑DÉH˜o@ Dl dD ¿dg¿d`Í4¿dh2¿d`.¿dg*¿dg(¿dg&¿dg$¿d`Í¿djÏQ¿dkÏ@¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏR¿YIo@ (164 ERROR 36 ERROR 26 \CENTRONICS-CHECK-FOR-PORT) (107 FILELINELENGTH 100 \STREAM.NOT.OPEN 93 \STREAM.NOT.OPEN 86 \FILEOUTCHARFN 79 \EOSERROR 72 \NOIMAGEOPS 60 \STREAM.DEFAULT.MAXBUFFERS 53 {CENTRONICS} 41 FDEV 18 FDEV 9 APPEND 3 OUTPUT) ( 160 "Centronics can only be used for output" 32 "Only one open stream allowed on this device") \CENTRONICS.CLOSEFILE §D4 (L (0 STREAM)) @É hhNIL (8 FDEV 3 STREAM) () \CENTRONICS.BOUT §D4 (P 0 C150DATANOSTB I 1 BYTE I 0 STREAM) &tn|ån`ð¤³ýAn äHu¿Hnÿåu¿Huh(12 \CENTRONICS.BUSYWAIT) NIL () \CENTRONICS.BUSYWAIT §D4 (P 0 C150STATUSLINE) :tn|åXn ð‘itn|ån`ð³o` ¿` o ¿¿°Îh(50 HELP 43 TERPRI 36 PRIN1) (40 PROMPTWINDOW 33 PROMPTWINDOW) ( 47 "Printer error - type (RETURN) to continue" 30 "Printer error") \CENTRONICS.EVENTFN §D4 (I 1 EVENT I 0 DEVICE) Agð¬Agð¦Agð´(21 CENTRONICS.RESET) (15 AFTERMAKESYS 9 AFTERSYSOUT 3 AFTERLOGOUT) () \DANDETIGERP §D4 NIL `lð´ lxkåjðhðNIL (2 \MACHINETYPE) () \CENTRONICS-CHECK-FOR-PORT §D4 NIL §o h(10 ERROR 2 \DANDETIGERP) NIL ( 7 "This machine has no Centronics port") (PRETTYCOMPRINT CENTRONICSCOMS) (RPAQQ CENTRONICSCOMS ((FNS CENTRONICS.RESET CENTRONICS.BUSYWAIT) (FNS \CreateCentronicsDevice \CENTRONICS.OPENFILE \CENTRONICS.CLOSEFILE \CENTRONICS.BOUT \CENTRONICS.BUSYWAIT \CENTRONICS.EVENTFN) (FNS \DANDETIGERP \CENTRONICS-CHECK-FOR-PORT) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \CreateCentronicsDevice))))) (\CreateCentronicsDevice) (PUTPROPS CENTRONICS COPYRIGHT ("Xerox Corporation" 1985)) NIL