.#ýü! 3& abbrevþ ' require,*ü! 5 % table $ word+*ü! 7 ! n+ ) what_line°! n*ü! 8 ) use_bskip+! 1°) use_bskip*ü! 9 # exg+( exchange°# exg*ü" 10 & abbrev & expans+ü" 12 % markp.ýü" 14 # exgþ $ callü" 15 ! n ) what_lineAý # exgþ $ call.! 0°) use_bskip/c/
cü" 18 ) push_spotü" 19 ) use_bskip.ü" 21 ) push_markýü" 22 $ wordþ + bskip_chars/cü" 24 ) bufsubstr°& expansü" 25 ( pop_spotýü" 27 & expansþ & strlen.ýü" 29) For what? + Null_String + Null_Stringþ ) read_mini°& expansýü" 30 & expansþ & strlen.w/b/býü" 3
32 Enter abbrev for ' & expans9! '9    þ ) read_mini°& abbrevýü" 34 & abbrevþ & strlen.w/býü" 36 % table & abbrev & expansþ - define_abbrevü! 5y7 define_abbrev_for_table,*ü" 41 # tbl $ word+ü" 43 1 what_abbrev_table°$ word°# tblýü" 44 # tblþ & strlen
.ü" 46& Global°# tblýü" 47 # tbl + Null_Stringþ 3 create_abbrev_tableü" 48 1 what_abbrev_table°$ word°# tbl/býü" 51 # tbl $ wordþ 7 define_abbrev_for_tableü" 39y3 define_abbreviation,ü" 56 ) push_spot.ýü" 57" 92þ * ffind_char/.ýü" 59" 92þ + insert_cha
rü" 60 * go_right_1/fü" 62 ( pop_spotü" 63 ) push_spot.ýü" 64" 34þ * ffind_char/.ýü" 66" 92þ + insert_charü" 67 * go_right_1/fü" 69 ( pop_spotü" 54…/ quote_this_line,*ü" 74 $ file+ý0 Save abbrevs to:þ 3 read_file_from_mini°$ file*ü" 75 ! n % table $
 word+ýýü" 77 $ fileþ 0 extract_filenameþ & strlen.ýü" 79 $ file + Abbrev_Fileþ & dircat°$ file/býýü" 82 $ fileþ 0 extract_filenameþ & strlen.ý- Invalid file.þ % error/bü" 84 2 list_abbrev_tables°! nü" 85 ! n.w/býü" 87 $ fileþ ) read_filePü" 88 , erase_b
ufferü" 90 ! n.ü" 92°% tableü" 93 ) push_spotýü" 94 % tableþ 1 dump_abbrev_table°$ wordü" 95 ( pop_spotýü" 97$C create_abbrev_table ("%s", "%s");\n % table $ wordþ ' vinsertü" 98 ' go_up_1.ü# 100 & down_1 $ eobpNC/.ýü# 1020 define_abbrev ("þ & insertý % 
tableþ & insertýü# 103$ ",	"þ & insertü# 104 / quote_this_lineýü# 105! 9þ * ffind_charPü# 106 $ trimýü# 107$ ",	"þ & insertü# 108 # eolýü# 109# ");þ & insert/f/iü# 112 + save_bufferýü# 113 ' whatbufþ & delbufü" 72y, save_abbrevs