DECLARE SUB dac488doutoff (d%)
DECLARE SUB dac488douton (d%)
DECLARE SUB dac488init ()
DECLARE SUB pt2025search ()
DECLARE SUB pt2025getcoarse (dac%)
DECLARE SUB pt2025setcoarse (b!)
DECLARE SUB gp3setrange (r%)
DECLARE SUB gp3getb (b!)
DECLARE SUB gp3init ()
DECLARE SUB pt2025getb (b!)
DECLARE SUB gpibinit ()
DECLARE SUB pt2025init ()

'****************************************************************************
'Program TEST
'
'Zachary Wolf
'6/5/94
'****************************************************************************

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

'Prepare the screen
CLS

'Initialize the GPIB
CALL gpibinit

'Initialize the DAC488
'CALL dac488init
'SLEEP 5
'CALL dac488douton(2)
'CALL dac488doutoff(2)
'SLEEP 50
'CALL dac488douton(2)
'CALL dac488doutoff(2)
'END

'Initialize the Group 3 teslameter
CALL gp3init
CALL gp3setrange(2)

'Initialize the PT2025 NMR teslameter
CALL pt2025init
CALL pt2025search

'Take a reading
cmnd:
PRINT
INPUT "Press ENTER to take a reading, 0 to quit: ", a$
IF a$ = "0" THEN GOTO done:

'Take a Hall probe reading
CALL gp3getb(bhall!)

'Take an NMR reading
CALL pt2025getb(bnmr!)

'Print the result
PRINT
PRINT "Bhall = "; bhall!; " T."
PRINT "Bnmr = "; bnmr!; " T."

'Get the next command
GOTO cmnd:

done:
END