// // ADDTAB.VDM Christian Ziemski // 27.07.2005 // Adds a tab stop at current cursor column // #103=Buf_Num #104=Cur_Col Buf_Switch(Buf_Free(EXTRA)) Out_Ins() Config_Tab() Out_Ins(CLEAR) Begin_Of_File while (! At_EoL) { #105=Num_Eval(SUPPRESS) if (#105 >= #104) { break } Char(Chars_Matched) } Ins_Text(" ") Num_Ins(#104, LEFT+NOCR) Reg_Set(103,"Config_Tab(") Reg_Copy_Block(103, 0, EoL_Pos, APPEND) Reg_Set(103,")", APPEND) Buf_Quit(OK) Buf_Switch(#103) Call(103)