' MacroName: CtrlEnd
' MacroDescription: Go to end of current page in OCLC
' Slightly altered version of a macro created 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

 LastRow% = CS.GetLastRowUsed
 CS.GetTextInRegion Temp$,LastRow,1,LastRow,LastCol
 endcol=Rtrim(len(Temp$))+1
 If endcol>80 then endcol=80
 CS.PutText chr$(0),LastRow,endcol
end sub