FIELD 1

*7200


DELCOD,	2
	BLOTNT
	DCNT

	SWAB
	CAM DAD
	RUECKF
	DCM
	ACUM
	1
	DPSZ
	SKP
	JMP NULL
	RAL
	CLA
	TAD DCREG
	RAR
	DCA DCREG
	JMP DELPUT

NULL,	CLA CLL
	TAD DCREG
	ASR
	1
	DCA DCREG

DELPUT,	TAD DCREG
	SPA CLA
	IAC
	PUT
	2

	TAD MSKTFA
	DCA MSKPOI
	TAD BEWTFA
	DCA BEWPOI
	TAD ADDNUM
	CIA CLL
	DCA DCCNT
	DCA SUMME

SUMLOP,	CLA CLL
	TAD DCREG
	AND I MSKPOI

	RAR
	SPA
	TAD N4000
	SZA
	JMP .-4
	CLA MQL
	SNL
	TAD I BEWPOI
	TAD SUMME
	DCA SUMME
	ISZ MSKPOI
	ISZ BEWPOI
	ISZ DCCNT
	JMP SUMLOP

	CLA IAC BSW
	TAD SUMME
	LSR
	1
	DVI
	YTEMP
	SZL
	HLT
	CLA CLL
	TAD DCREG
	RAL
	SZL CLA
	DCM
	SHL
	1
	DAD
	RUECKF
	DST
	RUECKF
	INEND

DCNT,	SWAB
	TAD DCRGNT
	DCA DCREG
	CAM DST
	RUECKF
	CLA IAC BSW
	TAD K1
	TAD K2
	TAD KK3
	TAD K4
	DCA YTEMP
	INEND

MSKTFA,	MSKTAF
MSKTAF,	6000
	3000
	1400
	600
	300
	140
	60

BEWTFA,	BEWERT
BEWERT,
K1,	100	/WERTE^100
K2,	214
KK3,	223
K4,	106
DCCNT,	0
DCREG,	0
MSKPOI,	0
ADDNUM,	4
N4000,	4000

SUMME,	0
YTEMP,	0
RUECKF,	0
	0
BEWPOI,	0
DCRGNT,	5200