File: //usr/share/jed/lib/tmisc.slc
.#,*�! 7 # min # max ! r % count+�! 8# 100�% count�! 9 ) push_spot . bol_skip_white�" 10 $ eolp. ( pop_spotw/c�" 11 + what_column�# min�" 12 ( eol_trim�" 13 + what_column�# max.�" 14 # max $ WRAP= % countC/.��" 16! 0 # max� & random�! r�" 17�% count�"
18 ! r # min=.u/c��" 19 ! r� + goto_column * skip_white��" 20" 32� * ffind_char. 3 insert_single_space�# max # eol/c/f�" 22 ( pop_spot�! 5y1 text_justify_line,*�" 27 ! n+�" 28 ) push_spot�" 30 2 backward_paragraph�" 31 ) what_line�! n�" 32 1 forward_pa
ragraph��" 33! 2� % go_up�" 34 ! n ) what_line:! 0?. ( pop_spotw/c�" 35 ) push_mark�" 36 2 backward_paragraph�" 37 ) what_line! 1B. ) go_down_1/c�" 38 & narrow�" 39 # bob.�" 40 1 text_justify_line/. & down_1/k�" 41 % widen�" 42 ( pop_spot�" 25y5 forma
t_paragraph_hook