Use SUPDUP control code instead of CR LF for line breaks in messages.

src/sysnet/telser.174

@@ -121,6 +121,7 @@ SGASTS:	-1		;LH -1 => WILL, RH -1 => DO   (TO AVOID INFINITE LOOPS)
 DEBUG:	0		;NONZERO DEBUGGING, LEAVE SELF AROUND; ALSO DON'T TIME OUT THE ICP.
 			;NEGATIVE => UNDER A DDT, SO DON'T TRY TO LOG IN.
 TAFJPC:	0		;WHERE TERMINATED FROM
+CRLF:	PUSHJ P,[.IOT NETOC,[^M] ? .IOT NETOC,[^J] ? POPJ P,]
 
 ;LETS BE REALLY ASSHOLES!!!
 
@@ -857,6 +858,9 @@ CHTELE:	SETOM NEWTEL		;NEW TELNET IS DEFAULT
 	SKIPE SUPDUP
 	 MOVE E,[.BYTE 8 ? %TDORS]
 	MOVEM E,DRORST
+	MOVE E,[.IOT NETOC,[%TDCRL]]
+	SKIPE SUPDUP
+	 MOVEM E,CRLF
 	.CALL [	SETZ		;DETERMINE GREETING MESSAGE, ETC.
 		'SSTATU
 		MOVEM TT
@@ -1096,8 +1100,7 @@ GREET1:	ILDB A,GREET
 	.IOT NETOC,A
 	JRST GREET1
 
-GREET2:	.IOT NETOC,[^M]
-	.IOT NETOC,[^J]
+GREET2:	XCT CRLF
 	.NETS NETOC,	;TYPE THIS WHILE WE OPEN FILES, ETC.
 
 ;Set up host short name (HSTSIX), figure out host status (HSTAT), 
@@ -1235,11 +1238,10 @@ GREET7:	.CALL [	SETZ ? 'FINISH ? SETZI NETOC ]	;MAKE SURE OUTPUT DELIVERED BEFOR
 
 OUTMSG:	.IOT RANCH,A
 	JUMPL A,OUTMS1	;EOF
-	CAIE A,^M
-	 CAIL A,40	;SUPPRESS CONTROL CHARACTERS OTHER THAN CR
-	  .IOT NETOC,A
+	CAIL A,40	;SUPPRESS CONTROL CHARACTERS
+	 .IOT NETOC,A
 	CAIN A,^M
-	 .IOT NETOC,[^J]	;CHANGE CR INTO CR-LF
+	 XCT CRLF	;CHANGE CR INTO CR-LF OR %TDCRL
 	JRST OUTMSG
 
 OUTMS1:	.NETS NETOC,