' MacroName: WordBack
' MacroDescription: Move the cursor to the beginning of the 
'                   current word
' 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=1
  Do Until (InData=" ") or (CurCol-i=1)
    'InData=Session.ScreenText(CurRow, CurCol-i, 1, 2)
    CS.GetChar InData, Attrib%, CurRow, CurCol-i
    CS.GetChar CheckChar, Attrib%, CurRow, CurCol-(i+1)
    If (i=1 and InData=" " And CheckChar<>" ") Then InData=""
    'MsgBox "/" & InData & "/"
    i=i+1
  Loop
  i=i-1
  If i>1 Then
    For j=1 to (i-1)
      CS.Send chr(27)+"[D"
    Next j
  End If
End Sub