*20
	SET I 16
	BUFFER-1
	SET 15
	LENGTH
	SET I 10
	-1
	LDA I
	30
	STC LOCONE
	LDA I
	TABLE
	STA I 16
	XSK I 15
	JMP .-2
	CLR
	IOB
	PMODE
	TLS
	LMODE
START,	RSW
	COM
	STC DELAY
	SET I 17
	BUFFER
	SET I 16
	BUFFER-1
	SET 15
	LENGTH
	SET I 1
LOCONE,	30
	SET I 13
	-24
LISN,	PDP
	PMODE
	KSF
	JMP ROTATE
	CLA CLL
	TAD K1
	TAD TELSTR
	DCA TELSTR
	KRB
	TLS
	LINC
	LMODE
	BCL I
	7700
	ROL 1
	ADA I
	TABLE
	STA
TELSTR,	BUFFER+CST-1
	JMP DISROT
	PMODE
ROTATE,	LINC
	LMODE
	XSK I 10
	JMP DISROT
	SET I 10
DELAY,	-1
	LDA
	LOCONE
	SAE I
	1
	JMP DECLOC
	LDA I
	30
	STA
	LOCONE
	STC 1
	LDA
	BUFFER
	STC TEMROT
LARK,	LDA I 17
	STA I 16
	XSK I 15
	JMP LARK
	LDA
	TEMROT
	STC BUFFER+CST
	SET I 16
	BUFFER-1
	LDA I
	-1
	ADM
	TELSTR
	SAE I
	BUFFER-2
	JMP DISROT
	LDA I
	BUFFER+CST-1
	STC TELSTR
DISROT,	LDA I 16
	STC 14
	DSC 14
	DSC I 14
	DSC I
	0000
	XSK I 13
	JMP DISROT
	JMP START
TEMROT,	0
LENGTH,	-200
K1,	1
/
/
DECLOC,	LDA I
	-1
	ADM
	LOCONE
	STC 1
	JMP DISROT
/
/
	CST=200
	*200
BUFFER,	TABLE
	*500
/ADD PATRNS TABLE HERE