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

SUB gettestparam (magnameP$, barcodeP$, projectP$, teststandP$, coilnameP$, operatorP$, runP$, commentP$)

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

begin:
'Get the project name
PRINT
PRINT "What is the name of the project the magnet is for? "
PRINT "(8 characters or less): ["; projectP$; "]";
INPUT project$
project$ = UCASE$(project$)
IF project$ <> "" THEN projectP$ = project$


'Get the name of the magnet
PRINT "What is the name (serial #) of the magnet?"
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 the name of the test stand
PRINT "Enter which test stand is being used: ["; teststandP$; "] ";
INPUT "", teststand$
teststand$ = UCASE$(teststand$)
IF teststand$ <> "" THEN teststandP$ = teststand$

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

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

'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