DECLARE SUB dac488hrerr ()
DECLARE SUB imagramp (rr!, ifin!)
DECLARE SUB gpibinit ()
DECLARE SUB hp3457init ()
DECLARE SUB dac488hrid ()
DECLARE SUB dac488hrqsetv ()


'****************************************************************************
'Program RAMP
'This program ramps the power supply to a desired current.
'
'Zachary Wolf
'9/20/94
'****************************************************************************

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

'Initialize the GPIB
CALL gpibinit

'Initialize the DAC
CALL dac488hrid
CALL dac488hrqsetv

'Initialize the HP3457
CALL hp3457init

'Get the desired current
getifin:
PRINT
INPUT "What current do you wish to ramp to? (0<I<1000 A) ", ifin!
IF ifin! < 0 OR ifin! > 1000 THEN
 PRINT : PRINT "The current must be between 0<I<1000 A."
 GOTO getifin:
END IF

'Message
PRINT
PRINT "Ramping to "; ifin!; " Amps..."

'Ramp to the desired current
CALL imagramp(imagramprateP!, ifin!)

'Message
PRINT
PRINT "The ramp is complete."

END