home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1988-12-10 | 5.0 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| AutoCAD Protected LISP (other/autoCADProtectedLISP)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| fb 84 bf c9 bd d9 b5 8c | b6 c2 b0 8c f3 8c f2 a1 |........|........|
|00000010| d1 8c fb 8c fb 8c fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|00000020| b6 c1 b6 8c f3 87 fb 84 | b7 c9 b5 cb af c4 fb c8 |........|........|
|00000030| b6 85 fb c1 b6 c1 f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|00000040| fb 8c fb 84 ac c4 b2 c0 | be 8c f3 90 fb c5 b2 8c |........|........|
|00000050| b6 c1 b6 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000060| fb 8c fb 8c fb 8c f3 df | be d8 aa 8c bf c2 fb 84 |........|........|
|00000070| b5 d8 b3 8c b2 c5 e8 8c | bf c1 f2 85 d6 a6 fb 8c |........|........|
|00000080| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|00000090| be d8 aa 8c b2 c5 fb 84 | f0 8c b2 c5 fb 9d f2 85 |........|........|
|000000a0| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000000b0| fb 8c f3 df be d8 aa 8c | b2 c5 e8 8c f3 87 fb c5 |........|........|
|000000c0| b2 9f fb 9d f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|000000d0| fb 8c fb 8c fb 8c fb 8c | f3 df be d8 aa 8c ab d8 |........|........|
|000000e0| ea 8c f3 c0 b2 df af 8c | f3 cf ba de fb dc af 9d |........|........|
|000000f0| f2 8c f3 81 fb 84 b8 cd | bf de fb dc af 9d f2 8c |........|........|
|00000100| ec 85 f2 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000110| fb 8c fb 8c fb 8c f3 df | be d8 aa 8c ab d8 e9 8c |........|........|
|00000120| f3 c0 b2 df af 8c f3 cf | ba de fb dc af 9e f2 8c |........|........|
|00000130| f3 81 fb 84 b8 cd bf de | fb dc af 9e f2 8c ec 85 |........|........|
|00000140| f2 85 d6 a6 fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000150| fb 8c fb 8c f3 df be d8 | aa 8c ab d8 e8 8c f3 c0 |........|........|
|00000160| b2 df af 8c f3 cf ba de | fb dc af 9f f2 8c f3 81 |........|........|
|00000170| fb 84 b8 cd bf de fb dc | af 9f f2 8c ec 85 f2 85 |........|........|
|00000180| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000190| fb 8c f3 df be d8 aa 8c | ab d8 ef 8c f3 c0 b2 df |........|........|
|000001a0| af 8c f3 cf ba de fb dc | af 98 f2 8c f3 81 fb 84 |........|........|
|000001b0| b8 cd bf de fb dc af 98 | f2 8c ec 85 f2 85 d6 a6 |........|........|
|000001c0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000001d0| f3 df be d8 aa 8c ab d8 | ee 8c f3 c0 b2 df af 8c |........|........|
|000001e0| f3 cf ba de fb dc af 99 | f2 8c f3 81 fb 84 b8 cd |........|........|
|000001f0| bf de fb dc af 99 f2 8c | ec 85 f2 85 d6 a6 fb 8c |........|........|
|00000200| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|00000210| be d8 aa 8c ab d8 eb 8c | f3 c0 b2 df af 8c f3 cf |........|........|
|00000220| ba de fb dc af 9c f2 8c | f3 81 fb 84 b8 cd bf de |........|........|
|00000230| fb dc af 9c f2 8c ec 85 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000240| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 cf b4 c1 |........|........|
|00000250| b6 cd b5 c8 fb 8e b2 c2 | a8 c9 a9 d8 f9 8c f9 d4 |........|........|
|00000260| a3 9c ec 8e fb dc af 9c | fb 9d fb 9d fb 9c f2 a1 |........|........|
|00000270| d1 84 b8 c3 b5 c8 fb 84 | f3 83 e6 8c b5 c2 fb c2 |........|........|
|00000280| b2 c0 f2 8c f3 cf b4 c1 | b6 cd b5 c8 fb 8e af c9 |........|........|
|00000290| a3 d8 f9 8c f9 c1 f9 8c | ab d8 ef 8c ef 82 ee 8c |........|........|
|000002a0| eb 8c f9 14 04 8c 0a 15 | fb 13 71 8c 62 74 fb 15 |........|..q.bt..|
|000002b0| 2a 8e f2 85 f2 a1 d1 84 | b8 c3 b5 c8 fb 84 f3 83 |*.......|........|
|000002c0| e6 8c b6 c1 fb c2 b2 c0 | f2 8c f3 cf b4 c1 b6 cd |........|........|
|000002d0| b5 c8 fb 8e af c9 a3 d8 | f9 8c f9 c1 f9 8c ab d8 |........|........|
|000002e0| ef 8c ef 82 ee 8c eb 8c | f9 19 16 8c 0a 15 fb 13 |........|........|
|000002f0| 71 8c 62 74 fb 15 2a 8e | f2 85 f2 a1 d1 84 b8 c3 |q.bt..*.|........|
|00000300| b5 c8 fb 84 f3 83 e6 8c | b0 c7 fb c2 b2 c0 f2 8c |........|........|
|00000310| f3 cf b4 c1 b6 cd b5 c8 | fb 8e af c9 a3 d8 f9 8c |........|........|
|00000320| f9 c1 f9 8c ab d8 ef 8c | ef 82 ee 8c eb 8c f9 1d |........|........|
|00000330| 3f 8c fb 8c 0a 15 fb 8c | fb 6a 2c 8e f2 85 f2 a1 |?.......|.j,.....|
|00000340| d1 84 b8 c3 b6 c1 ba c2 | bf 8c f9 d8 be d4 af 8e |........|........|
|00000350| fb 8e b6 8e fb dc af 99 | fb 98 f5 99 fb 9c fb 8e |........|........|
|00000360| 17 04 f9 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000370| fb 8c fb 8c fb 8c f3 cf | b4 c1 b6 cd b5 c8 fb 8e |........|........|
|00000380| af c9 a3 d8 f9 8c f9 c1 | f9 8c ab d8 ea 8c ef 82 |........|........|
|00000390| ee 8c eb 8c b2 c5 f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|000003a0| fb 8c fb 8c fb 8c fb 8c | fb 84 b8 c3 b6 c1 ba c2 |........|........|
|000003b0| bf 8c f9 d8 be d4 af 8e | fb 8e b6 8e fb dc af 9e |........|........|
|000003c0| fb 98 f5 99 fb 9c fb 84 | b8 cd a9 8c bf c2 f2 85 |........|........|
|000003d0| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000003e0| fb 8c f3 cf b4 c1 b6 cd | b5 c8 fb 8e af c9 a3 d8 |........|........|
|000003f0| f9 8c f9 c1 f9 8c ab d8 | e8 8c ef 82 ee 8c eb 8c |........|........|
|00000400| f3 cf ba c8 a9 8c bf c2 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000410| fb 8c fb 8c fb 8c f2 a1 | d1 8c fb 85 d6 a6 e0 a1 |........|........|
|00000420| d1 8c f3 c8 be ca ae c2 | fb c1 b5 c7 ea 8c f3 8c |........|........|
|00000430| f2 a1 d1 8c fb 8c fb 8c | fb 8c fb 8c f3 df be d8 |........|........|
|00000440| aa 8c bf c2 fb 84 a9 c9 | ba c8 fb 84 a9 c9 ba c8 |........|........|
|00000450| f6 c0 b2 c2 be 8c bd 85 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000460| fb 8c fb 8c fb 84 a8 c9 | af dd fb c8 b5 8c f3 de |........|........|
|00000470| be cd bf 8c f3 de be cd | bf 81 b7 c5 b5 c9 fb ca |........|........|
|00000480| f2 85 f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|00000490| be d8 aa 8c bf c1 fb c2 | b2 c0 f2 a1 d1 8c fb 8c |........|........|
|000004a0| fb 8c fb 8c fb 8c f3 db | b3 c5 b7 c9 fb 84 f4 91 |........|........|
|000004b0| fb c8 b5 8c b5 c5 b7 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|000004c0| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 cf b4 c2 bf 8c |........|........|
|000004d0| f3 84 f4 91 fb 84 b7 c5 | a8 d8 ab 8c bf c2 f2 8c |........|........|
|000004e0| b5 c5 b7 85 fb 84 a8 c9 | af dd fb c8 b6 8c f3 cf |........|........|
|000004f0| b4 c2 a8 8c bf c2 fb c8 | b6 85 f2 85 f2 a1 d1 8c |........|........|
|00000500| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 84 |........|........|
|00000510| a8 c9 af dd fb c8 b5 8c | f3 de be cd bf 8c f3 de |........|........|
|00000520| be cd bf 81 b7 c5 b5 c9 | fb ca f2 85 f2 a1 d1 8c |........|........|
|00000530| fb 8c fb 8c fb 8c fb 8c | f2 a1 d1 8c fb 8c fb 8c |........|........|
|00000540| fb 8c fb 8c f3 df be d8 | aa 8c bf c1 fb 84 a9 c9 |........|........|
|00000550| ad c9 a9 df be 8c bf c1 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000560| fb 8c fb 8c fb 84 a8 c9 | af dd fb c2 b5 c2 fb 84 |........|........|
|00000570| f6 8c f3 c0 be c2 bc d8 | b3 8c bf c1 f2 8c ea 85 |........|........|
|00000580| f2 a1 d1 8c fb 8c fb 8c | fb 8c fb 8c f3 df be d8 |........|........|
|00000590| aa 8c b2 c5 ea 8c eb 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|000005a0| fb 8c fb 84 a8 c9 af dd | fb c8 b6 99 fb 84 b7 c5 |........|........|
|000005b0| a8 d8 fb 84 b8 cd a9 8c | bf c1 f2 85 f2 a1 d1 8c |........|........|
|000005c0| fb 8c fb 8c fb 8c fb 8c | f3 df be d8 aa 8c bf c1 |........|........|
|000005d0| ef 8c f3 c0 b2 df af 8c | f3 cf ba de fb c8 b6 85 |........|........|
|000005e0| f2 85 d6 a6 fb 8c fb 8c | fb 8c fb 8c fb 84 ac c4 |........|........|
|000005f0| b2 c0 be 8c f3 90 e6 8c | b2 c5 ea 8c b5 c2 b5 85 |........|........|
|00000600| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000610| fb 8c f3 cf b4 c2 bf 8c | f3 84 f4 91 fb c5 b2 9d |........|........|
|00000620| fb 9c f2 8c f3 df be d8 | aa 8c bf c1 ee 8c f3 cf |........|........|
|00000630| b4 c2 a8 8c bf c1 ea 8c | bf c1 ee 85 f2 85 f2 a1 |........|........|
|00000640| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000650| fb 84 a8 c9 af dd fb c8 | b6 9f fb c8 b6 99 f2 a1 |........|........|
|00000660| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000670| fb 84 a8 c9 af dd fb c8 | b6 9d fb 84 b5 d8 b3 8c |........|........|
|00000680| b2 c5 ea 8c bf c1 f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|00000690| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|000006a0| b2 c5 ea 8c f3 87 fb c5 | b2 9d fb 9d f2 85 d6 a6 |........|........|
|000006b0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006c0| f3 df be d8 aa 8c b1 c6 | ea 8c b2 c5 ea 85 d6 a6 |........|........|
|000006d0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006e0| f3 db b3 c5 b7 c9 fb 84 | e7 91 fb c6 b1 9d fb c2 |........|........|
|000006f0| b5 c2 f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000700| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 df be d8 |........|........|
|00000710| aa 8c bf c1 e9 8c f3 c2 | af c4 fb c6 b1 9d fb c8 |........|........|
|00000720| b6 85 f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000730| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 c5 bd 8c |........|........|
|00000740| f3 91 fb 84 b8 cd a9 8c | bf c1 ea 85 fb 84 b8 cd |........|........|
|00000750| a9 8c bf c1 e9 85 f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|00000760| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000770| f3 dc a9 c3 bc c2 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000780| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 84 |........|........|
|00000790| a8 c9 af dd fb c8 b6 9c | ea 8c f3 87 fb 84 b8 cd |........|........|
|000007a0| bf de fb c8 b6 9d f2 8c | f3 cf ba c8 a9 8c bf c1 |........|........|
|000007b0| e9 85 f2 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000007c0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 a8 c9 |........|........|
|000007d0| af dd fb c8 b6 9d fb 84 | b7 c5 a8 d8 fb 84 b8 cd |........|........|
|000007e0| a9 8c bf c1 ea 85 fb c8 | b6 9c ea 85 f2 a1 d1 8c |........|........|
|000007f0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000800| 20 20 20 20 20 20 28 69 | 66 20 28 3d 20 28 6c 65 | (i|f (= (le|
|00000810| 6e 67 74 68 20 64 6d 33 | 29 20 31 29 0d 0a 20 20 |ngth dm3|) 1).. |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000830| 20 20 20 20 20 28 73 65 | 74 71 20 64 6d 33 20 28 | (se|tq dm3 (|
|00000840| 6c 69 73 74 20 64 6d 31 | 29 29 0d 0a 20 20 20 20 |list dm1|)).. |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000860| 20 20 20 28 70 72 6f 67 | 6e 0d 0a 20 20 20 20 20 | (prog|n.. |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000880| 20 20 28 73 65 74 71 20 | 64 6d 33 20 28 63 6f 6e | (setq |dm3 (con|
|00000890| 73 20 64 6d 31 20 28 63 | 64 72 20 28 72 65 76 65 |s dm1 (c|dr (reve|
|000008a0| 72 73 65 20 64 6d 33 29 | 29 29 29 0d 0a 20 20 20 |rse dm3)|))).. |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008c0| 20 20 20 20 28 73 65 74 | 71 20 64 6d 33 20 28 72 | (set|q dm3 (r|
|000008d0| 65 76 65 72 73 65 20 64 | 6d 33 29 29 29 29 0d 0a |everse d|m3))))..|
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008f0| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 6e 6e 6e | (|setq nnn|
|00000900| 20 28 2d 20 6e 6e 6e 20 | 31 29 29 29 0d 0a 20 20 | (- nnn |1))).. |
|00000910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000920| 20 20 20 20 20 28 73 65 | 74 71 20 64 6d 33 20 28 | (se|tq dm3 (|
|00000930| 63 6f 6e 73 20 64 6d 32 | 20 64 6d 33 29 29 29 0d |cons dm2| dm3))).|
|00000940| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000950| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 6a 6a | |(setq jj|
|00000960| 31 20 28 2b 20 6a 6a 31 | 20 31 29 29 0d 0a 20 20 |1 (+ jj1| 1)).. |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 29 0d | | ).|
|00000980| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000990| 20 28 73 65 74 71 20 64 | 6d 20 28 72 65 76 65 72 | (setq d|m (rever|
|000009a0| 73 65 20 64 6d 33 29 29 | 0d 0a 20 20 20 20 20 20 |se dm3))|.. |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 28 69 66 20 28 2f | | (if (/|
|000009c0| 3d 20 69 69 31 20 31 29 | 20 28 73 65 74 71 20 64 |= ii1 1)| (setq d|
|000009d0| 6d 34 20 28 63 6f 6e 73 | 20 64 6d 31 20 64 6d 34 |m4 (cons| dm1 dm4|
|000009e0| 29 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).. | |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a00| 20 20 20 28 73 65 74 71 | 20 64 6d 34 20 28 6c 69 | (setq| dm4 (li|
|00000a10| 73 74 20 64 6d 31 29 29 | 29 0d 0a 20 20 20 20 20 |st dm1))|).. |
|00000a20| 20 20 20 20 20 29 0d 0a | 20 20 20 20 20 20 20 20 | )..| |
|00000a30| 20 20 28 73 65 74 71 20 | 64 6d 20 28 72 65 76 65 | (setq |dm (reve|
|00000a40| 72 73 65 20 64 6d 34 29 | 29 0d 0a 20 20 29 0d 0a |rse dm4)|).. )..|
|00000a50| 3b 0d 0a 28 64 65 66 75 | 6e 20 68 64 31 30 20 28 |;..(defu|n hd10 (|
|00000a60| 29 0d 0a 28 73 65 74 76 | 61 72 20 22 63 6d 64 65 |)..(setv|ar "cmde|
|00000a70| 63 68 6f 22 20 30 29 0d | 0a 28 63 6f 6d 6d 61 6e |cho" 0).|.(comman|
|00000a80| 64 20 22 67 72 61 70 68 | 73 63 72 22 29 0d 0a 28 |d "graph|scr")..(|
|00000a90| 73 65 74 71 20 70 20 28 | 67 65 74 70 6f 69 6e 74 |setq p (|getpoint|
|00000aa0| 20 22 5c 6e ca e4 c8 eb | b2 e5 c8 eb b5 e3 3a 20 | "\n....|......: |
|00000ab0| 22 29 29 0d 0a 28 73 65 | 74 71 20 70 32 20 70 29 |"))..(se|tq p2 p)|
|00000ac0| 0d 0a 28 73 65 74 76 61 | 72 20 22 62 6c 69 70 6d |..(setva|r "blipm|
|00000ad0| 6f 64 65 22 20 30 29 0d | 0a 28 63 6f 6d 6d 61 6e |ode" 0).|.(comman|
|00000ae0| 64 20 22 69 6e 73 65 72 | 74 22 20 22 78 78 30 39 |d "inser|t" "xx09|
|00000af0| 22 20 70 20 31 20 31 20 | 30 29 0d 0a 28 73 65 74 |" p 1 1 |0)..(set|
|00000b00| 71 20 70 74 30 20 28 6c | 69 73 74 20 28 63 61 72 |q pt0 (l|ist (car|
|00000b10| 20 70 29 20 28 2d 20 28 | 63 61 64 72 20 70 29 20 | p) (- (|cadr p) |
|00000b20| 31 34 29 29 29 0d 0a 28 | 73 65 74 71 20 70 74 31 |14)))..(|setq pt1|
|00000b30| 20 28 6c 69 73 74 20 28 | 2b 20 28 63 61 72 20 70 | (list (|+ (car p|
|00000b40| 29 20 37 2e 35 29 20 28 | 2d 20 28 63 61 64 72 20 |) 7.5) (|- (cadr |
|00000b50| 70 29 20 31 37 2e 35 29 | 29 29 0d 0a 28 73 65 74 |p) 17.5)|))..(set|
|00000b60| 71 20 70 74 32 20 28 6c | 69 73 74 20 28 2b 20 28 |q pt2 (l|ist (+ (|
|00000b70| 63 61 72 20 70 74 31 29 | 20 31 30 38 2e 37 35 29 |car pt1)| 108.75)|
|00000b80| 20 28 63 61 64 72 20 70 | 74 31 29 29 29 0d 0a 28 | (cadr p|t1)))..(|
|00000b90| 73 65 74 71 20 70 74 33 | 20 28 6c 69 73 74 20 28 |setq pt3| (list (|
|00000ba0| 2b 20 28 63 61 72 20 70 | 74 32 29 20 36 37 2e 35 |+ (car p|t2) 67.5|
|00000bb0| 29 20 28 63 61 64 72 20 | 70 74 31 29 29 29 0d 0a |) (cadr |pt1)))..|
|00000bc0| 28 73 65 74 71 20 70 74 | 34 20 28 6c 69 73 74 20 |(setq pt|4 (list |
|00000bd0| 28 2b 20 28 63 61 72 20 | 70 74 31 29 20 34 31 2e |(+ (car |pt1) 41.|
|00000be0| 32 35 29 20 28 63 61 64 | 72 20 70 74 31 29 29 29 |25) (cad|r pt1)))|
|00000bf0| 0d 0a 28 73 65 74 71 20 | 70 74 35 20 28 6c 69 73 |..(setq |pt5 (lis|
|00000c00| 74 20 28 2b 20 28 63 61 | 72 20 70 74 32 29 20 34 |t (+ (ca|r pt2) 4|
|00000c10| 35 29 20 28 63 61 64 72 | 20 70 74 31 29 29 29 0d |5) (cadr| pt1))).|
|00000c20| 0a 3b 0d 0a 3b 0d 0a 20 | 20 20 20 20 20 28 73 65 |.;..;.. | (se|
|00000c30| 74 71 20 6b 6b 20 6e 69 | 6c 29 0d 0a 20 20 20 20 |tq kk ni|l).. |
|00000c40| 20 20 28 73 65 74 71 20 | 6e 6e 20 6e 69 6c 29 0d | (setq |nn nil).|
|00000c50| 0a 20 20 20 20 20 20 28 | 73 65 74 71 20 6d 6d 20 |. (|setq mm |
|00000c60| 6e 69 6c 29 0d 0a 20 20 | 20 20 20 20 28 73 65 74 |nil).. | (set|
|00000c70| 71 20 6a 6a 20 6e 69 6c | 29 0d 0a 20 20 20 20 20 |q jj nil|).. |
|00000c80| 20 28 73 65 74 71 20 6c | 6c 20 6e 69 6c 29 0d 0a | (setq l|l nil)..|
|00000c90| 20 20 20 20 20 20 28 73 | 65 74 71 20 6d 6d 6d 20 | (s|etq mmm |
|00000ca0| 30 29 0d 0a 20 20 20 20 | 20 28 73 65 74 71 20 66 |0).. | (setq f|
|00000cb0| 20 28 6f 70 65 6e 20 22 | 5c 5c 68 6f 75 73 65 31 | (open "|\\house1|
|00000cc0| 5c 5c 74 73 74 5c 5c 68 | 64 31 2e 74 61 74 22 20 |\\tst\\h|d1.tat" |
|00000cd0| 22 72 22 29 29 0d 0a 20 | 20 20 20 20 28 69 66 20 |"r")).. | (if |
|00000ce0| 28 2f 3d 20 66 20 6e 69 | 6c 29 20 28 70 72 6f 67 |(/= f ni|l) (prog|
|00000cf0| 6e 20 28 6d 6e 6b 31 29 | 0d 0a 20 20 20 20 20 20 |n (mnk1)|.. |
|00000d00| 20 20 20 28 73 65 74 71 | 20 69 69 20 30 29 0d 0a | (setq| ii 0)..|
|00000d10| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 69 | | (setq i|
|00000d20| 69 33 20 30 29 0d 0a 3b | 0d 0a 20 20 20 20 20 20 |i3 0)..;|.. |
|00000d30| 20 20 20 20 20 28 73 65 | 74 71 20 6e 6e 20 31 31 | (se|tq nn 11|
|00000d40| 31 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 28 |1).. | (|
|00000d50| 6d 6e 6b 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |mnk).. | |
|00000d60| 20 28 73 65 74 71 20 6e | 6e 20 6e 69 6c 29 0d 0a | (setq n|n nil)..|
|00000d70| 3b 0d 0a 20 20 20 20 20 | 28 63 6c 6f 73 65 20 66 |;.. |(close f|
|00000d80| 29 0d 0a 20 20 20 20 20 | 20 29 29 0d 0a 3b 0d 0a |).. | ))..;..|
|00000d90| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 69 | | (setq i|
|00000da0| 69 33 20 30 29 0d 0a 20 | 20 20 20 20 28 73 65 74 |i3 0).. | (set|
|00000db0| 71 20 66 20 28 6f 70 65 | 6e 20 22 5c 5c 68 6f 75 |q f (ope|n "\\hou|
|00000dc0| 73 65 31 5c 5c 74 73 74 | 5c 5c 68 64 32 2e 74 61 |se1\\tst|\\hd2.ta|
|00000dd0| 74 22 20 22 72 22 29 29 | 0d 0a 20 20 20 20 20 28 |t" "r"))|.. (|
|00000de0| 69 66 20 28 2f 3d 20 66 | 20 6e 69 6c 29 20 28 70 |if (/= f| nil) (p|
|00000df0| 72 6f 67 6e 20 28 6d 6e | 6b 31 29 0d 0a 20 20 20 |rogn (mn|k1).. |
|00000e00| 20 20 20 28 73 65 74 71 | 20 6d 6d 20 31 31 31 29 | (setq| mm 111)|
|00000e10| 0d 0a 20 20 20 20 20 20 | 28 6d 6e 6b 29 0d 0a 20 |.. |(mnk).. |
|00000e20| 20 20 20 20 20 28 73 65 | 74 71 20 6d 6d 20 6e 69 | (se|tq mm ni|
|00000e30| 6c 29 0d 0a 20 20 20 20 | 20 28 63 6c 6f 73 65 20 |l).. | (close |
|00000e40| 66 29 0d 0a 20 20 20 20 | 20 29 29 0d 0a 3b 0d 0a |f).. | ))..;..|
|00000e50| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 69 | | (setq i|
|00000e60| 69 33 20 30 29 0d 0a 20 | 20 20 20 20 28 73 65 74 |i3 0).. | (set|
|00000e70| 71 20 66 20 28 6f 70 65 | 6e 20 22 5c 5c 68 6f 75 |q f (ope|n "\\hou|
|00000e80| 73 65 31 5c 5c 74 73 74 | 5c 5c 68 64 33 2e 74 61 |se1\\tst|\\hd3.ta|
|00000e90| 74 22 20 22 72 22 29 29 | 0d 0a 20 20 20 20 20 28 |t" "r"))|.. (|
|00000ea0| 69 66 20 28 2f 3d 20 66 | 20 6e 69 6c 29 20 28 70 |if (/= f| nil) (p|
|00000eb0| 72 6f 67 6e 20 28 6d 6e | 6b 31 29 0d 0a 20 20 20 |rogn (mn|k1).. |
|00000ec0| 20 20 20 28 73 65 74 71 | 20 6b 6b 20 31 31 31 29 | (setq| kk 111)|
|00000ed0| 0d 0a 20 20 20 20 20 20 | 28 6d 6e 6b 29 0d 0a 20 |.. |(mnk).. |
|00000ee0| 20 20 20 20 20 28 73 65 | 74 71 20 6b 6b 20 6e 69 | (se|tq kk ni|
|00000ef0| 6c 29 0d 0a 20 20 20 20 | 20 28 63 6c 6f 73 65 20 |l).. | (close |
|00000f00| 66 29 0d 0a 20 20 20 20 | 20 29 29 0d 0a 3b 0d 0a |f).. | ))..;..|
|00000f10| 3b 0d 0a 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 28 |;..;.. | (|
|00000f20| 73 65 74 71 20 64 20 6e | 69 6c 29 0d 0a 20 20 20 |setq d n|il).. |
|00000f30| 20 20 28 77 68 69 6c 65 | 20 28 2f 3d 20 64 20 22 | (while| (/= d "|
|00000f40| 2e 22 29 0d 0a 20 20 20 | 20 20 20 20 20 28 6d 65 |.").. | (me|
|00000f50| 6e 75 63 6d 64 20 22 73 | 3d 68 64 30 30 22 29 0d |nucmd "s|=hd00").|
|00000f60| 0a 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 64 |. | (setq d|
|00000f70| 20 28 67 65 74 73 74 72 | 69 6e 67 20 31 20 22 5c | (getstr|ing 1 "\|
|00000f80| 6e ca e4 c8 eb c9 e8 b1 | b8 c3 fb b3 c6 bb f2 3c |n.......|.......<|
|00000f90| 2e 3e bd e1 ca f8 3a 20 | 22 29 29 0d 0a 20 20 20 |.>....: |")).. |
|00000fa0| 20 20 20 20 20 28 63 6f | 6e 64 20 28 28 2f 3d 20 | (co|nd ((/= |
|00000fb0| 64 20 22 2e 22 29 20 28 | 70 72 6f 67 6e 0d 0a 20 |d ".") (|progn.. |
|00000fc0| 20 20 20 20 20 20 20 28 | 6d 65 6e 75 63 6d 64 20 | (|menucmd |
|00000fd0| 22 73 3d 68 64 35 30 22 | 29 0d 0a 20 20 20 20 20 |"s=hd50"|).. |
|00000fe0| 20 20 20 28 73 65 74 71 | 20 62 20 28 67 65 74 73 | (setq| b (gets|
|00000ff0| 74 72 69 6e 67 20 31 20 | 22 5c 6e ca e4 c8 eb c9 |tring 1 |"\n.....|
|00001000| e8 b1 b8 d0 cd ba c5 b9 | e6 b8 f1 3a 20 22 29 29 |........|...: "))|
|00001010| 0d 0a 20 20 20 20 20 20 | 20 20 28 6d 65 6e 75 63 |.. | (menuc|
|00001020| 6d 64 20 22 73 3d 68 64 | 33 33 22 29 0d 0a 20 20 |md "s=hd|33").. |
|00001030| 20 20 20 20 20 20 28 73 | 65 74 71 20 63 20 28 67 | (s|etq c (g|
|00001040| 65 74 73 74 72 69 6e 67 | 20 22 5c 6e ca e4 c8 eb |etstring| "\n....|
|00001050| c9 e8 b1 b8 ca fd c1 bf | 3a 20 22 29 29 0d 0a 20 |........|: ")).. |
|00001060| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 69 69 20 | (|setq ii |
|00001070| 28 2b 20 69 69 20 31 29 | 29 0d 0a 20 20 20 20 20 |(+ ii 1)|).. |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 | | (setq|
|00001090| 20 70 74 31 20 28 6c 69 | 73 74 20 28 63 61 72 20 | pt1 (li|st (car |
|000010a0| 70 74 31 29 20 28 2d 20 | 28 63 61 64 72 20 70 74 |pt1) (- |(cadr pt|
|000010b0| 31 29 20 37 29 29 29 0d | 0a 20 20 20 20 20 20 20 |1) 7))).|. |
|000010c0| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 70 | | (setq p|
|000010d0| 74 32 20 28 6c 69 73 74 | 20 28 63 61 72 20 70 74 |t2 (list| (car pt|
|000010e0| 32 29 20 28 2d 20 28 63 | 61 64 72 20 70 74 32 29 |2) (- (c|adr pt2)|
|000010f0| 20 37 29 29 29 0d 0a 20 | 20 20 20 20 20 20 20 20 | 7))).. | |
|00001100| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 70 74 33 | (|setq pt3|
|00001110| 20 28 6c 69 73 74 20 28 | 63 61 72 20 70 74 33 29 | (list (|car pt3)|
|00001120| 20 28 2d 20 28 63 61 64 | 72 20 70 74 33 29 20 37 | (- (cad|r pt3) 7|
|00001130| 29 29 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |))).. | |
|00001140| 20 20 20 20 20 28 73 65 | 74 71 20 70 74 34 20 28 | (se|tq pt4 (|
|00001150| 6c 69 73 74 20 28 63 61 | 72 20 70 74 34 29 20 28 |list (ca|r pt4) (|
|00001160| 2d 20 28 63 61 64 72 20 | 70 74 34 29 20 37 29 29 |- (cadr |pt4) 7))|
|00001170| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|00001180| 20 20 20 28 73 65 74 71 | 20 70 74 35 20 28 6c 69 | (setq| pt5 (li|
|00001190| 73 74 20 28 63 61 72 20 | 70 74 35 29 20 28 2d 20 |st (car |pt5) (- |
|000011a0| 28 63 61 64 72 20 70 74 | 35 29 20 37 29 29 29 0d |(cadr pt|5) 7))).|
|000011b0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000011c0| 20 28 73 65 74 71 20 70 | 74 30 20 28 6c 69 73 74 | (setq p|t0 (list|
|000011d0| 20 28 63 61 72 20 70 74 | 30 29 20 28 2d 20 28 63 | (car pt|0) (- (c|
|000011e0| 61 64 72 20 70 74 30 29 | 20 37 29 29 29 0d 0a 20 |adr pt0)| 7))).. |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001200| 63 6f 6d 6d 61 6e 64 20 | 22 69 6e 73 65 72 74 22 |command |"insert"|
|00001210| 20 22 78 78 30 37 22 20 | 70 74 30 20 31 20 31 20 | "xx07" |pt0 1 1 |
|00001220| 30 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).. | |
|00001230| 20 20 20 20 28 63 6f 6d | 6d 61 6e 64 20 22 74 65 | (com|mand "te|
|00001240| 78 74 22 20 22 6d 22 20 | 70 74 34 20 34 2e 35 20 |xt" "m" |pt4 4.5 |
|00001250| 30 20 64 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |0 d).. | |
|00001260| 20 20 20 20 20 20 28 63 | 6f 6d 6d 61 6e 64 20 22 | (c|ommand "|
|00001270| 74 65 78 74 22 20 22 6d | 22 20 70 74 35 20 34 2e |text" "m|" pt5 4.|
|00001280| 35 20 30 20 22 cc a8 22 | 29 0d 0a 20 20 20 20 20 |5 0 ".."|).. |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 28 63 6f 6d 6d | | (comm|
|000012a0| 61 6e 64 20 22 74 65 78 | 74 22 20 22 6d 22 20 70 |and "tex|t" "m" p|
|000012b0| 74 31 20 34 2e 35 20 30 | 20 69 69 29 0d 0a 20 20 |t1 4.5 0| ii).. |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 63 | | (c|
|000012d0| 6f 6d 6d 61 6e 64 20 22 | 74 65 78 74 22 20 22 6d |ommand "|text" "m|
|000012e0| 22 20 70 74 32 20 34 2e | 35 20 30 20 62 29 0d 0a |" pt2 4.|5 0 b)..|
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001300| 28 63 6f 6d 6d 61 6e 64 | 20 22 74 65 78 74 22 20 |(command| "text" |
|00001310| 22 6d 22 20 70 74 33 20 | 34 2e 35 20 30 20 63 29 |"m" pt3 |4.5 0 c)|
|00001320| 29 29 29 0d 0a 20 20 20 | 20 20 20 20 29 0d 0a 20 |))).. | ).. |
|00001330| 28 73 65 74 71 20 70 74 | 30 20 28 6c 69 73 74 20 |(setq pt|0 (list |
|00001340| 28 63 61 72 20 70 74 30 | 29 20 28 2d 20 28 63 61 |(car pt0|) (- (ca|
|00001350| 64 72 20 70 74 30 29 20 | 37 29 29 29 0d 0a 3b 0d |dr pt0) |7)))..;.|
|00001360| 0a 28 73 65 74 71 20 70 | 33 20 28 6c 69 73 74 20 |.(setq p|3 (list |
|00001370| 28 2b 20 28 63 61 72 20 | 70 32 29 20 32 34 30 29 |(+ (car |p2) 240)|
|00001380| 20 28 63 61 64 72 20 70 | 32 29 29 29 0d 0a 28 73 | (cadr p|2)))..(s|
|00001390| 65 74 71 20 70 34 20 28 | 6c 69 73 74 20 28 2b 20 |etq p4 (|list (+ |
|000013a0| 28 63 61 72 20 70 74 30 | 29 20 32 34 30 29 20 28 |(car pt0|) 240) (|
|000013b0| 63 61 64 72 20 70 74 30 | 29 29 29 0d 0a 28 63 6f |cadr pt0|)))..(co|
|000013c0| 6d 6d 61 6e 64 20 22 70 | 6c 69 6e 65 22 20 70 32 |mmand "p|line" p2|
|000013d0| 20 22 77 22 20 30 2e 33 | 20 30 2e 33 20 70 33 20 | "w" 0.3| 0.3 p3 |
|000013e0| 70 34 20 70 74 30 20 22 | 63 22 29 0d 0a 28 73 65 |p4 pt0 "|c")..(se|
|000013f0| 74 76 61 72 20 22 62 6c | 69 70 6d 6f 64 65 22 20 |tvar "bl|ipmode" |
|00001400| 31 29 0d 0a 28 6d 65 6e | 75 63 6d 64 20 22 73 3d |1)..(men|ucmd "s=|
|00001410| 73 63 72 65 65 6e 22 29 | 0d 0a 29 0d 0a 28 68 64 |screen")|..)..(hd|
|00001420| 31 30 29 0d 0a 1a | |10)... | |
+--------+-------------------------+-------------------------+--------+--------+
