// ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// ³                        ³                          ³                    ³
// ³  AUTOTAB.VDM           ³           (C)  08/03/94  ³  Christian Ziemski ³
// ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³  last change:  07/20/95  ³  Rostesiepen 164   ³
// ³  Auto tabulator like   ³                          ³  58313 Herdecke    ³
// ³  in the Borland IDE.   ³      Version:  1.0       ³   - Germany -      ³
// ³                        ³   VEDIT-PLUS:  4.15      ³                    ³
// ³                        ³                          ³                    ³
// ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
// ³  Description:                                                          ³
// ³  ------------                                                          ³
// ³                                                                        ³
// ³  Moves the cursor to that column determined by the Next_Word() in the  ³
// ³  line above the actual line ("variable table").                        ³
// ³                                                                        ³
// ³  Suggestion: Assign to a key (e.g. Ctrl-Tab) !                         ³
// ³                                                                        ³
// ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
// ³  Register usage:                                                       ³
// ³  ---------------                                                       ³
// ³  #1  cursor line                                                       ³
// ³  #2  cursor column position                                            ³
// ³                                                                        ³
// ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

if (Cur_Line>1)                    // only if not in the 1. line
{
  Num_Push(1,2)
  Save_Pos()                       // remember the position
  Do_Visual("\CU\")                // Cursor Up
  #1=Cur_Line                      // remember line
  Do_Visual("\NW\")                // Next Word
  if (Cur_Line==#1)                // found Next_Word in same line
  {
    #2=Cur_Col                     // remember column position
    Restore_Pos()                  // back to original Position
    Ins_Char(32,COUNT,#2-Cur_Col)  // insert the necessary spaces
  }
  else                             // not found Next_Word in same line
  {
    Restore_Pos()                  // back to original Position
  }
  Num_Pop(1,2)
}