.#*�! 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