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

(Source file text) 

---

	SUBROUTINE PLOTS(IFN,X0,Y0,XTOT,YTOT)
C PLOTBILD INITIALISIEREN
C 12-7-80/EB
	COMMON /PUFCOM/BITPUF(12),IBP,IFNC
	COMMON /PLCOMM/XALT,YALT,XTOTC,YTOTC
C GERAETE-NR. DER PLOT-AUSGABEDATEI
	IFNC=IFN
C GESAMTBILD-URSPRUNG
	XALT=X0
	YALT=Y0
C GESAMTBILDGROESSE
	XTOTC=XTOT
	YTOTC=YTOT
C FREIER INDEX IM BYTE-PUFFER
	IBP=1
C PEN UP
	CALL PLBYTE(35)
	RETURN
	END

---