blob: e469854a3e2d837fa8c24e282da74c536a7d7312 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69	.(defvar.m2-mode-syntax-table.ni
0020	6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61 62 6c 65 20 69 6e 20 75 73 65 20 69 6e 20 4d 6f 64 75	l."\.Syntax.table.in.use.in.Modu
0040	6c 61 2d 32 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 32	la-2-mode.buffers.")..(defvar.m2
0060	2d 63 6f 6d 70 69 6c 65 2d 63 6f 6d 6d 61 6e 64 20 22 6d 32 63 22 20 22 5c 0a 43 6f 6d 6d 61 6e	-compile-command."m2c"."\.Comman
0080	64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 4d 6f 64 75 6c 61 2d 32 20 70 72 6f 67 72 61 6d 73 22 29	d.to.compile.Modula-2.programs")
00a0	0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 6c 69 6e 6b 2d 63 6f 6d 6d 61 6e 64 20 22 6d 32 6c 22 20	..(defvar.m2-link-command."m2l".
00c0	22 5c 0a 43 6f 6d 6d 61 6e 64 20 74 6f 20 6c 69 6e 6b 20 4d 6f 64 75 6c 61 2d 32 20 70 72 6f 67	"\.Command.to.link.Modula-2.prog
00e0	72 61 6d 73 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 6c 69 6e 6b 2d 6e 61 6d 65 20 6e 69 6c	rams")..(defvar.m2-link-name.nil
0100	20 22 5c 0a 4e 61 6d 65 20 6f 66 20 74 68 65 20 65 78 65 63 75 74 61 62 6c 65 2e 22 29 0a 0a 28	."\.Name.of.the.executable.")..(
0120	69 66 20 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 6c 65 74	if.m2-mode-syntax-table.nil.(let
0140	20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 20 28	.((table.(make-syntax-table))).(
0160	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 5c 5c 22 20 74 61 62 6c	modify-syntax-entry.92."\\".tabl
0180	65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 2e 20 31 22	e).(modify-syntax-entry.40."..1"
01a0	20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 31 20	.table).(modify-syntax-entry.41.
01c0	22 2e 20 34 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72	"..4".table).(modify-syntax-entr
01e0	79 20 34 32 20 22 2e 20 32 33 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61	y.42."..23".table).(modify-synta
0200	78 2d 65 6e 74 72 79 20 34 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79	x-entry.43.".".table).(modify-sy
0220	6e 74 61 78 2d 65 6e 74 72 79 20 34 35 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79	ntax-entry.45.".".table).(modify
0240	2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 31 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64	-syntax-entry.61.".".table).(mod
0260	69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28	ify-syntax-entry.37.".".table).(
0280	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 30 20 22 2e 22 20 74 61 62 6c 65	modify-syntax-entry.60.".".table
02a0	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 32 20 22 2e 22 20 74 61	).(modify-syntax-entry.62.".".ta
02c0	62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 5c 22	ble).(modify-syntax-entry.39."\"
02e0	22 20 74 61 62 6c 65 29 20 28 73 65 74 71 20 6d 32 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61	".table).(setq.m2-mode-syntax-ta
0300	62 6c 65 20 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 6d 6f 64 65 2d 6d 61	ble.table)))..(defvar.m2-mode-ma
0320	70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 4d 6f 64 75 6c 61 2d 32	p.nil."\.Keymap.used.in.Modula-2
0340	20 6d 6f 64 65 2e 22 29 0a 0a 28 69 66 20 6d 32 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 6c	.mode.")..(if.m2-mode-map.nil.(l
0360	65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 20	et.((map.(make-sparse-keymap))).
0380	28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 6d 32 2d 74 61	(define-key.map.".".(quote.m2-ta
03a0	62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 62 22 20 28 71 75 6f 74 65 20	b)).(define-key.map.".b".(quote.
03c0	6d 32 2d 62 65 67 69 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 63 22 20	m2-begin)).(define-key.map.".c".
03e0	28 71 75 6f 74 65 20 6d 32 2d 63 61 73 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70	(quote.m2-case)).(define-key.map
0400	20 22 03 64 22 20 28 71 75 6f 74 65 20 6d 32 2d 64 65 66 69 6e 69 74 69 6f 6e 29 29 20 28 64 65	.".d".(quote.m2-definition)).(de
0420	66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 65 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 6c 73 65	fine-key.map.".e".(quote.m2-else
0440	29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 66 22 20 28 71 75 6f 74 65 20 6d	)).(define-key.map.".f".(quote.m
0460	32 2d 66 6f 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 68 22 20 28 71 75	2-for)).(define-key.map.".h".(qu
0480	6f 74 65 20 6d 32 2d 68 65 61 64 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20	ote.m2-header)).(define-key.map.
04a0	22 03 69 22 20 28 71 75 6f 74 65 20 6d 32 2d 69 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	".i".(quote.m2-if)).(define-key.
04c0	6d 61 70 20 22 03 6d 22 20 28 71 75 6f 74 65 20 6d 32 2d 6d 6f 64 75 6c 65 29 29 20 28 64 65 66	map.".m".(quote.m2-module)).(def
04e0	69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 6c 22 20 28 71 75 6f 74 65 20 6d 32 2d 6c 6f 6f 70 29	ine-key.map.".l".(quote.m2-loop)
0500	29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 6f 22 20 28 71 75 6f 74 65 20 6d 32	).(define-key.map.".o".(quote.m2
0520	2d 6f 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 70 22 20 28 71 75 6f 74	-or)).(define-key.map.".p".(quot
0540	65 20 6d 32 2d 70 72 6f 63 65 64 75 72 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70	e.m2-procedure)).(define-key.map
0560	20 22 03 17 22 20 28 71 75 6f 74 65 20 6d 32 2d 77 69 74 68 29 29 20 28 64 65 66 69 6e 65 2d 6b	."..".(quote.m2-with)).(define-k
0580	65 79 20 6d 61 70 20 22 03 72 22 20 28 71 75 6f 74 65 20 6d 32 2d 72 65 63 6f 72 64 29 29 20 28	ey.map.".r".(quote.m2-record)).(
05a0	64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 73 22 20 28 71 75 6f 74 65 20 6d 32 2d 73 74	define-key.map.".s".(quote.m2-st
05c0	64 69 6f 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 74 22 20 28 71 75 6f 74	dio)).(define-key.map.".t".(quot
05e0	65 20 6d 32 2d 74 79 70 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 75 22	e.m2-type)).(define-key.map.".u"
0600	20 28 71 75 6f 74 65 20 6d 32 2d 75 6e 74 69 6c 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d	.(quote.m2-until)).(define-key.m
0620	61 70 20 22 03 76 22 20 28 71 75 6f 74 65 20 6d 32 2d 76 61 72 29 29 20 28 64 65 66 69 6e 65 2d	ap.".v".(quote.m2-var)).(define-
0640	6b 65 79 20 6d 61 70 20 22 03 77 22 20 28 71 75 6f 74 65 20 6d 32 2d 77 68 69 6c 65 29 29 20 28	key.map.".w".(quote.m2-while)).(
0660	64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 78 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 78	define-key.map.".x".(quote.m2-ex
0680	70 6f 72 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 79 22 20 28 71 75 6f	port)).(define-key.map.".y".(quo
06a0	74 65 20 6d 32 2d 69 6d 70 6f 72 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22	te.m2-import)).(define-key.map."
06c0	03 7b 22 20 28 71 75 6f 74 65 20 6d 32 2d 62 65 67 69 6e 2d 63 6f 6d 6d 65 6e 74 29 29 20 28 64	.{".(quote.m2-begin-comment)).(d
06e0	65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 7d 22 20 28 71 75 6f 74 65 20 6d 32 2d 65 6e 64	efine-key.map.".}".(quote.m2-end
0700	2d 63 6f 6d 6d 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 1a 22 20	-comment)).(define-key.map."..".
0720	28 71 75 6f 74 65 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 29 29 20 28 64 65 66 69 6e 65 2d 6b	(quote.suspend-emacs)).(define-k
0740	65 79 20 6d 61 70 20 22 03 16 22 20 28 71 75 6f 74 65 20 6d 32 2d 76 69 73 69 74 29 29 20 28 64	ey.map."..".(quote.m2-visit)).(d
0760	65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 14 22 20 28 71 75 6f 74 65 20 6d 32 2d 74 6f 67	efine-key.map."..".(quote.m2-tog
0780	67 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 0c 22 20 28 71 75 6f 74	gle)).(define-key.map."..".(quot
07a0	65 20 6d 32 2d 6c 69 6e 6b 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 03 03 22	e.m2-link)).(define-key.map.".."
07c0	20 28 71 75 6f 74 65 20 6d 32 2d 63 6f 6d 70 69 6c 65 29 29 20 28 73 65 74 71 20 6d 32 2d 6d 6f	.(quote.m2-compile)).(setq.m2-mo
07e0	64 65 2d 6d 61 70 20 6d 61 70 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 32 2d 69 6e 64 65 6e 74	de-map.map)))..(defvar.m2-indent
0800	20 35 20 22 5c 0a 2a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 67 69 76 65 73 20 74 68 65 20 69	.5."\.*This.variable.gives.the.i
0820	6e 64 65 6e 74 61 74 69 6f 6e 20 69 6e 20 4d 6f 64 75 6c 61 2d 32 2d 4d 6f 64 65 22 29 0a 0a 28	ndentation.in.Modula-2-Mode")..(
0840	64 65 66 75 6e 20 6d 6f 64 75 6c 61 2d 32 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20	defun.modula-2-mode.nil."\.This.
0860	69 73 20 61 20 6d 6f 64 65 20 69 6e 74 65 6e 64 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 70 72	is.a.mode.intended.to.support.pr
0880	6f 67 72 61 6d 20 64 65 76 65 6c 6f 70 6d 65 6e 74 20 69 6e 20 4d 6f 64 75 6c 61 2d 32 2e 0a 41	ogram.development.in.Modula-2..A
08a0	6c 6c 20 63 6f 6e 74 72 6f 6c 20 63 6f 6e 73 74 72 75 63 74 73 20 6f 66 20 4d 6f 64 75 6c 61 2d	ll.control.constructs.of.Modula-
08c0	32 20 63 61 6e 20 62 65 20 72 65 61 63 68 65 64 20 62 79 20 74 79 70 69 6e 67 0a 43 6f 6e 74 72	2.can.be.reached.by.typing.Contr
08e0	6f 6c 2d 43 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 66 69 72 73 74 20 63 68 61 72 61	ol-C.followed.by.the.first.chara
0900	63 74 65 72 20 6f 66 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 2e 0a 5c 5c 7b 6d 32 2d 6d 6f 64	cter.of.the.construct..\\{m2-mod
0920	65 2d 6d 61 70 7d 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 62 20 62 65 67 69 6e 20 20 20 20 20 20	e-map}...Control-c.b.begin......
0940	20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 63 20 63 61 73 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20	...Control-c.c.case...Control-c.
0960	64 20 64 65 66 69 6e 69 74 69 6f 6e 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 65 20 65 6c 73 65	d.definition....Control-c.e.else
0980	0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 66 20 66 6f 72 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e	...Control-c.f.for...........Con
09a0	74 72 6f 6c 2d 63 20 68 20 68 65 61 64 65 72 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 69 20 69 66	trol-c.h.header...Control-c.i.if
09c0	20 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 6d 20 6d 6f 64 75 6c 65 0a 20	............Control-c.m.module..
09e0	20 43 6f 6e 74 72 6f 6c 2d 63 20 6c 20 6c 6f 6f 70 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72	.Control-c.l.loop..........Contr
0a00	6f 6c 2d 63 20 6f 20 6f 72 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 70 20 70 72 6f 63 65 64 75 72	ol-c.o.or...Control-c.p.procedur
0a20	65 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d 77 20 77 69 74 68 0a 20	e.....Control-c.Control-w.with..
0a40	20 43 6f 6e 74 72 6f 6c 2d 63 20 72 20 72 65 63 6f 72 64 20 20 20 20 20 20 20 20 43 6f 6e 74 72	.Control-c.r.record........Contr
0a60	6f 6c 2d 63 20 73 20 73 74 64 69 6f 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 74 20 74 79 70 65 20	ol-c.s.stdio...Control-c.t.type.
0a80	20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 75 20 75 6e 74 69 6c 0a 20 20 43 6f 6e	.........Control-c.u.until...Con
0aa0	74 72 6f 6c 2d 63 20 76 20 76 61 72 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63	trol-c.v.var...........Control-c
0ac0	20 77 20 77 68 69 6c 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 78 20 65 78 70 6f 72 74 20 20 20	.w.while...Control-c.x.export...
0ae0	20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 79 20 69 6d 70 6f 72 74 0a 20 20 43 6f 6e 74 72 6f	.....Control-c.y.import...Contro
0b00	6c 2d 63 20 7b 20 62 65 67 69 6e 2d 63 6f 6d 6d 65 6e 74 20 43 6f 6e 74 72 6f 6c 2d 63 20 7d 20	l-c.{.begin-comment.Control-c.}.
0b20	65 6e 64 2d 63 6f 6d 6d 65 6e 74 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f 6c 2d	end-comment...Control-c.Control-
0b40	7a 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f	z.suspend-emacs.....Control-c.Co
0b60	6e 74 72 6f 6c 2d 74 20 74 6f 67 67 6c 65 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72	ntrol-t.toggle...Control-c.Contr
0b80	6f 6c 2d 63 20 63 6f 6d 70 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 43 6f 6e 74 72 6f 6c 2d 78	ol-c.compile...........Control-x
0ba0	20 60 20 6e 65 78 74 2d 65 72 72 6f 72 0a 20 20 43 6f 6e 74 72 6f 6c 2d 63 20 43 6f 6e 74 72 6f	.`.next-error...Control-c.Contro
0bc0	6c 2d 6c 20 6c 69 6e 6b 0a 0a 20 20 20 6d 32 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 72 6f 6c 73 20	l-l.link.....m2-indent.controls.
0be0	74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 61 63 65 73 20 66 6f 72 20 65 61 63 68 20 69 6e	the.number.of.spaces.for.each.in
0c00	64 65 6e 74 61 74 69 6f 6e 2e 0a 20 20 20 6d 32 2d 63 6f 6d 70 69 6c 65 2d 63 6f 6d 6d 61 6e 64	dentation.....m2-compile-command
0c20	20 68 6f 6c 64 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 63 6f 6d 70 69 6c 65 20 61 20	.holds.the.command.to.compile.a.
0c40	4d 6f 64 75 6c 61 2d 32 20 70 72 6f 67 72 61 6d 2e 0a 20 20 20 6d 32 2d 6c 69 6e 6b 2d 63 6f 6d	Modula-2.program.....m2-link-com
0c60	6d 61 6e 64 20 68 6f 6c 64 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 6c 69 6e 6b 20 61	mand.holds.the.command.to.link.a
0c80	20 4d 6f 64 75 6c 61 2d 32 20 70 72 6f 67 72 61 6d 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	.Modula-2.program.".(interactive
0ca0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 d1 88 d2 20 88 d3 08 21 88 d4 89 11 88 d5 89 12 88 d6	).(byte-code.".......!..........
0cc0	c3 21 88 d7 89 13 88 d6 c4 21 88 d8 89 14 88 d9 0d 21 88 d6 c6 21 88 da 0e 07 50 89 16 06 88 d6	.!.......!.......!...!....P.....
0ce0	c8 21 88 0e 06 89 16 08 88 d6 c9 21 88 ca 89 16 09 88 d6 cb 21 88 ca 89 16 0b 88 d6 cc 21 88 db	.!.........!........!........!..
0d00	89 16 0c 88 d6 cd 21 88 dc 89 16 0d 88 d6 c3 21 88 d7 89 13 88 d6 ce 21 88 dd 89 16 0e 88 d6 cf	......!........!.......!........
0d20	21 88 de 89 16 0f 88 d6 d0 21 88 ca 89 16 10 88 df e0 21 87 22 20 5b 6d 32 2d 6d 6f 64 65 2d 6d	!........!........!.".[m2-mode-m
0d40	61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 63 6f 6d 6d 65 6e 74 2d	ap.major-mode.mode-name.comment-
0d60	63 6f 6c 75 6d 6e 20 65 6e 64 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6d 32 2d 6d 6f 64	column.end-comment-column.m2-mod
0d80	65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 70	e-syntax-table.paragraph-start.p
0da0	61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65	age-delimiter.paragraph-separate
0dc0	20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65 2d 66 69 6c 6c 2d 70 72 65 66 69 78 20 74 20	.paragraph-ignore-fill-prefix.t.
0de0	72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c 69 6e 65 20 63 6f 6d 6d 65 6e 74 2d 73 74	require-final-newline.comment-st
0e00	61 72 74 20 63 6f 6d 6d 65 6e 74 2d 65 6e 64 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b	art.comment-end.comment-start-sk
0e20	69 70 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 70 61 72 73 65 2d 73 65 78	ip.comment-indent-hook.parse-sex
0e40	70 2d 69 67 6e 6f 72 65 2d 63 6f 6d 6d 65 6e 74 73 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c	p-ignore-comments.nil.kill-all-l
0e60	6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 6f 64	ocal-variables.use-local-map.mod
0e80	75 6c 61 2d 32 2d 6d 6f 64 65 20 22 4d 6f 64 75 6c 61 2d 32 22 20 6d 61 6b 65 2d 6c 6f 63 61 6c	ula-2-mode."Modula-2".make-local
0ea0	2d 76 61 72 69 61 62 6c 65 20 34 31 20 37 35 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65	-variable.41.75.set-syntax-table
0ec0	20 22 5e 24 5c 5c 7c 22 20 22 28 2a 20 22 20 22 20 2a 29 22 20 22 2f 5c 5c 2a 2b 20 2a 22 20 63	."^$\\|"."(*.".".*)"."/\\*+.*".c
0ee0	2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 72 75 6e 2d 68 6f 6f 6b 73 20 6d 32 2d 6d 6f 64	-comment-indent.run-hooks.m2-mod
0f00	65 2d 68 6f 6f 6b 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 6e 65 77 6c 69 6e 65 20	e-hook].17))..(defun.m2-newline.
0f20	6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 6e 65 77 6c 69 6e 65 20 61 6e 64 20 69 6e 64 65	nil."\.Insert.a.newline.and.inde
0f40	6e 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 20 6c 69 6b 65 20 70 72 65 76 69 6f 75 73 20	nt.following.line.like.previous.
0f60	6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20	line.".(interactive).(byte-code.
0f80	22 c1 88 c2 20 18 c3 20 88 08 6a 29 87 22 20 5b 68 70 6f 73 20 6e 69 6c 20 63 75 72 72 65 6e 74	".........j).".[hpos.nil.current
0fa0	2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 65 77 6c 69 6e 65 5d 20 33 29 29 0a 0a 28 64 65 66 75	-indentation.newline].3))..(defu
0fc0	6e 20 6d 32 2d 74 61 62 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 74 6f 20 6e 65 78 74 20 74	n.m2-tab.nil."\.Indent.to.next.t
0fe0	61 62 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f	ab.stop.".(interactive).(byte-co
1000	64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 54 08 5c 22 6a 87 22 20 5b 6d 32 2d 69 6e 64 65 6e 74 20	de.".......\"T.\"j.".[m2-indent.
1020	6e 69 6c 20 2a 20 2f 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 35 29 29	nil.*./.current-indentation].5))
1040	0a 0a 28 64 65 66 75 6e 20 6d 32 2d 62 65 67 69 6e 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20	..(defun.m2-begin.nil."\.Insert.
1060	61 20 42 45 47 49 4e 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 74	a.BEGIN.keyword.and.indent.for.t
1080	68 65 20 6e 65 78 74 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79	he.next.line.".(interactive).(by
10a0	74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c3 20 87 22 20 5b 6e 69 6c 20 22 42 45 47 49	te-code."...c.......".[nil."BEGI
10c0	4e 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 6d 32 2d 74 61 62 5d 20 33 29 29 0a 0a 28 64 65 66 75	N".m2-newline.m2-tab].3))..(defu
10e0	6e 20 6d 32 2d 63 61 73 65 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20	n.m2-case.nil."\.Build.skeleton.
1100	43 41 53 45 20 73 74 61 74 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65	CASE.statment,.prompting.for.the
1120	20 3c 65 78 70 72 65 73 73 69 6f 6e 3e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	.<expression>.".(interactive).(b
1140	79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 c4 21 c5 23 88 c6 20 88 c6 20 88 c7 63 88 c8 c9 21	yte-code."......!.#........c...!
1160	88 ca 20 87 22 20 5b 6e 69 6c 20 69 6e 73 65 72 74 20 22 43 41 53 45 20 22 20 72 65 61 64 2d 73	....".[nil.insert."CASE.".read-s
1180	74 72 69 6e 67 20 22 3a 20 22 20 22 20 4f 46 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44	tring.":.".".OF".m2-newline."END
11a0	20 28 2a 20 63 61 73 65 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74	.(*.case.*);".end-of-line.0.m2-t
11c0	61 62 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69	ab].7))..(defun.m2-definition.ni
11e0	6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 44 45 46 49 4e 49 54 49 4f 4e 20 4d	l."\.Build.skeleton.DEFINITION.M
1200	4f 44 55 4c 45 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 68 65 20 3c 6d 6f 64 75 6c 65	ODULE,.prompting.for.the.<module
1220	20 6e 61 6d 65 3e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64	.name>.".(interactive).(byte-cod
1240	65 20 22 c1 88 c2 63 88 c3 c4 21 18 c5 08 c6 08 c7 24 29 88 c8 c9 21 87 22 20 5b 6e 61 6d 65 20	e."...c...!......$)...!.".[name.
1260	6e 69 6c 20 22 44 45 46 49 4e 49 54 49 4f 4e 20 4d 4f 44 55 4c 45 20 22 20 72 65 61 64 2d 73 74	nil."DEFINITION.MODULE.".read-st
1280	72 69 6e 67 20 22 4e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 3b 0a 0a 0a 0a 45 4e 44 20 22	ring."Name:.".insert.";....END."
12a0	20 22 2e 0a 22 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 33 5d 20 36 29 29 0a 0a 28 64 65 66	."..".previous-line.3].6))..(def
12c0	75 6e 20 6d 32 2d 65 6c 73 65 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 45 4c 53 45 20 6b 65	un.m2-else.nil."\.Insert.ELSE.ke
12e0	79 77 6f 72 64 20 61 6e 64 20 69 6e 64 65 6e 74 20 66 6f 72 20 6e 65 78 74 20 6c 69 6e 65 2e 22	yword.and.indent.for.next.line."
1300	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88	.(interactive).(byte-code.".....
1320	c3 08 c1 5c 22 88 c4 63 88 c2 20 88 c5 20 87 22 20 5b 6d 32 2d 69 6e 64 65 6e 74 20 6e 69 6c 20	...\"..c.......".[m2-indent.nil.
1340	6d 32 2d 6e 65 77 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 2d	m2-newline.backward-delete-char-
1360	75 6e 74 61 62 69 66 79 20 22 45 4c 53 45 22 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65	untabify."ELSE".m2-tab].5))..(de
1380	66 75 6e 20 6d 32 2d 66 6f 72 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e	fun.m2-for.nil."\.Build.skeleton
13a0	20 46 4f 52 20 6c 6f 6f 70 20 73 74 61 74 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f	.FOR.loop.statment,.prompting.fo
13c0	72 20 74 68 65 20 6c 6f 6f 70 20 70 61 72 61 6d 65 74 65 72 73 2e 22 20 28 69 6e 74 65 72 61 63	r.the.loop.parameters.".(interac
13e0	74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 c5 21 c6 c4 c7 21 24 88 c4	tive).(byte-code."......!...!$..
1400	c8 21 18 c9 08 ca 5c 22 3f 85 1d 00 c2 cb 08 5c 22 29 88 cc 63 88 cd 20 88 cd 20 88 ce 63 88 cf	.!....\"?......\")..c........c..
1420	d0 21 88 d1 20 87 22 20 5b 62 79 20 6e 69 6c 20 69 6e 73 65 72 74 20 22 46 4f 52 20 22 20 72 65	.!....".[by.nil.insert."FOR.".re
1440	61 64 2d 73 74 72 69 6e 67 20 22 69 6e 69 74 3a 20 22 20 22 20 54 4f 20 22 20 22 65 6e 64 3a 20	ad-string."init:.".".TO."."end:.
1460	22 20 22 62 79 3a 20 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 22 20 42 59 20 22 20	"."by:.".string-equal."".".BY.".
1480	22 20 44 4f 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 66 6f 72 20 2a 29 3b	".DO".m2-newline."END.(*.for.*);
14a0	22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 31 31 29 29 0a 0a 28 64	".end-of-line.0.m2-tab].11))..(d
14c0	65 66 75 6e 20 6d 32 2d 68 65 61 64 65 72 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 63	efun.m2-header.nil."\.Insert.a.c
14e0	6f 6d 6d 65 6e 74 20 62 6c 6f 63 6b 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 6d 6f 64 75	omment.block.containing.the.modu
1500	6c 65 20 74 69 74 6c 65 2c 20 61 75 74 68 6f 72 2c 20 65 74 63 2e 22 20 28 69 6e 74 65 72 61 63	le.title,.author,.etc.".(interac
1520	74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 63 88 c4 63 88 c5	tive).(byte-code."...c...!c..c..
1540	20 63 88 c6 63 88 c7 20 63 88 c8 c9 ca 20 cb cc 20 cd 25 63 88 ce 63 87 22 20 5b 6e 69 6c 20 22	.c..c...c.........%c..c.".[nil."
1560	28 2a 0a 20 20 20 20 54 69 74 6c 65 3a 20 09 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 54 69	(*.....Title:..".read-string."Ti
1580	74 6c 65 3a 20 22 20 22 0a 20 20 20 20 43 72 65 61 74 65 64 3a 09 22 20 63 75 72 72 65 6e 74 2d	tle:.".".....Created:.".current-
15a0	74 69 6d 65 2d 73 74 72 69 6e 67 20 22 0a 20 20 20 20 41 75 74 68 6f 72 3a 20 09 22 20 75 73 65	time-string.".....Author:..".use
15c0	72 2d 66 75 6c 6c 2d 6e 61 6d 65 20 63 6f 6e 63 61 74 20 22 0a 09 09 3c 22 20 75 73 65 72 2d 6c	r-full-name.concat."...<".user-l
15e0	6f 67 69 6e 2d 6e 61 6d 65 20 22 40 22 20 73 79 73 74 65 6d 2d 6e 61 6d 65 20 22 3e 0a 22 20 22	ogin-name."@".system-name.">."."
1600	2a 29 0a 0a 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 69 66 20 6e 69 6c 20 22 5c	*).."].11))..(defun.m2-if.nil."\
1620	0a 49 6e 73 65 72 74 20 73 6b 65 6c 65 74 6f 6e 20 49 46 20 73 74 61 74 6d 65 6e 74 2c 20 70 72	.Insert.skeleton.IF.statment,.pr
1640	6f 6d 70 74 69 6e 67 20 66 6f 72 20 3c 62 6f 6f 6c 65 61 6e 2d 65 78 70 72 65 73 73 69 6f 6e 3e	ompting.for.<boolean-expression>
1660	2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1	.".(interactive).(byte-code."...
1680	c2 c3 c4 21 c5 23 88 c6 20 88 c6 20 88 c7 63 88 c8 c9 21 88 ca 20 87 22 20 5b 6e 69 6c 20 69 6e	...!.#........c...!....".[nil.in
16a0	73 65 72 74 20 22 49 46 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 3c 62 6f 6f 6c 65 61 6e	sert."IF.".read-string."<boolean
16c0	2d 65 78 70 72 65 73 73 69 6f 6e 3e 3a 20 22 20 22 20 54 48 45 4e 22 20 6d 32 2d 6e 65 77 6c 69	-expression>:.".".THEN".m2-newli
16e0	6e 65 20 22 45 4e 44 20 28 2a 20 69 66 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30	ne."END.(*.if.*);".end-of-line.0
1700	20 6d 32 2d 74 61 62 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 6c 6f 6f 70 20 6e 69 6c	.m2-tab].7))..(defun.m2-loop.nil
1720	20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e 20 4c 4f 4f 50 20 28 77 69 74 68 20 45 4e	."\.Build.skeleton.LOOP.(with.EN
1740	44 29 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0	D).".(interactive).(byte-code.".
1760	88 c1 63 88 c2 20 88 c2 20 88 c3 63 88 c4 c5 21 88 c6 20 87 22 20 5b 6e 69 6c 20 22 4c 4f 4f 50	..c........c...!....".[nil."LOOP
1780	22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 6c 6f 6f 70 20 2a 29 3b 22 20 65	".m2-newline."END.(*.loop.*);".e
17a0	6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e	nd-of-line.0.m2-tab].5))..(defun
17c0	20 6d 32 2d 6d 6f 64 75 6c 65 20 6e 69 6c 20 22 5c 0a 42 75 69 6c 64 20 73 6b 65 6c 65 74 6f 6e	.m2-module.nil."\.Build.skeleton
17e0	20 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e 20 4d 4f 44 55 4c 45 2c 20 70 72 6f 6d 70 74 69 6e	.IMPLEMENTATION.MODULE,.promptin
1800	67 20 66 6f 72 20 3c 6d 6f 64 75 6c 65 2d 6e 61 6d 65 3e 2e 22 20 28 69 6e 74 65 72 61 63 74 69	g.for.<module-name>.".(interacti
1820	76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 63 88 c3 c4 21 18 c5 08 c6 08 c7 24 29	ve).(byte-code."...c...!......$)
1840	88 c8 c9 21 87 22 20 5b 6e 61 6d 65 20 6e 69 6c 20 22 49 4d 50 4c 45 4d 45 4e 54 41 54 49 4f 4e	...!.".[name.nil."IMPLEMENTATION
1860	20 4d 4f 44 55 4c 45 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 4e 61 6d 65 3a 20 22 20 69	.MODULE.".read-string."Name:.".i
1880	6e 73 65 72 74 20 22 3b 0a 0a 0a 0a 45 4e 44 20 22 20 22 2e 0a 22 20 70 72 65 76 69 6f 75 73 2d	nsert.";....END."."..".previous-
18a0	6c 69 6e 65 20 33 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 6f 72 20 6e 69 6c 20 28 69	line.3].6))..(defun.m2-or.nil.(i
18c0	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 c3 08 21	nteractive).(byte-code.".......!
18e0	88 c4 63 88 c2 20 88 c5 20 87 22 20 5b 6d 32 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 6d 32 2d 6e 65	..c.......".[m2-indent.nil.m2-ne
1900	77 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62	wline.backward-delete-char-untab
1920	69 66 79 20 22 7c 22 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 70	ify."|".m2-tab].5))..(defun.m2-p
1940	72 6f 63 65 64 75 72 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65	rocedure.nil.(interactive).(byte
1960	2d 63 6f 64 65 20 22 c2 88 c3 63 88 c4 c5 21 c2 19 18 c6 08 c7 5c 22 88 c6 c4 c8 21 c9 5c 22 88	-code."...c...!......\"....!.\".
1980	c4 ca 21 89 11 88 cb 09 cc 5c 22 3f 85 29 00 c6 cd 09 5c 22 88 ce 63 88 cf 20 88 d0 63 88 cf 20	..!......\"?.)....\"..c.....c...
19a0	88 cf 20 88 d1 63 88 08 63 88 ce 63 88 d2 d3 21 88 d4 20 2a 87 22 20 5b 6e 61 6d 65 20 61 72 67	.....c..c..c...!...*.".[name.arg
19c0	73 20 6e 69 6c 20 22 50 52 4f 43 45 44 55 52 45 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22	s.nil."PROCEDURE.".read-string."
19e0	4e 61 6d 65 3a 20 22 20 69 6e 73 65 72 74 20 22 20 28 22 20 22 41 72 67 75 6d 65 6e 74 73 3a 20	Name:.".insert.".("."Arguments:.
1a00	22 20 22 29 22 20 22 52 65 73 75 6c 74 20 54 79 70 65 3a 20 22 20 73 74 72 69 6e 67 2d 65 71 75	".")"."Result.Type:.".string-equ
1a20	61 6c 20 22 22 20 22 20 3a 20 22 20 22 3b 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 42 45 47 49	al."".".:.".";".m2-newline."BEGI
1a40	4e 22 20 22 45 4e 44 20 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20	N"."END.".end-of-line.0.m2-tab].
1a60	31 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 77 69 74 68 20 6e 69 6c 20 28 69 6e 74 65 72 61	13))..(defun.m2-with.nil.(intera
1a80	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 63 88 c4 63 88	ctive).(byte-code."...c...!c..c.
1aa0	c5 20 88 c5 20 88 c6 63 88 c7 c8 21 88 c9 20 87 22 20 5b 6e 69 6c 20 22 57 49 54 48 20 22 20 72	.......c...!....".[nil."WITH.".r
1ac0	65 61 64 2d 73 74 72 69 6e 67 20 22 3a 20 22 20 22 20 44 4f 22 20 6d 32 2d 6e 65 77 6c 69 6e 65	ead-string.":.".".DO".m2-newline
1ae0	20 22 45 4e 44 20 28 2a 20 77 69 74 68 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30	."END.(*.with.*);".end-of-line.0
1b00	20 6d 32 2d 74 61 62 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 72 65 63 6f 72 64 20 6e	.m2-tab].6))..(defun.m2-record.n
1b20	69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1	il.(interactive).(byte-code."...
1b40	63 88 c2 20 88 c2 20 88 c3 63 88 c4 c5 21 88 c6 20 87 22 20 5b 6e 69 6c 20 22 52 45 43 4f 52 44	c........c...!....".[nil."RECORD
1b60	22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a 20 72 65 63 6f 72 64 20 2a 29 3b 22	".m2-newline."END.(*.record.*);"
1b80	20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 35 29 29 0a 0a 28 64 65 66	.end-of-line.0.m2-tab].5))..(def
1ba0	75 6e 20 6d 32 2d 73 74 64 69 6f 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	un.m2-stdio.nil.(interactive).(b
1bc0	79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 87 22 20 5b 6e 69 6c 20 22 0a 3e 46 52 4f 4d 20 54 65	yte-code."...c.".[nil.".>FROM.Te
1be0	78 74 49 4f 20 49 4d 50 4f 52 54 20 0a 20 20 20 57 72 69 74 65 43 48 41 52 2c 20 52 65 61 64 43	xtIO.IMPORT.....WriteCHAR,.ReadC
1c00	48 41 52 2c 20 57 72 69 74 65 49 4e 54 45 47 45 52 2c 20 52 65 61 64 49 4e 54 45 47 45 52 2c 0a	HAR,.WriteINTEGER,.ReadINTEGER,.
1c20	20 20 20 57 72 69 74 65 43 41 52 44 49 4e 41 4c 2c 20 52 65 61 64 43 41 52 44 49 4e 41 4c 2c 20	...WriteCARDINAL,.ReadCARDINAL,.
1c40	57 72 69 74 65 42 4f 4f 4c 45 41 4e 2c 20 52 65 61 64 42 4f 4f 4c 45 41 4e 2c 0a 20 20 20 57 72	WriteBOOLEAN,.ReadBOOLEAN,....Wr
1c60	69 74 65 52 45 41 4c 2c 20 52 65 61 64 52 45 41 4c 2c 20 57 72 69 74 65 42 49 54 53 45 54 2c 20	iteREAL,.ReadREAL,.WriteBITSET,.
1c80	52 65 61 64 42 49 54 53 45 54 2c 0a 20 20 20 57 72 69 74 65 42 61 73 65 64 43 41 52 44 49 4e 41	ReadBITSET,....WriteBasedCARDINA
1ca0	4c 2c 20 52 65 61 64 42 61 73 65 64 43 41 52 44 49 4e 41 4c 2c 20 57 72 69 74 65 43 68 61 72 73	L,.ReadBasedCARDINAL,.WriteChars
1cc0	2c 20 52 65 61 64 43 68 61 72 73 2c 0a 20 20 20 57 72 69 74 65 53 74 72 69 6e 67 2c 20 52 65 61	,.ReadChars,....WriteString,.Rea
1ce0	64 53 74 72 69 6e 67 2c 20 57 68 69 74 65 53 70 61 63 65 2c 20 45 6e 64 4f 66 4c 69 6e 65 3b 0a	dString,.WhiteSpace,.EndOfLine;.
1d00	0a 3e 46 52 4f 4d 20 53 79 73 53 74 72 65 61 6d 73 20 49 4d 50 4f 52 54 20 73 79 73 49 6e 2c 20	.>FROM.SysStreams.IMPORT.sysIn,.
1d20	73 79 73 4f 75 74 2c 20 73 79 73 45 72 72 3b 0a 0a 22 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20	sysOut,.sysErr;.."].1))..(defun.
1d40	6d 32 2d 74 79 70 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d	m2-type.nil.(interactive).(byte-
1d60	63 6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c3 20 87 22 20 5b 6e 69 6c 20 22 54 59 50 45 22 20 6d	code."...c.......".[nil."TYPE".m
1d80	32 2d 6e 65 77 6c 69 6e 65 20 6d 32 2d 74 61 62 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32	2-newline.m2-tab].3))..(defun.m2
1da0	2d 75 6e 74 69 6c 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63	-until.nil.(interactive).(byte-c
1dc0	6f 64 65 20 22 c0 88 c1 63 88 c2 20 88 c2 20 88 c3 63 88 c4 c5 c6 21 c7 5c 22 88 c8 c9 21 88 ca	ode."...c........c....!.\"...!..
1de0	20 87 22 20 5b 6e 69 6c 20 22 52 45 50 45 41 54 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 55 4e	..".[nil."REPEAT".m2-newline."UN
1e00	54 49 4c 20 22 20 69 6e 73 65 72 74 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 3a 20 22 20 22 3b	TIL.".insert.read-string.":.".";
1e20	22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62 5d 20 37 29 29 0a 0a 28 64 65	".end-of-line.0.m2-tab].7))..(de
1e40	66 75 6e 20 6d 32 2d 76 61 72 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79	fun.m2-var.nil.(interactive).(by
1e60	74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 63 88 c1 20 88 c3 20 87 22 20 5b 6e 69 6c 20 6d 32	te-code."......c.......".[nil.m2
1e80	2d 6e 65 77 6c 69 6e 65 20 22 56 41 52 22 20 6d 32 2d 74 61 62 5d 20 34 29 29 0a 0a 28 64 65 66	-newline."VAR".m2-tab].4))..(def
1ea0	75 6e 20 6d 32 2d 77 68 69 6c 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	un.m2-while.nil.(interactive).(b
1ec0	79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 63 88 c4 63 88 c5 20 88 c5 20 88 c6 63 88	yte-code."...c...!c..c........c.
1ee0	c7 c8 21 88 c9 20 87 22 20 5b 6e 69 6c 20 22 57 48 49 4c 45 20 22 20 72 65 61 64 2d 73 74 72 69	..!....".[nil."WHILE.".read-stri
1f00	6e 67 20 22 3a 20 22 20 22 20 44 4f 22 20 6d 32 2d 6e 65 77 6c 69 6e 65 20 22 45 4e 44 20 28 2a	ng.":.".".DO".m2-newline."END.(*
1f20	20 77 68 69 6c 65 20 2a 29 3b 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 30 20 6d 32 2d 74 61 62	.while.*);".end-of-line.0.m2-tab
1f40	5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 65 78 70 6f 72 74 20 6e 69 6c 20 28 69 6e 74	].6))..(defun.m2-export.nil.(int
1f60	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 87 22 20 5b 6e 69	eractive).(byte-code."...c.".[ni
1f80	6c 20 22 45 58 50 4f 52 54 20 51 55 41 4c 49 46 49 45 44 20 22 5d 20 31 29 29 0a 0a 28 64 65 66	l."EXPORT.QUALIFIED."].1))..(def
1fa0	75 6e 20 6d 32 2d 69 6d 70 6f 72 74 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28	un.m2-import.nil.(interactive).(
1fc0	62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 63 88 c2 c3 21 63 88 c4 63 87 22 20 5b 6e 69 6c 20 22	byte-code."...c...!c..c.".[nil."
1fe0	46 52 4f 4d 20 22 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 4d 6f 64 75 6c 65 3a 20 22 20 22 20	FROM.".read-string."Module:.".".
2000	49 4d 50 4f 52 54 20 22 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 62 65 67 69 6e 2d 63	IMPORT."].2))..(defun.m2-begin-c
2020	6f 6d 6d 65 6e 74 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63	omment.nil.(interactive).(byte-c
2040	6f 64 65 20 22 c1 88 6e 3f 85 0b 00 c2 08 c3 5c 22 88 c4 63 87 22 20 5b 63 6f 6d 6d 65 6e 74 2d	ode."..n?......\"..c.".[comment-
2060	63 6f 6c 75 6d 6e 20 6e 69 6c 20 69 6e 64 65 6e 74 2d 74 6f 20 30 20 22 28 2a 20 20 22 5d 20 33	column.nil.indent-to.0."(*.."].3
2080	29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 65 6e 64 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 20 28 69	))..(defun.m2-end-comment.nil.(i
20a0	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 6e 3f 85 09 00 08	nteractive).(byte-code."..n?....
20c0	6a 88 c2 63 87 22 20 5b 65 6e 64 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20 22	j..c.".[end-comment-column.nil."
20e0	2a 29 22 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 63 6f 6d 70 69 6c 65 20 6e 69 6c 20	*)"].1))..(defun.m2-compile.nil.
2100	28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 20 89 10	(interactive).(byte-code."......
2120	88 c4 09 c5 08 51 21 87 22 20 5b 6d 6f 64 75 6c 65 6e 61 6d 65 20 6d 32 2d 63 6f 6d 70 69 6c 65	.....Q!.".[modulename.m2-compile
2140	2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 63 6f 6d 70 69 6c 65	-command.nil.buffer-name.compile
2160	20 22 20 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 6c 69 6e 6b 20 6e 69 6c 20 28 69	."."].5))..(defun.m2-link.nil.(i
2180	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 89 10 88 09	nteractive).(byte-code."........
21a0	83 14 00 c5 0a c6 09 51 21 82 1f 00 c5 0a c6 c7 c8 08 5c 22 89 11 51 21 87 22 20 5b 6d 6f 64 75	.......Q!.........\"..Q!.".[modu
21c0	6c 65 6e 61 6d 65 20 6d 32 2d 6c 69 6e 6b 2d 6e 61 6d 65 20 6d 32 2d 6c 69 6e 6b 2d 63 6f 6d 6d	lename.m2-link-name.m2-link-comm
21e0	61 6e 64 20 6e 69 6c 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 63 6f 6d 70 69 6c 65 20 22 20 22 20	and.nil.buffer-name.compile.".".
2200	72 65 61 64 2d 73 74 72 69 6e 67 20 22 4e 61 6d 65 20 6f 66 20 65 78 65 63 75 74 61 62 6c 65 3a	read-string."Name.of.executable:
2220	20 22 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 65 63 75 74 65 2d 6d 6f 6e 69 74 6f 72 2d	."].8))..(defun.execute-monitor-
2240	63 6f 6d 6d 61 6e 64 20 28 63 6f 6d 6d 61 6e 64 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18	command.(command).(byte-code."..
2260	c6 c7 08 21 c8 5c 22 1a c9 08 c3 c4 c4 ca cb 0d 50 26 06 2a 87 22 20 5b 73 68 65 6c 6c 20 73 68	...!.\".........P&.*.".[shell.sh
2280	65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 73 68 20 6e 69 6c 20 74 20 63 6f 6d 6d 61 6e 64 20	ell-file-name.csh.nil.t.command.
22a0	65 71 75 61 6c 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 63 73	equal.file-name-nondirectory."cs
22c0	68 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 2d 63 66 22 20 22 65 78 65 63 20 22 5d 20 31	h".call-process."-cf"."exec."].1
22e0	30 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 76 69 73 69 74 20 6e 69 6c 20 28 69 6e 74 65 72 61	0))..(defun.m2-visit.nil.(intera
2300	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c1 c1 c1 1b 1a 18 8a c4 c5 21 89	ctive).(byte-code."...........!.
2320	13 88 c6 c7 21 88 c8 c9 0b 50 21 88 65 62 88 c1 ca cb 8f 88 c1 cc cd 8f 88 08 86 2b 00 0a 3f 85	....!....P!.eb.............+..?.
2340	33 00 ce cf 0b 5c 22 29 88 08 83 49 00 d0 08 21 88 0a 85 46 00 8a d0 0a 21 29 82 50 00 0a 85 50	3....\")...I...!...F....!).P...P
2360	00 d0 0a 21 2b 87 22 20 5b 64 65 66 66 69 6c 65 20 6e 69 6c 20 6d 6f 64 66 69 6c 65 20 6d 6f 64	...!+.".[deffile.nil.modfile.mod
2380	75 6c 65 6e 61 6d 65 20 72 65 61 64 2d 73 74 72 69 6e 67 20 22 4d 6f 64 75 6c 65 20 6e 61 6d 65	ulename.read-string."Module.name
23a0	3a 20 22 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 43 6f 6d 6d 61 6e 64 20 45	:.".switch-to-buffer."*Command.E
23c0	78 65 63 75 74 69 6f 6e 2a 22 20 65 78 65 63 75 74 65 2d 6d 6f 6e 69 74 6f 72 2d 63 6f 6d 6d 61	xecution*".execute-monitor-comma
23e0	6e 64 20 22 6d 32 77 68 65 72 65 69 73 20 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 21 88	nd."m2whereis.".(byte-code."..!.
2400	c3 c4 c5 21 c6 c5 21 5c 22 89 10 87 22 20 5b 64 65 66 66 69 6c 65 20 72 65 2d 73 65 61 72 63 68	...!..!\"...".[deffile.re-search
2420	2d 66 6f 72 77 61 72 64 20 22 5c 5c 28 2e 2a 5c 5c 2e 64 65 66 5c 5c 29 20 2a 24 22 20 62 75 66	-forward."\\(.*\\.def\\).*$".buf
2440	66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 20	fer-substring.match-beginning.1.
2460	6d 61 74 63 68 2d 65 6e 64 5d 20 36 29 20 28 28 73 65 61 72 63 68 2d 66 61 69 6c 65 64 20 28 62	match-end].6).((search-failed.(b
2480	79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 28 62 79 74 65 2d 63	yte-code."..".[nil].1))).(byte-c
24a0	6f 64 65 20 22 c1 c2 21 88 c3 c4 c5 21 c6 c5 21 5c 22 89 10 87 22 20 5b 6d 6f 64 66 69 6c 65 20	ode."..!....!..!\"...".[modfile.
24c0	72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 28 2e 2a 5c 5c 2e 6d 6f 64 5c 5c	re-search-forward."\\(.*\\.mod\\
24e0	29 20 2a 24 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 74 63 68 2d 62 65 67	).*$".buffer-substring.match-beg
2500	69 6e 6e 69 6e 67 20 31 20 6d 61 74 63 68 2d 65 6e 64 5d 20 36 29 20 28 28 73 65 61 72 63 68 2d	inning.1.match-end].6).((search-
2520	66 61 69 6c 65 64 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29	failed.(byte-code."..".[nil].1))
2540	29 20 65 72 72 6f 72 20 22 49 20 63 61 6e 20 66 69 6e 64 20 6e 65 69 74 68 65 72 20 64 65 66 69	).error."I.can.find.neither.defi
2560	6e 69 74 69 6f 6e 20 6e 6f 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 25 73 22	nition.nor.implementation.of.%s"
2580	20 66 69 6e 64 2d 66 69 6c 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 6d 32 2d 74 6f 67 67 6c	.find-file].8))..(defun.m2-toggl
25a0	65 20 6e 69 6c 20 22 5c 0a 54 6f 67 67 6c 65 20 62 65 74 77 65 65 6e 20 2e 6d 6f 64 20 61 6e 64	e.nil."\.Toggle.between..mod.and
25c0	20 2e 64 65 66 20 66 69 6c 65 73 20 66 6f 72 20 74 68 65 20 6d 6f 64 75 6c 65 2e 22 20 28 69 6e	..def.files.for.the.module.".(in
25e0	74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 c3 c0 4f c4	teractive).(byte-code.".......O.
2600	5c 22 83 19 00 c5 c2 20 c6 c3 4f c7 50 21 82 5b 00 c1 c2 20 c3 c0 4f c7 5c 22 83 30 00 c5 c2 20	\"........O.P!.[......O.\".0....
2620	c6 c3 4f c4 50 21 82 5b 00 c1 c2 20 c8 c0 4f c9 5c 22 83 47 00 c5 c2 20 c6 c8 4f ca 50 21 82 5b	..O.P!.[......O.\".G......O.P!.[
2640	00 c1 c2 20 c8 c0 4f ca 5c 22 85 5b 00 c5 c2 20 c6 c8 4f c9 50 21 87 22 20 5b 6e 69 6c 20 73 74	......O.\".[......O.P!.".[nil.st
2660	72 69 6e 67 2d 65 71 75 61 6c 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 2d 34 20 22 2e 64 65 66 22	ring-equal.buffer-name.-4.".def"
2680	20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 30 20 22 2e 6d 6f 64 22	.find-file-other-window.0.".mod"
26a0	20 2d 33 20 22 2e 6d 69 22 20 22 2e 6d 64 22 5d 20 31 39 29 29 0a	.-3.".mi".".md"].19)).