SUBROUTINE REG (R, LINE, LINSUB)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	BYTE		LINE(78),	R
	IF (R .EQ. '6') GO TO 100
	IF (R .EQ. '7') GO TO 200
	LINE(LINSUB) = 'R'
	LINE(LINSUB+1) = R
	LINSUB = LINSUB + 2
	RETURN
100	LINE(LINSUB) = 'S'
	LINE(LINSUB+1) = 'P'
	LINSUB = LINSUB + 2
	RETURN
200	LINE(LINSUB) = 'P'
	LINE(LINSUB+1) = 'C'
	LINSUB = LINSUB + 2
	RETURN
	END