Program Chess1
program chess1
character (len=1), dimension (8), parameter :: cit1 = (/'A','B','C','D','E','F','G','H'/)
character (len=12),parameter::cit='CHESS BOARD'
integer:: i,j,nl
real::v
call metafl ('pdf')
call setpag ('da4p')
call disini()
call pagorg('bottom')
call pagera()
call setvlt('small')
call origin(200,900)
call rectan(0,0,1600,1600)
do i = 200,1600,200
call line(i,0,i,1600)
end do
do j = 200,1600,200
call line(0,j,1600,j)
end do
do j=0,3,1
do i=100,1300,400
call point(i,100+j*400,200,200,1)
end do
end do
do j=0,3,1
do i=300,1500,400
call point(i,300+j*400,200,200,1)
end do
end do
call psfont("helvetica")
call height (100)
do i=1,8,1
nl = nlmess(cit1(i))
call messag (cit1(i),(i-1)*200+(200-nl)/2, -50)
end do
do i=1,8,1
v=i
call number (v,-1,1650,(i-1)*200+150 )
end do
call origin(0,0)
nl = nlmess (cit)
call messag (cit,(2100-nl)/2, 2700)
call filbox(250,600,1500,400)
call incfil ('c:\arondisl\chess\chess_txt.tif')
call disfin()
end program chess1