SUB mc4err

'Dummy routine

END SUB

SUB mc4init

'****************************************************************************
'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 mc4move2rel (s1$, s2$, at!, v!, dx!)

'Dummy routine

END SUB

SUB mc4moveabs (s$, at!, v!, x!)

'Dummy routine

END SUB

SUB mc4moveallabs (at!, v!, x!)

'Dummy routine

END SUB

SUB mc4moverel (s$, at!, v!, dx!)

'Dummy routine

END SUB

SUB mc4movestat (moving$)

'Dummy routine

END SUB

SUB mc4setpar (gpibinP%, gpiboutP%, mc4addrP$)
END SUB

SUB mc4setup

'Dummy routine

END SUB

SUB mc4zero

'Dummy routine

END SUB