DIRECTORY CrRPC, TimeP15V2, CHNameP2V0, FilingAttributesP10V5; FilingAttributesP10V5ServerImpl: CEDAR PROGRAM IMPORTS CrRPC, FilingAttributesP10V5 ~ { OPEN FilingAttributesP10V5; Server: CrRPC.ServerProc ~ { ENABLE { }; IF (pgmVersion # 5) THEN { beginReject[h, CrRPC.noSuchVersion]; CrRPC.PutCard16[s, 5]; --low CrRPC.PutCard16[s, 5]; --high RETURN }; SELECT proc FROM ENDCASE => { beginReject[h, CrRPC.noSuchProcedure]; }; EXITS Finished => { NULL }; }; CrRPC.RegisterServerProc[pgm~10, serverProc~Server, pgmVersion~5]; CrRPC.EnsureListener[class~$SPP]; }... xFilingAttributesP10V5ServerImpl.Mesa Copyright (C) 1986 by Xerox Corporation. All rights reserved. Generated by Diebert.pa at May 10, 1988 10:44:09 am PDT using Sirocco [2.0] of January 31, 1987 1:52:42 am PST [h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc] ʘšœ$™$Jšœ>™>Jšœ7™7Jšœ6™6J˜—šÏk ˜ J˜J˜ J˜ J˜—J˜šÏnœœ˜.Jšœ!˜(Jšœ˜—J˜šžœ˜Jšœ™J˜šœ˜J˜—J˜šœœ˜J˜$JšœÏc˜JšœŸ˜Jš˜J˜—J˜šœ˜šœ˜ J˜&J˜——J˜š˜Jšœœ˜—J˜—˜J˜BJ˜!—J˜J˜—…—<Ç