.STANDARD;.FLAGS CAPITALIZE
.TITLE <UNDER - ^^MULTIPLE UNDERLINING ON THE PRINTRONIX
.PAGE
.INDENT 50
<UNDER
.SKIP 1
.CENTER
<UNDER - ^^MULTIPLE UNDERLINING ON THE PRINTRONIX
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <UNDER\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ <UNDER SIMPLY UNDERLINES THE MOST RECENTLY PRINTED LINE ACCORDING TO THE PARAMETER SPECIFICATIONS.  <UNDER
WILL WORK ONLY ON FILES OR DEVICES OPENED BY <FORTRAN.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^FROM <FORTRAN 
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SK
.I -9
^S1-------^S1 IS THE FIRST OF N ACCEPTABLE SPACING PARAMETERS.  ^S(N) AND 
^B(N) MUST ALWAYS BE GIVEN IN PAIRS.  THE LIMIT TO THE NUMBER OF PAIRS
IS HALF THE TASK STACK SIZE -- BUT SINCE THE <PRINTRONIX WILL ONLY ALLOW
132 CHARACTERS PER LINE 66 ARGUMENT PAIRS IS THE PRACTICAL MAXIMUM.
.SK 1;.I -9
^B1------^THE NUMBER OF BYTES OF UNDERLINES TO FOLLOW THE PREVIOUSLY DEFINED
NUMBER OF SPACES.
.SKIP 2;.I -9
^^NLINES---\\THE NUMBER OF LINES OF UNDERLINING. 2**16 IS THE MAXIMUM.
.SK 1;.I -9
^^LUN\\------^THE LOGICAL UNIT NUMBER CURRENTLY ASSIGNED TO THE <PRINTRONIX
OR THE SPOOLER FILE.
.SKIP 2
.LM 10
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^PUT$; $FDOF; $FCHNL; 
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ 
.NF;.NJ;.LM 2
^^C**************************************************
C
C	UNDER THE FOUR FIELDS WITH DOUBLE UNDERLINES
C
C******************************************************
	WRITE(6,230)BALNCE,TOTAL,AMOUNT,N
230	FORMAT(//T50,4F12.2)
	CALL UNDER(51,11,1,11,1,11,1,11,2,6)
	RETURN
	END
.LM 10
.FILL;.JUSTIFY
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^JACK MARTINELLI   ###CETUS CORPORATION
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^^JULY 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO-11 (SUPERMAC)
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^UNDER
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^^SEE SOMEONE
.SKIP 1
.INDENT -10