.#ý+ Abbrev_Fileþ * is_defined.* + Abbrev_File+ý( JED_HOMEþ & getenv°" $1 " $1 $ NULLA.ý$ HOMEþ & getenv°" $1 " $1 $ NULLA.  °" $1/c/c! 0ý " $1þ & strlenA.4 SYS$LOGIN:abbrevs.sl°+ Abbrev_File/.ý " $1 + Abbrev_Fileþ & dircat°+ Abbrev_File/d/bý
 + Abbrev_Fileþ + file_status! 0?.ýý + Abbrev_Fileþ ( evalfileþP/c,* # val+ # val.ý$ 2048þ 0 _set_buffer_flag/.ý$ 2048þ 2 _unset_buffer_flag/dy/ set_abbrev_mode,ý$ 2048þ 3 _toggle_buffer_flagý$ 2048þ 1 _test_buffer_flag.ý. Abbrev mode ONþ
 ' message/.ý/ Abbrev mode OFFþ ' message/dy+ abbrev_modeý& abbrevþ ' provide