10	! ----- RJL0.FUN -----
	!
	! ----- FUNCTION TO RIGHT-JUSTIFY WITH LEADING ZEROS -----
	!
	! ----- 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 RJL0(LONG RJL0_INPUT, WORD RJL0_LEN)

		OPTION TYPE = EXPLICIT

		DECLARE STRING JUST_OUTPUT	! TEMPORARY STRING

		IF LEN(NUM1$(RJL0_INPUT)) >= RJL0_LEN THEN
			RJL0 = NUM1$(RJL0_INPUT)
		ELSE
			! ----- PRE-EXTEND OUTPUT STRING -----
			JUST_OUTPUT = SPACE$(RJL0_LEN)
			RSET JUST_OUTPUT = STRING$(RJL0_LEN, 48%) +	&
				NUM1$(RJL0_INPUT)
			RJL0 = JUST_OUTPUT
			JUST_OUTPUT = ""
		END IF
	END FUNCTION