.#,* ! d $ cbeg $ cend $ file $ mode+" /*°$ cbeg" */°$ cend ) what_mode°$ modeP $ mode! 2F.w/b + getbuf_infoPPP°$ file $ mode! 8F.! %°$ cbeg  °$ cend/c # eolý $ cbegþ % bfind. $ bolp. ) go_left_1 $ trimý $ cbegþ % ffindP/b 0 C_Comment_Column
 + what_column:°! d ! d! 0?.ý ! dþ * whitespace/cý $ cendþ % ffind. # eolý! 2þ - insert_spacesý $ cendþ & insert/bý $ cbegþ % bfindPýý $ cbegþ & strlen! 19þ ( go_right/. + what_column 0 C_Comment_Column>.ý 0 C_Comment_Columnþ + goto_column/.ý#    þ
 & insert/dý $ cbegþ & insertý"   þ & insertý $ cendþ & strlen.ý $ cendþ & insertý! 3þ ' go_left/c/dy. c_make_comment& 0 Cmode_Fill_Chars+  °0 Cmode_Fill_Chars,ý 0 Cmode_Fill_Charsþ & strlen.! 0w/c ) push_spot . bol_skip_whiteý" * þ * looking_atý
# // þ * looking_atD.ý! 2þ ( go_right * skip_whiteý" @ þ * looking_at. # eol/c/c $ eolp" -2 . parse_to_pointBD ( pop_spoty/ c_paragraph_sep,* ! n % dwrap+  °0 Cmode_Fill_Chars / c_paragraph_sep.w/c ) push_spot ) push_spot ) push_spot.
 / c_paragraph_sepN/. $ up_1.v/b/f / c_paragraph_sep. ) go_down_1/c ) push_mark ( pop_spot. / c_paragraph_sepN/. & down_1.v/b/f / c_paragraph_sep. ' go_up_1/c & narrow ( pop_spot # bol ) push_mark * skip_whiteý" * þ * looking_at.ý! 2þ ( go_right/.ý
# // þ * looking_at.ý! 3þ ( go_right/c/d ) bufsubstr°0 Cmode_Fill_Chars + what_column°% dwrap # bob. ( bol_trimý" * þ * looking_at.ý! 2þ $ deln/.ý# // þ * looking_at.ý! 3þ $ deln/c/d/. & down_1/k % dwrap²$ WRAPý0 format_paragraphþ $ call % dwrap
±$ WRAP # bob.ý 0 Cmode_Fill_Charsþ & insert/. & down_1/k # bolýý 0 Cmode_Fill_Charsþ & strlenþ ( go_right * skip_whiteý" */þ * looking_at. ) push_mark . bol_skip_white * del_region/c  °0 Cmode_Fill_Chars % widen ( pop_spoty2 c_format_paragraph,*
 $ cbeg+# /* °$ cbeg* $ cmid+#  * °$ cmid* $ cend+#  */°$ cend* ! c " c1 $ celm % extra+ý! 1þ , check_region 7 exchange_point_and_mark + what_column°! c & narrow # bob.°% extra°$ celm . bol_skip_white + what_column°" c1 " c1 ! c?.ý ! cþ + goto_column
ý $ celmþ & insert $ trimý " c1 + what_column: % extra9þ * whitespace/. $ eolp.ý ! cþ + goto_column/cý $ celmþ & insert/d/pý $ cbeg! 0þ - X_USER_BLOCK0. & down_1/.ý $ cmid! 1þ - X_USER_BLOCK0/f % widen . bol_skip_whiteý $ cmidþ * looking_at.ý! 3þ
 $ deln/. # eolý! 1þ % right. ' newline/b/dý $ cend! 0þ - X_USER_BLOCK0 ( pop_spoty0 c_comment_region,ý# 123þ 0 bol_bsearch_char.ý: Top of function not found.þ % error/by1 c_top_of_function, # eolý# 125þ 0 bol_fsearch_char.ý
9 End of function not foundþ % error/by1 c_end_of_function, 1 c_end_of_function 1 push_visible_mark # eol ) go_down_1 7 exchange_point_and_mark 1 c_top_of_functioný! 2þ % go_up # boly/ c_mark_function,* ! d $ cbeg $ mode+" //°$ cbeg # eolý $ cbegþ
 % bfind. $ bolp. ) go_left_1 $ trimý $ cbegþ % ffindP/b 0 C_Comment_Column + what_column:°! d ! d! 0?.ý ! dþ * whitespace/cý $ cbegþ % bfindPýý $ cbegþ & strlen! 19þ ( go_right/. + what_column 0 C_Comment_Column>.ý 0 C_Comment_Columnþ + goto_column/.ý
! 	þ & insert/dý $ cbegþ & insertý!  þ & insert/dy8 c_plus_plus_make_comment