#
c
c
c produce 3-times-overprinted output on printer.  expands line into
c lowest tier of /sngls/  and uses other 3 for output line images
c control characters inew  = form feed, iplus  = overprint, iskip  =
c next line ( * for dec-10 system, blank for most others)
      subroutine show(inx,iny,inw,inh)
#define maxary 2800
#include "common.h"
           logical ok,newpg,frzzt
           integer outa(4),outb(4),outc(4)
           data outa(1),outa(2),outa(3),outa(4) /1h ,1h^,1hx,1h$/
           data outb(1),outb(2),outb(3),outb(4) /1h ,1h ,1h-,1hm/
           data outc(1),outc(2),outc(3),outc(4) /1h ,1h ,1h ,1hw/
           data iskip,iblk,iplus,inew           /1h ,1h ,1h+,1h1/
           data frzzt /.true./
        if(frzzt)call klear(frzzt)
        iw = min0(132,inw)
        call rctfy (inx,iny,inw,inh,il,ir,ib,it,ok)
           if(.not.ok)return
        newpg = .true.
        line = it
        ill = il-1
        do 10 j = ib,it
c     expand line into 3 alphanumeric images for printing
           call xpand(il,line,ir,0)
           line1 = ill
           line2 = ill
           line3 = ill
           do 15 k = il,ir
              num = nm(k)+1
              if(outa(num).ne.iblk)line1 = k
              nm(k+140) = outa(num)
              new = outb(num)
              if(new.ne.iblk)line2 = k
              nm(k+280) = new
              new = outc(num)
              if(new.ne.iblk)line3 = k
  15          nm(k+420) = new
c     (over)print 1 to 3 lines
           nm(ill+140) = iskip
           if(newpg)  nm(ill+140) = inew
           ileft = ill+140
           irite = line1+140
           write(5,101)  (nm(k),k = ileft,irite)
  101            format (133a1)
           if(line2.eq.ill)go to 20
              nm(ill+280) = iplus
              ileft = ill+280
              irite = line2+280
              write(5,101)  (nm(k),k = ileft,irite)
              if(line3.eq.ill)go to 20
                 nm(ill+420) = iplus
                 ileft = ill+420
                 irite = line3+420
                 write(5,101)  (nm(k),k = ileft,irite)
  20       line = line-1
           newpg = .false.
  10    continue
      return
      end
