.#*ü! 9 , tpas_objname+2 *UnDef ObjectName*°, tpas_objname*ü" 10 + tpas_indent+! 2°+ tpas_indent*ü" 11 - tpas_tab_save+! 0°- tpas_tab_save,ü" 14! 0wü" 13y/ tpas_is_comment,*ü" 17 * tellstring+*ü" 18 % gname+ý * tellstring + Null_String + Null_String
þ ) read_mini°% gnameü" 19 % gnamewü" 17y, tpas_getname,*ü" 24 # pos # str+ýü" 27 # strþ & insertýü" 28$" \nþ & insertü" 29 # pos! 0?.ü" 30 # pos. 3 insert_single_space/i/cü" 24y( ins_snlp,ü" 33 + what_column! 1:wy( tpas_pos,*ü" 35 ! p $ name+ýü" 36
 ! p# (* þ ( ins_snlpýü" 37 ! p#  * þ ( ins_snlpýü" 38 ! p#  *)þ ( ins_snlpýü" 39 ! p% BEGINþ ( ins_snlpýü" 40( END; (* þ & insertýü" 41 $ nameþ & insertýü" 42 ! p#  *)þ ( ins_snlpü" 35y* tpas_paspf,ü" 46R -----------------------------------------
---------wü" 45y1 tpas_delim_string,*ü" 50 ! s+ 1 tpas_delim_string°! sýü" 51$' (* %s\n ! sþ ' vinsertýü" 52$G  * Author : Carsten Tinggaard Nielsen\nþ & insertýü" 53$.  * Project: \nþ & insertýü" 54$3  * Module : \n * \nþ & insertýü" 55$6  * $Revision$ 
$Date$\nþ & insertýü" 56$6  * $Locker$ $Source$\nþ & insertýü" 57$*  * %s *)\n ! sþ ' vinsertýü" 58$/ (*$I-,V-,B+*)\nþ & insertü" 49y4 tpas_prog_unit_start,ýü" 62$6 \n  USES\n    DOS;\n\nþ & insertýü" 63$' BEGIN\nþ & insertýü" 64$& END.\nþ & insertýü" 65
$I (* History:\n * --------\n * $Log$\n *)\nþ & insertü" 61y2 tpas_prog_unit_end,*ü" 69 ( progname+ý0 Name of program:þ , tpas_getname°( prognameü" 70 # bobýü" 71$- PROGRAM %s;\n ( prognameþ ' vinsertü" 72 4 tpas_prog_unit_startýü" 73$? (*$M 16000, 1280
00, 512000 *)\nþ & insertü" 74 2 tpas_prog_unit_endü" 75 # bobü" 68y) tpas_main,*ü" 79 ( unitname+ý- Name of unit:þ , tpas_getname°( unitnameü" 80 # bobýü" 81$* UNIT %s;\n ( unitnameþ ' vinsertýü" 82$A INTERFACE\n\n  USES\n    DOS;\n\nþ & insertýü" 83$0
 IMPLEMENTATION\nþ & insertü" 84 4 tpas_prog_unit_startü" 85 2 tpas_prog_unit_endü" 86 # bobü" 78y) tpas_unit,*ü" 90 ! p+ ( tpas_pos°! p*ü" 91 $ name+ý* Procedure:þ , tpas_getname°$ nameýü" 92 ! pý/ PROCEDURE %s(); $ nameþ ' sprintfþ ( ins_snlpýü" 93 !
 p $ nameþ * tpas_paspfýü" 94" );þ ' bsearchü" 89y) tpas_proc,*ü" 98 ! p+ ( tpas_pos°! p*ü" 99 $ name+ý) Function:þ , tpas_getname°$ nameýü# 100 ! pý1 FUNCTION %s() : ; $ nameþ ' sprintfþ ( ins_snlpýü# 101 ! p $ nameþ * tpas_paspfýü# 102# ) :þ ' bsea
rchü" 97y) tpas_func,*ü# 106 ! p+ü# 107 ) push_spotü# 108 ' go_up_1 . bol_skip_whiteü# 109 * _get_point°! pýü# 110% BEGINþ * looking_at.ü# 111 ) go_down_1 * skip_whiteü# 112 + what_column°! pü# 113 ( bol_trimýü# 114 ! p + tpas_indent9þ * whitespace/cü# 
116 ( pop_spotü# 105y. tpas_wrap_hookýü# 123$ TPasþ ( keymap_p.ýü# 124$ TPasþ + make_keymapýü# 126) tpas_main! m$ TPasþ 2 definekey_reservedýü# 127) tpas_unit! u$ TPasþ 2 definekey_reservedýü# 128) tpas_proc! p$ TPasþ 2 definekey_reservedýü# 12
9) tpas_func! f$ TPasþ 2 definekey_reservedýü# 130/ self_insert_cmd! 	$ TPasþ ) definekey/býü# 133$ TPasþ 3 create_syntax_tableýü# 134" (*" *)" 37$ TPasþ - define_syntaxýü# 135" ([" )]" 40$ TPasþ - define_syntaxýü# 136" 39" 39$ TPasþ - d
efine_syntaxýü# 137* 0-9a-zA-Z_# 119$ TPasþ - define_syntaxýü# 138, -+0-9a-FA-F." 48$ TPasþ - define_syntaxýü# 139% ,;.?:" 44$ TPasþ - define_syntaxýü# 140/ @$()[]%-+/*=<>^" 43$ TPasþ - define_syntaxýü# 141$ TPas! 5þ 0 set_syntax_flags,*ü# 1
45 $ name+ýü# 147+ tpascal.dfa $ nameþ : dfa_enable_highlight_cacheýü# 148$. \\(\\*.*\\*\\)( Qcomment $ nameþ 9 dfa_define_highlight_ruleýü# 149$: ^([^\\(]|\\([^\\*])*\\*\\)( Qcomment $ nameþ 9 dfa_define_highlight_ruleýü# 150$( \\(\\*.*' comment $ n
ameþ 9 dfa_define_highlight_ruleýü# 151$ {.*}( Qcomment $ nameþ 9 dfa_define_highlight_ruleýü# 152' ^[^{]*}( Qcomment $ nameþ 9 dfa_define_highlight_ruleýü# 153# {.*' comment $ nameþ 9 dfa_define_highlight_ruleýü# 154$4 ^[ 	]*\\*+([ 	].*)?$' commen
t $ nameþ 9 dfa_define_highlight_ruleýü# 1556 [A-Za-z_][A-Za-z_0-9]*' Knormal $ nameþ 9 dfa_define_highlight_ruleýü# 156$H [0-9]+(\\.[0-9]+)?([Ee][\\+\\-]?[0-9]*)?ü# 157& number $ nameþü# 156 9 dfa_define_highlight_ruleýü# 158$/ \\$[0-9A-Fa-f]*& numbe
r $ nameþ 9 dfa_define_highlight_ruleýü# 159' '[^']*'& string $ nameþ 9 dfa_define_highlight_ruleýü# 160' '[^']*$& string $ nameþ 9 dfa_define_highlight_ruleýü# 1617 #($[0-9A-Fa-f]+|[0-9]+)& string $ nameþ 9 dfa_define_highlight_ruleýü# 162% [ 	]+
& normal $ nameþ 9 dfa_define_highlight_ruleýü# 163$7 [\\(\\[\\]\\),;\\.\\?:]) delimiter $ nameþ 9 dfa_define_highlight_ruleýü# 164$3 [@\\-\\+/\\*=<>\\^]( operator $ nameþ 9 dfa_define_highlight_ruleýü# 165 $ nameþ 9 dfa_build_highlight_tableü# 145…2 se
tup_dfa_callbackýü# 167}2 setup_dfa_callback$ TPasþ 5 dfa_set_init_callbackýü# 171$ TPas( doifofto! 2þ / define_keywordsPýü# 172$ TPas2 endfornewnilsetvar! 3þ / define_keywordsPýü# 173$ TPas\ bytecasecharelseexitfilehaltrealtextthentypeunituseswi
thword! 4þ / define_keywordsPýü# 174$ TPas9 arraybeginconstuntilwhile! 5þ / define_keywordsPýü# 175$ TPasD downtoinlineobjectrecordrepeatstring! 6þ / define_keywordsPýü# 176$ TPasC booleanintegerlongintpointerprogram! 7þ / define_keywordsPýü# 17
7$ TPas0 functionshortint! 8þ / define_keywordsPýü# 178$ TPas; interfaceotherwiseprocedure! 9þ / define_keywordsPýü# 179$ TPas. implementation" 14þ / define_keywordsP,*ü# 182 ! p+ü# 183 ) push_spotü# 184 ( pop_spotü# 181y1 tpas_par_sep_hook,ýü#
 191$ TPas! 2þ ( set_modeýü# 192$ TPasþ * use_keymapýü# 193$ TPasþ 0 use_syntax_tableýü# 194) wrap_hook. tpas_wrap_hookþ / set_buffer_hookýü# 195' par_sep1 tpas_par_sep_hookþ / set_buffer_hookýü# 197. tpas_mode_hookþ . run_mode_hooksü# 190y) tpas
_mode