DECLARE SUB gpibinit ()
DECLARE SUB k7011closecc (card%, chan%)
DECLARE SUB k7011init ()
DECLARE SUB k7011openall ()
DECLARE SUB hp3457init ()
DECLARE SUB hp3457readtc (tc!)
DECLARE SUB hp3457setuptc (c%)

'****************************************************************************
'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 HP3457
CALL hp3457init

'Initialize the K7011 multiplexer
CALL k7011init

'Set up the HP3457 for temperature measurements
CALL hp3457setuptc(mxhpchanP%)

'Get a channel from the operator
ch:
PRINT
PRINT "What channel do you want the temperature from?"
INPUT "(1 to 40, 0 = end): ", chan%
IF chan% = 0 THEN GOTO done:

'Measure the temperature
'Close the multiplexer channel
CALL k7011closecc(mxcardP%, chan%)

'Measure the temperature of the thermistor in degrees C
CALL hp3457readtc(tc!)

'Open all multiplexer channels
CALL k7011openall

'Print the result
PRINT : PRINT "The temperature is "; tc!; " deg C"

'Get the next channel
GOTO ch:

done:
END