*20
/TITLE:  DAN11
/OCTOBER 26,1970
/THIS PROGRAM DISPLAYS 
/AMONG OTHER THINGS,
/THE PROGRAMMERS NAME ON THE
/SCOPE.  LOCATION OF THE NAME IS 
/CONTROLLED BY ANALOG POTS TWO AND
/SIX. 
/SOURCE PROGRAM DOES NOT INCLUDE
/PATRNS TABLE, WHICH BEGINS AT 1600.
START,	CLR
	JMP JIM
	SNS I 0
	JMP DAN
	SNS I 1
	JMP NO
	SNS I 2
	JMP AINT
	SNS I 3
	JMP GET
	SNS I 4
	JMP WHAT
	SNS I 5
	JMP APLUS
	SAM 6
	STC 1
HERE,	LDA I 17
	SAE I
	0072
	JMP .+2
	JMP START
	ROL 1
	ADA I
	ZSTART-3
	STC 16
	SAM 2
	DSC I 16
	DSC I 16
	LDA I
	4
	ADM
	1
	JMP HERE
DAN,	SET I 17
	TAB1-1
	JMP 0
JIM,	SET I 17
	TAB2-1
	JMP 0
GET,	SET I 17
	TAB3-1
	JMP 0
WHAT,	SET I 17
	TAB4-1
	JMP 0
APLUS,	SET I 17
	TAB5-1
	JMP 0
NO,	SET I 17
	TAB6-1
	JMP 0
AINT,	SET I 17
	TAB7-1
	JMP 0
/TABLE OF CODE FOR DANIEL K. GRAY
TAB1,	04
	01
	16
	11
	05
	14
	40
	13
	56
	07
	22
	01
	31
	72
/END TAB1
TAB2,	12
	1
	15
	5
	23
	40
	10
	56
	17
	47
	2
	22
	11
	5
	16
	72
/END TAB2
TAB3,	7
	5
	24
	40
	17
	25
	24
	40
	17
	6
	40
	10
	5
	22
	5
	41
	41
	41
	41
	72
TAB4,	27
	10
	1
	24
	47
	3
	10
	1
	40
	27
	1
	16
	24
	77
	40
	40
	2
	14
	17
	17
	4
	77
	77
	77
	72
TAB5,	4
	1
	16
	40
	16
	17
	27
	40
	7
	5
	24
	23
	40
	1
	16
	40
	1
	40
	20
	14
	25
	23
	41
	41
	41
	72
TAB6,	50
	16
	17
	40
	23
	16
	23
	40
	23
	27
	40
	17
	20
	24
	11
	17
	16
	23
	51
	72
TAB7,	1
	11
	16
	47
	24
	40
	24
	10
	1
	24
	40
	5
	16
	17
	25
	7
	10
	77
	77
	77
	72
/END OF TAB7
	PMODE
	*6002
/ADD PATRN TABLE HERE.	/