10  %TITLE "<BABY_ED>"
    %SBTTL "Small Editor"
    %IDENT "V01.00"
    !
    !			    COPYRIGHT (c) 1987 BY
    !		Bert Roseberry, U. S. Coast Guard, Washington, D.C.
    !
    !		Bert Roseberry	      or      Bert Roseberry
    !		Commandant (G-APA-1)	      P. O. Box 175
    !		2100 Second St., S.W.	      Manassas, VA  22110
    !		Washington, DC 20593	      (703) 368-4350
    !		(202) 267-2626
    !
    ! THIS SOFTWARE IS FURNISHED FREE AND MAY BE USED AND COPIED ONLY WITH
    ! THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY
    ! OTHER COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
    ! TO ANY OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS
    ! HEREBY TRANSFERRED.
    !
    ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
    ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY THE U.S. COAST GUARD.
    !
    ! THE U.S. COAST GUARD ASSUMES NO RESPONSIBILITY FOR THE USE OR RELI-
    ! ABILITY OF ITS SOFTWARE.
    !
    !++
    !
    ! FACILITY:
    !
    !	BABY_ED.BAS
    !
    ! ABSTRACT:
    !
    !	This is the function that sets up a baby editor to edit long
    !	string variables
    !
    ! ENVIRONMENT:
    !
    !	VAX-11 user mode.
    !
    ! AUTHOR: Bert Roseberry, CREATION DATE: 17 Apr 1987
    !
    ! MODIFIED BY:
    !
    !	Bert Roseberry, 	29-JUN-87: VERSION 01.01
    ! 00 - Original version of module.					BAR
    ! 01 - Removed MAP statement					BAR
    !
    !--
    %SBTTL "Full description"
 
    FUNCTION INTEGER BABY_ED 						&
    (STRING IN_LINE, STRING OUT_LINE, LONG STR_LEN, LONG LN_DWN,&
	             LONG SCRN_CLR_BEF, LONG SCRN_CLR_AFT) 
 
    !++
    !
    ! FUNCTIONAL DESCRIPTION:
    !
    !	Use SMG functions to act as a baby editor.
    !   	Format:
    !			BABY_ED(IST,OST,III,J,K,L)
    !	where:
    !		IST - entire string to parse
    !		OST - entire string returned
    !		III - number of characters in edit buffer
    !		J   - number of lines from top of screen
    !		K   - 1 to save screen, 0 to clear screen when starting
    !		L   - 1 to save screen, 0 to clear screen when done
    !
    !
    ! FORMAL PARAMETERS:
    !
    !	<name>.<access type><data type>.<arg mech><arg form>
    !	    <access type> is m, r, or w for modify, read, or write.
    !	    <datatype> is b, d, g, h, l, p, s, t, or w
    !	    <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.
    !
    !
    ! IMPLICIT INPUTS:
    !
    !	None
    !
    ! IMPLICIT OUTPUTS:
    !
    !	None
    !
    ! FUNCTION VALUE:
    !
    !
    ! SIDE EFFECTS:
    !
    !--
    %SBTTL "Declarations"
    !
    ! ENVIRONMENT SPECIFICATION:
    !
    !
    ! INCLUDE FILES:
    !
    !
    ! EQUATED SYMBOLS:
    !
    !	DECLARE <datatype> CONSTANT					&
    !	<name> = <value>,		 <Description>			&
    !	<name> = <value>		 <Description>
    !
    ! LOCAL STORAGE:
    !
    !	 RECORD <name>			 <Description>
    !	<record declaration>
    !	END RECORD
 
    DECLARE								&
	LONG								&
	    STAT							&
    !				Holds return from function calls

    !
    ! GLOBAL STORAGE:
    !
    !COMMON (<name>)			 <Description>			&
    !	<datatype>							&
    !	    <name>,			 <Description>			&
    !	    <name>,			 <Description>			&
    !	<datatype>							&
    !	    <name>,			 <Description>			&
    !	    <name>			 <Description>
 
    !MAP (<name>)			 <Description>			&
    !	<datatype>							&
    !	    <name>,			 <Description>			&
    !	    <name>,			 <Description>			&
    !	<datatype>							&
    !	    <name>,			 <Description>			&
    !	    <name>			 <Description>
 
    !
    ! EXTERNAL REFERENCES:
    !
 
    !EXTERNAL <datatype> CONSTANT					&
    !	<name>				 <Description>
 
    !EXTERNAL <datatype>						&
    !	<name>				 <Description>
    !EXTERNAL <datatype> FUNCTION					&
    !	<name>				 <Function description> 	&
    !	   (<datatype> BY <mech>,	 <Argument description> 	&
    !	    <datatype> BY <mech>)	 <Argument description>
 
    EXTERNAL INTEGER	FUNCTION					&
	FOR_BABY_ED	
 
    !EXTERNAL SUB							&
    !	<name>				 <Function description> 	&
    !	   (<datatype> BY <mech>,	 <Argument description> 	&
    !	    <datatype> BY <mech>)	 <Argument description>
 
    !
    ! INTERNAL REFERENCES:
    !
 
    !DECLARE <datatype> FUNCTION					&
    !	<name>				 <Function description> 	&
    !	   (<datatype>, 		 <Argument description> 	&
    !	    <datatype>) 		 <Argument description>
 
	!+
	!   Call FOR_BABY_ED
	!-
 
	%SBTTL "Call FOR_BABY_ED"
 
1000	CALL_IT:

	!+
	!	First set up the pasteboard
	!-

	STAT = FOR_BABY_ED(IN_LINE, OUT_LINE, STR_LEN, LN_DWN,		&
	             SCRN_CLR_BEF, SCRN_CLR_AFT) 


 	%SBTTL "Exit and return"

32000	EXIT_PART:
 
	!+
	!	Exit module
	!-
 
32767	FUNCTIONEND 1%