ENTRY PLOT
	DUMMY IARG
IARG,	BLOCK 2
	SKPDF JMSK 4000
SKIP,	0		/ SKIP ON ACKNOWLEDGE AND CLEAR AC
	CLA
	6504
	AND (4000
	SPA CLA
	ISZ SKIP
	JMP I SKIP
LOAD,	0		/ LOAD LINE PRINTER BUFFER AND CLEAR
	AND (177	/ ACKNOWLEDGE FLAG
	6505		/ SET DATA
	CMA
	AND (177
	6506
	CLA
	TAD (4000
	6503		/ CLEAR ACKNOWLEDGE FLAG
	6506		/ SET DATA STROBE QUER
	6505		/ CLEAR DATA STROBE QUER
	CLA
	JMP I LOAD
ERR1,	6014; 1724	/ PLOT ERROR
PLOT,	BLOCK 2
	TAD I PLOT
	INC PLOT#
	DCA IARG
	TAD I PLOT
	INC PLOT#
	DCA IARG#
	TAD I IARG
	SPA		/ POSITIV ?
	JMP ERR		/ NEIN : FEHLER
	SNA		/ UNGLEICH NULL ?
	JMP P1		/ NEIN : NUR STERN DRUCKEN
	TAD (-202
	SMA SZA		/ GROESSER 130 DEC. ?
	JMP ERR
	TAD (202
	CIA
	DCA IARG
LOOP1,	TAD (240
	JMS LOAD
LOOP2,	JMSK SKIP
	JMP LOOP2
	ISZ IARG
	JMP LOOP1
P1,	CLA
	TAD (252
	JMS LOAD
LOOP3,	JMSK SKIP
	JMP LOOP3
L1,	TAD (212
	JMS LOAD
LOOP4,	JMSK SKIP
	JMP LOOP4
	TAD (215
	JMS LOAD
LOOP5, JMSK SKIP
	JMP LOOP5
	RETRN PLOT
ERR,	CALL 1,ERROR
	ARG ERR1
	JMP L1
	END