DECLARE SUB coilprintvn ()
DECLARE SUB coilplotf ()
DECLARE SUB gpibinit ()
DECLARE SUB hp3457init ()
DECLARE SUB dac488hrinit ()
DECLARE SUB dac488hrsetupv ()
DECLARE SUB k7011init ()
DECLARE SUB coilplotv ()
DECLARE SUB gettestparam ()

'****************************************************************************
'Program TEST
'This program is used to make the rotating coil measurements.
'It samples the voltage from the rotating
'coil and Fourier analyzes the samples to get the strengths of
'each component of the field.
'
'Zachary Wolf
'1/5/95
'****************************************************************************

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

'Prepare the screen
CLS

'Initialize the GPIB
CALL gpibinit

'Initialize the HP3457
CALL hp3457init

'Initialize the DAC
CALL dac488hrinit
CALL dac488hrsetupv

'Initialize the multiplexer
CALL k7011init

'Test the reset signal
'CALL dac488hrdo1(1)
'SLEEP 1
'CALL dac488hrdo0(1)
'STOP

'Test the trigger
'DIM v!(0 TO 2000)
'CALL hp3457cnvtrig(1, 2001, v!())

'Plot the coil voltage
CALL coilplotv
'STOP

'Plot the coil frequency
CALL coilplotf
'STOP

'Print the voltage harmonics
CALL coilprintvn
STOP

'Get test parameters from the operator
testparam:
CALL gettestparam

'Initialize the files for this run
'CALL fileinit(ok$)
IF ok$ <> "y" THEN
 PRINT
 PRINT "Problem initializing the data files."
 PRINT "Make sure you are using a new run number."
 GOTO testparam:
END IF

'Standardize the magnet
'CALL imagstandardize

'Ramp to 200 A
'PRINT
'PRINT "Ramping to 200 A..."
'CALL imagramp(200!)

'Ramp to 0 A
'CALL imagramp(0!)

'Message
PRINT "The test is complete."

END