' MacroName: BatchSelect
' MacroDescription: Select a range of records
' Written by: Joel Hahn, Niles Public Library District

sub main

Dim CCS As Session
Set CCS=CurrentSession

x=InputBox("How many to select (or unselect)?")
If x="" Then Goto Done
HowMany%=Val(x)
If HowMany MOD 2=0 Then
  GoFwd%=HowMany%/2
  c=0
  Do
    CCS.Send Chr(13)+Chr(27)+"[B"+Chr(13)+Chr(1)+"E"
    CCS.Receive 2, "[?25h"
    c=c+1
  Loop Until c>=GoFwd%
Else
  GoFwd%=(HowMany%+1)/2
  c=1
  Do
    CCS.Send Chr(13)+Chr(27)+"[B"+Chr(13)+Chr(1)+"E"
    CCS.Receive 2, "[?25h"
    c=c+1
  Loop Until c>=GoFwd%
  CCS.Send Chr(13)
  CCS.Receive 2, "[?25h"
End If

MsgBox "Done!"

Done:
end sub