SUBROUTINE WDATA 
C
C
C
C	AUTHOR:
C		PAUL D. CLAYTON
C		REPUBLIC MANAGEMENT SYSTEMS INC.
C		ONE NESHAMINY INTERPLEX, SUITE 306
C		TREVOSE, PA. 19044
C
C      *******************************************************
C      *                                                     *
C      *                                                     *
C      *                                                     *
C      *      DIRECT INQUIRIES TO:                           *
C      *                                                     *
C      *            PAUL D. CLAYTON                          *
C      *            REPUBLIC MANAGEMENT SYSTEMS              *
C      *            ONE NESHAMINY INTERPLEX, SUITE 306       *
C      *            TREVOSE, PA. 19044
C      *                                                     *
C      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
C      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
C      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
C      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
C      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
C      *      OWNED RIGHTS.                                  *
C      *                                                     *
C      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
C      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
C      *      THE USE OF THIS SOFTWARE                       *
C      *                                                     *
C      *******************************************************
C      *                                                     *
C      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
C      *      PDP-11/70 OPERATING UNDER IAS V3.0.            *
C      *                                                     *
C      *******************************************************
C
C
C	THIS ROUTINE WILL GET THE DATA FROM THE FILE AND WRITE IT OUT
C		TO THE BUFFER
C
C
	BYTE ADATA(140)
	COMMON /MSTAT/ISTAT(2)
	COMMON /LOGUNT/MAGLU,INPLU,IDATLU
C
C	TELL WHERE WE ARE IF DEBUG IS ON
C
D	WRITE (5,1)
D 1	FORMAT (1X,'ENTERING SUBROUTINE DATA')
C
C	FIRST CLEAN OUT THE INPUT BUFFER
C
 5	CONTINUE
	DO 10 I=1,140
 10	ADATA(I) = ' '			!CLEAN OUT WITH SPACES
C
C	NEXT IS TO READ IN THE DATA RECORDS
C
	READ (IDATLU,20,END=1000) ADATA
 20	FORMAT (140A1)
C
C	NOW WE MUST SEARCH FOR THE LAST CHARACTER IN THE BUFFER
C
	DO 30 I=140,1,-1
	IF ( ADATA(I) .NE. ' ' ) GOTO 40	!IF NOT SPACE THEN EXIT
 30	CONTINUE
C
C	FALL THROUGH IF THE LINE IS BLANK
C
	ADATA(10) = "15			!PUT IN A CARRIAGE RETURN
	ADATA(11) = "12			!AND A LINE FEED
	CALL WMOVIT (ADATA,11)		!AND PUT TO MAGTAPE
	GOTO 5				!LOOP BACK TILL DONE
C
C	GET HERE IF CHARACTERS ON LINE
C
 40	CONTINUE
	ADATA(I+1) = "15		!INSERT A CARRIAGE RETURN
	ADATA(I+2) = "12		!AND LINE FEED
D	WRITE (5,43) I,(ADATA(K),K=1,I)	!DUMP LINE TO TERMINAL
D 43	FORMAT (1X,'I = ',I3,(1X,60A1))
	CALL WMOVIT (ADATA,I+2)		!AND PUT TO MAGTAPE
	GOTO 5				!LOOP BACK FOR MORE
C
C	GET HERE IF END OF INPUT FILE DETECTED. TIME TO RETURN TO CALLER
C
 1000	CONTINUE
	CLOSE (UNIT=IDATLU,DISPOSE='SAVE')
	RETURN
	END