' MacroName: End
' MacroDescription: Go to end of a line in OCLC
' Slightly altered version of a macro by Rhoda Bilansky

sub main
 dim CS as Session
 set CS = CurrentSession
 if CS.CommMode = BLOCKMODE then
   LastCol% = CS.BlockColumns
 else
   LastCol% = CS.FDXcolumns
 end if

 CS.GetTextInRegion Temp$,0,1,0,LastCol%
 On Error Goto LongLine
 CS.PutText chr$(0),0,Len(RTrim(Temp$))+1
 Goto Done

LongLine:
 CS.PutText chr$(0),0,Len(RTrim(Temp$))
 Resume Done
  
Done:
end sub