Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/3x60.for
There is 1 other file named 3x60.for in the archive. Click here to see a list.
implicit integer (a-z)
parameter lnorm=60,cnorm=3
double precision infile,ofile
integer page(8,3,60)
type11
11 format(' input file: ',$)
accept12,infile
12 format(a10)
type13
13 format(' output file: ',$)
accept12,ofile
open(unit=1,access='seqin',file=infile)
open(unit=2,access='seqout',device='dsk',file=ofile)
1 type4
4 format(' normal 40x60x3? <cr>=yes ',$)
accept5,reply
5 format(a1)
nlpp=lnorm
ncol=cnorm
if(reply.eq.' ')goto25
type2
2 format(' number of lines per page: ',$)
accept*,nlpp
type3
3 format(' number of columns to build: ',$)
accept*,ncol
25 do 20 npage=1,ncol
do 20 nrow=1,nlpp
20 read(1,6,end=99)(page(i,npage,nrow),i=1,8)
6 format(8a5)
write(2,7)(((page(i,npage,nrow),i=1,8),npage=1,3),
1 nrow=1,60)
7 format(8a5,6x,8a5,6x,8a5)
goto25
99 n=npage-1
if(n.eq.2)write(2,37)(((page(i,npage,nrow),i=1,8),npage=1,n),
1 nrow=1,60)
37 format(8a5,6x,8a5)
if(n.eq.1)write(2,38)(((page(i,npage,nrow),i=1,8),npage=1,n),
1 nrow=1,60)
38 format(8a5)
close(unit=1)
close(unit=2)
call exit
end