!* M3 handles truncating lines !

EREDM.REL<:A;>
@^U3/+(0^Q)+70"L MC I
.ASCII	'/
!* MC inserts a CLOSING ? if string open !


@^UC/Q2"N0u2 i?'/

!* MO inserts an OPENING ? if string CLOSED !


@^UO/Q2"=1u2 i?'/
J

I
;Essential format for quickload EDMACS (when built for RSX-11)

.TITLE	CCLCMD	EDMACS REPLACEMENT FOR DECUS-SUPPLIED CCLCMD (EDM.REL)
.IDENT	/V02.01/
.SBTTL	EDMACS QUICKLOAD (EDM.REL)

.ENABLE	LC
.RADIX	10

.PSECT	PURE,RO,D

;	NOTATION for embedded TECO code...
;
;		STRINGS are delimited by Question Marks.
;
;		Non printing characters are represented by their ascii
;		decimal value, between angle brackets.
;
;		Question marks already present are represented by <63>.
;		

CCLCMD::
			; Since we will be the startup macro, first kill
			; the buffer. Then transfer command line to buffer.
			; Then, (for current EDMACS) remove command name.

			; Future versions of EDMACS will retain the command
			; name, using it as the name of a library init file.

.ASCII	?hkg*j:@S/?<5>?s/"S0k|hk'?

;  EDMACS CODE FOLLOWS....


-100M3
<.-Z;
!* CHARACTER BY CHARACTER !
M3 !* Handle New Line  if needed!
0A-^^?"= MC  I<63> DF<'
0A-^^`"= MC  I<96> DF<'
0A- 32"L MC  I<0A\I> DF<'
0A-127"= MC  I<127> DF<'
MO C
>
I
CCLCML	== .-CCLCMD

.EVEN

.END
ei