DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: s

⟦d622a85a9⟧

    Length: 17293 (0x438d)
    Names: »simula.elc«

Derivation

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/simula.elc« 

Hex Dump

0x0000…0020 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_┆
0x0020…0040 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┆
0x0040…0060 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") ┆
0x0060…0080 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\\|!\\┆
0x0080…00a0 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┆
0x00a0…00c0 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┆
0x00c0…00e0 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┆
0x00e0…0100 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┆
0x0100…0120 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 " ") ┆
0x0120…0140 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┆
0x0140…0160 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┆
0x0160…0180 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┆
0x0180…01a0 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┆
0x01a0…01c0 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┆
0x01c0…01e0 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┆
0x01e0…0200 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┆
0x0200…0220 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┆
0x0220…0240 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┆
0x0240…0260 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┆
0x0260…0280 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┆
0x0280…02a0 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┆
0x02a0…02c0 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")┆
0x02c0…02e0 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┆
0x02e0…0300 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┆
0x0300…0320 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┆
0x0320…0340 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┆
0x0340…0360 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┆
0x0360…0380 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┆
0x0380…03a0 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┆
0x03a0…03c0 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┆
0x03c0…03e0 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┆
0x03e0…0400 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┆
0x0400…0420 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┆
0x0420…0440 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┆
0x0440…0460 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┆
0x0460…0480 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┆
0x0480…04a0 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┆
0x04a0…04c0 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)┆
0x04c0…04e0 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┆
0x04e0…0500 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 "."┆
0x0500…0520 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 ┆
0x0520…0540 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 ┆
0x0540…0560 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┆
0x0560…0580 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-┆
0x0580…05a0 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┆
0x05a0…05c0 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┆
0x05c0…05e0 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┆
0x05e0…0600 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┆
0x0600…0620 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) ┆
0x0620…0640 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┆
0x0640…0660 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┆
0x0660…0680 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 ".┆
0x0680…06a0 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┆
0x06a0…06c0 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┆
0x06c0…06e0 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┆
0x06e0…0700 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┆
0x0700…0720 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┆
0x0720…0740 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┆
0x0740…0760 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) (┆
0x0760…0780 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┆
0x0780…07a0 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┆
0x07a0…07c0 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┆
0x07c0…07e0 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┆
0x07e0…0800 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┆
0x0800…0820 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┆
0x0820…0840 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┆
0x0840…0860 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┆
0x0860…0880 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┆
0x0880…08a0 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-┆
0x08a0…08c0 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┆
0x08c0…08e0 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-┆
0x08e0…0900 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┆
0x0900…0920 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┆
0x0920…0940 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┆
0x0940…0960 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┆
0x0960…0980 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┆
0x0980…09a0 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 "       !          ┆
0x09a0…09c0 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   ┆ !       !       !   !        ! ┆
0x09c0…09e0 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   ┆        !        !        !     ┆
0x09e0…0a00 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   ┆   !        !        !        ! ┆
0x0a00…0a20 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   ┆       !                        ┆
0x0a20…0a40 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┆
0x0a40…0a60 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┆
0x0a60…0a80 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┆
0x0a80…0aa0 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┆
0x0aa0…0ac0 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 ┆
0x0ac0…0ae0 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┆
0x0ae0…0b00 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┆
0x0b00…0b20 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-┆
0x0b20…0b40 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┆
0x0b40…0b60 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┆
0x0b60…0b80 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┆
0x0b80…0ba0 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┆
0x0ba0…0bc0 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┆
0x0bc0…0be0 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 ┆
0x0be0…0c00 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┆
0x0c00…0c20 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┆
0x0c20…0c40 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┆
0x0c40…0c60 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 "! " " ;" "!+ *┆
0x0c60…0c80 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┆
0x0c80…0ca0 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┆
0x0ca0…0cc0 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┆
0x0cc0…0ce0 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 "    !   !   !   !   !   ┆
0x0ce0…0d00 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┆
0x0d00…0d20 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 ┆
0x0d20…0d40 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  "┆
0x0d40…0d60 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┆
0x0d60…0d80 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┆
0x0d80…0da0 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┆
0x0da0…0dc0 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.┆
0x0dc0…0de0 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┆
0x0de0…0e00 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┆
0x0e00…0e20 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 "] ┆
0x0e20…0e40 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┆
0x0e40…0e60 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┆
0x0e60…0e80 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┆
0x0e80…0ea0 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┆
0x0ea0…0ec0 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┆
0x0ec0…0ee0 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┆
0x0ee0…0f00 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┆
0x0f00…0f20 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)  (┆
0x0f20…0f40 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┆
0x0f40…0f60 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-┆
0x0f60…0f80 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┆
0x0f80…0fa0 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) ┆
0x0fa0…0fc0 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┆
0x0fc0…0fe0 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┆
0x0fe0…1000 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┆
0x1000…1020 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    ┆
0x1020…1040 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┆
0x1040…1060 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┆
0x1060…1080 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? $   !┆
0x1080…10a0 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┆
0x10a0…10c0 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 "^\" '"┆
0x10c0…10e0 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))  (┆
0x10e0…1100 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 (┆
0x1100…1120 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┆
0x1120…1140 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 "    ┆
0x1140…1160 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 % ┆
0x1160…1180 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    :    =   !   !   ┆
0x1180…11a0 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┆
0x11a0…11c0 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┆
0x11c0…11e0 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 ┆
0x11e0…1200 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┆
0x1200…1220 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┆
0x1220…1240 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┆
0x1240…1260 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 "` ┆
0x1260…1280 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   ┆
0x1280…12a0 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     #  ┆
0x12a0…12c0 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 ]   !       !  ┆
0x12c0…12e0 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  ┆
0x12e0…1300 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       #     !     #  ┆
0x1300…1320 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             !      ┆
0x1320…1340 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   ┆ !       !    ?         !       ┆
0x1340…1360 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    !   ┆
0x1360…1380 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┆
0x1380…13a0 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┆
0x13a0…13c0 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-┆
0x13c0…13e0 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 #     "┆
0x13e0…1400 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┆
0x1400…1420 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┆
0x1420…1440 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 "^%\\|\"\\|!\\|\┆
0x1440…1460 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┆
0x1460…1480 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┆
0x1480…14a0 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-┆
0x14a0…14c0 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" "^%\\|┆
0x14c0…14e0 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\┆
0x14e0…1500 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\\|\┆
0x1500…1520 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┆
0x1520…1540 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┆
0x1540…1560 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 "`     !  ┆
0x1560…1580 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┆
0x1580…15a0 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!   ! ┆
0x15a0…15c0 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┆
0x15c0…15e0 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┆
0x15e0…1600 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┆
0x1600…1620 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┆
0x1620…1640 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┆
0x1640…1660 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┆
0x1660…1680 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   ! ,    (   ! ┆
0x1680…16a0 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  ┆
0x16a0…16c0 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      )   !? _   ┆
0x16c0…16e0 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┆
0x16e0…1700 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┆
0x1700…1720 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 #    ┆
0x1720…1740 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┆
0x1740…1760 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┆
0x1760…1780 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┆
0x1780…17a0 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" ┆
0x17a0…17c0 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" ┆
0x17c0…17e0 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┆
0x17e0…1800 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┆
0x1800…1820 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┆
0x1820…1840 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┆
0x1840…1860 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 ┆
0x1860…1880 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   ┆"                 !    !   ! !  ┆
0x1880…18a0 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 ┆
0x18a0…18c0 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  ! ┆
0x18c0…18e0 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     !         ! ┆
0x18e0…1900 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!   !┆
0x1900…1920 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     !┆
[…truncated at 200 lines…]