/UNTERPROGRAMM ZUR AUSGABE EINES VEKTORS
/AUFRUF:
/CALL LINE (X,Y,FACT,LJ,LXADR,LYADR,LK,LN)
/ZUR ERKLAERUNG DER EINZELNEN PARAMETER 
/SIEHE BESCHREIBUNG

	ENTRY LINE

	DUMMY X
	DUMMY Y
	DUMMY FACT
	DUMMY LJ
	DUMMY LXADR1
	DUMMY LYADR1
	DUMMY LK
	DUMMY LN
	DUMMY LXADR
	DUMMY LYADR

X,	BLOCK 2
Y,	BLOCK 2
FACT,	BLOCK 2
LJ,	BLOCK 2
LXADR1,	BLOCK 2
LYADR1,	BLOCK 2
LK,	BLOCK 2
LN,	BLOCK 2
LXADR,	BLOCK 2
LYADR,	BLOCK 2

XPNT,	X
PNTR,	0
CNTR,	0

LINE,	BLOCK 2

	TAD XPNT
	DCA PNTR
	TAD (-20
	DCA CNTR
A1,	TAD I LINE
	INC LINE#
	DCA I PNTR
	INC PNTR
	ISZ CNTR
	JMP A1
	TAD I LXADR1
	DCA LXADR#
	TAD X
	DCA LXADR
	TAD I LYADR1
	DCA LYADR#
	TAD X
	DCA LYADR
        TAD I LK
        SMA CLA
        JMP LET1
        TAD I LK
        CIA
        DCA I LK
        IAC
LET1,   DCA PENUP
        TAD I LN
        CIA
        DCA LNCNT
        TAD I LJ
        DCA LLJ
        DCA I LJ
        TAD LLJ
        CIA
        DCA LJCNT
        CMA
        DCA FMVE
LAGN,   TAD I LXADR
        TAD I X
        DCA BX
        TAD I LYADR
        TAD I Y
        DCA BY
        TAD PENUP
        ISZ FMVE
        SKP
        CLA CLL
        JMS ADGMOVE
        ISZ LJCNT
        JMP LET2
        CLA CLL
        TAD LLJ
        CIA
        DCA LJCNT
LET2,   TAD LXADR#
        TAD I LK
        DCA LXADR#
        TAD LYADR#
	TAD I LK
        DCA LYADR#
        ISZ LNCNT
        JMP LAGN
        RETRN LINE

LNCNT,	0
LJCNT,  0
LLJ,    0
PENUP,	0
FMVE,   0

ADGMOVE,        0
        SZA
        JMP ADG2
        DCA HBZ
ADG1,   TAD BX
        DCA HBX
        TAD BY
        DCA HBY
        CALL 3,PLOTX
        ARG HBX
        ARG HBY
        ARG HBZ
        JMP I ADGMOVE
ADG2,   DCA HBZ
        JMP ADG1

BX,     0
BY,     0
HBX,    0
HBY,    0
HBZ,    0

        END