Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU
Path: utzoo!decvax!ucbvax!XHMEIA.CALTECH.EDU!zar
From: zar@XHMEIA.CALTECH.EDU (Perfect Tommy)
Newsgroups: mod.computers.vax
Subject: Re: TeX DVI converter
Message-ID: <860925094108.055@Xhmeia.Caltech.Edu>
Date: Thu, 25-Sep-86 12:41:12 EDT
Article-I.D.: Xhmeia.860925094108.055
Posted: Thu Sep 25 12:41:12 1986
Date-Received: Wed, 8-Oct-86 04:27:16 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 49
Approved: info-vax@sri-kl.arpa

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