File: LCTEST.FT of Tape: Sources/Fortran/s2

(Source file text) 

---

C	TEST PROGRAM FOR LOWER CASE
C	USE LOCAPT.PA AS INPUT FILE

	DIMENSION AINPUT(12)
100	FORMAT(12A6)
110	FORMAT(1H ,12A6)

10	READ(5,100) AINPUT
	WRITE(0,110) AINPUT
	GO TO 10
	END

---