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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| f3 c8 be ca ae c2 fb c4 | bf 9c e3 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 cf b4 c1 b6 cd b5 c8 |........|........|
|00000030| fb 8e bc de ba dc b3 df | b8 de f9 8c f9 c0 ba d5 |........|........|
|00000040| be de f9 8c f9 c3 bd ca | f9 8c f9 cf f9 8c f9 8e |........|........|
|00000050| f2 a1 d1 8c f3 df be d8 | ad cd a9 8c f9 ce b7 c5 |........|........|
|00000060| ab c1 b4 c8 be 8e fb 9c | f2 a1 d1 8c f3 c1 be c2 |........|........|
|00000070| ae cf b6 c8 fb 8e a8 91 | b3 c8 eb 98 f9 85 d6 a6 |........|........|
|00000080| fb 84 b2 c2 b2 d8 bc c9 | af 8c ea 8c f9 cb fb df |........|........|
|00000090| f9 85 d6 a6 fb 84 a8 c9 | af dd fb ce fb 84 bc c9 |........|........|
|000000a0| af c7 ac c3 a9 c8 fb 8e | 87 c2 0a 0d 0f 5d 63 73 |........|.....]cs|
|000000b0| 0a 15 64 06 62 74 62 5d | 0b 62 11 11 fb 90 62 60 |..d.btb]|.b....b`|
|000000c0| 62 5d 11 11 fb eb fb 83 | 11 7a 68 19 11 11 fb ff |b]......|.zh.....|
|000000d0| e5 96 fb 8e f2 85 d6 a6 | fb 84 a8 c9 af dd fb c1 |........|........|
|000000e0| bf 9d fb 84 f1 8c b6 c8 | fb 9e f2 8c b8 8c eb 8c |........|........|
|000000f0| bf 8c e9 82 eb 85 d6 a6 | fb 84 ac c4 b2 c0 be 8c |........|........|
|00000100| b8 a1 d1 8c fb 84 bc de | af c9 a3 d8 fb 81 ea 8c |........|........|
|00000110| f9 6f 27 6d 35 96 fb 7d | 7a 78 2a 1f 2d 63 04 17 |.o'm5..}|zx*.-c..|
|00000120| 03 6e 6c 7c 16 66 66 96 | f9 85 d6 a6 fb 8c f3 c5 |.nl|.ff.|........|
|00000130| bd 8c f3 91 fb ce fb 8e | bc 8e f2 8c f3 c1 be c2 |........|........|
|00000140| ae cf b6 c8 fb 8e b2 91 | b2 cf e2 8e f2 8c f3 c1 |........|........|
|00000150| be c2 ae cf b6 c8 fb 8e | b2 91 b2 cf ee 8e f2 85 |........|........|
|00000160| d6 a6 fb 8c f3 df be d8 | aa 8c b7 8c ea 8c b6 8c |........|........|
|00000170| b5 c5 b7 8c b5 8c eb 85 | d6 a6 fb 8c f3 db b3 c5 |........|........|
|00000180| b7 c9 fb c0 d6 a6 fb 8c | fb 84 b6 c9 b5 d9 b8 c1 |........|........|
|00000190| bf 8c f9 c5 e6 86 f9 85 | d6 a6 fb 8c fb 84 a8 c9 |........|........|
|000001a0| af dd fb c0 fb 84 bc c9 | af df af de b2 c2 bc 8c |........|........|
|000001b0| f9 f0 b5 7d 7a 78 2a 1f | 2d 63 04 17 03 6e 6c 7c |...}zx*.|-c...nl||
|000001c0| 15 66 66 96 f9 85 f2 a1 | d1 8c fb 8c f3 cf b4 c2 |.ff.....|........|
|000001d0| bf 8c f3 84 e6 8c b7 8c | f9 8e f2 8c f3 df be d8 |........|........|
|000001e0| aa 8c b7 8c b5 c5 b7 85 | f2 a1 d1 8c fb 8c fb 8c |........|........|
|000001f0| fb 8c fb 8c f3 d8 fb 84 | a8 c9 af dd fb c1 fb 84 |........|........|
|00000200| b8 c3 b5 df fb 84 a9 c9 | ba c8 fb c0 f2 8c b6 85 |........|........|
|00000210| fb c2 fb 84 ea 87 fb c2 | f2 85 f2 a1 d1 8c fb 8c |........|........|
|00000220| f2 a1 d1 8c fb 8c f3 cb | a9 d8 be d4 af 8c f6 9e |........|........|
|00000230| fb 84 a8 d8 a9 cf ba d8 | fb 8e 1f 56 09 7d 0a 0d |........|...V.}..|
|00000240| 1a 67 f9 8c f3 c5 af c3 | ba 8c b5 85 fb 8e 60 74 |.g......|......`t|
|00000250| 68 5a 14 73 f9 85 f2 a1 | d1 8c fb 85 d6 a6 fb 8c |hZ.s....|........|
|00000260| f3 c1 be c2 ae cf b6 c8 | fb 8e a8 91 b3 c8 eb 99 |........|........|
|00000270| f9 85 d6 a6 fb 8c f3 c5 | b5 c5 af cb be d8 fb 9d |........|........|
|00000280| fb 8e a2 8c b5 8e f2 a1 | d1 8c fb 84 a8 c9 af dd |........|........|
|00000290| fb d8 fb 84 bc c9 af c7 | ac c3 a9 c8 fb 8e 87 c2 |........|........|
|000002a0| 1f 56 0b 44 09 06 0d 74 | 0b 6e 11 48 13 47 19 5c |.V.D...t|.n.H.G.\|
|000002b0| e4 90 82 83 95 92 e1 8e | f2 85 d6 a6 fb 8c f3 c5 |........|........|
|000002c0| bd 8c f3 91 fb d8 fb 8e | a2 8e f2 8c f3 df be d8 |........|........|
|000002d0| aa 8c b8 8c eb 85 fb 84 | a8 c9 af dd fb cf fb c2 |........|........|
|000002e0| b2 c0 f2 85 d6 a6 fb 8c | f3 cb a9 d8 be d4 af 85 |........|........|
|000002f0| d6 a6 fb 85 d6 a6 fb 84 | a8 c9 af dd fb dc af 8c |........|........|
|00000300| f3 cb be d8 ab c3 b2 c2 | af 8c f9 f0 b5 66 3f 64 |........|.....f?d|
|00000310| 30 17 22 19 38 96 fb 8e | f2 85 d6 a6 fb 84 b8 c3 |0.".8...|........|
|00000320| b6 c1 ba c2 bf 8c f9 c5 | b5 df be de af 8e fb 8e |........|........|
|00000330| b3 d4 a3 9c ea 8e fb dc | af 8c ea 8c ea 8c eb 85 |........|........|
|00000340| d6 a6 fb 84 a8 c9 af dd | fb dc af 9d fb 84 b7 c5 |........|........|
|00000350| a8 d8 fb 84 f0 8c f3 cf | ba de fb dc af 85 fb 94 |........|........|
|00000360| eb 85 fb 84 f6 8c f3 cf | ba c8 a9 8c ab d8 f2 8c |........|........|
|00000370| ed 9c f2 85 f2 a1 d1 8c | f3 c4 bf cb b8 85 d6 a6 |........|........|
|00000380| fb 84 b8 c3 b6 c1 ba c2 | bf 8c f9 d6 b4 c3 b6 8e |........|........|
|00000390| fb 8e ac 8e fb dc af 8c | f3 c0 b2 df af 8c f3 cf |........|........|
|000003a0| ba de fb dc ee 85 fb 84 | f6 8c f3 cf ba c8 a9 8c |........|........|
|000003b0| ab 99 f2 8c f3 81 fb 84 | b8 cd a9 8c ab 99 f2 8c |........|........|
|000003c0| f3 cf ba de fb dc af 85 | f2 85 f2 85 d6 a6 fb 84 |........|........|
|000003d0| a8 c9 af dd fb dc af 9d | fb 84 ab c3 b7 cd a9 8c |........|........|
|000003e0| ab d8 fb 84 f4 8c f3 86 | fb dc b2 8c e8 85 fb 9e |........|........|
|000003f0| f2 8c ea 98 e9 85 fb cf | fb 9c fb c2 fb 9c fb c1 |........|........|
|00000400| fb c2 b2 c0 f2 a1 d1 8c | f3 db b3 c5 b7 c9 fb 84 |........|........|
|00000410| f4 91 fb cf fb 8e f5 8e | f2 a1 d1 8c fb 84 b8 c3 |........|........|
|00000420| b6 c1 ba c2 bf 8c f9 d9 | b5 c8 b4 8e fb 8e b6 8e |........|........|
|00000430| d6 a6 fb 8c fb 8e b7 c5 | b5 c9 f9 8c ab d8 ea 8c |........|........|
|00000440| f9 ec eb 80 f6 94 f9 8c | f9 8e d6 a6 fb 8c fb 8e |........|........|
|00000450| b7 c5 b5 c9 f9 8c f3 dc | b4 c0 ba de fb dc af 9d |........|........|
|00000460| fb 9c fb 9d ee 82 e8 85 | fb 8e 9b 9c f7 81 e3 8e |........|........|
|00000470| fb 8e 9b 9f e2 82 ec 80 | eb 8e fb 8e 9b 9c f7 94 |........|........|
|00000480| f9 8c f9 8e f2 a1 d1 8c | fb 84 b6 c9 b5 d9 b8 c1 |........|........|
|00000490| bf 8c f9 df e6 c4 bf 99 | eb 8e f2 a1 d1 8c fb 84 |........|........|
|000004a0| a8 c9 af dd fb cf fb 84 | bc c9 af df af de b2 c2 |........|........|
|000004b0| bc 8c ea 8c f9 f0 b5 66 | 3f 64 30 65 33 1d 63 7c |.......f|?d0e3.c||
|000004c0| 16 16 1e 15 3d 14 2a 17 | 29 8c e7 82 e5 8c 66 4d |....=.*.|).....fM|
|000004d0| 11 54 fb f7 60 74 68 19 | 64 79 0b 7c 86 96 f9 85 |.T..`th.|dy.|....|
|000004e0| f2 a1 d1 8c fb 84 b2 ca | fb 84 f4 91 fb cf fb 8e |........|........|
|000004f0| f5 8e f2 8c f3 dc a9 c3 | bc c2 d6 a6 fb 8c fb 84 |........|........|
|00000500| a8 c9 af dd fb c1 fb 84 | b8 c3 b5 df fb cf fb c1 |........|........|
|00000510| f2 85 d6 a6 fb 8c fb 84 | b2 ca fb 84 f4 91 fb cf |........|........|
|00000520| fb 8e f9 85 fb 84 b8 c3 | b6 c1 ba c2 bf 8c f9 d8 |........|........|
|00000530| be d4 af 8e fb 8e b8 8e | fb 84 b7 c5 a8 d8 fb 84 |........|........|
|00000540| f0 8c f3 cf ba de fb dc | af 9d f2 8c e8 9e f5 99 |........|........|
|00000550| f2 8c f3 81 fb 84 b8 cd | bf de fb dc af 9d f2 8c |........|........|
|00000560| ed 85 f2 8c ef 8c eb 8c | b8 85 f2 a1 d1 8c fb 8c |........|........|
|00000570| f3 df be d8 aa 8c ab d8 | ea 8c f3 dc b4 c0 ba de |........|........|
|00000580| fb dc af 9d fb 84 f4 8c | f3 86 fb dc b2 8c e8 85 |........|........|
|00000590| fb 9e f2 8c e3 85 fb c2 | fb 84 ea 87 fb c2 f2 85 |........|........|
|000005a0| d6 a6 fb 8c f2 8c f3 cf | b4 c1 b6 cd b5 c8 fb 8e |........|........|
|000005b0| ae 8e f2 85 d6 a6 fb 85 | d6 a6 fb 84 b2 ca fb 84 |........|........|
|000005c0| e7 8c b5 8c e3 85 d6 a6 | fb 8c f3 de be dc be cd |........|........|
|000005d0| af 8c f3 81 fb 94 fb c2 | f2 a1 d1 8c fb 8c f3 cf |........|........|
|000005e0| b4 c1 b6 cd b5 c8 fb 8e | b7 c5 b5 c9 f9 8c ab d8 |........|........|
|000005f0| ea 8c f9 ec eb 80 f6 94 | f9 8c f9 8e d6 a6 fb 8c |........|........|
|00000600| fb 8c f9 c0 b2 c2 be 8e | fb 84 ab c3 b7 cd a9 8c |........|........|
|00000610| ab d8 ea 8c eb 8c ea 99 | f5 9f f2 8c f9 ec eb 80 |........|........|
|00000620| f6 94 f9 8c f9 ec e8 95 | f5 9b f7 9c f9 8c f9 ec |........|........|
|00000630| eb 80 e3 8e fb 8e f9 85 | d6 a6 fb 8c fb 84 a8 c9 |........|........|
|00000640| af dd fb dc af 9d fb 84 | ab c3 b7 cd a9 8c ab d8 |........|........|
|00000650| ea 8c f3 83 fb 84 f1 8c | ab c5 fb 9f f2 8c e9 85 |........|........|
|00000660| fb 94 f2 85 d6 a6 fb 8c | f2 a1 d1 8c f2 a1 d1 8c |........|........|
|00000670| f3 df be d8 aa 8c b5 9d | fb c2 f2 a1 d1 8c f3 c5 |........|........|
|00000680| bd 8c f3 90 fb c2 fb 94 | f2 8c f3 df be d8 aa 8c |........|........|
|00000690| b5 8c e3 85 f2 a1 d1 8c | f3 cf b4 c1 b6 cd b5 c8 |........|........|
|000006a0| fb 8e b2 c2 a8 c9 a9 d8 | f9 8c f9 c4 a3 d4 eb 9e |........|........|
|000006b0| f9 8c ab d8 ea 8c ea 8c | ea 8c eb a1 d1 8c fb 8e |........|........|
|000006c0| b7 c5 b5 c9 f9 8c f3 dc | b4 c0 ba de fb dc af 8c |........|........|
|000006d0| eb 8c ee 99 f2 8c f3 c0 | b2 df af 8c f3 81 fb 84 |........|........|
|000006e0| b8 cd a9 8c ab 9d f2 8c | f3 83 fb c1 bf 9d fb 9e |........|........|
|000006f0| f2 85 fb 84 b8 cd bf de | fb dc af 85 f2 8c f9 8e |........|........|
|00000700| d6 a6 fb 8c f9 cd a9 de | ba d5 f9 8c f9 c0 f9 8c |........|........|
|00000710| f9 8e fb 8e a9 8e fb 9a | fb 9d fb 81 e3 a1 d1 8c |........|........|
|00000720| fb 8e b8 c3 ab d5 f9 8c | f9 c0 f9 8c f9 8e fb dc |........|........|
|00000730| ea 8c f9 ec eb 80 f6 9d | ed 8e fb 8e b8 c3 ab d5 |........|........|
|00000740| f9 8c f9 c0 f9 8c f9 8e | fb dc ea 8c f9 ec eb 80 |........|........|
|00000750| f6 94 ed 8e d6 a6 fb 8c | f9 cd a9 de ba d5 f9 8c |........|........|
|00000760| f9 c0 f9 8c f9 8e fb 8e | a9 8e fb 84 f0 8c b5 8c |........|........|
|00000770| ee 85 fb 9d fb 81 e3 a1 | d1 8c fb 8e ab c0 b2 c2 |........|........|
|00000780| be 8e fb 84 b7 c5 a8 d8 | fb 84 f0 8c f3 cf ba de |........|........|
|00000790| fb dc af 85 fb 99 ee 8c | b6 c8 ea 85 fb 84 b8 cd |........|........|
|000007a0| bf de fb dc af 85 f2 8c | f9 db f9 8c eb 82 e8 8c |........|........|
|000007b0| eb 82 e8 8c f3 c0 b2 df | af 8c f3 87 fb 84 b8 cd |........|........|
|000007c0| a9 8c ab d8 ea 85 fb 99 | ee 8c b6 c8 ea 85 fb 84 |........|........|
|000007d0| f6 8c f3 cf ba c8 a9 8c | ab d8 ea 85 fb 9f e9 85 |........|........|
|000007e0| f2 8c f9 8e d6 a6 fb 8c | f9 cd a9 de ba d5 f9 8c |........|........|
|000007f0| f9 c0 f9 8c f9 8e fb 8e | a9 8e fb 9d fb c1 b5 8c |........|........|
|00000800| 6d 64 31 0d 0a 20 20 22 | 70 6c 69 6e 65 22 20 70 |md1..  "|pline" p|
|00000810| 74 20 22 77 22 20 30 2e | 33 20 30 2e 33 20 28 70 |t "w" 0.|3 0.3 (p|
|00000820| 6f 6c 61 72 20 70 74 20 | 30 20 28 2b 20 35 35 20 |olar pt |0 (+ 55 |
|00000830| 28 2a 20 6d 6e 20 6d 64 | 31 29 29 29 20 28 6c 69 |(* mn md|1))) (li|
|00000840| 73 74 20 28 2b 20 28 63 | 61 72 20 70 74 29 20 35 |st (+ (c|ar pt) 5|
|00000850| 35 20 28 2a 20 6d 6e 20 | 6d 64 31 29 29 20 28 2d |5 (* mn |md1)) (-|
|00000860| 20 28 63 61 64 72 20 70 | 74 29 20 28 2a 20 28 2b | (cadr p|t) (* (+|
|00000870| 20 6e 20 34 29 20 38 29 | 20 31 34 32 29 29 20 28 | n 4) 8)| 142)) (|
|00000880| 6c 69 73 74 20 28 63 61 | 72 20 70 74 29 20 28 2d |list (ca|r pt) (-|
|00000890| 20 28 63 61 64 72 20 70 | 74 29 20 28 2a 20 28 2b | (cadr p|t) (* (+|
|000008a0| 20 6e 20 34 29 20 38 29 | 20 31 34 32 29 29 20 22 | n 4) 8)| 142)) "|
|000008b0| 63 22 29 0d 0a 20 28 73 | 65 74 71 20 70 31 20 28 |c").. (s|etq p1 (|
|000008c0| 6c 69 73 74 20 28 2b 20 | 28 63 61 72 20 70 74 29 |list (+ |(car pt)|
|000008d0| 20 35 35 20 28 2f 20 6d | 64 31 20 32 29 29 20 28 | 55 (/ m|d1 2)) (|
|000008e0| 2d 20 28 63 61 64 72 20 | 70 74 29 20 36 29 29 20 |- (cadr |pt) 6)) |
|000008f0| 64 6d 20 6e 69 6c 20 6b | 20 30 29 0d 0a 20 28 73 |dm nil k| 0).. (s|
|00000900| 65 74 71 20 6a 20 28 6f | 70 65 6e 20 22 64 61 74 |etq j (o|pen "dat|
|00000910| 61 2e 74 61 74 22 20 22 | 77 22 29 29 0d 0a 20 28 |a.tat" "|w")).. (|
|00000920| 70 72 69 6e 74 20 28 6c | 69 73 74 20 6d 6e 20 70 |print (l|ist mn p|
|00000930| 31 20 6d 64 31 20 6e 31 | 20 69 29 20 6a 29 0d 0a |1 md1 n1| i) j)..|
|00000940| 20 28 70 72 69 6e 74 20 | 6d 20 6a 29 0d 0a 20 28 | (print |m j).. (|
|00000950| 63 6c 6f 73 65 20 6a 29 | 0d 0a 20 28 63 68 65 63 |close j)|.. (chec|
|00000960| 6b 20 27 68 64 64 30 38 | 20 22 68 64 64 30 38 22 |k 'hdd08| "hdd08"|
|00000970| 29 0d 0a 29 0d 0a 28 64 | 65 66 75 6e 20 68 64 67 |)..)..(d|efun hdg|
|00000980| 63 20 28 29 0d 0a 20 28 | 73 65 74 71 20 6d 20 28 |c ().. (|setq m (|
|00000990| 72 65 76 65 72 73 65 20 | 6d 29 20 6d 6e 20 28 6c |reverse |m) mn (l|
|000009a0| 65 6e 67 74 68 20 6d 29 | 20 6b 20 30 20 70 31 20 |ength m)| k 0 p1 |
|000009b0| 70 74 31 20 70 36 20 28 | 70 6f 6c 61 72 20 70 31 |pt1 p6 (|polar p1|
|000009c0| 20 70 69 20 31 30 29 20 | 70 34 20 70 36 29 0d 0a | pi 10) |p4 p6)..|
|000009d0| 20 28 77 68 69 6c 65 20 | 28 3c 20 6b 20 6d 6e 29 | (while |(< k mn)|
|000009e0| 0d 0a 20 20 28 73 65 74 | 71 20 6c 20 28 6e 74 68 |..  (set|q l (nth|
|000009f0| 20 6b 20 6d 29 20 6c 6e | 20 28 6c 65 6e 67 74 68 | k m) ln| (length|
|00000a00| 20 6c 29 20 69 20 30 20 | 70 32 20 70 31 29 0d 0a | l) i 0 |p2 p1)..|
|00000a10| 20 20 28 63 6f 6e 64 20 | 28 28 3d 20 28 63 61 72 |  (cond |((= (car|
|00000a20| 20 6c 29 20 22 61 22 29 | 20 28 66 65 6e 29 29 0d | l) "a")| (fen)).|
|00000a30| 0a 20 20 20 20 20 20 20 | 20 28 28 6e 75 6d 62 65 |.       | ((numbe|
|00000a40| 72 70 20 28 63 61 72 20 | 6c 29 29 20 28 64 61 74 |rp (car |l)) (dat|
|00000a50| 65 29 29 0d 0a 20 20 20 | 20 20 20 20 20 28 74 20 |e))..   |     (t |
|00000a60| 28 64 32 29 29 0d 0a 20 | 20 29 0d 0a 20 20 28 73 |(d2)).. | )..  (s|
|00000a70| 65 74 71 20 70 31 20 28 | 70 6f 6c 61 72 20 70 31 |etq p1 (|polar p1|
|00000a80| 20 30 20 6d 64 31 29 29 | 0d 0a 20 20 28 73 65 74 | 0 md1))|..  (set|
|00000a90| 71 20 6b 20 28 31 2b 20 | 6b 29 29 0d 0a 20 29 0d |q k (1+ |k)).. ).|
|00000aa0| 0a 20 28 73 65 74 71 20 | 70 35 20 28 70 6f 6c 61 |. (setq |p5 (pola|
|00000ab0| 72 20 70 31 20 70 69 20 | 28 2d 20 6d 64 31 20 31 |r p1 pi |(- md1 1|
|00000ac0| 30 29 29 29 0d 0a 20 28 | 63 6f 6d 6d 61 6e 64 20 |0))).. (|command |
|00000ad0| 22 70 6c 69 6e 65 22 20 | 70 34 20 22 77 22 20 31 |"pline" |p4 "w" 1|
|00000ae0| 20 31 20 70 35 20 22 22 | 29 0d 0a 29 0d 0a 28 64 | 1 p5 ""|)..)..(d|
|00000af0| 65 66 75 6e 20 66 65 6e | 20 28 29 0d 0a 20 28 73 |efun fen| ().. (s|
|00000b00| 65 74 71 20 6c 31 20 28 | 63 61 64 72 20 6c 29 20 |etq l1 (|cadr l) |
|00000b10| 69 20 30 20 70 32 20 70 | 31 29 0d 0a 20 28 77 68 |i 0 p2 p|1).. (wh|
|00000b20| 69 6c 65 20 28 3c 20 69 | 20 28 6c 65 6e 67 74 68 |ile (< i| (length|
|00000b30| 20 6c 31 29 29 0d 0a 20 | 20 28 73 65 74 71 20 62 | l1)).. | (setq b|
|00000b40| 6e 20 28 73 74 72 63 61 | 74 20 22 5c 5c 68 6f 75 |n (strca|t "\\hou|
|00000b50| 73 65 31 5c 5c 68 64 31 | 5c 5c 22 20 28 6e 74 68 |se1\\hd1|\\" (nth|
|00000b60| 20 69 20 6c 31 29 29 29 | 0d 0a 20 20 28 69 66 20 | i l1)))|..  (if |
|00000b70| 28 3e 3d 20 64 61 20 31 | 30 29 20 28 64 61 74 65 |(>= da 1|0) (date|
|00000b80| 29 29 0d 0a 20 20 28 63 | 6f 6d 6d 61 6e 64 20 22 |))..  (c|ommand "|
|00000b90| 69 6e 73 65 72 74 22 20 | 62 6e 20 70 32 20 31 20 |insert" |bn p2 1 |
|00000ba0| 31 20 30 29 0d 0a 20 20 | 28 73 65 74 71 20 70 32 |1 0)..  |(setq p2|
|00000bb0| 20 28 70 6f 6c 61 72 20 | 70 32 20 28 2f 20 28 2a | (polar |p2 (/ (*|
|00000bc0| 20 70 69 20 33 29 20 32 | 29 20 31 32 2e 35 29 20 | pi 3) 2|) 12.5) |
|00000bd0| 69 20 28 31 2b 20 69 29 | 29 0d 0a 20 29 0d 0a 20 |i (1+ i)|).. ).. |
|00000be0| 28 69 66 20 28 6e 74 68 | 20 32 20 6c 29 20 28 70 |(if (nth| 2 l) (p|
|00000bf0| 72 6f 67 6e 0d 0a 20 20 | 28 73 65 74 71 20 70 32 |rogn..  |(setq p2|
|00000c00| 20 28 70 6f 6c 61 72 20 | 70 31 20 30 20 6d 64 31 | (polar |p1 0 md1|
|00000c10| 29 20 6c 31 20 28 6c 61 | 73 74 20 6c 29 20 69 20 |) l1 (la|st l) i |
|00000c20| 30 29 0d 0a 20 20 28 77 | 68 69 6c 65 20 28 3c 20 |0)..  (w|hile (< |
|00000c30| 69 20 28 6c 65 6e 67 74 | 68 20 6c 31 29 29 0d 0a |i (lengt|h l1))..|
|00000c40| 20 20 20 28 73 65 74 71 | 20 62 6e 20 28 73 74 72 |   (setq| bn (str|
|00000c50| 63 61 74 20 22 5c 5c 68 | 6f 75 73 65 31 5c 5c 68 |cat "\\h|ouse1\\h|
|00000c60| 64 31 5c 5c 22 20 28 6e | 74 68 20 69 20 6c 31 29 |d1\\" (n|th i l1)|
|00000c70| 29 29 0d 0a 20 20 20 28 | 63 6f 6d 6d 61 6e 64 20 |))..   (|command |
|00000c80| 22 69 6e 73 65 72 74 22 | 20 62 6e 20 70 32 20 31 |"insert"| bn p2 1|
|00000c90| 20 31 20 30 29 0d 0a 20 | 20 20 28 73 65 74 71 20 | 1 0).. |  (setq |
|00000ca0| 70 32 20 28 70 6f 6c 61 | 72 20 70 32 20 28 2f 20 |p2 (pola|r p2 (/ |
|00000cb0| 28 2a 20 70 69 20 33 29 | 20 32 29 20 31 32 2e 35 |(* pi 3)| 2) 12.5|
|00000cc0| 29 20 69 20 28 31 2b 20 | 69 29 29 0d 0a 20 20 29 |) i (1+ |i))..  )|
|00000cd0| 0d 0a 20 29 29 0d 0a 20 | 28 69 66 20 28 3d 20 28 |.. )).. |(if (= (|
|00000ce0| 2f 20 64 20 32 29 20 28 | 66 69 78 20 28 2f 20 64 |/ d 2) (|fix (/ d|
|00000cf0| 20 32 29 29 29 20 28 70 | 72 6f 67 6e 0d 0a 20 20 | 2))) (p|rogn..  |
|00000d00| 28 73 65 74 71 20 70 33 | 20 28 70 6f 6c 61 72 20 |(setq p3| (polar |
|00000d10| 70 31 20 30 20 28 2f 20 | 6d 64 31 20 34 29 29 20 |p1 0 (/ |md1 4)) |
|00000d20| 70 34 20 28 70 6f 6c 61 | 72 20 70 33 20 30 20 28 |p4 (pola|r p3 0 (|
|00000d30| 2f 20 6d 64 31 20 32 29 | 29 29 0d 0a 20 20 28 63 |/ md1 2)|))..  (c|
|00000d40| 6f 6d 6d 61 6e 64 20 22 | 70 6c 69 6e 65 22 20 70 |ommand "|pline" p|
|00000d50| 36 20 22 77 22 20 31 20 | 31 20 70 33 20 22 22 29 |6 "w" 1 |1 p3 "")|
|00000d60| 0d 0a 20 29 29 0d 0a 20 | 28 73 65 74 71 20 64 20 |.. )).. |(setq d |
|00000d70| 28 31 2b 20 64 29 20 70 | 36 20 70 34 29 0d 0a 20 |(1+ d) p|6 p4).. |
|00000d80| 28 69 66 20 28 6e 74 68 | 20 32 20 6c 29 20 28 73 |(if (nth| 2 l) (s|
|00000d90| 65 74 71 20 70 31 20 28 | 70 6f 6c 61 72 20 70 31 |etq p1 (|polar p1|
|00000da0| 20 30 20 6d 64 31 29 29 | 29 0d 0a 29 0d 0a 28 64 | 0 md1))|)..)..(d|
|00000db0| 65 66 75 6e 20 64 61 74 | 65 20 28 29 0d 0a 20 28 |efun dat|e ().. (|
|00000dc0| 73 65 74 71 20 64 74 20 | 31 32 2e 35 20 62 6e 20 |setq dt |12.5 bn |
|00000dd0| 28 6e 74 68 20 31 20 6c | 29 20 69 20 31 20 70 32 |(nth 1 l|) i 1 p2|
|00000de0| 20 70 31 29 0d 0a 20 28 | 77 68 69 6c 65 20 28 3d | p1).. (|while (=|
|00000df0| 20 28 6c 69 73 74 70 20 | 62 6e 29 20 6e 69 6c 29 | (listp |bn) nil)|
|00000e00| 0d 0a 20 20 28 69 66 20 | 28 3e 3d 20 64 61 20 31 |..  (if |(>= da 1|
|00000e10| 30 29 20 28 66 65 6e 29 | 29 0d 0a 20 20 28 63 6f |0) (fen)|)..  (co|
|00000e20| 6d 6d 61 6e 64 20 22 69 | 6e 73 65 72 74 22 20 28 |mmand "i|nsert" (|
|00000e30| 73 74 72 63 61 74 20 22 | 5c 5c 68 6f 75 73 65 31 |strcat "|\\house1|
|00000e40| 5c 5c 68 64 31 5c 5c 22 | 20 62 6e 29 20 70 32 20 |\\hd1\\"| bn) p2 |
|00000e50| 31 20 31 20 30 29 0d 0a | 20 20 28 73 65 74 71 20 |1 1 0)..|  (setq |
|00000e60| 70 32 20 28 70 6f 6c 61 | 72 20 70 32 20 28 2f 20 |p2 (pola|r p2 (/ |
|00000e70| 28 2a 20 70 69 20 33 29 | 20 32 29 20 31 32 2e 35 |(* pi 3)| 2) 12.5|
|00000e80| 29 29 0d 0a 20 20 28 73 | 65 74 71 20 69 20 28 31 |))..  (s|etq i (1|
|00000e90| 2b 20 69 29 20 62 6e 20 | 28 6e 74 68 20 69 20 6c |+ i) bn |(nth i l|
|00000ea0| 29 29 0d 0a 20 29 0d 0a | 20 28 63 6f 6d 6d 61 6e |)).. )..| (comman|
|00000eb0| 64 20 22 70 6c 69 6e 65 | 22 20 70 32 20 22 77 22 |d "pline|" p2 "w"|
|00000ec0| 20 30 2e 33 20 30 2e 33 | 20 22 40 30 2c 2d 36 2e | 0.3 0.3| "@0,-6.|
|00000ed0| 35 22 20 22 22 29 0d 0a | 20 28 73 65 74 71 20 70 |5" "")..| (setq p|
|00000ee0| 32 20 28 6c 69 73 74 20 | 28 2d 20 28 63 61 72 20 |2 (list |(- (car |
|00000ef0| 70 32 29 20 64 74 29 20 | 28 2d 20 28 63 61 64 72 |p2) dt) |(- (cadr|
|00000f00| 20 70 32 29 20 36 2e 35 | 29 29 29 0d 0a 20 28 63 | p2) 6.5|))).. (c|
|00000f10| 6f 6d 6d 61 6e 64 20 22 | 70 6c 69 6e 65 22 20 70 |ommand "|pline" p|
|00000f20| 32 20 22 77 22 20 30 2e | 33 20 30 2e 33 20 28 70 |2 "w" 0.|3 0.3 (p|
|00000f30| 6f 6c 61 72 20 70 32 20 | 30 20 28 2a 20 32 20 64 |olar p2 |0 (* 2 d|
|00000f40| 74 29 29 20 22 22 29 0d | 0a 20 28 73 65 74 71 20 |t)) "").|. (setq |
|00000f50| 6c 6e 20 28 6c 65 6e 67 | 74 68 20 6c 29 29 0d 0a |ln (leng|th l))..|
|00000f60| 20 28 77 68 69 6c 65 20 | 28 3c 20 69 20 6c 6e 29 | (while |(< i ln)|
|00000f70| 0d 0a 20 20 28 73 65 74 | 71 20 64 6c 20 28 6e 74 |..  (set|q dl (nt|
|00000f80| 68 20 69 20 6c 29 20 6f | 20 28 63 61 72 20 64 6c |h i l) o| (car dl|
|00000f90| 29 29 0d 0a 20 20 28 72 | 65 70 65 61 74 20 6f 20 |))..  (r|epeat o |
|00000fa0| 28 64 31 29 0d 0a 20 20 | 28 73 65 74 71 20 70 32 |(d1)..  |(setq p2|
|00000fb0| 20 28 70 6f 6c 61 72 20 | 70 32 20 30 20 28 2a 20 | (polar |p2 0 (* |
|00000fc0| 32 20 64 74 29 29 29 29 | 0d 0a 20 20 28 73 65 74 |2 dt))))|..  (set|
|00000fd0| 71 20 69 20 28 31 2b 20 | 69 29 29 0d 0a 20 29 0d |q i (1+ |i)).. ).|
|00000fe0| 0a 29 0d 0a 28 64 65 66 | 75 6e 20 64 31 20 28 29 |.)..(def|un d1 ()|
|00000ff0| 0d 0a 20 28 63 6f 6d 6d | 61 6e 64 20 22 70 6c 69 |.. (comm|and "pli|
|00001000| 6e 65 22 20 70 32 20 22 | 77 22 20 30 2e 33 20 30 |ne" p2 "|w" 0.3 0|
|00001010| 2e 33 20 22 40 30 2c 2d | 36 2e 35 22 20 22 22 29 |.3 "@0,-|6.5" "")|
|00001020| 0d 0a 20 28 73 65 74 71 | 20 70 36 20 28 70 6f 6c |.. (setq| p6 (pol|
|00001030| 61 72 20 70 32 20 28 2f | 20 28 2a 20 70 69 20 33 |ar p2 (/| (* pi 3|
|00001040| 29 20 32 29 20 36 2e 35 | 29 20 6a 20 31 29 0d 0a |) 2) 6.5|) j 1)..|
|00001050| 20 28 77 68 69 6c 65 20 | 28 3c 20 6a 20 28 6c 65 | (while |(< j (le|
|00001060| 6e 67 74 68 20 64 6c 29 | 29 0d 0a 20 20 28 73 65 |ngth dl)|)..  (se|
|00001070| 74 71 20 62 6e 20 28 73 | 74 72 63 61 74 20 22 5c |tq bn (s|trcat "\|
|00001080| 5c 68 6f 75 73 65 31 5c | 5c 68 64 31 5c 5c 22 20 |\house1\|\hd1\\" |
|00001090| 28 6e 74 68 20 6a 20 64 | 6c 29 29 29 0d 0a 20 20 |(nth j d|l)))..  |
|000010a0| 28 63 6f 6d 6d 61 6e 64 | 20 22 69 6e 73 65 72 74 |(command| "insert|
|000010b0| 22 20 62 6e 20 70 36 20 | 31 20 31 20 30 29 0d 0a |" bn p6 |1 1 0)..|
|000010c0| 20 20 28 73 65 74 71 20 | 70 36 20 28 70 6f 6c 61 |  (setq |p6 (pola|
|000010d0| 72 20 70 36 20 28 2f 20 | 28 2a 20 70 69 20 33 29 |r p6 (/ |(* pi 3)|
|000010e0| 20 32 29 20 31 32 2e 35 | 29 20 6a 20 28 31 2b 20 | 2) 12.5|) j (1+ |
|000010f0| 6a 29 29 0d 0a 20 29 0d | 0a 29 0d 0a 28 64 65 66 |j)).. ).|.)..(def|
|00001100| 75 6e 20 64 32 20 28 29 | 0d 0a 20 28 73 65 74 71 |un d2 ()|.. (setq|
|00001110| 20 69 20 30 20 70 32 20 | 70 31 29 0d 0a 20 28 77 | i 0 p2 |p1).. (w|
|00001120| 68 69 6c 65 20 28 3c 20 | 69 20 28 6c 65 6e 67 74 |hile (< |i (lengt|
|00001130| 68 20 6c 29 29 0d 0a 20 | 20 28 73 65 74 71 20 62 |h l)).. | (setq b|
|00001140| 6e 20 28 73 74 72 63 61 | 74 20 22 5c 5c 68 6f 75 |n (strca|t "\\hou|
|00001150| 73 65 31 5c 5c 68 64 31 | 5c 5c 22 20 28 6e 74 68 |se1\\hd1|\\" (nth|
|00001160| 20 69 20 6c 29 29 29 0d | 0a 20 20 28 63 6f 6d 6d | i l))).|.  (comm|
|00001170| 61 6e 64 20 22 69 6e 73 | 65 72 74 22 20 62 6e 20 |and "ins|ert" bn |
|00001180| 70 32 20 31 20 31 20 30 | 29 0d 0a 20 20 28 73 65 |p2 1 1 0|)..  (se|
|00001190| 74 71 20 70 32 20 28 70 | 6f 6c 61 72 20 70 32 20 |tq p2 (p|olar p2 |
|000011a0| 28 2f 20 28 2a 20 70 69 | 20 33 29 20 32 29 20 31 |(/ (* pi| 3) 2) 1|
|000011b0| 32 2e 35 29 20 69 20 28 | 31 2b 20 69 29 29 0d 0a |2.5) i (|1+ i))..|
|000011c0| 20 29 0d 0a 29 0d 0a 20 | 28 68 64 30 38 29 0d 0a | )..).. |(hd08)..|
|000011d0| 1a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+