SUBROUTINE LINE(NLINE)
C	======================
C	
C	PURPOSE	- IF 1 <= NLINE <= 6
C		  THEN SET LINE TYPE
C		  ELSE USE NO LINES
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NL=0
	IF (NLINE.GE.1 .AND. NLINE.LE.6) NL=NLINE
	IF (NL.EQ.NLINEN) RETURN
	NLINEN=NL
	GOTO (2401,2402,2403,2404,2405,2406),NL
	
	CALL ASC('~R@')			! LINE (0)
	CALL SBN(32)
	CALL SBN(1)
	CALL SBN(32)
	CALL MBN(5000)
	GOTO 2410
	
2401	CALL ASC('~Q@')			! LINE (1)
	GOTO 2410
	
2402	CALL ASC('~Q@')			! LINE (2)
	CALL SBN(34)
	CALL SBN(1)
	CALL MBN(75)
	GOTO 2410
	
2403	CALL ASC('~Q@')			! LINE (3)
	CALL SBN(33)
	CALL SBN(1)
	CALL MBN(50)
	GOTO 2410
	
2404	CALL ASC('~Q@')			! LINE (4)
	CALL SBN(33)
	CALL SBN(1)
	CALL MBN(25)
	GOTO 2410

2405	CALL ASC('~Q@')			! LINE (5)
	CALL SBN(37)
	CALL SBN(1)
	CALL SBN(33)
	CALL SBN(1)
	CALL MBN(100)
	GOTO 2410

2406	CALL ASC('~Q@')			! LINE (6)
	CALL SBN(37)
	CALL SBN(1)
	CALL SBN(33)
	CALL SBN(1)
	CALL SBN(33)
	CALL SBN(1)
	CALL MBN(125)

2410	RETURN

	END