*20
	PMODE
	*200
START,	CLL CLA
	KCC
	TLS
	TAD LOC
	DCA 10
	TAD LOC
	DCA 11
A,	JMS READ
	DCA TEMP
	TAD TEMP
	TAD PERIOD
	SZA
	JMP STORE
	JMS CARRET
	TAD PERI
	DCA I 10
REPEAT,	CLA CLL
	TAD I 11
	JMS TYPE
	TAD PERIOD
	SZA
	JMP REPEAT
	JMS CARRET
	JMP START
STORE,	TAD PERI
	DCA I 10
	JMP A
TYPE,	0000
	TSF
	JMP .-1
	TLS
	JMP I TYPE
READ,	0000
	KSF
	JMP .-1
	KRB
	TLS
	JMP I READ
CARRET,	0000
	TAD K215
	JMS TYPE
	CLL CLA
	TAD K212
	JMS TYPE
	CLL CLA
	JMP CARRET
K212,	0212
K215,	0215
PERI,	256
PERIOD,	-256
TEMP,	0000
LOC,	0577