'LPRNT:  Program to right shift data and information located in a file
'        by 5 spaces and then print the results to the printer.

DIM file$(1 TO 4)

CLS
PRINT
PRINT "The Hysteresis Loop measurement program (BL) is complete."
PRINT
PRINT "The following files are presently being printed:"

'Read list of files for which data is to be printed.
filelist% = FREEFILE
inlist$ = "fileprnt.dat"

OPEN inlist$ FOR INPUT AS filelist%
FOR nf = 1 TO 4
   LINE INPUT #filelist%, file$(nf)
NEXT
CLOSE filelist%

'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 2
    IF nf = 2 THEN PRINT #fileout%, CHR$(12);
    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%
NEXT

PRINT #fileout%, CHR$(12);
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
PRINT file$(1)
PRINT file$(2)
PRINT "src\param.inc"



type$ = MID$(file$(1), 16, 3)
IF type$ <> "gap" THEN

FOR nf = 3 TO 4
    PRINT #fileout%, CHR$(12);
    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%
NEXT

PRINT #fileout%, CHR$(12);
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
PRINT file$(3)
PRINT file$(4)
PRINT "src\param.inc"
PRINT

END IF

CLOSE fileout%

PRINT
PRINT "Please wait 60 seconds while the data is being transfered."
start! = TIMER
SHELL "print prnt.dat"
DO WHILE deltaT < 60
   tm! = TIMER
   deltaT = tm! - start!
LOOP
PRINT
PRINT "The data transfer is complete. You may now view the plots."


END