^!2D p,COMPILE-DATADGJC,LMI-EXP1+_FF Dp,COMPILER,VERSIONDFpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpGLOBALQUOTEEXP1DB7pB5NILDB7DGJCDVIDB7,PRINTERSDB7LISPDB7FpB MODEpB ,ZETALISPpB BASEF pB ,PACKAGEpB DVI1DREMPROPDB7C*HOSTNAME*DB7pB(,SYSTEM-CONSTANT1DplSI,DEFVAR-1BV,zermatt1DBUDB7*CONTACT-STRING*BZ1DB_BcIMAGEN-SPOOL1DBUDB7Á*NO-OF-COPIES*BZ1DB_BjF1DBUDB7C*REVERSE*BZ1DB_BqB;1DBUDB7C*COLLATE*BZ1DB_BwB;1DBUDB7*PAPER-TYPE*BZ1DB_B}B;1DBUDB7C*PRINTER*BZ1DB_BB;CGET-PERSON  @FBFB@pB],MACRO-REPORT-ARGS-ERRORDÁSTRING-APPENDDSENDDBpB]*USER*pB NAMEpB STRINGl@DBpNETlLOCAL-HOSTBDDpB EXPR-SXHASHmDpB(,ARG-MAPDDpB]l*MACROARG*DpB]l*MACROENVIRONMENT*DpSYSTEM,FUNCTION-PARENTBDARGLISTE|8E|DÀMACROBOBGEN-TMPNAME ($DFBB@BÀLIST*Bz:>tex>spool>DÀSTRINGUSER-IDDBDÀGENSYMBDBD.tmpDDBLr/DpB ,MACROS-EXPANDEDDpB]XR-BQ-LIST*DBDDBDBDpB(lLOCAL-MAPDDÀPNAMEDBBDBBE|8E|8E|ŀK@D D D D@ D@E DBBOBÀIMAGEN1; 1XFlBA`@BB}BwBqBjBBBpCHAOSDEFAULT-WINDOW-SIZEBcBVpBESTABLISH-CONNECTIONFXBBBBBBÀFORMAT,~& Sending file ~A to 4th Floor Imagen via Zermatt ... pB ABORTFpBMAKE-STREAMÀICOPYFpB ,LINE-OUT,file ~A,name ~ApB STRING-FOR-PRINTING,owner ~SBBlcopies ~Dpagereversal t,pagecollation t,paper ~Alprinter ~ApB FORCE-OUTPUTÀERRORPpB CLOSEDonepBREMOVE-CONNDDBDBÀPROG2WITH-OPEN-STREAMBBpB,CONNECTDBDDFILENAMEDBDDCH-CONNDTMPNAMEB;DpB].FILE-ABORTED-FLAG.DÀIGNOREDpB]l.PROG2-TEMPORARY.@DDDD@@D@ @€AAEDDCDE/E@@BEABDE DABDE!D"BDE#D @A$%D | XBDE&D 8BDE'8BDE(8BDE)D8BDE*DBA+EDCwEB8,BXB-DCŭE./@O%B1DFUNCTIONBO(pUSERIMAGENB,t FHB@BFOPENpB lDIRECTIONpB INPUTpB RAWpB lCHARACTERSpB lBYTE-SIZEpB ,TYIPEEKFÀCOPYFFypB OUTPUTpB lIF-EXISTSpB NEW-VERSIONpB lIF-DOES-NOT-EXISTpB CREATEpB TYIpB TYOBBDDBDLOOPBB B ÁWITH-OPEN-FILEDBDDÀINPATHDOUTFILEDBDB;DBB;DBDOSTRDBYTEDBDB DADE/E@E D D DE DE D @@A48@EE DE D -DCDE/E@E DDDDDBBED@AE 8BD|EX|E GwFCwGB8BXBDCŭ[GFAwG@8@X@DAŭOfBÁGEN-MC-TMPNAME ($DFBgB@BBBlMC:.dovr.;DCSUBSTRINGDBBFDBoDBDBFBDBD tmpDDB@ODBDBDBDDBDBDBDDBDBBgDBBE|8E|8E|ŀK@D D D D@ D@E DBBOBgÀDOVER!-{ !XFNBA`@BBFB3B5B7B=B;Bl~& Sending file ~A to Dover via MC ... FBBnBoBBBByBDCFILE-STREAM-LENGTHF,~& Error: Press file lenght not multiple of 512ÂSTREAM-COPY-UNTIL-EOFDone.BBDDBDBBgB B BRDBDDBDBDB;DBB;DBDBDB DpB DOCUMENTATION,Send a file to the dover via MCDADE/E @E D D D| D@EDDCDE/E @@D@@|@@ŀA DD DE D B@@DZ8@E@EB@EEDCwEB8BXBDCŭ[EDAwE@8@X@DAŭOB1DpB],FASL-RECORD-FILE-MACROS-EXPANDEDDB7D DBg@ODBRC}DBQDqWDB:DBLr/DB9\DB '}DB NjDBmDBp: