! Collection of code snippets by Arne Vajhøj ! posted to INFO-VAX, INFO-TPU, MACRO32 and other (1990-1999) procedure nice_delete(fndstr) local find_mark; position (beginning_of(current_buffer)); loop find_mark:=search_quietly(fndstr,forward); exitif find_mark = 0; position(find_mark); erase_character(length(fndstr)); endloop; endprocedure; procedure nice_insert position (beginning_of(current_buffer)); position(search_quietly('"'+"\n"+'"'+" { lnr++;",forward)); copy_text('"'+"$"+'"'+" { return '$'; }"); split_line; endprocedure; nice_delete("$"); nice_insert; exit;