PROCEDURE (ram$appml) append_marked_lines, appml (
  append_string, as: string 0..256 = $optional
  status)

  "$FORMAT=OFF
  VAR
    scr1: file = $fname($unique)
    scr2: file = $fname($unique)
  VAREND
  "$FORMAT=ON"

  IF NOT ($mfc = $mlc AND $mfl = $mll) THEN
    IF NOT $specified(as) THEN
      as = $screen_input('Enter string to append?')
    IFEND
    write_file f=scr1 l=m
    append_string_to_file as=as i=scr1 o=scr2
    read_file f=scr2 il=$mfl p=b
    delete_lines l=m
    detach_file f=scr1
    detach_file f=scr2
  IFEND

PROCEND append_marked_lines
