;************************************************************
;
; FN$BABY_ED - "Baby" editor
;
; arguments are:
;
; in_buffer is the string - the max size is determined by the minimum of
;                        maximum size of a dynamically allocated strings
;                        in DATATRIEVE or the size of the buffers in
;                        BABY_ED2.FOR
; out_buffer is the returned string - the max size is determined by the
;                        minimum of three things
;                        1. the maximum size of a dynamically allocated
;                          string in DATATRIEVE
;                        2. the size of the buffers in BABY_ED2.FOR
;                        3. the max size of a returned allocated string as
;                          specified in the module $DTR$FUN_IN_ARG in
;                          the macro library DTR$LIBRARY:DTRFNLB.MLB
;                          (the DEC default is 1000 characters and you
;                          will have to increase it using the instructions
;                          from the newsletter article given in
;                          WW_ALL_LEN.LST to make the returned string larger
;                          than 1000 characters)
;                          (Note: this code uses a limit of 2000 characters, 
;                           for the ALL_LEN (DTR restriction), but the
;                           buffers in BABY_ED2.FOR restrict to 10000 
;                           characters.)
; buffer_size   long    - the size of in_buffer and out_buffer
; top           long    - the row number of the top of edit region
; left          long    - the column number of the left side of the edit region
; window_height long    - the number of line of the edit region
; window_width  long    - the number of columns of width of the edit region
; scrn_clr_bef  long    - clear screen before display flag
; scrn_clr_aft  long    - clear screen after display flag
; wrap_flag     long    - perform wrapped display flag - (not yet implemented)
; (see the code and documentation in BABY_ED2.FOR for limits and restriction
;  on the 8 parameters above)
;
$DTR$FUN_DEF FN$BABY_ED, BABY_ED, 10
    $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS
    $DTR$FUN_IN_ARG  TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1
    $DTR$FUN_IN_ARG  TYPE = FUN$K_TEXT, OUT_PUT = TRUE , ALL_LEN = 2000
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 2
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 3
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 4
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 5
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 6
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 7
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 8
    $DTR$FUN_IN_ARG  TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_L, ORDER = 9
    $DTR$FUN_NOOPTIMIZE
    $DTR$FUN_HEADER  HDR = <->
    $DTR$FUN_EDIT_STRING  ^\X(2000)\
$DTR$FUN_END_DEF