' MacroName: GoToStartOfLine
' MacroDescription: Move the cursor to the start of a line of 
'                   text in A Libs+ field
' Macro written by: Joel Hahn, Niles Public Library District

Sub main
  Dim CS as Session
  Set CS=CurrentSession
  
  CurRow=CS.CursorRow
  CurCol=CS.CursorColumn
  InData=""
  i=2
  Do Until (InData="  ") or (CurCol-i=1)
    'InData=Session.ScreenText(CurRow, CurCol-i, 1, 2)
    CS.GetTextInRegion InData, CurRow, CurCol-i, CurRow, (CurCol-i)+1
    'MsgBox "/" & InData & "/"
    i=i+1
  Loop
  i=i-1
  If i>2 Then
    For j=1 to (i-2)
      CS.Send chr(27)+"[D"
    Next j
  End If
End Sub