From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CUNYVM.CUNY.EDU::MAILSERV-REPLY%UNCG.BITNET" 14-MAR-1989 00:19
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Re: SEND [MAILSERV_SOURCE]V101.*  ([MAILSERV_SOURCE]V101.4_OF_4)


Received: from uncg.bitnet by CUNYVM.CUNY.EDU (IBM VM SMTP R1.1) with BSMTP id 6915; Tue, 14 Mar 89 00:04:32 EST
Date: Mon, 13 Mar 89 16:28 EST
From: "PMDF Mailserv V1.02" <MAILSERV-REPLY%UNCG.BITNET@CUNYVM.CUNY.EDU>
Subject: Re: SEND [MAILSERV_SOURCE]V101.*  ([MAILSERV_SOURCE]V101.4_OF_4)
To: EVERHART%ARISIA.decnet@GE-CRD.ARPA

+-+-+-+ Beginning of part 4 +-+-+-+
X  IF DEBUG THEN WRITELN ('Entering routine INIT_PUPPY');
X
X  (*  initialize QU_ and MM_ packages  *)
X  IF DEBUG THEN WRITELN ('  Initializing MM_ .');
X  rp := mm_init;
X  IF rp_isbad (rp) THEN abort_it (' error initializing MM');
X
X  IF DEBUG THEN WRITELN ('  Initializing QU_ .');
X  rp := qu_init;
X  IF rp_isbad (rp) THEN abort_it (' error initializing QU');
X
X  IF DEBUG THEN WRITELN ('  Initializing MM_ submission.');
X  IF rp_isbad (mm_sbinit) THEN abort_it (' error in MM_SBINIT');
X
X  (*  get
