SUB gpibinit (gpibin%, gpibout%)

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

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

END SUB