DECLARE SUB dac488hrsetupv ()
DECLARE SUB gpibinit ()
DECLARE SUB dac488hrinit ()

'****************************************************************************
'Program RAMP
'This program initializes the DAC488HR.
'
'Zachary Wolf
'9/21/94
'****************************************************************************

'Include the constants used in the program
REM $INCLUDE: 'param.inc'

'Initialize the GPIB
CALL gpibinit

'Initialize the DAC
CALL dac488hrinit
CALL dac488hrsetupv

END