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

Subroutine  LINETO  plottet bzw. loescht eine Strecke vom momentanen
Plott-Punkt (xbeam,ybeam) zum Punkt (x1,y1), wenn Pen = 1 bzw. 0.

FORTRAN-Aufruf der Routine	CALL LINETO(IX1,IY1,IP)

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 x1
- DE die Adresse von y1
- BC die Adresse von Pen.

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 A,(BC)	; Hole Pen
	LD (PEN),A
;
	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:	DB 0
PTR:	DW X1
;
	END
