DECLARE SUB gpibinit ()
DECLARE SUB dac488init ()
DECLARE SUB dac488setupv ()

'****************************************************************************
'Program RAMP
'This program initializes the dac488.
'
'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 dac488init
CALL dac488setupv

END