SUBROUTINE BORDER
C	=================
C	
C	PURPOSE	- DRAWS A BORDER ON THE CURRENT PAGE
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3100	CONTINUE
	ZDOWN=.FALSE.
	IF (NSYMN.NE.0) CALL ASC('~#@')
	CALL ASC('p@')
	CALL MBP(NMAXX,NMINY)
	CALL MBP(NMINX,NMINY)
	CALL MBP(NMINX,NMAXY)
	CALL MBP(NMAXX,NMAXY)
	CALL MBP(NMAXX,NMINY)
	CALL ASC('p@')
	IF (NSYMN.EQ.0) GOTO 3105
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3105	CALL HPSEND
	RETURN

	END