' MacroName: GotoEndOfLine
' MacroDescription: Move cursor to the end of any text in the 
'                   current 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=0
  Do Until (InData="  " or CurCol+i=79)
    CS.GetTextInRegion InData, CurRow, CurCol+i, CurRow, CurCol+i+1
    i=i+1
  Loop
  If i>1 Then
    For j=1 to (i-1)
      CS.Send chr(27)+"[C"
    Next j
  a$=CStr(i-1)
  End If
end sub