'  hpibstat.bas
Sub main ()
   Dim id As Integer        ' session id
   Dim remen As Integer     ' remote enable
   Dim srq As Integer       ' service request
   Dim ndac As Integer      ' not data accepted
   Dim sysctlr As Integer   ' system controller
   Dim actctlr As Integer   ' active controller
   Dim talker As Integer    ' talker
   Dim listener As Integer  ' listener
   Dim addr As Integer      ' bus address
   Dim header As String     ' report header
   Dim values As String     ' report output

   ' Open HP-IB interface session
   id = iopen("hpib7")
   Call itimeout(id, 10000)

   ' Retrieve HP-IB bus status
   Call igpibbusstatus(id, I_GPIB_BUS_REM, remen)
   Call igpibbusstatus(id, I_GPIB_BUS_SRQ, srq)
   Call igpibbusstatus(id, I_GPIB_BUS_NDAC, ndac)
   Call igpibbusstatus(id, I_GPIB_BUS_SYSCTLR, sysctlr)
   Call igpibbusstatus(id, I_GPIB_BUS_ACTCTLR, actctlr)
   Call igpibbusstatus(id, I_GPIB_BUS_TALKER, talker)
   Call igpibbusstatus(id, I_GPIB_BUS_LISTENER, listener)
   Call igpibbusstatus(id, I_GPIB_BUS_ADDR, addr)

   ' Display form1 and print results
   form1.Show
   form1.Print "REM"; Tab(7); "SRQ"; Tab(14); "NDC"; Tab(21); "SYS"; Tab(28); "ACT"; Tab(35); "TLK"; Tab(42); "LTN"; Tab(49); "ADDR"
   form1.Print remen; Tab(7); srq; Tab(14); ndac; Tab(21); sysctlr; Tab(28); actctlr; Tab(35); talker; Tab(42); listener; Tab(49); addr

   ' Tell SICL to cleanup for this task
   Call siclcleanup


End Sub