10	! ----- RJLB.FUN -----
	!
	! ----- FUNCTION TO RIGHT-JUSTIFY WITH LEADING BLANKS -----
	!
	! ----- Last Change 05/01/89 by Brian Lomasky -----
	!
	! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA  02111 -----
	! ----- (617) 482-2706, x3259 -----
	!
	! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or -----
	! ----- explicitly implies this program is usable in any way. -----
	! ----- This program is released to the public domain in an -----
	! ----- "AS-IS" condition. -----
	!
	! ----- Restrictions: -----
	! -----   1) Requires VAX BASIC V2.4 or later. -----
	!
	FUNCTION STRING RJLB(LONG RJLB_INPUT, WORD RJLB_LEN)

		OPTION TYPE = EXPLICIT

		DECLARE STRING JUST_OUTPUT	! TEMPORARY STRING

		IF LEN(NUM1$(RJLB_INPUT)) >= RJLB_LEN THEN
			RJLB = NUM1$(RJLB_INPUT)
		ELSE
			! ----- PRE-EXTEND OUTPUT STRING -----
			JUST_OUTPUT = SPACE$(RJLB_LEN)
			RSET JUST_OUTPUT = NUM1$(RJLB_INPUT)
			RJLB = JUST_OUTPUT
			JUST_OUTPUT = ""
		END IF
	END FUNCTION