;
					;	THIS SUBROUTINE TAKES N OR MORE STRINGS AND
					;	CONCATENATES THEM INTO ONE STRING
					;
 				LEN=R0
 				PNTR1=R1
 				PNTR2=R2
 				TEM1=R3
 				TEM2=R4
 				FORTRN=R5
				.MCALL SUPER
			SUPER
			PROCEDURE CONCAT ; LEN=CONCAT(STRING1,STRING2,SRTING3...STRINGN)
			PUSH R5
			LET TEM1 := (R5)+ - #1		;PICK UP #OF VARIABLES MINUS ONE.
			LET LEN := #0
			LET PNTR1 := (R5)+		;GET POINTER TO OUTPUT STRING
			THRU TEM1
			     LET PNTR2 := (R5)+	;GET POINTER TO AN INPUT STRING
			     WHILEB (PNTR2) NE #0
			          LET (PNTR1)+ :B= (PNTR2)+
			          LET LEN := LEN + #1
			     END
			END
			POP R5
			RETURN
			ENDPROCEDURE CONCAT
		 	.END