1) PUPFTP.FAI[S,NET] and 2) PUPFTP.OLD[S,NET]	5-28-86 14:18	pages 20,20

**** File 1) PUPFTP.FAI[S,NET]/20P/165L
1)		CAIE RET,"@"		;Does it look like a host name?
1)		CAIN RET,"%"
1)		  MOVE TAC,-1(P)	;  Yes, remember the last thing like this we've seen
**** File 2) PUPFTP.OLD[S,NET]/20P/165L
2)		CAIN RET,"@"		;Does it look like a host name?  (If you change this
2)					;    you'll have to stack the host separator below)
2)		  MOVE TAC,-1(P)	;  Yes, remember the last thing like this we've seen
***************


**** File 1) PUPFTP.FAI[S,NET]/20P/175L
1)		LDB RET,(P)		;Save host separator
1)		PUSHP RET
1)		SETZ RET,		;Terminate string at last "@"
1)		DPB RET,-1(P)
1)		MOVEI RET,42		;Double-quote
**** File 2) PUPFTP.OLD[S,NET]/20P/175L
2)		SETZ RET,		;Terminate string at last "@" (If more than one
2)		DPB RET,(P)		;  host seperator, you'll have to save it.)
2)		MOVEI RET,42		;Double-quote
***************


**** File 1) PUPFTP.FAI[S,NET]/20P/185L
1)		POPP RET		;Put back host separator.  We could force an "@"
1)		DPB RET,(P)		;  here, but for debugging purposes it seemed
1)					;  better to leave it as it was, at least for now.
1)		POPP RET		;Get rest of destination string.
1)		ADD RET,[7B11]		;Backup string over "@" (or maybe "%")
1)	;	\ /
**** File 2) PUPFTP.OLD[S,NET]/20P/183L
2)		MOVEI RET,"@"		;Put back host separator
2)		DPB RET,(P)
2)		POPP RET		;Get rest of destination string.
2)	;	\ /
***************