zar@XHMEIA.CALTECH.EDU (Perfect Tommy) (09/25/86)
DON'T FRET NONE! What we (at Caltech) use to convert PC .DVI files to VAX .DVI files is the below .COM and .FOR. Luv Ya Babe! From The Great Zar ------------------PCDVI.COM-------------------- $ assign 'p1' dviin $ assign 'p2' dviou $ run pub:pcdvi $ deassign dviin $ deassign dviou $ exit ------------------PCDVI.FOR-------------------- c convert IBM pc dvi file to Vax div format byte data (512),odata(512),ending data ending/'df'x/ open(unit=10,file='dviin',form='formatted',status='old') open(unit=30,file='dviou',form='unformatted',status='new', 1recordtype='fixed',recl=128,carriagecontrol='none') 10 continue ibyte=0 do 15 i=1,512 15 odata(i)=ending 18 read(10,500,end=100)n,(data(i),i=1,n) 500 format(q,512a1) d write(6,601)n,(data(i),i=1,n) do 20 i=1,n ibyte=ibyte+1 odata(ibyte)=data(i) if (ibyte.eq.512) go to 40 20 continue go to 18 40 write(30)odata 601 format(1x,'n=',i5/(4(1x,8z2))) if (i.ne.n)then do 42 j=1,512 42 odata(j)=ending ibyte=0 j1=i+1 do 45 j=j1,n ibyte=ibyte+1 45 odata(ibyte)=data(j) go to 18 else go to 10 endif 100 if (ibyte.ne.0) write(30)odata end -----------------------------------------------