SUB gpibclrdev (addr$)

END SUB

SUB gpibin (addr$, st$)

END SUB

SUB gpibinit (gpibind%, gpiboutd%)

'****************************************************************************
'This is a dummy routine for testing.
'
'Zack Wolf
'5/21/94
'****************************************************************************

'Display a message
PRINT
PRINT "Resetting the GPIB routine..."

END SUB

SUB gpibout (addr$, cmd$)

END SUB

SUB gpibterm (termin$, termout$)

END SUB