anchor.diff:        real(kind=plflt) chardef, charht, deltax, deltay, x, y
         integer i, j, page, length, slice
         character*20 cmdString
  +      integer(kind=plunicode) fci_old
  +      integer ifamily, istyle, iweight
  +      real(kind=plflt) dy
  +      integer family_index, style_index, weight_index;
  +      ! Must be big enough to contain the prefix strings, the font-changing
  +      ! commands, and the "The quick brown..." string.
  +      character*200 string;
  +
  +       
   
   !
   !  Displays Greek letters and mathematically interesting Unicode ranges
   !
  +      integer      fci_combinations
  +      parameter(fci_combinations = 30)
  +
         character*5  greek(48)
         integer      type1(166)
         character*80 title(11)
  
positive.code:       integer      nxcells(11)
        integer      nycells(11)
        integer      offset(11)
  
        data (greek(i) ,i=1,48) / &
         '#gA','#gB','#gG','#gD','#gE','#gZ', &
  
negative.code:       0, &
        0 /
  
        data (fci(i), i=1,fci_combinations) / &
  	z'80000000', &
  	z'80000001', &
  	z'80000002', &
  	z'80000003', &
  	z'80000004', &
  	z'80000010', &
  	z'80000011', &
  	z'80000012', &
  	z'80000013', &
  	z'80000014', &
  	z'80000020', &
  	z'80000021', &
  	z'80000022', &
  	z'80000023', &
  	z'80000024', &
  	z'80000100', &
  	z'80000101', &
  	z'80000102', &
  	z'80000103', &
  	z'80000104', &
  	z'80000110', &
  	z'80000111', &
  	z'80000112', &
  	z'80000113', &
  	z'80000114', &
  	z'80000120', &
  	z'80000121', &
  	z'80000122', &
  	z'80000123', &
  	z'80000124' /
  
          data (family(i), i=1,5) / &
               "sans-serif", &
               "serif", &
               "monospace", &
               "script", &
               "symbol" /
  
          data (style(i), i=1,3) / &
               "upright", &
               "italic", &
               "oblique" /
  
          data (weight(i), i=1,2) / &
               "medium", &
               "bold" /
  
        call plparseopts(PL_PARSE_FULL)
  
        call plinit()
  
        do page = 1,11
           call pladv(0)
  
  !        Set up viewport and window
  