/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / j / jfs_std / !JFShared / BasicLib / ExtEditLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 45 | 78 74 65 72 6e 61 6c 20 |..... >E|xternal |
|00000010| 65 64 69 74 20 6c 69 62 | 72 61 72 79 0d 00 14 1d |edit lib|rary....|
|00000020| f4 20 a9 20 4a 75 73 74 | 69 6e 20 46 6c 65 74 63 |. . Just|in Fletc|
|00000030| 68 65 72 2c 20 31 39 39 | 35 0d 00 1e 38 f4 20 52 |her, 199|5...8. R|
|00000040| 65 71 75 69 72 65 73 20 | 57 69 6d 70 4c 69 62 20 |equires |WimpLib |
|00000050| 66 72 6f 6d 20 4a 46 53 | 68 61 72 65 64 20 74 6f |from JFS|hared to|
|00000060| 20 68 61 76 65 20 62 65 | 65 6e 20 6c 6f 61 64 65 | have be|en loade|
|00000070| 64 0d 00 28 22 f4 20 56 | 65 72 73 69 6f 6e 20 31 |d..(". V|ersion 1|
|00000080| 2e 30 34 20 3a 20 28 30 | 31 20 53 65 70 20 31 39 |.04 : (0|1 Sep 19|
|00000090| 39 35 29 0d 00 32 2f 85 | 20 30 2c 22 44 6f 20 6e |95)..2/.| 0,"Do n|
|000000a0| 6f 74 20 72 75 6e 20 74 | 68 65 20 45 78 74 45 64 |ot run t|he ExtEd|
|000000b0| 69 74 4c 69 62 20 69 6e | 20 74 68 69 73 20 77 61 |itLib in| this wa|
|000000c0| 79 22 0d 00 3c 05 3a 0d | 00 46 26 f4 20 50 52 4f |y"..<.:.|.F&. PRO|
|000000d0| 43 65 65 5f 69 6e 69 74 | 20 3a 20 49 6e 69 74 69 |Cee_init| : Initi|
|000000e0| 61 6c 69 73 65 20 6c 69 | 62 72 61 72 79 0d 00 50 |alise li|brary..P|
|000000f0| 0d dd f2 65 65 5f 69 6e | 69 74 0d 00 5a 11 de 20 |...ee_in|it..Z.. |
|00000100| 65 78 74 68 25 20 36 34 | 2a 31 36 0d 00 64 1f e3 |exth% 64|*16..d..|
|00000110| 49 3d 30 b8 36 33 2a 31 | 36 20 88 20 34 3a 65 78 |I=0.63*1|6 . 4:ex|
|00000120| 74 68 25 21 49 3d 2d 31 | 3a ed 0d 00 6e 2d 65 78 |th%!I=-1|:...n-ex|
|00000130| 74 74 6f 70 25 3d 2d 31 | 3a 65 78 74 73 74 61 74 |ttop%=-1|:extstat|
|00000140| 75 73 3d 30 3a 65 78 74 | 63 6f 64 65 3d 30 3a 65 |us=0:ext|code=0:e|
|00000150| 78 74 72 65 66 3d 30 0d | 00 78 05 e1 0d 00 82 05 |xtref=0.|.x......|
|00000160| 3a 0d 00 8c 27 f4 20 49 | 6e 74 65 72 6e 61 6c 20 |:...'. I|nternal |
|00000170| 72 6f 75 74 69 6e 65 73 | 20 63 61 6c 6c 65 64 20 |routines| called |
|00000180| 65 78 74 65 64 69 74 5f | 0d 00 96 22 f4 20 45 78 |extedit_|...". Ex|
|00000190| 74 65 72 6e 61 6c 20 72 | 6f 75 74 69 6e 65 73 20 |ternal r|outines |
|000001a0| 63 61 6c 6c 65 64 20 65 | 65 5f 0d 00 a0 20 f4 20 |called e|e_... . |
|000001b0| 55 73 65 72 20 72 6f 75 | 74 69 6e 65 73 20 63 61 |User rou|tines ca|
|000001c0| 6c 6c 65 64 20 65 64 69 | 74 5f 0d 00 aa 05 3a 0d |lled edi|t_....:.|
|000001d0| 00 b4 18 f4 20 65 78 74 | 68 25 20 68 61 6e 64 6c |.... ext|h% handl|
|000001e0| 65 20 62 6c 6f 63 6b 0d | 00 be 14 f4 20 20 30 20 |e block.|....  0 |
|000001f0| 20 6a 6f 62 20 6e 75 6d | 62 65 72 0d 00 c8 14 f4 | job num|ber.....|
|00000200| 20 20 34 20 20 65 64 69 | 74 20 66 6c 61 67 73 0d |  4  edi|t flags.|
|00000210| 00 d2 15 f4 20 20 38 20 | 20 74 61 73 6b 20 68 61 |....  8 | task ha|
|00000220| 6e 64 6c 65 0d 00 dc 18 | f4 20 20 31 32 20 69 6e |ndle....|.  12 in|
|00000230| 74 65 72 6e 61 6c 20 73 | 74 61 74 65 0d 00 e6 05 |ternal s|tate....|
|00000240| 3a 0d 00 f0 20 f4 20 49 | 6e 74 65 72 6e 61 6c 20 |:... . I|nternal |
|00000250| 73 74 61 74 65 20 3a 20 | 26 78 63 63 63 63 63 63 |state : |&xcccccc|
|00000260| 63 0d 00 fa 2f f4 20 63 | 63 63 63 63 3a 20 49 6e |c.../. c|cccc: In|
|00000270| 74 65 72 6e 61 6c 20 63 | 6f 64 65 20 75 73 65 64 |ternal c|ode used|
|00000280| 20 62 79 20 75 73 65 72 | 20 70 72 6f 67 72 61 6d | by user| program|
|00000290| 0d 01 04 32 f4 20 20 20 | 20 78 20 3a 20 66 6c 61 |...2.   | x : fla|
|000002a0| 67 73 20 62 69 74 73 20 | 75 73 65 64 20 62 79 20 |gs bits |used by |
|000002b0| 45 78 74 45 64 69 74 4c | 69 62 2c 20 62 69 74 73 |ExtEditL|ib, bits|
|000002c0| 20 3a 0d 01 0e 24 f4 20 | 20 20 20 37 20 3a 20 53 | :...$. |   7 : S|
|000002d0| 65 74 20 69 66 20 77 65 | 20 61 72 65 20 61 6e 20 |et if we| are an |
|000002e0| 65 64 69 74 6f 72 0d 01 | 18 05 3a 0d 01 22 11 f4 |editor..|..:.."..|
|000002f0| 20 45 78 74 73 74 61 74 | 75 73 20 3a 0d 01 2c 20 | Extstat|us :.., |
|00000300| f4 20 43 45 20 30 20 20 | 6e 6f 20 6f 70 65 72 61 |. CE 0  |no opera|
|00000310| 74 69 6f 6e 20 70 65 6e | 64 69 6e 67 0d 01 36 37 |tion pen|ding..67|
|00000320| f4 20 43 20 20 31 20 20 | 61 77 61 69 74 69 6e 67 |. C  1  |awaiting|
|00000330| 20 61 63 6b 6e 6f 77 6c | 65 64 67 65 6d 65 6e 74 | acknowl|edgement|
|00000340| 20 6f 66 20 73 74 61 72 | 74 20 28 65 78 74 63 6f | of star|t (extco|
|00000350| 64 65 29 0d 01 40 37 f4 | 20 43 45 20 32 20 20 72 |de)..@7.| CE 2  r|
|00000360| 65 74 75 72 6e 69 6e 67 | 20 6e 65 77 20 68 61 6e |eturning| new han|
|00000370| 64 6c 65 20 69 6e 20 63 | 6f 64 65 20 28 2d 31 3d |dle in c|ode (-1=|
|00000380| 6e 6f 74 20 66 6f 75 6e | 64 29 0d 01 4a 3b f4 20 |not foun|d)..J;. |
|00000390| 43 45 20 33 20 20 61 77 | 61 69 74 69 6e 67 20 61 |CE 3  aw|aiting a|
|000003a0| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 20 6f |cknowled|gement o|
|000003b0| 66 20 73 61 76 65 20 28 | 65 78 74 63 6f 64 65 3d |f save (|extcode=|
|000003c0| 6e 75 6d 25 29 0d 01 54 | 3d f4 20 43 45 20 34 20 |num%)..T|=. CE 4 |
|000003d0| 20 73 61 76 65 20 64 6f | 6e 65 20 28 2d 31 3d 65 | save do|ne (-1=e|
|000003e0| 72 72 6f 72 2c 20 30 3d | 6f 6b 29 20 2d 20 61 77 |rror, 0=|ok) - aw|
|000003f0| 61 69 74 69 6e 67 20 61 | 63 6b 20 6f 66 20 6c 6f |aiting a|ck of lo|
|00000400| 61 64 0d 01 5e 2f f4 20 | 43 20 20 35 20 20 72 65 |ad..^/. |C  5  re|
|00000410| 74 75 72 6e 69 6e 67 20 | 6c 6f 61 64 20 72 65 73 |turning |load res|
|00000420| 75 6c 74 73 20 28 2d 31 | 3d 6e 6f 74 20 61 63 6b |ults (-1|=not ack|
|00000430| 29 0d 01 68 2f f4 20 43 | 20 20 36 20 20 61 77 61 |)..h/. C|  6  awa|
|00000440| 69 74 69 6e 67 20 64 61 | 74 61 73 61 76 65 61 63 |iting da|tasaveac|
|00000450| 6b 20 28 65 78 74 63 6f | 64 65 3d 6e 75 6d 25 29 |k (extco|de=num%)|
|00000460| 0d 01 72 2b f4 20 43 20 | 20 37 20 20 61 77 61 69 |..r+. C | 7  awai|
|00000470| 74 69 6e 67 20 63 6f 6e | 66 69 72 6d 61 74 69 6f |ting con|firmatio|
|00000480| 6e 20 6f 66 20 72 65 74 | 75 72 6e 0d 01 7c 31 f4 |n of ret|urn..|1.|
|00000490| 20 43 20 20 38 20 20 61 | 77 61 69 74 69 6e 67 20 | C  8  a|waiting |
|000004a0| 63 75 72 73 6f 72 20 72 | 65 74 75 72 6e 20 28 65 |cursor r|eturn (e|
|000004b0| 78 74 63 6f 64 65 3d 6e | 75 6d 25 29 0d 01 86 33 |xtcode=n|um%)...3|
|000004c0| f4 20 43 20 20 39 20 20 | 72 65 74 75 72 6e 69 6e |. C  9  |returnin|
|000004d0| 67 20 70 6f 73 69 74 69 | 6f 6e 20 6f 66 20 63 75 |g positi|on of cu|
|000004e0| 72 73 6f 72 20 69 6e 20 | 65 78 74 63 6f 64 65 0d |rsor in |extcode.|
|000004f0| 01 90 3a f4 20 45 20 20 | 31 30 20 61 77 61 69 74 |..:. E  |10 await|
|00000500| 69 6e 67 20 64 61 74 61 | 73 61 76 65 61 63 6b 20 |ing data|saveack |
|00000510| 28 65 78 74 63 6f 64 65 | 3d 6e 75 6d 25 29 20 28 |(extcode|=num%) (|
|00000520| 65 71 75 69 76 2e 20 36 | 29 0d 01 9a 3b f4 20 45 |equiv. 6|)...;. E|
|00000530| 20 20 31 31 20 72 65 74 | 75 72 6e 20 64 61 74 61 |  11 ret|urn data|
|00000540| 20 6f 6b 2c 20 6e 65 78 | 74 20 69 73 20 73 65 6e | ok, nex|t is sen|
|00000550| 64 66 69 6c 65 20 28 65 | 78 74 63 6f 64 65 3d 6e |dfile (e|xtcode=n|
|00000560| 75 6d 25 29 0d 01 a4 05 | 3a 0d 01 ae 14 f4 20 46 |um%)....|:..... F|
|00000570| 6f 72 20 61 20 43 6c 69 | 65 6e 74 20 3a 0d 01 b8 |or a Cli|ent :...|
|00000580| 3e f4 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |>. The f|ollowing|
|00000590| 20 6c 69 6e 65 73 20 73 | 68 6f 75 6c 64 20 62 65 | lines s|hould be|
|000005a0| 20 61 64 64 65 64 20 74 | 6f 20 74 68 65 20 31 37 | added t|o the 17|
|000005b0| 2c 31 38 20 68 61 6e 64 | 6c 65 72 0d 01 c2 2d 20 |,18 hand|ler...- |
|000005c0| c9 20 32 3a e7 20 65 78 | 74 73 74 61 74 75 73 3d |. 2:. ex|tstatus=|
|000005d0| 33 20 8c 65 78 74 63 6f | 64 65 3d 30 3a 65 78 74 |3 .extco|de=0:ext|
|000005e0| 73 74 61 74 75 73 3d 34 | 0d 01 cc 26 20 c9 20 33 |status=4|...& . 3|
|000005f0| 3a e7 20 65 78 74 73 74 | 61 74 75 73 3d 36 20 8c |:. extst|atus=6 .|
|00000600| f2 65 78 74 65 64 69 74 | 5f 73 61 76 65 64 0d 01 |.extedit|_saved..|
|00000610| d6 2d 20 c9 20 34 3a e7 | 20 65 78 74 73 74 61 74 |.- . 4:.| extstat|
|00000620| 75 73 3d 34 20 8c 65 78 | 74 63 6f 64 65 3d 30 3a |us=4 .ex|tcode=0:|
|00000630| 65 78 74 73 74 61 74 75 | 73 3d 35 0d 01 e0 1a 20 |extstatu|s=5.... |
|00000640| c9 20 26 34 35 44 38 31 | 3a f2 65 78 74 65 64 69 |. &45D81|:.extedi|
|00000650| 74 5f 61 63 6b 0d 01 ea | 23 20 c9 20 26 34 35 44 |t_ack...|# . &45D|
|00000660| 38 33 3a f2 65 78 74 65 | 64 69 74 5f 61 62 6f 72 |83:.exte|dit_abor|
|00000670| 74 28 62 25 21 32 34 29 | 0d 01 f4 22 20 c9 20 26 |t(b%!24)|..." . &|
|00000680| 34 35 44 38 34 3a f2 65 | 78 74 65 64 69 74 5f 73 |45D84:.e|xtedit_s|
|00000690| 61 76 65 28 62 25 21 32 | 30 29 0d 01 fe 2a 20 c9 |ave(b%!2|0)...* .|
|000006a0| 20 26 34 35 44 38 35 3a | f2 65 78 74 65 64 69 74 | &45D85:|.extedit|
|000006b0| 5f 63 75 72 73 6f 72 28 | 62 25 21 32 34 2c 62 25 |_cursor(|b%!24,b%|
|000006c0| 21 34 34 29 0d 02 08 3b | f4 20 54 68 65 20 66 6f |!44)...;|. The fo|
|000006d0| 6c 6c 6f 77 69 6e 67 20 | 6c 69 6e 65 73 20 73 68 |llowing |lines sh|
|000006e0| 6f 75 6c 64 20 62 65 20 | 61 64 64 65 64 20 74 6f |ould be |added to|
|000006f0| 20 74 68 65 20 31 39 20 | 68 61 6e 64 6c 65 72 0d | the 19 |handler.|
|00000700| 02 12 26 20 c9 20 32 3a | f4 20 50 6f 73 73 69 62 |..& . 2:|. Possib|
|00000710| 6c 65 20 44 61 74 61 54 | 72 61 6e 73 66 65 72 20 |le DataT|ransfer |
|00000720| 61 62 6f 72 74 0d 02 1c | 2e 20 c9 20 33 3a e7 20 |abort...|. . 3:. |
|00000730| 65 78 74 73 74 61 74 75 | 73 3d 34 20 8c 65 78 74 |extstatu|s=4 .ext|
|00000740| 63 6f 64 65 3d 2d 31 3a | 65 78 74 73 74 61 74 75 |code=-1:|extstatu|
|00000750| 73 3d 35 0d 02 26 1c 20 | c9 20 26 34 35 44 38 30 |s=5..&. |. &45D80|
|00000760| 3a f2 65 78 74 65 64 69 | 74 5f 6e 6f 61 63 6b 0d |:.extedi|t_noack.|
|00000770| 02 30 1d 20 c9 20 26 34 | 35 44 38 34 3a f2 65 78 |.0. . &4|5D84:.ex|
|00000780| 74 65 64 69 74 5f 6e 6f | 73 61 76 65 0d 02 3a 27 |tedit_no|save..:'|
|00000790| 20 c9 20 26 34 35 44 38 | 35 3a f2 65 78 74 65 64 | . &45D8|5:.exted|
|000007a0| 69 74 5f 63 75 72 73 6f | 72 28 62 25 21 32 34 2c |it_curso|r(b%!24,|
|000007b0| 2d 32 29 0d 02 44 36 f4 | 20 54 68 65 20 70 72 6f |-2)..D6.| The pro|
|000007c0| 67 72 61 6d 20 73 68 6f | 75 6c 64 20 68 61 76 65 |gram sho|uld have|
|000007d0| 20 72 6f 75 74 69 6e 65 | 73 20 77 68 69 63 68 20 | routine|s which |
|000007e0| 68 61 6e 64 6c 65 20 3a | 2d 0d 02 4e 15 f4 20 41 |handle :|-..N.. A|
|000007f0| 62 6f 72 74 65 64 20 65 | 64 69 74 73 20 3a 0d 02 |borted e|dits :..|
|00000800| 58 24 f4 20 20 50 52 4f | 43 65 64 69 74 5f 61 62 |X$.  PRO|Cedit_ab|
|00000810| 6f 72 74 65 64 28 6e 75 | 6d 62 65 72 2c 63 6f 64 |orted(nu|mber,cod|
|00000820| 65 29 0d 02 62 1a f4 20 | 53 61 76 65 20 64 61 74 |e)..b.. |Save dat|
|00000830| 61 20 72 65 71 75 65 73 | 74 73 20 3a 0d 02 6c 39 |a reques|ts :..l9|
|00000840| f4 20 20 46 4e 65 64 69 | 74 5f 73 61 76 65 72 71 |.  FNedi|t_saverq|
|00000850| 28 6e 75 6d 62 65 72 2c | 63 6f 64 65 2c 74 79 70 |(number,|code,typ|
|00000860| 65 29 20 3d 20 30 20 66 | 6f 72 20 6f 6b 20 74 6f |e) = 0 f|or ok to|
|00000870| 20 6c 6f 61 64 0d 02 76 | 34 f4 20 20 46 4e 65 64 | load..v|4.  FNed|
|00000880| 69 74 5f 72 65 74 75 72 | 6e 65 64 28 6e 75 6d 62 |it_retur|ned(numb|
|00000890| 65 72 2c 63 6f 64 65 2c | 66 69 6c 65 24 29 20 3d |er,code,|file$) =|
|000008a0| 20 30 20 66 6f 72 20 6f | 6b 0d 02 80 05 3a 0d 02 | 0 for o|k....:..|
|000008b0| 8a 15 f4 20 46 6f 72 20 | 61 6e 20 65 64 69 74 6f |... For |an edito|
|000008c0| 72 20 3a 0d 02 94 3e f4 | 20 54 68 65 20 66 6f 6c |r :...>.| The fol|
|000008d0| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 73 20 73 68 6f |lowing l|ines sho|
|000008e0| 75 6c 64 20 62 65 20 61 | 64 64 65 64 20 74 6f 20 |uld be a|dded to |
|000008f0| 74 68 65 20 31 37 2c 31 | 38 20 68 61 6e 64 6c 65 |the 17,1|8 handle|
|00000900| 72 0d 02 9e 2d 20 c9 20 | 32 3a e7 20 65 78 74 73 |r...- . |2:. exts|
|00000910| 74 61 74 75 73 3d 33 20 | 8c 65 78 74 63 6f 64 65 |tatus=3 |.extcode|
|00000920| 3d 30 3a 65 78 74 73 74 | 61 74 75 73 3d 34 0d 02 |=0:extst|atus=4..|
|00000930| a8 35 20 c9 20 33 3a e7 | 20 65 78 74 73 74 61 74 |.5 . 3:.| extstat|
|00000940| 75 73 3d 36 20 84 20 65 | 78 74 73 74 61 74 75 73 |us=6 . e|xtstatus|
|00000950| 3d 31 30 20 8c f2 65 78 | 74 65 64 69 74 5f 73 61 |=10 ..ex|tedit_sa|
|00000960| 76 65 64 0d 02 b2 2d 20 | c9 20 34 3a e7 20 65 78 |ved...- |. 4:. ex|
|00000970| 74 73 74 61 74 75 73 3d | 34 20 8c 65 78 74 63 6f |tstatus=|4 .extco|
|00000980| 64 65 3d 30 3a 65 78 74 | 73 74 61 74 75 73 3d 35 |de=0:ext|status=5|
|00000990| 0d 02 bc 4a 20 c9 20 26 | 34 35 44 38 30 3a f2 65 |...J . &|45D80:.e|
|000009a0| 64 69 74 5f 72 65 71 75 | 65 73 74 65 64 28 62 25 |dit_requ|ested(b%|
|000009b0| 21 32 30 2c 62 25 21 32 | 38 2c a4 73 74 72 69 6e |!20,b%!2|8,.strin|
|000009c0| 67 30 28 62 25 2b 33 32 | 29 2c a4 73 74 72 69 6e |g0(b%+32|),.strin|
|000009d0| 67 30 28 62 25 2b 35 32 | 29 29 0d 02 c6 24 20 c9 |g0(b%+52|))...$ .|
|000009e0| 20 26 34 35 44 38 32 3a | f2 65 78 74 65 64 69 74 | &45D82:|.extedit|
|000009f0| 5f 72 65 74 75 72 6e 28 | 62 25 21 32 34 29 0d 02 |_return(|b%!24)..|
|00000a00| d0 23 20 c9 20 26 34 35 | 44 38 33 3a f2 65 78 74 |.# . &45|D83:.ext|
|00000a10| 65 64 69 74 5f 61 62 6f | 72 74 28 62 25 21 32 34 |edit_abo|rt(b%!24|
|00000a20| 29 0d 02 da 22 20 c9 20 | 26 34 35 44 38 34 3a f2 |)..." . |&45D84:.|
|00000a30| 65 78 74 65 64 69 74 5f | 73 61 76 65 28 62 25 21 |extedit_|save(b%!|
|00000a40| 32 30 29 0d 02 e4 3b f4 | 20 54 68 65 20 66 6f 6c |20)...;.| The fol|
|00000a50| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 73 20 73 68 6f |lowing l|ines sho|
|00000a60| 75 6c 64 20 62 65 20 61 | 64 64 65 64 20 74 6f 20 |uld be a|dded to |
|00000a70| 74 68 65 20 31 39 20 68 | 61 6e 64 6c 65 72 0d 02 |the 19 h|andler..|
|00000a80| ee 26 20 c9 20 32 3a f4 | 20 50 6f 73 73 69 62 6c |.& . 2:.| Possibl|
|00000a90| 65 20 44 61 74 61 54 72 | 61 6e 73 66 65 72 20 61 |e DataTr|ansfer a|
|00000aa0| 62 6f 72 74 0d 02 f8 2e | 20 c9 20 33 3a e7 20 65 |bort....| . 3:. e|
|00000ab0| 78 74 73 74 61 74 75 73 | 3d 34 20 8c 65 78 74 63 |xtstatus|=4 .extc|
|00000ac0| 6f 64 65 3d 2d 31 3a 65 | 78 74 73 74 61 74 75 73 |ode=-1:e|xtstatus|
|00000ad0| 3d 35 0d 03 02 1d 20 c9 | 20 26 34 35 44 38 34 3a |=5.... .| &45D84:|
|00000ae0| f2 65 78 74 65 64 69 74 | 5f 6e 6f 73 61 76 65 0d |.extedit|_nosave.|
|00000af0| 03 0c 36 f4 20 54 68 65 | 20 70 72 6f 67 72 61 6d |..6. The| program|
|00000b00| 20 73 68 6f 75 6c 64 20 | 68 61 76 65 20 72 6f 75 | should |have rou|
|00000b10| 74 69 6e 65 73 20 77 68 | 69 63 68 20 68 61 6e 64 |tines wh|ich hand|
|00000b20| 6c 65 20 3a 2d 0d 03 16 | 15 f4 20 41 62 6f 72 74 |le :-...|.. Abort|
|00000b30| 65 64 20 65 64 69 74 73 | 20 3a 0d 03 20 24 f4 20 |ed edits| :.. $. |
|00000b40| 20 50 52 4f 43 65 64 69 | 74 5f 61 62 6f 72 74 65 | PROCedi|t_aborte|
|00000b50| 64 28 6e 75 6d 62 65 72 | 2c 63 6f 64 65 29 0d 03 |d(number|,code)..|
|00000b60| 2a 15 f4 20 45 64 69 74 | 20 72 65 71 75 65 73 74 |*.. Edit| request|
|00000b70| 73 20 3a 0d 03 34 33 f4 | 20 20 50 52 4f 43 65 64 |s :..43.|  PROCed|
|00000b80| 69 74 5f 72 65 71 75 65 | 73 74 65 64 28 74 79 70 |it_reque|sted(typ|
|00000b90| 65 2c 66 6c 61 67 73 2c | 70 61 72 65 6e 74 24 2c |e,flags,|parent$,|
|00000ba0| 6c 65 61 66 24 29 0d 03 | 3e 37 f4 20 20 28 77 68 |leaf$)..|>7.  (wh|
|00000bb0| 69 63 68 20 73 68 6f 75 | 6c 64 20 63 61 6c 6c 20 |ich shou|ld call |
|00000bc0| 46 4e 65 65 5f 72 65 71 | 75 65 73 74 61 63 6b 28 |FNee_req|uestack(|
|00000bd0| 66 6c 61 67 73 2c 63 6f | 64 65 29 20 29 0d 03 48 |flags,co|de) )..H|
|00000be0| 26 f4 20 53 61 76 65 20 | 64 61 74 61 20 28 74 6f |&. Save |data (to|
|00000bf0| 20 65 64 69 74 6f 72 29 | 20 72 65 71 75 65 73 74 | editor)| request|
|00000c00| 73 20 3a 0d 03 52 39 f4 | 20 20 46 4e 65 64 69 74 |s :..R9.|  FNedit|
|00000c10| 5f 73 61 76 65 72 71 28 | 6e 75 6d 62 65 72 2c 63 |_saverq(|number,c|
|00000c20| 6f 64 65 2c 74 79 70 65 | 29 20 3d 20 30 20 66 6f |ode,type|) = 0 fo|
|00000c30| 72 20 6f 6b 20 74 6f 20 | 6c 6f 61 64 0d 03 5c 37 |r ok to |load..\7|
|00000c40| f4 20 20 46 4e 65 64 69 | 74 5f 73 61 76 65 64 74 |.  FNedi|t_savedt|
|00000c50| 6f 28 6e 75 6d 62 65 72 | 2c 63 6f 64 65 2c 66 69 |o(number|,code,fi|
|00000c60| 6c 65 24 29 20 3d 20 30 | 20 66 6f 72 20 6c 6f 61 |le$) = 0| for loa|
|00000c70| 64 65 64 0d 03 66 26 f4 | 20 53 61 76 65 20 64 61 |ded..f&.| Save da|
|00000c80| 74 61 20 28 74 6f 20 63 | 6c 69 65 6e 74 29 20 72 |ta (to c|lient) r|
|00000c90| 65 71 75 65 73 74 73 20 | 3a 0d 03 70 42 f4 20 20 |equests |:..pB.  |
|00000ca0| 46 4e 65 64 69 74 5f 72 | 65 74 75 72 6e 72 71 28 |FNedit_r|eturnrq(|
|00000cb0| 6e 75 6d 62 65 72 2c 63 | 6f 64 65 2c 64 61 74 61 |number,c|ode,data|
|00000cc0| 74 79 70 65 2c 66 6c 61 | 67 73 29 20 3d 20 66 69 |type,fla|gs) = fi|
|00000cd0| 6c 65 6e 61 6d 65 2f 6e | 75 6c 6c 0d 03 7a 36 f4 |lename/n|ull..z6.|
|00000ce0| 20 20 50 52 4f 43 65 64 | 69 74 5f 73 61 76 65 62 |  PROCed|it_saveb|
|00000cf0| 61 63 6b 28 6e 75 6d 62 | 65 72 2c 63 6f 64 65 2c |ack(numb|er,code,|
|00000d00| 66 69 6c 65 24 2c 74 79 | 70 65 2c 66 6c 61 67 73 |file$,ty|pe,flags|
|00000d10| 29 0d 03 84 05 3a 0d 03 | 8e 26 f4 20 45 78 74 65 |)....:..|.&. Exte|
|00000d20| 72 6e 61 6c 20 65 64 69 | 74 74 69 6e 67 20 66 6c |rnal edi|tting fl|
|00000d30| 61 67 73 20 28 62 69 74 | 73 29 20 3a 0d 03 98 1b |ags (bit|s) :....|
|00000d40| f4 20 20 30 20 20 43 6f | 6e 74 69 6e 75 65 20 65 |.  0  Co|ntinue e|
|00000d50| 64 69 74 74 69 6e 67 0d | 03 a2 18 f4 20 20 31 20 |ditting.|....  1 |
|00000d60| 20 53 65 6c 65 63 74 69 | 6f 6e 20 6f 6e 6c 79 0d | Selecti|on only.|
|00000d70| 03 ac 13 f4 20 20 32 20 | 20 52 65 61 64 2d 6f 6e |....  2 | Read-on|
|00000d80| 6c 79 0d 03 b6 1d f4 20 | 20 33 20 20 49 6d 6d 65 |ly..... | 3  Imme|
|00000d90| 64 69 61 74 65 20 65 78 | 65 63 75 74 69 6f 6e 0d |diate ex|ecution.|
|00000da0| 03 c0 1a f4 20 20 34 20 | 20 41 64 6a 75 73 74 20 |....  4 | Adjust |
|00000db0| 73 65 6c 65 63 74 69 6f | 6e 0d 03 ca 05 3a 0d 03 |selectio|n....:..|
|00000dc0| d4 35 f4 20 46 4e 65 65 | 5f 62 65 67 69 6e 20 3a |.5. FNee|_begin :|
|00000dd0| 20 53 74 61 72 74 20 61 | 6e 20 65 78 74 65 72 6e | Start a|n extern|
|00000de0| 61 6c 20 65 64 69 74 74 | 69 6e 67 20 73 65 73 73 |al editt|ing sess|
|00000df0| 69 6f 6e 0d 03 de 21 f4 | 20 20 72 65 74 75 72 6e |ion...!.|  return|
|00000e00| 73 20 2d 31 20 69 66 20 | 6e 6f 74 20 70 6f 73 73 |s -1 if |not poss|
|00000e10| 69 62 6c 65 0d 03 e8 24 | f4 20 20 74 79 70 65 25 |ible...$|.  type%|
|00000e20| 20 3d 20 64 61 74 61 20 | 74 79 70 65 20 28 26 65 | = data |type (&e|
|00000e30| 65 65 65 30 74 74 74 29 | 0d 03 f2 1d f4 20 20 66 |eee0ttt)|.....  f|
|00000e40| 6c 61 67 73 25 3d 20 65 | 64 69 74 74 69 6e 67 20 |lags%= e|ditting |
|00000e50| 66 6c 61 67 73 0d 03 fc | 23 f4 20 20 6c 65 61 66 |flags...|#.  leaf|
|00000e60| 24 20 3d 20 6c 65 61 66 | 20 6e 61 6d 65 20 66 6f |$ = leaf| name fo|
|00000e70| 72 20 65 64 69 74 6f 72 | 0d 04 06 27 f4 20 20 63 |r editor|...'.  c|
|00000e80| 6f 64 65 20 20 3d 20 63 | 6f 64 65 20 74 6f 20 72 |ode  = c|ode to r|
|00000e90| 65 66 65 72 20 74 6f 20 | 66 69 6c 65 20 61 73 0d |efer to |file as.|
|00000ea0| 04 10 19 f4 20 56 61 6c | 69 64 20 66 6c 61 67 73 |.... Val|id flags|
|00000eb0| 20 3a 20 30 2c 32 2c 33 | 0d 04 1a 28 dd a4 65 65 | : 0,2,3|...(..ee|
|00000ec0| 5f 62 65 67 69 6e 28 74 | 79 70 65 25 2c 66 6c 61 |_begin(t|ype%,fla|
|00000ed0| 67 73 25 2c 6c 65 61 66 | 24 2c 63 6f 64 65 25 29 |gs%,leaf|$,code%)|
|00000ee0| 0d 04 24 07 ea 20 49 0d | 04 2e 1b 6e 75 6d 25 3d |..$.. I.|...num%=|
|00000ef0| a4 65 78 74 65 64 69 74 | 5f 68 61 6e 64 6c 65 6e |.extedit|_handlen|
|00000f00| 75 6d 0d 04 38 12 e7 20 | 6e 75 6d 25 3d 2d 31 20 |um..8.. |num%=-1 |
|00000f10| 8c 3d 2d 31 0d 04 42 29 | 65 78 74 68 25 21 28 6e |.=-1..B)|exth%!(n|
|00000f20| 75 6d 25 2a 31 36 2b 31 | 32 29 3d 63 6f 64 65 25 |um%*16+1|2)=code%|
|00000f30| 3a f2 65 78 74 65 64 69 | 74 5f 6e 65 77 0d 04 4c |:.extedi|t_new..L|
|00000f40| 12 e7 20 65 78 74 63 6f | 64 65 3d 2d 31 20 8c 0d |.. extco|de=-1 ..|
|00000f50| 04 56 3c 20 e7 20 28 74 | 79 70 65 25 20 84 20 26 |.V< . (t|ype% . &|
|00000f60| 46 46 46 29 3c 3e 26 46 | 46 46 20 8c 74 79 70 65 |FFF)<>&F|FF .type|
|00000f70| 25 3d 74 79 70 65 25 20 | 80 20 26 46 46 46 3a f2 |%=type% |. &FFF:.|
|00000f80| 65 78 74 65 64 69 74 5f | 6e 65 77 0d 04 60 05 cd |extedit_|new..`..|
|00000f90| 0d 04 6a 15 e7 20 65 78 | 74 63 6f 64 65 3d 2d 31 |..j.. ex|tcode=-1|
|00000fa0| 20 8c 3d 2d 31 0d 04 74 | 09 3d 6e 75 6d 25 0d 04 | .=-1..t|.=num%..|
|00000fb0| 7e 2a dd f2 65 78 74 65 | 64 69 74 5f 6e 65 77 3a |~*..exte|dit_new:|
|00000fc0| 65 78 74 73 74 61 74 75 | 73 3d 31 3a 65 78 74 63 |extstatu|s=1:extc|
|00000fd0| 6f 64 65 3d 6e 75 6d 25 | 0d 04 88 4b f2 65 78 74 |ode=num%|...K.ext|
|00000fe0| 65 64 69 74 5f 62 6c 6b | 28 26 34 35 44 38 30 2c |edit_blk|(&45D80,|
|00000ff0| 35 32 2b 28 a9 28 6c 65 | 61 66 24 29 2b 34 29 20 |52+(.(le|af$)+4) |
|00001000| 80 2d 34 2c 74 79 70 65 | 25 2c 28 65 78 74 74 6f |.-4,type|%,(extto|
|00001010| 70 25 3c 3c 36 29 2b 6e | 75 6d 25 2c 66 6c 61 67 |p%<<6)+n|um%,flag|
|00001020| 73 25 29 0d 04 92 2a 24 | 28 62 25 2b 33 32 29 3d |s%)...*$|(b%+32)=|
|00001030| 41 70 70 6e 61 6d 65 24 | 2b bd 30 3a 24 28 62 25 |Appname$|+.0:$(b%|
|00001040| 2b 35 32 29 3d 6c 65 61 | 66 24 2b bd 30 0d 04 9c |+52)=lea|f$+.0...|
|00001050| 21 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |!.. "Wim|p_SendMe|
|00001060| 73 73 61 67 65 22 2c 31 | 38 2c 62 25 2c 30 0d 04 |ssage",1|8,b%,0..|
|00001070| a6 30 f5 3a f2 50 6f 6c | 6c 3a fd 20 65 78 74 73 |.0.:.Pol|l:. exts|
|00001080| 74 61 74 75 73 3d 32 20 | 84 20 71 75 69 74 25 3c |tatus=2 |. quit%<|
|00001090| 3e a3 3a 65 78 74 73 74 | 61 74 75 73 3d 30 0d 04 |>.:extst|atus=0..|
|000010a0| b0 1c e7 20 65 78 74 63 | 6f 64 65 3d 2d 31 20 80 |... extc|ode=-1 .|
|000010b0| 20 71 75 69 74 25 3d a3 | 20 8c 0d 04 ba 14 20 e7 | quit%=.| ..... .|
|000010c0| 20 74 79 70 65 25 3c 26 | 31 30 30 30 20 8c 0d 04 | type%<&|1000 ...|
|000010d0| c4 2c 20 20 61 24 3d 22 | 41 6c 69 61 73 24 40 45 |.,  a$="|Alias$@E|
|000010e0| 64 69 74 54 79 70 65 5f | 22 2b c2 22 30 30 22 2b |ditType_|"+."00"+|
|000010f0| c3 7e 74 79 70 65 25 2c | 33 29 0d 04 ce 06 20 cc |.~type%,|3).... .|
|00001100| 0d 04 d8 31 20 20 61 24 | 3d 22 41 6c 69 61 73 24 |...1  a$|="Alias$|
|00001110| 40 45 64 69 74 54 79 70 | 65 5f 22 2b c2 22 30 30 |@EditTyp|e_"+."00|
|00001120| 30 30 30 30 30 22 2b c3 | 7e 74 79 70 65 25 2c 38 |00000"+.|~type%,8|
|00001130| 29 0d 04 e2 06 20 cd 0d | 04 ec 16 20 61 24 3d a4 |).... ..|... a$=.|
|00001140| 73 79 73 74 65 6d 76 61 | 72 28 61 24 29 0d 04 f6 |systemva|r(a$)...|
|00001150| 0f 20 e7 20 61 24 3c 3e | 22 22 20 8c 0d 05 00 22 |. . a$<>|"" ...."|
|00001160| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 74 61 72 74 |  .. "Wi|mp_Start|
|00001170| 54 61 73 6b 22 2c 61 24 | 3a f2 50 6f 6c 6c 0d 05 |Task",a$|:.Poll..|
|00001180| 0a 1e 20 20 65 78 74 73 | 74 61 74 75 73 3d 31 3a |..  exts|tatus=1:|
|00001190| 65 78 74 63 6f 64 65 3d | 6e 75 6d 25 0d 05 14 4d |extcode=|num%...M|
|000011a0| 20 20 f2 65 78 74 65 64 | 69 74 5f 62 6c 6b 28 26 |  .exted|it_blk(&|
|000011b0| 34 35 44 38 30 2c 35 32 | 2b 28 a9 28 6c 65 61 66 |45D80,52|+(.(leaf|
|000011c0| 24 29 2b 34 29 20 80 2d | 34 2c 74 79 70 65 25 2c |$)+4) .-|4,type%,|
|000011d0| 28 65 78 74 74 6f 70 25 | 3c 3c 36 29 2b 6e 75 6d |(exttop%|<<6)+num|
|000011e0| 25 2c 66 6c 61 67 73 25 | 29 0d 05 1e 2c 20 20 24 |%,flags%|)...,  $|
|000011f0| 28 62 25 2b 33 32 29 3d | 41 70 70 6e 61 6d 65 24 |(b%+32)=|Appname$|
|00001200| 2b bd 30 3a 24 28 62 25 | 2b 35 32 29 3d 6c 65 61 |+.0:$(b%|+52)=lea|
|00001210| 66 24 2b bd 30 0d 05 28 | 23 20 20 c8 99 20 22 57 |f$+.0..(|#  .. "W|
|00001220| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00001230| 2c 31 38 2c 62 25 2c 30 | 0d 05 32 32 20 20 f5 3a |,18,b%,0|..22  .:|
|00001240| f2 50 6f 6c 6c 3a fd 20 | 65 78 74 73 74 61 74 75 |.Poll:. |extstatu|
|00001250| 73 3d 32 20 84 20 71 75 | 69 74 25 3c 3e a3 3a 65 |s=2 . qu|it%<>.:e|
|00001260| 78 74 73 74 61 74 75 73 | 3d 30 0d 05 3c 06 20 cd |xtstatus|=0..<. .|
|00001270| 0d 05 46 05 cd 0d 05 50 | 17 e7 20 71 75 69 74 25 |..F....P|.. quit%|
|00001280| 20 8c 65 78 74 63 6f 64 | 65 3d 2d 31 0d 05 5a 05 | .extcod|e=-1..Z.|
|00001290| e1 0d 05 64 2e dd f2 65 | 78 74 65 64 69 74 5f 62 |...d...e|xtedit_b|
|000012a0| 6c 6b 28 6d 73 67 25 2c | 6c 65 6e 25 2c 74 79 70 |lk(msg%,|len%,typ|
|000012b0| 65 25 2c 6a 6f 62 25 2c | 66 6c 61 67 73 25 29 0d |e%,job%,|flags%).|
|000012c0| 05 6e 43 21 62 25 3d 6c | 65 6e 25 3a 62 25 21 31 |.nC!b%=l|en%:b%!1|
|000012d0| 32 3d 30 3a 62 25 21 31 | 36 3d 6d 73 67 25 3a 62 |2=0:b%!1|6=msg%:b|
|000012e0| 25 21 32 30 3d 74 79 70 | 65 25 3a 62 25 21 32 34 |%!20=typ|e%:b%!24|
|000012f0| 3d 6a 6f 62 25 3a 62 25 | 21 32 38 3d 66 6c 61 67 |=job%:b%|!28=flag|
|00001300| 73 25 0d 05 78 05 e1 0d | 05 82 05 3a 0d 05 8c 3e |s%..x...|...:...>|
|00001310| f4 20 46 4e 65 78 74 65 | 64 69 74 5f 68 61 6e 64 |. FNexte|dit_hand|
|00001320| 6c 65 6e 75 6d 20 3a 20 | 72 65 74 75 72 6e 20 66 |lenum : |return f|
|00001330| 69 6c 65 20 6e 75 6d 62 | 65 72 20 61 6e 64 20 73 |ile numb|er and s|
|00001340| 65 74 20 65 78 74 74 6f | 70 25 0d 05 96 17 dd a4 |et extto|p%......|
|00001350| 65 78 74 65 64 69 74 5f | 68 61 6e 64 6c 65 6e 75 |extedit_|handlenu|
|00001360| 6d 0d 05 a0 12 e7 20 65 | 78 74 74 6f 70 25 3d 2d |m..... e|xttop%=-|
|00001370| 31 20 8c 0d 05 aa 2c 20 | 65 78 74 74 6f 70 25 3d |1 ...., |exttop%=|
|00001380| bb 28 a4 73 79 73 74 65 | 6d 76 61 72 28 22 45 78 |.(.syste|mvar("Ex|
|00001390| 74 45 64 69 74 24 53 65 | 71 25 4a 46 22 29 29 0d |tEdit$Se|q%JF")).|
|000013a0| 05 b4 1d 20 e7 20 65 78 | 74 74 6f 70 25 3d 30 20 |... . ex|ttop%=0 |
|000013b0| 8c 65 78 74 74 6f 70 25 | 3d 37 30 30 0d 05 be 2f |.exttop%|=700.../|
|000013c0| 20 ff 28 22 2a 53 65 74 | 45 76 61 6c 20 45 78 74 | .("*Set|Eval Ext|
|000013d0| 45 64 69 74 24 53 65 71 | 25 4a 46 20 22 2b c3 28 |Edit$Seq|%JF "+.(|
|000013e0| 65 78 74 74 6f 70 25 2b | 31 29 29 0d 05 c8 05 cd |exttop%+|1)).....|
|000013f0| 0d 05 d2 32 6e 75 6d 25 | 3d 2d 31 3a e3 49 3d 30 |...2num%|=-1:.I=0|
|00001400| b8 36 33 3a e7 20 65 78 | 74 68 25 21 28 49 2a 31 |.63:. ex|th%!(I*1|
|00001410| 36 29 3d 2d 31 20 8c 6e | 75 6d 25 3d 49 3a 49 3d |6)=-1 .n|um%=I:I=|
|00001420| 36 33 0d 05 dc 05 ed 0d | 05 e6 09 3d 6e 75 6d 25 |63......|...=num%|
|00001430| 0d 05 f0 05 3a 0d 05 fa | 2b f4 20 50 52 4f 43 65 |....:...|+. PROCe|
|00001440| 78 74 65 64 69 74 5f 61 | 63 6b 20 3a 20 28 49 29 |xtedit_a|ck : (I)|
|00001450| 20 72 65 63 65 69 76 65 | 20 45 64 69 74 41 63 6b | receive| EditAck|
|00001460| 0d 06 04 11 dd f2 65 78 | 74 65 64 69 74 5f 61 63 |......ex|tedit_ac|
|00001470| 6b 0d 06 0e 13 e7 20 65 | 78 74 73 74 61 74 75 73 |k..... e|xtstatus|
|00001480| 3d 31 20 8c 0d 06 18 29 | 20 65 78 74 73 74 61 74 |=1 ....)| extstat|
|00001490| 75 73 3d 32 3a 65 78 74 | 68 25 21 28 65 78 74 63 |us=2:ext|h%!(extc|
|000014a0| 6f 64 65 2a 31 36 29 3d | 62 25 21 32 34 0d 06 22 |ode*16)=|b%!24.."|
|000014b0| 39 20 65 78 74 68 25 21 | 28 65 78 74 63 6f 64 65 |9 exth%!|(extcode|
|000014c0| 2a 31 36 2b 34 29 3d 62 | 25 21 32 38 3a 65 78 74 |*16+4)=b|%!28:ext|
|000014d0| 68 25 21 28 65 78 74 63 | 6f 64 65 2a 31 36 2b 38 |h%!(extc|ode*16+8|
|000014e0| 29 3d 62 25 21 34 0d 06 | 2c 12 20 65 78 74 63 6f |)=b%!4..|,. extco|
|000014f0| 64 65 3d 62 25 21 32 34 | 0d 06 36 05 cc 0d 06 40 |de=b%!24|..6....@|
|00001500| 2b 20 85 20 26 38 30 32 | 2c 22 55 6e 65 78 70 65 |+ . &802|,"Unexpe|
|00001510| 63 74 65 64 20 45 78 74 | 45 64 69 74 41 63 6b 20 |cted Ext|EditAck |
|00001520| 6d 65 73 73 61 67 65 22 | 0d 06 4a 05 cd 0d 06 54 |message"|..J....T|
|00001530| 05 e1 0d 06 5e 05 3a 0d | 06 68 31 f4 20 50 52 4f |....^.:.|.h1. PRO|
|00001540| 43 65 78 74 65 64 69 74 | 5f 6e 6f 61 63 6b 20 3a |Cextedit|_noack :|
|00001550| 20 28 49 29 20 6e 6f 20 | 45 64 69 74 41 63 6b 20 | (I) no |EditAck |
|00001560| 72 65 63 65 69 76 65 64 | 0d 06 72 13 dd f2 65 78 |received|..r...ex|
|00001570| 74 65 64 69 74 5f 6e 6f | 61 63 6b 0d 06 7c 29 e7 |tedit_no|ack..|).|
|00001580| 20 65 78 74 73 74 61 74 | 75 73 3d 31 20 8c 65 78 | extstat|us=1 .ex|
|00001590| 74 73 74 61 74 75 73 3d | 32 3a 65 78 74 63 6f 64 |tstatus=|2:extcod|
|000015a0| 65 3d 2d 31 0d 06 86 05 | e1 0d 06 90 05 3a 0d 06 |e=-1....|.....:..|
|000015b0| 9a 3d f4 20 46 4e 65 65 | 5f 73 65 6e 64 66 69 6c |.=. FNee|_sendfil|
|000015c0| 65 20 3a 20 73 65 6e 64 | 20 61 20 66 69 6c 65 20 |e : send| a file |
|000015d0| 74 6f 20 61 6e 20 45 78 | 74 45 64 69 74 20 73 65 |to an Ex|tEdit se|
|000015e0| 73 73 69 6f 6e 20 28 45 | 2f 43 29 0d 06 a4 23 f4 |ssion (E|/C)...#.|
|000015f0| 20 20 72 65 74 75 72 6e | 73 20 2d 31 20 69 66 20 |  return|s -1 if |
|00001600| 65 72 72 6f 72 2c 20 30 | 20 69 66 20 6f 6b 0d 06 |error, 0| if ok..|
|00001610| ae 22 f4 20 20 6e 75 6d | 25 3d 6e 75 6d 62 65 72 |.".  num|%=number|
|00001620| 20 6f 66 20 69 6e 74 65 | 72 6e 61 6c 20 6a 6f 62 | of inte|rnal job|
|00001630| 0d 06 b8 24 f4 20 20 74 | 79 70 65 3d 66 69 6c 65 |...$.  t|ype=file|
|00001640| 20 74 79 70 65 20 28 6e | 6f 74 20 64 61 74 61 74 | type (n|ot datat|
|00001650| 79 70 65 29 0d 06 c2 24 | f4 20 20 66 69 6c 65 24 |ype)...$|.  file$|
|00001660| 20 72 65 74 75 72 6e 73 | 20 6e 61 6d 65 20 74 6f | returns| name to|
|00001670| 20 73 61 76 65 20 61 73 | 0d 06 cc 25 dd a4 65 65 | save as|...%..ee|
|00001680| 5f 73 65 6e 64 66 69 6c | 65 28 6e 75 6d 25 2c 74 |_sendfil|e(num%,t|
|00001690| 79 70 65 25 2c f8 20 66 | 69 6c 65 24 29 0d 06 d6 |ype%,. f|ile$)...|
|000016a0| 21 ea 20 6a 6f 62 25 3a | 6a 6f 62 25 3d a4 65 65 |!. job%:|job%=.ee|
|000016b0| 5f 66 69 6e 64 6a 6f 62 | 28 6e 75 6d 25 29 0d 06 |_findjob|(num%)..|
|000016c0| e0 3b e7 20 6a 6f 62 25 | 3d 2d 31 20 8c 85 20 26 |.;. job%|=-1 .. &|
|000016d0| 38 30 32 2c 22 41 74 74 | 65 6d 70 74 20 74 6f 20 |802,"Att|empt to |
|000016e0| 6f 70 65 6e 20 75 6e 6b | 6e 6f 77 6e 20 45 78 74 |open unk|nown Ext|
|000016f0| 45 64 69 74 20 6a 6f 62 | 22 0d 06 ea 27 62 25 21 |Edit job|"...'b%!|
|00001700| 30 3d 34 34 2b 28 a9 28 | 41 70 70 6e 61 6d 65 24 |0=44+(.(|Appname$|
|00001710| 29 2b 34 29 20 80 2d 34 | 3a 62 25 21 31 32 3d 30 |)+4) .-4|:b%!12=0|
|00001720| 0d 06 f4 33 62 25 21 31 | 36 3d 26 34 35 44 38 34 |...3b%!1|6=&45D84|
|00001730| 3a 62 25 21 32 30 3d 6a | 6f 62 25 3a 62 25 21 32 |:b%!20=j|ob%:b%!2|
|00001740| 34 3d 30 3a 62 25 21 32 | 38 3d 30 3a 62 25 21 33 |4=0:b%!2|8=0:b%!3|
|00001750| 32 3d 30 0d 06 fe 2d 62 | 25 21 33 36 3d 2d 31 3a |2=0...-b|%!36=-1:|
|00001760| 62 25 21 34 30 3d 74 79 | 70 65 25 3a 24 28 62 25 |b%!40=ty|pe%:$(b%|
|00001770| 2b 34 34 29 3d 41 70 70 | 6e 61 6d 65 24 2b bd 30 |+44)=App|name$+.0|
|00001780| 0d 07 08 32 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...2.. "|Wimp_Sen|
|00001790| 64 4d 65 73 73 61 67 65 | 22 2c 31 38 2c 62 25 2c |dMessage|",18,b%,|
|000017a0| a4 65 65 5f 66 69 6e 64 | 74 61 73 6b 28 6e 75 6d |.ee_find|task(num|
|000017b0| 25 29 0d 07 12 1c 65 78 | 74 73 74 61 74 75 73 3d |%)....ex|tstatus=|
|000017c0| 33 3a 65 78 74 63 6f 64 | 65 3d 6e 75 6d 25 0d 07 |3:extcod|e=num%..|
|000017d0| 1c 24 f5 3a f2 50 6f 6c | 6c 3a fd 20 65 78 74 73 |.$.:.Pol|l:. exts|
|000017e0| 74 61 74 75 73 3d 34 20 | 84 20 71 75 69 74 25 3c |tatus=4 |. quit%<|
|000017f0| 3e a3 0d 07 26 17 e7 20 | 71 75 69 74 25 20 8c 65 |>...&.. |quit% .e|
|00001800| 78 74 63 6f 64 65 3d 2d | 31 0d 07 30 32 e7 20 65 |xtcode=-|1..02. e|
|00001810| 78 74 63 6f 64 65 3d 30 | 20 8c 66 69 6c 65 24 3d |xtcode=0| .file$=|
|00001820| a4 73 74 72 69 6e 67 30 | 28 62 25 2b 34 34 29 3a |.string0|(b%+44):|
|00001830| 65 78 74 72 65 66 3d 62 | 25 21 38 0d 07 3a 0c 3d |extref=b|%!8..:.=|
|00001840| 65 78 74 63 6f 64 65 0d | 07 44 05 3a 0d 07 4e 37 |extcode.|.D.:..N7|
|00001850| f4 20 50 52 4f 43 65 78 | 74 65 64 69 74 5f 72 65 |. PROCex|tedit_re|
|00001860| 74 75 72 6e 20 3a 20 54 | 72 79 20 74 6f 20 72 65 |turn : T|ry to re|
|00001870| 74 75 72 6e 20 64 61 74 | 61 20 74 6f 20 63 6c 69 |turn dat|a to cli|
|00001880| 65 6e 74 0d 07 58 1a dd | f2 65 78 74 65 64 69 74 |ent..X..|.extedit|
|00001890| 5f 72 65 74 75 72 6e 28 | 6a 6f 62 25 29 0d 07 62 |_return(|job%)..b|
|000018a0| 3f 6e 75 6d 25 3d a4 65 | 65 5f 66 69 6e 64 6e 75 |?num%=.e|e_findnu|
|000018b0| 6d 28 6a 6f 62 25 29 3a | 74 79 70 65 25 3d 62 25 |m(job%):|type%=b%|
|000018c0| 21 34 30 3a 66 6c 61 67 | 73 25 3d 62 25 21 32 38 |!40:flag|s%=b%!28|
|000018d0| 3a 65 78 74 72 65 66 3d | 62 25 21 38 0d 07 6c 3e |:extref=|b%!8..l>|
|000018e0| 66 69 6c 65 24 3d a4 65 | 64 69 74 5f 72 65 74 75 |file$=.e|dit_retu|
|000018f0| 72 6e 72 71 28 6e 75 6d | 25 2c a4 65 65 5f 66 69 |rnrq(num|%,.ee_fi|
|00001900| 6e 64 63 6f 64 65 28 6e | 75 6d 25 29 2c 74 79 70 |ndcode(n|um%),typ|
|00001910| 65 25 2c 66 6c 61 67 73 | 25 29 0d 07 76 11 e7 20 |e%,flags|%)..v.. |
|00001920| 66 69 6c 65 24 3c 3e 22 | 22 20 8c 0d 07 80 2a 20 |file$<>"|" ....* |
|00001930| 62 25 21 30 3d 34 34 2b | 28 a9 28 66 69 6c 65 24 |b%!0=44+|(.(file$|
|00001940| 29 2b 34 29 20 80 2d 34 | 3a 62 25 21 31 32 3d 65 |)+4) .-4|:b%!12=e|
|00001950| 78 74 72 65 66 0d 07 8a | 34 20 62 25 21 31 36 3d |xtref...|4 b%!16=|
|00001960| 26 34 35 44 38 34 3a 62 | 25 21 32 30 3d 6a 6f 62 |&45D84:b|%!20=job|
|00001970| 25 3a 62 25 21 32 34 3d | 30 3a 62 25 21 32 38 3d |%:b%!24=|0:b%!28=|
|00001980| 30 3a 62 25 21 33 32 3d | 30 0d 07 94 32 20 62 25 |0:b%!32=|0...2 b%|
|00001990| 21 33 36 3d 2d 31 3a 62 | 25 21 34 30 3d 74 79 70 |!36=-1:b|%!40=typ|
|000019a0| 65 25 20 80 20 26 46 46 | 46 3a 24 28 62 25 2b 34 |e% . &FF|F:$(b%+4|
|000019b0| 34 29 3d 66 69 6c 65 24 | 2b bd 30 0d 07 9e 33 20 |4)=file$|+.0...3 |
|000019c0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|000019d0| 73 61 67 65 22 2c 31 38 | 2c 62 25 2c a4 65 65 5f |sage",18|,b%,.ee_|
|000019e0| 66 69 6e 64 74 61 73 6b | 28 6e 75 6d 25 29 0d 07 |findtask|(num%)..|
|000019f0| a8 1d 20 65 78 74 73 74 | 61 74 75 73 3d 33 3a 65 |.. extst|atus=3:e|
|00001a00| 78 74 63 6f 64 65 3d 6e | 75 6d 25 0d 07 b2 25 20 |xtcode=n|um%...% |
|00001a10| f5 3a f2 50 6f 6c 6c 3a | fd 20 65 78 74 73 74 61 |.:.Poll:|. extsta|
|00001a20| 74 75 73 3d 34 20 84 20 | 71 75 69 74 25 3c 3e a3 |tus=4 . |quit%<>.|
|00001a30| 0d 07 bc 18 20 e7 20 71 | 75 69 74 25 20 8c 65 78 |.... . q|uit% .ex|
|00001a40| 74 63 6f 64 65 3d 2d 31 | 0d 07 c6 12 20 e7 20 65 |tcode=-1|.... . e|
|00001a50| 78 74 63 6f 64 65 3d 30 | 20 8c 0d 07 d0 2b 20 20 |xtcode=0| ....+  |
|00001a60| 65 78 74 73 74 61 74 75 | 73 3d 31 31 3a 65 78 74 |extstatu|s=11:ext|
|00001a70| 63 6f 64 65 3d 6e 75 6d | 25 3a 65 78 74 72 65 66 |code=num|%:extref|
|00001a80| 3d 62 25 21 38 0d 07 da | 4a 20 20 f2 65 64 69 74 |=b%!8...|J  .edit|
|00001a90| 5f 73 61 76 65 62 61 63 | 6b 28 6e 75 6d 25 2c a4 |_savebac|k(num%,.|
|00001aa0| 65 65 5f 66 69 6e 64 63 | 6f 64 65 28 6e 75 6d 25 |ee_findc|ode(num%|
|00001ab0| 29 2c a4 73 74 72 69 6e | 67 30 28 62 25 2b 34 34 |),.strin|g0(b%+44|
|00001ac0| 29 2c 74 79 70 65 25 2c | 66 6c 61 67 73 25 29 0d |),type%,|flags%).|
|00001ad0| 07 e4 06 20 cd 0d 07 ee | 05 cd 0d 07 f8 05 e1 0d |... ....|........|
|00001ae0| 08 02 05 3a 0d 08 0c 3d | f4 20 46 4e 65 65 5f 73 |...:...=|. FNee_s|
|00001af0| 65 6e 64 66 69 6c 65 64 | 6f 6e 65 20 3a 20 4e 6f |endfiled|one : No|
|00001b00| 74 69 66 79 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |tify app|lication|
|00001b10| 20 74 68 61 74 20 73 61 | 76 65 20 77 61 73 20 6f | that sa|ve was o|
|00001b20| 6b 0d 08 16 29 f4 20 20 | 6d 75 73 74 20 62 65 20 |k...).  |must be |
|00001b30| 63 61 6c 6c 65 64 20 61 | 66 74 65 72 20 46 4e 65 |called a|fter FNe|
|00001b40| 65 5f 73 65 6e 64 66 69 | 6c 65 0d 08 20 1e dd a4 |e_sendfi|le.. ...|
|00001b50| 65 65 5f 73 65 6e 64 66 | 69 6c 65 64 6f 6e 65 28 |ee_sendf|iledone(|
|00001b60| 65 78 74 63 6f 64 65 29 | 0d 08 2a 32 66 69 6c 65 |extcode)|..*2file|
|00001b70| 24 3d a4 73 74 72 69 6e | 67 30 28 62 25 2b 34 34 |$=.strin|g0(b%+44|
|00001b80| 29 3a 62 25 21 30 3d 34 | 34 2b 28 a9 28 66 69 6c |):b%!0=4|4+(.(fil|
|00001b90| 65 24 29 2b 34 29 20 80 | 2d 34 0d 08 34 31 62 25 |e$)+4) .|-4..41b%|
|00001ba0| 21 33 36 3d a4 66 69 6c | 65 6c 65 6e 67 74 68 28 |!36=.fil|elength(|
|00001bb0| 66 69 6c 65 24 29 3a 62 | 25 21 31 32 3d 65 78 74 |file$):b|%!12=ext|
|00001bc0| 72 65 66 3a 62 25 21 31 | 36 3d 33 0d 08 3e 35 c8 |ref:b%!1|6=3..>5.|
|00001bd0| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00001be0| 61 67 65 22 2c 31 38 2c | 62 25 2c a4 65 65 5f 66 |age",18,|b%,.ee_f|
|00001bf0| 69 6e 64 74 61 73 6b 28 | 65 78 74 63 6f 64 65 29 |indtask(|extcode)|
|00001c00| 0d 08 48 1c 65 78 74 73 | 74 61 74 75 73 3d 34 3a |..H.exts|tatus=4:|
|00001c10| 65 78 74 63 6f 64 65 3d | 6e 75 6d 25 0d 08 52 24 |extcode=|num%..R$|
|00001c20| f5 3a f2 50 6f 6c 6c 3a | fd 20 65 78 74 73 74 61 |.:.Poll:|. extsta|
|00001c30| 74 75 73 3d 35 20 84 20 | 71 75 69 74 25 3c 3e a3 |tus=5 . |quit%<>.|
|00001c40| 0d 08 5c 17 e7 20 71 75 | 69 74 25 20 8c 65 78 74 |..\.. qu|it% .ext|
|00001c50| 63 6f 64 65 3d 2d 31 0d | 08 66 0c 3d 65 78 74 63 |code=-1.|.f.=extc|
|00001c60| 6f 64 65 0d 08 70 05 3a | 0d 08 7a 27 dd a4 65 65 |ode..p.:|..z'..ee|
|00001c70| 5f 66 69 6e 64 6a 6f 62 | 28 6e 75 6d 25 29 3a 3d |_findjob|(num%):=|
|00001c80| 65 78 74 68 25 21 28 6e | 75 6d 25 2a 31 36 29 0d |exth%!(n|um%*16).|
|00001c90| 08 84 2b dd a4 65 65 5f | 66 69 6e 64 66 6c 61 67 |..+..ee_|findflag|
|00001ca0| 73 28 6e 75 6d 25 29 3a | 3d 65 78 74 68 25 21 28 |s(num%):|=exth%!(|
|00001cb0| 6e 75 6d 25 2a 31 36 2b | 34 29 0d 08 8e 2a dd a4 |num%*16+|4)...*..|
|00001cc0| 65 65 5f 66 69 6e 64 74 | 61 73 6b 28 6e 75 6d 25 |ee_findt|ask(num%|
|00001cd0| 29 3a 3d 65 78 74 68 25 | 21 28 6e 75 6d 25 2a 31 |):=exth%|!(num%*1|
|00001ce0| 36 2b 38 29 0d 08 98 2b | dd a4 65 65 5f 66 69 6e |6+8)...+|..ee_fin|
|00001cf0| 64 63 6f 64 65 28 6e 75 | 6d 25 29 3a 3d 65 78 74 |dcode(nu|m%):=ext|
|00001d00| 68 25 21 28 6e 75 6d 25 | 2a 31 36 2b 31 32 29 0d |h%!(num%|*16+12).|
|00001d10| 08 a2 16 dd a4 65 65 5f | 66 69 6e 64 6e 75 6d 28 |.....ee_|findnum(|
|00001d20| 6a 6f 62 25 29 0d 08 ac | 34 ea 20 66 2c 49 3a 66 |job%)...|4. f,I:f|
|00001d30| 3d 2d 31 3a e3 49 3d 30 | b8 36 33 3a e7 20 65 78 |=-1:.I=0|.63:. ex|
|00001d40| 74 68 25 21 28 49 2a 31 | 36 29 3d 6a 6f 62 25 20 |th%!(I*1|6)=job% |
|00001d50| 8c 66 3d 49 3a 49 3d 36 | 33 0d 08 b6 08 ed 3a 3d |.f=I:I=6|3.....:=|
|00001d60| 66 0d 08 c0 1f dd a4 65 | 65 5f 66 69 6e 64 6e 75 |f......e|e_findnu|
|00001d70| 6d 66 72 6f 6d 63 6f 64 | 65 28 63 6f 64 65 25 29 |mfromcod|e(code%)|
|00001d80| 0d 08 ca 4a ea 20 66 2c | 49 3a 66 3d 2d 31 3a e3 |...J. f,|I:f=-1:.|
|00001d90| 49 3d 30 b8 36 33 3a e7 | 20 65 78 74 68 25 21 28 |I=0.63:.| exth%!(|
|00001da0| 49 2a 31 36 2b 31 32 29 | 3d 63 6f 64 65 25 20 80 |I*16+12)|=code% .|
|00001db0| 20 65 78 74 68 25 21 28 | 49 2a 31 36 29 3c 3e 30 | exth%!(|I*16)<>0|
|00001dc0| 20 8c 66 3d 49 3a 49 3d | 36 33 0d 08 d4 08 ed 3a | .f=I:I=|63.....:|
|00001dd0| 3d 66 0d 08 de 17 dd a4 | 65 65 5f 66 69 6e 64 6e |=f......|ee_findn|
|00001de0| 65 78 74 28 6e 75 6d 25 | 29 0d 08 e8 0d f5 3a 6e |ext(num%|).....:n|
|00001df0| 75 6d 25 2b 3d 31 0d 08 | f2 37 fd 20 65 78 74 68 |um%+=1..|.7. exth|
|00001e00| 25 21 28 6e 75 6d 25 2a | 31 36 29 3c 3e 30 20 80 |%!(num%*|16)<>0 .|
|00001e10| 20 65 78 74 68 25 21 28 | 6e 75 6d 25 2a 31 36 29 | exth%!(|num%*16)|
|00001e20| 3c 3e 2d 31 84 20 6e 75 | 6d 25 3e 36 33 0d 08 fc |<>-1. nu|m%>63...|
|00001e30| 19 e7 20 6e 75 6d 25 3e | 36 33 20 8c 3d 2d 31 20 |.. num%>|63 .=-1 |
|00001e40| 8b 3d 6e 75 6d 25 0d 09 | 06 05 3a 0d 09 10 37 f4 |.=num%..|..:...7.|
|00001e50| 20 50 52 4f 43 65 78 74 | 65 64 69 74 5f 6e 6f 73 | PROCext|edit_nos|
|00001e60| 61 76 65 20 3a 20 28 49 | 29 20 6e 6f 20 45 64 69 |ave : (I|) no Edi|
|00001e70| 74 44 61 74 61 53 61 76 | 65 20 72 65 63 65 69 76 |tDataSav|e receiv|
|00001e80| 65 64 0d 09 1a 14 dd f2 | 65 78 74 65 64 69 74 5f |ed......|extedit_|
|00001e90| 6e 6f 73 61 76 65 0d 09 | 24 29 e7 20 65 78 74 73 |nosave..|$). exts|
|00001ea0| 74 61 74 75 73 3d 33 20 | 8c 65 78 74 73 74 61 74 |tatus=3 |.extstat|
|00001eb0| 75 73 3d 34 3a 65 78 74 | 63 6f 64 65 3d 2d 31 0d |us=4:ext|code=-1.|
|00001ec0| 09 2e 05 e1 0d 09 38 05 | 3a 0d 09 42 2f f4 20 50 |......8.|:..B/. P|
|00001ed0| 52 4f 43 65 78 74 65 64 | 69 74 5f 61 62 6f 72 74 |ROCexted|it_abort|
|00001ee0| 20 3a 20 28 49 29 20 61 | 20 6a 6f 62 20 68 61 73 | : (I) a| job has|
|00001ef0| 20 61 62 6f 72 74 65 64 | 0d 09 4c 19 dd f2 65 78 | aborted|..L...ex|
|00001f00| 74 65 64 69 74 5f 61 62 | 6f 72 74 28 6a 6f 62 25 |tedit_ab|ort(job%|
|00001f10| 29 0d 09 56 2c 6e 75 6d | 25 3d a4 65 65 5f 66 69 |)..V,num|%=.ee_fi|
|00001f20| 6e 64 6e 75 6d 28 6a 6f | 62 25 29 3a 65 78 74 68 |ndnum(jo|b%):exth|
|00001f30| 25 21 28 6e 75 6d 25 2a | 31 36 29 3d 30 0d 09 60 |%!(num%*|16)=0..`|
|00001f40| 2a f2 65 64 69 74 5f 61 | 62 6f 72 74 65 64 28 6e |*.edit_a|borted(n|
|00001f50| 75 6d 25 2c 65 78 74 68 | 25 21 28 6e 75 6d 25 2a |um%,exth|%!(num%*|
|00001f60| 31 36 2b 31 32 29 29 0d | 09 6a 05 e1 0d 09 74 05 |16+12)).|.j....t.|
|00001f70| 3a 0d 09 7e 32 f4 20 50 | 52 4f 43 65 78 74 65 64 |:..~2. P|ROCexted|
|00001f80| 69 74 5f 73 61 76 65 20 | 3a 20 28 49 29 20 45 64 |it_save |: (I) Ed|
|00001f90| 69 74 44 61 74 61 53 61 | 76 65 20 72 65 63 65 69 |itDataSa|ve recei|
|00001fa0| 76 65 64 0d 09 88 18 dd | f2 65 78 74 65 64 69 74 |ved.....|.extedit|
|00001fb0| 5f 73 61 76 65 28 6a 6f | 62 25 29 0d 09 92 26 6e |_save(jo|b%)...&n|
|00001fc0| 75 6d 25 3d a4 65 65 5f | 66 69 6e 64 6e 75 6d 28 |um%=.ee_|findnum(|
|00001fd0| 6a 6f 62 25 29 3a 65 78 | 74 72 65 66 3d 62 25 21 |job%):ex|tref=b%!|
|00001fe0| 38 0d 09 93 10 e7 20 6e | 75 6d 25 3d 2d 31 20 8c |8..... n|um%=-1 .|
|00001ff0| e1 0d 09 9c 2b e7 20 28 | 28 65 78 74 68 25 21 28 |....+. (|(exth%!(|
|00002000| 6e 75 6d 25 2a 31 36 2b | 31 32 29 29 20 80 20 28 |num%*16+|12)) . (|
|00002010| 31 3c 3c 33 31 29 29 3c | 3e 30 20 8c 0d 09 a6 3a |1<<31))<|>0 ....:|
|00002020| 20 f4 20 57 65 20 61 72 | 65 20 61 6e 20 65 64 69 | . We ar|e an edi|
|00002030| 74 6f 72 20 62 65 69 6e | 67 20 61 73 6b 65 64 20 |tor bein|g asked |
|00002040| 74 6f 20 6c 6f 61 64 20 | 61 20 66 69 6c 65 2e 20 |to load |a file. |
|00002050| 61 72 72 67 68 21 0d 09 | b0 33 20 6f 6b 3d a4 65 |arrgh!..|.3 ok=.e|
|00002060| 64 69 74 5f 73 61 76 65 | 72 71 28 6e 75 6d 25 2c |dit_save|rq(num%,|
|00002070| a4 65 65 5f 66 69 6e 64 | 63 6f 64 65 28 6e 75 6d |.ee_find|code(num|
|00002080| 25 29 2c 62 25 21 34 30 | 29 0d 09 ba 0d 20 e7 20 |%),b%!40|).... . |
|00002090| 6f 6b 3d 30 20 8c 0d 09 | c4 2e 20 20 66 69 6c 65 |ok=0 ...|..  file|
|000020a0| 24 3d a4 65 78 74 65 64 | 69 74 5f 73 61 76 65 6e |$=.exted|it_saven|
|000020b0| 61 6d 65 28 a4 73 74 72 | 69 6e 67 30 28 62 25 2b |ame(.str|ing0(b%+|
|000020c0| 34 34 29 29 0d 09 ce 33 | 20 20 62 25 21 30 3d 34 |44))...3|  b%!0=4|
|000020d0| 38 2b 28 a9 28 66 69 6c | 65 24 29 20 80 20 ac 20 |8+(.(fil|e$) . . |
|000020e0| 33 29 3a 62 25 21 31 32 | 3d 65 78 74 72 65 66 3a |3):b%!12|=extref:|
|000020f0| 62 25 21 31 36 3d 32 0d | 09 d8 38 20 20 24 28 62 |b%!16=2.|..8  $(b|
|00002100| 25 2b 34 34 29 3d 66 69 | 6c 65 24 2b bd 30 3a 62 |%+44)=fi|le$+.0:b|
|00002110| 25 21 33 36 3d 2d 31 3a | 62 25 21 34 3d a4 65 65 |%!36=-1:|b%!4=.ee|
|00002120| 5f 66 69 6e 64 74 61 73 | 6b 28 6e 75 6d 25 29 0d |_findtas|k(num%).|
|00002130| 09 e2 26 20 20 c8 99 20 | 22 57 69 6d 70 5f 53 65 |..&  .. |"Wimp_Se|
|00002140| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 38 2c 62 25 |ndMessag|e",18,b%|
|00002150| 2c 62 25 21 34 0d 09 ec | 1f 20 20 65 78 74 73 74 |,b%!4...|.  extst|
|00002160| 61 74 75 73 3d 31 30 3a | 65 78 74 63 6f 64 65 3d |atus=10:|extcode=|
|00002170| 6e 75 6d 25 0d 09 f6 06 | 20 cd 0d 0a 00 05 cc 0d |num%....| .......|
|00002180| 0a 0a 33 20 6f 6b 3d a4 | 65 64 69 74 5f 73 61 76 |..3 ok=.|edit_sav|
|00002190| 65 72 71 28 6e 75 6d 25 | 2c a4 65 65 5f 66 69 6e |erq(num%|,.ee_fin|
|000021a0| 64 63 6f 64 65 28 6e 75 | 6d 25 29 2c 62 25 21 34 |dcode(nu|m%),b%!4|
|000021b0| 30 29 0d 0a 14 0d 20 e7 | 20 6f 6b 3d 30 20 8c 0d |0).... .| ok=0 ..|
|000021c0| 0a 1e 2e 20 20 66 69 6c | 65 24 3d a4 65 78 74 65 |...  fil|e$=.exte|
|000021d0| 64 69 74 5f 73 61 76 65 | 6e 61 6d 65 28 a4 73 74 |dit_save|name(.st|
|000021e0| 72 69 6e 67 30 28 62 25 | 2b 34 34 29 29 0d 0a 28 |ring0(b%|+44))..(|
|000021f0| 33 20 20 62 25 21 30 3d | 34 34 2b 28 a9 28 66 69 |3  b%!0=|44+(.(fi|
|00002200| 6c 65 24 29 2b 34 29 20 | 80 2d 34 3a 62 25 21 31 |le$)+4) |.-4:b%!1|
|00002210| 32 3d 65 78 74 72 65 66 | 3a 62 25 21 31 36 3d 32 |2=extref|:b%!16=2|
|00002220| 0d 0a 32 38 20 20 24 28 | 62 25 2b 34 34 29 3d 66 |..28  $(|b%+44)=f|
|00002230| 69 6c 65 24 2b bd 30 3a | 62 25 21 33 36 3d 2d 31 |ile$+.0:|b%!36=-1|
|00002240| 3a 62 25 21 34 3d a4 65 | 65 5f 66 69 6e 64 74 61 |:b%!4=.e|e_findta|
|00002250| 73 6b 28 6e 75 6d 25 29 | 0d 0a 3c 26 20 20 c8 99 |sk(num%)|..<&  ..|
|00002260| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00002270| 67 65 22 2c 31 38 2c 62 | 25 2c 62 25 21 34 0d 0a |ge",18,b|%,b%!4..|
|00002280| 46 1e 20 20 65 78 74 73 | 74 61 74 75 73 3d 36 3a |F.  exts|tatus=6:|
|00002290| 65 78 74 63 6f 64 65 3d | 6e 75 6d 25 0d 0a 50 06 |extcode=|num%..P.|
|000022a0| 20 cd 0d 0a 5a 05 cd 0d | 0a 64 05 e1 0d 0a 6e 05 | ...Z...|.d....n.|
|000022b0| 3a 0d 0a 78 13 dd f2 65 | 78 74 65 64 69 74 5f 73 |:..x...e|xtedit_s|
|000022c0| 61 76 65 64 0d 0a 82 2e | ea 20 72 65 70 6c 79 2c |aved....|. reply,|
|000022d0| 72 65 66 3a 72 65 66 3d | 62 25 21 38 3a 66 69 6c |ref:ref=|b%!8:fil|
|000022e0| 65 24 3d a4 73 74 72 69 | 6e 67 30 28 62 25 2b 34 |e$=.stri|ng0(b%+4|
|000022f0| 34 29 0d 0a 8c 13 e7 20 | 65 78 74 73 74 61 74 75 |4)..... |extstatu|
|00002300| 73 3d 36 20 8c 0d 0a 96 | 3e 20 72 65 70 6c 79 3d |s=6 ....|> reply=|
|00002310| a4 65 64 69 74 5f 72 65 | 74 75 72 6e 65 64 28 65 |.edit_re|turned(e|
|00002320| 78 74 63 6f 64 65 2c 65 | 78 74 68 25 21 28 65 78 |xtcode,e|xth%!(ex|
|00002330| 74 63 6f 64 65 2a 31 36 | 2b 31 32 29 2c 66 69 6c |tcode*16|+12),fil|
|00002340| 65 24 29 0d 0a a0 05 cc | 0d 0a aa 3d 20 72 65 70 |e$).....|...= rep|
|00002350| 6c 79 3d a4 65 64 69 74 | 5f 73 61 76 65 64 74 6f |ly=.edit|_savedto|
|00002360| 28 65 78 74 63 6f 64 65 | 2c 65 78 74 68 25 21 28 |(extcode|,exth%!(|
|00002370| 65 78 74 63 6f 64 65 2a | 31 36 2b 31 32 29 2c 66 |extcode*|16+12),f|
|00002380| 69 6c 65 24 29 0d 0a b4 | 05 cd 0d 0a be 0f e7 20 |ile$)...|....... |
|00002390| 72 65 70 6c 79 3d 30 20 | 8c 0d 0a c8 38 20 62 25 |reply=0 |....8 b%|
|000023a0| 21 30 3d 34 34 2b 28 a9 | 28 66 69 6c 65 24 29 2b |!0=44+(.|(file$)+|
|000023b0| 34 29 20 80 2d 34 3a 62 | 25 21 31 36 3d 34 3a 62 |4) .-4:b|%!16=4:b|
|000023c0| 25 21 31 32 3d 72 65 66 | 3a 62 25 21 38 3d 72 65 |%!12=ref|:b%!8=re|
|000023d0| 66 0d 0a d2 16 20 24 28 | 62 25 2b 34 34 29 3d 66 |f.... $(|b%+44)=f|
|000023e0| 69 6c 65 24 2b bd 30 0d | 0a dc 36 20 c8 99 20 22 |ile$+.0.|..6 .. "|
|000023f0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00002400| 22 2c 31 37 2c 62 25 2c | a4 65 65 5f 66 69 6e 64 |",17,b%,|.ee_find|
|00002410| 74 61 73 6b 28 65 78 74 | 63 6f 64 65 29 0d 0a e6 |task(ext|code)...|
|00002420| 05 cd 0d 0a f0 19 c8 99 | 20 22 58 4f 53 5f 46 69 |........| "XOS_Fi|
|00002430| 6c 65 22 2c 36 2c 66 69 | 6c 65 24 0d 0a fa 0f 65 |le",6,fi|le$....e|
|00002440| 78 74 73 74 61 74 75 73 | 3d 30 0d 0b 04 05 e1 0d |xtstatus|=0......|
|00002450| 0b 0e 05 3a 0d 0b 18 2c | f4 20 46 4e 65 65 5f 72 |...:...,|. FNee_r|
|00002460| 65 74 75 72 6e 20 3a 20 | 46 6f 72 63 65 20 74 68 |eturn : |Force th|
|00002470| 65 20 72 65 74 75 72 6e | 20 6f 66 20 64 61 74 61 |e return| of data|
|00002480| 0d 0b 22 17 f4 20 20 72 | 65 74 75 72 6e 73 20 30 |.."..  r|eturns 0|
|00002490| 20 66 6f 72 20 6f 6b 0d | 0b 2c 1d f4 20 20 6e 75 | for ok.|.,..  nu|
|000024a0| 6d 25 20 20 3d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |m%  = nu|mber of |
|000024b0| 66 69 6c 65 0d 0b 36 14 | f4 20 20 66 6c 61 67 73 |file..6.|.  flags|
|000024c0| 25 3d 20 66 6c 61 67 73 | 0d 0b 40 28 f4 20 20 73 |%= flags|..@(.  s|
|000024d0| 74 61 74 75 73 20 6f 6e | 20 6f 6b 20 69 73 20 64 |tatus on| ok is d|
|000024e0| 61 74 61 20 69 6e 20 74 | 72 61 6e 73 66 65 72 8c |ata in t|ransfer.|
|000024f0| 0d 0b 4a 17 f4 20 56 61 | 6c 69 64 20 66 6c 61 67 |..J.. Va|lid flag|
|00002500| 73 20 3a 20 30 2c 31 0d | 0b 54 22 dd a4 65 65 5f |s : 0,1.|.T"..ee_|
|00002510| 72 65 74 75 72 6e 28 6e | 75 6d 25 2c 66 6c 61 67 |return(n|um%,flag|
|00002520| 73 25 2c 74 79 70 65 25 | 29 0d 0b 5e 20 ea 20 63 |s%,type%|)..^ . c|
|00002530| 6e 74 3a 6a 6f 62 25 3d | a4 65 65 5f 66 69 6e 64 |nt:job%=|.ee_find|
|00002540| 6a 6f 62 28 6e 75 6d 25 | 29 0d 0b 68 44 62 25 21 |job(num%|)..hDb%!|
|00002550| 30 3d 33 32 3a 62 25 21 | 31 36 3d 26 34 35 44 38 |0=32:b%!|16=&45D8|
|00002560| 32 3a 62 25 21 31 32 3d | 30 3a 62 25 21 32 30 3d |2:b%!12=|0:b%!20=|
|00002570| 74 79 70 65 25 3a 62 25 | 21 32 34 3d 6a 6f 62 25 |type%:b%|!24=job%|
|00002580| 3a 62 25 21 32 38 3d 66 | 6c 61 67 73 25 0d 0b 72 |:b%!28=f|lags%..r|
|00002590| 32 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |2.. "Wim|p_SendMe|
|000025a0| 73 73 61 67 65 22 2c 31 | 37 2c 62 25 2c a4 65 65 |ssage",1|7,b%,.ee|
|000025b0| 5f 66 69 6e 64 74 61 73 | 6b 28 6e 75 6d 25 29 0d |_findtas|k(num%).|
|000025c0| 0b 7c 15 65 78 74 73 74 | 61 74 75 73 3d 37 3a 63 |.|.extst|atus=7:c|
|000025d0| 6e 74 3d 30 0d 0b 86 05 | f5 0d 0b 90 11 20 f2 50 |nt=0....|..... .P|
|000025e0| 6f 6c 6c 3a 63 6e 74 2b | 3d 31 0d 0b 9a 23 fd 20 |oll:cnt+|=1...#. |
|000025f0| 65 78 74 73 74 61 74 75 | 73 3c 3e 37 20 84 20 71 |extstatu|s<>7 . q|
|00002600| 75 69 74 25 20 84 20 63 | 6e 74 3d 35 30 0d 0b a4 |uit% . c|nt=50...|
|00002610| 2a e7 20 71 75 69 74 25 | 20 84 20 65 78 74 73 74 |*. quit%| . extst|
|00002620| 61 74 75 73 3d 37 20 8c | 65 78 74 73 74 61 74 75 |atus=7 .|extstatu|
|00002630| 73 3d 30 3a 3d 2d 31 0d | 0b ae 06 3d 30 0d 0b b8 |s=0:=-1.|...=0...|
|00002640| 05 3a 0d 0b c2 2b f4 20 | 50 52 4f 43 65 65 5f 61 |.:...+. |PROCee_a|
|00002650| 62 6f 72 74 20 3a 20 46 | 6f 72 63 65 20 61 62 6f |bort : F|orce abo|
|00002660| 72 74 69 6f 6e 20 6f 66 | 20 65 64 69 74 0d 0b cc |rtion of| edit...|
|00002670| 1c f4 20 20 6e 75 6d 25 | 20 3d 20 6e 75 6d 62 65 |..  num%| = numbe|
|00002680| 72 20 6f 66 20 66 69 6c | 65 0d 0b d6 28 f4 20 66 |r of fil|e...(. f|
|00002690| 6c 61 67 73 25 3d 20 31 | 20 74 6f 20 63 61 6c 6c |lags%= 1| to call|
|000026a0| 20 50 52 4f 43 65 64 69 | 74 5f 61 62 6f 72 74 65 | PROCedi|t_aborte|
|000026b0| 64 0d 0b e0 1b dd f2 65 | 65 5f 61 62 6f 72 74 28 |d......e|e_abort(|
|000026c0| 6e 75 6d 25 2c 66 6c 61 | 67 73 25 29 0d 0b ea 2c |num%,fla|gs%)...,|
|000026d0| 6a 6f 62 25 3d a4 65 65 | 5f 66 69 6e 64 6a 6f 62 |job%=.ee|_findjob|
|000026e0| 28 6e 75 6d 25 29 3a 65 | 78 74 68 25 21 28 6e 75 |(num%):e|xth%!(nu|
|000026f0| 6d 25 2a 31 36 29 3d 30 | 0d 0b f4 33 62 25 21 30 |m%*16)=0|...3b%!0|
|00002700| 3d 32 38 3a 62 25 21 31 | 36 3d 26 34 35 44 38 33 |=28:b%!1|6=&45D83|
|00002710| 3a 62 25 21 31 32 3d 30 | 3a 62 25 21 32 30 3d 30 |:b%!12=0|:b%!20=0|
|00002720| 3a 62 25 21 32 34 3d 6a | 6f 62 25 0d 0b fe 32 c8 |:b%!24=j|ob%...2.|
|00002730| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00002740| 61 67 65 22 2c 31 37 2c | 62 25 2c a4 65 65 5f 66 |age",17,|b%,.ee_f|
|00002750| 69 6e 64 74 61 73 6b 28 | 6e 75 6d 25 29 0d 0c 08 |indtask(|num%)...|
|00002760| 3b e7 20 28 66 6c 61 67 | 73 25 20 80 20 31 29 3d |;. (flag|s% . 1)=|
|00002770| 31 8c f2 65 64 69 74 5f | 61 62 6f 72 74 65 64 28 |1..edit_|aborted(|
|00002780| 6e 75 6d 25 2c 65 78 74 | 68 25 21 28 6e 75 6d 25 |num%,ext|h%!(num%|
|00002790| 2a 31 36 2b 31 32 29 29 | 0d 0c 12 05 e1 0d 0c 1c |*16+12))|........|
|000027a0| 05 3a 0d 0c 26 2d f4 20 | 50 52 4f 43 65 65 5f 61 |.:..&-. |PROCee_a|
|000027b0| 62 6f 72 74 61 6c 6c 20 | 3a 20 46 6f 72 63 65 20 |bortall |: Force |
|000027c0| 61 62 6f 72 74 69 6f 6e | 20 6f 66 20 61 6c 6c 0d |abortion| of all.|
|000027d0| 0c 30 28 f4 20 66 6c 61 | 67 73 25 3d 20 31 20 74 |.0(. fla|gs%= 1 t|
|000027e0| 6f 20 63 61 6c 6c 20 50 | 52 4f 43 65 64 69 74 5f |o call P|ROCedit_|
|000027f0| 61 62 6f 72 74 65 64 0d | 0c 3a 19 dd f2 65 65 5f |aborted.|.:...ee_|
|00002800| 61 62 6f 72 74 61 6c 6c | 28 66 6c 61 67 73 25 29 |abortall|(flags%)|
|00002810| 0d 0c 44 12 ea 20 6e 75 | 6d 25 3a 6e 75 6d 25 3d |..D.. nu|m%:num%=|
|00002820| 2d 31 0d 0c 4e 05 f5 0d | 0c 58 1c 20 6e 75 6d 25 |-1..N...|.X. num%|
|00002830| 3d a4 65 65 5f 66 69 6e | 64 6e 65 78 74 28 6e 75 |=.ee_fin|dnext(nu|
|00002840| 6d 25 29 0d 0c 62 27 20 | e7 20 6e 75 6d 25 3c 3e |m%)..b' |. num%<>|
|00002850| 2d 31 20 8c f2 65 65 5f | 61 62 6f 72 74 28 6e 75 |-1 ..ee_|abort(nu|
|00002860| 6d 25 2c 66 6c 61 67 73 | 25 29 0d 0c 6c 0c fd 6e |m%,flags|%)..l..n|
|00002870| 75 6d 25 3d 2d 31 0d 0c | 76 05 e1 0d 0c 80 05 3a |um%=-1..|v......:|
|00002880| 0d 0c 8a 2a f4 20 46 4e | 65 65 5f 73 65 74 63 75 |...*. FN|ee_setcu|
|00002890| 72 73 6f 72 20 3a 20 73 | 65 74 20 63 75 72 73 6f |rsor : s|et curso|
|000028a0| 72 20 70 6f 73 69 74 69 | 6f 6e 0d 0c 94 36 f4 20 |r positi|on...6. |
|000028b0| 72 65 74 75 72 6e 73 20 | 70 72 65 76 69 6f 75 73 |returns |previous|
|000028c0| 20 70 6f 73 69 74 69 6f | 6e 20 28 6f 72 20 2d 32 | positio|n (or -2|
|000028d0| 20 69 66 20 6e 6f 20 72 | 65 73 70 6f 6e 73 65 29 | if no r|esponse)|
|000028e0| 0d 0c 9e 1c f4 20 20 6e | 75 6d 25 20 3d 20 6e 75 |.....  n|um% = nu|
|000028f0| 6d 62 65 72 20 6f 66 20 | 66 69 6c 65 0d 0c a8 39 |mber of |file...9|
|00002900| f4 20 20 70 6f 73 25 20 | 3d 20 63 75 72 73 6f 72 |.  pos% |= cursor|
|00002910| 20 70 6f 73 69 74 69 6f | 6e 20 28 6f 72 20 2d 31 | positio|n (or -1|
|00002920| 20 74 6f 20 72 65 61 64 | 2c 20 2d 32 20 66 6f 72 | to read|, -2 for|
|00002930| 20 65 6e 64 29 0d 0c b2 | 1d dd a4 65 65 5f 73 65 | end)...|...ee_se|
|00002940| 74 63 75 72 73 6f 72 28 | 6e 75 6d 25 2c 70 6f 73 |tcursor(|num%,pos|
|00002950| 25 29 0d 0c bc 1a 6a 6f | 62 25 3d a4 65 65 5f 66 |%)....jo|b%=.ee_f|
|00002960| 69 6e 64 6a 6f 62 28 6e | 75 6d 25 29 0d 0c c6 33 |indjob(n|um%)...3|
|00002970| 62 25 21 30 3d 35 36 3a | 62 25 21 31 36 3d 26 34 |b%!0=56:|b%!16=&4|
|00002980| 35 44 38 35 3a 62 25 21 | 31 32 3d 30 3a 62 25 21 |5D85:b%!|12=0:b%!|
|00002990| 32 30 3d 30 3a 62 25 21 | 32 34 3d 6a 6f 62 25 0d |20=0:b%!|24=job%.|
|000029a0| 0c d0 3a 62 25 21 32 38 | 3d a4 65 65 5f 66 69 6e |..:b%!28|=.ee_fin|
|000029b0| 64 66 6c 61 67 73 28 6e | 75 6d 25 29 3a 62 25 21 |dflags(n|um%):b%!|
|000029c0| 33 32 3d 70 6f 73 25 3a | 62 25 21 33 36 3d 2d 31 |32=pos%:|b%!36=-1|
|000029d0| 3a 62 25 21 34 30 3d 2d | 31 0d 0c da 32 c8 99 20 |:b%!40=-|1...2.. |
|000029e0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|000029f0| 65 22 2c 31 38 2c 62 25 | 2c a4 65 65 5f 66 69 6e |e",18,b%|,.ee_fin|
|00002a00| 64 74 61 73 6b 28 6e 75 | 6d 25 29 0d 0c e4 0f 65 |dtask(nu|m%)....e|
|00002a10| 78 74 73 74 61 74 75 73 | 3d 38 0d 0c ee 22 f5 3a |xtstatus|=8...".:|
|00002a20| f2 50 6f 6c 6c 3a fd 20 | 65 78 74 73 74 61 74 75 |.Poll:. |extstatu|
|00002a30| 73 3c 3e 38 20 84 20 71 | 75 69 74 25 0d 0c f8 1c |s<>8 . q|uit%....|
|00002a40| 65 78 74 73 74 61 74 75 | 73 3d 30 3a e7 20 71 75 |extstatu|s=0:. qu|
|00002a50| 69 74 25 20 8c 3d 2d 31 | 0d 0d 02 0c 3d 65 78 74 |it% .=-1|....=ext|
|00002a60| 63 6f 64 65 0d 0d 0c 05 | 3a 0d 0d 16 1e dd f2 65 |code....|:......e|
|00002a70| 78 74 65 64 69 74 5f 63 | 75 72 73 6f 72 28 6a 6f |xtedit_c|ursor(jo|
|00002a80| 62 25 2c 63 75 72 29 0d | 0d 20 1b 65 78 74 63 6f |b%,cur).|. .extco|
|00002a90| 64 65 3d 63 75 72 3a 65 | 78 74 73 74 61 74 75 73 |de=cur:e|xtstatus|
|00002aa0| 3d 39 0d 0d 2a 05 e1 0d | 0d 34 05 3a 0d 0d 3e 43 |=9..*...|.4.:..>C|
|00002ab0| f4 20 46 4e 65 65 5f 72 | 65 71 75 65 73 74 61 63 |. FNee_r|equestac|
|00002ac0| 6b 28 66 6c 61 67 73 2c | 63 6f 64 65 29 20 3a 20 |k(flags,|code) : |
|00002ad0| 41 63 6b 6e 6f 77 6c 65 | 64 67 65 20 72 65 71 75 |Acknowle|dge requ|
|00002ae0| 65 73 74 20 66 6f 72 20 | 45 78 74 45 64 69 74 0d |est for |ExtEdit.|
|00002af0| 0d 48 2b f4 20 20 66 6c | 61 67 73 20 61 72 65 20 |.H+.  fl|ags are |
|00002b00| 6d 6f 64 69 66 69 65 64 | 20 6f 72 20 70 61 73 73 |modified| or pass|
|00002b10| 65 64 20 74 68 72 6f 75 | 67 68 0d 0d 52 26 f4 20 |ed throu|gh..R&. |
|00002b20| 20 63 6f 64 65 20 69 73 | 20 69 6e 74 65 72 6e 61 | code is| interna|
|00002b30| 6c 20 72 65 66 65 72 65 | 6e 63 65 20 63 6f 64 65 |l refere|nce code|
|00002b40| 0d 0d 5c 39 f4 20 20 72 | 65 74 75 72 6e 73 20 6e |..\9.  r|eturns n|
|00002b50| 75 6d 62 65 72 20 6f 66 | 20 66 69 6c 65 20 6f 72 |umber of| file or|
|00002b60| 20 2d 31 20 69 66 20 75 | 6e 61 62 6c 65 20 74 6f | -1 if u|nable to|
|00002b70| 20 61 6c 6c 6f 63 61 74 | 65 0d 0d 66 24 f4 20 62 | allocat|e..f$. b|
|00002b80| 25 20 62 6c 6f 63 6b 20 | 6d 75 73 74 20 72 65 6d |% block |must rem|
|00002b90| 61 69 6e 20 75 6e 61 6c | 74 65 72 65 64 0d 0d 70 |ain unal|tered..p|
|00002ba0| 1f dd a4 65 65 5f 72 65 | 71 75 65 73 74 61 63 6b |...ee_re|questack|
|00002bb0| 28 66 6c 61 67 73 2c 63 | 6f 64 65 29 0d 0d 7a 30 |(flags,c|ode)..z0|
|00002bc0| 6a 6f 62 25 3d 28 62 25 | 21 32 34 29 20 80 20 26 |job%=(b%|!24) . &|
|00002bd0| 46 46 46 46 3a 6e 75 6d | 25 3d a4 65 78 74 65 64 |FFFF:num|%=.exted|
|00002be0| 69 74 5f 68 61 6e 64 6c | 65 6e 75 6d 0d 0d 84 11 |it_handl|enum....|
|00002bf0| e7 20 6e 75 6d 25 3d 2d | 31 8c 3d 2d 31 0d 0d 8e |. num%=-|1.=-1...|
|00002c00| 27 6a 6f 62 25 3d 6a 6f | 62 25 2b 28 28 28 65 78 |'job%=jo|b%+(((ex|
|00002c10| 74 74 6f 70 25 3c 3c 36 | 29 2b 6e 75 6d 25 29 3c |ttop%<<6|)+num%)<|
|00002c20| 3c 31 36 29 0d 0d 98 38 | 65 78 74 68 25 21 28 6e |<16)...8|exth%!(n|
|00002c30| 75 6d 25 2a 31 36 2b 31 | 32 29 3d 63 6f 64 65 2b |um%*16+1|2)=code+|
|00002c40| 28 31 3c 3c 33 31 29 3a | 65 78 74 68 25 21 28 6e |(1<<31):|exth%!(n|
|00002c50| 75 6d 25 2a 31 36 29 3d | 6a 6f 62 25 0d 0d a2 32 |um%*16)=|job%...2|
|00002c60| 65 78 74 68 25 21 28 6e | 75 6d 25 2a 31 36 2b 34 |exth%!(n|um%*16+4|
|00002c70| 29 3d 66 6c 61 67 73 3a | 65 78 74 68 25 21 28 6e |)=flags:|exth%!(n|
|00002c80| 75 6d 25 2a 31 36 2b 38 | 29 3d 62 25 21 34 0d 0d |um%*16+8|)=b%!4..|
|00002c90| ac 32 62 25 21 31 32 3d | 62 25 21 38 3a 62 25 21 |.2b%!12=|b%!8:b%!|
|00002ca0| 31 36 3d 26 34 35 44 38 | 31 3a 62 25 21 32 34 3d |16=&45D8|1:b%!24=|
|00002cb0| 6a 6f 62 25 3a 62 25 21 | 32 38 3d 66 6c 61 67 73 |job%:b%!|28=flags|
|00002cc0| 0d 0d b6 24 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...$.. "|Wimp_Sen|
|00002cd0| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 25 2c |dMessage|",17,b%,|
|00002ce0| 62 25 21 34 0d 0d c0 09 | 3d 6e 75 6d 25 0d 0d ca |b%!4....|=num%...|
|00002cf0| 05 3a 0d 0d d4 43 f4 20 | 46 4e 65 78 74 65 64 69 |.:...C. |FNextedi|
|00002d00| 74 5f 73 61 76 65 6e 61 | 6d 65 20 3a 20 52 65 74 |t_savena|me : Ret|
|00002d10| 75 72 6e 20 61 20 6e 61 | 6d 65 20 6f 66 20 61 20 |urn a na|me of a |
|00002d20| 73 63 72 61 70 20 66 69 | 6c 65 20 74 6f 20 73 61 |scrap fi|le to sa|
|00002d30| 76 65 20 74 6f 0d 0d de | 1a dd a4 65 78 74 65 64 |ve to...|...exted|
|00002d40| 69 74 5f 73 61 76 65 6e | 61 6d 65 28 6e 24 29 0d |it_saven|ame(n$).|
|00002d50| 0d df 27 e7 20 a9 28 6e | 24 29 3e 31 30 20 8c 3d |..'. .(n|$)>10 .=|
|00002d60| 22 3c 57 69 6d 70 24 53 | 63 72 61 70 44 69 72 3e |"<Wimp$S|crapDir>|
|00002d70| 2e 22 2b c3 7e 91 0d 0d | e8 27 ea 20 66 69 6c 65 |."+.~...|.'. file|
|00002d80| 24 3a 66 69 6c 65 24 3d | 22 3c 57 69 6d 70 24 53 |$:file$=|"<Wimp$S|
|00002d90| 63 72 61 70 44 69 72 3e | 2e 22 2b 6e 24 0d 0d f2 |crapDir>|."+n$...|
|00002da0| 1b c8 95 20 a4 66 69 6c | 65 74 79 70 65 28 66 69 |... .fil|etype(fi|
|00002db0| 6c 65 24 29 3c 3e 2d 32 | 0d 0d fc 21 20 66 69 6c |le$)<>-2|...! fil|
|00002dc0| 65 24 3d 22 3c 57 69 6d | 70 24 53 63 72 61 70 44 |e$="<Wim|p$ScrapD|
|00002dd0| 69 72 3e 2e 22 2b c3 7e | 91 0d 0e 06 05 ce 0d 0e |ir>."+.~|........|
|00002de0| 10 0a 3d 66 69 6c 65 24 | 0d 0e 1a 05 3a 0d ff    |..=file$|....:.. |
+--------+-------------------------+-------------------------+--------+--------+