'****************************************************************************
'Module GETPARAM
'This module contains subroutines to get parameters for the test.
'
'Zachary Wolf
'5/8/95
'****************************************************************************

'Open the parameter file
REM $INCLUDE: 'param.inc'

'The required parameters are
'magnameP$
'barcodeP$
'projectP$
'teststandP$
'coilnameP$
'operatorP$
'runP$
'commentP$
'
'The required parameters are in
'GETPARAM
'
'Sample GETPARAM parameters
'GETPARAM
'COMMON SHARED /getparam/ magnameP$, barcodeP$, projectP$, teststandP$, coilnameP$, operatorP$, runP$, commentP$

SUB gettestparam

'****************************************************************************
'This subroutine prompts the operator for the magnet name and other
'parameters of the test.
'
'Outputs put in the /testparam/ common block:
' magnameP$, name of magnet (serial #)
' barcodeP$, barcode number on the magnet
' operatorP$, name of the operator doing the test
' teststandP$, the teststand being used
' coilnameP$, the ID of the measurement coil
' runP$, run number
' commentP$, comment about the test
'
'Zachary Wolf
'7/8/94, 5/8/95
'****************************************************************************

begin:
'Get the name of the magnet
PRINT
PRINT "What is the name (serial #) of the magnet being tested?"
PRINT "(8 characters or less): ["; magnameP$; "]";
INPUT magname$
magname$ = UCASE$(magname$)
IF magname$ <> "" THEN magnameP$ = magname$

'Get the bar code number
PRINT "What is the bar code number of the magnet ["; barcodeP$; "]";
INPUT barcode$
barcode$ = UCASE$(barcode$)
IF barcode$ <> "" THEN barcodeP$ = barcode$

'Get positioning bar used to set magnet
PRINT "What positioning bar was used (N or W): ["; posbarP$; "]";
INPUT posbar$
posbar$ = UCASE$(posbar$)
IF posbar$ <> "" THEN posbarP$ = posbar$

'Get the operator's name(s)
PRINT "Enter the operator(s) name(s): ["; operatorP$; "]";
INPUT operator$
IF operator$ <> "" THEN operatorP$ = operator$

'Get the name of the test stand
'stand:
'PRINT "Enter which test stand is being used (Q1, Q2): ["; teststandP$; "]";
'INPUT teststand$
'teststand$ = UCASE$(teststand$)
'IF teststand$ <> "" THEN teststandP$ = teststand$
'IF teststandP$ <> "Q1" AND teststandP$ <> "Q2" THEN GOTO stand

'Get the name of the measurement coil
'meascoil:
'PRINT "Enter the name of the measurement coil (QC1, or QC2): ["; coilnameP$; "]";
'INPUT coil$
'coil$ = UCASE$(coil$)
'IF coil$ <> "" THEN coilnameP$ = coil$
'IF coilnameP$ <> "QC1" AND coilnameP$ <> "QC2" THEN GOTO meascoil

'Get the run number
PRINT "What is the run number (1, 2, 3, ...): ["; runP$; "]";
INPUT run$
IF run$ <> "" THEN runP$ = run$

'Get a comment
PRINT "Enter any comment about the run: ["; commentP$; "]";
LINE INPUT comment$
IF comment$ <> "" THEN commentP$ = comment$

'See if everything was entered correctly
PRINT
INPUT "Do you wish to make any changes to the values entered (Y or N): ", yn$
IF yn$ = "Y" OR yn$ = "y" THEN GOTO begin

END SUB