;************************************************************ ; ; 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