PP_DEFINE PeerFlag
PROCEDURE Peer()
PP_IFDEF MainFlag
OUTPUT MissingMainFlag
PP_ENDIF
PP_IFDEF PeerFlag
OUTPUT 7
PP_ENDIF
ENDPROCEDURE