'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$ = "fileprnt.dat"

OPEN inlist$ FOR INPUT AS filelist%
FOR nf = 1 TO 2
   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%

   'Output the first file to fileout.....
   filein% = FREEFILE
   OPEN file$(1) FOR INPUT AS filein%
   DO WHILE NOT EOF(filein%)
      LINE INPUT #filein%, rec$
      PRINT #fileout%, USING "     &"; rec$
   LOOP
   CLOSE filein%
   PRINT #fileout%, CHR$(12)

   'Output the second file to fileout.....
   filein% = FREEFILE
   OPEN file$(2) FOR INPUT AS filein%
   DO WHILE NOT EOF(filein%)
      LINE INPUT #filein%, rec$
      PRINT #fileout%, USING "     &"; rec$
   LOOP
   CLOSE filein%
   PRINT #fileout%, CHR$(12)
   
   'Output the param.inc file to fileout.....
   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)
   CLOSE filein%
   
CLOSE fileout%

CLS
PRINT
PRINT "The Injection Line Quadrupole measurement program (QUAD) is complete."
PRINT
PRINT "The following files are presently being printed:"
PRINT
PRINT file$(1)
PRINT file$(2)
PRINT "..\src\param.inc"

SHELL "print prnt.dat"

PRINT
PRINT "Please wait 120 seconds while the data is being transfered....."
start! = TIMER
WHILE TIMER - start! < 120
WEND
PRINT
PRINT "You may now plot out the results. Double click on the icon"
PRINT "  GLPLT & HARPLT in the program group INJQUAD PLOTS."

END