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
Go to Editor View