home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-03-29 | 14.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 11 f4 20 3e 21 | 45 64 54 6f 41 73 63 69 |..... >!|EdToAsci|
|00000020| 69 0d 00 1e 34 f4 20 50 | 72 6f 67 72 61 6d 20 20 |i...4. P|rogram |
|00000030| 20 54 6f 20 63 6f 6e 76 | 65 72 74 20 45 44 57 4f | To conv|ert EDWO|
|00000040| 52 44 20 74 6f 20 41 53 | 43 49 49 20 61 6e 64 20 |RD to AS|CII and |
|00000050| 62 61 63 6b 3f 0d 00 28 | 1e 76 65 72 73 69 6f 6e |back?..(|.version|
|00000060| 24 3d 22 31 2e 32 30 20 | 4d 61 72 63 68 20 31 39 |$="1.20 |March 19|
|00000070| 39 32 22 0d 00 32 29 f4 | 20 41 75 74 68 6f 72 20 |92"..2).| Author |
|00000080| 20 20 20 42 6f 62 20 48 | 61 72 64 69 6e 67 20 26 | Bob H|arding &|
|00000090| 20 4a 6f 68 6e 20 52 6f | 67 65 72 73 0d 00 3c 15 | John Ro|gers..<.|
|000000a0| f4 20 50 72 6f 67 72 61 | 6d 20 69 73 20 50 2e 44 |. Progra|m is P.D|
|000000b0| 2e 0d 00 46 49 f4 20 50 | 6c 65 61 73 65 20 75 70 |...FI. P|lease up|
|000000c0| 64 61 74 65 20 74 68 65 | 20 76 65 72 73 69 6f 6e |date the| version|
|000000d0| 20 69 66 20 61 6c 74 65 | 72 65 64 20 61 6e 64 20 | if alte|red and |
|000000e0| 73 65 6e 64 20 61 20 63 | 6f 70 79 20 74 6f 20 74 |send a c|opy to t|
|000000f0| 68 65 20 61 75 74 68 6f | 72 73 0d 00 50 20 f4 20 |he autho|rs..P . |
|00000100| 2b 30 2e 30 31 20 66 6f | 72 20 73 6d 61 6c 6c 20 |+0.01 fo|r small |
|00000110| 61 6c 74 65 72 61 74 69 | 6f 6e 0d 00 5a 55 f4 20 |alterati|on..ZU. |
|00000120| 2b 30 2e 31 20 69 66 20 | 74 68 65 20 70 72 6f 67 |+0.1 if |the prog|
|00000130| 72 61 6d 20 77 69 6c 6c | 20 67 69 76 65 20 64 69 |ram will| give di|
|00000140| 66 66 65 72 65 6e 74 20 | 72 65 73 75 6c 74 73 20 |fferent |results |
|00000150| 6f 72 20 61 70 70 65 61 | 72 20 64 69 66 66 65 72 |or appea|r differ|
|00000160| 65 6e 74 20 74 6f 20 74 | 68 65 20 75 73 65 72 0d |ent to t|he user.|
|00000170| 00 64 47 f4 20 2b 31 20 | 66 6f 72 20 6d 61 6a 6f |.dG. +1 |for majo|
|00000180| 72 20 72 65 77 72 69 74 | 65 20 28 65 76 65 6e 20 |r rewrit|e (even |
|00000190| 69 66 20 74 68 65 20 65 | 66 66 65 63 74 20 74 6f |if the e|ffect to|
|000001a0| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 74 68 65 | the use|r is the|
|000001b0| 20 73 61 6d 65 29 0d 00 | 6e 46 f4 20 59 6f 75 20 | same)..|nF. You |
|000001c0| 73 68 6f 75 6c 64 20 63 | 68 65 63 6b 20 77 69 74 |should c|heck wit|
|000001d0| 68 20 74 68 65 20 61 75 | 74 68 6f 72 20 74 6f 20 |h the au|thor to |
|000001e0| 66 69 6e 64 20 74 68 65 | 20 63 75 72 72 65 6e 74 |find the| current|
|000001f0| 20 76 65 72 73 69 6f 6e | 20 6e 6f 2e 0d 00 78 05 | version| no...x.|
|00000200| 3a 0d 00 82 21 f4 20 46 | 69 72 73 74 20 74 68 65 |:...!. F|irst the|
|00000210| 20 6e 6f 72 6d 61 6c 20 | 65 72 72 6f 72 20 74 72 | normal |error tr|
|00000220| 61 70 0d 00 8c 05 3a 0d | 00 96 0e ee 20 85 20 f2 |ap....:.|.... . .|
|00000230| 65 72 72 6f 72 0d 00 a0 | 05 3a 0d 00 aa 26 f4 20 |error...|.:...&. |
|00000240| 54 68 69 73 20 69 73 20 | 74 68 65 20 52 49 53 43 |This is |the RISC|
|00000250| 20 4f 53 20 73 74 61 72 | 74 69 6e 67 20 62 69 74 | OS star|ting bit|
|00000260| 0d 00 b4 05 3a 0d 00 be | 44 de 20 62 6c 6f 63 6b |....:...|D. block|
|00000270| 25 20 26 35 30 30 2c 20 | 62 6c 6f 63 6b 63 25 20 |% &500, |blockc% |
|00000280| 26 32 30 30 2c 69 62 6c | 6f 63 6b 25 20 26 33 31 |&200,ibl|ock% &31|
|00000290| 30 2c 6d 65 6e 75 25 20 | 26 31 30 30 2c 76 65 72 |0,menu% |&100,ver|
|000002a0| 73 69 6f 6e 25 20 26 32 | 30 0d 00 c8 32 f4 20 70 |sion% &2|0...2. p|
|000002b0| 6c 75 73 20 61 20 66 65 | 77 20 6d 6f 76 65 20 61 |lus a fe|w move a|
|000002c0| 72 65 61 73 20 6f 66 20 | 6d 65 6d 6f 72 79 20 6e |reas of |memory n|
|000002d0| 65 65 64 65 64 20 6c 61 | 74 65 72 0d 00 d2 21 de |eeded la|ter...!.|
|000002e0| 20 66 69 6c 65 74 79 70 | 65 25 20 26 31 30 3a 24 | filetyp|e% &10:$|
|000002f0| 66 69 6c 65 74 79 70 65 | 25 3d 22 22 0d 00 dc 2a |filetype|%=""...*|
|00000300| de 20 66 69 6c 65 6e 61 | 6d 65 25 20 26 31 30 30 |. filena|me% &100|
|00000310| 3a 24 66 69 6c 65 6e 61 | 6d 65 25 3d 22 46 69 6c |:$filena|me%="Fil|
|00000320| 65 6e 61 6d 65 22 0d 00 | e6 28 de 20 73 61 76 65 |ename"..|.(. save|
|00000330| 74 65 78 74 25 20 26 46 | 46 3a 24 73 61 76 65 74 |text% &F|F:$savet|
|00000340| 65 78 74 25 3d 22 43 68 | 61 6e 67 65 64 22 0d 00 |ext%="Ch|anged"..|
|00000350| f0 14 de 20 66 69 6c 65 | 6c 65 6e 67 74 68 25 20 |... file|length% |
|00000360| 31 30 0d 00 fa 37 de 20 | 62 75 66 66 65 72 73 70 |10...7. |buffersp|
|00000370| 61 63 65 25 20 26 37 35 | 30 30 20 20 20 3a f4 20 |ace% &75|00 :. |
|00000380| 41 72 65 61 20 74 6f 20 | 73 74 6f 72 65 20 65 64 |Area to |store ed|
|00000390| 77 6f 72 64 20 66 69 6c | 65 0d 01 04 34 de 20 77 |word fil|e...4. w|
|000003a0| 6f 72 6b 73 70 61 63 65 | 25 20 26 37 35 30 30 20 |orkspace|% &7500 |
|000003b0| 20 20 20 20 3a f4 20 41 | 72 65 61 20 74 6f 20 64 | :. A|rea to d|
|000003c0| 6f 20 74 68 65 20 77 6f | 72 6b 20 69 6e 0d 01 0e |o the wo|rk in...|
|000003d0| 12 24 62 6c 6f 63 6b 25 | 3d 22 54 41 53 4b 22 0d |.$block%|="TASK".|
|000003e0| 01 18 41 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |..A.. "W|imp_Init|
|000003f0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 62 6c 6f |ialise",|200,!blo|
|00000400| 63 6b 25 2c 22 45 64 54 | 6f 41 73 63 69 69 22 20 |ck%,"EdT|oAscii" |
|00000410| b8 20 76 65 72 73 69 6f | 6e 25 2c 74 61 73 6b 25 |. versio|n%,task%|
|00000420| 0d 01 22 05 3a 0d 01 2c | 4a f4 20 54 68 61 74 20 |..".:..,|J. That |
|00000430| 6a 75 73 74 20 74 65 6c | 73 20 74 68 65 20 57 49 |just tel|s the WI|
|00000440| 4d 50 20 74 68 61 74 20 | 74 68 69 73 20 69 73 20 |MP that |this is |
|00000450| 61 20 74 61 73 6b 20 66 | 6f 72 20 52 49 53 43 20 |a task f|or RISC |
|00000460| 4f 53 20 28 4e 6f 74 20 | 41 72 74 68 75 72 29 0d |OS (Not |Arthur).|
|00000470| 01 36 05 3a 0d 01 40 23 | f4 20 4e 6f 77 20 74 6f |.6.:..@#|. Now to|
|00000480| 20 67 65 74 20 74 68 65 | 20 54 65 6d 70 6c 61 74 | get the| Templat|
|00000490| 65 73 20 66 69 6c 65 0d | 01 4a 04 0d 01 54 37 c8 |es file.|.J...T7.|
|000004a0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|000004b0| 6c 61 74 65 22 2c 2c 22 | 3c 45 64 54 6f 41 73 63 |late",,"|<EdToAsc|
|000004c0| 69 69 24 44 69 72 3e 2e | 54 65 6d 70 6c 61 74 65 |ii$Dir>.|Template|
|000004d0| 73 22 0d 01 5e 04 0d 01 | 68 05 3a 0d 01 72 29 f4 |s"..^...|h.:..r).|
|000004e0| 20 54 68 69 73 20 6e 65 | 78 74 20 62 69 74 20 74 | This ne|xt bit t|
|000004f0| 61 6b 65 73 20 73 6f 6d | 65 20 65 78 70 6c 61 69 |akes som|e explai|
|00000500| 6e 69 6e 67 0d 01 7c 2a | f4 20 62 6c 6f 63 6b 25 |ning..|*|. block%|
|00000510| 20 69 73 20 6a 75 73 74 | 20 73 6f 6d 65 20 6d 65 | is just| some me|
|00000520| 6d 6f 72 79 20 73 6f 6d | 65 77 68 65 72 65 0d 01 |mory som|ewhere..|
|00000530| 86 43 f4 20 69 62 6c 6f | 63 6b 25 20 69 73 20 74 |.C. iblo|ck% is t|
|00000540| 68 65 20 73 74 61 72 74 | 20 61 64 64 72 65 73 73 |he start| address|
|00000550| 20 6f 66 20 73 6f 6d 65 | 20 6d 65 6d 6f 72 79 20 | of some| memory |
|00000560| 66 6f 72 20 74 68 65 20 | 69 63 6f 6e 20 69 6e 66 |for the |icon inf|
|00000570| 6f 0d 01 90 38 f4 20 69 | 62 6c 6f 63 6b 2b 26 32 |o...8. i|block+&2|
|00000580| 30 30 20 69 73 20 74 68 | 65 20 65 6e 64 20 61 64 |00 is th|e end ad|
|00000590| 64 72 65 73 73 20 6f 66 | 20 74 68 65 20 61 62 6f |dress of| the abo|
|000005a0| 76 65 20 6d 65 6d 6f 72 | 79 0d 01 9a 3c f4 20 62 |ve memor|y...<. b|
|000005b0| 6c 6f 63 6b 25 20 6d 75 | 73 74 20 62 65 20 62 69 |lock% mu|st be bi|
|000005c0| 67 20 65 6e 6f 75 67 68 | 20 66 6f 72 20 61 6c 6c |g enough| for all|
|000005d0| 20 74 68 65 20 69 6e 66 | 6f 20 28 73 65 65 20 62 | the inf|o (see b|
|000005e0| 65 6c 6f 77 29 0d 01 a4 | 20 f4 20 4e 4f 54 45 20 |elow)...| . NOTE |
|000005f0| 38 38 20 62 79 74 65 73 | 20 66 6f 72 20 61 20 77 |88 bytes| for a w|
|00000600| 69 6e 64 6f 77 0d 01 ae | 21 f4 20 50 4c 55 53 20 |indow...|!. PLUS |
|00000610| 33 32 20 62 79 74 65 73 | 20 66 6f 72 20 65 61 63 |32 bytes| for eac|
|00000620| 68 20 49 43 4f 4e 0d 01 | b8 45 f4 20 50 4c 55 53 |h ICON..|.E. PLUS|
|00000630| 20 72 6f 6f 6d 20 66 6f | 72 20 61 6e 79 20 69 6e | room fo|r any in|
|00000640| 64 69 72 65 63 74 65 64 | 20 69 6e 66 6f 20 28 54 |directed| info (T|
|00000650| 65 78 74 20 6c 6f 6e 67 | 65 72 20 74 68 61 6e 20 |ext long|er than |
|00000660| 31 32 20 6c 65 74 74 65 | 72 73 29 0d 01 c2 04 0d |12 lette|rs).....|
|00000670| 01 cc 4d c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..M.. "W|imp_Load|
|00000680| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|00000690| 25 2c 69 62 6c 6f 63 6b | 25 2c 69 62 6c 6f 63 6b |%,iblock|%,iblock|
|000006a0| 25 2b 26 33 30 30 2c 2d | 31 2c 22 49 6e 66 6f 22 |%+&300,-|1,"Info"|
|000006b0| 2c 30 20 b8 20 69 62 6c | 6f 63 6b 25 0d 01 d6 10 |,0 . ibl|ock%....|
|000006c0| 62 6c 6f 63 6b 25 21 32 | 34 3d 2d 31 0d 01 e0 35 |block%!2|4=-1...5|
|000006d0| f4 20 61 20 6c 69 74 74 | 6c 65 20 62 69 74 20 74 |. a litt|le bit t|
|000006e0| 6f 20 70 75 74 20 76 65 | 72 73 69 6f 6e 24 20 69 |o put ve|rsion$ i|
|000006f0| 6e 20 74 68 65 20 69 6e | 66 6f 20 77 69 6e 64 6f |n the in|fo windo|
|00000700| 77 0d 01 ea 1f 24 62 6c | 6f 63 6b 25 21 28 38 38 |w....$bl|ock%!(88|
|00000710| 2b 39 36 2b 32 30 29 3d | 76 65 72 73 69 6f 6e 24 |+96+20)=|version$|
|00000720| 0d 01 f4 31 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...1.. "|Wimp_Cre|
|00000730| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |ateWindo|w",,bloc|
|00000740| 6b 25 20 b8 20 49 6e 66 | 6f 57 48 61 6e 64 6c 65 |k% . Inf|oWHandle|
|00000750| 25 0d 01 fe 1f f4 20 6e | 6f 77 20 6c 6f 61 64 20 |%..... n|ow load |
|00000760| 74 68 65 20 66 66 66 20 | 73 61 76 65 20 62 6f 78 |the fff |save box|
|00000770| 0d 02 08 50 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...P.. "|Wimp_Loa|
|00000780| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 62 6c 6f 63 |dTemplat|e",,bloc|
|00000790| 6b 25 2c 69 62 6c 6f 63 | 6b 25 2c 69 62 6c 6f 63 |k%,ibloc|k%,ibloc|
|000007a0| 6b 25 2b 26 33 30 30 2c | 2d 31 2c 22 73 61 76 65 |k%+&300,|-1,"save|
|000007b0| 66 66 66 22 2c 30 20 b8 | 20 69 62 6c 6f 63 6b 25 |fff",0 .| iblock%|
|000007c0| 0d 02 12 10 62 6c 6f 63 | 6b 25 21 32 34 3d 2d 31 |....bloc|k%!24=-1|
|000007d0| 0d 02 1c 1f 62 6c 6f 63 | 6b 25 21 28 38 38 2b 36 |....bloc|k%!(88+6|
|000007e0| 34 2b 32 30 29 3d 73 61 | 76 65 74 65 78 74 25 0d |4+20)=sa|vetext%.|
|000007f0| 02 26 33 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.&3.. "W|imp_Crea|
|00000800| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |teWindow|",,block|
|00000810| 25 20 b8 20 73 61 76 65 | 66 66 66 48 61 6e 64 6c |% . save|fffHandl|
|00000820| 65 25 0d 02 30 20 f4 20 | 6e 6f 77 20 6c 6f 61 64 |e%..0 . |now load|
|00000830| 20 74 68 65 20 78 78 78 | 20 20 73 61 76 65 20 62 | the xxx| save b|
|00000840| 6f 78 0d 02 3a 50 c8 99 | 20 22 57 69 6d 70 5f 4c |ox..:P..| "Wimp_L|
|00000850| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000860| 6f 63 6b 25 2c 69 62 6c | 6f 63 6b 25 2c 69 62 6c |ock%,ibl|ock%,ibl|
|00000870| 6f 63 6b 25 2b 26 33 30 | 30 2c 2d 31 2c 22 73 61 |ock%+&30|0,-1,"sa|
|00000880| 76 65 78 78 78 22 2c 30 | 20 b8 20 69 62 6c 6f 63 |vexxx",0| . ibloc|
|00000890| 6b 25 0d 02 44 10 62 6c | 6f 63 6b 25 21 32 34 3d |k%..D.bl|ock%!24=|
|000008a0| 2d 31 0d 02 4e 1f 62 6c | 6f 63 6b 25 21 28 38 38 |-1..N.bl|ock%!(88|
|000008b0| 2b 36 34 2b 32 30 29 3d | 73 61 76 65 74 65 78 74 |+64+20)=|savetext|
|000008c0| 25 0d 02 58 33 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%..X3.. |"Wimp_Cr|
|000008d0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|000008e0| 63 6b 25 20 b8 20 73 61 | 76 65 78 78 78 48 61 6e |ck% . sa|vexxxHan|
|000008f0| 64 6c 65 25 0d 02 62 05 | 3a 0d 02 6c 1e f4 20 63 |dle%..b.|:..l.. c|
|00000900| 6c 6f 73 65 20 74 68 65 | 20 20 54 65 6d 70 6c 61 |lose the| Templa|
|00000910| 74 65 20 66 69 6c 65 0d | 02 76 05 3a 0d 02 80 1b |te file.|.v.:....|
|00000920| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|00000930| 6d 70 6c 61 74 65 22 0d | 02 8a 05 3a 0d 02 94 24 |mplate".|...:...$|
|00000940| f4 20 4e 6f 77 20 74 6f | 20 69 6e 73 74 61 6c 6c |. Now to| install|
|00000950| 20 6f 6e 20 74 68 65 20 | 69 63 6f 6e 20 62 61 72 | on the |icon bar|
|00000960| 0d 02 9e 38 62 6c 6f 63 | 6b 25 21 30 3d 2d 31 20 |...8bloc|k%!0=-1 |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 | | :. |
|00000980| 50 75 74 20 6f 6e 20 72 | 69 67 68 74 20 6f 66 20 |Put on r|ight of |
|00000990| 69 63 6f 6e 20 62 61 72 | 0d 02 a8 2a 62 6c 6f 63 |icon bar|...*bloc|
|000009a0| 6b 25 21 34 3d 30 20 20 | 20 20 20 20 20 20 20 20 |k%!4=0 | |
|000009b0| 20 20 20 20 20 3a f4 20 | 74 6f 70 20 6c 65 66 74 | :. |top left|
|000009c0| 20 78 0d 02 b2 2a 62 6c | 6f 63 6b 25 21 38 3d 30 | x...*bl|ock%!8=0|
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|000009e0| f4 20 74 6f 70 20 6c 65 | 66 74 20 79 0d 02 bc 2d |. top le|ft y...-|
|000009f0| 62 6c 6f 63 6b 25 21 31 | 32 3d 36 38 20 20 20 20 |block%!1|2=68 |
|00000a00| 20 20 20 20 20 20 20 20 | 20 3a f4 20 62 6f 74 74 | | :. bott|
|00000a10| 6f 6d 20 6c 65 66 74 20 | 78 0d 02 c6 2d 62 6c 6f |om left |x...-blo|
|00000a20| 63 6b 25 21 31 36 3d 36 | 38 20 20 20 20 20 20 20 |ck%!16=6|8 |
|00000a30| 20 20 20 20 20 20 3a f4 | 20 62 6f 74 74 6f 6d 20 | :.| bottom |
|00000a40| 6c 65 66 74 20 79 0d 02 | d0 2a 62 6c 6f 63 6b 25 |left y..|.*block%|
|00000a50| 21 32 30 3d 26 33 30 30 | 32 20 20 20 20 20 20 20 |!20=&300|2 |
|00000a60| 20 20 20 3a f4 20 69 63 | 6f 6e 20 66 6c 61 67 73 | :. ic|on flags|
|00000a70| 0d 02 da 44 24 28 62 6c | 6f 63 6b 25 2b 32 34 29 |...D$(bl|ock%+24)|
|00000a80| 3d 22 21 45 64 54 6f 41 | 73 63 69 69 22 20 20 20 |="!EdToA|scii" |
|00000a90| 3a f4 20 6e 61 6d 65 20 | 6f 66 20 73 70 72 69 74 |:. name |of sprit|
|00000aa0| 65 20 69 6e 20 74 68 65 | 20 73 70 72 69 74 65 20 |e in the| sprite |
|00000ab0| 70 6f 6f 6c 0d 02 e4 36 | c8 99 22 57 69 6d 70 5f |pool...6|.."Wimp_|
|00000ac0| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 62 6c 6f |CreateIc|on",,blo|
|00000ad0| 63 6b 25 20 b8 20 69 68 | 61 6e 64 6c 65 25 20 20 |ck% . ih|andle% |
|00000ae0| 20 20 3a f4 20 64 6f 20 | 69 74 0d 02 ee 05 3a 0d | :. do |it....:.|
|00000af0| 02 ef 2d f4 20 6e 6f 77 | 20 63 72 65 61 74 65 20 |..-. now| create |
|00000b00| 74 68 65 20 6d 65 6e 75 | 20 62 75 74 20 64 6f 6e |the menu| but don|
|00000b10| 74 20 75 73 65 20 69 74 | 20 79 65 74 0d 03 02 2f |t use it| yet.../|
|00000b20| f2 64 72 61 77 6d 65 6e | 75 28 6d 65 6e 75 25 2c |.drawmen|u(menu%,|
|00000b30| 22 45 64 54 6f 41 73 63 | 69 69 2c 49 6e 66 6f 2c |"EdToAsc|ii,Info,|
|00000b40| 48 65 6c 70 2c 51 75 69 | 74 22 29 0d 03 0c 44 f4 |Help,Qui|t")...D.|
|00000b50| 20 6e 6f 77 20 74 65 6c | 6c 20 74 68 65 20 6d 65 | now tel|l the me|
|00000b60| 6e 75 20 77 68 65 72 65 | 20 74 6f 20 66 69 6e 64 |nu where| to find|
|00000b70| 20 69 74 73 20 73 75 62 | 6d 65 6e 75 20 69 74 65 | its sub|menu ite|
|00000b80| 6d 20 28 69 6e 66 6f 20 | 77 69 6e 64 6f 77 29 0d |m (info |window).|
|00000b90| 03 16 19 6d 65 6e 75 25 | 21 33 32 3d 49 6e 66 6f |...menu%|!32=Info|
|00000ba0| 57 48 61 6e 64 6c 65 25 | 0d 03 20 1a f4 20 4e 6f |WHandle%|.. .. No|
|00000bb0| 77 20 74 68 65 20 6d 61 | 69 6e 20 70 72 6f 67 72 |w the ma|in progr|
|00000bc0| 61 6d 0d 03 2a 31 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |am..*1**|********|
|00000bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bf0| 2a 2a 2a 0d 03 34 18 ee | 20 85 20 e7 20 a4 77 69 |***..4..| . . .wi|
|00000c00| 6d 70 65 72 72 6f 72 20 | 8c 20 e0 0d 03 3e 2e f4 |mperror |. ...>..|
|00000c10| 20 6e 6f 77 20 74 68 65 | 20 6d 75 6c 74 69 20 74 | now the| multi t|
|00000c20| 61 73 6b 69 6e 67 20 62 | 69 74 20 6f 66 20 74 68 |asking b|it of th|
|00000c30| 65 20 70 72 6f 67 72 61 | 6d 0d 03 48 25 f4 20 59 |e progra|m..H%. Y|
|00000c40| 6f 75 72 20 70 72 6f 67 | 72 61 6d 20 73 68 6f 75 |our prog|ram shou|
|00000c50| 6c 64 20 66 69 74 20 69 | 6e 20 68 65 72 65 0d 03 |ld fit i|n here..|
|00000c60| 52 0b 71 75 69 74 25 3d | a3 0d 03 5c 05 f5 0d 03 |R.quit%=|...\....|
|00000c70| 66 a0 f4 20 6b 65 65 70 | 20 61 73 6b 69 6e 67 20 |f.. keep| asking |
|00000c80| 74 68 65 20 57 49 4d 50 | 20 74 6f 20 6c 6f 6f 6b |the WIMP| to look|
|00000c90| 20 61 74 20 79 6f 75 72 | 20 74 61 73 6b 2c 20 74 | at your| task, t|
|00000ca0| 68 65 20 66 69 72 73 74 | 20 6e 75 6d 62 65 72 73 |he first| numbers|
|00000cb0| 20 65 66 66 65 63 74 69 | 76 65 6c 79 20 73 61 79 | effecti|vely say|
|00000cc0| 20 22 69 67 6e 6f 72 65 | 20 72 65 73 70 6f 6e 73 | "ignore| respons|
|00000cd0| 65 20 34 20 61 6e 64 20 | 35 2c 20 49 20 74 68 69 |e 4 and |5, I thi|
|00000ce0| 6e 6b 20 30 20 69 73 20 | 61 6c 77 61 79 73 20 6d |nk 0 is |always m|
|00000cf0| 61 73 6b 65 64 20 77 68 | 65 6e 20 61 20 6d 61 73 |asked wh|en a mas|
|00000d00| 6b 20 69 73 20 61 73 6b | 65 64 20 66 6f 72 0d 03 |k is ask|ed for..|
|00000d10| 70 33 f4 20 74 68 69 73 | 20 6d 61 73 6b 69 6e 67 |p3. this| masking|
|00000d20| 20 6d 61 6b 65 73 20 74 | 68 65 20 77 68 6f 6c 65 | makes t|he whole|
|00000d30| 20 74 68 69 6e 67 20 72 | 75 6e 20 66 61 73 74 65 | thing r|un faste|
|00000d40| 72 0d 03 7a 33 c8 99 20 | 22 57 69 6d 70 5f 50 6f |r..z3.. |"Wimp_Po|
|00000d50| 6c 6c 22 2c 31 2b 28 31 | 3c 3c 34 29 2b 28 31 3c |ll",1+(1|<<4)+(1<|
|00000d60| 3c 35 29 2c 62 6c 6f 63 | 6b 25 20 b8 20 72 65 61 |<5),bloc|k% . rea|
|00000d70| 73 6f 6e 25 0d 03 84 34 | f4 20 72 65 61 73 6f 6e |son%...4|. reason|
|00000d80| 25 20 77 69 6c 6c 20 68 | 6f 6c 64 20 61 6e 79 20 |% will h|old any |
|00000d90| 72 65 73 70 6f 6e 73 65 | 20 77 69 74 68 69 6e 20 |response| within |
|00000da0| 74 68 65 20 74 61 73 6b | 0d 03 8e 7a f4 20 74 68 |the task|...z. th|
|00000db0| 69 73 20 6e 65 78 74 20 | 62 69 74 20 69 73 20 61 |is next |bit is a|
|00000dc0| 20 62 69 74 20 6c 69 6b | 65 20 61 20 22 49 46 20 | bit lik|e a "IF |
|00000dd0| 54 48 45 4e 22 20 63 6f | 6e 64 69 74 69 6f 6e 20 |THEN" co|ndition |
|00000de0| 62 75 74 20 62 79 20 75 | 73 69 6e 67 20 22 43 41 |but by u|sing "CA|
|00000df0| 53 45 20 4f 46 22 20 74 | 68 65 6e 20 79 6f 75 20 |SE OF" t|hen you |
|00000e00| 63 61 6e 20 74 65 73 74 | 20 66 6f 72 20 73 65 76 |can test| for sev|
|00000e10| 65 72 61 6c 20 74 68 69 | 6e 67 73 20 65 61 73 69 |eral thi|ngs easi|
|00000e20| 6c 79 0d 03 98 10 c8 8e | 20 72 65 61 73 6f 6e 25 |ly......| reason%|
|00000e30| 20 ca 0d 03 a2 44 f4 20 | 73 65 65 20 69 66 20 61 | ....D. |see if a|
|00000e40| 20 77 69 6e 64 6f 77 20 | 72 65 64 72 61 77 20 72 | window |redraw r|
|00000e50| 65 71 75 65 73 74 20 68 | 61 73 20 62 65 65 6e 20 |equest h|as been |
|00000e60| 6d 61 64 65 20 28 6d 6f | 76 69 6e 67 20 61 20 77 |made (mo|ving a w|
|00000e70| 69 6e 64 6f 77 29 0d 03 | ac 24 c9 20 32 3a c8 99 |indow)..|.$. 2:..|
|00000e80| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00000e90| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 03 b6 35 f4 20 |w",,bloc|k%...5. |
|00000ea0| 73 65 65 20 69 66 20 61 | 20 72 65 71 75 65 73 74 |see if a| request|
|00000eb0| 20 74 6f 20 63 6c 6f 73 | 65 20 61 20 77 69 6e 64 | to clos|e a wind|
|00000ec0| 6f 77 20 68 61 73 20 62 | 65 6e 20 6d 61 64 65 0d |ow has b|en made.|
|00000ed0| 03 c0 25 c9 20 33 3a c8 | 99 20 22 57 69 6d 70 5f |..%. 3:.|. "Wimp_|
|00000ee0| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |CloseWin|dow",,bl|
|00000ef0| 6f 63 6b 25 0d 03 ca 2c | f4 20 73 65 65 20 69 66 |ock%...,|. see if|
|00000f00| 20 61 20 6d 6f 75 73 65 | 20 62 75 74 74 6f 6e 20 | a mouse| button |
|00000f10| 68 61 73 20 62 65 65 6e | 20 70 72 65 73 73 65 64 |has been| pressed|
|00000f20| 0d 03 d4 15 c9 20 36 3a | f2 6d 6f 75 73 65 70 72 |..... 6:|.mousepr|
|00000f30| 65 73 73 65 64 0d 03 de | 32 f4 20 69 66 20 73 61 |essed...|2. if sa|
|00000f40| 76 65 20 62 6f 78 20 68 | 61 73 20 62 65 65 6e 20 |ve box h|as been |
|00000f50| 64 72 61 67 67 65 64 20 | 74 6f 20 61 6e 6f 74 68 |dragged |to anoth|
|00000f60| 65 72 20 74 61 73 6b 0d | 03 e8 99 f4 20 57 48 45 |er task.|.... WHE|
|00000f70| 4e 20 37 3a 49 46 20 24 | 66 69 6c 65 74 79 70 65 |N 7:IF $|filetype|
|00000f80| 25 3d 22 46 46 46 22 2b | 43 48 52 24 28 31 33 29 |%="FFF"+|CHR$(13)|
|00000f90| 20 50 52 4f 43 64 72 61 | 67 73 61 76 65 28 22 46 | PROCdra|gsave("F|
|00000fa0| 46 46 22 29 3a 49 46 20 | 24 66 69 6c 65 74 79 70 |FF"):IF |$filetyp|
|00000fb0| 65 25 3d 28 22 78 78 78 | 22 2b 43 48 52 24 28 31 |e%=("xxx|"+CHR$(1|
|00000fc0| 33 29 29 20 50 52 4f 43 | 64 72 61 67 73 61 76 65 |3)) PROC|dragsave|
|00000fd0| 28 22 78 78 78 22 29 20 | 45 4c 53 45 20 45 52 52 |("xxx") |ELSE ERR|
|00000fe0| 4f 52 20 31 2c 22 65 72 | 72 6f 72 20 74 72 79 69 |OR 1,"er|ror tryi|
|00000ff0| 6e 67 20 74 6f 20 73 61 | 76 65 20 66 69 6c 65 22 |ng to sa|ve file"|
|00001000| 0d 03 f2 11 c9 20 37 3a | f2 64 72 61 67 73 61 76 |..... 7:|.dragsav|
|00001010| 65 0d 03 fc 2c f4 20 73 | 65 65 20 69 66 20 61 20 |e...,. s|ee if a |
|00001020| 6b 65 79 62 6f 61 72 64 | 20 6b 65 79 20 68 61 73 |keyboard| key has|
|00001030| 20 62 65 65 6e 20 70 72 | 65 73 73 65 64 0d 04 06 | been pr|essed...|
|00001040| 34 c9 20 38 3a e7 20 ac | 20 a4 6f 75 72 6b 65 79 |4. 8:. .| .ourkey|
|00001050| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 | . .. "W|imp_Proc|
|00001060| 65 73 73 4b 65 79 22 2c | 62 6c 6f 63 6b 25 21 32 |essKey",|block%!2|
|00001070| 34 0d 04 10 38 f4 20 63 | 68 65 63 6b 20 69 66 20 |4...8. c|heck if |
|00001080| 61 20 6d 65 6e 75 20 73 | 65 6c 65 63 74 69 6f 6e |a menu s|election|
|00001090| 20 68 61 73 20 62 65 65 | 6e 20 6d 61 64 65 20 28 | has bee|n made (|
|000010a0| 69 6e 66 6f 20 62 6f 78 | 29 0d 04 1a 13 c9 20 39 |info box|)..... 9|
|000010b0| 3a f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 04 24 30 |:.menuse|lect..$0|
|000010c0| f4 20 72 65 61 73 6f 6e | 20 63 6f 64 65 20 31 37 |. reason| code 17|
|000010d0| 20 2b 20 31 38 20 69 73 | 20 61 62 6f 75 74 20 75 | + 18 is| about u|
|000010e0| 73 65 72 20 6d 65 73 73 | 61 67 65 73 0d 04 2e 18 |ser mess|ages....|
|000010f0| 20 20 20 20 c9 20 31 37 | 2c 31 38 3a f2 72 65 63 | . 17|,18:.rec|
|00001100| 65 69 76 65 0d 04 38 52 | 20 20 20 20 c9 20 31 39 |eive..8R| . 19|
|00001110| 20 3a c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 36 | :.. "OS|_File",6|
|00001120| 2c 62 6c 6f 63 6b 25 2b | 34 34 3a 85 20 32 35 35 |,block%+|44:. 255|
|00001130| 2c 22 44 61 74 61 20 74 | 72 61 6e 73 66 65 72 20 |,"Data t|ransfer |
|00001140| 66 61 69 6c 65 64 3a 20 | 52 65 63 69 65 76 65 72 |failed: |Reciever|
|00001150| 20 64 69 65 64 22 0d 04 | 42 07 20 20 cb 0d 04 4c | died"..|B. ...L|
|00001160| 0b fd 20 71 75 69 74 25 | 0d 04 56 0e f2 63 6c 6f |.. quit%|..V..clo|
|00001170| 73 65 64 6f 77 6e 0d 04 | 60 05 e0 0d 04 6a 36 2a |sedown..|`....j6*|
|00001180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011b0| 2a 0d 04 74 10 dd f2 6f | 70 65 6e 77 69 6e 64 6f |*..t...o|penwindo|
|000011c0| 77 0d 04 7e 05 e1 0d 04 | 88 05 3a 0d 04 92 0b dd |w..~....|..:.....|
|000011d0| f2 65 72 72 6f 72 0d 04 | 9c 09 ee 20 85 20 87 0d |.error..|... . ..|
|000011e0| 04 a6 0e ff 28 22 43 4c | 4f 53 45 22 29 0d 04 b0 |....("CL|OSE")...|
|000011f0| 18 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 53 |... "Hou|rglass_S|
|00001200| 6d 61 73 68 22 0d 04 ba | 0d 21 62 6c 6f 63 6b 25 |mash"...|.!block%|
|00001210| 3d 9f 0d 04 c4 34 24 28 | 62 6c 6f 63 6b 25 2b 34 |=....4$(|block%+4|
|00001220| 29 3d f6 24 2b 22 20 28 | 69 6e 74 65 72 6e 61 6c |)=.$+" (|internal|
|00001230| 20 65 72 6f 72 20 63 6f | 64 65 20 22 2b c3 9e 2b | eror co|de "+..+|
|00001240| 22 29 22 2b bd 30 0d 04 | ce 2e c8 99 20 22 57 69 |")"+.0..|.... "Wi|
|00001250| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00001260| 62 6c 6f 63 6b 25 2c 31 | 2c 22 45 64 54 6f 41 73 |block%,1|,"EdToAs|
|00001270| 63 69 69 22 0d 04 d8 05 | e1 0d 04 e2 05 3a 0d 04 |cii"....|.....:..|
|00001280| ec 0f dd a4 77 69 6d 70 | 65 72 72 6f 72 0d 04 f6 |....wimp|error...|
|00001290| 0e ff 28 22 43 4c 4f 53 | 45 22 29 0d 05 00 18 c8 |..("CLOS|E").....|
|000012a0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 53 6d 61 |. "Hourg|lass_Sma|
|000012b0| 73 68 22 0d 05 0a 0d 21 | 62 6c 6f 63 6b 25 3d 9f |sh"....!|block%=.|
|000012c0| 0d 05 14 38 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |...8$(bl|ock%+4)=|
|000012d0| f6 24 20 2b 22 20 28 69 | 6e 74 65 72 6e 61 6c 20 |.$ +" (i|nternal |
|000012e0| 65 72 72 6f 72 20 63 6f | 64 65 20 22 2b c3 9e 2b |error co|de "+..+|
|000012f0| 22 29 22 2b bd 28 30 29 | 0d 05 1e 3a c8 99 20 22 |")"+.(0)|...:.. "|
|00001300| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00001310| 22 2c 62 6c 6f 63 6b 25 | 2c 33 2c 22 45 64 54 6f |",block%|,3,"EdTo|
|00001320| 41 73 63 69 69 22 20 b8 | 2c 72 65 73 70 6f 6e 73 |Ascii" .|,respons|
|00001330| 65 25 0d 05 28 27 e7 20 | 72 65 73 70 6f 6e 73 65 |e%..('. |response|
|00001340| 25 3d 32 20 8c 20 f2 63 | 6c 6f 73 65 64 6f 77 6e |%=2 . .c|losedown|
|00001350| 20 3a 3d b9 20 8b 20 3d | a3 0d 05 32 05 3a 0d 05 | :=. . =|...2.:..|
|00001360| 3c 0f dd f2 63 6c 6f 73 | 65 64 6f 77 6e 0d 05 46 |<...clos|edown..F|
|00001370| 12 24 62 6c 6f 63 6b 25 | 3d 22 54 41 53 4b 22 0d |.$block%|="TASK".|
|00001380| 05 50 25 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |.P%.. "W|imp_Clos|
|00001390| 65 44 6f 77 6e 22 2c 74 | 61 73 6b 25 2c 21 62 6c |eDown",t|ask%,!bl|
|000013a0| 6f 63 6b 25 0d 05 5a 05 | e1 0d 05 64 05 3a 0d 05 |ock%..Z.|...d.:..|
|000013b0| 6e 12 dd f2 6d 6f 75 73 | 65 70 72 65 73 73 65 64 |n...mous|epressed|
|000013c0| 0d 05 78 4b f4 20 67 65 | 74 20 74 68 65 20 78 20 |..xK. ge|t the x |
|000013d0| 61 6e 64 20 79 20 63 6f | 2d 6f 72 64 73 20 6f 66 |and y co|-ords of|
|000013e0| 20 74 68 65 20 6d 6f 75 | 73 65 20 70 6f 73 69 74 | the mou|se posit|
|000013f0| 69 6f 6e 20 66 6f 72 20 | 75 73 65 20 62 79 20 50 |ion for |use by P|
|00001400| 52 4f 43 73 68 6f 77 6d | 65 6e 75 0d 05 82 1b 78 |ROCshowm|enu....x|
|00001410| 25 3d 62 6c 6f 63 6b 25 | 21 30 3a 79 25 3d 62 6c |%=block%|!0:y%=bl|
|00001420| 6f 63 6b 25 21 34 0d 05 | 8c 3b f4 20 74 6f 20 68 |ock%!4..|.;. to h|
|00001430| 61 76 65 20 67 6f 74 20 | 74 68 69 73 20 66 61 72 |ave got |this far|
|00001440| 20 74 68 65 20 6d 6f 75 | 73 65 20 6d 75 73 74 20 | the mou|se must |
|00001450| 68 61 76 65 20 62 65 65 | 6e 20 63 6c 69 63 6b 65 |have bee|n clicke|
|00001460| 64 0d 05 96 2d f4 20 62 | 6c 6f 63 6b 25 21 38 20 |d...-. b|lock%!8 |
|00001470| 67 69 76 65 73 20 74 68 | 65 20 6d 6f 75 73 65 20 |gives th|e mouse |
|00001480| 62 75 74 74 6f 6e 20 70 | 72 65 73 73 65 64 0d 05 |button p|ressed..|
|00001490| a0 70 f4 20 62 6c 6f 63 | 6b 25 21 31 32 20 54 65 |.p. bloc|k%!12 Te|
|000014a0| 6c 6c 73 20 75 73 20 77 | 68 69 63 68 20 77 69 6e |lls us w|hich win|
|000014b0| 64 6f 77 20 74 68 65 20 | 6d 6f 75 73 65 20 77 61 |dow the |mouse wa|
|000014c0| 73 20 69 6e 20 77 68 65 | 6e 20 70 72 65 73 73 65 |s in whe|n presse|
|000014d0| 64 20 6f 72 20 2d 32 20 | 69 66 20 63 6c 69 63 6b |d or -2 |if click|
|000014e0| 65 64 20 6f 6e 20 6f 75 | 72 20 74 61 73 6b 20 6f |ed on ou|r task o|
|000014f0| 6e 20 74 68 65 20 69 63 | 6f 6e 20 62 61 72 0d 05 |n the ic|on bar..|
|00001500| aa 4d e7 20 62 6c 6f 63 | 6b 25 21 31 32 3d 2d 32 |.M. bloc|k%!12=-2|
|00001510| 20 80 20 62 6c 6f 63 6b | 25 21 38 3d 32 20 20 8c | . block|%!8=2 .|
|00001520| 20 f2 73 68 6f 77 6d 65 | 6e 75 28 6d 65 6e 75 25 | .showme|nu(menu%|
|00001530| 2c 78 25 2c 79 25 2c b9 | 2c 33 29 20 3a f4 20 6d |,x%,y%,.|,3) :. m|
|00001540| 65 6e 75 20 70 72 65 73 | 73 65 64 0d 05 b4 2a e7 |enu pres|sed...*.|
|00001550| 20 62 6c 6f 63 6b 25 21 | 31 32 3d 2d 32 20 80 20 | block%!|12=-2 . |
|00001560| 62 6c 6f 63 6b 25 21 38 | 3d 31 20 8c 20 f2 72 75 |block%!8|=1 . .ru|
|00001570| 6e 68 65 6c 70 0d 05 be | 2a e7 20 62 6c 6f 63 6b |nhelp...|*. block|
|00001580| 25 21 31 32 3d 2d 32 20 | 80 20 62 6c 6f 63 6b 25 |%!12=-2 |. block%|
|00001590| 21 38 3d 34 20 8c 20 f2 | 72 75 6e 68 65 6c 70 0d |!8=4 . .|runhelp.|
|000015a0| 05 c8 0a c8 8e 20 b9 20 | ca 0d 05 d2 39 c9 20 62 |..... . |....9. b|
|000015b0| 6c 6f 63 6b 25 21 31 32 | 3d 73 61 76 65 66 66 66 |lock%!12|=savefff|
|000015c0| 48 61 6e 64 6c 65 25 20 | 84 20 62 6c 6f 63 6b 25 |Handle% |. block%|
|000015d0| 21 31 32 3d 73 61 76 65 | 78 78 78 48 61 6e 64 6c |!12=save|xxxHandl|
|000015e0| 65 25 0d 05 dc 25 e7 20 | 62 6c 6f 63 6b 25 21 31 |e%...%. |block%!1|
|000015f0| 36 3d 33 3a f2 64 72 61 | 67 62 6f 78 28 62 6c 6f |6=3:.dra|gbox(blo|
|00001600| 63 6b 25 21 31 32 29 0d | 05 e6 17 e7 20 62 6c 6f |ck%!12).|.... blo|
|00001610| 63 6b 25 21 31 36 3d 30 | 3a f2 73 61 76 65 0d 05 |ck%!16=0|:.save..|
|00001620| f0 05 cd 0d 05 fa 05 cb | 0d 06 04 05 e1 0d 06 0e |........|........|
|00001630| 05 3a 0d 06 18 18 dd f2 | 64 72 61 77 6d 65 6e 75 |.:......|drawmenu|
|00001640| 28 6d 25 2c 6d 65 6e 75 | 24 29 0d 06 22 23 f4 20 |(m%,menu|$).."#. |
|00001650| 74 68 69 73 20 77 69 6c | 6c 20 64 72 61 77 20 61 |this wil|l draw a|
|00001660| 20 6d 65 6e 75 20 66 6f | 72 20 79 6f 75 0d 06 2c | menu fo|r you..,|
|00001670| 3a 6d 65 6e 75 25 3f 31 | 32 3d 37 20 20 20 20 20 |:menu%?1|2=7 |
|00001680| 20 20 20 3a f4 20 54 69 | 74 6c 65 20 66 6f 72 65 | :. Ti|tle fore|
|00001690| 67 72 6f 75 6e 64 20 61 | 6e 64 20 66 72 61 6d 65 |ground a|nd frame|
|000016a0| 20 63 6f 6c 6f 75 72 0d | 06 36 29 6d 65 6e 75 25 | colour.|.6)menu%|
|000016b0| 3f 31 33 3d 32 20 20 20 | 20 20 20 20 20 3a f4 20 |?13=2 | :. |
|000016c0| 54 69 74 6c 65 20 62 61 | 63 6b 67 72 6f 75 6e 64 |Title ba|ckground|
|000016d0| 0d 06 40 37 6d 65 6e 75 | 25 3f 31 34 3d 37 20 20 |..@7menu|%?14=7 |
|000016e0| 20 20 20 20 20 20 3a f4 | 20 4d 65 6e 75 20 77 6f | :.| Menu wo|
|000016f0| 72 6b 73 70 61 63 65 20 | 66 27 67 72 6f 75 6e 64 |rkspace |f'ground|
|00001700| 20 63 6f 6c 6f 75 72 0d | 06 4a 37 6d 65 6e 75 25 | colour.|.J7menu%|
|00001710| 3f 31 35 3d 30 20 20 20 | 20 20 20 20 20 3a f4 20 |?15=0 | :. |
|00001720| 4d 65 6e 75 20 77 6f 72 | 6b 73 70 61 63 65 20 62 |Menu wor|kspace b|
|00001730| 27 67 72 6f 75 6e 64 20 | 63 6f 6c 6f 75 72 0d 06 |'ground |colour..|
|00001740| 54 23 6d 65 6e 75 25 21 | 31 36 3d 31 34 30 20 20 |T#menu%!|16=140 |
|00001750| 20 20 20 20 3a f4 20 4d | 65 6e 75 20 77 69 64 74 | :. M|enu widt|
|00001760| 68 0d 06 5e 46 6d 65 6e | 75 25 21 32 30 3d 34 34 |h..^Fmen|u%!20=44|
|00001770| 20 20 20 20 20 20 20 3a | f4 20 68 65 69 67 68 74 | :|. height|
|00001780| 20 6f 66 20 65 61 63 68 | 20 65 6e 74 72 79 20 28 | of each| entry (|
|00001790| 34 34 20 72 65 63 6f 6d | 65 6e 64 65 64 20 62 79 |44 recom|ended by|
|000017a0| 20 61 63 6f 72 6e 29 0d | 06 68 33 6d 65 6e 75 25 | acorn).|.h3menu%|
|000017b0| 21 32 34 3d 30 20 20 20 | 20 20 20 20 20 3a f4 20 |!24=0 | :. |
|000017c0| 76 65 72 74 69 63 61 6c | 20 67 61 70 20 62 65 74 |vertical| gap bet|
|000017d0| 77 65 65 6e 20 69 74 65 | 6d 73 0d 06 72 2c 70 74 |ween ite|ms..r,pt|
|000017e0| 72 25 3d 6d 65 6e 75 25 | 2b 32 38 20 20 20 20 20 |r%=menu%|+28 |
|000017f0| 3a f4 20 70 6f 69 6e 74 | 20 74 6f 20 6d 65 6e 75 |:. point| to menu|
|00001800| 20 69 74 65 6d 73 0d 06 | 7c 20 24 6d 65 6e 75 25 | items..|| $menu%|
|00001810| 3d c0 6d 65 6e 75 24 2c | a7 6d 65 6e 75 24 2c 22 |=.menu$,|.menu$,"|
|00001820| 2c 22 29 2d 31 29 0d 06 | 86 0e 6d 65 6e 75 24 2b |,")-1)..|..menu$+|
|00001830| 3d 22 2c 22 0d 06 90 0e | 65 6e 74 72 69 65 73 25 |=","....|entries%|
|00001840| 3d 30 0d 06 9a 10 c8 95 | 20 6d 65 6e 75 24 3c 3e |=0......| menu$<>|
|00001850| 22 22 0d 06 a4 1f 6d 65 | 6e 75 24 3d c1 6d 65 6e |""....me|nu$=.men|
|00001860| 75 24 2c a7 6d 65 6e 75 | 24 2c 22 2c 22 29 2b 31 |u$,.menu|$,",")+1|
|00001870| 29 0d 06 ae 11 e7 20 6d | 65 6e 75 24 3c 3e 22 22 |)..... m|enu$<>""|
|00001880| 20 8c 0d 06 b8 0b 21 70 | 74 72 25 3d 30 0d 06 c2 | .....!p|tr%=0...|
|00001890| 0d 70 74 72 25 21 34 3d | 2d 31 0d 06 cc 13 70 74 |.ptr%!4=|-1....pt|
|000018a0| 72 25 21 38 3d 26 37 30 | 30 30 30 32 31 0d 06 d6 |r%!8=&70|00021...|
|000018b0| 24 24 28 70 74 72 25 2b | 31 32 29 3d c0 6d 65 6e |$$(ptr%+|12)=.men|
|000018c0| 75 24 2c a7 6d 65 6e 75 | 24 2c 22 2c 22 29 2d 31 |u$,.menu|$,",")-1|
|000018d0| 29 0d 06 e0 0c 70 74 72 | 25 2b 3d 32 34 0d 06 ea |)....ptr|%+=24...|
|000018e0| 0f 65 6e 74 72 69 65 73 | 25 2b 3d 31 0d 06 f4 05 |.entries|%+=1....|
|000018f0| cd 0d 06 fe 05 ce 0d 07 | 08 33 70 74 72 25 21 2d |........|.3ptr%!-|
|00001900| 32 34 3d 70 74 72 25 21 | 2d 32 34 20 84 20 26 38 |24=ptr%!|-24 . &8|
|00001910| 30 20 20 20 20 3a f4 20 | 6d 61 72 6b 20 69 74 65 |0 :. |mark ite|
|00001920| 6d 20 61 73 20 6c 61 73 | 74 0d 07 12 05 e1 0d 07 |m as las|t.......|
|00001930| 1c 05 3a 0d 07 26 2f dd | f2 73 68 6f 77 6d 65 6e |..:..&/.|.showmen|
|00001940| 75 28 6d 65 6e 75 25 2c | 78 25 2c 79 25 2c 6f 6e |u(menu%,|x%,y%,on|
|00001950| 69 63 6f 6e 62 61 72 25 | 2c 65 6e 74 72 69 65 73 |iconbar%|,entries|
|00001960| 25 29 0d 07 30 35 e7 20 | 6f 6e 69 63 6f 6e 62 61 |%)..05. |oniconba|
|00001970| 72 25 20 8c 20 79 70 6f | 73 25 3d 39 36 2b 65 6e |r% . ypo|s%=96+en|
|00001980| 74 72 69 65 73 25 2a 34 | 34 20 8b 20 79 70 6f 73 |tries%*4|4 . ypos|
|00001990| 25 3d 79 25 2b 32 30 0d | 07 3a 2a c8 99 22 57 69 |%=y%+20.|.:*.."Wi|
|000019a0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|000019b0| 6d 65 6e 75 25 2c 78 25 | 2d 36 34 2c 79 70 6f 73 |menu%,x%|-64,ypos|
|000019c0| 25 0d 07 44 05 e1 0d 07 | 4e 05 3a 0d 07 58 10 dd |%..D....|N.:..X..|
|000019d0| f2 6d 65 6e 75 73 65 6c | 65 63 74 0d 07 62 14 63 |.menusel|ect..b.c|
|000019e0| 68 6f 69 63 65 25 3d 62 | 6c 6f 63 6b 25 21 30 0d |hoice%=b|lock%!0.|
|000019f0| 07 6c 10 c8 8e 20 63 68 | 6f 69 63 65 25 20 ca 0d |.l... ch|oice% ..|
|00001a00| 07 76 10 c9 20 31 3a f2 | 72 75 6e 68 65 6c 70 0d |.v.. 1:.|runhelp.|
|00001a10| 07 80 0f c9 20 32 3a 71 | 75 69 74 25 3d b9 0d 07 |.... 2:q|uit%=...|
|00001a20| 8a 05 cb 0d 07 94 05 e1 | 0d 07 9e 05 3a 0d 07 a8 |........|....:...|
|00001a30| 0d dd f2 72 75 6e 68 65 | 6c 70 0d 07 b2 26 48 65 |...runhe|lp...&He|
|00001a40| 6c 70 24 3d 22 3c 45 64 | 54 6f 41 73 63 69 69 24 |lp$="<Ed|ToAscii$|
|00001a50| 44 69 72 3e 2e 21 48 65 | 6c 70 49 6d 61 67 65 22 |Dir>.!He|lpImage"|
|00001a60| 0d 07 bc 14 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |......"H|ourglass|
|00001a70| 5f 4f 6e 22 0d 07 c6 23 | c8 99 22 57 69 6d 70 5f |_On"...#|.."Wimp_|
|00001a80| 53 74 61 72 74 54 61 73 | 6b 22 2c 22 52 75 6e 20 |StartTas|k","Run |
|00001a90| 22 2b 48 65 6c 70 24 0d | 07 d0 05 e1 0d 07 da 05 |"+Help$.|........|
|00001aa0| 3a 0d 07 e4 0c dd a4 6f | 75 72 6b 65 79 0d 07 ee |:......o|urkey...|
|00001ab0| 0d ea 20 72 65 74 75 72 | 6e 25 0d 07 f8 0a 6f 75 |.. retur|n%....ou|
|00001ac0| 72 73 3d a3 0d 08 02 3e | e7 20 21 62 6c 6f 63 6b |rs=....>|. !block|
|00001ad0| 25 3d 73 61 76 65 66 66 | 66 48 61 6e 64 6c 65 25 |%=saveff|fHandle%|
|00001ae0| 20 84 20 21 62 6c 6f 63 | 6b 25 3d 73 61 76 65 78 | . !bloc|k%=savex|
|00001af0| 78 78 48 61 6e 64 6c 65 | 25 20 8c 20 6f 75 72 73 |xxHandle|% . ours|
|00001b00| 3d b9 0d 08 0c 21 72 65 | 74 75 72 6e 25 3d 28 6f |=....!re|turn%=(o|
|00001b10| 75 72 73 20 80 20 62 6c | 6f 63 6b 25 21 32 34 3d |urs . bl|ock%!24=|
|00001b20| 31 33 29 0d 08 16 1a e7 | 20 72 65 74 75 72 6e 25 |13).....| return%|
|00001b30| 20 8c 20 f2 71 75 69 63 | 6b 73 61 76 65 0d 08 20 | . .quic|ksave.. |
|00001b40| 0c 3d 72 65 74 75 72 6e | 25 0d 08 2a 05 3a 0d 08 |.=return|%..*.:..|
|00001b50| 34 0d dd f2 72 65 63 65 | 69 76 65 0d 08 3e 32 f4 |4...rece|ive..>2.|
|00001b60| 20 74 68 69 73 20 70 72 | 6f 63 20 72 65 63 69 65 | this pr|oc recie|
|00001b70| 76 65 73 20 6d 65 73 73 | 61 67 65 73 20 66 72 6f |ves mess|ages fro|
|00001b80| 6d 20 6f 74 68 65 72 20 | 74 61 73 6b 73 0d 08 48 |m other |tasks..H|
|00001b90| 12 c8 8e 20 62 6c 6f 63 | 6b 25 21 31 36 20 ca 0d |... bloc|k%!16 ..|
|00001ba0| 08 52 28 f4 20 69 66 20 | 6f 74 68 65 72 20 74 61 |.R(. if |other ta|
|00001bb0| 73 6b 73 20 61 73 6b 20 | 66 6f 72 20 61 20 63 6c |sks ask |for a cl|
|00001bc0| 6f 73 65 64 6f 77 6e 0d | 08 5c 0f c9 20 30 3a 71 |osedown.|.\.. 0:q|
|00001bd0| 75 69 74 25 3d b9 0d 08 | 66 1b f4 20 41 63 6b 6e |uit%=...|f.. Ackn|
|00001be0| 6f 77 6c 65 64 67 65 20 | 64 61 74 61 20 73 61 76 |owledge |data sav|
|00001bf0| 65 0d 08 70 1d c9 20 32 | 3a f2 64 61 74 61 73 61 |e..p.. 2|:.datasa|
|00001c00| 76 65 28 24 66 69 6c 65 | 74 79 70 65 25 29 0d 08 |ve($file|type%)..|
|00001c10| 7a 43 f4 20 61 63 6b 6e | 6f 77 6c 65 64 67 65 20 |zC. ackn|owledge |
|00001c20| 72 65 63 69 65 70 74 20 | 6f 66 20 64 61 74 61 2c |reciept |of data,|
|00001c30| 20 67 65 74 20 69 6e 66 | 6f 2c 20 63 6f 6e 76 65 | get inf|o, conve|
|00001c40| 72 74 20 61 6e 64 20 73 | 74 61 72 74 20 73 61 76 |rt and s|tart sav|
|00001c50| 65 0d 08 84 3e f4 20 66 | 69 72 73 74 20 63 6f 70 |e...>. f|irst cop|
|00001c60| 79 20 74 68 65 20 6d 65 | 6d 6f 72 79 20 62 6c 6f |y the me|mory blo|
|00001c70| 63 6b 20 73 6f 20 74 68 | 61 74 20 69 74 20 63 61 |ck so th|at it ca|
|00001c80| 6e 20 62 65 20 75 73 65 | 64 20 74 77 69 63 65 0d |n be use|d twice.|
|00001c90| 08 8e 33 c9 20 33 3a f2 | 63 6f 70 79 28 62 6c 6f |..3. 3:.|copy(blo|
|00001ca0| 63 6b 25 2c 62 6c 6f 63 | 6b 63 25 29 3a f2 67 65 |ck%,bloc|kc%):.ge|
|00001cb0| 74 66 69 6c 65 69 6e 66 | 6f 3a f2 6c 6f 61 64 61 |tfileinf|o:.loada|
|00001cc0| 63 6b 0d 08 98 05 cb 0d | 08 a2 05 e1 0d 08 ac 05 |ck......|........|
|00001cd0| 3a 0d 08 b6 13 dd f2 63 | 6f 70 79 28 62 31 25 2c |:......c|opy(b1%,|
|00001ce0| 62 32 25 29 0d 08 c0 08 | ea 20 78 25 0d 08 ca 11 |b2%)....|. x%....|
|00001cf0| e3 20 78 25 3d 30 20 b8 | 20 26 32 30 30 0d 08 d4 |. x%=0 .| &200...|
|00001d00| 11 62 32 25 3f 78 25 3d | 62 31 25 3f 78 25 0d 08 |.b2%?x%=|b1%?x%..|
|00001d10| de 05 ed 0d 08 e8 05 e1 | 0d 08 f2 05 3a 0d 08 fc |........|....:...|
|00001d20| 11 dd f2 67 65 74 66 69 | 6c 65 69 6e 66 6f 0d 09 |...getfi|leinfo..|
|00001d30| 06 15 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.... "Ho|urglass_|
|00001d40| 4f 6e 22 0d 09 10 4a f4 | 20 66 69 72 73 74 20 62 |On"...J.| first b|
|00001d50| 69 74 20 69 73 6e 27 74 | 20 72 65 61 6c 6c 79 20 |it isn't| really |
|00001d60| 6e 65 63 65 73 73 61 72 | 79 20 6a 75 73 74 20 6d |necessar|y just m|
|00001d70| 61 6b 65 73 20 74 68 65 | 20 65 72 72 6f 72 20 6d |akes the| error m|
|00001d80| 65 73 73 61 67 65 20 62 | 65 74 74 65 72 0d 09 1a |essage b|etter...|
|00001d90| 15 74 79 70 65 24 3d 22 | 22 3a 6e 61 6d 65 24 3d |.type$="|":name$=|
|00001da0| 22 22 0d 09 24 0a c8 8e | 20 b9 20 ca 0d 09 2e 4c |""..$...| . ....L|
|00001db0| c9 20 62 6c 6f 63 6b 25 | 21 34 30 3d 26 31 30 30 |. block%|!40=&100|
|00001dc0| 30 3a 74 79 70 65 24 3d | 22 44 69 72 65 63 74 6f |0:type$=|"Directo|
|00001dd0| 72 79 22 3a 85 20 31 2c | 22 43 61 6e 6e 6f 74 20 |ry":. 1,|"Cannot |
|00001de0| 63 6f 6e 76 65 72 74 20 | 61 20 64 69 72 65 63 74 |convert |a direct|
|00001df0| 6f 72 79 22 3a cb 3a e1 | 0d 09 38 51 c9 20 62 6c |ory":.:.|..8Q. bl|
|00001e00| 6f 63 6b 25 21 34 30 3d | 26 32 30 30 30 3a 74 79 |ock%!40=|&2000:ty|
|00001e10| 70 65 24 3d 22 41 70 70 | 6c 69 63 61 74 69 6f 6e |pe$="App|lication|
|00001e20| 22 3a 85 20 31 2c 22 43 | 61 6e 6e 6f 74 20 63 6f |":. 1,"C|annot co|
|00001e30| 6e 76 65 72 74 20 61 6e | 20 61 70 70 6c 69 63 61 |nvert an| applica|
|00001e40| 74 69 6f 6e 22 3a cb 3a | e1 0d 09 42 21 c9 20 62 |tion":.:|...B!. b|
|00001e50| 6c 6f 63 6b 25 21 34 30 | 3d 26 33 30 30 30 3a 74 |lock%!40|=&3000:t|
|00001e60| 79 70 65 24 3d 22 78 78 | 78 22 0d 09 4c 20 c9 20 |ype$="xx|x"..L . |
|00001e70| 62 6c 6f 63 6b 25 21 34 | 30 3d 26 46 46 46 3a 74 |block%!4|0=&FFF:t|
|00001e80| 79 70 65 24 3d 22 66 66 | 66 22 0d 09 56 20 c9 20 |ype$="ff|f"..V . |
|00001e90| 62 6c 6f 63 6b 25 21 34 | 30 3d 26 46 46 44 3a 74 |block%!4|0=&FFD:t|
|00001ea0| 79 70 65 24 3d 22 78 78 | 78 22 0d 09 60 17 7f 20 |ype$="xx|x"..`.. |
|00001eb0| 74 79 70 65 24 3d c3 7e | 62 6c 6f 63 6b 25 21 34 |type$=.~|block%!4|
|00001ec0| 30 0d 09 6a 21 e7 20 74 | 79 70 65 24 3c 3e 22 78 |0..j!. t|ype$<>"x|
|00001ed0| 78 78 22 20 80 20 74 79 | 70 65 24 3c 3e 22 66 66 |xx" . ty|pe$<>"ff|
|00001ee0| 66 22 0d 09 74 36 85 20 | 31 2c 22 6f 6e 6c 79 20 |f"..t6. |1,"only |
|00001ef0| 45 44 57 4f 52 44 20 61 | 6e 64 20 54 65 78 74 20 |EDWORD a|nd Text |
|00001f00| 66 69 6c 65 73 20 6d 61 | 79 20 62 65 20 75 73 65 |files ma|y be use|
|00001f10| 64 22 3a cd 3a cb 3a e1 | 0d 09 7e 05 cd 0d 09 88 |d":.:.:.|..~.....|
|00001f20| 05 cb 0d 09 92 14 24 66 | 69 6c 65 74 79 70 65 25 |......$f|iletype%|
|00001f30| 3d 74 79 70 65 24 0d 09 | 9c 0d 61 25 3d 30 3a 62 |=type$..|..a%=0:b|
|00001f40| 25 3d 30 0d 09 a6 05 f5 | 0d 09 b0 15 62 25 3d 62 |%=0.....|....b%=b|
|00001f50| 6c 6f 63 6b 25 3f 28 34 | 34 2b 61 25 29 0d 09 ba |lock%?(4|4+a%)...|
|00001f60| 15 6e 61 6d 65 24 3d 6e | 61 6d 65 24 2b bd 28 62 |.name$=n|ame$+.(b|
|00001f70| 25 29 0d 09 c4 0b 61 25 | 3d 61 25 2b 31 0d 09 ce |%)....a%|=a%+1...|
|00001f80| 0a fd 20 62 25 3d 30 0d | 09 d8 15 6e 61 6d 65 24 |.. b%=0.|...name$|
|00001f90| 3d 6e 61 6d 65 24 2b bd | 28 31 33 29 0d 09 e2 27 |=name$+.|(13)...'|
|00001fa0| e7 20 74 79 70 65 24 3d | 22 78 78 78 22 20 f2 63 |. type$=|"xxx" .c|
|00001fb0| 6f 6e 76 65 72 74 74 6f | 74 65 78 74 28 6e 61 6d |onvertto|text(nam|
|00001fc0| 65 24 29 0d 09 ec 29 e7 | 20 74 79 70 65 24 3d 22 |e$)...).| type$="|
|00001fd0| 66 66 66 22 20 f2 63 6f | 6e 76 65 72 74 74 6f 65 |fff" .co|nverttoe|
|00001fe0| 64 77 6f 72 64 28 6e 61 | 6d 65 24 29 0d 09 f6 2a |dword(na|me$)...*|
|00001ff0| e7 20 74 79 70 65 24 3d | 22 66 66 66 22 20 8c 20 |. type$=|"fff" . |
|00002000| 21 62 6c 6f 63 6b 25 3d | 73 61 76 65 78 78 78 48 |!block%=|savexxxH|
|00002010| 61 6e 64 6c 65 25 0d 0a | 00 2a e7 20 74 79 70 65 |andle%..|.*. type|
|00002020| 24 3d 22 78 78 78 22 20 | 8c 20 21 62 6c 6f 63 6b |$="xxx" |. !block|
|00002030| 25 3d 73 61 76 65 66 66 | 66 48 61 6e 64 6c 65 25 |%=saveff|fHandle%|
|00002040| 0d 0a 0a 18 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |...... "|Hourglas|
|00002050| 73 5f 53 6d 61 73 68 22 | 0d 0a 14 24 c8 99 20 22 |s_Smash"|...$.. "|
|00002060| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00002070| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 0a 1e 20 |ate",,bl|ock%... |
|00002080| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00002090| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 25 0d 0a 28 05 |dow",,bl|ock%..(.|
|000020a0| e1 0d 0a 32 05 3a 0d 0a | 3c 0d dd f2 6c 6f 61 64 |...2.:..|<...load|
|000020b0| 61 63 6b 0d 0a 46 57 f4 | 20 73 65 6e 64 20 61 63 |ack..FW.| send ac|
|000020c0| 6b 6e 6f 77 6c 65 64 67 | 65 6d 65 6e 74 20 74 68 |knowledg|ement th|
|000020d0| 61 74 20 74 68 69 73 20 | 61 70 70 20 68 61 73 20 |at this |app has |
|000020e0| 72 65 63 69 65 76 65 64 | 20 74 68 65 20 69 6e 66 |recieved| the inf|
|000020f0| 6f 20 6f 66 20 61 20 66 | 69 6c 65 20 64 72 6f 70 |o of a f|ile drop|
|00002100| 70 65 64 20 6f 6e 20 69 | 74 2e 0d 0a 50 24 f4 20 |ped on i|t...P$. |
|00002110| 67 65 74 20 6d 65 6d 6f | 72 79 20 62 6c 6f 63 6b |get memo|ry block|
|00002120| 20 73 65 74 20 63 6f 72 | 72 65 63 74 6c 79 0d 0a | set cor|rectly..|
|00002130| 5a 19 f2 63 6f 70 79 28 | 62 6c 6f 63 6b 63 25 2c |Z..copy(|blockc%,|
|00002140| 62 6c 6f 63 6b 25 29 0d | 0a 64 16 62 6c 6f 63 6b |block%).|.d.block|
|00002150| 25 21 31 32 3d 62 6c 6f | 63 6b 25 21 38 0d 0a 6e |%!12=blo|ck%!8..n|
|00002160| 0f 62 6c 6f 63 6b 25 21 | 31 36 3d 34 0d 0a 78 2b |.block%!|16=4..x+|
|00002170| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|00002180| 61 67 65 22 2c 31 37 2c | 62 6c 6f 63 6b 25 2c 62 |age",17,|block%,b|
|00002190| 6c 6f 63 6b 25 21 34 0d | 0a 82 05 e1 0d 0a 8c 05 |lock%!4.|........|
|000021a0| 3a 0d 0a 96 16 dd f2 64 | 72 61 67 62 6f 78 28 68 |:......d|ragbox(h|
|000021b0| 61 6e 64 6c 65 25 29 0d | 0a a0 13 21 62 6c 6f 63 |andle%).|...!bloc|
|000021c0| 6b 25 3d 68 61 6e 64 6c | 65 25 0d 0a aa 24 c8 99 |k%=handl|e%...$..|
|000021d0| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|000021e0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0a |State",,|block%..|
|000021f0| b4 1a 6f 78 25 3d 62 6c | 6f 63 6b 25 21 34 2d 62 |..ox%=bl|ock%!4-b|
|00002200| 6c 6f 63 6b 25 21 32 30 | 0d 0a be 1b 6f 79 25 3d |lock%!20|....oy%=|
|00002210| 62 6c 6f 63 6b 25 21 31 | 36 2d 62 6c 6f 63 6b 25 |block%!1|6-block%|
|00002220| 21 32 34 0d 0a c8 0e 62 | 6c 6f 63 6b 25 21 34 3d |!24....b|lock%!4=|
|00002230| 33 0d 0a d2 22 c8 99 20 | 22 57 69 6d 70 5f 47 65 |3...".. |"Wimp_Ge|
|00002240| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00002250| 63 6b 25 0d 0a dc 13 21 | 62 6c 6f 63 6b 25 3d 68 |ck%....!|block%=h|
|00002260| 61 6e 64 6c 65 25 0d 0a | e6 0e 62 6c 6f 63 6b 25 |andle%..|..block%|
|00002270| 21 34 3d 35 0d 0a f0 19 | 62 6c 6f 63 6b 25 21 38 |!4=5....|block%!8|
|00002280| 3d 6f 78 25 2b 62 6c 6f | 63 6b 25 21 38 0d 0a fa |=ox%+blo|ck%!8...|
|00002290| 1b 62 6c 6f 63 6b 25 21 | 31 32 3d 6f 79 25 2b 62 |.block%!|12=oy%+b|
|000022a0| 6c 6f 63 6b 25 21 31 32 | 0d 0b 04 1b 62 6c 6f 63 |lock%!12|....bloc|
|000022b0| 6b 25 21 31 36 3d 6f 78 | 25 2b 62 6c 6f 63 6b 25 |k%!16=ox|%+block%|
|000022c0| 21 31 36 0d 0b 0e 1b 62 | 6c 6f 63 6b 25 21 32 30 |!16....b|lock%!20|
|000022d0| 3d 6f 79 25 2b 62 6c 6f | 63 6b 25 21 32 30 0d 0b |=oy%+blo|ck%!20..|
|000022e0| 18 1b 62 6c 6f 63 6b 25 | 21 32 34 3d 30 3a 62 6c |..block%|!24=0:bl|
|000022f0| 6f 63 6b 25 21 32 38 3d | 30 0d 0b 22 17 62 6c 6f |ock%!28=|0..".blo|
|00002300| 63 6b 25 21 33 32 3d 26 | 37 66 66 66 66 66 66 66 |ck%!32=&|7fffffff|
|00002310| 0d 0b 2c 17 62 6c 6f 63 | 6b 25 21 33 36 3d 26 37 |..,.bloc|k%!36=&7|
|00002320| 66 66 66 66 66 66 66 0d | 0b 36 1d c8 99 20 22 57 |fffffff.|.6... "W|
|00002330| 69 6d 70 5f 44 72 61 67 | 42 6f 78 22 2c 2c 62 6c |imp_Drag|Box",,bl|
|00002340| 6f 63 6b 25 0d 0b 40 05 | e1 0d 0b 4a 05 3a 0d 0b |ock%..@.|...J.:..|
|00002350| 54 05 3a 0d 0b 5e 12 dd | f2 73 74 61 72 74 63 6f |T.:..^..|.startco|
|00002360| 6e 76 65 72 74 0d 0b 68 | 04 0d 0b 72 05 e1 0d 0b |nvert..h|...r....|
|00002370| 7c 05 3a 0d 0b 86 0a dd | f2 73 61 76 65 0d 0b 90 ||.:.....|.save...|
|00002380| 73 e7 20 24 66 69 6c 65 | 74 79 70 65 25 3d 22 78 |s. $file|type%="x|
|00002390| 78 78 22 20 8c 20 c8 99 | 20 22 4f 53 5f 46 69 6c |xx" . ..| "OS_Fil|
|000023a0| 65 22 2c 31 30 2c 24 73 | 61 76 65 74 65 78 74 25 |e",10,$s|avetext%|
|000023b0| 2c 26 46 46 46 2c 2c 77 | 6f 72 6b 73 70 61 63 65 |,&FFF,,w|orkspace|
|000023c0| 25 2c 77 6f 72 6b 73 70 | 61 63 65 25 2b 21 66 69 |%,worksp|ace%+!fi|
|000023d0| 6c 65 6c 65 6e 67 74 68 | 25 3a f2 63 6c 6f 73 65 |lelength|%:.close|
|000023e0| 28 73 61 76 65 66 66 66 | 48 61 6e 64 6c 65 25 29 |(savefff|Handle%)|
|000023f0| 0d 0b 9a 61 e7 20 24 66 | 69 6c 65 74 79 70 65 25 |...a. $f|iletype%|
|00002400| 3d 22 66 66 66 22 20 8c | 20 ff 28 22 53 41 56 45 |="fff" .| .("SAVE|
|00002410| 20 22 2b 24 73 61 76 65 | 74 65 78 74 25 2b 22 20 | "+$save|text%+" |
|00002420| 22 2b c3 7e 28 77 6f 72 | 6b 73 70 61 63 65 25 29 |"+.~(wor|kspace%)|
|00002430| 2b 22 20 2b 22 2b c3 7e | 28 21 66 69 6c 65 6c 65 |+" +"+.~|(!filele|
|00002440| 6e 67 74 68 25 29 2b 22 | 20 46 46 46 42 20 30 22 |ngth%)+"| FFFB 0"|
|00002450| 29 0d 0b a4 05 e1 0d 0b | ae 05 3a 0d 0b b8 14 dd |).......|..:.....|
|00002460| f2 63 6c 6f 73 65 28 77 | 69 6e 64 6f 77 25 29 0d |.close(w|indow%).|
|00002470| 0b c2 13 21 62 6c 6f 63 | 6b 25 3d 77 69 6e 64 6f |...!bloc|k%=windo|
|00002480| 77 25 0d 0b cc 21 c8 99 | 20 22 57 69 6d 70 5f 43 |w%...!..| "Wimp_C|
|00002490| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |loseWind|ow",,blo|
|000024a0| 63 6b 25 0d 0b d6 05 e1 | 0d 0b e0 05 3a 0d 0b ea |ck%.....|....:...|
|000024b0| 0f dd f2 71 75 69 63 6b | 73 61 76 65 0d 0b f4 18 |...quick|save....|
|000024c0| e7 20 a7 24 73 61 76 65 | 74 65 78 74 25 2c 22 2e |. .$save|text%,".|
|000024d0| 22 29 20 8c 0d 0b fe 09 | f2 73 61 76 65 0d 0c 08 |") .....|.save...|
|000024e0| 05 cc 0d 0c 12 3c 24 62 | 6c 6f 63 6b 25 3d 22 20 |.....<$b|lock%=" |
|000024f0| 20 54 6f 20 73 61 76 65 | 2c 20 64 72 61 67 20 74 | To save|, drag t|
|00002500| 68 65 20 69 63 6f 6e 20 | 74 6f 20 61 20 64 69 72 |he icon |to a dir|
|00002510| 65 63 74 6f 72 79 20 76 | 69 65 77 65 72 22 0d 0c |ectory v|iewer"..|
|00002520| 1c 2e c8 99 20 22 57 69 | 70 6d 5f 52 65 70 6f 72 |.... "Wi|pm_Repor|
|00002530| 74 45 72 72 6f 72 22 2e | 62 6c 6f 63 6b 25 2c 31 |tError".|block%,1|
|00002540| 2c 22 45 64 54 6f 41 73 | 63 69 69 22 0d 0c 26 05 |,"EdToAs|cii"..&.|
|00002550| cd 0d 0c 30 05 e1 0d 0c | 3a 05 3a 0d 0c 44 0e dd |...0....|:.:..D..|
|00002560| f2 64 72 61 67 73 61 76 | 65 0d 0c 4e 30 f4 20 73 |.dragsav|e..N0. s|
|00002570| 65 6e 64 20 64 61 74 61 | 5f 73 61 76 65 20 6d 65 |end data|_save me|
|00002580| 73 73 61 67 65 20 74 6f | 20 64 65 73 74 69 6e 61 |ssage to| destina|
|00002590| 74 69 6f 6e 20 74 61 73 | 6b 0d 0c 58 24 c8 99 20 |tion tas|k..X$.. |
|000025a0| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|000025b0| 49 6e 66 6f 22 2c 2c 62 | 6c 6f 63 6b 25 0d 0c 62 |Info",,b|lock%..b|
|000025c0| 30 62 6c 6f 63 6b 25 21 | 32 30 3d 62 6c 6f 63 6b |0block%!|20=block|
|000025d0| 25 21 31 32 20 20 20 20 | 20 3a f4 20 64 65 73 2e |%!12 | :. des.|
|000025e0| 77 69 6e 64 6f 77 20 68 | 61 6e 64 6c 65 0d 0c 6c |window h|andle..l|
|000025f0| 2e 62 6c 6f 63 6b 25 21 | 32 34 3d 62 6c 6f 63 6b |.block%!|24=block|
|00002600| 25 21 31 36 20 20 20 20 | 20 3a f4 20 44 65 73 2e |%!16 | :. Des.|
|00002610| 69 63 6f 6e 20 68 61 6e | 64 6c 65 0d 0c 76 27 62 |icon han|dle..v'b|
|00002620| 6c 6f 63 6b 25 21 32 38 | 3d 62 6c 6f 63 6b 25 21 |lock%!28|=block%!|
|00002630| 30 20 20 20 20 20 20 3a | f4 20 78 20 63 6f 2d 6f |0 :|. x co-o|
|00002640| 72 64 0d 0c 80 27 62 6c | 6f 63 6b 25 21 33 32 3d |rd...'bl|ock%!32=|
|00002650| 62 6c 6f 63 6b 25 21 34 | 20 20 20 20 20 20 3a f4 |block%!4| :.|
|00002660| 20 79 20 63 6f 2d 6f 72 | 64 0d 0c 8a 2c 62 6c 6f | y co-or|d...,blo|
|00002670| 63 6b 25 21 33 36 3d 66 | 69 6c 65 6c 65 6e 67 74 |ck%!36=f|ilelengt|
|00002680| 68 25 20 20 20 3a f4 20 | 61 70 70 72 6f 78 20 6c |h% :. |approx l|
|00002690| 65 6e 67 74 68 0d 0c 94 | 2a 62 6c 6f 63 6b 25 21 |ength...|*block%!|
|000026a0| 30 3d 36 34 20 20 20 20 | 20 20 20 20 20 20 20 20 |0=64 | |
|000026b0| 20 3a f4 20 42 6c 6f 63 | 6b 4c 65 6e 67 74 68 0d | :. Bloc|kLength.|
|000026c0| 0c 9e 2c 62 6c 6f 63 6b | 25 21 31 32 3d 30 20 20 |..,block|%!12=0 |
|000026d0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 6f 75 | | :. ou|
|000026e0| 72 20 72 65 66 65 72 61 | 6e 63 65 0d 0c a8 32 62 |r refera|nce...2b|
|000026f0| 6c 6f 63 6b 25 21 31 36 | 3d 31 20 20 20 20 20 20 |lock%!16|=1 |
|00002700| 20 20 20 20 20 20 20 3a | f4 20 6d 65 73 73 61 67 | :|. messag|
|00002710| 65 20 61 63 74 69 6f 6e | 3d 73 61 76 65 0d 0c b2 |e action|=save...|
|00002720| 08 54 25 3d a3 0d 0c bc | 2a e7 20 24 66 69 6c 65 |.T%=....|*. $file|
|00002730| 74 79 70 65 25 3d 22 66 | 66 66 22 20 62 6c 6f 63 |type%="f|ff" bloc|
|00002740| 6b 25 21 34 30 3d 26 46 | 46 46 3a 54 25 3d b9 0d |k%!40=&F|FF:T%=..|
|00002750| 0c c6 2a e7 20 24 66 69 | 6c 65 74 79 70 65 25 3d |..*. $fi|letype%=|
|00002760| 22 78 78 78 22 20 62 6c | 6f 63 6b 25 21 34 30 3d |"xxx" bl|ock%!40=|
|00002770| 26 46 46 44 3a 54 25 3d | b9 0d 0c d0 22 e7 20 54 |&FFD:T%=|....". T|
|00002780| 25 3d a3 3a 20 85 20 31 | 2c 22 46 49 4c 45 54 59 |%=.: . 1|,"FILETY|
|00002790| 50 45 20 45 52 52 4f 52 | 22 3a e0 0d 0c da 19 f4 |PE ERROR|":......|
|000027a0| 20 62 6c 6f 63 6b 25 21 | 34 30 3d 20 66 69 6c 65 | block%!|40= file|
|000027b0| 74 79 70 65 0d 0c e4 29 | 24 28 62 6c 6f 63 6b 25 |type...)|$(block%|
|000027c0| 2b 34 34 29 3d a4 67 65 | 74 6c 65 61 66 6e 61 6d |+44)=.ge|tleafnam|
|000027d0| 65 28 24 73 61 76 65 74 | 65 78 74 25 29 0d 0c ee |e($savet|ext%)...|
|000027e0| 20 f4 20 6e 6f 77 20 73 | 65 6e 64 20 64 61 74 61 | . now s|end data|
|000027f0| 5f 73 61 76 65 20 6d 65 | 73 73 61 67 65 0d 0c f8 |_save me|ssage...|
|00002800| 37 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |7.. "Wim|p_SendMe|
|00002810| 73 73 61 67 65 22 2c 31 | 37 2c 62 6c 6f 63 6b 25 |ssage",1|7,block%|
|00002820| 2c 62 6c 6f 63 6b 25 21 | 32 30 2c 62 6c 6f 63 6b |,block%!|20,block|
|00002830| 25 21 32 34 0d 0d 02 05 | e1 0d 0d 0c 05 3a 0d 0d |%!24....|.....:..|
|00002840| 16 18 dd a4 67 65 74 6c | 65 61 66 6e 61 6d 65 28 |....getl|eafname(|
|00002850| 6e 61 6d 65 24 29 0d 0d | 20 12 c8 95 20 a7 6e 61 |name$)..| ... .na|
|00002860| 6d 65 24 2c 22 2e 22 29 | 0d 0d 2a 1f 6e 61 6d 65 |me$,".")|..*.name|
|00002870| 24 3d c1 6e 61 6d 65 24 | 2c a7 6e 61 6d 65 24 2c |$=.name$|,.name$,|
|00002880| 22 2e 22 29 2b 31 29 0d | 0d 34 05 ce 0d 0d 3e 0f |".")+1).|.4....>.|
|00002890| 3d 6e 61 6d 65 24 2b bd | 28 30 29 0d 0d 48 05 3a |=name$+.|(0)..H.:|
|000028a0| 0d 0d 52 13 dd f2 64 61 | 74 61 73 61 76 65 28 74 |..R...da|tasave(t|
|000028b0| 79 24 29 0d 0d 5c 23 f4 | 20 67 65 74 20 66 75 6c |y$)..\#.| get ful|
|000028c0| 6c 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 70 61 |l destin|ation pa|
|000028d0| 74 68 6e 61 6d 65 0d 0d | 66 11 66 69 6e 61 6c 6e |thname..|f.finaln|
|000028e0| 61 6d 65 24 3d 22 22 0d | 0d 70 08 61 25 3d 30 0d |ame$="".|.p.a%=0.|
|000028f0| 0d 7a 15 62 25 3d 62 6c | 6f 63 6b 25 21 28 34 34 |.z.b%=bl|ock%!(44|
|00002900| 2b 61 25 29 0d 0d 84 0c | c8 95 20 62 25 3c 3e 30 |+a%)....|.. b%<>0|
|00002910| 0d 0d 8e 1f 66 69 6e 61 | 6c 6e 61 6d 65 24 3d 66 |....fina|lname$=f|
|00002920| 69 6e 61 6c 6e 61 6d 65 | 24 2b bd 28 62 25 29 0d |inalname|$+.(b%).|
|00002930| 0d 98 0b 61 25 3d 61 25 | 2b 31 0d 0d a2 15 62 25 |...a%=a%|+1....b%|
|00002940| 3d 62 6c 6f 63 6b 25 3f | 28 34 34 2b 61 25 29 0d |=block%?|(44+a%).|
|00002950| 0d ac 05 ce 0d 0d b6 19 | 24 73 61 76 65 74 65 78 |........|$savetex|
|00002960| 74 25 3d 66 69 6e 61 6c | 6e 61 6d 65 24 0d 0d c0 |t%=final|name$...|
|00002970| 09 f2 73 61 76 65 0d 0d | ca 25 f4 20 6f 6e 6c 79 |..save..|.%. only|
|00002980| 20 75 70 64 61 74 65 20 | 6c 65 61 66 20 6e 61 6d | update |leaf nam|
|00002990| 65 20 69 66 20 73 65 63 | 75 72 65 0d 0d d4 2a e7 |e if sec|ure...*.|
|000029a0| 20 62 6c 6f 63 6b 25 21 | 33 36 3e 2d 31 20 8c 20 | block%!|36>-1 . |
|000029b0| 24 73 61 76 65 74 65 78 | 74 25 3d 66 69 6e 61 6c |$savetex|t%=final|
|000029c0| 6e 61 6d 65 24 0d 0d de | 16 62 6c 6f 63 6b 25 21 |name$...|.block%!|
|000029d0| 31 32 3d 62 6c 6f 63 6b | 25 21 38 0d 0d e8 0f 62 |12=block|%!8....b|
|000029e0| 6c 6f 63 6b 25 21 31 36 | 3d 33 0d 0d f2 0f 21 62 |lock%!16|=3....!b|
|000029f0| 6c 6f 63 6b 25 3d 32 35 | 36 0d 0d fc 37 c8 99 20 |lock%=25|6...7.. |
|00002a00| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00002a10| 65 22 2c 31 38 2c 62 6c | 6f 63 6b 25 2c 62 6c 6f |e",18,bl|ock%,blo|
|00002a20| 63 6b 25 21 32 30 2c 62 | 6c 6f 63 6b 25 21 32 34 |ck%!20,b|lock%!24|
|00002a30| 0d 0e 06 05 e1 0d 0e 10 | 05 3a 0d 0e 1a 33 2a 2a |........|.:...3**|
|00002a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0e 24 |********|*****..$|
|00002a70| 1c f4 20 43 6f 6e 76 65 | 72 73 69 6f 6e 20 73 74 |.. Conve|rsion st|
|00002a80| 61 72 74 73 20 68 65 72 | 65 0d 0e 2e 33 2a 2a 2a |arts her|e...3***|
|00002a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0e 38 1a |********|****..8.|
|00002ac0| dd f2 63 6f 6e 76 65 72 | 74 74 6f 74 65 78 74 28 |..conver|ttotext(|
|00002ad0| 66 69 6c 65 24 29 0d 0e | 42 2b f4 20 63 6f 6e 76 |file$)..|B+. conv|
|00002ae0| 65 72 74 73 20 74 68 65 | 6e 20 72 65 74 75 72 6e |erts the|n return|
|00002af0| 73 20 74 68 65 20 66 69 | 6c 65 20 6c 65 6e 67 74 |s the fi|le lengt|
|00002b00| 68 0d 0e 4c 0b ea 20 70 | 25 2c 78 25 0d 0e 56 10 |h..L.. p|%,x%..V.|
|00002b10| 78 25 3d 30 20 3a 64 6f | 6e 65 3d a3 0d 0e 60 28 |x%=0 :do|ne=...`(|
|00002b20| f4 20 43 68 65 63 6b 20 | 74 68 61 74 20 66 69 6c |. Check |that fil|
|00002b30| 65 24 20 69 73 20 61 6e | 20 45 44 57 4f 52 44 20 |e$ is an| EDWORD |
|00002b40| 66 69 6c 65 0d 0e 6a 18 | 73 6f 75 72 63 65 66 69 |file..j.|sourcefi|
|00002b50| 6c 65 25 3d 8e 28 66 69 | 6c 65 24 29 0d 0e 74 50 |le%=.(fi|le$)..tP|
|00002b60| 20 74 65 73 74 25 3d 9a | 23 73 6f 75 72 63 65 66 | test%=.|#sourcef|
|00002b70| 69 6c 65 25 3a e7 20 74 | 65 73 74 25 3c 3e 26 39 |ile%:. t|est%<>&9|
|00002b80| 36 20 8c 20 d9 23 73 6f | 75 72 63 65 66 69 6c 65 |6 . .#so|urcefile|
|00002b90| 25 3a 85 20 31 2c 22 4e | 6f 74 20 61 6e 20 45 44 |%:. 1,"N|ot an ED|
|00002ba0| 57 4f 52 44 20 66 69 6c | 65 22 3a e1 0d 0e 7e 16 |WORD fil|e":...~.|
|00002bb0| 20 f4 20 70 25 3d 20 69 | 74 27 73 20 6c 65 6e 67 | . p%= i|t's leng|
|00002bc0| 74 68 0d 0e 88 16 70 25 | 3d a2 23 28 73 6f 75 72 |th....p%|=.#(sour|
|00002bd0| 63 65 66 69 6c 65 25 29 | 0d 0e 92 11 d9 23 73 6f |cefile%)|.....#so|
|00002be0| 75 72 63 65 66 69 6c 65 | 25 0d 0e 9c 25 f4 20 4c |urcefile|%...%. L|
|00002bf0| 6f 61 64 20 66 69 6c 65 | 24 20 69 6e 74 6f 20 74 |oad file|$ into t|
|00002c00| 68 65 20 62 75 66 66 65 | 72 20 61 72 65 61 0d 0e |he buffe|r area..|
|00002c10| a6 27 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 32 |.'.. "OS|_File",2|
|00002c20| 35 35 2c 66 69 6c 65 24 | 2c 62 75 66 66 65 72 73 |55,file$|,buffers|
|00002c30| 70 61 63 65 25 0d 0e b0 | 3b f4 20 70 6f 69 6e 74 |pace%...|;. point|
|00002c40| 20 74 6f 20 74 68 65 20 | 65 6e 64 20 73 69 6e 63 | to the |end sinc|
|00002c50| 65 20 45 44 57 4f 52 44 | 20 66 69 6c 65 73 20 61 |e EDWORD| files a|
|00002c60| 72 65 20 62 61 63 6b 20 | 74 6f 20 66 72 6f 6e 74 |re back |to front|
|00002c70| 0d 0e ba 18 70 25 3d 62 | 75 66 66 65 72 73 70 61 |....p%=b|ufferspa|
|00002c80| 63 65 25 2b 70 25 2d 31 | 0d 0e c4 3f f4 20 72 65 |ce%+p%-1|...?. re|
|00002c90| 61 64 20 46 4f 52 4d 41 | 54 20 69 6e 66 6f 20 74 |ad FORMA|T info t|
|00002ca0| 68 6f 75 67 68 20 49 20 | 61 6d 20 6e 6f 74 20 75 |hough I |am not u|
|00002cb0| 73 69 6e 67 20 69 74 20 | 69 6e 20 74 68 69 73 20 |sing it |in this |
|00002cc0| 76 65 72 73 69 6f 6e 0d | 0e ce 4a 6c 65 66 74 4d |version.|..JleftM|
|00002cd0| 61 72 67 69 6e 25 3d 3f | 70 25 3a 72 69 67 68 74 |argin%=?|p%:right|
|00002ce0| 4d 61 72 67 69 6e 25 3d | 3f 28 70 25 2d 31 29 3a |Margin%=|?(p%-1):|
|00002cf0| 74 6f 70 4d 61 72 67 69 | 6e 25 3d 3f 28 70 25 2d |topMargi|n%=?(p%-|
|00002d00| 32 29 3a 74 65 6d 70 31 | 25 3d 3f 28 70 25 2d 33 |2):temp1|%=?(p%-3|
|00002d10| 29 0d 0e d8 45 6c 69 6e | 65 53 70 61 63 69 6e 67 |)...Elin|eSpacing|
|00002d20| 25 3d 3f 28 70 25 2d 34 | 29 3a 74 65 6d 70 32 25 |%=?(p%-4|):temp2%|
|00002d30| 3d 3f 28 70 25 2d 35 29 | 3a 74 65 6d 70 33 25 3d |=?(p%-5)|:temp3%=|
|00002d40| 3f 28 70 25 2d 36 29 3a | 74 65 6d 70 34 25 3d 3f |?(p%-6):|temp4%=?|
|00002d50| 28 70 25 2d 37 29 0d 0e | e2 12 74 61 62 25 3d 30 |(p%-7)..|..tab%=0|
|00002d60| 3a 70 25 3d 70 25 2d 37 | 0d 0e ec 2b f4 20 6e 6f |:p%=p%-7|...+. no|
|00002d70| 77 20 77 6f 72 6b 20 62 | 61 63 6b 20 64 65 63 6f |w work b|ack deco|
|00002d80| 64 69 6e 67 20 65 61 63 | 68 20 63 68 61 72 61 63 |ding eac|h charac|
|00002d90| 74 65 72 0d 0e f6 0d f5 | 3a 70 25 3d 70 25 2d 31 |ter.....|:p%=p%-1|
|00002da0| 0d 0f 00 18 62 69 74 25 | 3d 3f 70 25 3a 20 f4 20 |....bit%|=?p%: . |
|00002db0| 67 65 74 20 63 6f 64 65 | 0d 0f 0a 41 e7 20 62 69 |get code|...A. bi|
|00002dc0| 74 25 3e 33 31 20 80 20 | 62 69 74 25 3c 31 32 37 |t%>31 . |bit%<127|
|00002dd0| 20 8c 20 77 6f 72 6b 73 | 70 61 63 65 25 3f 78 25 | . works|pace%?x%|
|00002de0| 3d 62 69 74 25 3a 78 25 | 3d 78 25 2b 31 3a f4 20 |=bit%:x%|=x%+1:. |
|00002df0| 70 72 69 6e 74 61 62 6c | 65 0d 0f 14 3c e7 20 62 |printabl|e...<. b|
|00002e00| 69 74 25 3d 26 39 38 20 | 8c 20 70 25 3d 70 25 2d |it%=&98 |. p%=p%-|
|00002e10| 31 3a 74 61 62 25 3d 3f | 70 25 3a e5 20 8d 44 64 |1:tab%=?|p%:. .Dd|
|00002e20| 4f 3a f4 20 54 61 62 20 | 73 6f 20 72 65 61 64 20 |O:. Tab |so read |
|00002e30| 69 6e 73 65 74 0d 0f 1e | 7a e7 20 62 69 74 25 3d |inset...|z. bit%=|
|00002e40| 26 39 30 3a 77 6f 72 6b | 73 70 61 63 65 25 3f 78 |&90:work|space%?x|
|00002e50| 25 3d 26 30 44 3a 78 25 | 3d 78 25 2b 31 3a e5 20 |%=&0D:x%|=x%+1:. |
|00002e60| 8d 44 64 4f 20 3a f4 20 | 77 6f 72 6b 73 70 61 63 |.DdO :. |workspac|
|00002e70| 65 25 3f 78 25 3d 26 30 | 41 20 55 73 65 20 74 68 |e%?x%=&0|A Use th|
|00002e80| 69 73 20 69 66 20 61 20 | 4c 69 6e 65 46 65 65 64 |is if a |LineFeed|
|00002e90| 20 69 73 20 72 65 71 75 | 69 72 65 64 2e 20 20 20 | is requ|ired. |
|00002ea0| 26 39 30 20 69 73 20 27 | 52 45 54 55 52 4e 27 0d |&90 is '|RETURN'.|
|00002eb0| 0f 28 3e e7 20 62 69 74 | 25 3d 26 39 34 3a f2 63 |.(>. bit|%=&94:.c|
|00002ec0| 65 6e 74 72 65 3a e5 20 | 8d 44 64 4f 3a 20 f4 20 |entre:. |.DdO: . |
|00002ed0| 26 39 34 20 69 73 20 27 | 49 4e 44 45 4e 54 27 20 |&94 is '|INDENT' |
|00002ee0| 73 6f 20 67 65 74 20 61 | 6d 6f 75 6e 74 0d 0f 32 |so get a|mount..2|
|00002ef0| 38 e7 20 62 69 74 25 3d | 26 39 36 3a e5 20 8d 44 |8. bit%=|&96:. .D|
|00002f00| 64 4f 3a f4 20 20 72 65 | 61 63 68 65 64 20 74 68 |dO:. re|ached th|
|00002f10| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 64 6f 63 |e end of| the doc|
|00002f20| 75 6d 65 6e 74 0d 0f 3c | 2e e7 20 62 69 74 25 3d |ument..<|.. bit%=|
|00002f30| 26 39 32 3a f2 67 61 70 | 3a e5 20 8d 44 64 4f 3a |&92:.gap|:. .DdO:|
|00002f40| f4 20 54 41 42 20 73 6f | 20 67 65 74 20 61 6d 6f |. TAB so| get amo|
|00002f50| 75 6e 74 0d 0f 46 36 e7 | 20 62 69 74 25 3e 26 39 |unt..F6.| bit%>&9|
|00002f60| 32 3a e5 20 8d 44 64 4f | 3a f4 20 69 67 6e 6f 72 |2:. .DdO|:. ignor|
|00002f70| 65 20 61 6e 79 20 6f 74 | 68 65 72 20 63 6f 6e 74 |e any ot|her cont|
|00002f80| 72 6f 6c 20 63 6f 64 65 | 73 0d 0f 50 3c f4 20 69 |rol code|s..P<. i|
|00002f90| 74 20 6d 75 73 74 20 6e | 6f 77 20 62 65 20 74 68 |t must n|ow be th|
|00002fa0| 65 20 6c 65 6e 67 74 68 | 20 6f 66 20 61 20 77 6f |e length| of a wo|
|00002fb0| 72 64 20 73 6f 20 67 6f | 20 61 6e 64 20 70 72 69 |rd so go| and pri|
|00002fc0| 6e 74 20 69 74 0d 0f 5a | 09 f2 77 6f 72 64 0d 0f |nt it..Z|..word..|
|00002fd0| 64 05 f4 0d 0f 6e 21 fd | 20 70 25 3c 3d 62 75 66 |d....n!.| p%<=buf|
|00002fe0| 66 65 72 73 70 61 63 65 | 25 20 84 20 62 69 74 25 |ferspace|% . bit%|
|00002ff0| 3d 26 39 36 0d 0f 78 15 | 21 66 69 6c 65 6c 65 6e |=&96..x.|!filelen|
|00003000| 67 74 68 25 3d 78 25 2d | 31 0d 0f 82 05 e1 0d 0f |gth%=x%-|1.......|
|00003010| 8c 05 3a 0d 0f 96 05 3a | 0d 0f a0 05 3a 0d 0f aa |..:....:|....:...|
|00003020| 0e dd f2 63 65 6e 74 72 | 65 3a f5 0d 0f b4 14 70 |...centr|e:.....p|
|00003030| 25 3d 70 25 2d 31 3a 62 | 69 74 25 3d 3f 70 25 0d |%=p%-1:b|it%=?p%.|
|00003040| 0f be 2c e7 20 62 69 74 | 25 3d 26 31 45 20 8c 20 |..,. bit|%=&1E . |
|00003050| 77 6f 72 6b 73 70 61 63 | 65 25 3f 78 25 3d 26 32 |workspac|e%?x%=&2|
|00003060| 30 3a 78 25 3d 78 25 2b | 31 3a e1 0d 0f c8 62 62 |0:x%=x%+|1:....bb|
|00003070| 69 74 25 3d 62 69 74 25 | 20 80 20 26 37 46 3a e7 |it%=bit%| . &7F:.|
|00003080| 20 62 69 74 25 3c 33 32 | 20 84 20 62 69 74 25 3e | bit%<32| . bit%>|
|00003090| 31 32 36 20 8c 20 77 6f | 72 6b 73 70 61 63 65 25 |126 . wo|rkspace%|
|000030a0| 3f 78 25 3d 26 32 30 3a | 78 25 3d 78 25 2b 31 20 |?x%=&20:|x%=x%+1 |
|000030b0| 8b 20 77 6f 72 6b 73 70 | 61 63 65 25 3f 78 25 3d |. worksp|ace%?x%=|
|000030c0| 26 62 69 74 25 3a 78 25 | 3d 78 25 2b 31 0d 0f d2 |&bit%:x%|=x%+1...|
|000030d0| 0b 63 25 3d 63 25 2b 31 | 0d 0f dc 07 fd 20 a3 0d |.c%=c%+1|..... ..|
|000030e0| 0f e6 05 3a 0d 0f f0 09 | dd f2 67 61 70 0d 0f fa |...:....|..gap...|
|000030f0| 14 70 25 3d 70 25 2d 31 | 3a 62 69 74 25 3d 3f 70 |.p%=p%-1|:bit%=?p|
|00003100| 25 0d 10 04 3c e3 20 63 | 6f 75 6e 74 31 25 3d 31 |%...<. c|ount1%=1|
|00003110| 20 b8 20 62 69 74 25 2b | 31 3a 77 6f 72 6b 73 70 | . bit%+|1:worksp|
|00003120| 61 63 65 25 3f 78 25 3d | 26 32 30 3a 78 25 3d 78 |ace%?x%=|&20:x%=x|
|00003130| 25 2b 31 3a ed 20 63 6f | 75 6e 74 31 25 0d 10 0e |%+1:. co|unt1%...|
|00003140| 10 63 25 3d 63 25 2b 62 | 69 74 25 2b 31 0d 10 18 |.c%=c%+b|it%+1...|
|00003150| 05 e1 0d 10 22 05 3a 0d | 10 2c 0a dd f2 77 6f 72 |....".:.|.,...wor|
|00003160| 64 0d 10 36 0b 63 25 3d | 63 25 2b 31 0d 10 40 16 |d..6.c%=|c%+1..@.|
|00003170| e3 20 63 6f 75 6e 74 31 | 25 3d 31 20 b8 20 62 69 |. count1|%=1 . bi|
|00003180| 74 25 0d 10 4a 15 70 25 | 3d 70 25 2d 31 3a 62 69 |t%..J.p%|=p%-1:bi|
|00003190| 74 31 25 3d 3f 70 25 0d | 10 54 2c e7 20 28 62 69 |t1%=?p%.|.T,. (bi|
|000031a0| 74 31 25 20 80 20 26 38 | 30 29 3c 3e 30 20 8c 20 |t1% . &8|0)<>0 . |
|000031b0| 62 69 74 31 25 3d 28 62 | 69 74 31 25 20 80 20 26 |bit1%=(b|it1% . &|
|000031c0| 37 46 29 0d 10 5e 26 e7 | 20 62 69 74 31 25 3c 33 |7F)..^&.| bit1%<3|
|000031d0| 32 20 84 20 62 69 74 31 | 25 3e 31 32 36 20 8c 20 |2 . bit1|%>126 . |
|000031e0| 62 69 74 31 25 3d 26 32 | 30 0d 10 68 27 63 25 3d |bit1%=&2|0..h'c%=|
|000031f0| 63 25 2b 31 3a 77 6f 72 | 6b 73 70 61 63 65 25 3f |c%+1:wor|kspace%?|
|00003200| 78 25 3d 62 69 74 31 25 | 3a 78 25 3d 78 25 2b 31 |x%=bit1%|:x%=x%+1|
|00003210| 0d 10 72 0d ed 20 63 6f | 75 6e 74 31 25 0d 10 7c |..r.. co|unt1%..||
|00003220| 1d 77 6f 72 6b 73 70 61 | 63 65 25 3f 78 25 3d 26 |.workspa|ce%?x%=&|
|00003230| 32 30 3a 78 25 3d 78 25 | 2b 31 0d 10 86 05 e1 0d |20:x%=x%|+1......|
|00003240| 10 90 05 3a 0d 10 9a 09 | dd f2 74 61 62 0d 10 a4 |...:....|..tab...|
|00003250| 1d e3 20 63 6f 75 6e 74 | 31 25 3d 31 20 b8 20 6c |.. count|1%=1 . l|
|00003260| 65 66 74 4d 61 72 67 69 | 6e 25 0d 10 ae 1d 77 6f |eftMargi|n%....wo|
|00003270| 72 6b 73 70 61 63 65 25 | 3f 78 25 3d 26 32 30 3a |rkspace%|?x%=&20:|
|00003280| 78 25 3d 78 25 2b 31 0d | 10 b8 0d ed 20 63 6f 75 |x%=x%+1.|.... cou|
|00003290| 6e 74 31 25 0d 10 c2 17 | 63 25 3d 6c 65 66 74 4d |nt1%....|c%=leftM|
|000032a0| 61 72 67 69 6e 25 2b 74 | 61 62 25 0d 10 cc 05 e1 |argin%+t|ab%.....|
|000032b0| 0d 10 d6 05 3a 0d 10 e0 | 0d dd f2 6e 65 77 6c 69 |....:...|...newli|
|000032c0| 6e 65 0d 10 ea 1e e3 20 | 63 6f 75 6e 74 31 25 3d |ne..... |count1%=|
|000032d0| 31 20 b8 20 6c 69 6e 65 | 53 70 61 63 69 6e 67 25 |1 . line|Spacing%|
|000032e0| 0d 10 f4 39 77 6f 72 6b | 73 70 61 63 65 25 3f 78 |...9work|space%?x|
|000032f0| 25 3d 26 30 44 3a 78 25 | 3d 78 25 2b 31 3a f4 20 |%=&0D:x%|=x%+1:. |
|00003300| 77 6f 72 6b 73 70 61 63 | 65 25 3f 78 25 3d 26 30 |workspac|e%?x%=&0|
|00003310| 41 3a 78 25 3d 78 25 2b | 31 0d 10 fe 0d ed 20 63 |A:x%=x%+|1..... c|
|00003320| 6f 75 6e 74 31 25 0d 11 | 08 08 63 25 3d 30 0d 11 |ount1%..|..c%=0..|
|00003330| 12 05 e1 0d 11 1c 05 3a | 0d 11 26 1e f4 20 20 45 |.......:|..&.. E|
|00003340| 6e 64 20 6f 66 20 43 6f | 6e 76 65 72 74 20 74 6f |nd of Co|nvert to|
|00003350| 20 41 53 43 49 49 0d 11 | 30 42 3a 2a 2a 2a 2a 2a | ASCII..|0B:*****|
|00003360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003390| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 11 3a 05 3a 0d 11 44 |********|..:.:..D|
|000033a0| 05 3a 0d 11 4e 1c dd f2 | 63 6f 6e 76 65 72 74 74 |.:..N...|convertt|
|000033b0| 6f 65 64 77 6f 72 64 28 | 66 69 6c 65 24 29 0d 11 |oedword(|file$)..|
|000033c0| 58 2b f4 20 63 6f 6e 76 | 65 72 74 73 20 74 68 65 |X+. conv|erts the|
|000033d0| 6e 20 72 65 74 75 72 6e | 73 20 74 68 65 20 66 69 |n return|s the fi|
|000033e0| 6c 65 20 6c 65 6e 67 74 | 68 0d 11 62 0b ea 20 70 |le lengt|h..b.. p|
|000033f0| 25 2c 78 25 0d 11 6c 10 | 78 25 3d 30 20 3a 64 6f |%,x%..l.|x%=0 :do|
|00003400| 6e 65 3d a3 0d 11 76 18 | 73 6f 75 72 63 65 66 69 |ne=...v.|sourcefi|
|00003410| 6c 65 25 3d 8e 28 66 69 | 6c 65 24 29 0d 11 80 16 |le%=.(fi|le$)....|
|00003420| 20 f4 20 70 25 3d 20 69 | 74 27 73 20 6c 65 6e 67 | . p%= i|t's leng|
|00003430| 74 68 0d 11 8a 16 70 25 | 3d a2 23 28 73 6f 75 72 |th....p%|=.#(sour|
|00003440| 63 65 66 69 6c 65 25 29 | 0d 11 94 11 d9 23 73 6f |cefile%)|.....#so|
|00003450| 75 72 63 65 66 69 6c 65 | 25 0d 11 9e 25 f4 20 4c |urcefile|%...%. L|
|00003460| 6f 61 64 20 66 69 6c 65 | 24 20 69 6e 74 6f 20 74 |oad file|$ into t|
|00003470| 68 65 20 62 75 66 66 65 | 72 20 61 72 65 61 0d 11 |he buffe|r area..|
|00003480| a8 27 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 32 |.'.. "OS|_File",2|
|00003490| 35 35 2c 66 69 6c 65 24 | 2c 62 75 66 66 65 72 73 |55,file$|,buffers|
|000034a0| 70 61 63 65 25 0d 11 b2 | 3b f4 20 70 6f 69 6e 74 |pace%...|;. point|
|000034b0| 20 74 6f 20 74 68 65 20 | 65 6e 64 20 73 69 6e 63 | to the |end sinc|
|000034c0| 65 20 45 44 57 4f 52 44 | 20 66 69 6c 65 73 20 61 |e EDWORD| files a|
|000034d0| 72 65 20 62 61 63 6b 20 | 74 6f 20 66 72 6f 6e 74 |re back |to front|
|000034e0| 0d 11 bc 18 70 25 3d 62 | 75 66 66 65 72 73 70 61 |....p%=b|ufferspa|
|000034f0| 63 65 25 2b 70 25 2d 31 | 0d 11 c6 32 20 77 6f 72 |ce%+p%-1|...2 wor|
|00003500| 6b 73 70 61 63 65 25 3f | 78 25 3d 26 39 36 3a 78 |kspace%?|x%=&96:x|
|00003510| 25 3d 78 25 2b 31 3a f4 | 20 73 65 74 20 45 44 57 |%=x%+1:.| set EDW|
|00003520| 4f 52 44 20 6d 61 72 6b | 65 72 0d 11 d0 0a 74 61 |ORD mark|er....ta|
|00003530| 62 25 3d 30 0d 11 da 2b | f4 20 6e 6f 77 20 77 6f |b%=0...+|. now wo|
|00003540| 72 6b 20 62 61 63 6b 20 | 64 65 63 6f 64 69 6e 67 |rk back |decoding|
|00003550| 20 65 61 63 68 20 63 68 | 61 72 61 63 74 65 72 0d | each ch|aracter.|
|00003560| 11 e4 0d f5 3a 70 25 3d | 70 25 2d 31 0d 11 ee 18 |....:p%=|p%-1....|
|00003570| 62 69 74 25 3d 3f 70 25 | 3a 20 f4 20 67 65 74 20 |bit%=?p%|: . get |
|00003580| 63 6f 64 65 0d 11 f8 41 | e7 20 62 69 74 25 3e 33 |code...A|. bit%>3|
|00003590| 32 20 80 20 62 69 74 25 | 3c 31 32 37 20 8c 20 77 |2 . bit%|<127 . w|
|000035a0| 6f 72 6b 73 70 61 63 65 | 25 3f 78 25 3d 62 69 74 |orkspace|%?x%=bit|
|000035b0| 25 3a 78 25 3d 78 25 2b | 31 3a f4 20 70 72 69 6e |%:x%=x%+|1:. prin|
|000035c0| 74 61 62 6c 65 0d 12 02 | 1e e7 20 62 69 74 25 3d |table...|.. bit%=|
|000035d0| 26 32 30 20 8c 20 f2 73 | 70 61 63 65 3a e5 20 8d |&20 . .s|pace:. .|
|000035e0| 54 56 52 0d 12 0c 43 e7 | 20 62 69 74 25 3d 26 30 |TVR...C.| bit%=&0|
|000035f0| 44 3a 77 6f 72 6b 73 70 | 61 63 65 25 3f 78 25 3d |D:worksp|ace%?x%=|
|00003600| 26 39 30 3a 78 25 3d 78 | 25 2b 31 3a e5 20 8d 54 |&90:x%=x|%+1:. .T|
|00003610| 56 52 20 3a f4 20 20 26 | 39 30 20 69 73 20 27 52 |VR :. &|90 is 'R|
|00003620| 45 54 55 52 4e 27 0d 12 | 16 05 f4 0d 12 20 16 fd |ETURN'..|..... ..|
|00003630| 20 70 25 3c 3d 62 75 66 | 66 65 72 73 70 61 63 65 | p%<=buf|ferspace|
|00003640| 25 0d 12 2a 18 f4 20 69 | 6e 73 65 72 74 20 68 65 |%..*.. i|nsert he|
|00003650| 61 64 65 72 20 69 6e 66 | 6f 0d 12 34 4b 77 6f 72 |ader inf|o..4Kwor|
|00003660| 6b 73 70 61 63 65 25 3f | 78 25 3d 30 3a 78 25 3d |kspace%?|x%=0:x%=|
|00003670| 78 25 2b 31 3a 77 6f 72 | 6b 73 70 61 63 65 25 3f |x%+1:wor|kspace%?|
|00003680| 78 25 3d 30 3a 78 25 3d | 78 25 2b 31 3a 77 6f 72 |x%=0:x%=|x%+1:wor|
|00003690| 6b 73 70 61 63 65 25 3f | 78 25 3d 30 3a 78 25 3d |kspace%?|x%=0:x%=|
|000036a0| 78 25 2b 31 0d 12 3e 4b | 77 6f 72 6b 73 70 61 63 |x%+1..>K|workspac|
|000036b0| 65 25 3f 78 25 3d 31 3a | 78 25 3d 78 25 2b 31 3a |e%?x%=1:|x%=x%+1:|
|000036c0| 77 6f 72 6b 73 70 61 63 | 65 25 3f 78 25 3d 30 3a |workspac|e%?x%=0:|
|000036d0| 78 25 3d 78 25 2b 31 3a | 77 6f 72 6b 73 70 61 63 |x%=x%+1:|workspac|
|000036e0| 65 25 3f 78 25 3d 30 3a | 78 25 3d 78 25 2b 31 0d |e%?x%=0:|x%=x%+1.|
|000036f0| 12 48 2d 77 6f 72 6b 73 | 70 61 63 65 25 3f 78 25 |.H-works|pace%?x%|
|00003700| 3d 26 34 42 3a 78 25 3d | 78 25 2b 31 3a 77 6f 72 |=&4B:x%=|x%+1:wor|
|00003710| 6b 73 70 61 63 65 25 3f | 78 25 3d 35 0d 12 52 15 |kspace%?|x%=5..R.|
|00003720| 21 66 69 6c 65 6c 65 6e | 67 74 68 25 3d 78 25 2b |!filelen|gth%=x%+|
|00003730| 31 0d 12 5c 05 e1 0d 12 | 66 05 3a 0d 12 70 05 3a |1..\....|f.:..p.:|
|00003740| 0d 12 7a 05 3a 0d 12 84 | 0a dd f2 67 61 70 31 0d |..z.:...|...gap1.|
|00003750| 12 8e 21 77 6f 72 6b 73 | 70 61 63 65 25 3f 78 25 |..!works|pace%?x%|
|00003760| 3d 63 6f 75 6e 74 31 25 | 3a 78 25 3d 78 25 2b 31 |=count1%|:x%=x%+1|
|00003770| 0d 12 98 1d 77 6f 72 6b | 73 70 61 63 65 25 3f 78 |....work|space%?x|
|00003780| 25 3d 26 39 32 3a 78 25 | 3d 78 25 2b 31 0d 12 a2 |%=&92:x%|=x%+1...|
|00003790| 05 e1 0d 12 ac 05 3a 0d | 12 b6 0b dd f2 77 6f 72 |......:.|.....wor|
|000037a0| 64 31 0d 12 c0 18 f4 20 | 67 65 74 20 6c 65 6e 67 |d1..... |get leng|
|000037b0| 74 68 20 6f 66 20 77 6f | 72 64 0d 12 ca 17 63 6f |th of wo|rd....co|
|000037c0| 75 6e 74 31 25 3d 30 3a | 74 65 6d 70 31 25 3d 70 |unt1%=0:|temp1%=p|
|000037d0| 25 0d 12 d4 06 20 f5 0d | 12 de 1d 70 25 3d 70 25 |%.... ..|...p%=p%|
|000037e0| 2d 31 3a 63 6f 75 6e 74 | 31 25 3d 63 6f 75 6e 74 |-1:count|1%=count|
|000037f0| 31 25 2b 31 0d 12 e8 0c | 62 69 74 25 3d 3f 70 25 |1%+1....|bit%=?p%|
|00003800| 0d 12 f2 19 fd 20 62 69 | 74 25 3c 26 32 31 20 84 |..... bi|t%<&21 .|
|00003810| 20 62 69 74 25 3e 26 37 | 66 0d 12 fc 21 70 25 3d | bit%>&7|f...!p%=|
|00003820| 74 65 6d 70 31 25 2d 31 | 3a 63 6f 75 6e 74 31 25 |temp1%-1|:count1%|
|00003830| 3d 63 6f 75 6e 74 31 25 | 2d 31 0d 13 06 11 f4 20 |=count1%|-1..... |
|00003840| 6f 75 74 70 75 74 20 77 | 6f 72 64 0d 13 10 19 e3 |output w|ord.....|
|00003850| 20 63 6f 75 6e 74 32 25 | 3d 31 20 b8 20 63 6f 75 | count2%|=1 . cou|
|00003860| 6e 74 31 25 0d 13 1a 25 | 77 6f 72 6b 73 70 61 63 |nt1%...%|workspac|
|00003870| 65 25 3f 78 25 3d 3f 70 | 25 3a 78 25 3d 78 25 2b |e%?x%=?p|%:x%=x%+|
|00003880| 31 3a 70 25 3d 70 25 2d | 31 0d 13 24 0d ed 20 63 |1:p%=p%-|1..$.. c|
|00003890| 6f 75 6e 74 32 25 0d 13 | 2e 0b 70 25 3d 70 25 2b |ount2%..|..p%=p%+|
|000038a0| 31 0d 13 38 21 77 6f 72 | 6b 73 70 61 63 65 25 3f |1..8!wor|kspace%?|
|000038b0| 78 25 3d 63 6f 75 6e 74 | 31 25 3a 78 25 3d 78 25 |x%=count|1%:x%=x%|
|000038c0| 2b 31 0d 13 42 05 e1 0d | 13 4c 05 3a 0d 13 56 0c |+1..B...|.L.:..V.|
|000038d0| 20 dd f2 73 70 61 63 65 | 0d 13 60 20 f4 20 68 65 | ..space|..` . he|
|000038e0| 72 65 20 77 68 65 6e 20 | 61 20 73 70 61 63 65 20 |re when |a space |
|000038f0| 69 73 20 66 6f 75 6e 64 | 0d 13 6a 16 74 65 6d 70 |is found|..j.temp|
|00003900| 25 3d 70 25 3a 63 6f 75 | 6e 74 31 25 3d 31 0d 13 |%=p%:cou|nt1%=1..|
|00003910| 74 05 f5 0d 13 7e 1d 70 | 25 3d 70 25 2d 31 3a 63 |t....~.p|%=p%-1:c|
|00003920| 6f 75 6e 74 31 25 3d 63 | 6f 75 6e 74 31 25 2b 31 |ount1%=c|ount1%+1|
|00003930| 0d 13 88 0c 62 69 74 25 | 3d 3f 70 25 0d 13 92 0f |....bit%|=?p%....|
|00003940| fd 20 62 69 74 25 3c 3e | 26 32 30 0d 13 9c 0b 70 |. bit%<>|&20....p|
|00003950| 25 3d 70 25 2b 31 0d 13 | a6 15 63 6f 75 6e 74 31 |%=p%+1..|..count1|
|00003960| 25 3d 63 6f 75 6e 74 31 | 25 2d 31 0d 13 b0 2c e7 |%=count1|%-1...,.|
|00003970| 20 62 69 74 25 3e 33 32 | 20 80 20 62 69 74 25 3c | bit%>32| . bit%<|
|00003980| 31 32 37 20 8c 20 77 6f | 72 64 25 3d b9 20 8b 20 |127 . wo|rd%=. . |
|00003990| 77 6f 72 64 25 3d a3 0d | 13 ba 22 e7 20 63 6f 75 |word%=..|..". cou|
|000039a0| 6e 74 31 25 3d 31 20 80 | 20 77 6f 72 64 25 20 8c |nt1%=1 .| word% .|
|000039b0| 20 f2 77 6f 72 64 31 3a | e1 0d 13 c4 27 e7 20 63 | .word1:|....'. c|
|000039c0| 6f 75 6e 74 31 25 3e 31 | 20 80 20 77 6f 72 64 25 |ount1%>1| . word%|
|000039d0| 20 8c 20 f2 67 61 70 31 | 3a f2 77 6f 72 64 3a e1 | . .gap1|:.word:.|
|000039e0| 0d 13 ce 09 f2 67 61 70 | 31 0d 13 d8 05 e1 0d ff |.....gap|1.......|
+--------+-------------------------+-------------------------+--------+--------+
