REM        Program tek2wplt
REM
REM     GE Copeland
REM     Sept 29, 1997
REM     Old Dominion University
REM     Dept of Physics
REM
REM    Nov2, 1997 Fortran 90   for Unix Dec Alpha
REM   Converted to  QuickBasic Jan 1999 for Windows operation
REM   A program that will convert a data file written for
REM   the a Tektronix PLOT10 program - namey 13way - into
REM   a command and data file for use by a WINDOWS
REM   plotting program WPLOT.
REM updated 2/2001 gec
REM  The user executes a QuickBasic program that opens the plotting
REM data file PLTTEK DAT, reads it and reformats it so
REM the WPLOT program can use it as a a command file. The output
REM file is named PLOT.PLT and is used as the input file for WPLOT.
'
'
       DIM X(4000), Y(4000)
REM
REM open the data file for input
      PRINT "Input file is plttek.dat"
      OPEN "plttek.dat" FOR INPUT AS #2
    
REM NORMAL WRITING REGION FOR A SIMPLE CURVE
REM
REM   OPEN FOR OUTPUT THE PLOT.PLT FILE
REM
      OPEN "PLOT.PLT" FOR OUTPUT AS #3
   
REM read number of sheets to plot
	INPUT #2, NSHEETS
	PRINT "Number of Sheets =", NSHEETS
       
FOR Isheet = 1 TO NSHEETS
	
REM  READ NUMBER OF GRAPHS ON THIS FIRST SHEET
REM
	INPUT #2, NGRAPH
	INPUT #2, NDATA
REM READ 4 LINES OF TEXT

       LINE INPUT #2, XLABEL$
       LINE INPUT #2, YLABEL$
       LINE INPUT #2, TITLE1$
       LINE INPUT #2, TITLE2$

REM
REM       READ THE DATA PAIRS

       FOR I = 1 TO NDATA
       INPUT #2, X(I), Y(I)
       NEXT I
     
	IF Isheet = 1 THEN PRINT #3, "CLRDATA"
	IF Isheet = 1 THEN PRINT #3, "CLRPLOT"
	IF Isheet = 1 THEN PRINT #3, "CLOSE"
	
REM
	 PRINT #3, "TITLESIZE 2"
	 PRINT #3, "TITLE ", TITLE1$
	 PRINT #3, "TITLE2 ", TITLE2$
	 PRINT #3, "YLABEL ", XLABEL$
	 PRINT #3, "XLABEL ", YLABEL$
	 PRINT #3, "READ ", NDATA

	FOR II = 1 TO NDATA
	PRINT #3, X(II), Y(II)
	NEXT II

	IF NGRAPH = 1 THEN PRINT #3, "PLOT"

	IF NGRAPH = 1 THEN GOTO 822
REM
REM READ SOME MORE DATA AND WRITE OUT - CASE WHEN SEVERAL GRAPHS ON ONE SHEET
REM
REM      ALL DATA HAS SAME NUMBER OF CURVES
	
	FOR IG = 2 TO NGRAPH
	FOR I = 1 TO NDATA
	INPUT #2, X(I), Y(I)
	NEXT I
	PRINT #3, "READ", NDATA
	FOR I = 1 TO NDATA
	PRINT #3, X(I), Y(I)
	NEXT I
		
	NEXT IG
	PRINT #3, "PLOT"

822  NEXT Isheet
	CLOSE #2
	CLOSE #3
	PRINT "Now Run WPLOT in Windows."
	 PLAY "GEC"
	END