;************************************************************
;
; FN$BABY_ED - "Baby" editor
;
; input  is a string - size is 1716 = 22 * 78
; output is a string - size is 1716 = 22 * 78
;		long
;		long
;		long
;		long
;
$DTR$FUN_DEF FN$BABY_ED, BABY_ED, 6
    $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 = 1716
    $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_NOOPTIMIZE
    $DTR$FUN_HEADER  HDR = <->
    $DTR$FUN_EDIT_STRING  ^\X(1716)\
$DTR$FUN_END_DEF