From:	CSBVAX::MRGATE!RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP  9-AUG-1988 16:25
To:	ARISIA::EVERHART
Subj:	SDL.RNO fixes


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue,  9 AUG 88 11:30:57 PDT
Received: from uwavm.acs.washington.edu (oly.acs.washington.edu) by KL.SRI.COM with TCP; Tue, 9 Aug 88 11:26:17 PDT
Received: from UWAVM.ACS.WASHINGTON.EDU by uwavm.acs.washington.edu ; Tue, 09 Aug 88 11:25:12 PDT
Received: from UWAVM.ACS.WASHINGTON.EDU by UWAVM.ACS.WASHINGTON.EDU (Mailer
 X1.24) with BSMTP id 4587; Tue, 09 Aug 88 11:25:11 PDT
P1-Message-Id: US**EDU;UWAVM.ACS.WASHINGTON.EDU:LTc6WXfw
Date:         Tue, 9 Aug 88 11:24-0700
X400-Trace:   US**EDU; arrival Tue, 9 Aug 88 11:24-0700 action Relayed
X400-Trace:   US**EDU; arrival Tue, 9 Aug 88 11:25-0700 action Relayed
From:         Joe Meadows</ADMD=/PRMD=BITNET/O=FHCRCVAX/PN=JOE/@US>
Subject:      SDL.RNO fixes
To:           <info-vax@kl.sri.COM>
Message-Id:   <UWAVM.ACS.WASHINGTON.EDU:LTc6WXfw*>
X-VMS-To: IN%"info-vax@kl.sri.com"

        If you got UNSDL part 3 (SDL.RNO),  and it was missing
all the leading periods, well, you're not alone. The following
procedure  (by Carl Lydick - carl@CitHex - (thanks Carl)) will
fix the file back to a useable state. Sorry for the troubles.

  Cheers,
  Joe Meadows   joe@fhcrcvax.bitnet

$ create/log FIXSDLRNO.COM
$DECK
$ EDIT/TPU/COMMAND=SYS$INPUT:/NOSECTION/NODISPLAY
PROCEDURE FIXSDLRNO
        POSITION(CREATE_BUFFER("?", "SDL.RNO"));
        LOOP    R:=SEARCH(LINE_BEGIN&"ap"&LINE_END,forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"literal"&LINE_END,forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"end literal"&LINE_END,forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"hl ",forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"hl2 ",forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"lm ",forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        POSITION(BEGINNING_OF(CURRENT_BUFFER));
        LOOP    R:=SEARCH(LINE_BEGIN&"rm ",forward);
                EXITIF R=0;
                POSITION(R);
                COPY_TEXT(".");
        ENDLOOP;
        WRITE_FILE(CURRENT_BUFFER, "SDL.RNO");
        EXIT;
ENDPROCEDURE;

FIXSDLRNO

$EOD