home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HD17.LSP < prev    next >
Unknown  |  1988-12-10  |  3.7 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert AutoCAD Protected LISP (other/autoCADProtectedLISP) ext Unsupported
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| f3 c8 be ca ae c2 fb c4 | bf 9d ec 8c f3 85 d6 a6 |........|........|
|00000010| f3 df be d8 ad cd a9 8c | f9 cf b6 c8 be cf b3 c3 |........|........|
|00000020| f9 8c eb 85 d6 a6 f3 df | be d8 ad cd a9 8c f9 cd |........|........|
|00000030| af d8 bf c5 ba 8e fb 9c | f2 a1 d1 84 b8 c3 b6 c1 |........|........|
|00000040| ba c2 bf 8c f9 cb a9 cd | ab c4 a8 cf a9 8e f2 a1 |........|........|
|00000050| d1 84 b6 c9 b5 d9 b8 c1 | bf 8c f9 df e6 c4 bf 98 |........|........|
|00000060| ef 8e f2 a1 d1 84 a8 c9 | af dd fb c8 bf 8c f3 cb |........|........|
|00000070| be d8 a8 d8 a9 c5 b5 cb | fb 8e 87 c2 09 06 6a 46 |........|......jF|
|00000080| 0c 0e 0f 06 67 52 6e 68 | 66 7f 14 73 61 69 19 5c |....gRnh|f..sai.\|
|00000090| e4 8c e7 f5 f4 e2 e5 8e | f2 85 d6 a6 f3 df be d8 |........|........|
|000000a0| ad cd a9 8c f9 ce b7 c5 | ab c1 b4 c8 be 8e fb 9c |........|........|
|000000b0| f2 a1 d1 84 a8 c9 af dd | fb c2 e9 8c eb 85 fb 84 |........|........|
|000000c0| a8 c9 af dd fb cf ea 8c | eb 85 d6 a6 f3 de be dc |........|........|
|000000d0| be cd af 8c e8 8c f3 c5 | bd 8c f3 83 e6 8c b8 9d |........|........|
|000000e0| fb 8e f9 85 fb 84 b3 d9 | f2 85 f2 a1 d1 84 a8 c9 |........|........|
|000000f0| af dd fb cf ea 8c f3 cb | be d8 a8 d8 a9 c5 b5 cb |........|........|
|00000100| fb d8 fb 8e 87 c2 11 48 | 13 47 60 74 19 1b 61 69 |.......H|.G`t..ai|
|00000110| 60 5e fb fe 9e f8 8e fe | 95 8c e7 e2 ef 9d ea 92 |`^......|........|
|00000120| e1 8c f9 85 f2 a1 d1 84 | b2 ca fb 84 e6 8c b8 9d |........|........|
|00000130| fb 8e f9 85 d6 a6 fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|00000140| b8 9d fb 8e 95 98 ea 9d | f9 85 d6 a6 f2 a1 d1 84 |........|........|
|00000150| b8 c3 b6 c1 ba c2 bf 8c | f9 c5 b5 df be de af 8e |........|........|
|00000160| fb 8e b1 d4 a3 9c e8 8e | fb fc fb 9d fb 9d fb 9c |........|........|
|00000170| fb cf ea 8c f9 8e f2 a1 | d1 84 a8 c9 af dd fb dc |........|........|
|00000180| ea 8c f3 c0 b2 df af 8c | f3 87 fb 84 b8 cd a9 8c |........|........|
|00000190| ab 85 fb 9f eb 85 fb 84 | b8 cd bf de fb dc f2 85 |........|........|
|000001a0| f2 a1 d1 84 b1 c0 f2 a1 | d1 84 bc de af c9 a3 d8 |........|........|
|000001b0| f2 a1 d1 84 b6 c9 b5 d9 | b8 c1 bf 8c f9 df e6 df |........|........|
|000001c0| b8 de be c9 b5 8e f2 a1 | d1 84 a8 c9 af da ba de |........|........|
|000001d0| fb 8e b9 c0 b2 dc b6 c3 | bf c9 f9 8c ea 85 d6 a6 |........|........|
|000001e0| f2 a1 d1 84 9f e9 9d f9 | 95 8c 93 f9 fb 84 f2 a1 |........|........|
|000001f0| d1 84 b6 c9 b5 d9 b8 c1 | bf 8c f9 df e6 c4 bf 98 |........|........|
|00000200| e8 8e f2 a1 d1 84 a8 c9 | af dd fb cf ea 8c f3 cb |........|........|
|00000210| be d8 a8 d8 a9 c5 b5 cb | fb d8 fb 8e 87 c2 11 48 |........|.......H|
|00000220| 13 47 6e 4b 1a 5b 60 09 | 63 7c 1d 5b 6a 46 0c 0e |.GnK.[`.|c|.[jF..|
|00000230| e1 17 29 17 03 1f 6e 90 | 1a 41 09 17 14 4c e5 11 |..)...n.|.A...L..|
|00000240| 3a 66 23 96 fb 8e f2 85 | d6 a6 fb 84 b2 ca fb 84 |:f#.....|........|
|00000250| f4 91 fb cf ea 8c f9 8e | f2 a1 d1 8c fb 8c fb 8c |........|........|
|00000260| f3 dc a9 c3 bc c2 fb 84 | a8 c9 af dd fb cf e8 8c |........|........|
|00000270| f3 cb be d8 a8 d8 a9 c5 | b5 cb fb d8 fb 8e 87 c2 |........|........|
|00000280| 11 48 13 47 60 74 19 1b | 61 69 e1 8c f9 85 f2 a1 |.H.G`t..|ai......|
|00000290| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 b2 ca |........|........|
|000002a0| fb 84 e6 8c bf c8 fb 8e | a2 8e f2 8c f3 dc a9 c3 |........|........|
|000002b0| bc c2 fb 84 b6 c9 b5 d9 | b8 c1 bf 8c f9 df e6 c4 |........|........|
|000002c0| bf 9f e8 8e f2 a1 d1 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000002d0| fb 8c fb 84 a8 c9 af dd | fb cf e9 8c f3 cb be d8 |........|........|
|000002e0| a8 d8 a9 c5 b5 cb fb d8 | fb 8e 87 c2 11 48 13 47 |........|.....H.G|
|000002f0| 66 7f 6e 4f 61 69 99 96 | fb 8e f2 85 d6 a6 fb 8c |f.nOai..|........|
|00000300| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|00000310| b8 98 fb 84 bc c9 af df | af de b2 c2 bc 8c af 8c |........|........|
|00000320| f9 f0 b5 66 3f 64 30 11 | 08 19 38 16 1e ef e1 8c |...f?d0.|..8.....|
|00000330| f9 85 f2 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000340| fb 8c f3 df be d8 aa 8c | b8 9e fb 8e f9 8c b8 98 |........|........|
|00000350| fb 8e f9 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000360| fb 8c f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000370| fb 84 b2 ca fb 84 e6 8c | b5 9e fb 9c f2 a1 d1 8c |........|........|
|00000380| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 84 ab de b4 cb |........|........|
|00000390| b5 8c f3 df be d8 aa 8c | ab 8c f3 cb be d8 ab c3 |........|........|
|000003a0| b2 c2 af 8c f9 f0 b5 66 | 3f 64 30 1e 3e 64 30 19 |.......f|?d0.>d0.|
|000003b0| 38 96 fb 8e f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |8.......|........|
|000003c0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 84 b8 c3 b6 c1 |........|........|
|000003d0| ba c2 bf 8c f9 c5 b5 df | be de af 8e fb 8e b1 d4 |........|........|
|000003e0| a3 9c ea 8e fb fc fb 9d | fb 9d fb 9c fb cf ef 8c |........|........|
|000003f0| b8 9e fb cf e8 8c b8 9d | fb 8e f9 8c f9 8e fb 8e |........|........|
|00000400| f9 8c f9 8e f2 a1 d1 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000410| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 cf b4 c1 b6 cd |........|........|
|00000420| b5 c8 fb 8e b2 c2 a8 c9 | a9 d8 f9 8c f9 c6 a3 d4 |........|........|
|00000430| e9 9d f9 8c f3 c0 b2 df | af 8c f3 87 fb 84 b8 cd |........|........|
|00000440| a9 8c ab 85 fb 9d e8 9c | f2 8c f3 87 fb 84 b8 cd |........|........|
|00000450| bf de fb fc f2 8c ec 85 | f2 8c ea 8c ea 8c eb 85 |........|........|
|00000460| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f2 a1 |........|........|
|00000470| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 b8 c3 |........|........|
|00000480| b6 c1 ba c2 bf 8c f9 c5 | b5 df be de af 8e fb 8e |........|........|
|00000490| b1 d4 a3 9c e9 8e fb fc | fb 9d fb 9d fb 9c fb cf |........|........|
|000004a0| ea 8c b8 9f fb cf ef 8c | b8 9e fb 8e f9 8c f9 8e |........|........|
|000004b0| fb 8e f9 8c f9 8e f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|000004c0| fb 8c fb 8c fb 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|000004d0| fb 8c fb 8c f3 df be d8 | aa 8c ab 8c f3 c0 b2 df |........|........|
|000004e0| af 8c f3 cf ba de fb dc | f2 8c f3 81 fb 84 b8 cd |........|........|
|000004f0| bf de fb dc f2 8c ea 99 | f2 85 f2 a1 d1 8c fb 8c |........|........|
|00000500| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb dc |........|........|
|00000510| ea 8c f3 c0 b2 df af 8c | f3 87 fb 84 b8 cd a9 8c |........|........|
|00000520| ab 85 fb 9f eb 85 fb 84 | f0 8c f3 cf ba c8 a9 8c |........|........|
|00000530| ab 85 fb 9d ee 85 f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|00000540| fb 8c fb 8c fb 8c f3 df | be d8 aa 8c b5 9e fb 84 |........|........|
|00000550| f0 8c ea 8c b5 9e f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|00000560| fb 8c fb 8c fb 8c f3 e6 | 97 85 d6 a6 fb 8c fb 8c |........|........|
|00000570| fb 85 d6 a6 fb 85 d6 a6 | f2 a1 d1 84 9f e9 9d f9 |........|........|
|00000580| 95 8c 91 e0 fb 84 f2 a1 | d1 84 a8 c9 af dd fb c2 |........|........|
|00000590| ea 8c e3 9c f2 a1 d1 84 | ac c4 b2 c0 be 8c f3 83 |........|........|
|000005a0| e6 8c b5 9d fb 9c f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|000005b0| f3 cf b4 c1 b6 cd b5 c8 | fb 8e ab c0 b2 c2 be 8e |........|........|
|000005c0| fb dc ea 8c f9 db f9 8c | ef 8c eb 8c f9 ec ef 80 |........|........|
|000005d0| eb 8e fb 8e f9 85 fb 84 | a8 c9 af dd fb c2 ba 8c |........|........|
|000005e0| eb 85 d6 a6 fb 8c fb 8c | fb 8c fb 84 b6 c9 b5 d9 |........|........|
|000005f0| b8 c1 bf 8c f9 df e6 c4 | bf 9e e3 8e f2 a1 d1 8c |........|........|
|00000600| fb 8c fb 8c fb 8c f3 cb | a9 d8 be d4 af 8c f6 9d |........|........|
|00000610| fb 8e 0a 0d 0f 5d 6d 52 | 6f 62 0f 06 67 52 69 67 |.....]mR|ob..gRig|
|00000620| 6e 09 e1 8c f9 85 d6 a6 | fb 8c fb 8c fb 8c fb 84 |n.......|........|
|00000630| a8 c9 af dd fb c2 ba c1 | be 8c f3 cb be d8 a8 d8 |........|........|
|00000640| a9 c5 b5 cb fb 8e 87 c2 | 0a 0d 0f 5d 6d 52 6f 62 |........|...]mRob|
|00000650| 0f 06 67 52 69 67 6e 09 | e1 8c e7 17 03 1f 6e 6d |..gRign.|......nm|
|00000660| 71 63 04 11 3a 66 23 92 | e1 8c f9 85 f2 a1 d1 8c |qc..:f#.|........|
|00000670| fb 8c fb 8c fb 8c f3 c5 | bd 8c f3 83 e6 8c b5 cd |........|........|
|00000680| b6 c9 fb 8e f9 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000690| fb 8c fb 84 ab de b4 cb | b5 8c f3 cf b4 c1 b6 cd |........|........|
|000006a0| b5 c8 fb 8e be de ba df | be 8e fb 8e b7 8e fb 8e |........|........|
|000006b0| f9 85 d6 a6 fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006c0| fb 8c fb 8c fb 8c f3 df | be d8 aa 8c b5 cd b6 8c |........|........|
|000006d0| f3 df af de b8 cd af 8c | f9 c4 bf 9e 87 f0 f9 8c |........|........|
|000006e0| b5 cd b6 c9 f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006f0| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 cf b4 c1 b6 cd |........|........|
|00000700| b5 c8 fb 8e b2 c2 a8 c9 | a9 d8 f9 8c b5 cd b6 8c |........|........|
|00000710| ab 9d fb 9d fb 9d fb 9c | f2 a1 d1 8c fb 8c fb 8c |........|........|
|00000720| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 b2 ca |........|........|
|00000730| fb 84 f4 91 fb 84 a8 d9 | b9 df af de fb c2 ba c1 |........|........|
|00000740| be 8c ea 8c ea 85 fb 8e | b1 8e f2 a1 d1 8c fb 8c |........|........|
|00000750| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 84 |........|........|
|00000760| ab de b4 cb b5 8c f3 df | be d8 aa 8c be 8c f3 c9 |........|........|
|00000770| b5 d8 b7 cd a8 d8 f2 85 | d6 a6 fb 8c f3 df be d8 |........|........|
|00000780| aa 8c bf 8c f3 df ae ce | a8 d8 a9 8c f3 cf bf de |........|........|
|00000790| fb 84 ba df a8 c3 b8 8c | e9 8c f3 c9 b5 d8 bc c9 |........|........|
|000007a0| af 8c be 85 f2 85 fb 9d | fb 9e f2 85 d6 a6 fb 8c |........|........|
|000007b0| f3 cf b4 c2 bf 8c f3 84 | e6 8c bf 8c f9 e7 9a 8e |........|........|
|000007c0| f2 8c f3 c1 be c2 ae cf | b6 c8 fb 8e a8 91 b3 c8 |........|........|
|000007d0| e2 9c f9 85 f2 a1 d1 8c | fb 8c fb 8c fb 8c fb 84 |........|........|
|000007e0| f3 91 fb c8 fb 8e 88 ee | f9 85 fb 84 b6 c9 b5 d9 |........|........|
|000007f0| b8 c1 bf 8c f9 df e6 c4 | bf 95 ea 8e f2 85 d6 a6 |........|........|
|00000800| 20 20 20 20 20 20 20 20 | 28 28 3d 20 64 20 22 48 | |((= d "H|
|00000810| 4c 22 29 20 28 6d 65 6e | 75 63 6d 64 20 22 73 3d |L") (men|ucmd "s=|
|00000820| 68 64 39 32 22 29 29 0d | 0a 20 20 20 20 20 20 20 |hd92")).|. |
|00000830| 20 28 28 3d 20 64 20 22 | 48 41 22 29 20 28 6d 65 | ((= d "|HA") (me|
|00000840| 6e 75 63 6d 64 20 22 73 | 3d 68 64 39 33 22 29 29 |nucmd "s|=hd93"))|
|00000850| 0d 0a 20 20 20 20 20 20 | 20 20 28 28 3d 20 64 20 |.. | ((= d |
|00000860| 22 53 41 22 29 20 28 6d | 65 6e 75 63 6d 64 20 22 |"SA") (m|enucmd "|
|00000870| 73 3d 68 64 39 34 22 29 | 29 0d 0a 20 20 20 20 20 |s=hd94")|).. |
|00000880| 20 20 20 28 28 3d 20 64 | 20 22 58 42 22 29 20 28 | ((= d| "XB") (|
|00000890| 6d 65 6e 75 63 6d 64 20 | 22 73 3d 68 64 39 35 22 |menucmd |"s=hd95"|
|000008a0| 29 29 0d 0a 20 20 20 20 | 20 20 20 20 28 28 3d 20 |)).. | ((= |
|000008b0| 64 20 22 52 50 22 29 20 | 28 6d 65 6e 75 63 6d 64 |d "RP") |(menucmd|
|000008c0| 20 22 73 3d 68 64 39 36 | 22 29 29 0d 0a 20 20 20 | "s=hd96|")).. |
|000008d0| 20 20 20 20 20 28 28 3d | 20 64 20 22 47 42 22 29 | ((=| d "GB")|
|000008e0| 20 28 6d 65 6e 75 63 6d | 64 20 22 73 3d 68 64 39 | (menucm|d "s=hd9|
|000008f0| 37 22 29 29 0d 0a 20 20 | 20 20 20 20 20 20 28 28 |7")).. | ((|
|00000900| 3d 20 64 20 22 56 41 22 | 29 20 28 6d 65 6e 75 63 |= d "VA"|) (menuc|
|00000910| 6d 64 20 22 73 3d 68 64 | 39 38 22 29 29 0d 0a 20 |md "s=hd|98")).. |
|00000920| 20 20 20 20 20 20 20 28 | 28 3d 20 64 20 22 56 42 | (|(= d "VB|
|00000930| 22 29 20 28 6d 65 6e 75 | 63 6d 64 20 22 73 3d 68 |") (menu|cmd "s=h|
|00000940| 64 39 39 22 29 29 0d 0a | 20 20 20 20 20 20 20 20 |d99"))..| |
|00000950| 28 28 3d 20 64 20 22 43 | 43 22 29 20 28 6d 65 6e |((= d "C|C") (men|
|00000960| 75 63 6d 64 20 22 73 3d | 68 64 31 30 30 22 29 29 |ucmd "s=|hd100"))|
|00000970| 0d 0a 20 20 20 20 20 20 | 20 20 28 28 3d 20 64 20 |.. | ((= d |
|00000980| 22 47 53 22 29 20 28 6d | 65 6e 75 63 6d 64 20 22 |"GS") (m|enucmd "|
|00000990| 73 3d 68 64 31 30 31 22 | 29 29 0d 0a 20 20 20 20 |s=hd101"|)).. |
|000009a0| 20 20 20 20 28 28 3d 20 | 64 20 22 42 49 22 29 20 | ((= |d "BI") |
|000009b0| 28 6d 65 6e 75 63 6d 64 | 20 22 73 3d 68 64 31 30 |(menucmd| "s=hd10|
|000009c0| 32 22 29 29 0d 0a 20 20 | 20 20 20 20 20 20 28 28 |2")).. | ((|
|000009d0| 6f 72 20 28 3d 20 64 20 | 22 52 58 22 29 20 28 3d |or (= d |"RX") (=|
|000009e0| 20 64 20 22 54 58 22 29 | 29 20 28 6d 65 6e 75 63 | d "TX")|) (menuc|
|000009f0| 6d 64 20 22 73 3d 68 64 | 39 30 22 29 29 0d 0a 20 |md "s=hd|90")).. |
|00000a00| 20 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | ).. | |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 | | (se|
|00000a20| 74 71 20 63 34 20 28 67 | 65 74 73 74 72 69 6e 67 |tq c4 (g|etstring|
|00000a30| 20 74 20 22 5c 6e ca e4 | c8 eb d4 aa bc fe b1 ea | t "\n..|........|
|00000a40| d7 a2 3a 20 22 29 29 0d | 0a 20 20 20 20 20 20 20 |..: ")).|. |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a60| 20 20 28 69 66 20 28 3d | 20 64 64 20 22 79 22 29 | (if (=| dd "y")|
|00000a70| 20 28 70 72 6f 67 6e 20 | 28 6d 65 6e 75 63 6d 64 | (progn |(menucmd|
|00000a80| 20 22 73 3d 68 64 33 33 | 22 29 0d 0a 20 20 20 20 | "s=hd33|").. |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000aa0| 20 20 20 20 20 28 73 65 | 74 71 20 63 32 20 28 67 | (se|tq c2 (g|
|00000ab0| 65 74 73 74 72 69 6e 67 | 20 74 20 22 5c 6e ca e4 |etstring| t "\n..|
|00000ac0| c8 eb d4 aa bc fe bd d3 | cf df ba c5 42 3a 20 22 |........|....B: "|
|00000ad0| 29 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).. | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 | | (se|
|00000af0| 74 71 20 63 33 20 28 67 | 65 74 73 74 72 69 6e 67 |tq c3 (g|etstring|
|00000b00| 20 74 20 22 5c 6e ca e4 | c8 eb d4 aa bc fe bd d3 | t "\n..|........|
|00000b10| cf df ba c5 43 3a 20 22 | 29 29 0d 0a 20 20 20 20 |....C: "|)).. |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b30| 20 20 20 20 20 29 0d 0a | 20 20 20 20 20 20 20 20 | )..| |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b50| 20 28 73 65 74 71 20 63 | 32 20 22 22 20 63 33 20 | (setq c|2 "" c3 |
|00000b60| 22 22 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |"").. | |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 29 0d | | ).|
|00000b80| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000b90| 20 20 20 20 20 20 20 20 | 20 20 28 65 64 29 0d 0a | | (ed)..|
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000bb0| 20 20 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | ).. | |
|00000bc0| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 63 34 20 | (|setq c4 |
|00000bd0| 22 22 20 63 32 20 22 22 | 20 63 33 20 22 22 29 0d |"" c2 ""| c3 "").|
|00000be0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000bf0| 20 20 20 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | ).. | |
|00000c00| 20 20 20 20 20 20 20 20 | 28 69 66 20 28 3d 20 6e | |(if (= n|
|00000c10| 61 6d 65 20 22 6a 78 32 | 33 22 29 0d 0a 20 20 20 |ame "jx2|3").. |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00000c30| 73 65 74 71 20 70 31 20 | 28 6c 69 73 74 20 28 2b |setq p1 |(list (+|
|00000c40| 20 28 63 61 72 20 70 31 | 29 20 32 30 29 20 28 63 | (car p1|) 20) (c|
|00000c50| 61 64 72 20 70 31 29 29 | 20 6e 31 20 28 2d 20 6e |adr p1))| n1 (- n|
|00000c60| 31 20 32 30 29 29 0d 0a | 20 20 20 20 20 20 20 20 |1 20))..| |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 29 0d 0a 20 20 20 | | ).. |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00000c90| 73 65 74 71 20 70 31 20 | 28 6c 69 73 74 20 28 2b |setq p1 |(list (+|
|00000ca0| 20 28 63 61 72 20 70 31 | 29 20 32 30 29 20 28 63 | (car p1|) 20) (c|
|00000cb0| 61 64 72 20 70 31 29 29 | 29 0d 0a 20 20 20 20 20 |adr p1))|).. |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 | | (se|
|00000cd0| 74 71 20 6e 31 20 28 2d | 20 6e 31 20 32 30 29 29 |tq n1 (-| n1 20))|
|00000ce0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 29 0d 0a |.. | )..|
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 28 70 72 6f 67 | | (prog|
|00000d00| 6e 20 28 63 6f 6d 6d 61 | 6e 64 20 22 65 72 61 73 |n (comma|nd "eras|
|00000d10| 65 22 20 22 6c 22 20 22 | 22 29 0d 0a 20 20 20 20 |e" "l" "|").. |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 63 | | (c|
|00000d30| 6f 6d 6d 61 6e 64 20 22 | 6c 69 6e 65 22 20 70 31 |ommand "|line" p1|
|00000d40| 20 28 6c 69 73 74 20 28 | 2b 20 28 63 61 72 20 70 | (list (|+ (car p|
|00000d50| 31 29 20 6e 31 29 20 28 | 63 61 64 72 20 70 31 29 |1) n1) (|cadr p1)|
|00000d60| 29 20 22 22 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |) "").. | |
|00000d70| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 6e | | (setq n|
|00000d80| 31 20 30 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |1 0).. | |
|00000d90| 20 29 0d 0a 20 20 20 20 | 20 20 20 20 29 0d 0a 29 | ).. | )..)|
|00000da0| 0d 0a 29 0d 0a 28 64 65 | 66 75 6e 20 65 64 20 28 |..)..(de|fun ed (|
|00000db0| 29 0d 0a 20 20 28 73 65 | 74 71 20 65 20 28 65 6e |).. (se|tq e (en|
|00000dc0| 74 6e 65 78 74 20 65 29 | 20 65 31 20 28 65 6e 74 |tnext e)| e1 (ent|
|00000dd0| 67 65 74 20 65 29 29 0d | 0a 20 20 28 73 65 74 71 |get e)).|. (setq|
|00000de0| 20 65 31 20 28 73 75 62 | 73 74 20 28 63 6f 6e 73 | e1 (sub|st (cons|
|00000df0| 20 31 20 63 34 29 20 28 | 61 73 73 6f 63 20 31 20 | 1 c4) (|assoc 1 |
|00000e00| 65 31 29 20 65 31 29 29 | 0d 0a 20 20 28 65 6e 74 |e1) e1))|.. (ent|
|00000e10| 6d 6f 64 20 65 31 29 0d | 0a 20 20 28 73 65 74 71 |mod e1).|. (setq|
|00000e20| 20 65 20 28 65 6e 74 6e | 65 78 74 20 65 29 20 65 | e (entn|ext e) e|
|00000e30| 31 20 28 65 6e 74 67 65 | 74 20 65 29 29 0d 0a 20 |1 (entge|t e)).. |
|00000e40| 20 28 73 65 74 71 20 65 | 31 20 28 73 75 62 73 74 | (setq e|1 (subst|
|00000e50| 20 28 63 6f 6e 73 20 31 | 20 63 32 29 20 28 61 73 | (cons 1| c2) (as|
|00000e60| 73 6f 63 20 31 20 65 31 | 29 20 65 31 29 29 0d 0a |soc 1 e1|) e1))..|
|00000e70| 20 20 28 65 6e 74 6d 6f | 64 20 65 31 29 0d 0a 20 | (entmo|d e1).. |
|00000e80| 20 28 73 65 74 71 20 65 | 20 28 65 6e 74 6e 65 78 | (setq e| (entnex|
|00000e90| 74 20 65 29 20 65 31 20 | 28 65 6e 74 67 65 74 20 |t e) e1 |(entget |
|00000ea0| 65 29 29 0d 0a 20 20 28 | 73 65 74 71 20 65 31 20 |e)).. (|setq e1 |
|00000eb0| 28 73 75 62 73 74 20 28 | 63 6f 6e 73 20 31 20 63 |(subst (|cons 1 c|
|00000ec0| 33 29 20 28 61 73 73 6f | 63 20 31 20 65 31 29 20 |3) (asso|c 1 e1) |
|00000ed0| 65 31 29 29 0d 0a 20 20 | 28 65 6e 74 6d 6f 64 20 |e1)).. |(entmod |
|00000ee0| 65 31 29 0d 0a 20 20 28 | 65 6e 74 75 70 64 20 65 |e1).. (|entupd e|
|00000ef0| 29 0d 0a 29 0d 0a 28 68 | 64 31 37 29 0d 0a 1a |)..)..(h|d17)... |
+--------+-------------------------+-------------------------+--------+--------+