C THIS PROGRAM WILL READ A FILE UNDER RSX-11M WHICH WAS CREATED C BY RSX-11M PIP BUT COPIED FROM AN ASCII TAPE WHOSE FILE WAS C CREATED BY RT-11 PIP, AND REFORMAT THE RT-11 FILE TO RSX FILES-11 C FORMAT. THIS WORKS ONLY FOR SOURCE CODE FILES, TEXT FILES, .DOC C FILES, ANY ASCII FILE. THIS IS A SIMPLE FORTRAN PROGRAM BUT IT C HAS HELP ME CONVERT THE RT-11 FORMATTED ADVENTURE GAME AND THE C LATEST DUNGEON GAME. C I AM STILL LOOKING FOR A PROGRAM WHICH CAN REFORMAT RT-11 PIP C COPIED *.OBJ, *.OLB, *.TSK, AND FORTRAN DIRECT ACCESS FILES. C IF YOU HAVE SUCH A PROGRAM CONTACT ME AND SUBMIT YOUR PROGRAM TO C DECUS. C MR. GEORGE VELEZ C REVLON RESEARCH CENTER, INC. C 945 ZEREGA AVENUE C BRONX, NEW YORK 10473 C (212) 824-9000 EXT. 287 C C BYTE IREC (512),JREC(80),BLANK,INPUT(20),IOUT(20) LOGICAL*2 KREC(256) EQUIVALENCE (IREC,KREC) DATA BLANK/' '/ WRITE (5,1) 1 FORMAT (1H ,'ENTER NAME OF RT-11 PIP FILE - ',$) READ (5,2) NCHRS,(INPUT(I),I=1,NCHRS) 2 FORMAT (Q,20A1) WRITE (5,3) 3 FORMAT (1H ,'ENTER NAME OF NEW RSX FILE-11 FILE - ',$) READ (5,2) NCHRS,(IOUT(I),I=1,NCHRS) OPEN (UNIT=1,NAME=INPUT,TYPE='OLD',READONLY) OPEN (UNIT=2,NAME=IOUT,TYPE='NEW') J=0 5 I=0 10 READ (1,15,END=50) KREC 15 FORMAT (256A2) 20 FORMAT (80A1) 30 I=I+1 IF (I .GT. 512) GO TO 5 J=J+1 IF (IREC(I) .EQ. "15) GO TO 44 IF (IREC(I) .EQ. "12) GO TO 44 40 JREC(J)=IREC(I) IF (J .GT. 79) GO TO 44 GO TO 30 44 DO 41 L=1,80 IF (JREC(L) .NE. BLANK) GO TO 45 41 CONTINUE GO TO 47 45 WRITE (2,20) JREC DO 46 K=1,80 46 JREC(K)=' ' 47 J=0 IF (I-512) 30,30,5 50 CALL CLOSE (1) CALL CLOSE (2) CALL EXIT END