File: PLBYTE.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

	SUBROUTINE PLBYTE(IBYTE)
C BYTE PUFFERN UND GGFS. PUFFER AUSGEBEN
C IBYTE<0: PUFFER MIT BLANKS AUFFUELLEN UND AUSGEBEN
C 12-7-80/EB
	COMMON /PUFCOM/BITPUF(12),IBP,IFN
	DATA IBL/'      '/
	IF(IBYTE.LT.0)GOTO100
C	WRITE(4,4444)IBP
C4444	FORMAT(I4)
	CALL CPUT(BITPUF,IBP,IBYTE)
	IBP=IBP+1
	IF(IBP.LE.72)RETURN
	IBP=1
50	WRITE(IFN,1000)BITPUF
1000	FORMAT(12A6)
	RETURN
C IBYTE < 0  :
100	IF(IBP.EQ.1)GOTO50
C BITPUF MIT BLANKS AUFFUELLEN UND SCHREIBEN
C ZUNAECHST RESTWORT AUFFUELLEN
	IBPUT=((IBP+5)/6)*6
	IF(IBPUT.EQ.IBP+6)GOTO110
	DO 105 I=IBP,IBPUT
105	CALL CPUT(BITPUF,I,32)
	IBP=IBPUT+1
110	IF(IBP.EQ.73)GOTO50
C JETZT DIE RESTLICHEN GANZEN WORTE AUFFUELLEN
	IBPUT=IBP/6+1
	DO 115 I=IBPUT,12
115	BITPUF(I)=IBL
	GOTO50
	RETURN
	END

---