' MacroName: WordForward
' MacroDescription: Move the cursor to the beginning of the 
'                   next word in a line
' 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.GetChar InData, Attrib%, CurRow, CurCol+i
    i=i+1
  Loop
  If i>1 Then
    For j=1 to i
      CS.Send chr(27)+"[C"
    Next j
  a$=CStr(i-1)
  End If
end sub