1	%TITLE "!//+\\!"
	%SBTTL "!//+\\!"
	%IDENT "V!//+\\!.00"
	!
	!++
	!
	! Facility:	!//+\\!<Facility name>
	!
	! Abstract:
	!
	! A short 3-6 line abstract of the function of the module.   If  a
	! full functional specification can be given in 3-6 lines, replace
	! "Abstract" above by "Functional  Description,"  and  delete  the
	! "Functional Description" section below.
	!	|   |		[Margins -- Set wrap at 74]		 |
	!
	! Environment:
	!
	!	VAX-11 user mode.
	!
	! Author:	!//+\\!	Creation Date:	!//+\\!
	!      
	! Modified By:
	!
	!       !//+\\!	<dd-Mmm-yy>!//+\\!
	!	!//+\\![Enter the nature of the modification]
	!
	!--
	%PAGE
	%SBTTL "Full description"
 	[Pick at most one of FUNCTION or SUB below.  Include parameters on
	 either.  For main programs, omit FUNCTION or SUB statement and
	 parameters.]              
	FUNCTION !//+\\!<Datatype> !//+\\!<Name>			&
	SUB !//+\\!<Name>						&
	   (!//+\\!<Datatype> !//+\\!<Param>,		! !//+\\!<Description>&
	!//+\\!<datatype> !//+\\!<param>)		! !//+\\!<Description>
	!
	!++
	!
	! Functional Description:
	!
	!     A detailed functional description of the routine.   This  should
	! detail  the  steps of the process, the use of external functions
	! and subprograms (including system services, RTL routines, SYSLIB
	! routines), and so forth.
	!	|   |		[margins]				 |
	!
	! Formal Parameters:
	!
	!   <name>.<access type><data type>.<arg mech><arg form>
	! A description of the meaning of  the  parameter,  its  legal
	! values,  etc.  Repeat for each parameter.  If a main program
	! rather than  a  function  or  subroutine,  use  the  COMMAND
	! STRUCTURE section.
	! <access type> is m, r, or w for modify, read, or write.
	! <datatype> is b, d, g, h, l, p, s, t, or w for BYTE, DOUBLE,
	! 	GFLOAT,  HFLOAT,  LONG,  packed  (DECIMAL), SINGLE, text
	!	(STRING), or WORD.
	! <arg mech> is d, r, or v for BY DESC, BY REF, or BY VALUE.
	! <arg form> is <null> or a for scalar or array.
	!	|   |   |	[margins]			         |
	!
	! Implicit Inputs:
	!
	! Describe all uses of the values of global storage  objects  used
	! by the routine.
	!	|   |		[margins]				 |
	!
	! Implicit Outputs:
	!
	! Describe all modifications to the values of global  storage  ob-
	! jects used by the routine.
	!	|   |		[margins]				 |
	!
	! Function Value:
	! Completion Codes:
	!
	! If a function, describe the value returned.  If  the  value  re-
	! turned  is  a  status  indicator, use COMPLETION CODE and delete
	! FUNCTION VALUE;  if the result of some computation, use FUNCTION
	! VALUE and delete COMPLETION CODE.
	!  If a SUB, delete FUNCTION VALUE and enter "None."
	!	|   |		[margins]				 |
	!
	! Side Effects:
	!
	! Describe all functional side effects that are not  evident  from
	! the  invocation interface.  This includes changes in storage al-
	! location, process status, file operations (including the command
	! terminal), errors signalled, etc.
	!	|   |		[margins]				 |
	!
	!--
	%PAGE
	%SBTTL "Declarations"
	!
	! Environment Specification:
	!
	OPTION TYPE = EXPLICIT
	!
	! Include Files:
	!
	%INCLUDE "!//+\\!<Filespec> "
	!
	! External References:
	!
	EXTERNAL !//+\\!<type> CONSTANT	!//+\\!,			&
					!//+\\!
 
	EXTERNAL !//+\\!<type>		!//+\\!,			&
					!//+\\!<name>
 
	EXTERNAL !//+\\!<type> FUNCTION	!//+\\!,			&
					!//+\\!<name>
 	!
	! Equated Symbols:
	!
	DECLARE !//+\\! CONSTANT	!				&
					! !//+\\!<Usage>		&
					!				&
					!//+\\!	=	!//+\\!,	&
					!//+\\!	=	!//+\\!
	!
	! Local Storage:
	!
	RECORD !//+\\!<Name>
	       !//+\\!<RECORD declaration>
	END RECORD

	DECLARE	!//+\\!<type>		!//+\\!,			&
					!//+\\!
	!
	! Global Storage:
	!
	MAP (!//+\\!) !//+\\!<type>	!//+\\!,			&
					!//+\\!
	%PAGE
	%SBTTL "Executable Code"
	ON ERROR GO TO ERROR_ROUTINE
	!//+\\!
	%PAGE
	%SBTTL "Error Routine"
 
 ERROR_ROUTINE:
 
	SELECT ERR
	       CASE ELSE
		    PRINT "Error number" + NUM$( ERR)			&
			+ "in module " + ERN$ + "."
		    PRINT ERT$( ERR)
		    RESUME DONE
	END SELECT
 
 DONE:
 
	END