*46
ERRMPT,0
*1000
	CLA
	DCA ERRMPT
	CDF 20
	TAD NM4256
	DCA I ERRMPT
	ISZ ERRMPT
	JMP .-3
	CDF 0

	JMS FEHLIS
	MOSTGO
NM4256,	4256


PAGE



FEHLIS,	0
	CLA
	DCA SETFOR
	LINE
	JMS SPACE8
	TDC		/COLUMN
	4303
	4317
	4314
	4325
	4315
	316
	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

	LINE
	TDC
	4322
	4317
	4327
	240

	CLA
	TAD MNUM64
	DCA CTR64
	DCA ERRMPT
ROWNEW,	CIF 10
	JMS DEZOUT
	SPALTE
	STELLE
	TDC
	240
ROWAG,	CDF 20
	TAD I ERRMPT
	CDF 0
	TOCT
	ISZ ERRMPT
	SKP
	JMP END

	ISZ CTR64
	JMP ROWAG
	ISZ SPALTE
	JMP ROWNEW
END,	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
SPALTE,	0;0
STELLE,	7
MNUM64,	-77
CTR64,	0

FIELD 1
*1000


ENTF=JMS I 7

DEZOUT,	0
	SWAB
	CLA

	RDF
	TAD CHFIED
	DCA EXIT1
	IAC
	DCA 56
	DCA 55
	TAD I DEZOUT
	DCA DEZP1
	ISZ DEZOUT

	TAD I DEZOUT
	DCA DEZTEM
	TAD I DEZTEM
	DCA 57
	ISZ DEZOUT
	DCA 60

	CAM DAD
DEZP1,	0
	CDF 20
	SWP
	DST
	45
	CLA
	TAD (27
	DCA 44

	ENTF
	FNOR
	FOUT
	FEXT

EXIT1,	0
	JMP I DEZOUT

DEZTEM,	0
CHFIED,	CDF CIF 0