'Open the parameter file
REM $INCLUDE: 'param.inc'

SUB gpibinit

'****************************************************************************
'This is a dummy routine used for testing.
'****************************************************************************

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

END SUB