'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)

'Read list of files for which data is to be printed.
filelist% = FREEFILE
inlist$ = "c:\datac\skewquad\run\fileprnt.dat"

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


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

FOR nf = 1 TO 3
    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 "c:\datac\skewquad\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)
CLOSE fileout%

CLS
PRINT
PRINT "The sextupole measurement program (SEXT) is complete."
PRINT
PRINT "The following files are presently being printed:"
PRINT
PRINT file$(1)
PRINT file$(2)
PRINT file$(3)
PRINT "src\pgm\param.inc"
PRINT

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

END