'REPRINT:  Program to re-print magnetic measurement data files.

DIM file$(1 TO 4)


'Read in the type of measurement data to be reprinted:
CLS
PRINT
PRINT "REPRINT: Program which prints out magnetic measurement data."
PRINT
PRINT "Enter type of measurement data to be reprinted:"
PRINT
PRINT "     1) RT    Resistance and Temperature."
PRINT "     2) BL    Hysteresis Loop Measurement."
PRINT "     3) HAR   Field Uniformity Measurement."
PRINT
PRINT "Input selection: ";
INPUT sel$
PRINT
PRINT
PRINT "Input magnet names and run numbers to be printed:"
PRINT "Input magnet on test stand D1: ";
INPUT mag1$
PRINT "Input magnet on test stand D2: ";
INPUT mag2$
PRINT "Input run number Run # :";
INPUT run$

ru$ = "ru"
IF VAL(run$) > 9 THEN ru$ = "r"

nf1% = 2
nfm% = 3
nf2% = 4
IF sel$ = "1" THEN
   nf1% = 1
   nfm% = 2
   nf2% = 2
   SHELL "cd c:\datac\herdrt"
   file$(1) = "c:\magdata\" + mag1$ + "\rtlog." + ru$ + run$
   file$(2) = "c:\magdata\" + mag2$ + "\rtlog." + ru$ + run$
END IF
IF sel$ = "2" THEN
   SHELL "cd c:\datac\herdcoil\herdbl"
   file$(1) = "c:\magdata\" + mag1$ + "\bldat." + ru$ + run$
   file$(2) = "c:\magdata\" + mag1$ + "\bllog." + ru$ + run$
   file$(3) = "c:\magdata\" + mag2$ + "\bldat." + ru$ + run$
   file$(4) = "c:\magdata\" + mag2$ + "\bllog." + ru$ + run$
END IF
IF sel$ = "3" THEN
   SHELL "cd c:\datac\herdcoil\herdhar"
   file$(1) = "c:\magdata\" + mag1$ + "\hardat." + ru$ + run$
   file$(2) = "c:\magdata\" + mag1$ + "\harlog." + ru$ + run$
   file$(3) = "c:\magdata\" + mag2$ + "\hardat." + ru$ + run$
   file$(4) = "c:\magdata\" + mag2$ + "\harlog." + ru$ + run$
END IF

'Open file to which the data is to be printed.
fileout% = FREEFILE
outfile$ = "prnt.dat"
OPEN outfile$ FOR OUTPUT AS fileout%

FOR nf = 1 TO nf1%
    filein% = FREEFILE
    OPEN file$(nf) FOR INPUT AS filein%
    DO WHILE NOT EOF(filein%)
        LINE INPUT #filein%, rec$
        PRINT #fileout%, USING "     &"; rec$
    LOOP
    CLOSE filein%
    PRINT #fileout%, CHR$(12)
NEXT

filein% = FREEFILE
OPEN "src\param.inc" FOR INPUT AS filein%
DO WHILE NOT EOF(filein%)
    LINE INPUT #filein%, rec$
    PRINT #fileout%, USING "     &"; rec$
LOOP
PRINT #fileout%, CHR$(12)

FOR nf = nfm% TO nf2%
    filein% = FREEFILE
    OPEN file$(nf) FOR INPUT AS filein%
    DO WHILE NOT EOF(filein%)
        LINE INPUT #filein%, rec$
        PRINT #fileout%, USING "     &"; rec$
    LOOP
    CLOSE filein%
    PRINT #fileout%, CHR$(12)
NEXT

filein% = FREEFILE
OPEN "src\param.inc" FOR INPUT AS filein%
DO WHILE NOT EOF(filein%)
    LINE INPUT #filein%, rec$
    PRINT #fileout%, USING "     &"; rec$
LOOP

CLOSE fileout%

CLS
PRINT
IF sel$ = "1" THEN PRINT "The RESISTANCE and TEMPERATURE program (RT) is complete."
IF sel$ = "2" THEN PRINT "The Hysteresis Loop program (BL) is complete."
IF sel$ = "3" THEN PRINT "The Field Uniformity program (HAR) is complete."
PRINT
PRINT "The following files are presently being printed:"
PRINT
FOR i% = 1 TO nf1%
  PRINT file$(i%)
NEXT
PRINT "src\param.inc"
PRINT
FOR i% = nfm% TO nf2%
  PRINT file$(i%)
NEXT
PRINT "src\param.inc"
PRINT

SHELL "print prnt.dat"
SHELL "cd \"

END