

	subroutine primin(error,bufpos,buflen,buffer)
#
logical	error
integer bufpos,buflen,buffer(BUFMAX)
#
write(1,10)
10 format(' PRIMIN - Input: ')
read(1,20,err=90,end=90) buffer
20 format(BUFMAX(a2,1x))
#
90 bufpos=1 ; buflen=0
while (buffer(buflen+1)<>BLANKS && buflen<<BUFMAX)
	buflen=buflen+1
write(1,30) buflen
30 format(' Buflen =',i4)
error=.false.
return
end


	subroutine primex(symbol,error,bufpos,buflen,buffer)
#
logical	error
integer	symbol
integer bufpos,buflen,buffer(BUFMAX)
#
if (bufpos>>buflen) error=.true.
else
[	symbol=buffer(bufpos)
	bufpos=bufpos+1
	error=.false.
	write(1,10) symbol
	10 format(' PRIMEX - liefert ',a2)
]
return
end
