	PAGE 60
	ENTRY LINETO
	EXT VECTOR,XBEAM,YBEAM
	.Z80
	.COMMENT #

LINETO(IX,IY,IPEN)

plottet (IPEN <> =0) bzw. loescht (IPEN = 0= eine Strecke vom momentanen
Plott-Punkt (XBEAM,YBEAM) zum Punkt (IX,IY).

Die Punktkoordinaten (2-Byte-Integer) gelten bezgl. des momentanen Fensters
und werden nach den Regeln von Microsoft-F80 uebergeben. Demnach enthaelt
- HL die Adresse von IX
- DE die Adresse von IY
- BC die Adresse von IPEN.

Die Routine benutzt die externen Koordinaten XBEAM,YBEAM im Modul PUTP
und ruft die externe Plott-Routine VECTOR.

Die Grenzen werden nicht abgetestet.

A.Herrmann	20.11.83
#
LINETO:	PUSH DE
	LD E,(HL)
	INC HL
	LD D,(HL)
	LD (X1),DE	; Hole x1
	POP HL
	LD E,(HL)
	INC HL
	LD D,(HL)
	LD (Y1),DE	; Hole y1
	LD H,B
	LD L,C
	LD E,(HL)
	INC HL
	LD D,(HL)	; Hole Pen
	LD (PEN),HL
;
	LD HL,XBEAM
	LD DE,YBEAM
	LD BC,PTR
	CALL VECTOR	; Plotte Linie
	LD HL,(X1)
	LD (XBEAM),HL
	LD HL,(Y1)
	LD (YBEAM),HL	; Versetze Plott-Position
	RET
;
X1:	DW 0
Y1:	DW 0
PEN:	DW 0
PTR:	DW X1
	DW Y1
	DW PEN
;
	END
