.#ý& abbrevþ ' require,* % table $ word+* ! n+ ) what_line°! n* ) use_bskip+! 1°) use_bskip* # exg+( exchange°# exg* & abbrev & expans+ % markp.ý # exgþ $ call ! n ) what_lineAý # exgþ $ call.! 0°) use_bskip/c/c ) push_spot ) use_bskip. ) push_marký
 $ wordþ + bskip_chars/c ) bufsubstr°& expans ( pop_spotý & expansþ & strlen.ý) For what? + Null_String + Null_Stringþ ) read_mini°& expansý & expansþ & strlen.w/b/bý2 Enter abbrev for ' & expans9! '9    þ ) read_mini°& abbrevý & abbrevþ & strlen.w/
bý % table & abbrev & expansþ - define_abbrevy7 define_abbrev_for_table,* # tbl $ word+ 1 what_abbrev_table°$ word°# tblý # tblþ & strlen.& Global°# tblý # tbl + Null_Stringþ 3 create_abbrev_table 1 what_abbrev_table°$ word°# tbl/bý # tbl $ wordþ
 7 define_abbrev_for_tabley3 define_abbreviation, ) push_spot.ý" 92þ * ffind_char/.ý" 92þ + insert_char * go_right_1/f ( pop_spot ) push_spot.ý" 34þ * ffind_char/.ý" 92þ + insert_char * go_right_1/f ( pop_spot‚/ quote_this_line,* $ file+ý
0 Save abbrevs to:þ 3 read_file_from_mini°$ file* ! n % table $ word+ýý $ fileþ 0 extract_filenameþ & strlen.ý $ file + Abbrev_Fileþ & dircat°$ file/býý $ fileþ 0 extract_filenameþ & strlen.ý- Invalid file.þ % error/b 2 list_abbrev_tables°! n ! n.w/bý
 $ fileþ ) read_fileP , erase_buffer ! n.°% table ) push_spotý % tableþ 1 dump_abbrev_table°$ word ( pop_spotýC create_abbrev_table ("%s", "%s");\n % table $ wordþ ' vinsert ' go_up_1. & down_1 $ eobpNC/.ý0 define_abbrev ("þ & insertý % tableþ & insert
ý$ ",	"þ & insert / quote_this_lineý! 9þ * ffind_charP $ trimý$ ",	"þ & insert # eolý# ");þ & insert/f/i + save_bufferý ' whatbufþ & delbufy, save_abbrevs