SUB mc4err

'Dummy routine

END SUB

SUB mc4init (gpibin%, gpibout%, mc4addr$)

'****************************************************************************
'This is a dummy routine for testing.
'
'Zack Wolf
'11/23/94
'****************************************************************************

'Display a message
PRINT
PRINT "Resetting the Klinger MC4 routine"

END SUB

SUB mc4moveabs (x!)

'Dummy routine

END SUB

SUB mc4moverel (dx!)

'Dummy routine

END SUB

SUB mc4movestat (moving$)

'Dummy routine

END SUB

SUB mc4setpar (velcmsP!, acctimeP!, x1P$, x2P$)
END SUB

SUB mc4setup

'Dummy routine

END SUB

SUB mc4zero

'Dummy routine

END SUB