10	%TITLE "<routine name> - <functionally descriptive name>"
	%IDENT "X00.00"
	%SBTTL "General description"


 ! ------------------------------------------------------------------
 !
 !			A STANDARD ROUTINE
 !
 !
 !	PART OF THE <system name> SYSTEM <or LIBRARY>
 !
 !	DEVELOPED BY AND FOR						      
 !
 !	C A R L ' S   G R O C E R Y   C O M P A N Y ,  I N C .	      
 !
 !	COPYRIGHT (C) 19XX BY CARL'S GROCERY COMPANY, INC.		      
 !
 ! This software is the sole property of Carl's Grocery Company, Inc.,	      
 ! and is intended soley for its use.  It may not be copied.		      
 !
 ! -----------------------------------------------------------------

  SUB <routine name>                                                          &
                                                                              &
	       (<datatype>	<name>,		! <description>               &
		<datatype>	<name>)		! <description>

	!
	! ENVIRONMENT SPECIFICATION:
	!

	OPTION                                                                &
		TYPE  = EXPLICIT,                                             &
		SIZE  = INTEGER LONG,                                         &
		SIZE  = REAL DOUBLE,                                          &
		SCALE = 4


	!++
	!
	! FUNCTIONAL DESCRIPTION:
	!
	!	<>
	!
	! FORMAL PARAMETERS:
	!
	!	<>
	!
	! IMPLICIT INPUTS:
	!
	!	<>
	!
	! IMPLICIT OUTPUTS:
	!
	!	<>
	! 
	! SIDE EFFECTS:
	!
	!	<>
	!
	! AUTHOR: <Your name>, CREATION DATE: <dd Mmmmmmmmm yyyy>
	!
	!--

1000	%PAGE
	%SBTTL "The routine"

	! Set up error handler

	ON ERROR GOTO <routine name>_error_handler

@	[Routine code goes here]

	! End of process

	EXIT SUB


  <function name>_error_handler:

	SELECT ERR

	   CASE ELSE		! Abort on unanticipated error

		ON ERROR GO BACK

	END SELECT


32767	! End of routine

				END SUB