*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
TABLE,	0001
	0000
	4477		/A
	7744
	5177		/B
	2651
	4136		/C
	2241
	4177		/D
	3641
	4577		/E
	4145
	4477		/F
	4044
	4136		/G
	2645
	1077		/H
	7710
	7741		/I
	0041
	4142		/J
	4076
	1077		/K
	4324
	177		/L
	301
	3077		/M
	7730
	3077		/N
	7706
	4177		/O
	7741
	4477		/P
	3044
	4276		/Q
	376
	4477		/R
	3146
	5121		/S
	4651
	4040		/T
	4077
	177		/U
	7701
	176		/V
	7402
	677		/W
	7701
	1463		/X
	6314
	770		/Y
	7007
	4543		/Z
	6151
	4177		/[
	0000
	2040		/\
	0410
	0		/]
	7741
	2000		/^
	2077
	3410		/BACK ARROW
	1010
	0		/SPACE
	0
	7500		/!
	0
	6006		/"
	60
	3614		/NUMBER SIGN
	1436
	7721		/DOLLAR SIGN
	4677
	1446		/%
	6130
	5166		/&
	0523
	500		/APOSTROPHY
	6
	4163		/(
	0
	0		/)
	6341
	2050		/*
	50
	404		/+
	437
	605		/,
	0
	404		/-
	404
	1		/.
	0
	601		//
	4030
	4136		/0
	3641
	2101		/1
	177
	4523		/2
	2151
	4122		/3
	2651
	2414		/4
	477
	5172		/5
	651
	1506		/6
	4225
	4443		/7
	6050
	5126		/8
	2651
	5120		/9
	3651
	4200		/:
	0
	2601		/;
	0
	2410		/<
	0042
	1212		/=
	1212
	4200		/>
	1024
	2055		/?
	4020