SUB hp3457cmon (c%)

'****************************************************************************
'This routine displays the voltage applied to a specified channel of the
'HP3457 DVM on the front panel.  Voltages can be monitored while the
'program is running.
'
'
'Zachary Wolf
'5/23/94
'****************************************************************************

END SUB

SUB hp3457cv (c%, v!)

'****************************************************************************
'This is a dummy routine for testing.
'
'Input: c%, the DVM channel to read
'
'Output: v!, the measured voltage
'
'Zachary Wolf
'5/21/94
'****************************************************************************

'Return the DAC voltage
'CALL dac488savev(0, v!)
v! = 1!

END SUB

SUB hp3457init (gpibin%, gpibout%, hp3457addr$)

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

'Message
PRINT
PRINT "Resetting the HP3457 routine"

END SUB