*1000

	JMS FEHLIS
	MOSTGO
FEHLIS,	0
	CLA
	DCA SETFOR
	LINE
	JMS SPACE8
	TDC		/ZEILE
	4332
	4305
	4311
	4314
	305
	LINE

	JMS SPACE8
	TDC
	261
	JMS SPACE8
	TDC
	4261
	260
	JMS SPACE8
	TDC
	4262
	260
	JMS SPACE8
	TDC
	4263
	260
	JMS SPACE8
	TDC
	4264
	260
	JMS SPACE8
	TDC
	4265
	260
	JMS SPACE8
	TDC
	4266
	260
	LINE

	JMS SPACE8
	TDC
	336
	TAD MNUM6
	DCA ARRCTR
ARROW,	JMS PRTARR
	CLA
	TAD MNUM1
	DCA SETFOR
	ISZ ARRCTR
	JMP ARROW
	JMP I FEHLIS


SPACE8,	0
	CLA
	TAD MNUM8
	TAD SETFOR
	DCA SPCCTR
	TDC
	240
	ISZ SPCCTR
	JMP .-3
	JMP I SPACE8


PRTARR,	0
	JMS SPACE8
	TDC
	336
	JMP I PRTARR



MNUM8,	-10
MNUM6,	-6
SPCCTR,	0
ARRCTR,	0
SETFOR,	0
MNUM1,	-1