.#! 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# 1002 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