# get a single character from a file
#  
integer function kgetch(t,chan)
integer t,chan,x,ier
call rdseq(chan,x,1,ier)
if(ier.ne.1)goto 100
t=ishift(x,-8).and. 177k
kgetch=1
return
100     continue
kgetch=0
return
end