From:	HENRY::IN%"zar%XHMEIA.CALTECH.EDU%SRI-KL.ARPA%relay.cs.net@rca.com"  8-OCT-1986 13:05
To:	chaa006%vaxb.rhbnc.ac.uk%cs.ucl.ac.uk@Xhmeia.Caltech.Edu,
Subj:	Re: TeX DVI converter

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
-----------------------------------------------
