.#�! 4,* $ goal+! 3W $ goal�! 6 ) push_spot�! 7. $ up_1/�! 8.�! 9 ( eol_trim�" 10 . bol_skip_white�" 11" 36 / looking_at_char�" 12.# $	  * skip_chars�" 13" 33 / looking_at_char. + what_columnW $ goalv/b�" 14/�" 15.�" 16" 33 / looking_at_char�" 17.�" 
20 ) push_spot�" 21 $ up_1 # eol $ bolpNC�" 22. $ trim ) go_left_1�" 23" 45 / looking_at_char�" 24. ( pop_spot + what_columnW $ goalv/b�" 25/c�" 26 ( pop_spot�" 27/b�" 28/d�" 29/�" 30f�" 32.$ then * looking_at.! 2X $ goal! 1/.! 0/d/�" 33.$ else * lo
oking_at.! 2X $ goal! 1/.! 0/d/�" 34mP�" 35 ( pop_spot�" 37 # bol# $	  * skip_chars�" 38.$ else * looking_at.! 2Y $ goal! 1/.! 0/d/�" 39.% endif * looking_at.! 2Y $ goal! 1/.! 0/d/�" 40mP�" 41 $ goal! 1?. $ goal/.! 3/d�" 42- + dcl_get_ind�" 
44,�" 45* $ goal+�" 46 ) push_spot�" 47 + dcl_get_indW $ goal�" 49 ) push_spot�" 50 $ up_1. ( eol_trim $ bolp.! 1 ' go_left" 45 / looking_at_char.! 2X $ goal/c/b/c�" 51 ( pop_spot�" 53 # bol# 	 $ * skip_chars�" 54" 33 / looking_at_char�" 55." 	  + b
skip_chars $ trim $ goal + what_column: * whitespace/�" 56b�" 57 ( pop_spot�" 58 * skip_white�" 59- * dcl_indent�" 61,* $ cont ! p+! 0W $ cont�" 62 $ bobp $ bolp" 36 / looking_at_charCD.$$ $ \n & insert! 1 $ leftPw/c�" 63 $ trim�" 64 ) push_spot�" 67 )
 push_spot # bol�" 68" 36 / looking_at_charN $ up_1C�" 69.�" 70 $ bolp ( eol_trim�" 71! 1 ' go_left�" 72 ) what_char" 45BW $ cont�" 73/�" 74c�" 75 ( pop_spot�" 77 $ cont.�" 78 * _get_pointW ! p) sys$input % bfind�" 79.! 9 % rightP�" 80" 58 ) what_ch
arA.! 1 % rightP/c�" 81 * _get_point ! pAW $ cont�" 82/c�" 83 ! p * _set_point�" 84/b�" 86 $ bolp.! 1 $ leftP�" 87" 45 / looking_at_char.! 1W $ cont/c�" 88/�" 89b�" 90 ( pop_spot�" 91 ' newline�" 92 $ cont." 36 + insert_char/b�" 93 * dcl_indent�" 94-
 + dcl_newline��" 96# dcl� 3 create_syntax_table,*�# 100 $ name+��# 102$ !.*$' comment $ name� 9 dfa_define_highlight_rule��# 103' "[^"]*"& string $ name� 9 dfa_define_highlight_rule��# 104$9 /[a-zA-Z][_a-zA-Z0-9\\-]*( keyword2 $ name� 9 dfa_define
_highlight_rule��# 105$? \\.([gG]|[lL]|[nN])[eE][sS]?\\.* preprocess $ name� 9 dfa_define_highlight_rule��# 106$: \\.([gG]|[lL])[tT][sS]?\\.* preprocess $ name� 9 dfa_define_highlight_rule��# 107$3 \\.[eE][qQ][sS]?\\.* preprocess $ name� 9 dfa_define_h
ighlight_rule��# 108$2 \\.[nN][oO][tT]\\.* preprocess $ name� 9 dfa_define_highlight_rule��# 109$2 \\.[aA][nN][tT]\\.* preprocess $ name� 9 dfa_define_highlight_rule��# 110$. \\.[oO][rR]\\.* preprocess $ name� 9 dfa_define_highlight_rule��# 111$; [a-zA
-Z][\\$a-zA-Z0-9_\\-]*' Knormal $ name� 9 dfa_define_highlight_rule��# 112! @' keyword $ name� 9 dfa_define_highlight_rule��# 113& [0-9]+& number $ name� 9 dfa_define_highlight_rule��# 114 $ name� 9 dfa_build_highlight_table�# 100�2 setup_dfa_callbac
k��# 116}2 setup_dfa_callback# dcl� 5 dfa_set_init_callback��# 120# dcl$ ifon! 2! 0� 1 define_keywords_nP��# 121# dcl, eodmcrrunset! 3! 0� 1 define_keywords_nP��# 122# dclD callelseexitgotoopenreadshowthenwait! 4! 0� 1 define_keywords_nP��# 1
23# dcl9 closeendifgosubspawnwrite! 5! 0� 1 define_keywords_nP��# 124# dcl2 assigndefinereturn! 6! 0� 1 define_keywords_nP��# 125# dcl( deassign! 8! 0� 1 define_keywords_nP��# 126# dcl* subroutine" 10! 0� 1 define_keywords_nP��# 127# dcl
- endsubroutine" 13! 0� 1 define_keywords_nP��# 129# dcl* f$faof$pid! 5! 1� 1 define_keywords_nP��# 130# dclV f$csidf$cvsif$cvuif$editf$filef$modef$timef$typef$user! 6! 1� 1 define_keywords_nP��# 131# dcl' f$parse! 7! 1� 1 define_keywords_nP
��# 132# dcl� f$cvtimef$devicef$getdvif$getenvf$getjpif$getquif$getsyif$lengthf$locatef$searchf$setprvf$stringf$trnlnmf$verify! 8! 1� 1 define_keywords_nP��# 133# dclV f$contextf$elementf$extractf$integerf$messagef$process! 9! 1� 1 define_keywords
_nP��# 134# dcl6 f$directoryf$privilege" 11! 1� 1 define_keywords_nP��# 135# dcl, f$identifier" 12! 1� 1 define_keywords_nP��# 136# dcl- f$environment" 13! 1� 1 define_keywords_nP��# 137# dcl1 f$file_attributes" 17! 1� 1 define_keywords_nP
��# 139# DCL� ( keymap_p.��# 141# DCL� + make_keymap��# 142+ dcl_newline" ^M# DCL� ) definekey��# 1432 newline_and_indent# ^M# DCL� ) definekey��# 144* dcl_indent" ^I# DCL� ) definekey��# 145/ self_insert_cmd! "# DCL� ) definekey��# 146/ s
elf_insert_cmd! '# DCL� ) definekey/b,��# 151# dcl# 129� 0 set_syntax_flags��# 152# dcl� 0 use_syntax_table��# 153! 1� . use_dfa_syntax��# 155# DCL� * use_keymap��# 156# dcl! 4� ( set_mode��# 157- dcl_mode_hook� . run_mode_hooks�# 149y( dcl_mod
e