anchor.diff:        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 130 page = 1,11
  +      do page = 1,11
            call pladv(0)
   
   !        Set up viewport and window
  
positive.code:                   call plptex(x,y-yoffset,1._plflt,0._plflt,0.5_plflt, &
                      cmdString)
                 endif
                 slice = slice + 1
    110       continue
  
    120    continue
  
           call plschr(0._plflt, 1.0_plflt)
           call plmtex("t", 1.5_plflt, 0.5_plflt, 0.5_plflt, title(page))
    130 continue
  
  !     Restore defaults
  
        call plcol0(1)
  
        call plend()
  
        end
  
        subroutine lowercase23(string)
        implicit none
  
negative.code:          call plcol0(15)
           length=hi(page)-lo(page)
           slice = 1
           do j=nycells(page),0,-1
              y = (j-0.5_plflt)*deltay
              do i=1,nxcells(page)
                 x  = (i-0.5_plflt)*deltax
                 if (slice .le. length) then
                    if (page .eq. 1) then
  