blob: 76667f4ba649b9ec085e6839881b1b8dc867bc90 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 6c 61 62 65 6c 20 22 5e 5b 41 2d 5a 61 2d 7a 5f	.(defvar.simula-label."^[A-Za-z_
0020	7b 7c 7d 5d 2b 3a 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 43 45 20 22 65 6c 73	{|}]+:")..(defvar.simula-CE."els
0040	65 5c 5c 62 5c 5c 7c 77 68 65 6e 5c 5c 62 5c 5c 7c 6f 74 68 65 72 77 69 73 65 5c 5c 62 22 29 0a	e\\b\\|when\\b\\|otherwise\\b").
0060	0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 43 42 20 22 65 6e 64 5c 5c 62 5c 5c 7c 21 5c 5c	.(defvar.simula-CB."end\\b\\|!\\
0080	7c 63 6f 6d 6d 65 6e 74 5c 5c 62 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 42 45	|comment\\b")..(defvar.simula-BE
00a0	20 22 65 6e 64 5c 5c 62 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 42 42 20 22 62	."end\\b")..(defvar.simula-BB."b
00c0	65 67 69 6e 5c 5c 62 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 46 42 20 22 69 66	egin\\b")..(defvar.simula-FB."if
00e0	5c 5c 62 5c 5c 7c 77 68 69 6c 65 5c 5c 62 5c 5c 7c 69 6e 73 70 65 63 74 5c 5c 62 5c 5c 7c 66 6f	\\b\\|while\\b\\|inspect\\b\\|fo
0100	72 5c 5c 62 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 65 6f 6c 20 22 0a 22 29 0a	r\\b")..(defvar.simula-eol.".").
0120	0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 65 6f 66 20 22 40 22 29 0a 0a 28 64 65 66 76 61	.(defvar.simula-eof."@")..(defva
0140	72 20 73 69 6d 75 6c 61 2d 65 78 74 65 6e 64 65 64 2d 66 6f 72 6d 20 6e 69 6c 20 22 5c 0a 6e 6f	r.simula-extended-form.nil."\.no
0160	6e 2d 6e 69 6c 20 69 66 20 77 61 6e 74 20 6e 6f 6e 2d 73 74 61 6e 64 61 72 64 20 73 6c 6f 77 6c	n-nil.if.want.non-standard.slowl
0180	79 20 28 65 78 74 65 6e 64 65 64 29 20 66 6f 72 6d 20 63 68 65 63 6b 69 6e 67 22 29 0a 0a 28 64	y.(extended).form.checking")..(d
01a0	65 66 76 61 72 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e	efvar.simula-mode-syntax-table.n
01c0	69 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61 62 6c 65 20 69 6e 20 73 69 6d 75 6c 61 2d 6d 6f 64	il."\.Syntax.table.in.simula-mod
01e0	65 20 62 75 66 66 65 72 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 6d 6f 64	e.buffers.")..(defvar.simula-mod
0200	65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 61 62 62 72 65 76 20 74 61 62	e-abbrev-table.nil."\.abbrev.tab
0220	6c 65 20 69 6e 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 20 62 75 66 66 65 72 73 22 29 0a 0a 28 64 65	le.in.simula-mode.buffers")..(de
0240	66 76 61 72 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 20 28 71 75 6f 74 65 20 73	fvar.simula-indent-mode.(quote.s
0260	69 6d 75 6c 61 2d 4e 69 63 65 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 76 61	imula-Nice-indent-mode))..(defva
0280	72 20 52 65 61 64 2d 53 69 6d 75 6c 61 2d 4b 65 79 77 6f 72 64 73 20 6e 69 6c 20 22 5c 0a 6e 6f	r.Read-Simula-Keywords.nil."\.no
02a0	6e 2d 6e 69 6c 20 69 66 20 72 65 61 64 20 6b 65 79 77 6f 72 64 73 20 61 6c 72 65 61 64 79 22 29	n-nil.if.read.keywords.already")
02c0	0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 73 69	..(define-abbrev-table.(quote.si
02e0	6d 75 6c 61 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 64	mula-mode-abbrev-table).nil)..(d
0300	65 66 76 61 72 20 53 69 6d 75 6c 61 2d 4b 65 79 77 6f 72 64 2d 41 62 62 72 65 76 2d 46 69 6c 65	efvar.Simula-Keyword-Abbrev-File
0320	20 22 73 69 6d 75 6c 61 2e 64 65 66 6e 73 22 20 22 5c 0a 6e 69 6c 20 69 66 20 6e 6f 74 20 74 6f	."simula.defns"."\.nil.if.not.to
0340	20 6c 6f 61 64 20 74 68 65 20 43 61 70 69 74 61 6c 69 7a 65 20 4b 65 79 77 6f 72 64 73 20 66 65	.load.the.Capitalize.Keywords.fe
0360	61 74 75 72 65 22 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 69 67 6e	ature")..(defvar.simula-mode-ign
0380	6f 72 65 2d 64 69 72 65 63 74 69 76 65 73 20 74 20 22 5c 0a 53 65 74 20 74 6f 20 6e 6f 6e 20 6e	ore-directives.t."\.Set.to.non.n
03a0	69 6c 20 69 66 20 64 6f 65 73 6e 27 74 20 75 73 65 20 25 20 63 6f 6d 6d 65 6e 74 20 74 79 70 65	il.if.doesn't.use.%.comment.type
03c0	20 6c 69 6e 65 73 2e 22 29 0a 0a 28 69 66 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 73 79 6e 74 61	.lines.")..(if.simula-mode-synta
03e0	78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73	x-table.nil.(let.((table.(make-s
0400	79 6e 74 61 78 2d 74 61 62 6c 65 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e	yntax-table))).(modify-syntax-en
0420	74 72 79 20 31 30 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78	try.10.".".table).(modify-syntax
0440	2d 65 6e 74 72 79 20 31 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e	-entry.12.".".table).(modify-syn
0460	74 61 78 2d 65 6e 74 72 79 20 33 34 20 22 5c 22 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79	tax-entry.34."\"".table).(modify
0480	2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 5c 22 22 20 74 61 62 6c 65 29 20 28 6d 6f	-syntax-entry.39."\"".table).(mo
04a0	64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 22 20 74 61 62 6c 65 29	dify-syntax-entry.40."()".table)
04c0	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 22 29 28 22 20 74 61	.(modify-syntax-entry.41.")(".ta
04e0	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 32 20 22 2e 22	ble).(modify-syntax-entry.42."."
0500	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 33 20	.table).(modify-syntax-entry.43.
0520	22 2e 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 79 20	".".table).(modify-syntax-entry.
0540	34 34 20 22 2e 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	44.".".table).(modify-syntax-ent
0560	72 79 20 34 35 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d	ry.45.".".table).(modify-syntax-
0580	65 6e 74 72 79 20 34 36 20 22 5f 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74	entry.46."_".table).(modify-synt
05a0	61 78 2d 65 6e 74 72 79 20 39 35 20 22 77 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73	ax-entry.95."w".table).(modify-s
05c0	79 6e 74 61 78 2d 65 6e 74 72 79 20 34 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66	yntax-entry.47.".".table).(modif
05e0	79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 38 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f	y-syntax-entry.58.".".table).(mo
0600	64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 39 20 22 3e 22 20 74 61 62 6c 65 29 20	dify-syntax-entry.59.">".table).
0620	28 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	(modify-syntax-entry.60.".".tabl
0640	65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 31 20 22 2e 22 20 74	e).(modify-syntax-entry.61.".".t
0660	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 36 32 20 22 2e	able).(modify-syntax-entry.62.".
0680	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 79 20 39 31	".table).(modify-syntax-entry.91
06a0	20 22 28 5d 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	."(]".table).(modify-syntax-entr
06c0	79 20 39 32 20 22 2e 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	y.92.".".table).(modify-syntax-e
06e0	6e 74 72 79 20 39 33 20 22 29 5b 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74	ntry.93.")[".table).(modify-synt
0700	61 78 2d 65 6e 74 72 79 20 39 34 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73	ax-entry.94.".".table).(modify-s
0720	79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 34 20 22 77 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69	yntax-entry.124."w".table).(modi
0740	66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 77 22 20 74 61 62 6c 65 29 20 28	fy-syntax-entry.123."w".table).(
0760	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 35 20 22 77 22 20 74 61 62 6c	modify-syntax-entry.125."w".tabl
0780	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 33 20 22 3c 22 20 74	e).(modify-syntax-entry.33."<".t
07a0	61 62 6c 65 29 20 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74	able).(setq.simula-mode-syntax-t
07c0	61 62 6c 65 20 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 69 6d 75 6c 61 2d 6d 6f	able.table)))..(defvar.simula-mo
07e0	64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64 20 69 6e 20 73 69 6d	de-map.nil."\.Keymap.used.in.sim
0800	75 6c 61 20 6d 6f 64 65 2e 22 29 0a 0a 28 69 66 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 6d 61 70	ula.mode.")..(if.simula-mode-map
0820	20 6e 69 6c 20 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65	.nil.(setq.simula-mode-map.(make
0840	2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 69 6d	-sparse-keymap)).(define-key.sim
0860	75 6c 61 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 73 69 6d 75 6c 61 2d 69	ula-mode-map.".".(quote.simula-i
0880	6e 64 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d	ndent)).(define-key.simula-mode-
08a0	6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 73 69 6d 75 6c 61 2d 61 62 62 72 65 76 2d 65 78 70	map.".".(quote.simula-abbrev-exp
08c0	61 6e 64 2d 61 6e 64 2d 6c 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 69 6d 75 6c 61 2d	and-and-lf)).(define-key.simula-
08e0	6d 6f 64 65 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 64 65 6c	mode-map.".".(quote.backward-del
0900	65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d	ete-char-untabify)))..(defun.sim
0920	75 6c 61 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 69 73 20 61 20 6d 6f 64 65 20 69	ula-mode.nil."\.This.is.a.mode.i
0940	6e 74 65 6e 64 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 70 72 6f 67 72 61 6d 20 64 65 76 65 6c	ntended.to.support.program.devel
0960	6f 70 6d 65 6e 74 20 69 6e 20 53 69 6d 75 6c 61 2e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	opment.in.Simula..".(interactive
0980	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cf 88 d7 20 88 d8 08 21 88 d9 89 11 88 da 89 12 88 db	).(byte-code.".......!..........
09a0	c3 21 88 dc 89 13 88 db c4 21 88 dd 89 14 88 de 0d 21 88 db c6 21 88 df 89 16 06 88 db c7 21 88	.!.......!.......!...!........!.
09c0	0e 06 89 16 07 88 db c8 21 88 e0 89 16 08 88 db c9 21 88 ca 89 16 09 88 db cb 21 88 e1 89 16 0b	........!........!........!.....
09e0	88 db cc 21 88 e2 89 16 0c 88 db cd 21 88 e3 89 16 0d 88 db c3 21 88 e4 89 16 0d 88 db ce 21 88	...!........!........!........!.
0a00	cf 89 16 0e 88 db d0 21 88 ca 89 16 10 88 0e 12 89 16 11 88 0e 13 85 a2 00 ca 89 16 14 88 0e 15	.......!........................
0a20	83 99 00 cf 82 a2 00 e5 e6 e7 8f 88 ca 89 16 15 88 e8 0e 16 21 88 e9 ea 21 87 22 20 5b 73 69 6d	....................!...!.".[sim
0a40	75 6c 61 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d	ula-mode-map.major-mode.mode-nam
0a60	65 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 65 6e 64 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c	e.comment-column.end-comment-col
0a80	75 6d 6e 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 70 61 72	umn.simula-mode-syntax-table.par
0aa0	61 67 72 61 70 68 2d 73 74 61 72 74 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20	agraph-start.paragraph-separate.
0ac0	69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 72 65 71 75 69 72 65 2d 66 69 6e	indent-line-function.require-fin
0ae0	61 6c 2d 6e 65 77 6c 69 6e 65 20 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65	al-newline.t.comment-start.comme
0b00	6e 74 2d 65 6e 64 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 70 61 72 73 65 2d	nt-end.comment-start-skip.parse-
0b20	73 65 78 70 2d 69 67 6e 6f 72 65 2d 63 6f 6d 6d 65 6e 74 73 20 6e 69 6c 20 63 6f 6d 6d 65 6e 74	sexp-ignore-comments.nil.comment
0b40	2d 6d 75 6c 74 69 2d 6c 69 6e 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73	-multi-line.local-abbrev-table.s
0b60	69 6d 75 6c 61 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 53 69 6d 75 6c 61 2d 4b	imula-mode-abbrev-table.Simula-K
0b80	65 79 77 6f 72 64 2d 41 62 62 72 65 76 2d 46 69 6c 65 20 61 62 62 72 65 76 2d 6d 6f 64 65 20 52	eyword-Abbrev-File.abbrev-mode.R
0ba0	65 61 64 2d 53 69 6d 75 6c 61 2d 4b 65 79 77 6f 72 64 73 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e	ead-Simula-Keywords.simula-inden
0bc0	74 2d 6d 6f 64 65 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20	t-mode.kill-all-local-variables.
0be0	75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 69 6d 75 6c 61 2d 6d 6f 64 65 20 22 53 69 6d 75 6c	use-local-map.simula-mode."Simul
0c00	61 22 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 34 30 20 37 35 20 73 65 74	a".make-local-variable.40.75.set
0c20	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 22 5e 5b 20 09 5d 2a 24 5c 5c 7c 5c 5c 66 22 20 73 69	-syntax-table."^[..]*$\\|\\f".si
0c40	6d 75 6c 61 2d 6e 75 6c 6c 2d 69 6e 64 65 6e 74 20 22 21 20 22 20 22 20 3b 22 20 22 21 2b 20 2a	mula-null-indent."!.".".;"."!+.*
0c60	22 20 22 21 20 2a 22 20 65 72 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 53	"."!.*".err.(byte-code."..!.".[S
0c80	69 6d 75 6c 61 2d 4b 65 79 77 6f 72 64 2d 41 62 62 72 65 76 2d 46 69 6c 65 20 72 65 61 64 2d 61	imula-Keyword-Abbrev-File.read-a
0ca0	62 62 72 65 76 2d 66 69 6c 65 5d 20 32 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74	bbrev-file].2).((file-error.(byt
0cc0	65 2d 63 6f 64 65 20 22 c0 90 c1 c2 21 88 c1 c3 21 88 c1 c4 21 88 c1 c5 21 88 c1 c6 21 88 c1 c7	e-code."....!...!...!...!...!...
0ce0	21 88 c1 c8 21 91 87 22 20 5b 22 2a 48 65 6c 70 2a 22 20 70 72 69 6e 63 20 22 53 69 6d 75 6c 61	!...!..".["*Help*".princ."Simula
0d00	20 4d 6f 64 65 20 63 61 6e 27 74 20 6c 6f 61 64 20 74 68 65 20 43 61 70 69 74 61 6c 69 7a 65 20	.Mode.can't.load.the.Capitalize.
0d20	53 69 6d 75 6c 61 20 22 20 22 4b 65 79 77 6f 72 64 20 61 62 62 72 65 76 20 66 69 6c 65 0a 0a 22	Simula."."Keyword.abbrev.file.."
0d40	20 22 50 6c 65 61 73 65 20 64 6f 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67	."Please.do.one.of.the.following
0d60	3a 0a 22 20 22 31 2e 20 49 6e 63 6c 75 64 65 20 74 68 69 73 20 6c 69 6e 65 20 69 6e 20 79 6f 75	:."."1..Include.this.line.in.you
0d80	72 20 2e 65 6d 61 63 73 20 66 69 6c 65 3a 0a 22 20 22 20 20 20 28 73 65 74 71 20 53 69 6d 75 6c	r..emacs.file:."."...(setq.Simul
0da0	61 2d 4b 65 79 77 6f 72 64 2d 41 62 62 72 65 76 2d 46 69 6c 65 20 6e 69 6c 29 0a 22 20 22 32 2e	a-Keyword-Abbrev-File.nil)."."2.
0dc0	20 4d 61 6b 65 20 61 20 64 65 63 65 6e 74 20 61 62 62 72 65 76 20 66 69 6c 65 20 62 79 20 79 6f	.Make.a.decent.abbrev.file.by.yo
0de0	75 72 20 73 65 6c 66 0a 22 20 22 33 2e 20 4d 61 69 6c 20 6f 62 68 40 69 66 69 2e 75 69 6f 2e 6e	ur.self."."3..Mail.obh@ifi.uio.n
0e00	6f 20 72 65 71 75 65 73 74 69 6e 67 20 74 68 65 20 61 62 62 72 65 76 20 66 69 6c 65 0a 22 5d 20	o.requesting.the.abbrev.file."].
0e20	39 29 29 29 20 66 75 6e 63 61 6c 6c 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 69 6d 75 6c 61 2d 6d 6f	9))).funcall.run-hooks.simula-mo
0e40	64 65 2d 68 6f 6f 6b 5d 20 31 38 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 6e 75 6c	de-hook].18))..(defun.simula-nul
0e60	6c 2d 69 6e 64 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	l-indent.nil.(interactive).(byte
0e80	2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 0a 0a 28 73 65 74 71 20 73 69 6d 75	-code."..".[nil].1))..(setq.simu
0ea0	6c 61 2d 73 65 65 6e 2d 46 45 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 66 6f	la-seen-FE.nil)..(setq.simula-fo
0ec0	72 6d 2d 73 74 61 72 74 65 72 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 66 6f	rm-starter.nil)..(setq.simula-fo
0ee0	72 6d 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 46 42 2d 68 70 6f 73 20 6e 69	rm.nil)..(setq.simula-FB-hpos.ni
0f00	6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 42 42 2d 68 70 6f 73 20 6e 69 6c 29 0a 0a 28	l)..(setq.simula-BB-hpos.nil)..(
0f20	73 65 74 71 20 73 69 6d 75 6c 61 2d 68 70 6f 73 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d	setq.simula-hpos.nil)..(setq.sim
0f40	75 6c 61 2d 6c 66 2d 63 6f 75 6e 74 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d	ula-lf-count.nil)..(setq.simula-
0f60	73 74 61 63 6b 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 61 73 73 65 6d 62 6c	stack.nil)..(setq.simula-assembl
0f80	65 20 6e 69 6c 29 0a 0a 28 73 65 74 71 20 73 69 6d 75 6c 61 2d 64 65 62 75 67 20 6e 69 6c 29 0a	e.nil)..(setq.simula-debug.nil).
0fa0	0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 70 75 73 68 20 28 76 29 20 28 62 79 74 65 2d 63 6f	.(defun.simula-push.(v).(byte-co
0fc0	64 65 20 22 08 85 09 00 0a 09 42 89 11 87 22 20 5b 73 69 6d 75 6c 61 2d 61 73 73 65 6d 62 6c 65	de."......B...".[simula-assemble
0fe0	20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 20 76 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d	.simula-stack.v].2))..(defun.sim
1000	75 6c 61 2d 70 6f 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 08 41 89 10 88 87	ula-pop.nil.(byte-code.".@.A....
1020	22 20 5b 73 69 6d 75 6c 61 2d 73 74 61 63 6b 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d	".[simula-stack].3))..(defun.sim
1040	75 6c 61 2d 69 6e 73 69 64 65 2d 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79	ula-inside-simple-string.nil.(by
1060	74 65 2d 63 6f 64 65 20 22 8a c2 c3 21 88 6e 83 0d 00 c0 82 2c 00 c4 19 6e 3f 85 24 00 c5 c6 21	te-code."...!.n.....,...n?.$...!
1080	88 c2 c3 21 88 09 54 89 11 88 82 0f 00 88 c7 09 c8 5c 22 c9 55 29 29 87 22 20 5b 6e 69 6c 20 63	...!..T..........\".U)).".[nil.c
10a0	6f 75 6e 74 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5e 5c 22 0a 27 22	ount.skip-chars-backward."^\".'"
10c0	20 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 25 20 32 20 30 5d 20 36 29 29 0a 0a 28	.1.forward-char.-1.%.2.0].6))..(
10e0	64 65 66 75 6e 20 69 67 6e 6f 72 65 2d 73 69 6d 75 6c 61 2d 64 69 72 65 63 74 69 76 65 73 20 28	defun.ignore-simula-directives.(
1100	70 65 64 6f 68 65 6a 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 70 65 64 6f 68 65 6a 77 61 79	pedohejform.&optional.pedohejway
1120	29 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 c4 88 08 83	).(interactive).(byte-code."....
1140	0c 00 c7 09 21 82 5b 00 c7 09 21 60 1b 1a c8 20 88 67 c9 55 3f 83 20 00 c4 82 2d 00 6f 86 25 00	....!.[...!`.....g.U?.....-.o.%.
1160	6d 83 2c 00 c4 82 2d 00 c4 85 4e 00 0e 06 83 3a 00 ca 20 82 3d 00 cb cc 21 88 c7 09 21 89 12 88	m.,...-...N....:....=...!...!...
1180	60 89 13 88 c8 20 88 82 15 00 88 67 c9 55 3f 85 58 00 0b 62 88 0a 2a 87 22 20 5b 73 69 6d 75 6c	`..........g.U?.X..b..*.".[simul
11a0	61 2d 6d 6f 64 65 2d 69 67 6e 6f 72 65 2d 64 69 72 65 63 74 69 76 65 73 20 70 65 64 6f 68 65 6a	a-mode-ignore-directives.pedohej
11c0	66 6f 72 6d 20 70 65 64 6f 68 65 6a 76 61 6c 20 70 65 64 6f 68 65 6a 68 65 72 65 20 6e 69 6c 20	form.pedohejval.pedohejhere.nil.
11e0	74 20 70 65 64 6f 68 65 6a 77 61 79 20 66 75 6e 63 61 6c 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f	t.pedohejway.funcall.beginning-o
1200	66 2d 6c 69 6e 65 20 33 37 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 63	f-line.37.forward-line.forward-c
1220	68 61 72 20 2d 31 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 79 62 65 2d 73 6b 69 70 2d 73	har.-1].9))..(defun.maybe-skip-s
1240	69 6d 75 6c 61 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 c4	imula-comment.nil.(byte-code."`.
1260	c4 c4 1b 1a 19 18 c6 c7 21 88 c8 c9 08 ca 23 88 68 89 12 cb 55 86 1d 00 0a cc 55 85 44 00 0a cc	........!.....#.h...U.....U.D...
1280	55 83 2e 00 cd ce 08 ca 23 82 3a 00 cf d0 21 88 60 08 56 85 3a 00 08 62 88 c8 c9 08 ca 23 88 82	U.......#.:...!.`.V.:..b.....#..
12a0	12 00 88 08 60 55 83 4f 00 c4 82 15 01 68 d1 55 83 5d 00 d2 d3 21 88 08 82 15 01 d4 d3 21 88 d5	....`U.O.....h.U.]...!.......!..
12c0	d6 21 83 6b 00 08 82 15 01 60 89 11 88 c8 d7 08 ca 23 89 13 88 0b 85 86 00 68 89 12 cb 55 86 86	.!.k.....`.......#.......h...U..
12e0	00 0a cc 55 85 a6 00 0a cc 55 83 97 00 cd ce 08 ca 23 82 9a 00 cf d0 21 88 c8 d7 08 ca 23 89 13	...U.....U.......#.....!.....#..
1300	88 82 77 00 88 0b 85 f3 00 68 d1 55 83 c1 00 09 83 b9 00 c5 82 be 00 d2 d3 21 88 c4 82 f3 00 d4	..w......h.U.............!......
1320	d3 21 88 c4 86 f3 00 d5 d6 21 83 e0 00 09 3f 83 d8 00 c4 82 dd 00 d4 d0 21 88 c5 82 f3 00 d5 d8	.!.......!....?.........!.......
1340	21 83 ea 00 60 82 eb 00 c4 89 11 88 d4 d0 21 88 c5 85 fb 00 c4 88 82 6f 00 88 d5 d9 21 83 06 01	!...`.........!........o....!...
1360	08 82 15 01 09 83 11 01 09 62 88 08 82 15 01 08 62 88 c4 2c 87 22 20 5b 68 65 72 65 20 6c 61 73	.........b......b..,.".[here.las
1380	74 2d 65 6e 64 20 74 6d 70 20 74 6d 70 31 20 6e 69 6c 20 74 20 69 67 6e 6f 72 65 2d 73 69 6d 75	t-end.tmp.tmp1.nil.t.ignore-simu
13a0	6c 61 2d 64 69 72 65 63 74 69 76 65 73 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d	la-directives.(lambda.nil.(byte-
13c0	63 6f 64 65 20 22 c0 c1 65 c2 23 88 c3 20 85 18 00 c0 c4 21 88 c0 c1 65 c2 23 88 82 06 00 87 22	code."..e.#........!...e.#....."
13e0	20 5b 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 3b 22 20 30 20 73 69 6d 75 6c 61 2d 69	.[search-backward.";".0.simula-i
1400	6e 73 69 64 65 2d 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 22 5c 22 22 5d 20 38 29 29 20 72 65	nside-simple-string."\""].8)).re
1420	2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 25 5c 5c 7c 5c 22 5c 5c 7c 21 5c 5c 7c 5c	-search-forward."^%\\|\"\\|!\\|\
1440	5c 62 63 6f 6d 6d 65 6e 74 5c 5c 62 5c 5c 7c 5c 5c 62 65 6e 64 5c 5c 62 22 20 30 20 33 37 20 33	\bcomment\\b\\|\\bend\\b".0.37.3
1460	34 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 22 22 20 66 6f 72 77 61 72 64 2d 6c 69	4.search-forward."\"".forward-li
1480	6e 65 20 31 20 33 33 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d	ne.1.33.forward-char.-1.forward-
14a0	77 6f 72 64 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 63 6f 6d 6d 65 6e 74 22 20 22 5e 25 5c 5c 7c	word.looking-at."comment"."^%\\|
14c0	5c 22 5c 5c 7c 21 5c 5c 7c 5c 5c 62 63 6f 6d 6d 65 6e 74 5c 5c 62 5c 5c 7c 5c 5c 62 65 6e 64 5c	\"\\|!\\|\\bcomment\\b\\|\\bend\
14e0	5c 62 5c 5c 7c 5c 5c 62 77 68 65 6e 5c 5c 62 5c 5c 7c 5c 5c 62 65 6c 73 65 5c 5c 62 5c 5c 7c 5c	\b\\|\\bwhen\\b\\|\\belse\\b\\|\
1500	5c 62 6f 74 68 65 72 77 69 73 65 5c 5c 62 22 20 22 65 6e 64 22 20 22 21 5c 5c 7c 5c 5c 62 63 6f	\botherwise\\b"."end"."!\\|\\bco
1520	6d 6d 65 6e 74 22 5d 20 32 30 29 29 0a 0a 28 64 65 66 75 6e 20 73 61 76 65 2d 73 69 6d 75 6c 61	mment"].20))..(defun.save-simula
1540	2d 42 42 2d 42 45 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 c2 19 18 c6 08 21 88 c7	-BB-BE.nil.(byte-code."`.....!..
1560	20 88 0b 3f 85 13 00 69 89 13 88 60 89 11 88 c8 20 88 c6 c9 60 08 56 83 27 00 c2 82 2d 00 0c 54	...?...i...`........`.V.'...-..T
1580	89 14 88 0d ca cb cc 21 88 60 08 56 83 3c 00 c2 82 42 00 0c 54 89 14 88 0d 52 21 88 c6 09 21 88	.......!.`.V.<...B..T....R!...!.
15a0	09 62 2a 87 22 20 5b 65 6e 64 20 62 65 67 20 6e 69 6c 20 73 69 6d 75 6c 61 2d 42 42 2d 68 70 6f	.b*.".[end.beg.nil.simula-BB-hpo
15c0	73 20 73 69 6d 75 6c 61 2d 6c 66 2d 63 6f 75 6e 74 20 73 69 6d 75 6c 61 2d 65 6f 6c 20 73 69 6d	s.simula-lf-count.simula-eol.sim
15e0	75 6c 61 2d 70 75 73 68 20 73 69 6d 75 6c 61 2d 62 61 63 6b 2d 6c 65 76 65 6c 20 65 6e 64 2d 6f	ula-push.simula-back-level.end-o
1600	66 2d 6c 69 6e 65 20 22 42 45 47 49 4e 22 20 22 20 6f 20 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e	f-line."BEGIN".".o.".forward-lin
1620	65 20 32 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 62 61 63 6b 2d 6c 65	e.2].10))..(defun.simula-back-le
1640	76 65 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 6f 64 65	vel.nil.(interactive).(byte-code
1660	20 22 c1 88 c1 18 6f 3f 85 4b 00 c3 c4 21 85 4b 00 c5 c6 21 83 2c 00 c7 20 83 28 00 c5 c8 21 85	."....o?.K...!.K...!.,....(...!.
1680	23 00 c9 ca 21 88 c2 82 29 00 c1 82 4b 00 c7 20 89 10 83 47 00 c5 cb 21 83 3d 00 c2 82 44 00 08	#...!...)...K......G...!.=...D..
16a0	62 88 cc 20 88 c2 82 4b 00 cc 20 88 c2 85 53 00 c1 88 82 04 00 29 88 c5 c6 21 3f 85 5f 00 cd ce	b......K......S......)...!?._...
16c0	21 87 22 20 5b 65 6e 64 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 20 74 20 69 67 6e 6f 72 65 2d 73 69	!.".[end-comment.nil.t.ignore-si
16e0	6d 75 6c 61 2d 64 69 72 65 63 74 69 76 65 73 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74	mula-directives.(lambda.nil.(byt
1700	65 2d 63 6f 64 65 20 22 c1 c2 65 c3 23 88 c4 20 85 18 00 c5 c6 21 88 c1 c2 65 c3 23 88 82 06 00	e-code."..e.#........!...e.#....
1720	88 c0 87 22 20 5b 74 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5c 5c 62 65	...".[t.re-search-backward."\\be
1740	6e 64 5c 5c 62 5c 5c 7c 5c 5c 62 62 65 67 69 6e 5c 5c 62 22 20 30 20 73 69 6d 75 6c 61 2d 69 6e	nd\\b\\|\\bbegin\\b".0.simula-in
1760	73 69 64 65 2d 73 69 6d 70 6c 65 2d 73 74 72 69 6e 67 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61	side-simple-string.search-backwa
1780	72 64 20 22 5c 22 22 5d 20 38 29 29 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 62 65 67 69 6e 22 20	rd."\""].8)).looking-at."begin".
17a0	6d 61 79 62 65 2d 73 6b 69 70 2d 73 69 6d 75 6c 61 2d 63 6f 6d 6d 65 6e 74 20 22 65 6e 64 22 20	maybe-skip-simula-comment."end".
17c0	66 6f 72 77 61 72 64 2d 77 6f 72 64 20 31 20 22 63 6f 6d 6d 65 6e 74 5c 5c 7c 21 22 20 73 69 6d	forward-word.1."comment\\|!".sim
17e0	75 6c 61 2d 62 61 63 6b 2d 6c 65 76 65 6c 20 65 72 72 6f 72 20 22 4e 6f 20 6d 61 74 63 68 69 6e	ula-back-level.error."No.matchin
1800	67 20 42 45 47 49 4e 20 21 21 21 22 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c	g.BEGIN.!!!"].12))..(defun.simul
1820	61 2d 66 69 6e 64 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 64 69 63 74	a-find-indent.(&optional.predict
1840	2d 6e 65 78 74 29 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	-next).(interactive).(byte-code.
1860	22 c9 88 c1 d7 c9 c9 c9 1d 1c 1b 1a 18 d8 20 88 d9 da 21 88 db 20 85 21 00 dc dd 21 85 21 00 de	".................!....!...!.!..
1880	df 21 88 d7 16 06 c1 16 07 c9 16 08 c9 16 0a c9 16 0b c9 16 0c c9 16 0d c9 16 0e 60 0e 10 44 89	.!.........................`..D.
18a0	16 0f 88 08 85 e4 01 0a 54 89 12 88 e0 e1 21 88 6f 83 59 00 c9 89 10 82 e0 01 e2 68 89 14 21 e3	........T.....!.o.Y........h..!.
18c0	55 83 69 00 de e4 21 82 6c 00 e5 e4 21 88 6c 83 aa 00 e6 08 21 83 81 00 c9 89 10 88 e5 df 21 82	U.i...!.l...!.l.....!.........!.
18e0	a7 00 e7 0e 06 0a 53 5c 22 85 90 00 0e 06 54 89 16 06 88 0e 06 89 12 88 e8 60 54 21 88 d9 e9 21	......S\".....T..........`T!...!
1900	88 e8 0e 11 21 88 e8 60 21 82 e0 01 0c ea 55 83 b5 00 eb 20 82 e0 01 0c ec 55 83 d3 00 e5 e4 21	....!..`!.....U..........U.....!
1920	88 ed ee 65 c1 23 83 cd 00 e5 e4 21 82 d0 00 ef f0 21 82 e0 01 0c f1 55 83 df 00 de e4 21 82 e0	...e.#.....!.....!.....U.....!..
1940	01 0c f2 55 83 48 01 db 20 89 13 88 0b 85 f1 00 dc f3 21 83 fb 00 f4 0b 54 21 82 45 01 0e 06 df	...U.H............!.....T!.E....
1960	56 85 07 01 0e 06 0a 53 55 83 13 01 c9 89 10 88 f5 20 82 45 01 0b 3f 83 1c 01 c9 82 25 01 de df	V......SU..........E..?.....%...
1980	21 88 f4 0b 21 88 c9 86 45 01 0a df 55 83 35 01 c1 89 16 0c 82 45 01 0e 06 d7 56 85 45 01 e8 60	!...!...E...U.5......E....V.E..`
19a0	54 21 88 c9 89 16 07 82 e0 01 dc 0e 12 21 83 82 01 c9 89 16 0c 88 0e 06 df 56 83 62 01 f5 20 89	T!...........!...........V.b....
19c0	10 82 7f 01 0e 07 3f 85 74 01 60 f6 0e 10 50 44 16 0f c1 89 16 07 88 0e 08 3f 85 7f 01 69 89 16	......?.t.`...PD.........?...i..
19e0	08 82 e0 01 dc 0e 13 21 85 8d 01 db 20 89 13 83 9a 01 de df 21 88 f4 0b 21 82 e0 01 dc 0e 14 21	.......!............!...!......!
1a00	83 a6 01 f7 20 82 e0 01 0d 3f 85 af 01 dc 0e 15 21 85 e0 01 f8 60 f9 d7 21 5c 22 89 16 0e 88 69	.........?......!....`..!\"....i
1a20	89 16 0a 88 fa 20 89 15 3f 85 d0 01 c9 16 0a c9 89 16 0d 88 0e 0c 83 da 01 c9 82 e0 01 c9 89 10	........?.......................
1a40	88 fb 20 88 82 42 00 88 fc 20 89 16 0b 88 0e 0d 83 03 02 0e 16 85 f7 01 0e 0c 85 00 02 fd 0d fe	.....B..........................
1a60	20 41 5c 22 82 07 02 fe 20 89 15 88 0d 2d 87 22 20 5b 6e 6f 74 2d 73 74 6f 70 20 74 20 73 69 6d	.A\".........-.".[not-stop.t.sim
1a80	65 78 70 20 74 6d 70 20 63 68 20 69 6e 64 65 6e 74 20 73 69 6d 75 6c 61 2d 6c 66 2d 63 6f 75 6e	exp.tmp.ch.indent.simula-lf-coun
1aa0	74 20 73 69 6d 75 6c 61 2d 61 73 73 65 6d 62 6c 65 20 73 69 6d 75 6c 61 2d 42 42 2d 68 70 6f 73	t.simula-assemble.simula-BB-hpos
1ac0	20 6e 69 6c 20 73 69 6d 75 6c 61 2d 46 42 2d 68 70 6f 73 20 73 69 6d 75 6c 61 2d 68 70 6f 73 20	.nil.simula-FB-hpos.simula-hpos.
1ae0	73 69 6d 75 6c 61 2d 73 65 65 6e 2d 46 45 20 73 69 6d 75 6c 61 2d 66 6f 72 6d 20 73 69 6d 75 6c	simula-seen-FE.simula-form.simul
1b00	61 2d 66 6f 72 6d 2d 73 74 61 72 74 65 72 20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 20 73 69 6d 75	a-form-starter.simula-stack.simu
1b20	6c 61 2d 65 6f 66 20 73 69 6d 75 6c 61 2d 65 6f 6c 20 73 69 6d 75 6c 61 2d 42 42 20 73 69 6d 75	la-eof.simula-eol.simula-BB.simu
1b40	6c 61 2d 43 45 20 73 69 6d 75 6c 61 2d 42 45 20 73 69 6d 75 6c 61 2d 46 42 20 70 72 65 64 69 63	la-CE.simula-BE.simula-FB.predic
1b60	74 2d 6e 65 78 74 20 30 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 69 67 6e 6f 72 65 2d 73 69 6d 75	t-next.0.end-of-line.ignore-simu
1b80	6c 61 2d 64 69 72 65 63 74 69 76 65 73 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d	la-directives.(lambda.nil.(byte-
1ba0	63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64	code."..!.".[skip-chars-backward
1bc0	20 22 20 09 22 5d 20 32 29 29 20 6d 61 79 62 65 2d 73 6b 69 70 2d 73 69 6d 75 6c 61 2d 63 6f 6d	.".."].2)).maybe-skip-simula-com
1be0	6d 65 6e 74 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 65 6e 64 22 20 66 6f 72 77 61 72 64 2d 77 6f	ment.looking-at."end".forward-wo
1c00	72 64 20 31 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 63 68	rd.1.skip-chars-backward."..".ch
1c20	61 72 2d 73 79 6e 74 61 78 20 31 31 39 20 2d 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 6e 75	ar-syntax.119.-1.forward-char.nu
1c40	6d 62 65 72 70 20 2f 3d 20 73 69 6d 75 6c 61 2d 70 75 73 68 20 28 6c 61 6d 62 64 61 20 6e 69 6c	mberp./=.simula-push.(lambda.nil
1c60	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 73 6b 69 70 2d 63 68 61 72 73 2d 62	.(byte-code."..!.".[skip-chars-b
1c80	61 63 6b 77 61 72 64 20 22 20 09 0a 22 5d 20 32 29 29 20 33 34 20 73 61 76 65 2d 73 69 6d 75 6c	ackward."..."].2)).34.save-simul
1ca0	61 2d 73 74 72 69 6e 67 20 33 39 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 27 22 20	a-string.39.search-backward."'".
1cc0	65 72 72 6f 72 20 22 55 6e 62 61 6c 61 6e 63 65 64 20 43 68 61 72 61 63 74 65 72 20 51 75 6f 74	error."Unbalanced.Character.Quot
1ce0	65 22 20 35 38 20 35 39 20 22 21 5c 5c 7c 63 6f 6d 6d 65 6e 74 22 20 73 69 6d 75 6c 61 2d 70 61	e".58.59."!\\|comment".simula-pa
1d00	72 73 65 64 2d 6f 76 65 72 20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 2d 74 72 69 63 6b 20 22 2f 6e	rsed-over.simula-stack-trick."/n
1d20	20 6f 20 22 20 73 61 76 65 2d 73 69 6d 75 6c 61 2d 42 42 2d 42 45 20 62 75 66 66 65 72 2d 73 75	.o.".save-simula-BB-BE.buffer-su
1d40	62 73 74 72 69 6e 67 20 6d 61 74 63 68 2d 65 6e 64 20 53 69 6d 75 6c 61 2d 46 6f 72 6d 2d 48 61	bstring.match-end.Simula-Form-Ha
1d60	6e 64 6c 65 72 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 2d	ndler.beginning-of-line.current-
1d80	73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 73 65 74 63 64 72 20 53 69 6d 75 6c 61	simula-indentation.setcdr.Simula
1da0	2d 44 65 66 61 75 6c 74 2d 48 61 6e 64 6c 65 72 5d 20 34 38 29 29 0a 0a 28 64 65 66 75 6e 20 73	-Default-Handler].48))..(defun.s
1dc0	69 6d 75 6c 61 2d 70 61 72 73 65 64 2d 6f 76 65 72 20 28 66 72 6f 6d 29 20 28 62 79 74 65 2d 63	imula-parsed-over.(from).(byte-c
1de0	6f 64 65 20 22 c3 c4 21 88 c5 08 21 88 8a c6 20 88 60 08 57 85 1a 00 c5 09 21 88 0a 54 89 12 29	ode."..!...!.....`.W.....!..T..)
1e00	88 c5 60 21 87 22 20 5b 66 72 6f 6d 20 73 69 6d 75 6c 61 2d 65 6f 6c 20 73 69 6d 75 6c 61 2d 6c	..`!.".[from.simula-eol.simula-l
1e20	66 2d 63 6f 75 6e 74 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 09 22 20	f-count.skip-chars-backward.".".
1e40	73 69 6d 75 6c 61 2d 70 75 73 68 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 36 29 29 0a 0a 28 64	simula-push.end-of-line].6))..(d
1e60	65 66 75 6e 20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 2d 74 72 69 63 6b 20 6e 69 6c 20 28 62 79 74	efun.simula-stack-trick.nil.(byt
1e80	65 2d 63 6f 64 65 20 22 c4 c5 21 88 c6 c7 c0 5c 22 88 0a 19 09 85 2d 00 c8 09 40 21 85 1a 00 60	e-code."..!....\".....-...@!...`
1ea0	09 40 56 83 25 00 09 12 c3 89 11 82 29 00 09 41 89 11 88 82 0b 00 29 88 c3 87 22 20 5b 74 20 70	.@V.%.......)..A......)...".[t.p
1ec0	6f 69 6e 74 65 72 20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d	ointer.simula-stack.nil.forward-
1ee0	6c 69 6e 65 20 31 20 69 67 6e 6f 72 65 2d 73 69 6d 75 6c 61 2d 64 69 72 65 63 74 69 76 65 73 20	line.1.ignore-simula-directives.
1f00	28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 88 67 c2 55 85	(lambda.nil.(byte-code."..!.g.U.
1f20	17 00 c3 c4 64 c5 23 88 c0 c1 21 88 82 04 00 87 22 20 5b 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f	....d.#...!.....".[skip-chars-fo
1f40	72 77 61 72 64 20 22 20 09 0a 22 20 33 33 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3b	rward."...".33.search-forward.";
1f60	22 20 30 5d 20 36 29 29 20 6e 75 6d 62 65 72 70 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 61	".0].6)).numberp].6))..(defun.sa
1f80	76 65 2d 73 69 6d 75 6c 61 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20	ve-simula-string.nil.(byte-code.
1fa0	22 c1 60 21 88 c2 c3 65 5c 22 88 68 c4 55 83 13 00 c0 82 16 00 c5 c6 21 88 c1 60 21 88 c7 c8 21	".`!...e\".h.U.........!..`!...!
1fc0	87 22 20 5b 6e 69 6c 20 73 69 6d 75 6c 61 2d 70 75 73 68 20 73 6b 69 70 2d 63 68 61 72 73 2d 62	.".[nil.simula-push.skip-chars-b
1fe0	61 63 6b 77 61 72 64 20 22 5e 5c 22 0a 22 20 33 34 20 65 72 72 6f 72 20 22 55 6e 42 61 6c 61 6e	ackward."^\".".34.error."UnBalan
2000	63 65 64 20 53 74 72 69 6e 67 20 51 75 6f 74 65 20 5c 22 2e 20 22 20 66 6f 72 77 61 72 64 2d 63	ced.String.Quote.\"..".forward-c
2020	68 61 72 20 2d 31 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 53 69 6d 75 6c 61 2d 46 6f 72 6d 2d	har.-1].6))..(defun.Simula-Form-
2040	48 61 6e 64 6c 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 c5 09 21 c6 51 21	Handler.nil.(byte-code."....!.Q!
2060	18 08 83 13 00 c7 08 21 82 14 00 c2 29 87 22 20 5b 68 61 6e 64 6c 65 72 20 73 69 6d 75 6c 61 2d	.......!....).".[handler.simula-
2080	66 6f 72 6d 2d 73 74 61 72 74 65 72 20 6e 69 6c 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 22 53 69	form-starter.nil.intern-soft."Si
20a0	6d 75 6c 61 2d 22 20 63 61 70 69 74 61 6c 69 7a 65 20 22 2d 48 61 6e 64 6c 65 72 22 20 66 75 6e	mula-".capitalize."-Handler".fun
20c0	63 61 6c 6c 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74	call].5))..(defun.Simula-Default
20e0	2d 48 61 6e 64 6c 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 0f 00 09 3f 85	-Handler.nil.(byte-code.".....?.
2100	0f 00 0a 86 0e 00 0b 3f 83 18 00 0c c7 44 82 1b 00 c8 0d 21 c6 89 13 88 87 22 20 5b 73 69 6d 75	.......?.....D.....!.....".[simu
2120	6c 61 2d 73 65 65 6e 2d 46 45 20 73 69 6d 75 6c 61 2d 65 78 74 65 6e 64 65 64 2d 66 6f 72 6d 20	la-seen-FE.simula-extended-form.
2140	73 69 6d 75 6c 61 2d 42 42 2d 68 70 6f 73 20 73 69 6d 75 6c 61 2d 66 6f 72 6d 20 73 69 6d 75 6c	simula-BB-hpos.simula-form.simul
2160	61 2d 68 70 6f 73 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72 6d 20 6e 69 6c 20 28	a-hpos.Simula-Default-Form.nil.(
2180	30 20 30 29 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72 6d 2d 48 61 6e 64 6c 65 72	0.0).Simula-Default-Form-Handler
21a0	5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72	].4))..(defun.Simula-Default-For
21c0	6d 2d 48 61 6e 64 6c 65 72 20 28 66 6f 72 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 20 88	m-Handler.(form).(byte-code."...
21e0	c5 09 21 18 08 3f 83 10 00 c2 82 2d 00 6e 3f 83 1f 00 8a c6 20 88 c7 20 29 82 21 00 c7 20 13 c8	..!..?.....-.n?.........).!.....
2200	08 40 21 08 41 42 89 10 88 08 29 87 22 20 5b 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72 6d 20	.@!.AB....).".[indentation.form.
2220	6e 69 6c 20 73 69 6d 75 6c 61 2d 68 70 6f 73 20 73 69 6d 75 6c 61 2d 63 6f 6c 6c 61 70 73 65 2d	nil.simula-hpos.simula-collapse-
2240	73 74 61 63 6b 20 67 65 74 2d 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 20 62 65 67 69 6e 6e 69 6e	stack.get-indent-amount.beginnin
2260	67 2d 6f 66 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 2d 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 61	g-of-line.current-simula-indenta
2280	74 69 6f 6e 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 63 61 6c 63 5d 20 38 29 29 0a 0a 28 64	tion.simula-indent-calc].8))..(d
22a0	65 66 75 6e 20 73 69 6d 75 6c 61 2d 63 6f 6c 6c 61 70 73 65 2d 73 74 61 63 6b 20 6e 69 6c 20 28	efun.simula-collapse-stack.nil.(
22c0	62 79 74 65 2d 63 6f 64 65 20 22 09 83 08 00 60 82 0a 00 c6 20 0b 1a 18 0a 85 4a 00 0a 40 3b 83	byte-code."....`..........J..@;.
22e0	1e 00 0a 41 89 12 82 46 00 08 83 34 00 c7 0a c8 08 0a 40 5c 22 5c 22 88 c4 10 0a 41 89 12 82 46	...A...F...4......@\"\"....A...F
2300	00 0a 40 89 10 88 c7 0a 0a 41 40 5c 22 88 c9 0a 0a 41 41 5c 22 88 82 0d 00 88 ca cb 0b 5c 22 15	..@......A@\"....AA\"........\".
2320	60 0d 44 89 13 2a 87 22 20 5b 6c 61 73 74 2d 62 65 67 20 73 69 6d 75 6c 61 2d 61 73 73 65 6d 62	`.D..*.".[last-beg.simula-assemb
2340	6c 65 20 70 6f 69 6e 74 65 72 20 73 69 6d 75 6c 61 2d 73 74 61 63 6b 20 6e 69 6c 20 73 69 6d 75	le.pointer.simula-stack.nil.simu
2360	6c 61 2d 66 6f 72 6d 20 73 69 6d 75 6c 61 2d 70 6f 70 20 73 65 74 63 61 72 20 62 75 66 66 65 72	la-form.simula-pop.setcar.buffer
2380	2d 73 75 62 73 74 72 69 6e 67 20 73 65 74 63 64 72 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d 20	-substring.setcdr.apply.concat].
23a0	38 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 20 28 69	8))..(defun.get-indent-amount.(i
23c0	6e 64 65 6e 74 2d 66 6f 72 6d 2d 6c 69 73 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 2a	ndent-form-list).(byte-code."..*
23e0	00 c4 08 40 40 09 5c 22 83 23 00 0a 85 1c 00 c5 90 c6 08 40 40 c7 09 51 21 91 88 08 40 41 82 27	...@@.\".#.........@@..Q!...@A.'
2400	00 c8 08 41 21 82 2b 00 c3 87 22 20 5b 69 6e 64 65 6e 74 2d 66 6f 72 6d 2d 6c 69 73 74 20 73 69	...A!.+...".[indent-form-list.si
2420	6d 75 6c 61 2d 66 6f 72 6d 20 73 69 6d 75 6c 61 2d 64 65 62 75 67 20 6e 69 6c 20 73 74 72 69 6e	mula-form.simula-debug.nil.strin
2440	67 2d 6d 61 74 63 68 20 22 2a 20 66 6f 72 6d 73 20 2a 22 20 70 72 69 6e 74 20 22 3c 2d 2d 2d 2d	g-match."*.forms.*".print."<----
2460	3e 22 20 67 65 74 2d 69 6e 64 65 6e 74 2d 61 6d 6f 75 6e 74 5d 20 36 29 29 0a 0a 28 64 65 66 75	>".get-indent-amount].6))..(defu
2480	6e 20 63 75 72 72 65 6e 74 2d 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 69 6c	n.current-simula-indentation.nil
24a0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 85 09 00 c2 08 21 88 c3 c4 21 88 69 87 22 20 5b	.(byte-code."..!.....!...!.i.".[
24c0	73 69 6d 75 6c 61 2d 6c 61 62 65 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72 65 2d 73 65 61 72 63	simula-label.looking-at.re-searc
24e0	68 2d 66 6f 72 77 61 72 64 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09	h-forward.skip-chars-forward."..
2500	22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 63 61 6c	"].4))..(defun.simula-indent-cal
2520	63 20 28 61 6d 6f 75 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 36 00 08 40 19 08 41	c.(amount).(byte-code."..6..@..A
2540	40 c5 09 55 83 14 00 0a 82 31 00 0b 85 1b 00 c6 09 55 83 5c 22 00 0b 82 31 00 0c 85 29 00 c7 09	@..U.....1.......U.\"...1...)...
2560	55 83 30 00 0c 82 31 00 0a 5c 5c 29 82 37 00 0a 87 22 20 5b 61 6d 6f 75 6e 74 20 66 72 6f 6d 20	U.0...1..\\).7...".[amount.from.
2580	73 69 6d 75 6c 61 2d 68 70 6f 73 20 73 69 6d 75 6c 61 2d 46 42 2d 68 70 6f 73 20 73 69 6d 75 6c	simula-hpos.simula-FB-hpos.simul
25a0	61 2d 42 42 2d 68 70 6f 73 20 30 20 31 20 32 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d	a-BB-hpos.0.1.2].3))..(defun.sim
25c0	75 6c 61 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 74 6f 29 20 28 62 79 74 65 2d 63 6f 64 65 20	ula-indent-line.(to).(byte-code.
25e0	22 c6 20 88 67 c7 55 83 0d 00 c0 82 64 00 c8 0a 0b 5c 22 c9 0a 0b 5c 22 1c 19 ca 0d 21 85 4f 00	"...g.U.....d....\"...\"....!.O.
2600	cb 0d 21 88 69 0a 56 83 2f 00 cc 14 cd 89 11 82 4f 00 ce cf cd 5c 22 88 69 0a 56 85 3d 00 d0 cd	..!.i.V./.......O....\".i.V.=...
2620	21 88 0a 69 5a 89 12 88 c9 0a 0b 5c 22 14 c8 0a 0b 5c 22 89 11 88 ce cf 0c 5c 22 88 ce d1 09 5c	!..iZ......\"....\"......\"....\
2640	22 88 d2 60 d3 d4 64 5c 22 88 60 5c 22 2a 87 22 20 5b 6e 69 6c 20 73 70 61 63 65 20 74 6f 20 74	"..`..d\".`\"*.".[nil.space.to.t
2660	61 62 2d 77 69 64 74 68 20 74 61 62 73 20 73 69 6d 75 6c 61 2d 6c 61 62 65 6c 20 62 65 67 69 6e	ab-width.tabs.simula-label.begin
2680	6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 33 37 20 25 20 2f 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 72	ning-of-line.37.%./.looking-at.r
26a0	65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 30 20 31 20 69 6e 73 65 72 74 2d 63 68 61 72	e-search-forward.0.1.insert-char
26c0	20 39 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 20 33 32 20 64 65 6c 65 74	.9.backward-delete-char.32.delet
26e0	65 2d 72 65 67 69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22	e-region.skip-chars-forward.".."
2700	5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 61 62 62 72 65 76 2d 65 78 70	].16))..(defun.simula-abbrev-exp
2720	61 6e 64 2d 61 6e 64 2d 6c 66 20 28 61 72 67 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70	and-and-lf.(arg).(interactive."p
2740	22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 20 88 c4 c5 c6 5c 22 88 c7 c8 21 88 8a c9	").(byte-code."........\"...!...
2760	c1 21 29 18 ca 20 88 cb cc 21 88 cd 67 ce 5c 22 85 26 00 cf 08 40 21 88 d0 c6 21 88 cf d1 08 41	.!)......!..g.\".&...@!...!....A
2780	40 21 21 29 87 22 20 5b 69 6e 64 65 6e 74 20 74 20 6e 69 6c 20 65 78 70 61 6e 64 2d 61 62 62 72	@!!).".[indent.t.nil.expand-abbr
27a0	65 76 20 69 6e 73 65 72 74 2d 63 68 61 72 20 31 30 20 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72	ev.insert-char.10.1.forward-char
27c0	20 2d 31 20 73 69 6d 75 6c 61 2d 66 69 6e 64 2d 69 6e 64 65 6e 74 20 62 65 67 69 6e 6e 69 6e 67	.-1.simula-find-indent.beginning
27e0	2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22	-of-line.skip-chars-forward.".."
2800	20 2f 3d 20 33 33 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 66 6f 72 77 61 72	./=.33.simula-indent-line.forwar
2820	64 2d 6c 69 6e 65 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 63 61 6c 63 5d 20 31 32 29 29 0a	d-line.simula-indent-calc].12)).
2840	0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 69 6e 74 65 72	.(defun.simula-indent.nil.(inter
2860	61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 8a c2 20 29 40 21 87 22 20	active).(byte-code."......)@!.".
2880	5b 6e 69 6c 20 73 69 6d 75 6c 61 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 73 69 6d 75 6c 61 2d 66	[nil.simula-indent-line.simula-f
28a0	69 6e 64 2d 69 6e 64 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 53 69 6d 75 6c 61 2d 57	ind-indent].3))..(defun.Simula-W
28c0	68 69 6c 65 2d 48 61 6e 64 6c 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21	hile-Handler.nil.(byte-code."..!
28e0	87 22 20 5b 53 69 6d 75 6c 61 2d 57 68 69 6c 65 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 44 65 66	.".[Simula-While-Form.Simula-Def
2900	61 75 6c 74 2d 46 6f 72 6d 2d 48 61 6e 64 6c 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 53	ault-Form-Handler].2))..(defun.S
2920	69 6d 75 6c 61 2d 49 66 2d 48 61 6e 64 6c 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20	imula-If-Handler.nil.(byte-code.
2940	22 c1 08 21 87 22 20 5b 53 69 6d 75 6c 61 2d 49 66 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 44 65	"..!.".[Simula-If-Form.Simula-De
2960	66 61 75 6c 74 2d 46 6f 72 6d 2d 48 61 6e 64 6c 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20	fault-Form-Handler].2))..(defun.
2980	53 69 6d 75 6c 61 2d 49 6e 73 70 65 63 74 2d 48 61 6e 64 6c 65 72 20 6e 69 6c 20 28 62 79 74 65	Simula-Inspect-Handler.nil.(byte
29a0	2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 53 69 6d 75 6c 61 2d 49 6e 73 70 65 63 74 2d 46 6f 72	-code."..!.".[Simula-Inspect-For
29c0	6d 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72 6d 2d 48 61 6e 64 6c 65 72 5d 20 32	m.Simula-Default-Form-Handler].2
29e0	29 29 0a 0a 28 64 65 66 75 6e 20 53 69 6d 75 6c 61 2d 46 6f 72 2d 48 61 6e 64 6c 65 72 20 6e 69	))..(defun.Simula-For-Handler.ni
2a00	6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 53 69 6d 75 6c 61 2d 46 6f 72 2d	l.(byte-code."..!.".[Simula-For-
2a20	46 6f 72 6d 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72 6d 2d 48 61 6e 64 6c 65 72	Form.Simula-Default-Form-Handler
2a40	5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d 75 6c 61 2d 4e 69 63 65 2d 69 6e 64 65 6e 74	].2))..(defun.simula-Nice-indent
2a60	2d 6d 6f 64 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 63 6f	-mode.nil.(interactive).(byte-co
2a80	64 65 20 22 c5 88 c6 89 10 88 c7 89 11 88 c8 89 12 88 c9 89 13 88 ca 89 14 87 22 20 5b 53 69 6d	de."......................".[Sim
2aa0	75 6c 61 2d 57 68 69 6c 65 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f	ula-While-Form.Simula-Default-Fo
2ac0	72 6d 20 53 69 6d 75 6c 61 2d 49 66 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 46 6f 72 2d 46 6f 72	rm.Simula-If-Form.Simula-For-For
2ae0	6d 20 53 69 6d 75 6c 61 2d 49 6e 73 70 65 63 74 2d 46 6f 72 6d 20 6e 69 6c 20 28 28 22 77 68 69	m.Simula-Inspect-Form.nil.(("whi
2b00	6c 65 2e 2a 62 65 67 69 6e 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29 20 28 31 20 30 29 29 20 28	le.*begin.*end;@".(0.0).(1.0)).(
2b20	22 77 68 69 6c 65 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 3b 40 22 20 28	"while..*do.*begin..*..*end;@".(
2b40	31 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a	1.0).(0.0)).("while..*do.*begin.
2b60	2e 2a 40 22 20 28 31 20 33 29 20 28 31 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 2e 2a	.*@".(1.3).(1.3)).("while..*do.*
2b80	62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 31 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e	begin.*@".(0.0).(1.3)).("while..
2ba0	2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 3b 40 22 20 28 32 20 30 29 20 28 30	*do..*begin..*..*end;@".(2.0).(0
2bc0	20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28	.0)).("while..*do..*begin..*@".(
2be0	32 20 33 29 20 28 32 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e	2.3).(2.3)).("while..*do..*begin
2c00	40 22 20 28 31 20 33 29 20 28 32 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 3b	@".(1.3).(2.3)).("while..*do..*;
2c20	40 22 20 28 31 20 33 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 40	@".(1.3).(0.0)).("while..*do..*@
2c40	22 20 28 31 20 33 29 20 28 31 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 40 22 20 28 30	".(1.3).(1.3)).("while..*do@".(0
2c60	20 30 29 20 28 31 20 33 29 29 29 20 28 28 22 62 65 67 69 6e 2e 2a 65 6e 64 3b 40 22 20 28 30 20	.0).(1.3))).(("begin.*end;@".(0.
2c80	30 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a	0).(0.0)).("while..*do.*begin..*
2ca0	0a 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 2e 2a	..*end;@".(0.0).(0.0)).("begin.*
2cc0	40 22 20 28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64	@".(0.0).(2.3)).("begin..*..*end
2ce0	2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 65 6e 64 3b	.*@".(0.0).(0.0)).("begin..*end;
2d00	40 22 20 28 32 20 33 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64	@".(2.3).(0.0)).("begin..*..*end
2d20	3b 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32	;@".(2.0).(0.0)).("begin..*@".(2
2d40	20 33 29 20 28 32 20 33 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 0a 40 22 20 28 32 20 33 29 20 28	.3).(2.3)).("begin..*.@".(2.3).(
2d60	32 20 33 29 29 20 28 22 62 65 67 69 6e 0a 2a 2e 2a 0a 2a 2e 2a 40 22 20 28 32 20 33 29 20 28 32	2.3)).("begin.*.*.*.*@".(2.3).(2
2d80	20 33 29 29 20 28 22 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 0a 2e 2a 3b	.3)).(".*;@".(0.0).(0.0)).("..*;
2da0	40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 0a 2e 2a 40 22 20 28 30 20 30 29 20 28 30	@".(0.0).(0.0)).("..*@".(0.0).(0
2dc0	20 30 29 29 20 28 22 2e 22 20 28 30 20 30 29 20 28 30 20 33 29 29 29 20 28 28 22 69 66 2e 2a 62	.0)).(".".(0.0).(0.3))).(("if.*b
2de0	65 67 69 6e 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29 20 28 31 20 30 29 29 20 28 22 69 66 20 2e	egin.*end;@".(0.0).(1.0)).("if..
2e00	2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 69 66 20 2e 2a 65	*begin.*@".(0.0).(2.3)).("if..*e
2e20	6c 73 65 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 3b 40 22 20 28 30	lse@".(0.0).(0.0)).("if..*;@".(0
2e40	20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33 29	.0).(0.0)).("if..*@".(0.0).(0.3)
2e60	29 20 28 22 69 66 20 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33	).("if..*begin.*..*@".(2.3).(2.3
2e80	29 29 20 28 22 69 66 20 2e 2a 0a 2e 2a 3b 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22	)).("if..*..*;@".(0.3).(0.0)).("
2ea0	69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20	if..*..*begin.*end.*@".(0.3).(0.
2ec0	30 29 29 20 28 22 69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 33 29 20 28 32	0)).("if..*..*begin.*@".(0.3).(2
2ee0	20 33 29 29 20 28 22 69 66 20 2e 2a 65 6c 73 65 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 30	.3)).("if..*else..*@".(0.3).(0.0
2f00	29 29 20 28 22 69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 40 22 20 28 32 20 33 29 20	)).("if..*..*begin.*..*@".(2.3).
2f20	28 32 20 33 29 29 20 28 22 69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 0a 2e 2a 65 6e	(2.3)).("if..*..*begin.*..*..*en
2f40	64 2e 2a 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 62 65 67 69 6e 2e	d.*@".(2.0).(0.0)).("if..*begin.
2f60	2a 0a 2e 2a 0a 2e 2a 65 6e 64 3b 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69	*..*..*end;.*@".(0.0).(0.0)).("i
2f80	66 20 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 0a 2e 2a 65 6e 64 40 22 20 28 32 20 30 29 20 28 30 20	f..*begin.*..*..*end@".(2.0).(0.
2fa0	30 29 29 20 28 22 65 6c 73 65 20 69 66 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28	0)).("else.if.*@".(0.0).(0.3)).(
2fc0	22 65 6c 73 65 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 65 6c 73 65 2e 2a 62 65 67	"else@".(0.0).(0.3)).("else.*beg
2fe0	69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 65 6c 73 65 2e 2a 62 65 67 69	in.*@".(0.0).(2.3)).("else.*begi
3000	6e 2e 2a 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29 29 20 28 22 65 6c 73 65 2e 2a 62 65	n.*..*@".(2.3).(2.3)).("else.*be
3020	67 69 6e 2e 2a 0a 2e 2a 0a 2e 2a 65 6e 64 3b 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28	gin.*..*..*end;@".(2.0).(0.0)).(
3040	22 65 6c 73 65 20 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 65 6c 73 65 0a	"else..*;@".(0.0).(0.0)).("else.
3060	2e 2a 62 65 67 69 6e 40 22 20 28 30 20 33 29 20 28 32 20 33 29 29 20 28 22 65 6c 73 65 0a 2e 2a	.*begin@".(0.3).(2.3)).("else..*
3080	62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29 29 20 28 22 65 6c 73 65 0a 2e	begin..*@".(2.3).(2.3)).("else..
30a0	2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29	*begin..*..*end.*@".(2.0).(0.0))
30c0	29 20 28 28 22 66 6f 72 20 2e 2a 62 65 67 69 6e 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29 20 28	).(("for..*begin.*end;@".(0.0).(
30e0	31 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30	1.0)).("for..*do.*;@".(0.0).(0.0
3100	29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 40 22 20 28 30 20 30 29 20 28 31 20 33 29 29 20 28 22 66	)).("for..*do@".(0.0).(1.3)).("f
3120	6f 72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 40 22 20 28 31 20 33 29 20 28 32 20 33 29 29 20 28	or..*do..*begin@".(1.3).(2.3)).(
3140	22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20	"for..*do..*begin..*@".(2.3).(2.
3160	33 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e	3)).("for..*do..*begin..*..*end.
3180	2a 40 22 20 28 31 20 33 29 20 28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 3b 40	*@".(1.3).(0.0)).("for..*do..*;@
31a0	22 20 28 31 20 33 29 20 28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69	".(1.3).(0.0)).("for..*do..*begi
31c0	6e 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 31 20 33 29 20 28 30 20 30 29 29 20 28 22 66 6f 72	n.*..*end.*@".(1.3).(0.0)).("for
31e0	20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 40 22 20 28 30 20 30 29 20 28 31 20 33 29 29 20 28 22 66 6f	..*do.*begin@".(0.0).(1.3)).("fo
3200	72 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 31 20 33 29 20 28 30	r..*do.*begin..*end.*@".(1.3).(0
3220	20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 31 20 33	.0)).("for..*do.*begin..*@".(1.3
3240	29 20 28 31 20 33 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a	).(1.3)).("for..*do.*begin..*..*
3260	65 6e 64 2e 2a 40 22 20 28 31 20 30 29 20 28 30 20 30 29 29 29 20 28 28 22 69 6e 73 70 65 63 74	end.*@".(1.0).(0.0))).(("inspect
3280	20 2e 2a 64 6f 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63	..*do.*;@".(0.0).(0.0)).("inspec
32a0	74 20 2e 2a 64 6f 40 22 20 28 30 20 30 29 20 28 31 20 33 29 29 20 28 22 69 6e 73 70 65 63 74 20	t..*do@".(0.0).(1.3)).("inspect.
32c0	2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 2e 2a 65 6e 64 2e 2a 40 22 20 28 31 20 33 29 20 28 30 20 30	.*do..*begin.*end.*@".(1.3).(0.0
32e0	29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 31	)).("inspect..*do..*begin.*@".(1
3300	20 33 29 20 28 32 20 33 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69	.3).(2.3)).("inspect..*do..*begi
3320	6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 33 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65	n..*end.*@".(2.3).(0.0)).("inspe
3340	63 74 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20	ct..*do..*begin..*..*end.*@".(2.
3360	30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 40	0).(0.0)).("inspect..*do.*begin@
3380	22 20 28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62	".(0.0).(2.3)).("inspect..*do.*b
33a0	65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 33 29 20 28 30 20 30 29 29 20 28 22 69 6e	egin..*end.*@".(2.3).(0.0)).("in
33c0	73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20	spect..*do.*begin..*@".(2.3).(2.
33e0	33 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65	3)).("inspect..*do.*begin..*..*e
3400	6e 64 2e 2a 3b 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e	nd.*;@".(2.0).(0.0)).("inspect..
3420	2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 40 22	*;@".(0.0).(0.0)).("inspect..*@"
3440	20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 40 22 20 28 30 20 30	.(0.0).(0.3)).("otherwise@".(0.0
3460	29 20 28 30 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67 69 6e 40 22 20 28	).(0.3)).("otherwise..*begin@".(
3480	30 20 33 29 20 28 32 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67 69 6e 0a	0.3).(2.3)).("otherwise..*begin.
34a0	2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 33 29 20 28 30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69	.*end.*@".(2.3).(0.0)).("otherwi
34c0	73 65 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29 29 20 28 22 6f	se..*begin..*@".(2.3).(2.3)).("o
34e0	74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32	therwise..*begin..*..*end.*@".(2
3500	20 30 29 20 28 30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 20 2e	.0).(0.0)).("otherwise..*begin..
3520	2a 65 6e 64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73	*end.*@".(0.0).(0.0)).("otherwis
3540	65 20 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 6f 74 68	e..*begin.*@".(0.0).(2.3)).("oth
3560	65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 33 29 20 28	erwise..*begin..*end.*@".(2.3).(
3580	30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28	0.0)).("otherwise..*begin..*@".(
35a0	32 20 33 29 20 28 32 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 0a	2.3).(2.3)).("otherwise..*begin.
35c0	2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e	.*..*end.*@".(2.0).(0.0)).("when
35e0	20 2e 2a 64 6f 40 22 20 28 30 20 33 29 20 28 30 20 36 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f	..*do@".(0.3).(0.6)).("when..*do
3600	2e 2a 3b 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 2e 2a	.*;@".(0.3).(0.0)).("when..*do.*
3620	40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65	@".(0.3).(0.3)).("when..*do..*be
3640	67 69 6e 40 22 20 28 30 20 36 29 20 28 32 20 33 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e	gin@".(0.6).(2.3)).("when..*do..
3660	2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 3b 40 22 20 28 32 20 33 29 20 28 30 20 30 29 29 20 28 22 77	*begin..*end;@".(2.3).(0.0)).("w
3680	68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33	hen..*do..*begin..*@".(2.3).(2.3
36a0	29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 3b	)).("when..*do..*begin..*..*end;
36c0	40 22 20 28 32 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65	@".(2.0).(0.0)).("when..*do..*be
36e0	67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 40 22 20 28 32 20 30 29 20 28 30 20 33 29 29 20 28 22 77 68	gin..*..*end@".(2.0).(0.3)).("wh
3700	65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 20 2e 2a 65 6e 64 3b 40 22 20 28 30 20 36 29 20 28	en..*do..*begin..*end;@".(0.6).(
3720	30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 20 2e 2a 65 6e 64 40	0.0)).("when..*do..*begin..*end@
3740	22 20 28 30 20 36 29 20 28 30 20 33 29 29 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 69 6d	".(0.6).(0.3)))].2))..(defun.sim
3760	75 6c 61 2d 53 69 6d 65 64 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 20 6e 69 6c 20 28 69 6e 74 65 72	ula-Simed-indent-mode.nil.(inter
3780	61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c6 89 10 88 c7 89 11 88 c8 89	active).(byte-code."............
37a0	12 88 c9 89 13 88 ca 89 14 87 22 20 5b 53 69 6d 75 6c 61 2d 57 68 69 6c 65 2d 46 6f 72 6d 20 53	..........".[Simula-While-Form.S
37c0	69 6d 75 6c 61 2d 44 65 66 61 75 6c 74 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 49 66 2d 46 6f 72	imula-Default-Form.Simula-If-For
37e0	6d 20 53 69 6d 75 6c 61 2d 46 6f 72 2d 46 6f 72 6d 20 53 69 6d 75 6c 61 2d 49 6e 73 70 65 63 74	m.Simula-For-Form.Simula-Inspect
3800	2d 46 6f 72 6d 20 6e 69 6c 20 28 28 22 77 68 69 6c 65 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e	-Form.nil.(("while..*do.*begin..
3820	2a 0a 65 6e 64 3b 40 22 20 28 31 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a	*.end;@".(1.0).(0.0)).("while..*
3840	64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 31 20 33 29 20 28 31 20 33 29 29 20 28 22 77 68	do.*begin..*@".(1.3).(1.3)).("wh
3860	69 6c 65 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 31 20 33 29 29	ile..*do.*begin.*@".(0.0).(1.3))
3880	20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 3b 40	.("while..*do..*begin..*..*end;@
38a0	22 20 28 31 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c 65 20 2e 2a 64 6f 0a 2e 2a 62 65	".(1.0).(0.0)).("while..*do..*be
38c0	67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29 29 20 28 22 77 68 69 6c 65 20 2e 2a	gin..*@".(2.3).(2.3)).("while..*
38e0	64 6f 0a 2e 2a 62 65 67 69 6e 40 22 20 28 31 20 30 29 20 28 31 20 33 29 29 20 28 22 77 68 69 6c	do..*begin@".(1.0).(1.3)).("whil
3900	65 20 2e 2a 64 6f 0a 2e 2a 3b 40 22 20 28 31 20 33 29 20 28 30 20 30 29 29 20 28 22 77 68 69 6c	e..*do..*;@".(1.3).(0.0)).("whil
3920	65 20 2e 2a 64 6f 0a 2e 2a 40 22 20 28 31 20 33 29 20 28 31 20 33 29 29 20 28 22 77 68 69 6c 65	e..*do..*@".(1.3).(1.3)).("while
3940	20 2e 2a 64 6f 40 22 20 28 30 20 30 29 20 28 31 20 30 29 29 29 20 28 28 22 62 65 67 69 6e 2e 2a	..*do@".(0.0).(1.0))).(("begin.*
3960	65 6e 64 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 2e 2a 40 22 20	end;@".(0.0).(0.0)).("begin.*@".
3980	28 30 20 30 29 20 28 32 20 33 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 0a 65 6e 64 22 20 28 30 20	(0.0).(2.3)).("begin..*.end".(0.
39a0	30 29 20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 65 6e 64 3b 40 22 20 28 32 20 33 29	0).(0.0)).("begin..*end;@".(2.3)
39c0	20 28 30 20 30 29 29 20 28 22 62 65 67 69 6e 0a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29	.(0.0)).("begin..*@".(2.3).(2.3)
39e0	29 20 28 22 62 65 67 69 6e 0a 2a 2e 2a 0a 2a 2e 2a 40 22 20 28 32 20 33 29 20 28 32 20 33 29 29	).("begin.*.*.*.*@".(2.3).(2.3))
3a00	20 28 22 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 0a 2e 2a 3b 40 22 20 28	.(".*;@".(0.0).(0.0)).("..*;@".(
3a20	30 20 30 29 20 28 30 20 30 29 29 20 28 22 0a 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29	0.0).(0.0)).("..*@".(0.0).(0.0))
3a40	20 28 22 2e 22 20 28 30 20 30 29 20 28 30 20 33 29 29 29 20 28 28 22 69 66 20 2e 2a 62 65 67 69	.(".".(0.0).(0.3))).(("if..*begi
3a60	6e 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 69 66 20 2e 2a 65 6c 73 65 40 22	n.*@".(0.0).(0.3)).("if..*else@"
3a80	20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 3b 40 22 20 28 30 20 30 29 20 28	.(0.0).(0.0)).("if..*;@".(0.0).(
3aa0	30 20 30 29 29 20 28 22 69 66 20 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69	0.0)).("if..*@".(0.0).(0.0)).("i
3ac0	66 20 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22	f..*begin.*..*@".(0.3).(0.3)).("
3ae0	69 66 20 2e 2a 0a 2e 2a 3b 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a	if..*..*;@".(0.3).(0.0)).("if..*
3b00	0a 2e 2a 62 65 67 69 6e 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28	..*begin.*end.*@".(0.0).(0.0)).(
3b20	22 69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20	"if..*..*begin.*@".(0.0).(0.3)).
3b40	28 22 69 66 20 2e 2a 65 6c 73 65 0a 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22	("if..*else..*@".(0.0).(0.0)).("
3b60	69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29	if..*..*begin.*..*@".(0.3).(0.3)
3b80	29 20 28 22 69 66 20 2e 2a 0a 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22	).("if..*..*begin.*..*..*end.*@"
3ba0	20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 0a	.(0.0).(0.0)).("if..*begin.*..*.
3bc0	2e 2a 65 6e 64 3b 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 66 20 2e 2a 62	.*end;.*@".(0.0).(0.0)).("if..*b
3be0	65 67 69 6e 2e 2a 0a 2e 2a 0a 2e 2a 65 6e 64 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28	egin.*..*..*end@".(0.0).(0.0)).(
3c00	22 65 6c 73 65 20 69 66 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 65 6c 73 65	"else.if.*@".(0.0).(0.0)).("else
3c20	40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 65 6c 73 65 2e 2a 62 65 67 69 6e 2e 2a 40	@".(0.0).(0.0)).("else.*begin.*@
3c40	22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 65 6c 73 65 2e 2a 62 65 67 69 6e 2e 2a 0a 2e	".(0.0).(0.3)).("else.*begin.*..
3c60	2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 65 6c 73 65 2e 2a 62 65 67 69 6e 2e 2a	*@".(0.3).(0.3)).("else.*begin.*
3c80	0a 2e 2a 0a 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 65 6c 73 65	..*..*end;@".(0.0).(0.0)).("else
3ca0	20 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 65 6c 73 65 0a 2e 2a 62 65 67	..*;@".(0.0).(0.0)).("else..*beg
3cc0	69 6e 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 65 6c 73 65 0a 2e 2a 62 65 67 69 6e	in@".(0.0).(0.3)).("else..*begin
3ce0	0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 65 6c 73 65 0a 2e 2a 62 65 67 69	..*@".(0.3).(0.3)).("else..*begi
3d00	6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 29 20 28 28 22	n..*..*end.*@".(0.0).(0.0))).(("
3d20	66 6f 72 20 2e 2a 64 6f 2e 2a 3b 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 66 6f 72	for..*do.*;@".(0.0).(0.0)).("for
3d40	20 2e 2a 64 6f 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a	..*do@".(0.0).(0.0)).("for..*do.
3d60	2e 2a 62 65 67 69 6e 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 66 6f 72 20 2e 2a 64	.*begin@".(0.0).(0.3)).("for..*d
3d80	6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 66 6f	o..*begin..*@".(0.3).(0.3)).("fo
3da0	72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 30	r..*do..*begin..*..*end.*@".(0.0
3dc0	29 20 28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 3b 40 22 20 28 30 20 33 29 20	).(0.0)).("for..*do..*;@".(0.3).
3de0	28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 2e 2a 0a 2e 2a 65 6e	(0.0)).("for..*do..*begin.*..*en
3e00	64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a 62	d.*@".(0.0).(0.0)).("for..*do.*b
3e20	65 67 69 6e 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a	egin@".(0.0).(0.3)).("for..*do.*
3e40	62 65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 66	begin..*end.*@".(0.3).(0.0)).("f
3e60	6f 72 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29	or..*do.*begin..*@".(0.3).(0.3))
3e80	20 28 22 66 6f 72 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20	.("for..*do.*begin..*..*end.*@".
3ea0	28 30 20 30 29 20 28 30 20 30 29 29 29 20 28 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 3b	(0.0).(0.0))).(("inspect..*do.*;
3ec0	40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 40 22	@".(0.0).(0.0)).("inspect..*do@"
3ee0	20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 0a 2e 2a 62	.(0.0).(0.0)).("inspect..*do..*b
3f00	65 67 69 6e 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 69 6e 73	egin.*end.*@".(0.3).(0.0)).("ins
3f20	70 65 63 74 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33	pect..*do..*begin.*@".(0.0).(0.3
3f40	29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 2e	)).("inspect..*do..*begin..*end.
3f60	2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 0a	*@".(0.0).(0.0)).("inspect..*do.
3f80	2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29	.*begin..*..*end.*@".(0.0).(0.0)
3fa0	29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 40 22 20 28 30 20 30 29 20	).("inspect..*do.*begin@".(0.0).
3fc0	28 30 20 33 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 65	(0.3)).("inspect..*do.*begin..*e
3fe0	6e 64 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a	nd.*@".(0.3).(0.0)).("inspect..*
4000	64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 69 6e	do.*begin..*@".(0.3).(0.3)).("in
4020	73 70 65 63 74 20 2e 2a 64 6f 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 3b 40 22 20	spect..*do.*begin..*..*end.*;@".
4040	28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 3b 40 22 20 28 30 20	(0.0).(0.0)).("inspect..*;@".(0.
4060	30 29 20 28 30 20 30 29 29 20 28 22 69 6e 73 70 65 63 74 20 2e 2a 40 22 20 28 30 20 30 29 20 28	0).(0.0)).("inspect..*@".(0.0).(
4080	30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29	0.0)).("otherwise@".(0.0).(0.0))
40a0	20 28 22 6f 74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67 69 6e 40 22 20 28 30 20 30 29 20 28 30 20	.("otherwise..*begin@".(0.0).(0.
40c0	33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40	3)).("otherwise..*begin..*end.*@
40e0	22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 0a 2e 2a 62 65 67	".(0.3).(0.0)).("otherwise..*beg
4100	69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65	in..*@".(0.3).(0.3)).("otherwise
4120	0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30	..*begin..*..*end.*@".(0.0).(0.0
4140	29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 20 2e 2a 65 6e 64 2e 2a 40 22	)).("otherwise..*begin..*end.*@"
4160	20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69	.(0.0).(0.0)).("otherwise..*begi
4180	6e 2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e	n.*@".(0.0).(0.3)).("otherwise..
41a0	2a 62 65 67 69 6e 0a 2e 2a 65 6e 64 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22	*begin..*end.*@".(0.3).(0.0)).("
41c0	6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20	otherwise..*begin..*@".(0.3).(0.
41e0	33 29 29 20 28 22 6f 74 68 65 72 77 69 73 65 20 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64	3)).("otherwise..*begin..*..*end
4200	2e 2a 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 40 22 20	.*@".(0.0).(0.0)).("when..*do@".
4220	28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 2e 2a 3b 40 22 20 28 30	(0.0).(0.0)).("when..*do.*;@".(0
4240	20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 2e 2a 40 22 20 28 30 20 30 29	.0).(0.0)).("when..*do.*@".(0.0)
4260	20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 40 22 20 28 30	.(0.0)).("when..*do..*begin@".(0
4280	20 30 29 20 28 30 20 33 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e	.0).(0.3)).("when..*do..*begin..
42a0	2a 65 6e 64 3b 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f	*end;@".(0.3).(0.0)).("when..*do
42c0	0a 2e 2a 62 65 67 69 6e 0a 2e 2a 40 22 20 28 30 20 33 29 20 28 30 20 33 29 29 20 28 22 77 68 65	..*begin..*@".(0.3).(0.3)).("whe
42e0	6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e 2a 65 6e 64 3b 40 22 20 28 30 20 30 29	n..*do..*begin..*..*end;@".(0.0)
4300	20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 0a 2e 2a 0a 2e	.(0.0)).("when..*do..*begin..*..
4320	2a 65 6e 64 40 22 20 28 30 20 30 29 20 28 30 20 30 29 29 20 28 22 77 68 65 6e 20 2e 2a 64 6f 0a	*end@".(0.0).(0.0)).("when..*do.
4340	2e 2a 62 65 67 69 6e 20 2e 2a 65 6e 64 3b 40 22 20 28 30 20 33 29 20 28 30 20 30 29 29 20 28 22	.*begin..*end;@".(0.3).(0.0)).("
4360	77 68 65 6e 20 2e 2a 64 6f 0a 2e 2a 62 65 67 69 6e 20 2e 2a 65 6e 64 40 22 20 28 30 20 33 29 20	when..*do..*begin..*end@".(0.3).
4380	28 30 20 30 29 29 29 5d 20 32 29 29 0a	(0.0)))].2)).