(FILECREATED " 8-Nov-85 14:07:20" ("compiled on " {ERIS}LIBRARY>CENTRONICS.;4) "31-Oct-85 18:13:12" recompiled changes: CENTRONICS.RESET \CENTRONICS.OPENFILE \DANDETIGERP \CENTRONICS-CHECK-FOR-PORT in "INTERLISP-D 31-Oct-85 ..." dated "31-Oct-85 18:36:19") (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 D1 (I 0 C150STREAM) *@²@ÉÉgð´n un€uk n uh(42Q DISMISS 2 \CENTRONICS-CHECK-FOR-PORT) (23Q CENTRONICS 16Q FDEV 11Q STREAM) () CENTRONICS.BUSYWAIT D1 (P 0 C150STATUSLINE) :tn|åXn ð‘itn|ån`ð³o` ¿` o ¿¿°Îh(62Q HELP 53Q TERPRI 44Q PRIN1) (50Q PROMPTWINDOW 41Q PROMPTWINDOW) ( 57Q "Printer error - RETURN to continue" 36Q "Printer error") \CreateCentronicsDeviceA0006 D1 (L (2 DEVICE 1 RECOG 0 NAME)) @NIL NIL () \CreateCentronicsDevice D1 (P 0 DEVICE) `dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg:¿dg8¿dg6¿dg4¿dg2¿dg0¿dg.¿dg*¿dg$¿dg¿dg¿gH H(231Q \DEFINEDEVICE) (225Q CENTRONICS 214Q NILL 205Q NILL 176Q \GENERIC.READP 167Q NILL 160Q \IS.NOT.RANDACCESSP 151Q \ILLEGAL.DEVICEOP 142Q \IS.NOT.RANDACCESSP 133Q \ILLEGAL.DEVICEOP 124Q \GENERIC.BINS 115Q \GENERIC.BOUTS 106Q \GENERIC.RENAMEFILE 77Q NILL 70Q NILL 61Q NILL 52Q \CreateCentronicsDeviceA0006 43Q \CENTRONICS.CLOSEFILE 34Q \CENTRONICS.OPENFILE 25Q \CENTRONICS.BOUT 16Q \CENTRONICS.EVENTFN 7 CENTRONICS 2 FDEVTYPE#) () \CENTRONICS.OPENFILE D1 (P 0 OLDSTREAM I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) ¨Agð¨Agð¢±’DÉ(H˜o@ D`dD¿dg¿dg.¿dg,¿d`&¿dg"¿dg ¿djÏ¿d`Í¿djÍ¿d`Í¿dh¿dlÏ¿djÏR¿dkÏ@¿dkÏ0¿dh¿Y(Io@ (245Q ERROR 44Q ERROR 32Q \CENTRONICS-CHECK-FOR-PORT) (162Q \STREAM.DEFAULT.MAXBUFFERS 146Q FILELINELENGTH 131Q \FILEOUTCHARFN 122Q \EOSERROR 113Q \NOIMAGEOPS 104Q \STREAM.NOT.OPEN 75Q \STREAM.NOT.OPEN 66Q {CENTRONICS} 54Q STREAMTYPE# 51Q FDEV 22Q FDEV 11Q APPEND 3 OUTPUT) ( 241Q "Centronics can only be used for output" 40Q "Only one open stream allowed on this device") \CENTRONICS.CLOSEFILE D1 (L (0 STREAM)) @Éh(hNIL (10Q FDEV 3 STREAM) () \CENTRONICS.BOUT D1 (P 0 C150DATANOSTB I 1 BYTE I 0 STREAM) &tn|ån`ð¤³ýAn äHu¿Hnÿåu¿Huh(14Q \CENTRONICS.BUSYWAIT) NIL () \CENTRONICS.BUSYWAIT D1 (P 0 C150STATUSLINE) :tn|åXn ð‘itn|ån`ð³o` ¿` o ¿¿°Îh(62Q HELP 53Q TERPRI 44Q PRIN1) (50Q PROMPTWINDOW 41Q PROMPTWINDOW) ( 57Q "Printer error - type (RETURN) to continue" 36Q "Printer error") \CENTRONICS.EVENTFN D1 (I 1 EVENT I 0 DEVICE) Agð¬Agð¦Agð´(25Q CENTRONICS.RESET) (17Q AFTERMAKESYS 11Q AFTERSYSOUT 3 AFTERLOGOUT) () \DANDETIGERP D1 NIL `lð´lxkåjðhðNIL (2 \MACHINETYPE) () \CENTRONICS-CHECK-FOR-PORT D1 NIL §o h(12Q 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