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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| f3 c8 be ca ae c2 fb c4 | bf 98 ef 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 cf | b4 c1 b6 cd b5 c8 fb 8e |........|........|
|00000030| bc de ba dc b3 df b8 de | f9 85 d6 a6 f3 df be d8 |........|........|
|00000040| aa 8c ba cd ba 8c f3 cb | be d8 a8 d8 a9 c5 b5 cb |........|........|
|00000050| fb 9d fb 8e 87 c2 1c 47 | 11 48 13 47 62 08 68 60 |.......G|.H.Gb.h`|
|00000060| 18 57 68 6a e1 8c f9 85 | f2 a1 d1 84 a8 c9 af dd |.Whj....|........|
|00000070| fb dc fb 84 bc c9 af dc | b4 c5 b5 d8 fb 8e 11 48 |........|.......H|
|00000080| 13 47 69 49 13 47 6e 4f | e1 8c f9 85 f2 a1 d1 84 |.GiI.GnO|........|
|00000090| a8 c9 af dd fb dc ea 8c | f3 dc b4 c0 ba de fb dc |........|........|
|000000a0| fb 9c fb 9e ed 99 f2 85 | d6 a6 f3 df be d8 aa 8c |........|........|
|000000b0| ab 9e fb 84 ab c3 b7 cd | a9 8c ab 9d fb 84 f1 8c |........|........|
|000000c0| ab c5 fb 9d f5 99 f2 8c | ea 99 e9 85 f2 a1 d1 84 |........|........|
|000000d0| a8 c9 af dd fb dc e8 8c | f3 dc b4 c0 ba de fb dc |........|........|
|000000e0| e9 8c ab c5 fb 9e ed 99 | f2 85 d6 a6 f3 df be d8 |........|........|
|000000f0| aa 8c b5 8c eb 8c b5 9d | fb 9d fb ca ea 8c f9 8e |........|........|
|00000100| f2 a1 d1 84 a8 c9 af da | ba de fb 8e b9 c0 b2 dc |........|........|
|00000110| b6 c3 bf c9 f9 8c eb 85 | d6 a6 f3 cf b4 c1 b6 cd |........|........|
|00000120| b5 c8 fb 8e b2 c2 a8 c9 | a9 d8 f9 8c f9 c4 bf 9c |........|........|
|00000130| ea 8e fb dc fb 9d fb 9d | fb 9c f2 a1 d1 84 a8 c9 |........|........|
|00000140| af dd fb dc af 9c fb 84 | b7 c5 a8 d8 fb 84 b8 cd |........|........|
|00000150| a9 8c ab 85 fb 84 f6 8c | f3 cf ba c8 a9 8c ab 85 |........|........|
|00000160| fb 94 f5 99 f2 85 f2 a1 | d1 97 d6 a6 f3 c8 be ca |........|........|
|00000170| ae c2 fb c4 eb 8c f3 8c | f2 a1 d1 8c fb 8c fb 84 |........|........|
|00000180| ac c4 b2 c0 be 8c f3 cd | b5 c8 fb 84 f4 91 fb c1 |........|........|
|00000190| fb c2 b2 c0 f2 8c f3 83 | e6 8c b6 8c f9 c9 b5 c8 |........|........|
|000001a0| f9 85 f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|000001b0| f3 df be d8 aa 8c ba 8c | f3 cf ba de fb c1 f2 85 |........|........|
|000001c0| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 a8 c9 |........|........|
|000001d0| af dd fb c2 fb 84 ea 87 | fb c2 f2 85 d6 a6 fb 8c |........|........|
|000001e0| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb cf |........|........|
|000001f0| fb 84 b8 cd bf de fb c1 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000200| fb 8c fb 8c fb 8c fb 84 | a8 c9 af dd fb c8 fb 84 |........|........|
|00000210| bc c9 af df af de b2 c2 | bc 8c f3 df af de b8 cd |........|........|
|00000220| af 8c f9 f0 b5 6b 30 66 | 3f 64 30 1d 3b 16 1e 62 |.....k0f|?d0.;..b|
|00000230| 71 90 fb 8e fb cd fb 8e | fb 92 6e 68 6e 4b 1b 6e |q.......|..nhnK.n|
|00000240| 1d 5c 6e 4f e1 8c 60 5e | 60 74 68 19 13 1d 11 0d |.\nO..`^|`th.....|
|00000250| 1c 1c 6f 62 e1 8c f9 85 | f2 85 d6 a6 fb 8c fb 8c |..ob....|........|
|00000260| fb 8c fb 8c fb 8c fb 84 | b2 ca fb 84 e6 8c bf 8c |........|........|
|00000270| f9 8e f2 8c f3 df be d8 | aa 8c bf 8c bf c8 f2 8c |........|........|
|00000280| f3 df be d8 aa 8c bf c8 | fb c8 f2 85 d6 a6 fb 8c |........|........|
|00000290| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb c9 |........|........|
|000002a0| fb 84 bc c9 af df af de | b2 c2 bc 8c f3 df af de |........|........|
|000002b0| b8 cd af 8c f9 f0 b5 6b | 30 66 3f 64 30 1d 3b 16 |.......k|0f?d0.;.|
|000002c0| 1e 62 71 90 fb 8e fb cd | fb 8e fb 92 6e 68 6e 4b |.bq.....|....nhnK|
|000002d0| 1b 6e 0d 79 6e 4f e1 8c | 60 5e 60 74 68 19 13 1d |.n.ynO..|`^`th...|
|000002e0| 11 0d 1c 1c 6f 62 e1 8c | f9 85 f2 85 d6 a6 fb 8c |....ob..|........|
|000002f0| fb 8c fb 8c fb 8c fb 8c | fb 84 b2 ca fb 84 e6 8c |........|........|
|00000300| be 8c f9 8e f2 8c f3 df | be d8 aa 8c be 8c be c9 |........|........|
|00000310| f2 8c f3 df be d8 aa 8c | be c9 fb c9 f2 85 d6 a6 |........|........|
|00000320| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 84 a8 c9 af dd |........|........|
|00000330| fb ca fb 84 b5 d8 b3 8c | e8 8c b6 85 f2 a1 d1 8c |........|........|
|00000340| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|00000350| bc 8c f3 cf ba c8 bf de | fb c1 f2 85 d6 a6 fb 8c |........|........|
|00000360| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb dc |........|........|
|00000370| af 9c fb 84 b7 c5 a8 d8 | fb 84 b8 cd a9 8c ab d8 |........|........|
|00000380| eb 85 fb 84 f6 8c f3 cf | ba c8 a9 8c ab d8 eb 85 |........|........|
|00000390| fb 9a f5 99 f2 85 f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|000003a0| fb 8c fb 8c f3 cf b4 c2 | bf 8c f3 84 e6 8c b5 8c |........|........|
|000003b0| f3 86 fb c2 ea 8c ea 95 | f2 85 fb 84 ab de b4 cb |........|........|
|000003c0| b5 a1 d1 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|000003d0| be d8 aa 8c b5 9d fb 84 | ea 87 fb c2 ea 85 f2 a1 |........|........|
|000003e0| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 cf b4 c1 |........|........|
|000003f0| b6 cd b5 c8 fb 8e b2 c2 | a8 c9 a9 d8 f9 8c f9 c4 |........|........|
|00000400| bf 9c e8 8e fb dc af 9c | fb 9d fb 9d fb 9c fb cd |........|........|
|00000410| ba cd f2 a1 d1 8c fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000420| f3 cf b4 c1 b6 cd b5 c8 | fb 8e ab c0 b2 c2 be 8e |........|........|
|00000430| fb dc fb 8e ac 8e fb 9c | f5 9f fb 9c f5 9f fb dc |........|........|
|00000440| ea 8c ab 9e fb dc e8 8c | f9 cf f9 85 d6 a6 fb 8c |........|........|
|00000450| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb dc |........|........|
|00000460| fb 84 ab c3 b7 cd a9 8c | ab 8c eb 8c e8 9c eb 85 |........|........|
|00000470| f2 a1 d1 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|00000480| be d8 aa 8c ab 9d fb 84 | ab c3 b7 cd a9 8c ab 9d |........|........|
|00000490| fb 9c fb 9f eb 9c f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|000004a0| fb 8c fb 8c fb 84 a8 c9 | af dd fb dc e9 8c f3 dc |........|........|
|000004b0| b4 c0 ba de fb dc e9 8c | eb 8c e8 9c eb 85 f2 a1 |........|........|
|000004c0| d1 8c fb 8c fb 8c fb 8c | fb 8c fb 8c f3 df be d8 |........|........|
|000004d0| aa 8c ab 9f fb 84 ab c3 | b7 cd a9 8c ab 9f fb 9c |........|........|
|000004e0| fb 9f eb 9c f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|000004f0| fb 8c fb 84 b8 c3 b6 c1 | ba c2 bf 8c f9 c5 b5 df |........|........|
|00000500| be de af 8e fb 8e b3 c8 | eb 9d f9 8c ab 8c ea 8c |........|........|
|00000510| ea 8c eb 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000520| fb 84 a8 c9 af dd fb dc | af 9c fb 84 b7 c5 a8 d8 |........|........|
|00000530| fb 84 b8 cd a9 8c ab 85 | fb 84 f6 8c f3 cf ba c8 |........|........|
|00000540| a9 8c ab 85 fb 9d ee 85 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000550| fb 8c fb 8c fb 8c fb 85 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000560| fb 8c fb 8c fb 8c fb 84 | b8 c3 b6 c1 ba c2 bf 8c |........|........|
|00000570| f9 c5 b5 df be de af 8e | fb 8e b3 c8 eb 9e f9 8c |........|........|
|00000580| ab d8 eb 8c ea 8c ea 8c | eb 8c bc 8c bd 8c be 8c |........|........|
|00000590| bf 8c b8 8c ba 8c f9 19 | 3c 8c 1a 0a fb 19 3c 8c |........|<.....<.|
|000005a0| 1b 6e f9 85 d6 a6 fb 8c | fb 8c fb 8c fb 8c fb 8c |.n......|........|
|000005b0| fb 84 a8 c9 af dd fb c1 | fb 84 a9 c9 ba c8 fb 84 |........|........|
|000005c0| a9 c9 ba c8 f6 c0 b2 c2 | be 8c b1 85 f2 85 d6 a6 |........|........|
|000005d0| fb 8c fb 8c f2 a1 d1 85 | d6 a6 e0 a1 d1 84 bf c9 |........|........|
|000005e0| bd d9 b5 8c b3 9d fb 84 | fb 85 d6 a6 fb 8c fb 8c |........|........|
|000005f0| f3 db b3 c5 b7 c9 fb 84 | f4 91 fb c1 fb c2 b2 c0 |........|........|
|00000600| f2 a1 d1 8c fb 8c fb 8c | fb 8c fb 8c fb 8c f3 df |........|........|
|00000610| be d8 aa 8c b5 8c f3 9d | f0 8c b5 85 f2 a1 d1 8c |........|........|
|00000620| fb 8c fb 8c fb 8c fb 8c | fb 8c f3 df be d8 aa 8c |........|........|
|00000630| ba 8c f3 cf ba de fb c1 | f2 85 d6 a6 fb 8c fb 8c |........|........|
|00000640| fb 8c fb 8c fb 8c fb 84 | a8 c9 af dd fb cf fb 84 |........|........|
|00000650| b8 cd bf de fb c1 f2 85 | d6 a6 fb 8c fb 8c fb 8c |........|........|
|00000660| fb 8c fb 8c fb 84 a8 c9 | af dd fb c8 fb 84 b8 cd |........|........|
|00000670| bf c8 a9 8c b6 85 f2 a1 | d1 8c fb 8c fb 8c fb 8c |........|........|
|00000680| fb 8c fb 8c f3 df be d8 | aa 8c be 8c f3 c2 af c4 |........|........|
|00000690| fb 9f fb c1 f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|000006a0| fb 8c fb 84 a8 c9 af dd | fb ca fb 84 bc c9 af df |........|........|
|000006b0| af de b2 c2 bc 8c f3 df | af de b8 cd af 8c f9 f0 |........|........|
|000006c0| b5 6b 30 66 3f 64 30 1d | 3b 16 1e 62 71 90 fb 8e |.k0f?d0.|;..bq...|
|000006d0| fb cd fb 8e fb 92 6e 68 | 6e 4b 1b 6e 6c 5f 12 44 |......nh|nK.nl_.D|
|000006e0| 6c 11 11 11 e1 8c 60 5e | 60 74 68 19 13 1d 11 0d |l.....`^|`th.....|
|000006f0| 1c 1c 6f 62 e1 8c f9 85 | f2 85 d6 a6 fb 8c fb 8c |..ob....|........|
|00000700| fb 8c fb 8c fb 8c fb 84 | b2 ca fb 84 e6 8c bd 8c |........|........|
|00000710| f9 8e f2 8c f3 df be d8 | aa 8c bd 8c bd 9d f2 8c |........|........|
|00000720| f3 df be d8 aa 8c bd 9d | fb ca f2 85 d6 a6 fb 8c |........|........|
|00000730| fb 8c fb 8c fb 8c fb 8c | fb 84 a8 c9 af dd fb cb |........|........|
|00000740| fb 84 b5 d8 b3 8c ef 8c | b6 85 f2 a1 d1 8c fb 8c |........|........|
|00000750| fb 8c fb 8c fb 8c fb 8c | f3 df be d8 aa 8c ab d8 |........|........|
|00000760| eb 8c f3 c0 b2 df af 8c | f3 cf ba de fb dc af 9c |........|........|
|00000770| f2 8c f3 81 fb 84 b8 cd | bf de fb dc af 9c f2 8c |........|........|
|00000780| ed 82 ee 85 f2 85 d6 a6 | fb 8c fb 8c fb 8c fb 8c |........|........|
|00000790| fb 8c fb 84 b8 c3 b5 c8 | fb 84 f3 91 fb c2 fb 84 |........|........|
|000007a0| f1 8c b5 9d fb 9d e2 85 | f2 8c f3 dc a9 c3 bc c2 |........|........|
|000007b0| d6 a6 fb 8c fb 8c fb 8c | fb 8c fb 8c fb 84 a8 c9 |........|........|
|000007c0| af dd fb c2 ea 8c f3 9d | f0 8c b5 9d f2 85 d6 a6 |........|........|
|000007d0| fb 8c fb 8c fb 8c fb 8c | fb 8c fb 84 b8 c3 b6 c1 |........|........|
|000007e0| ba c2 bf 8c f9 c5 b5 df | be de af 8e fb 8e b3 c8 |........|........|
|000007f0| eb 9f f9 8c ab d8 eb 8c | ea 8c ea 8c eb 8c ba cd |........|........|
|00000800| 61 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 28 |a)..    |       (|
|00000810| 63 6f 6d 6d 61 6e 64 20 | 22 70 6c 69 6e 65 22 20 |command |"pline" |
|00000820| 70 20 22 77 22 20 30 2e | 33 20 30 2e 33 20 70 31 |p "w" 0.|3 0.3 p1|
|00000830| 20 70 32 20 70 33 20 22 | 63 22 29 0d 0a 20 20 20 | p2 p3 "|c")..   |
|00000840| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 70 20 |        |(setq p |
|00000850| 28 70 6f 6c 61 72 20 70 | 20 30 20 33 30 30 29 29 |(polar p| 0 300))|
|00000860| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 28 73 65 |..      |     (se|
|00000870| 74 71 20 70 31 20 28 70 | 6f 6c 61 72 20 70 31 20 |tq p1 (p|olar p1 |
|00000880| 30 20 33 30 30 29 29 0d | 0a 20 20 20 20 20 20 20 |0 300)).|.       |
|00000890| 20 20 20 20 28 73 65 74 | 71 20 70 32 20 28 70 6f |    (set|q p2 (po|
|000008a0| 6c 61 72 20 70 32 20 30 | 20 33 30 30 29 29 0d 0a |lar p2 0| 300))..|
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |        |   (setq|
|000008c0| 20 70 33 20 28 70 6f 6c | 61 72 20 70 33 20 30 20 | p3 (pol|ar p3 0 |
|000008d0| 33 30 30 29 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |300)).. |        |
|000008e0| 20 20 28 63 6f 6d 6d 61 | 6e 64 20 22 69 6e 73 65 |  (comma|nd "inse|
|000008f0| 72 74 22 20 22 68 64 30 | 31 22 20 70 20 31 20 31 |rt" "hd0|1" p 1 1|
|00000900| 20 30 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 0)..   |        |
|00000910| 28 73 65 74 71 20 70 74 | 30 20 28 6c 69 73 74 20 |(setq pt|0 (list |
|00000920| 28 63 61 72 20 70 29 20 | 28 2d 20 28 63 61 64 72 |(car p) |(- (cadr|
|00000930| 20 70 29 20 31 35 29 29 | 29 0d 0a 20 20 20 20 20 | p) 15))|)..     |
|00000940| 20 20 20 20 20 20 29 29 | 29 0d 0a 20 20 20 20 20 |      ))|)..     |
|00000950| 20 20 20 20 20 20 28 63 | 6f 6d 6d 61 6e 64 20 22 |      (c|ommand "|
|00000960| 69 6e 73 65 72 74 22 20 | 22 68 64 30 32 22 20 70 |insert" |"hd02" p|
|00000970| 74 30 20 31 20 31 20 30 | 20 67 20 66 20 65 20 64 |t0 1 1 0| g f e d|
|00000980| 20 63 20 61 20 22 bf d8 | 20 d6 c6 20 b5 e7 20 c0 | c a "..| .. .. .|
|00000990| c2 22 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |.")..   |        |
|000009a0| 28 73 65 74 71 20 6d 20 | 28 72 65 61 64 2d 6c 69 |(setq m |(read-li|
|000009b0| 6e 65 20 6a 29 29 0d 0a | 20 20 20 20 20 20 20 20 |ne j))..|        |
|000009c0| 20 20 20 28 69 66 20 28 | 2f 3d 20 6d 20 6e 69 6c |   (if (|/= m nil|
|000009d0| 29 20 28 73 65 74 71 20 | 6d 20 28 72 65 61 64 20 |) (setq |m (read |
|000009e0| 6d 29 29 29 0d 0a 20 20 | 20 20 29 0d 0a 29 0d 0a |m)))..  |  )..)..|
|000009f0| 3b 0d 0a 20 20 20 28 73 | 65 74 71 20 6a 20 28 6f |;..   (s|etq j (o|
|00000a00| 70 65 6e 20 22 5c 5c 68 | 6f 75 73 65 31 5c 5c 74 |pen "\\h|ouse1\\t|
|00000a10| 73 74 5c 5c 68 64 36 2e | 74 61 74 22 20 22 72 22 |st\\hd6.|tat" "r"|
|00000a20| 29 29 0d 0a 20 20 20 28 | 69 66 20 28 2f 3d 20 6a |))..   (|if (/= j|
|00000a30| 20 6e 69 6c 29 20 28 70 | 72 6f 67 6e 20 0d 0a 20 | nil) (p|rogn .. |
|00000a40| 20 20 28 72 65 61 64 2d | 6c 69 6e 65 20 6a 29 0d |  (read-|line j).|
|00000a50| 0a 20 20 20 28 73 65 74 | 71 20 6d 20 28 72 65 61 |.   (set|q m (rea|
|00000a60| 64 20 28 72 65 61 64 2d | 6c 69 6e 65 20 6a 29 29 |d (read-|line j))|
|00000a70| 29 0d 0a 20 20 20 28 68 | 30 29 0d 0a 20 20 20 28 |)..   (h|0)..   (|
|00000a80| 63 6c 6f 73 65 20 6a 29 | 0d 0a 20 20 20 29 29 0d |close j)|..   )).|
|00000a90| 0a 3b 0d 0a 20 20 20 28 | 73 65 74 71 20 6a 20 28 |.;..   (|setq j (|
|00000aa0| 6f 70 65 6e 20 22 5c 5c | 68 6f 75 73 65 31 5c 5c |open "\\|house1\\|
|00000ab0| 74 73 74 5c 5c 68 64 37 | 2e 74 61 74 22 20 22 72 |tst\\hd7|.tat" "r|
|00000ac0| 22 29 29 0d 0a 20 20 20 | 28 69 66 20 28 2f 3d 20 |"))..   |(if (/= |
|00000ad0| 6a 20 6e 69 6c 29 20 28 | 70 72 6f 67 6e 20 0d 0a |j nil) (|progn ..|
|00000ae0| 20 20 20 28 72 65 61 64 | 2d 6c 69 6e 65 20 6a 29 |   (read|-line j)|
|00000af0| 0d 0a 20 20 20 28 73 65 | 74 71 20 6d 20 28 72 65 |..   (se|tq m (re|
|00000b00| 61 64 20 28 72 65 61 64 | 2d 6c 69 6e 65 20 6a 29 |ad (read|-line j)|
|00000b10| 29 29 0d 0a 20 20 20 28 | 68 30 29 0d 0a 20 20 20 |))..   (|h0)..   |
|00000b20| 28 63 6c 6f 73 65 20 6a | 29 0d 0a 20 20 20 29 29 |(close j|)..   ))|
|00000b30| 0d 0a 3b 0d 0a 20 20 20 | 28 73 65 74 71 20 6a 20 |..;..   |(setq j |
|00000b40| 28 6f 70 65 6e 20 22 5c | 5c 68 6f 75 73 65 31 5c |(open "\|\house1\|
|00000b50| 5c 74 73 74 5c 5c 68 64 | 38 2e 74 61 74 22 20 22 |\tst\\hd|8.tat" "|
|00000b60| 72 22 29 29 0d 0a 20 20 | 20 28 69 66 20 28 2f 3d |r"))..  | (if (/=|
|00000b70| 20 6a 20 6e 69 6c 29 20 | 28 70 72 6f 67 6e 20 0d | j nil) |(progn .|
|00000b80| 0a 20 20 20 28 72 65 61 | 64 2d 6c 69 6e 65 20 6a |.   (rea|d-line j|
|00000b90| 29 0d 0a 20 20 20 28 73 | 65 74 71 20 6d 20 28 72 |)..   (s|etq m (r|
|00000ba0| 65 61 64 20 28 72 65 61 | 64 2d 6c 69 6e 65 20 6a |ead (rea|d-line j|
|00000bb0| 29 29 29 0d 0a 20 20 20 | 28 68 31 29 0d 0a 20 20 |)))..   |(h1)..  |
|00000bc0| 20 28 63 6c 6f 73 65 20 | 6a 29 0d 0a 20 20 20 29 | (close |j)..   )|
|00000bd0| 29 0d 0a 3b 0d 0a 3b 0d | 0a 20 20 20 28 73 65 74 |)..;..;.|.   (set|
|00000be0| 71 20 6e 32 20 28 2d 20 | 6e 20 28 2a 20 28 66 69 |q n2 (- |n (* (fi|
|00000bf0| 78 20 28 2f 20 6e 20 31 | 38 29 29 20 31 38 29 29 |x (/ n 1|8)) 18))|
|00000c00| 29 0d 0a 20 20 20 28 63 | 6f 6e 64 20 28 28 61 6e |)..   (c|ond ((an|
|00000c10| 64 20 28 3e 20 6e 32 20 | 30 2e 31 29 20 28 3c 20 |d (> n2 |0.1) (< |
|00000c20| 6e 32 20 31 38 29 29 20 | 28 70 72 6f 67 6e 0d 0a |n2 18)) |(progn..|
|00000c30| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 71 20 6e |        | (setq n|
|00000c40| 33 20 28 2d 20 31 38 20 | 6e 32 29 29 0d 0a 20 20 |3 (- 18 |n2))..  |
|00000c50| 20 20 20 20 20 20 20 28 | 63 6f 6d 6d 61 6e 64 20 |       (|command |
|00000c60| 22 69 6e 73 65 72 74 22 | 20 22 68 64 30 32 22 20 |"insert"| "hd02" |
|00000c70| 70 74 30 20 31 20 31 20 | 30 20 22 22 20 22 22 20 |pt0 1 1 |0 "" "" |
|00000c80| 22 22 20 22 22 20 22 22 | 20 22 22 20 22 22 29 0d |"" "" ""| "" "").|
|00000c90| 0a 20 20 20 20 20 20 20 | 20 20 28 63 6f 6d 6d 61 |.       |  (comma|
|00000ca0| 6e 64 20 22 61 72 72 61 | 79 22 20 22 6c 22 20 22 |nd "arra|y" "l" "|
|00000cb0| 22 20 22 72 22 20 6e 33 | 20 31 20 2d 36 2e 35 29 |" "r" n3| 1 -6.5)|
|00000cc0| 0d 0a 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |..      |   (setq|
|00000cd0| 20 70 74 30 20 28 6c 69 | 73 74 20 28 63 61 72 20 | pt0 (li|st (car |
|00000ce0| 70 74 30 29 20 28 2d 20 | 28 63 61 64 72 20 70 74 |pt0) (- |(cadr pt|
|00000cf0| 30 29 20 28 2a 20 6e 33 | 20 36 2e 35 29 29 29 29 |0) (* n3| 6.5))))|
|00000d00| 0d 0a 20 20 20 20 29 29 | 29 0d 0a 3b 0d 0a 20 20 |..    ))|)..;..  |
|00000d10| 20 20 28 73 65 74 71 20 | 70 74 30 20 28 6c 69 73 |  (setq |pt0 (lis|
|00000d20| 74 20 28 63 61 72 20 70 | 74 30 29 20 28 2d 20 28 |t (car p|t0) (- (|
|00000d30| 63 61 64 72 20 70 74 30 | 29 20 36 2e 35 29 29 29 |cadr pt0|) 6.5)))|
|00000d40| 0d 0a 20 20 20 20 28 63 | 6f 6d 6d 61 6e 64 20 22 |..    (c|ommand "|
|00000d50| 69 6e 73 65 72 74 22 20 | 22 68 64 30 33 22 20 70 |insert" |"hd03" p|
|00000d60| 74 30 20 31 20 31 20 30 | 20 61 61 61 29 0d 0a 20 |t0 1 1 0| aaa).. |
|00000d70| 20 20 20 28 63 6f 6d 6d | 61 6e 64 20 22 70 6c 69 |   (comm|and "pli|
|00000d80| 6e 65 22 20 70 20 22 77 | 22 20 30 2e 33 20 30 2e |ne" p "w|" 0.3 0.|
|00000d90| 33 20 70 31 20 70 32 20 | 70 33 20 22 63 22 29 0d |3 p1 p2 |p3 "c").|
|00000da0| 0a 3b 0d 0a 3b 0d 0a 29 | 0d 0a 28 68 64 34 34 29 |.;..;..)|..(hd44)|
|00000db0| 0d 0a 1a                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+