00100	(PROG () (SETQ OBL @(SPRINT %DPSPRINT OBL %%%L
00200	SAVEBPORG CPTR DEFLOC SAVELAPORG LAPEVAL SYM ZZ KLIST
00300	GWD GVAL OPS DEFSYM CONLIST LOC LAP SL GEN FLD QLIST
00400	WRD TYPE VAL LAPORG
00500	PROG 
00600	CAAR 
00700	MAPC 
00800	ADD1 
00900	CDADDR 
01000	DE 
01100	READIN 
01200	SUBST 
01300	REMOB 
01400	TEN 
01500	%L 
01600	MAPCAR 
01700	CADDR 
01800	DM 
01900	*GETSYM 
02000	GO 
02100	CDDAAR 
02200	BAKGAG 
02300	MAKNAM 
02400	READLIST 
02500	OUTPUT 
02600	*GREAT 
02700	CDDADR 
02800	DSKIN 
02900	GET 
03000	NCONS 
03100	QUOTE 
03200	TERPRI 
03300	%DEV 
03400	ERR 
03500	CDAAR 
03600	COND 
03700	DF 
03800	CDDDAR 
03900	ED 
04000	ABS 
04100	*DIF 
04200	*EVAL 
04300	PRINT 
04400	OCTAL 
04500	NOT 
04600	GETSYM 
04700	SET 
04800	CADR 
04900	NOUUO 
05000	SYSIN 
05100	*PUTSYM 
05200	CDDDDR 
05300	CDADR 
05400	GCGAG 
05500	NUMVAL 
05600	INTERN 
05700	TYI 
05800	PUTPROP 
05900	L 
06000	DEFPROP 
06100	P 
06200	OUTC 
06300	REMPROP 
06400	T 
06500	%READCHAN 
06600	%READAFILE 
06700	CDDAR 
06800	X 
06900	%SEXPR 
07000	CDAR 
07100	*NOPOINT 
07200	MAKNUM 
07300	MEMBER 
07400	DIVIDE 
07500	%DEVP 
07600	GCTIME 
07700	LSH 
07800	CDDDR 
07900	EXAMINE 
08000	ARG 
08100	EXPLODE 
08200	EXPLODEC 
08300	MAPLIST 
08400	STORE 
08500	CAR 
08600	COMMENT 
08700	%OLDCHAN 
08800	BASE 
08900	OR 
09000	EQUAL 
09100	PUTSYM 
09200	LAST 
09300	CAAAAR 
09400	SASSOC 
09500	*FUNCTION 
09600	LIST 
09700	*TIMES 
09800	%FNAM 
09900	REVERSE 
10000	GETL 
10100	CAAADR 
10200	GC 
10300	FLATSIZE 
10400	SETARG 
10500	INPUT 
10600	CDDR 
10700	*EXPAND 
10800	*EXPAND1 
10900	EXCISE 
11000	CAADAR 
11100	ZEROP 
11200	LENGTH 
11300	ARRAY 
11400	PRIN1 
11500	LOAD 
11600	SUB1 
11700	SEARCH 
11800	SEARCH1 
11900	ATOM 
12000	CONS 
12100	CAADDR 
12200	FIX 
12300	GRINDEF 
12400	*APPEND 
12500	*LESS 
12600	CSYM 
12700	TYO 
12800	*PLUS 
12900	XCONS 
13000	BPORG 
13100	CADAAR 
13200	NUMBERP 
13300	TIME 
13400	INC 
13500	EX 
13600	REMAINDER 
13700	PGLINE 
13800	DECLARE 
13900	AND 
14000	CADADR 
14100	EXARRAY 
14200	SETQ 
14300	%FLIST 
14400	CAAAR 
14500	%CHAN 
14600	F 
14700	CADDAR 
14800	IBASE 
14900	MEMQ 
15000	ASCII 
15100	%TALK 
15200	PROG2 
15300	%DEFIN 
15400	GENSYM 
15500	MINUS 
15600	MINUSP 
15700	DDTIN 
15800	EQ 
15900	BREAK 
16000	R 
16100	DECIMAL 
16200	CADDDR 
16300	CHRCT 
16400	NULL 
16500	V 
16600	CDR 
16700	CAADR 
16800	GCD 
16900	*QUO 
17000	INITFN 
17100	BPEND 
17200	ERRSET 
17300	READ 
17400	CDAAAR 
17500	SPEAK 
17600	*RSET 
17700	ASSOC 
17800	MAP 
17900	NIL 
18000	OBLIST 
18100	PRINC 
18200	RETURN 
18300	EIGHT 
18400	CDAADR 
18500	LINELENGTH 
18600	RPLACA 
18700	READCH 
18800	RPLACD 
18900	DEPOSIT 
19000	SRLIST 
19100	CADAR 
19200	CDADAR 
19300	FUNCTION 
19400	*BPROCEED* 
19500	)))