/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HD24.LSP

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| f3 c8 be ca ae c2 fb c4 | bf 9e ef 8c f3 85 d6 a6 |........|........|
|00000010| fb 84 a8 c9 af da ba de | fb 8e b8 c1 bf c9 b8 c4 |........|........|
|00000020| b4 8e fb 9c f2 a1 d1 8c | f3 df be d8 ad cd a9 8c |........|........|
|00000030| f9 ce b7 c5 ab c1 b4 c8 | be 8e fb 9c f2 a1 d1 8c |........|........|
|00000040| f3 df be d8 ad cd a9 8c | f9 cd af d8 bf c5 ba 8e |........|........|
|00000050| fb 9c f2 a1 d1 8c f3 cf | b4 c1 b6 cd b5 c8 fb 8e |........|........|
|00000060| bc de ba dc b3 df b8 de | f9 8c f9 c0 ba d5 be de |........|........|
|00000070| f9 8c f9 df f9 8c f9 cd | f9 8c f9 8e f2 a1 d1 8c |........|........|
|00000080| f3 c1 be c2 ae cf b6 c8 | fb 8e a8 91 b3 c8 e8 9c |........|........|
|00000090| f9 85 d6 a6 fb 84 a8 c9 | af dd fb c2 fb 84 bc c9 |........|........|
|000000a0| af c5 b5 d8 fb 8e 87 c2 | 11 48 13 47 60 74 19 1b |........|.H.G`t..|
|000000b0| 6e 68 0c 42 6d 4c 0f 06 | 67 52 11 51 e1 8c f9 85 |nh.BmL..|gR.Q....|
|000000c0| f2 a1 d1 8c f3 c1 be c2 | ae cf b6 c8 fb 8e a8 91 |........|........|
|000000d0| a8 cf a9 c9 be c2 f9 85 | d6 a6 fb 84 a8 c9 af dd |........|........|
|000000e0| fb dc fb 84 bc c9 af dc | b4 c5 b5 d8 fb 8e 87 c2 |........|........|
|000000f0| 11 48 13 47 69 49 13 47 | 6e 4f e1 8c f9 85 f2 a1 |.H.GiI.G|nO......|
|00000100| d1 8c f3 df be d8 aa 8c | ab 8c f3 c0 b2 df af 8c |........|........|
|00000110| f3 cf ba de fb dc f2 8c | f3 81 fb 84 b8 cd bf de |........|........|
|00000120| fb dc f2 8c eb 82 ee 85 | f2 85 d6 a6 fb 84 a8 c9 |........|........|
|00000130| af dd fb dc ac 8c f3 c0 | b2 df af 8c f3 87 fb 84 |........|........|
|00000140| b8 cd a9 8c ab 85 fb 84 | f1 8c f3 87 fb c2 fb 9e |........|........|
|00000150| f2 8c e9 9d f2 85 fb 84 | f6 8c f3 cf ba c8 a9 8c |........|........|
|00000160| ab 85 fb 9e f2 85 f2 a1 | d1 8c f3 cf b4 c1 b6 cd |........|........|
|00000170| b5 c8 fb 8e a1 c3 b4 c1 | f9 8c f9 db f9 8c f3 c0 |........|........|
|00000180| b2 df af 8c f3 81 fb 84 | b8 cd a9 8c ab 85 fb 99 |........|........|
|00000190| f2 8c f3 87 fb 84 b8 cd | bf de fb dc f2 8c e2 85 |........|........|
|000001a0| f2 8c f3 dc b4 c0 ba de | fb dc ac 8c f3 83 fb 84 |........|........|
|000001b0| f1 8c ab c5 fb 9f f2 8c | e9 85 fb 84 f6 8c f3 cf |........|........|
|000001c0| ba de fb dc ac 85 fb 84 | b8 cd a9 8c ab 85 f2 85 |........|........|
|000001d0| f2 a1 d1 8c f3 df be d8 | aa 8c ab 9d fb dc f2 a1 |........|........|
|000001e0| d1 8c f3 df be d8 aa 8c | ab 9e fb 84 ab c3 b7 cd |........|........|
|000001f0| a9 8c ab 9d fb 9c fb 84 | f1 8c f3 87 fb c2 fb 9d |........|........|
|00000200| f2 8c e9 9c f2 85 fb c8 | b6 8c b5 c5 b7 8c ba df |........|........|
|00000210| a8 8c ea 85 d6 a6 fb 84 | b3 c5 f2 a1 d1 8c f3 df |........|........|
|00000220| be d8 aa 8c ab 8c f3 c3 | ab c9 b5 8c f9 f0 87 c4 |........|........|
|00000230| b4 d9 a8 c9 ea f0 87 d8 | a8 d8 87 f0 b3 c8 e8 82 |........|........|
|00000240| af cd af 8e fb 8e ac 8e | f2 8c bf c1 fb 84 a9 c9 |........|........|
|00000250| ad c9 a9 df be 8c bf c1 | f2 8c b5 8c f3 c0 be c2 |........|........|
|00000260| bc d8 b3 8c bf c1 f2 8c | b0 8c eb 85 d6 a6 fb 84 |........|........|
|00000270| ac c4 b2 c0 be 8c f3 90 | fb c7 fb c2 f2 a1 d1 8c |........|........|
|00000280| fb 84 ab de b2 c2 af 8c | f3 c2 af c4 fb c7 fb c8 |........|........|
|00000290| b6 85 fb dc f2 a1 d1 8c | fb 84 a8 c9 af dd fb c7 |........|........|
|000002a0| fb 84 ea 87 fb c7 f2 85 | d6 a6 fb 85 d6 a6 fb 84 |........|........|
|000002b0| b8 c0 b4 df be 8c ab 85 | d6 a6 fb 84 b6 c9 b5 d9 |........|........|
|000002c0| b8 c1 bf 8c f9 df e6 c4 | bf 9c eb 8e f2 a1 d1 8c |........|........|
|000002d0| f3 dc a9 c3 b6 dc af 8c | f9 f0 b5 6b 30 78 01 7b |........|...k0x.{|
|000002e0| 0d 13 29 68 01 60 35 7c | 6f 17 03 6e 6c 62 1f 7b |..)h.`5||o..nlb.{|
|000002f0| 0d 67 6e 6f 2c 96 f9 85 | d6 a6 fb 84 a8 c9 af dd |.gno,...|........|
|00000300| fb cd fb 9c f2 a1 d1 8c | f3 db b3 c5 b7 c9 fb 84 |........|........|
|00000310| f4 91 fb cd fb 8e f9 85 | d6 a6 fb 8c fb 8c f3 df |........|........|
|00000320| be d8 aa 8c ba 8c f3 cb | be d8 a8 d8 a9 c5 b5 cb |........|........|
|00000330| fb 9d fb 8e 87 c2 11 48 | 13 47 0c 7a 0c 45 e1 8c |.......H|.G.z.E..|
|00000340| e7 13 0e 14 2a 62 71 13 | 0e 92 fb 17 29 17 03 1f |....*bq.|....)...|
|00000350| 6e 11 3a 66 23 96 fb 8e | f2 85 d6 a6 fb 8c fb 8c |n.:f#...|........|
|00000360| f3 cf b4 c1 b6 cd b5 c8 | fb 8e af c9 a3 d8 f9 8c |........|........|
|00000370| ab db fb 99 fb 9c fb cd | f2 a1 d1 8c fb 8c fb 84 |........|........|
|00000380| a8 c9 af dd fb dc ac 8c | f3 c0 b2 df af 8c f3 cf |........|........|
|00000390| ba de fb dc ac 85 fb 84 | f6 8c f3 cf ba c8 a9 8c |........|........|
|000003a0| ab db f2 8c ea 99 f2 85 | f2 a1 d1 8c fb 85 d6 a6 |........|........|
|000003b0| fb 84 b6 c9 b5 d9 b8 c1 | bf 8c f9 df e6 df b8 de |........|........|
|000003c0| be c9 b5 8e f2 a1 d1 8c | f3 df be d8 ad cd a9 8c |........|........|
|000003d0| f9 ce b7 c5 ab c1 b4 c8 | be 8e fb 9d f2 a1 d1 85 |........|........|
|000003e0| d6 a6 f3 c8 be ca ae c2 | fb e4 92 8c f3 85 d6 a6 |........|........|
|000003f0| fb 84 a8 c9 af dd fb cd | a8 8c eb 85 d6 a6 fb 84 |........|........|
|00000400| ac c4 b2 c0 be 8c f3 83 | e6 8c ba df fb 8e f9 85 |........|........|
|00000410| d6 a6 fb 8c f3 cb a9 d8 | be d4 af 8c f6 9d fb 8e |........|........|
|00000420| 0a 0d 0f 5d 6a 73 14 73 | 69 67 6e 09 e1 8e f2 a1 |...]js.s|ign.....|
|00000430| d1 8c fb 84 b6 c9 b5 d9 | b8 c1 bf 8c f9 c5 e6 c5 |........|........|
|00000440| b8 99 e9 8e f2 a1 d1 8c | fb 84 b6 c9 b5 d9 b8 c1 |........|........|
|00000450| bf 8c f9 c5 e6 86 f9 85 | d6 a6 fb 8c f3 df be d8 |........|........|
|00000460| aa 8c ba df fb 84 bc c9 | af df af de b2 c2 bc 8c |........|........|
|00000470| f9 f0 b5 7d 7a 78 2a 1d | 04 63 04 1e 10 19 7e 96 |...}zx*.|.c....~.|
|00000480| f9 85 f2 a1 d1 8c fb 84 | b8 c3 b5 c8 fb 84 f3 91 |........|........|
|00000490| fb cd a8 8c f9 9d f9 85 | fb 84 a8 c9 af dd fb df |........|........|
|000004a0| ea 8c f9 c6 a3 9c ea 8e | fb df e9 8c f9 c6 a3 9c |........|........|
|000004b0| e8 8e f2 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c f3 84 |........|........|
|000004c0| e6 8c ba df fb 8e e9 8e | f2 8c f3 df be d8 aa 8c |........|........|
|000004d0| a8 9d fb 8e b1 d4 eb 9d | f9 8c a8 9e fb 8e b1 d4 |........|........|
|000004e0| eb 9e f9 85 f2 a1 d1 8c | fb 8c fb 8c fb 8c fb 84 |........|........|
|000004f0| f3 91 fb cd a8 8c f9 9f | f9 85 fb 84 a8 c9 af dd |........|........|
|00000500| fb df ea 8c f9 c6 a3 9c | e9 8e fb df e9 8c f9 c6 |........|........|
|00000510| a3 9c e9 8e f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000520| f3 84 e6 8c ba df fb 8e | ef 8e f2 8c f3 df be d8 |........|........|
|00000530| aa 8c a8 9d fb 8e b1 d4 | eb 9e f9 8c a8 9e fb 8e |........|........|
|00000540| b1 d4 eb 9f f9 85 f2 a1 | d1 8c fb 85 d6 a6 fb 8c |........|........|
|00000550| f3 c5 bd 8c f3 83 e6 8c | ba df fb 8e f9 85 d6 a6 |........|........|
|00000560| fb 8c fb 8c f3 dc a9 c3 | bc c2 fb 84 b8 c3 b6 c1 |........|........|
|00000570| ba c2 bf 8c f9 c5 b5 df | be de af 8e fb df ea 8c |........|........|
|00000580| ab 9d fb 9d fb 9d fb 9c | f2 a1 d1 8c fb 8c fb 8c |........|........|
|00000590| fb 8c fb 8c fb 8c f3 cf | b4 c1 b6 cd b5 c8 fb 8e |........|........|
|000005a0| b2 c2 a8 c9 a9 d8 f9 8c | a8 9e fb dc e9 8c ea 8c |........|........|
|000005b0| ea 8c eb 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000005c0| fb 84 bc de af c9 a3 d8 | fb 81 ea 8c f9 7d 7a 78 |........|.....}zx|
|000005d0| 2a 62 1f 7b 0d 67 6e 6f | 2c 7b 0d 13 29 96 f9 85 |*b.{.gno|,{..)...|
|000005e0| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 a8 c9 |........|........|
|000005f0| af dd fb dc fb 84 ab c3 | b7 cd a9 8c ab 9d fb 9c |........|........|
|00000600| fb 9d eb 85 fb c2 e9 8c | eb 85 d6 a6 fb 8c fb 8c |........|........|
|00000610| fb 8c fb 8c fb 8c fb 84 | b3 c4 f2 8c f3 c9 bf 85 |........|........|
|00000620| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 b6 c9 |........|........|
|00000630| b5 d9 b8 c1 bf 8c f9 c5 | e6 c5 b8 9a e8 8e f2 a1 |........|........|
|00000640| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 c1 be c2 |........|........|
|00000650| ae cf b6 c8 fb 8e b2 91 | f1 8e f2 a1 d1 8c fb 8c |........|........|
|00000660| fb 8c fb 8c fb 8c fb 8c | f3 df be d8 aa 8c ba d8 |........|........|
|00000670| fb 84 bc c9 af df af de | b2 c2 bc 8c f9 f0 b5 7d |........|.......}|
|00000680| 7a 78 2a 62 1f 7b 0d 67 | 6e 6f 2c 7b 0d 13 29 96 |zx*b.{.g|no,{..).|
|00000690| f9 85 f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006a0| f3 cf b4 c1 b6 cd b5 c8 | fb 8e b2 c2 a8 c9 a9 d8 |........|........|
|000006b0| f9 8c ba d8 fb 84 ab c3 | b7 cd a9 8c ab 9d fb 9c |........|........|
|000006c0| fb 84 f1 8c f3 87 fb c2 | fb 9e f2 8c e9 9c f2 85 |........|........|
|000006d0| fb 9d fb 9d fb 9c f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|000006e0| fb 8c fb 8c f3 df be d8 | aa 8c ab 9d fb 84 ab c3 |........|........|
|000006f0| b7 cd a9 8c ab 9d fb 84 | f4 8c f3 86 fb dc b2 8c |........|........|
|00000700| e8 85 fb 9e f2 8c ea 99 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000710| fb 8c fb 8c fb 8c fb 84 | a8 c9 af dd fb dc e9 8c |........|........|
|00000720| f3 dc b4 c0 ba de fb dc | ea 8c eb 8c f3 86 fb 84 |........|........|
|00000730| ea 87 fb c2 f2 8c e9 9c | f2 85 f2 a1 d1 8c fb 8c |........|........|
|00000740| fb 85 d6 a6 fb 8c f2 a1 | d1 8c fb 84 b6 c9 b5 d9 |........|........|
|00000750| b8 c1 bf 8c f9 df e6 c4 | bf 9e ef 8e f2 a1 d1 8c |........|........|
|00000760| fb 84 b2 c2 b2 d8 bc c9 | af 8c ea 8c f9 d5 fb c2 |........|........|
|00000770| f9 85 d6 a6 fb 8c f3 df | be d8 aa 8c ba df fb 84 |........|........|
|00000780| bc c9 af c7 ac c3 a9 c8 | fb 8e 87 c2 67 60 0b 54 |........|....g`.T|
|00000790| 60 74 19 1b 12 44 67 6a | 19 5c e4 8c e7 f5 f4 e2 |`t...Dgj|.\......|
|000007a0| e5 96 f9 85 f2 a1 d1 8c | fb 84 b2 ca fb 84 e6 8c |........|........|
|000007b0| ba df fb 8e b5 8e f2 8c | f3 df be d8 aa 8c ba df |........|........|
|000007c0| fb 8e f9 85 f2 a1 d1 8c | f2 a1 d1 85 d6 a6 f3 c8 |........|........|
|000007d0| be ca ae c2 fb c4 b3 8c | f3 85 d6 a6 fb 84 a8 c9 |........|........|
|000007e0| af dd fb cf fb 8e a2 8e | fb c2 ea 8c b5 85 d6 a6 |........|........|
|000007f0| fb 84 ac c4 b2 c0 be 8c | f3 91 fb cf fb 8e a2 8e |........|........|
|00000800| 29 0d 0a 20 20 28 73 65 | 74 71 20 6e 61 6d 65 20 |)..  (se|tq name |
|00000810| 30 20 6d 20 27 28 29 20 | 61 20 28 73 73 61 64 64 |0 m '() |a (ssadd|
|00000820| 29 20 70 32 20 70 29 0d | 0a 20 20 28 77 68 69 6c |) p2 p).|.  (whil|
|00000830| 65 20 28 61 6e 64 20 28 | 2f 3d 20 6e 61 6d 65 20 |e (and (|/= name |
|00000840| 22 2e 22 29 20 28 2f 3d | 20 6e 61 6d 65 20 22 73 |".") (/=| name "s|
|00000850| 22 29 20 28 3e 20 6e 31 | 20 30 29 29 0d 0a 20 20 |") (> n1| 0))..  |
|00000860| 20 28 6d 65 6e 75 63 6d | 64 20 22 73 3d 68 64 32 | (menucm|d "s=hd2|
|00000870| 33 22 29 0d 0a 20 20 20 | 28 67 72 74 65 78 74 20 |3")..   |(grtext |
|00000880| 2d 31 20 22 d1 a1 d4 f1 | d4 aa bc fe bb f2 c1 aa |-1 "....|........|
|00000890| cf df b2 cb b5 a5 3a 22 | 29 0d 0a 20 20 20 28 73 |......:"|)..   (s|
|000008a0| 65 74 71 20 6e 61 6d 65 | 20 28 73 74 72 63 61 73 |etq name| (strcas|
|000008b0| 65 20 28 67 65 74 73 74 | 72 69 6e 67 20 22 5c 6e |e (getst|ring "\n|
|000008c0| d1 a1 d4 f1 d4 aa bc fe | bb f2 c1 aa cf df b2 cb |........|........|
|000008d0| b5 a5 3a 20 5b bb d8 b3 | b5 bd e1 ca f8 5c 3c 2c |..: [...|.....\<,|
|000008e0| 3e bf d5 5c 3c 53 3e c1 | aa cf df bd e1 ca f8 5d |>..\<S>.|.......]|
|000008f0| 3a 22 29 20 74 29 29 0d | 0a 20 20 20 28 69 66 20 |:") t)).|.   (if |
|00000900| 28 3d 20 6e 61 6d 65 20 | 22 22 29 20 28 73 65 74 |(= name |"") (set|
|00000910| 71 20 6e 61 6d 65 20 22 | 2e 22 29 29 0d 0a 20 20 |q name "|."))..  |
|00000920| 20 28 69 66 20 28 61 6e | 64 20 28 2f 3d 20 6e 61 | (if (an|d (/= na|
|00000930| 6d 65 20 22 2e 22 29 20 | 28 2f 3d 20 6e 61 6d 65 |me ".") |(/= name|
|00000940| 20 22 73 22 29 29 20 28 | 73 65 74 71 20 6d 20 28 | "s")) (|setq m (|
|00000950| 63 6f 6e 73 20 6e 61 6d | 65 20 6d 29 29 29 0d 0a |cons nam|e m)))..|
|00000960| 20 20 20 28 73 65 74 71 | 20 6e 31 20 28 31 2d 20 |   (setq| n1 (1- |
|00000970| 6e 31 29 29 0d 0a 20 20 | 20 28 69 66 20 28 3d 20 |n1))..  | (if (= |
|00000980| 6e 61 6d 65 20 22 6a 78 | 32 33 22 29 20 28 73 65 |name "jx|23") (se|
|00000990| 74 71 20 6e 31 20 28 31 | 2d 20 6e 31 29 29 29 0d |tq n1 (1|- n1))).|
|000009a0| 0a 20 20 20 28 67 72 74 | 65 78 74 20 2d 32 20 28 |.   (grt|ext -2 (|
|000009b0| 73 74 72 63 61 74 20 22 | b1 be bb d8 c2 b7 bb b9 |strcat "|........|
|000009c0| bf c9 d2 d4 ca e4 c8 eb | 22 20 28 69 74 6f 61 20 |........|" (itoa |
|000009d0| 6e 31 29 20 22 b8 f6 d4 | aa bc fe 22 29 29 0d 0a |n1) "...|..."))..|
|000009e0| 20 20 29 0d 0a 20 20 28 | 67 72 74 65 78 74 29 0d |  )..  (|grtext).|
|000009f0| 0a 20 20 28 73 65 74 71 | 20 6d 20 28 72 65 76 65 |.  (setq| m (reve|
|00000a00| 72 73 65 20 6d 29 20 6c | 65 6e 20 28 6c 65 6e 67 |rse m) l|en (leng|
|00000a10| 74 68 20 6d 29 20 6e 32 | 20 30 20 6e 33 20 30 29 |th m) n2| 0 n3 0)|
|00000a20| 0d 0a 20 20 28 72 65 70 | 65 61 74 20 6c 65 6e 0d |..  (rep|eat len.|
|00000a30| 0a 20 20 20 28 69 66 20 | 28 2f 3d 20 28 6e 74 68 |.   (if |(/= (nth|
|00000a40| 20 6e 32 20 6d 29 20 22 | 2c 22 29 0d 0a 20 20 20 | n2 m) "|,")..   |
|00000a50| 20 28 70 72 6f 67 6e 20 | 28 73 65 74 71 20 6e 61 | (progn |(setq na|
|00000a60| 20 28 73 74 72 63 61 74 | 20 22 5c 5c 68 6f 75 73 | (strcat| "\\hous|
|00000a70| 65 31 5c 5c 68 64 32 5c | 5c 22 20 28 6e 74 68 20 |e1\\hd2\|\" (nth |
|00000a80| 6e 32 20 6d 29 29 29 0d | 0a 20 20 20 20 28 63 6f |n2 m))).|.    (co|
|00000a90| 6d 6d 61 6e 64 20 22 69 | 6e 73 65 72 74 22 20 6e |mmand "i|nsert" n|
|00000aa0| 61 20 70 20 31 20 31 20 | 30 29 0d 0a 20 20 20 20 |a p 1 1 |0)..    |
|00000ab0| 28 73 65 74 71 20 61 20 | 28 73 73 61 64 64 20 28 |(setq a |(ssadd (|
|00000ac0| 65 6e 74 6c 61 73 74 29 | 20 61 29 20 6e 33 20 28 |entlast)| a) n3 (|
|00000ad0| 31 2b 20 6e 33 29 29 0d | 0a 20 20 20 29 29 0d 0a |1+ n3)).|.   ))..|
|00000ae0| 20 20 28 69 66 20 28 3d | 20 28 6e 74 68 20 6e 32 |  (if (=| (nth n2|
|00000af0| 20 6d 29 20 22 6a 78 32 | 33 22 29 20 28 73 65 74 | m) "jx2|3") (set|
|00000b00| 71 20 70 20 28 70 6f 6c | 61 72 20 70 20 30 20 32 |q p (pol|ar p 0 2|
|00000b10| 30 29 29 29 0d 0a 20 20 | 28 73 65 74 71 20 6e 32 |0)))..  |(setq n2|
|00000b20| 20 28 31 2b 20 6e 32 29 | 20 70 20 28 70 6f 6c 61 | (1+ n2)| p (pola|
|00000b30| 72 20 70 20 30 20 32 30 | 29 29 0d 0a 20 20 29 0d |r p 0 20|))..  ).|
|00000b40| 0a 20 20 28 69 66 20 28 | 3d 20 6e 61 6d 65 20 22 |.  (if (|= name "|
|00000b50| 73 22 29 20 28 70 72 6f | 67 6e 20 28 63 6f 6d 6d |s") (pro|gn (comm|
|00000b60| 61 6e 64 20 22 6c 69 6e | 65 22 20 70 20 28 70 6f |and "lin|e" p (po|
|00000b70| 6c 61 72 20 70 20 30 20 | 28 2a 20 28 31 2b 20 6e |lar p 0 |(* (1+ n|
|00000b80| 31 29 20 32 30 29 29 20 | 22 22 29 20 28 73 65 74 |1) 20)) |"") (set|
|00000b90| 71 20 6e 33 20 28 31 2b | 20 6e 33 29 29 29 29 0d |q n3 (1+| n3)))).|
|00000ba0| 0a 20 20 28 6d 65 6e 75 | 63 6d 64 20 22 73 3d 68 |.  (menu|cmd "s=h|
|00000bb0| 64 30 35 22 29 0d 0a 20 | 20 28 69 6e 69 74 67 65 |d05").. | (initge|
|00000bc0| 74 20 22 79 20 6e 22 29 | 0d 0a 20 20 28 73 65 74 |t "y n")|..  (set|
|00000bd0| 71 20 63 20 28 67 65 74 | 6b 77 6f 72 64 20 22 5c |q c (get|kword "\|
|00000be0| 6e d2 aa d6 d8 d0 c2 c9 | e8 bc c6 b1 be bb d8 c2 |n.......|........|
|00000bf0| b7 c2 f0 3f 3c 59 2f 4e | 3e 3a 22 29 29 0d 0a 20 |...?<Y/N|>:")).. |
|00000c00| 20 28 63 6f 6d 6d 61 6e | 64 29 0d 0a 20 20 28 69 | (comman|d)..  (i|
|00000c10| 66 20 28 3d 20 63 20 22 | 79 22 29 20 28 70 72 6f |f (= c "|y") (pro|
|00000c20| 67 6e 20 28 72 65 70 65 | 61 74 20 6e 33 20 28 63 |gn (repe|at n3 (c|
|00000c30| 6f 6d 6d 61 6e 64 20 22 | 75 22 29 29 20 28 73 65 |ommand "|u")) (se|
|00000c40| 74 71 20 6e 31 20 6e 20 | 70 20 70 32 29 29 29 0d |tq n1 n |p p2))).|
|00000c50| 0a 20 29 0d 0a 29 0d 0a | 28 64 65 66 75 6e 20 65 |. )..)..|(defun e|
|00000c60| 64 20 28 29 0d 0a 20 28 | 73 65 74 71 20 6c 65 6e |d ().. (|setq len|
|00000c70| 20 28 73 73 6c 65 6e 67 | 74 68 20 61 29 20 6b 20 | (ssleng|th a) k |
|00000c80| 30 29 0d 0a 20 28 77 68 | 69 6c 65 20 28 3c 20 6b |0).. (wh|ile (< k|
|00000c90| 20 6c 65 6e 29 0d 0a 20 | 20 28 73 65 74 71 20 65 | len).. | (setq e|
|00000ca0| 20 28 73 73 6e 61 6d 65 | 20 61 20 6b 29 20 65 31 | (ssname| a k) e1|
|00000cb0| 20 28 65 6e 74 67 65 74 | 20 65 29 20 61 31 20 22 | (entget| e) a1 "|
|00000cc0| 22 20 62 31 20 22 22 20 | 63 31 20 22 22 20 61 31 |" b1 "" |c1 "" a1|
|00000cd0| 31 20 22 22 29 0d 0a 20 | 20 28 69 66 20 28 2f 3d |1 "").. | (if (/=|
|00000ce0| 20 28 73 74 72 63 61 73 | 65 20 28 73 75 62 73 74 | (strcas|e (subst|
|00000cf0| 72 20 28 63 64 72 20 28 | 61 73 73 6f 63 20 32 20 |r (cdr (|assoc 2 |
|00000d00| 65 31 29 29 20 31 20 31 | 29 29 20 22 4a 22 29 20 |e1)) 1 1|)) "J") |
|00000d10| 28 70 72 6f 67 6e 0d 0a | 20 20 28 63 6f 6d 6d 61 |(progn..|  (comma|
|00000d20| 6e 64 20 22 65 72 61 73 | 65 22 20 65 20 22 75 22 |nd "eras|e" e "u"|
|00000d30| 20 65 20 22 75 22 20 65 | 20 22 75 22 20 65 29 0d | e "u" e| "u" e).|
|00000d40| 0a 20 20 28 73 65 74 71 | 20 64 20 28 73 75 62 73 |.  (setq| d (subs|
|00000d50| 74 72 20 28 63 64 72 20 | 28 61 73 73 6f 63 20 32 |tr (cdr |(assoc 2|
|00000d60| 20 65 31 29 29 20 31 20 | 32 29 29 0d 0a 20 20 28 | e1)) 1 |2))..  (|
|00000d70| 63 6f 6e 64 20 28 28 3d | 20 64 20 22 4b 41 22 29 |cond ((=| d "KA")|
|00000d80| 20 28 6d 65 6e 75 63 6d | 64 20 22 73 3d 68 64 39 | (menucm|d "s=hd9|
|00000d90| 30 22 29 29 0d 0a 20 20 | 20 20 20 20 20 20 28 28 |0"))..  |      ((|
|00000da0| 3d 20 64 20 22 53 42 22 | 29 20 28 6d 65 6e 75 63 |= d "SB"|) (menuc|
|00000db0| 6d 64 20 22 73 3d 68 64 | 39 31 22 29 29 0d 0a 20 |md "s=hd|91")).. |
|00000dc0| 20 20 20 20 20 20 20 28 | 28 3d 20 64 20 22 48 4c |       (|(= d "HL|
|00000dd0| 22 29 20 28 6d 65 6e 75 | 63 6d 64 20 22 73 3d 68 |") (menu|cmd "s=h|
|00000de0| 64 39 32 22 29 29 0d 0a | 20 20 20 20 20 20 20 20 |d92"))..|        |
|00000df0| 28 28 3d 20 64 20 22 48 | 41 22 29 20 28 6d 65 6e |((= d "H|A") (men|
|00000e00| 75 63 6d 64 20 22 73 3d | 68 64 39 33 22 29 29 0d |ucmd "s=|hd93")).|
|00000e10| 0a 20 20 20 20 20 20 20 | 20 28 28 3d 20 64 20 22 |.       | ((= d "|
|00000e20| 53 41 22 29 20 28 6d 65 | 6e 75 63 6d 64 20 22 73 |SA") (me|nucmd "s|
|00000e30| 3d 68 64 39 34 22 29 29 | 0d 0a 20 20 20 20 20 20 |=hd94"))|..      |
|00000e40| 20 20 28 28 3d 20 64 20 | 22 58 42 22 29 20 28 6d |  ((= d |"XB") (m|
|00000e50| 65 6e 75 63 6d 64 20 22 | 73 3d 68 64 39 35 22 29 |enucmd "|s=hd95")|
|00000e60| 29 0d 0a 20 20 20 20 20 | 20 20 20 28 28 3d 20 64 |)..     |   ((= d|
|00000e70| 20 22 52 50 22 29 20 28 | 6d 65 6e 75 63 6d 64 20 | "RP") (|menucmd |
|00000e80| 22 73 3d 68 64 39 36 22 | 29 29 0d 0a 20 20 20 20 |"s=hd96"|))..    |
|00000e90| 20 20 20 20 28 28 3d 20 | 64 20 22 47 42 22 29 20 |    ((= |d "GB") |
|00000ea0| 28 6d 65 6e 75 63 6d 64 | 20 22 73 3d 68 64 39 37 |(menucmd| "s=hd97|
|00000eb0| 22 29 29 0d 0a 20 20 20 | 20 20 20 20 20 28 28 3d |"))..   |     ((=|
|00000ec0| 20 64 20 22 56 41 22 29 | 20 28 6d 65 6e 75 63 6d | d "VA")| (menucm|
|00000ed0| 64 20 22 73 3d 68 64 39 | 38 22 29 29 0d 0a 20 20 |d "s=hd9|8"))..  |
|00000ee0| 20 20 20 20 20 20 28 28 | 3d 20 64 20 22 56 42 22 |      ((|= d "VB"|
|00000ef0| 29 20 28 6d 65 6e 75 63 | 6d 64 20 22 73 3d 68 64 |) (menuc|md "s=hd|
|00000f00| 39 39 22 29 29 0d 0a 20 | 20 20 20 20 20 20 20 28 |99")).. |       (|
|00000f10| 28 3d 20 64 20 22 43 43 | 22 29 20 28 6d 65 6e 75 |(= d "CC|") (menu|
|00000f20| 63 6d 64 20 22 73 3d 68 | 64 31 30 30 22 29 29 0d |cmd "s=h|d100")).|
|00000f30| 0a 20 20 20 20 20 20 20 | 20 28 28 3d 20 64 20 22 |.       | ((= d "|
|00000f40| 47 53 22 29 20 28 6d 65 | 6e 75 63 6d 64 20 22 73 |GS") (me|nucmd "s|
|00000f50| 3d 68 64 31 30 31 22 29 | 29 0d 0a 20 20 20 20 20 |=hd101")|)..     |
|00000f60| 20 20 20 28 28 3d 20 64 | 20 22 42 49 22 29 20 28 |   ((= d| "BI") (|
|00000f70| 6d 65 6e 75 63 6d 64 20 | 22 73 3d 68 64 31 30 32 |menucmd |"s=hd102|
|00000f80| 22 29 29 0d 0a 20 20 20 | 20 20 20 20 20 28 28 6f |"))..   |     ((o|
|00000f90| 72 20 28 3d 20 64 20 22 | 52 58 22 29 20 28 3d 20 |r (= d "|RX") (= |
|00000fa0| 64 20 22 54 58 22 29 29 | 20 28 6d 65 6e 75 63 6d |d "TX"))| (menucm|
|00000fb0| 64 20 22 73 3d 68 64 39 | 30 22 29 29 0d 0a 20 20 |d "s=hd9|0"))..  |
|00000fc0| 29 0d 0a 20 20 28 73 65 | 74 71 20 61 31 20 28 67 |)..  (se|tq a1 (g|
|00000fd0| 65 74 73 74 72 69 6e 67 | 20 22 5c 6e ca e4 c8 eb |etstring| "\n....|
|00000fe0| d4 aa bc fe b1 ea d7 a2 | 3a 22 29 29 0d 0a 20 20 |........|:"))..  |
|00000ff0| 28 6d 65 6e 75 63 6d 64 | 20 22 73 3d 68 64 33 33 |(menucmd| "s=hd33|
|00001000| 22 29 0d 0a 20 20 28 73 | 65 74 71 20 62 31 20 28 |")..  (s|etq b1 (|
|00001010| 67 65 74 73 74 72 69 6e | 67 20 22 5c 6e ca e4 c8 |getstrin|g "\n...|
|00001020| eb d4 aa bc fe c6 f7 be | df ba c5 41 3a 22 29 29 |........|...A:"))|
|00001030| 0d 0a 20 20 28 73 65 74 | 71 20 63 31 20 28 67 65 |..  (set|q c1 (ge|
|00001040| 74 73 74 72 69 6e 67 20 | 22 5c 6e ca e4 c8 eb d4 |tstring |"\n.....|
|00001050| aa bc fe c6 f7 be df ba | c5 42 3a 22 29 29 0d 0a |........|.B:"))..|
|00001060| 20 20 29 0d 0a 20 20 29 | 0d 0a 20 20 28 63 6f 6d |  )..  )|..  (com|
|00001070| 6d 61 6e 64 29 0d 0a 20 | 20 28 69 66 20 28 61 6e |mand).. | (if (an|
|00001080| 64 20 28 2f 3d 20 64 20 | 22 52 58 22 29 20 28 2f |d (/= d |"RX") (/|
|00001090| 3d 20 64 20 22 54 58 22 | 29 29 20 28 73 65 74 71 |= d "TX"|)) (setq|
|000010a0| 20 64 6d 20 28 63 6f 6e | 73 20 61 31 20 64 6d 29 | dm (con|s a1 dm)|
|000010b0| 29 29 0d 0a 20 20 28 73 | 65 74 71 20 65 20 28 65 |))..  (s|etq e (e|
|000010c0| 6e 74 6e 65 78 74 20 65 | 29 20 65 31 20 28 65 6e |ntnext e|) e1 (en|
|000010d0| 74 67 65 74 20 65 29 29 | 0d 0a 20 20 28 73 65 74 |tget e))|..  (set|
|000010e0| 71 20 65 31 20 28 73 75 | 62 73 74 20 28 63 6f 6e |q e1 (su|bst (con|
|000010f0| 73 20 31 20 61 31 29 20 | 28 61 73 73 6f 63 20 31 |s 1 a1) |(assoc 1|
|00001100| 20 65 31 29 20 65 31 29 | 29 0d 0a 20 20 28 65 6e | e1) e1)|)..  (en|
|00001110| 74 6d 6f 64 20 65 31 29 | 0d 0a 20 20 28 73 65 74 |tmod e1)|..  (set|
|00001120| 71 20 65 20 28 65 6e 74 | 6e 65 78 74 20 65 29 20 |q e (ent|next e) |
|00001130| 65 31 20 28 65 6e 74 67 | 65 74 20 65 29 29 0d 0a |e1 (entg|et e))..|
|00001140| 20 20 28 73 65 74 71 20 | 65 31 20 28 73 75 62 73 |  (setq |e1 (subs|
|00001150| 74 20 28 63 6f 6e 73 20 | 31 20 62 31 29 20 28 61 |t (cons |1 b1) (a|
|00001160| 73 73 6f 63 20 31 20 65 | 31 29 20 65 31 29 29 0d |ssoc 1 e|1) e1)).|
|00001170| 0a 20 20 28 65 6e 74 6d | 6f 64 20 65 31 29 0d 0a |.  (entm|od e1)..|
|00001180| 20 20 28 73 65 74 71 20 | 65 20 28 65 6e 74 6e 65 |  (setq |e (entne|
|00001190| 78 74 20 65 29 20 65 31 | 20 28 65 6e 74 67 65 74 |xt e) e1| (entget|
|000011a0| 20 65 29 29 0d 0a 20 20 | 28 73 65 74 71 20 65 31 | e))..  |(setq e1|
|000011b0| 20 28 73 75 62 73 74 20 | 28 63 6f 6e 73 20 31 20 | (subst |(cons 1 |
|000011c0| 63 31 29 20 28 61 73 73 | 6f 63 20 31 20 65 31 29 |c1) (ass|oc 1 e1)|
|000011d0| 20 65 31 29 29 0d 0a 20 | 20 28 65 6e 74 6d 6f 64 | e1)).. | (entmod|
|000011e0| 20 65 31 29 0d 0a 20 20 | 28 65 6e 74 75 70 64 20 | e1)..  |(entupd |
|000011f0| 65 29 0d 0a 20 20 28 73 | 65 74 71 20 6b 20 28 31 |e)..  (s|etq k (1|
|00001200| 2b 20 6b 29 29 0d 0a 20 | 29 0d 0a 29 0d 0a 28 68 |+ k)).. |)..)..(h|
|00001210| 64 32 34 29 0d 0a 1a    |                         |d24)... |        |
+--------+-------------------------+-------------------------+--------+--------+