/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsd / drwimp / Examples / !FontRun / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 21 52 | 75 6e 49 6d 61 67 65 0d |.....>!R|unImage.|
|00000010| 00 14 1d c8 9b 20 22 3c | 46 6f 6e 74 52 75 6e 24 |..... "<|FontRun$|
|00000020| 44 69 72 3e 2e 44 72 57 | 69 6d 70 22 0d 00 1e 05 |Dir>.DrW|imp"....|
|00000030| 3a 0d 00 28 2b f4 20 2a | 2a 43 68 65 63 6b 20 66 |:..(+. *|*Check f|
|00000040| 6f 72 20 52 69 67 68 74 | 20 41 6c 74 20 62 65 69 |or Right| Alt bei|
|00000050| 6e 67 20 70 72 65 73 73 | 65 64 2a 2a 0d 00 32 12 |ng press|ed**..2.|
|00000060| 51 3d a4 63 68 65 63 6b | 66 6f 72 61 6c 74 0d 00 |Q=.check|foralt..|
|00000070| 3c 04 0d 00 46 3d f4 20 | 2a 2a 49 66 20 52 69 67 |<...F=. |**If Rig|
|00000080| 68 74 20 41 6c 74 20 6e | 6f 74 20 70 72 65 73 73 |ht Alt n|ot press|
|00000090| 65 64 20 74 68 65 6e 20 | 62 6f 6f 74 20 66 6f 6e |ed then |boot fon|
|000000a0| 74 73 20 61 6e 64 20 66 | 69 6e 69 73 68 2a 2a 0d |ts and f|inish**.|
|000000b0| 00 50 16 e7 20 51 3d 30 | 20 f2 62 6f 6f 74 66 6f |.P.. Q=0| .bootfo|
|000000c0| 6e 74 73 3a e0 0d 00 5a | 16 61 70 70 6e 61 6d 65 |nts:...Z|.appname|
|000000d0| 24 3d 22 46 6f 6e 74 52 | 75 6e 22 0d 00 64 35 ee |$="FontR|un"..d5.|
|000000e0| 20 85 20 f2 77 69 6d 70 | 5f 65 72 72 6f 72 28 61 | . .wimp|_error(a|
|000000f0| 70 70 6e 61 6d 65 24 2c | f6 24 2b 22 20 61 74 20 |ppname$,|.$+" at |
|00000100| 6c 69 6e 65 20 22 2b c3 | 9e 2c 31 2c 31 29 3a e0 |line "+.|.,1,1):.|
|00000110| 0d 00 6e 04 0d 00 78 25 | f4 20 2a 2a 52 65 67 69 |..n...x%|. **Regi|
|00000120| 73 74 65 72 20 74 61 73 | 6b 20 77 69 74 68 20 74 |ster tas|k with t|
|00000130| 68 65 20 77 69 6d 70 2a | 2a 0d 00 82 33 74 61 73 |he wimp*|*...3tas|
|00000140| 6b 25 3d a4 77 69 6d 70 | 5f 69 6e 69 74 69 61 6c |k%=.wimp|_initial|
|00000150| 69 73 65 28 61 70 70 6e | 61 6d 65 24 2c 35 30 30 |ise(appn|ame$,500|
|00000160| 30 2c 33 30 30 30 2c 33 | 30 30 30 29 0d 00 8c 04 |0,3000,3|000)....|
|00000170| 0d 00 96 24 f4 20 2a 2a | 53 65 74 20 70 61 74 68 |...$. **|Set path|
|00000180| 20 74 6f 20 54 65 6d 70 | 6c 61 74 65 73 20 66 69 | to Temp|lates fi|
|00000190| 6c 65 2a 2a 0d 00 a0 27 | 74 65 6d 70 6c 61 74 65 |le**...'|template|
|000001a0| 24 3d 22 3c 46 6f 6e 74 | 52 75 6e 24 44 69 72 3e |$="<Font|Run$Dir>|
|000001b0| 2e 54 65 6d 70 6c 61 74 | 65 73 22 0d 00 aa 04 0d |.Templat|es".....|
|000001c0| 00 b4 29 f4 20 2a 2a 4c | 6f 61 64 20 69 6e 20 69 |..). **L|oad in i|
|000001d0| 6e 66 6f 20 61 6e 64 20 | 63 6f 6e 66 69 67 20 77 |nfo and |config w|
|000001e0| 69 6e 64 6f 77 73 2a 2a | 0d 00 be 2e 69 6e 66 6f |indows**|....info|
|000001f0| 25 3d a4 77 69 6d 70 5f | 6c 6f 61 64 77 69 6e 64 |%=.wimp_|loadwind|
|00000200| 6f 77 28 74 65 6d 70 6c | 61 74 65 24 2c 22 69 6e |ow(templ|ate$,"in|
|00000210| 66 6f 22 2c 31 29 0d 00 | c8 2e 63 6f 6e 66 25 3d |fo",1)..|..conf%=|
|00000220| a4 77 69 6d 70 5f 6c 6f | 61 64 77 69 6e 64 6f 77 |.wimp_lo|adwindow|
|00000230| 28 74 65 6d 70 6c 61 74 | 65 24 2c 22 63 6f 6e 66 |(templat|e$,"conf|
|00000240| 22 2c 31 29 0d 00 d2 04 | 0d 00 dc 28 f4 20 2a 2a |",1)....|...(. **|
|00000250| 46 69 6c 6c 20 69 6e 20 | 64 65 74 61 69 6c 73 20 |Fill in |details |
|00000260| 69 6e 20 69 6e 66 6f 20 | 77 69 6e 64 6f 77 2a 2a |in info |window**|
|00000270| 0d 00 e6 33 f2 77 69 6d | 70 5f 70 75 74 69 63 6f |...3.wim|p_putico|
|00000280| 6e 74 65 78 74 28 69 6e | 66 6f 25 2c 33 2c 22 a9 |ntext(in|fo%,3,".|
|00000290| 20 41 6e 64 72 65 77 20 | 41 79 72 65 20 31 39 39 | Andrew |Ayre 199|
|000002a0| 35 22 29 0d 00 f0 31 f2 | 77 69 6d 70 5f 70 75 74 |5")...1.|wimp_put|
|000002b0| 69 63 6f 6e 74 65 78 74 | 28 69 6e 66 6f 25 2c 34 |icontext|(info%,4|
|000002c0| 2c 22 31 2e 30 30 20 28 | 30 37 2d 41 70 72 2d 39 |,"1.00 (|07-Apr-9|
|000002d0| 35 29 22 29 0d 00 fa 04 | 0d 01 04 22 f4 20 2a 2a |5)")....|...". **|
|000002e0| 42 6c 61 6e 6b 20 68 6f | 74 6b 65 79 20 70 72 6f |Blank ho|tkey pro|
|000002f0| 6d 70 74 20 69 63 6f 6e | 2a 2a 0d 01 0e 22 f2 77 |mpt icon|**...".w|
|00000300| 69 6d 70 5f 70 75 74 69 | 63 6f 6e 74 65 78 74 28 |imp_puti|context(|
|00000310| 63 6f 6e 66 25 2c 31 33 | 2c 22 22 29 0d 01 18 04 |conf%,13|,"")....|
|00000320| 0d 01 22 26 f4 20 2a 2a | 43 72 65 61 74 65 20 73 |.."&. **|Create s|
|00000330| 74 61 6e 64 61 72 64 20 | 69 63 6f 6e 62 61 72 20 |tandard |iconbar |
|00000340| 6d 65 6e 75 2a 2a 0d 01 | 2c 3a 62 61 72 6d 65 6e |menu**..|,:barmen|
|00000350| 75 25 3d a4 77 69 6d 70 | 5f 63 72 65 61 74 65 6d |u%=.wimp|_createm|
|00000360| 65 6e 75 28 22 46 6f 6e | 74 52 75 6e 2f 49 6e 66 |enu("Fon|tRun/Inf|
|00000370| 6f 3e 69 6e 66 6f 25 2f | 51 75 69 74 22 2c 30 29 |o>info%/|Quit",0)|
|00000380| 0d 01 36 04 0d 01 40 1d | f4 20 2a 2a 50 75 74 20 |..6...@.|. **Put |
|00000390| 69 63 6f 6e 20 6f 6e 20 | 69 63 6f 6e 62 61 72 2a |icon on |iconbar*|
|000003a0| 2a 0d 01 4a 29 62 61 72 | 25 3d a4 77 69 6d 70 5f |*..J)bar|%=.wimp_|
|000003b0| 69 63 6f 6e 62 61 72 28 | 22 21 22 2b 61 70 70 6e |iconbar(|"!"+appn|
|000003c0| 61 6d 65 24 2c 22 22 2c | 31 29 0d 01 54 04 0d 01 |ame$,"",|1)..T...|
|000003d0| 5e 30 f4 20 2a 2a 43 72 | 65 61 74 65 20 61 6e 20 |^0. **Cr|eate an |
|000003e0| 61 72 72 61 79 20 74 6f | 20 70 75 74 20 66 6f 6c |array to| put fol|
|000003f0| 64 65 72 20 6e 61 6d 65 | 73 20 69 6e 2a 2a 0d 01 |der name|s in**..|
|00000400| 68 11 de 20 66 6f 6c 64 | 65 72 24 28 32 31 29 0d |h.. fold|er$(21).|
|00000410| 01 72 04 0d 01 7c 32 f4 | 20 2a 2a 43 72 65 61 74 |.r...|2.| **Creat|
|00000420| 65 20 61 20 27 62 6c 61 | 6e 6b 27 20 6d 65 6e 75 |e a 'bla|nk' menu|
|00000430| 20 66 72 6f 6d 20 66 6f | 6c 64 65 72 24 20 61 72 | from fo|lder$ ar|
|00000440| 72 61 79 2a 2a 0d 01 86 | 37 66 6f 6c 64 65 72 24 |ray**...|7folder$|
|00000450| 28 30 29 3d 22 52 65 6d | 6f 76 65 22 3a 66 6f 6c |(0)="Rem|ove":fol|
|00000460| 64 65 72 24 28 31 29 3d | 22 58 22 3a 66 6f 6c 64 |der$(1)=|"X":fold|
|00000470| 65 72 24 28 32 29 3d 22 | 45 4e 44 22 0d 01 90 33 |er$(2)="|END"...3|
|00000480| 66 6f 6c 64 65 72 6d 65 | 6e 75 25 3d a4 77 69 6d |folderme|nu%=.wim|
|00000490| 70 5f 63 72 65 61 74 65 | 6d 65 6e 75 61 72 72 61 |p_create|menuarra|
|000004a0| 79 28 66 6f 6c 64 65 72 | 24 28 29 2c 32 31 29 0d |y(folder|$(),21).|
|000004b0| 01 9a 04 0d 01 a4 32 f4 | 20 2a 2a 43 72 65 61 74 |......2.| **Creat|
|000004c0| 65 20 61 6e 20 61 72 72 | 61 79 20 74 6f 20 73 74 |e an arr|ay to st|
|000004d0| 6f 72 65 20 66 6f 6c 64 | 65 72 20 70 61 74 68 73 |ore fold|er paths|
|000004e0| 20 69 6e 2a 2a 0d 01 ae | 0f de 20 63 6f 70 79 24 | in**...|.. copy$|
|000004f0| 28 32 30 29 0d 01 b8 04 | 0d 01 c2 39 f4 20 2a 2a |(20)....|...9. **|
|00000500| 43 72 65 61 74 65 20 61 | 6e 20 61 72 72 61 79 20 |Create a|n array |
|00000510| 74 6f 20 73 74 6f 72 65 | 20 74 65 78 74 20 6e 61 |to store| text na|
|00000520| 6d 65 73 20 66 6f 72 20 | 68 6f 74 6b 65 79 73 2a |mes for |hotkeys*|
|00000530| 2a 0d 01 cc 0d de 20 6b | 24 28 31 32 34 29 0d 01 |*..... k|$(124)..|
|00000540| d6 04 0d 01 e0 21 f4 20 | 2a 2a 4c 6f 61 64 20 6b |.....!. |**Load k|
|00000550| 24 20 77 69 74 68 20 74 | 65 78 74 20 6e 61 6d 65 |$ with t|ext name|
|00000560| 73 2a 2a 0d 01 ea 0d f2 | 72 65 61 64 6b 65 79 73 |s**.....|readkeys|
|00000570| 0d 01 f4 04 0d 01 fe 34 | f4 20 2a 2a 49 6e 69 74 |.......4|. **Init|
|00000580| 69 61 6c 20 6e 75 6d 62 | 65 72 20 6f 66 20 66 6f |ial numb|er of fo|
|00000590| 6e 74 20 66 6f 6c 64 65 | 72 73 3d 30 2c 20 68 6f |nt folde|rs=0, ho|
|000005a0| 74 6b 65 79 3d 37 2a 2a | 0d 02 08 0b 74 6f 74 61 |tkey=7**|....tota|
|000005b0| 6c 3d 30 0d 02 12 0c 68 | 6f 74 6b 65 79 3d 37 0d |l=0....h|otkey=7.|
|000005c0| 02 1c 04 0d 02 26 29 f4 | 20 2a 2a 4c 6f 61 64 20 |.....&).| **Load |
|000005d0| 69 6e 20 66 6f 6c 64 65 | 72 20 70 61 74 68 73 20 |in folde|r paths |
|000005e0| 28 69 66 20 66 6f 75 6e | 64 29 2a 2a 0d 02 30 12 |(if foun|d)**..0.|
|000005f0| f2 6c 6f 61 64 69 6e 66 | 6f 6c 64 65 72 73 0d 02 |.loadinf|olders..|
|00000600| 3a 04 0d 02 44 17 f4 20 | 2a 2a 50 6f 6c 6c 20 74 |:...D.. |**Poll t|
|00000610| 68 65 20 77 69 6d 70 2a | 2a 0d 02 4e 0e f2 77 69 |he wimp*|*..N..wi|
|00000620| 6d 70 5f 70 6f 6c 6c 0d | 02 58 05 e0 0d 02 62 05 |mp_poll.|.X....b.|
|00000630| 3a 0d 02 6c 33 dd 20 f2 | 75 73 65 72 5f 72 65 64 |:..l3. .|user_red|
|00000640| 72 61 77 28 77 69 6e 64 | 6f 77 25 2c 6d 69 6e 78 |raw(wind|ow%,minx|
|00000650| 25 2c 6d 69 6e 79 25 2c | 6d 61 78 78 25 2c 6d 61 |%,miny%,|maxx%,ma|
|00000660| 78 79 25 29 0d 02 76 05 | e1 0d 02 80 05 3a 0d 02 |xy%)..v.|.....:..|
|00000670| 8a 2d dd 20 f2 75 73 65 | 72 5f 6d 6f 75 73 65 63 |.-. .use|r_mousec|
|00000680| 6c 69 63 6b 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |lick(win|dow%,ico|
|00000690| 6e 25 2c 62 75 74 74 6f | 6e 25 29 0d 02 94 10 c8 |n%,butto|n%).....|
|000006a0| 8e 20 77 69 6e 64 6f 77 | 25 20 ca 0d 02 9e 04 0d |. window|% ......|
|000006b0| 02 a8 46 f4 20 2a 2a 49 | 66 20 69 63 6f 6e 62 61 |..F. **I|f iconba|
|000006c0| 72 20 69 63 6f 6e 20 63 | 6c 69 63 6b 65 64 20 6f |r icon c|licked o|
|000006d0| 6e 20 74 68 65 6e 20 6f | 70 65 6e 20 63 6f 6e 66 |n then o|pen conf|
|000006e0| 69 67 20 77 69 6e 64 6f | 77 20 69 6e 20 63 65 6e |ig windo|w in cen|
|000006f0| 74 72 65 2a 2a 0d 02 b2 | 46 f4 20 2a 2a 6f 66 20 |tre**...|F. **of |
|00000700| 74 68 65 20 73 63 72 65 | 65 6e 2c 20 6f 6e 20 74 |the scre|en, on t|
|00000710| 6f 70 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |op      |        |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000730| 20 20 20 20 20 20 20 20 | 20 2a 2a 0d 02 bc 27 c9 |        | **...'.|
|00000740| 20 2d 32 20 3a 20 f2 77 | 69 6d 70 5f 6f 70 65 6e | -2 : .w|imp_open|
|00000750| 77 69 6e 64 6f 77 28 63 | 6f 6e 66 25 2c 31 2c 2d |window(c|onf%,1,-|
|00000760| 31 29 0d 02 c6 0d c9 20 | 63 6f 6e 66 25 20 3a 0d |1)..... |conf% :.|
|00000770| 02 d0 0e c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 02 da |..... ic|on% ....|
|00000780| 04 0d 02 e4 3b f4 20 2a | 2a 49 66 20 27 72 65 6d |....;. *|*If 'rem|
|00000790| 6f 76 65 27 20 69 63 6f | 6e 20 63 6c 69 63 6b 65 |ove' ico|n clicke|
|000007a0| 64 20 6f 6e 20 74 68 65 | 6e 20 6f 70 65 6e 20 72 |d on the|n open r|
|000007b0| 65 6d 6f 76 65 20 6d 65 | 6e 75 2a 2a 0d 02 ee 17 |emove me|nu**....|
|000007c0| c9 20 35 20 3a 20 f2 72 | 65 6d 6f 76 65 66 6f 6c |. 5 : .r|emovefol|
|000007d0| 64 65 72 0d 02 f8 04 0d | 03 02 38 f4 20 2a 2a 49 |der.....|..8. **I|
|000007e0| 66 20 27 4f 4b 27 20 69 | 63 6f 6e 20 63 6c 69 63 |f 'OK' i|con clic|
|000007f0| 6b 65 64 20 6f 6e 20 74 | 68 65 6e 20 73 61 76 65 |ked on t|hen save|
|00000800| 20 66 6f 6c 64 65 72 20 | 70 61 74 68 73 2a 2a 0d | folder |paths**.|
|00000810| 03 0c 17 c9 20 31 31 20 | 3a 20 f2 73 61 76 65 66 |.... 11 |: .savef|
|00000820| 6f 6c 64 65 72 73 0d 03 | 16 04 0d 03 20 47 f4 20 |olders..|.... G. |
|00000830| 2a 2a 49 66 20 27 43 68 | 61 6e 67 65 27 20 69 63 |**If 'Ch|ange' ic|
|00000840| 6f 6e 20 63 6c 69 63 6b | 65 64 20 6f 6e 20 74 68 |on click|ed on th|
|00000850| 65 6e 20 67 72 61 62 20 | 69 6e 70 75 74 20 66 6f |en grab |input fo|
|00000860| 63 75 73 20 61 6e 64 20 | 70 72 6f 6d 70 74 20 2a |cus and |prompt *|
|00000870| 2a 0d 03 2a 47 f4 20 2a | 2a 75 73 65 72 20 74 6f |*..*G. *|*user to|
|00000880| 20 70 72 65 73 73 20 61 | 20 68 6f 74 6b 65 79 2e | press a| hotkey.|
|00000890| 20 47 6f 20 69 6e 74 6f | 20 61 20 6c 6f 6f 70 20 | Go into| a loop |
|000008a0| 75 6e 74 69 6c 20 61 20 | 6b 65 79 20 69 73 20 70 |until a |key is p|
|000008b0| 72 65 73 73 65 64 2a 2a | 0d 03 34 58 c9 20 39 20 |ressed**|..4X. 9 |
|000008c0| 3a 20 f2 77 69 6d 70 5f | 70 75 74 63 61 72 65 74 |: .wimp_|putcaret|
|000008d0| 28 63 6f 6e 66 25 2c 31 | 30 29 3a f2 77 69 6d 70 |(conf%,1|0):.wimp|
|000008e0| 5f 70 75 74 69 63 6f 6e | 74 65 78 74 28 63 6f 6e |_puticon|text(con|
|000008f0| 66 25 2c 31 33 2c 22 50 | 72 65 73 73 20 68 6f 74 |f%,13,"P|ress hot|
|00000900| 6b 65 79 20 6e 6f 77 21 | 22 29 3a f2 67 72 61 62 |key now!|"):.grab|
|00000910| 0d 03 3e 05 cb 0d 03 48 | 05 cb 0d 03 52 05 e1 0d |..>....H|....R...|
|00000920| 03 5c 05 3a 0d 03 66 1f | dd 20 a4 75 73 65 72 5f |.\.:..f.|. .user_|
|00000930| 6d 65 6e 75 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |menu(win|dow%,ico|
|00000940| 6e 25 29 0d 03 70 25 f4 | 20 2a 2a 41 74 74 61 63 |n%)..p%.| **Attac|
|00000950| 68 20 69 63 6f 6e 62 61 | 72 20 6d 65 6e 75 20 74 |h iconba|r menu t|
|00000960| 6f 20 69 63 6f 6e 2a 2a | 0d 03 7a 1c e7 20 77 69 |o icon**|..z.. wi|
|00000970| 6e 64 6f 77 25 3d 62 61 | 72 25 20 3d 62 61 72 6d |ndow%=ba|r% =barm|
|00000980| 65 6e 75 25 0d 03 84 06 | 3d 30 0d 03 8e 05 3a 0d |enu%....|=0....:.|
|00000990| 03 98 2c dd 20 f2 75 73 | 65 72 5f 6f 70 65 6e 77 |..,. .us|er_openw|
|000009a0| 69 6e 64 6f 77 28 77 69 | 6e 64 6f 77 25 2c 78 25 |indow(wi|ndow%,x%|
|000009b0| 2c 79 25 2c 73 74 61 63 | 6b 25 29 0d 03 a2 05 e1 |,y%,stac|k%).....|
|000009c0| 0d 03 ac 05 3a 0d 03 b6 | 20 dd 20 f2 75 73 65 72 |....:...| . .user|
|000009d0| 5f 63 6c 6f 73 65 77 69 | 6e 64 6f 77 28 77 69 6e |_closewi|ndow(win|
|000009e0| 64 6f 77 25 29 0d 03 c0 | 05 e1 0d 03 ca 05 3a 0d |dow%)...|......:.|
|000009f0| 03 d4 27 dd 20 a4 75 73 | 65 72 5f 6b 65 79 70 72 |..'. .us|er_keypr|
|00000a00| 65 73 73 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ess(wind|ow%,icon|
|00000a10| 25 2c 6b 65 79 29 0d 03 | de 06 3d 30 0d 03 e8 05 |%,key)..|..=0....|
|00000a20| 3a 0d 03 f2 26 dd 20 f2 | 75 73 65 72 5f 6d 65 6e |:...&. .|user_men|
|00000a30| 75 73 65 6c 65 63 74 69 | 6f 6e 28 6d 65 6e 75 25 |uselecti|on(menu%|
|00000a40| 2c 69 74 65 6d 25 29 0d | 03 fc 37 f4 20 2a 2a 49 |,item%).|..7. **I|
|00000a50| 66 20 27 51 75 69 74 27 | 20 63 68 6f 73 65 6e 20 |f 'Quit'| chosen |
|00000a60| 66 72 6f 6d 20 69 63 6f | 6e 62 61 72 20 6d 65 6e |from ico|nbar men|
|00000a70| 75 2c 20 74 68 65 6e 20 | 71 75 69 74 2a 2a 0d 04 |u, then |quit**..|
|00000a80| 06 2a e7 20 6d 65 6e 75 | 25 3d 62 61 72 6d 65 6e |.*. menu|%=barmen|
|00000a90| 75 25 20 80 20 69 74 65 | 6d 25 3d 32 20 66 69 6e |u% . ite|m%=2 fin|
|00000aa0| 69 73 68 65 64 25 3d b9 | 0d 04 10 04 0d 04 1a 3b |ished%=.|.......;|
|00000ab0| f4 20 2a 2a 49 66 20 66 | 6f 6c 64 65 72 20 6e 61 |. **If f|older na|
|00000ac0| 6d 65 20 63 68 6f 73 65 | 6e 20 66 72 6f 6d 20 74 |me chose|n from t|
|00000ad0| 68 65 20 72 65 6d 6f 76 | 65 20 66 6f 6c 64 65 72 |he remov|e folder|
|00000ae0| 20 6d 65 6e 75 2a 2a 0d | 04 24 3b f4 20 2a 2a 74 | menu**.|.$;. **t|
|00000af0| 68 65 6e 20 72 65 6d 6f | 76 65 20 69 74 20 20 20 |hen remo|ve it   |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b20| 2a 2a 0d 04 2e 26 e7 20 | 6d 65 6e 75 25 3d 66 6f |**...&. |menu%=fo|
|00000b30| 6c 64 65 72 6d 65 6e 75 | 25 20 f2 72 65 6d 6f 76 |ldermenu|% .remov|
|00000b40| 65 28 69 74 65 6d 25 29 | 0d 04 38 05 e1 0d 04 42 |e(item%)|..8....B|
|00000b50| 05 3a 0d 04 4c 21 dd 20 | a4 75 73 65 72 5f 73 61 |.:..L!. |.user_sa|
|00000b60| 76 65 66 69 6c 65 74 79 | 70 65 28 77 69 6e 64 6f |vefilety|pe(windo|
|00000b70| 77 25 29 0d 04 56 07 3d | 22 22 0d 04 60 05 3a 0d |w%)..V.=|""..`.:.|
|00000b80| 04 6a 23 dd 20 f2 75 73 | 65 72 5f 73 61 76 65 64 |.j#. .us|er_saved|
|00000b90| 61 74 61 28 70 61 74 68 | 24 2c 77 69 6e 64 6f 77 |ata(path|$,window|
|00000ba0| 25 29 0d 04 74 05 e1 0d | 04 7e 05 3a 0d 04 88 1f |%)..t...|.~.:....|
|00000bb0| dd 20 a4 75 73 65 72 5f | 68 65 6c 70 28 77 69 6e |. .user_|help(win|
|00000bc0| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 04 92 07 3d |dow%,ico|n%)....=|
|00000bd0| 22 22 0d 04 9c 05 3a 0d | 04 a6 30 dd 20 a4 75 73 |""....:.|..0. .us|
|00000be0| 65 72 5f 6c 6f 61 64 64 | 61 74 61 28 70 61 74 68 |er_loadd|ata(path|
|00000bf0| 24 2c 77 69 6e 64 6f 77 | 25 2c 69 63 6f 6e 25 2c |$,window|%,icon%,|
|00000c00| 66 74 79 70 65 24 29 0d | 04 b0 42 f4 20 2a 2a 49 |ftype$).|..B. **I|
|00000c10| 66 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 64 72 |f applic|ation dr|
|00000c20| 6f 70 70 65 64 20 6f 76 | 65 72 20 64 72 6f 70 2d |opped ov|er drop-|
|00000c30| 62 6f 78 20 74 68 65 6e | 20 61 64 64 20 69 74 20 |box then| add it |
|00000c40| 74 6f 20 6c 69 73 74 2a | 2a 0d 04 ba 3f e7 20 66 |to list*|*...?. f|
|00000c50| 74 79 70 65 24 3d 22 32 | 30 30 30 22 20 80 20 77 |type$="2|000" . w|
|00000c60| 69 6e 64 6f 77 25 3d 63 | 6f 6e 66 25 20 80 20 69 |indow%=c|onf% . i|
|00000c70| 63 6f 6e 25 3d 33 20 f2 | 61 64 64 66 6f 6c 64 65 |con%=3 .|addfolde|
|00000c80| 72 28 70 61 74 68 24 29 | 0d 04 c4 06 3d 30 0d 04 |r(path$)|....=0..|
|00000c90| ce 05 3a 0d 04 d8 23 dd | 20 f2 75 73 65 72 5f 65 |..:...#.| .user_e|
|00000ca0| 6e 74 65 72 69 6e 67 77 | 69 6e 64 6f 77 28 77 69 |nteringw|indow(wi|
|00000cb0| 6e 64 6f 77 25 29 0d 04 | e2 05 e1 0d 04 ec 05 3a |ndow%)..|.......:|
|00000cc0| 0d 04 f6 22 dd 20 f2 75 | 73 65 72 5f 6c 65 61 76 |...". .u|ser_leav|
|00000cd0| 69 6e 67 77 69 6e 64 6f | 77 28 77 69 6e 64 6f 77 |ingwindo|w(window|
|00000ce0| 25 29 0d 05 00 05 e1 0d | 05 0a 05 3a 0d 05 14 19 |%)......|...:....|
|00000cf0| dd 20 a4 75 73 65 72 5f | 70 61 6e 65 28 77 69 6e |. .user_|pane(win|
|00000d00| 64 6f 77 25 29 0d 05 1e | 07 3d 2d 31 0d 05 28 05 |dow%)...|.=-1..(.|
|00000d10| 3a 0d 05 32 10 dd 20 f2 | 75 73 65 72 5f 6e 75 6c |:..2.. .|user_nul|
|00000d20| 6c 0d 05 3c 05 e1 0d 05 | 46 05 3a 0d 05 50 13 dd |l..<....|F.:..P..|
|00000d30| 20 f2 72 65 6d 6f 76 65 | 66 6f 6c 64 65 72 0d 05 | .remove|folder..|
|00000d40| 5a 3c f4 20 2a 2a 49 66 | 20 6e 6f 20 66 6f 6c 64 |Z<. **If| no fold|
|00000d50| 65 72 73 20 74 6f 20 72 | 65 6d 6f 76 65 20 74 68 |ers to r|emove th|
|00000d60| 65 6e 20 67 69 76 65 20 | 65 72 72 6f 72 20 61 6e |en give |error an|
|00000d70| 64 20 72 65 74 75 72 6e | 2a 2a 0d 05 64 4b e7 20 |d return|**..dK. |
|00000d80| 74 6f 74 61 6c 3d 30 20 | f2 77 69 6d 70 5f 65 72 |total=0 |.wimp_er|
|00000d90| 72 6f 72 28 61 70 70 6e | 61 6d 65 24 2c 22 54 68 |ror(appn|ame$,"Th|
|00000da0| 65 72 65 20 61 72 65 20 | 6e 6f 20 66 6f 6c 64 65 |ere are |no folde|
|00000db0| 72 73 20 74 6f 20 72 65 | 6d 6f 76 65 21 22 2c 31 |rs to re|move!",1|
|00000dc0| 2c 31 29 3a e1 0d 05 6e | 04 0d 05 78 37 f4 20 2a |,1):...n|...x7. *|
|00000dd0| 2a 47 65 74 20 6d 6f 75 | 73 65 20 63 6f 2d 6f 72 |*Get mou|se co-or|
|00000de0| 64 69 6e 61 74 65 73 20 | 61 6e 64 20 70 6f 70 20 |dinates |and pop |
|00000df0| 75 70 20 72 65 6d 6f 76 | 65 20 6d 65 6e 75 2a 2a |up remov|e menu**|
|00000e00| 0d 05 82 0c c8 97 20 58 | 2c 59 2c 42 0d 05 8c 2a |...... X|,Y,B...*|
|00000e10| f2 77 69 6d 70 5f 6d 65 | 6e 75 70 6f 70 75 70 28 |.wimp_me|nupopup(|
|00000e20| 66 6f 6c 64 65 72 6d 65 | 6e 75 25 2c 30 2c 58 2d |folderme|nu%,0,X-|
|00000e30| 31 33 30 2c 59 29 0d 05 | 96 05 e1 0d 05 a0 05 3a |130,Y)..|.......:|
|00000e40| 0d 05 aa 17 dd 20 f2 61 | 64 64 66 6f 6c 64 65 72 |..... .a|ddfolder|
|00000e50| 28 70 61 74 68 24 29 0d | 05 b4 35 f4 20 2a 2a 49 |(path$).|..5. **I|
|00000e60| 66 20 6c 69 6d 69 74 20 | 72 65 61 63 68 65 64 20 |f limit |reached |
|00000e70| 74 68 65 6e 20 67 69 76 | 65 20 65 72 72 6f 72 20 |then giv|e error |
|00000e80| 61 6e 64 20 72 65 74 75 | 72 6e 2a 2a 0d 05 be 4d |and retu|rn**...M|
|00000e90| e7 20 74 6f 74 61 6c 3d | 32 30 20 f2 77 69 6d 70 |. total=|20 .wimp|
|00000ea0| 5f 65 72 72 6f 72 28 61 | 70 70 6e 61 6d 65 24 2c |_error(a|ppname$,|
|00000eb0| 22 4f 6e 6c 79 20 32 30 | 20 66 6f 6e 74 20 66 6f |"Only 20| font fo|
|00000ec0| 6c 64 65 72 73 20 63 61 | 6e 20 62 65 20 75 73 65 |lders ca|n be use|
|00000ed0| 64 22 2c 31 2c 31 29 3a | e1 0d 05 c8 07 48 3d a3 |d",1,1):|.....H=.|
|00000ee0| 0d 05 d2 04 0d 05 dc 36 | f4 20 2a 2a 43 68 65 63 |.......6|. **Chec|
|00000ef0| 6b 20 74 68 61 74 20 66 | 6f 6c 64 65 72 20 68 61 |k that f|older ha|
|00000f00| 73 20 6e 6f 74 20 61 6c | 72 65 61 64 79 20 62 65 |s not al|ready be|
|00000f10| 65 6e 20 61 64 64 65 64 | 2a 2a 0d 05 e6 25 e7 20 |en added|**...%. |
|00000f20| 74 6f 74 61 6c 3e 30 20 | 48 3d a4 73 63 61 6e 66 |total>0 |H=.scanf|
|00000f30| 6f 72 66 6f 6c 64 65 72 | 28 70 61 74 68 24 29 0d |orfolder|(path$).|
|00000f40| 05 f0 04 0d 05 fa 1f f4 | 20 2a 2a 49 66 20 69 74 |........| **If it|
|00000f50| 20 68 61 73 20 74 68 65 | 6e 20 72 65 74 75 72 6e | has the|n return|
|00000f60| 2a 2a 0d 06 04 0b e7 20 | 48 3d b9 20 e1 0d 06 0e |**..... |H=. ....|
|00000f70| 04 0d 06 18 2b f4 20 2a | 2a 49 6e 63 72 65 6d 65 |....+. *|*Increme|
|00000f80| 6e 74 20 74 6f 74 61 6c | 20 6e 75 6d 62 65 72 20 |nt total| number |
|00000f90| 6f 66 20 66 6f 6c 64 65 | 72 73 2a 2a 0d 06 22 0c |of folde|rs**..".|
|00000fa0| 74 6f 74 61 6c 2b 3d 31 | 0d 06 2c 04 0d 06 36 27 |total+=1|..,...6'|
|00000fb0| f4 20 2a 2a 50 75 74 20 | 70 61 74 68 6e 61 6d 65 |. **Put |pathname|
|00000fc0| 20 69 6e 74 6f 20 63 6f | 70 79 24 20 61 72 72 61 | into co|py$ arra|
|00000fd0| 79 2a 2a 0d 06 40 16 63 | 6f 70 79 24 28 74 6f 74 |y**..@.c|opy$(tot|
|00000fe0| 61 6c 29 3d 70 61 74 68 | 24 0d 06 4a 04 0d 06 54 |al)=path|$..J...T|
|00000ff0| 39 f4 20 2a 2a 47 65 74 | 20 6c 65 61 66 6e 61 6d |9. **Get| leafnam|
|00001000| 65 20 28 66 6f 6c 64 65 | 72 20 6e 61 6d 65 29 20 |e (folde|r name) |
|00001010| 61 6e 64 20 70 75 74 20 | 69 6e 74 6f 20 66 6f 6c |and put |into fol|
|00001020| 64 65 72 24 2a 2a 0d 06 | 5e 22 70 61 74 68 24 3d |der$**..|^"path$=|
|00001030| a4 77 69 6d 70 5f 67 65 | 74 6c 65 61 66 6e 61 6d |.wimp_ge|tleafnam|
|00001040| 65 28 70 61 74 68 24 29 | 0d 06 68 18 66 6f 6c 64 |e(path$)|..h.fold|
|00001050| 65 72 24 28 74 6f 74 61 | 6c 29 3d 70 61 74 68 24 |er$(tota|l)=path$|
|00001060| 0d 06 72 04 0d 06 7c 3d | f4 20 2a 2a 41 64 64 20 |..r...|=|. **Add |
|00001070| 61 6e 20 27 45 4e 44 27 | 20 74 6f 20 6c 61 73 74 |an 'END'| to last|
|00001080| 20 65 6c 65 6d 65 6e 74 | 20 69 6e 20 66 6f 6c 64 | element| in fold|
|00001090| 65 72 24 20 61 72 72 61 | 79 2c 20 74 68 65 6e 2a |er$ arra|y, then*|
|000010a0| 2a 0d 06 86 3d f4 20 2a | 2a 62 75 69 6c 64 20 74 |*...=. *|*build t|
|000010b0| 68 65 20 72 65 6d 6f 76 | 65 20 6d 65 6e 75 20 66 |he remov|e menu f|
|000010c0| 72 6f 6d 20 69 74 20 20 | 20 20 20 20 20 20 20 20 |rom it  |        |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 06 |        |    **..|
|000010e0| 90 1a 66 6f 6c 64 65 72 | 24 28 74 6f 74 61 6c 2b |..folder|$(total+|
|000010f0| 31 29 3d 22 45 4e 44 22 | 0d 06 9a 32 f2 77 69 6d |1)="END"|...2.wim|
|00001100| 70 5f 72 65 63 72 65 61 | 74 65 6d 65 6e 75 61 72 |p_recrea|temenuar|
|00001110| 72 61 79 28 66 6f 6c 64 | 65 72 6d 65 6e 75 25 2c |ray(fold|ermenu%,|
|00001120| 66 6f 6c 64 65 72 24 28 | 29 29 0d 06 a4 04 0d 06 |folder$(|))......|
|00001130| ae 38 f4 20 2a 2a 4d 61 | 6b 65 20 61 20 62 65 65 |.8. **Ma|ke a bee|
|00001140| 70 20 74 6f 20 74 65 6c | 6c 20 75 73 65 72 20 74 |p to tel|l user t|
|00001150| 68 61 74 20 69 74 20 68 | 61 73 20 62 65 65 6e 20 |hat it h|as been |
|00001160| 64 6f 6e 65 2a 2a 0d 06 | b8 06 ef 37 0d 06 c2 05 |done**..|...7....|
|00001170| e1 0d 06 cc 05 3a 0d 06 | d6 1b dd 20 a4 73 63 61 |.....:..|... .sca|
|00001180| 6e 66 6f 72 66 6f 6c 64 | 65 72 28 70 61 74 68 24 |nforfold|er(path$|
|00001190| 29 0d 06 e0 07 48 3d a3 | 0d 06 ea 04 0d 06 f4 27 |)....H=.|.......'|
|000011a0| f4 20 2a 2a 47 6f 20 74 | 68 72 6f 75 67 68 20 70 |. **Go t|hrough p|
|000011b0| 61 74 68 6e 61 6d 65 73 | 20 69 6e 20 63 6f 70 79 |athnames| in copy|
|000011c0| 24 2a 2a 0d 06 fe 11 e3 | 20 4c 3d 31 20 b8 20 74 |$**.....| L=1 . t|
|000011d0| 6f 74 61 6c 0d 07 08 18 | e7 20 63 6f 70 79 24 28 |otal....|. copy$(|
|000011e0| 4c 29 3d 70 61 74 68 24 | 20 48 3d b9 0d 07 12 07 |L)=path$| H=.....|
|000011f0| ed 20 4c 0d 07 1c 04 0d | 07 26 3d f4 20 2a 2a 49 |. L.....|.&=. **I|
|00001200| 46 20 66 6f 6e 74 20 66 | 6f 6c 64 65 72 20 74 68 |F font f|older th|
|00001210| 61 74 20 77 61 73 20 64 | 72 61 67 67 65 64 20 77 |at was d|ragged w|
|00001220| 61 73 20 66 6f 75 6e 64 | 20 74 68 65 6e 20 67 69 |as found| then gi|
|00001230| 76 65 2a 2a 0d 07 30 3d | f4 20 2a 2a 65 72 72 6f |ve**..0=|. **erro|
|00001240| 72 20 61 6e 64 20 72 65 | 74 75 72 6e 20 20 20 20 |r and re|turn    |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|00001270| 2a 0d 07 3a 47 e7 20 48 | 3d b9 20 f2 77 69 6d 70 |*..:G. H|=. .wimp|
|00001280| 5f 65 72 72 6f 72 28 61 | 70 70 6e 61 6d 65 24 2c |_error(a|ppname$,|
|00001290| 22 54 68 69 73 20 66 6f | 6e 74 20 66 6f 6c 64 65 |"This fo|nt folde|
|000012a0| 72 20 69 73 20 61 6c 72 | 65 61 64 79 20 61 64 64 |r is alr|eady add|
|000012b0| 65 64 22 2c 31 2c 31 29 | 0d 07 44 06 3d 48 0d 07 |ed",1,1)|..D.=H..|
|000012c0| 4e 05 3a 0d 07 58 10 dd | 20 f2 72 65 6d 6f 76 65 |N.:..X..| .remove|
|000012d0| 28 6e 29 0d 07 62 3e f4 | 20 2a 2a 49 66 20 72 65 |(n)..b>.| **If re|
|000012e0| 6d 6f 76 69 6e 67 20 6c | 61 73 74 20 66 6f 6c 64 |moving l|ast fold|
|000012f0| 65 72 20 6f 6e 20 6d 65 | 6e 75 20 74 68 65 6e 20 |er on me|nu then |
|00001300| 64 65 63 72 65 6d 65 6e | 74 20 74 6f 74 61 6c 2a |decremen|t total*|
|00001310| 2a 0d 07 6c 3e f4 20 2a | 2a 2c 20 72 65 6d 6f 76 |*..l>. *|*, remov|
|00001320| 65 20 61 6e 64 20 72 65 | 74 75 72 6e 20 20 20 20 |e and re|turn    |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2a 0d |        |     **.|
|00001350| 07 76 3c e7 20 6e 3d 74 | 6f 74 61 6c 20 74 6f 74 |.v<. n=t|otal tot|
|00001360| 61 6c 2d 3d 31 3a f2 77 | 69 6d 70 5f 72 65 6d 6f |al-=1:.w|imp_remo|
|00001370| 76 65 6d 65 6e 75 69 74 | 65 6d 28 66 6f 6c 64 65 |vemenuit|em(folde|
|00001380| 72 6d 65 6e 75 25 2c 6e | 29 3a e1 0d 07 80 04 0d |rmenu%,n|):......|
|00001390| 07 8a 3d f4 20 2a 2a 47 | 6f 20 64 6f 77 6e 20 74 |..=. **G|o down t|
|000013a0| 68 72 6f 75 67 68 20 61 | 72 72 61 79 73 2c 20 73 |hrough a|rrays, s|
|000013b0| 68 75 66 66 6c 69 6e 67 | 20 74 68 65 20 6f 6e 65 |huffling| the one|
|000013c0| 73 20 62 65 6c 6f 77 20 | 75 70 2a 2a 0d 07 94 15 |s below |up**....|
|000013d0| e3 20 4c 3d 6e 20 b8 20 | 28 74 6f 74 61 6c 2d 31 |. L=n . |(total-1|
|000013e0| 29 0d 07 9e 1b 66 6f 6c | 64 65 72 24 28 4c 29 3d |)....fol|der$(L)=|
|000013f0| 66 6f 6c 64 65 72 24 28 | 4c 2b 31 29 0d 07 a8 17 |folder$(|L+1)....|
|00001400| 63 6f 70 79 24 28 4c 29 | 3d 63 6f 70 79 24 28 4c |copy$(L)|=copy$(L|
|00001410| 2b 31 29 0d 07 b2 07 ed | 20 4c 0d 07 bc 04 0d 07 |+1).....| L......|
|00001420| c6 36 f4 20 2a 2a 44 65 | 63 72 65 6d 65 6e 74 20 |.6. **De|crement |
|00001430| 74 6f 74 61 6c 2c 20 61 | 6e 64 20 72 65 6d 6f 76 |total, a|nd remov|
|00001440| 65 20 66 6f 6c 64 65 72 | 20 66 72 6f 6d 20 6d 65 |e folder| from me|
|00001450| 6e 75 2a 2a 0d 07 d0 0c | 74 6f 74 61 6c 2d 3d 31 |nu**....|total-=1|
|00001460| 0d 07 da 27 f2 77 69 6d | 70 5f 72 65 6d 6f 76 65 |...'.wim|p_remove|
|00001470| 6d 65 6e 75 69 74 65 6d | 28 66 6f 6c 64 65 72 6d |menuitem|(folderm|
|00001480| 65 6e 75 25 2c 6e 29 0d | 07 e4 05 e1 0d 07 ee 05 |enu%,n).|........|
|00001490| 3a 0d 07 f8 12 dd 20 f2 | 73 61 76 65 66 6f 6c 64 |:..... .|savefold|
|000014a0| 65 72 73 0d 08 02 31 f4 | 20 2a 2a 49 66 20 74 68 |ers...1.| **If th|
|000014b0| 65 72 65 20 61 72 65 20 | 6e 6f 20 66 6f 6c 64 65 |ere are |no folde|
|000014c0| 72 73 2c 20 74 68 65 6e | 20 77 61 72 6e 20 75 73 |rs, then| warn us|
|000014d0| 65 72 2a 2a 0d 08 0c 7c | e7 20 74 6f 74 61 6c 3d |er**...||. total=|
|000014e0| 30 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 61 70 |0 .wimp_|error(ap|
|000014f0| 70 6e 61 6d 65 24 2c 22 | 57 61 72 6e 69 6e 67 3a |pname$,"|Warning:|
|00001500| 20 54 68 65 72 65 20 61 | 72 65 20 6e 6f 20 66 6f | There a|re no fo|
|00001510| 6e 74 20 66 6f 6c 64 65 | 72 73 20 6b 6e 6f 77 6e |nt folde|rs known|
|00001520| 20 74 6f 20 21 46 6f 6e | 74 52 75 6e 2e 20 4e 6f | to !Fon|tRun. No|
|00001530| 6e 65 20 77 69 6c 6c 20 | 62 65 20 72 75 6e 20 77 |ne will |be run w|
|00001540| 68 65 6e 20 62 6f 6f 74 | 65 64 22 2c 31 2c 32 29 |hen boot|ed",1,2)|
|00001550| 0d 08 16 04 0d 08 20 2b | f4 20 2a 2a 4f 70 65 6e |...... +|. **Open|
|00001560| 20 66 69 6c 65 20 77 68 | 65 72 65 20 73 70 65 63 | file wh|ere spec|
|00001570| 69 66 69 65 64 20 69 6e | 20 21 52 75 6e 2a 2a 0d |ified in| !Run**.|
|00001580| 08 2a 28 66 69 6c 65 25 | 3d ae 28 22 3c 46 6f 6e |.*(file%|=.("<Fon|
|00001590| 74 52 75 6e 52 65 73 24 | 50 61 74 68 3e 2e 46 6f |tRunRes$|Path>.Fo|
|000015a0| 6c 64 65 72 73 22 29 0d | 08 34 04 0d 08 3e 27 f4 |lders").|.4...>'.|
|000015b0| 20 2a 2a 53 74 6f 72 65 | 20 68 6f 74 6b 65 79 20 | **Store| hotkey |
|000015c0| 6e 75 6d 62 65 72 20 61 | 6e 64 20 74 6f 74 61 6c |number a|nd total|
|000015d0| 2a 2a 0d 08 48 12 f1 23 | 66 69 6c 65 25 2c 68 6f |**..H..#|file%,ho|
|000015e0| 74 6b 65 79 0d 08 52 11 | f1 23 66 69 6c 65 25 2c |tkey..R.|.#file%,|
|000015f0| 74 6f 74 61 6c 0d 08 5c | 04 0d 08 66 45 f4 20 2a |total..\|...fE. *|
|00001600| 2a 49 66 20 74 68 65 72 | 65 20 61 72 65 20 6e 6f |*If ther|e are no|
|00001610| 20 66 6f 6c 64 65 72 20 | 70 61 74 68 73 20 74 6f | folder |paths to|
|00001620| 20 73 74 6f 72 65 20 74 | 68 65 6e 20 63 6c 6f 73 | store t|hen clos|
|00001630| 65 20 61 6e 64 20 72 65 | 74 75 72 6e 2a 2a 0d 08 |e and re|turn**..|
|00001640| 70 30 e7 20 74 6f 74 61 | 6c 3d 30 20 d9 23 66 69 |p0. tota|l=0 .#fi|
|00001650| 6c 65 25 3a f2 77 69 6d | 70 5f 63 6c 6f 73 65 77 |le%:.wim|p_closew|
|00001660| 69 6e 64 6f 77 28 63 6f | 6e 66 25 29 3a e1 0d 08 |indow(co|nf%):...|
|00001670| 7a 04 0d 08 84 21 f4 20 | 2a 2a 53 74 6f 72 65 20 |z....!. |**Store |
|00001680| 61 6c 6c 20 74 68 65 20 | 70 61 74 68 6e 61 6d 65 |all the |pathname|
|00001690| 73 2a 2a 0d 08 8e 11 e3 | 20 4c 3d 31 20 b8 20 74 |s**.....| L=1 . t|
|000016a0| 6f 74 61 6c 0d 08 98 14 | f1 23 66 69 6c 65 25 2c |otal....|.#file%,|
|000016b0| 63 6f 70 79 24 28 4c 29 | 0d 08 a2 07 ed 20 4c 0d |copy$(L)|..... L.|
|000016c0| 08 ac 0b d9 23 66 69 6c | 65 25 0d 08 b6 04 0d 08 |....#fil|e%......|
|000016d0| c0 21 f4 20 2a 2a 43 6c | 6f 73 65 20 74 68 65 20 |.!. **Cl|ose the |
|000016e0| 63 6f 6e 66 69 67 20 77 | 69 6e 64 6f 77 2a 2a 0d |config w|indow**.|
|000016f0| 08 ca 1c f2 77 69 6d 70 | 5f 63 6c 6f 73 65 77 69 |....wimp|_closewi|
|00001700| 6e 64 6f 77 28 63 6f 6e | 66 25 29 0d 08 d4 05 e1 |ndow(con|f%).....|
|00001710| 0d 08 de 05 3a 0d 08 e8 | 14 dd 20 f2 6c 6f 61 64 |....:...|.. .load|
|00001720| 69 6e 66 6f 6c 64 65 72 | 73 0d 08 f2 2d f4 20 2a |infolder|s...-. *|
|00001730| 2a 43 68 65 63 6b 20 74 | 68 61 74 20 74 68 65 20 |*Check t|hat the |
|00001740| 46 6f 6c 64 65 72 73 20 | 66 69 6c 65 20 65 78 73 |Folders |file exs|
|00001750| 69 73 74 73 2a 2a 0d 08 | fc 36 c8 99 22 4f 53 5f |ists**..|.6.."OS_|
|00001760| 46 69 6c 65 22 2c 35 2c | 22 3c 46 6f 6e 74 52 75 |File",5,|"<FontRu|
|00001770| 6e 52 65 73 24 50 61 74 | 68 3e 2e 46 6f 6c 64 65 |nRes$Pat|h>.Folde|
|00001780| 72 73 22 20 b8 20 66 6f | 75 6e 64 25 0d 09 06 04 |rs" . fo|und%....|
|00001790| 0d 09 10 23 f4 20 2a 2a | 49 66 20 69 74 20 64 6f |...#. **|If it do|
|000017a0| 65 73 6e 27 74 20 74 68 | 65 6e 20 72 65 74 75 72 |esn't th|en retur|
|000017b0| 6e 2a 2a 0d 09 1a 10 e7 | 20 66 6f 75 6e 64 25 3d |n**.....| found%=|
|000017c0| 30 20 e1 0d 09 24 04 0d | 09 2e 37 f4 20 2a 2a 4f |0 ...$..|..7. **O|
|000017d0| 70 65 6e 20 66 69 6c 65 | 20 61 6e 64 20 72 65 61 |pen file| and rea|
|000017e0| 64 20 69 6e 20 68 6f 74 | 6b 65 79 20 6e 75 6d 62 |d in hot|key numb|
|000017f0| 65 72 20 61 6e 64 20 74 | 6f 74 61 6c 2a 2a 0d 09 |er and t|otal**..|
|00001800| 38 28 66 69 6c 65 25 3d | 8e 28 22 3c 46 6f 6e 74 |8(file%=|.("<Font|
|00001810| 52 75 6e 52 65 73 24 50 | 61 74 68 3e 2e 46 6f 6c |RunRes$P|ath>.Fol|
|00001820| 64 65 72 73 22 29 0d 09 | 42 12 e8 23 66 69 6c 65 |ders")..|B..#file|
|00001830| 25 2c 68 6f 74 6b 65 79 | 0d 09 4c 11 e8 23 66 69 |%,hotkey|..L..#fi|
|00001840| 6c 65 25 2c 74 6f 74 61 | 6c 0d 09 56 04 0d 09 60 |le%,tota|l..V...`|
|00001850| 3e f4 20 2a 2a 49 46 20 | 6e 6f 20 66 6f 6c 64 65 |>. **IF |no folde|
|00001860| 72 73 20 74 68 65 6e 20 | 62 75 69 6c 64 20 72 65 |rs then |build re|
|00001870| 6d 6f 76 65 20 6d 65 6e | 75 2c 20 61 6e 64 20 70 |move men|u, and p|
|00001880| 75 74 20 68 6f 74 6b 65 | 79 2a 2a 0d 09 6a 3e f4 |ut hotke|y**..j>.|
|00001890| 20 2a 2a 74 65 78 74 20 | 6e 61 6d 65 20 69 6e 20 | **text |name in |
|000018a0| 63 6f 6e 66 69 67 20 77 | 69 6e 64 6f 77 20 20 20 |config w|indow   |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018c0| 20 20 20 20 20 20 20 2a | 2a 0d 09 74 0f e7 20 74 |       *|*..t.. t|
|000018d0| 6f 74 61 6c 3d 30 20 8c | 0d 09 7e 32 f2 77 69 6d |otal=0 .|..~2.wim|
|000018e0| 70 5f 72 65 63 72 65 61 | 74 65 6d 65 6e 75 61 72 |p_recrea|temenuar|
|000018f0| 72 61 79 28 66 6f 6c 64 | 65 72 6d 65 6e 75 25 2c |ray(fold|ermenu%,|
|00001900| 66 6f 6c 64 65 72 24 28 | 29 29 0d 09 88 29 f2 77 |folder$(|))...).w|
|00001910| 69 6d 70 5f 70 75 74 69 | 63 6f 6e 74 65 78 74 28 |imp_puti|context(|
|00001920| 63 6f 6e 66 25 2c 38 2c | 6b 24 28 68 6f 74 6b 65 |conf%,8,|k$(hotke|
|00001930| 79 29 29 0d 09 92 0b d9 | 23 66 69 6c 65 25 0d 09 |y)).....|#file%..|
|00001940| 9c 05 cd 0d 09 a6 0f e7 | 20 74 6f 74 61 6c 3d 30 |........| total=0|
|00001950| 20 e1 0d 09 b0 04 0d 09 | ba 1b f4 20 2a 2a 52 65 | .......|... **Re|
|00001960| 61 64 20 69 6e 20 70 61 | 74 68 6e 61 6d 65 73 2a |ad in pa|thnames*|
|00001970| 2a 0d 09 c4 11 e3 20 4c | 3d 31 20 b8 20 74 6f 74 |*..... L|=1 . tot|
|00001980| 61 6c 0d 09 ce 14 e8 23 | 66 69 6c 65 25 2c 63 6f |al.....#|file%,co|
|00001990| 70 79 24 28 4c 29 0d 09 | d8 04 0d 09 e2 2c f4 20 |py$(L)..|.....,. |
|000019a0| 2a 2a 47 65 74 20 6c 65 | 61 66 6e 61 6d 65 73 20 |**Get le|afnames |
|000019b0| 61 6e 64 20 70 75 74 20 | 69 6e 74 6f 20 66 6f 6c |and put |into fol|
|000019c0| 64 65 72 24 2a 2a 0d 09 | ec 2a 66 6f 6c 64 65 72 |der$**..|.*folder|
|000019d0| 24 28 4c 29 3d a4 77 69 | 6d 70 5f 67 65 74 6c 65 |$(L)=.wi|mp_getle|
|000019e0| 61 66 6e 61 6d 65 28 63 | 6f 70 79 24 28 4c 29 29 |afname(c|opy$(L))|
|000019f0| 0d 09 f6 07 ed 20 4c 0d | 0a 00 0b d9 23 66 69 6c |..... L.|....#fil|
|00001a00| 65 25 0d 0a 0a 04 0d 0a | 14 3b f4 20 2a 2a 41 64 |e%......|.;. **Ad|
|00001a10| 64 20 27 45 4e 44 27 20 | 74 6f 20 65 6e 64 20 6f |d 'END' |to end o|
|00001a20| 66 20 61 72 72 61 79 2c | 20 74 68 65 6e 20 62 75 |f array,| then bu|
|00001a30| 69 6c 64 20 72 65 6d 6f | 76 65 20 6d 65 6e 75 2a |ild remo|ve menu*|
|00001a40| 2a 0d 0a 1e 1a 66 6f 6c | 64 65 72 24 28 74 6f 74 |*....fol|der$(tot|
|00001a50| 61 6c 2b 31 29 3d 22 45 | 4e 44 22 0d 0a 28 32 f2 |al+1)="E|ND"..(2.|
|00001a60| 77 69 6d 70 5f 72 65 63 | 72 65 61 74 65 6d 65 6e |wimp_rec|reatemen|
|00001a70| 75 61 72 72 61 79 28 66 | 6f 6c 64 65 72 6d 65 6e |uarray(f|oldermen|
|00001a80| 75 25 2c 66 6f 6c 64 65 | 72 24 28 29 29 0d 0a 32 |u%,folde|r$())..2|
|00001a90| 04 0d 0a 3c 34 f4 20 2a | 2a 50 75 74 20 74 65 78 |...<4. *|*Put tex|
|00001aa0| 74 20 6e 61 6d 65 20 6f | 66 20 68 6f 74 6b 65 79 |t name o|f hotkey|
|00001ab0| 20 69 6e 74 6f 20 63 6f | 6e 66 69 67 20 77 69 6e | into co|nfig win|
|00001ac0| 64 6f 77 2a 2a 0d 0a 46 | 29 f2 77 69 6d 70 5f 70 |dow**..F|).wimp_p|
|00001ad0| 75 74 69 63 6f 6e 74 65 | 78 74 28 63 6f 6e 66 25 |uticonte|xt(conf%|
|00001ae0| 2c 38 2c 6b 24 28 68 6f | 74 6b 65 79 29 29 0d 0a |,8,k$(ho|tkey))..|
|00001af0| 50 05 e1 0d 0a 5a 05 3a | 0d 0a 64 12 dd 20 a4 63 |P....Z.:|..d.. .c|
|00001b00| 68 65 63 6b 66 6f 72 61 | 6c 74 0d 0a 6e 35 f4 20 |heckfora|lt..n5. |
|00001b10| 2a 2a 49 66 20 52 69 67 | 68 74 20 41 6c 74 20 69 |**If Rig|ht Alt i|
|00001b20| 73 20 6e 6f 74 20 70 72 | 65 73 73 65 64 20 74 68 |s not pr|essed th|
|00001b30| 65 6e 20 72 65 74 75 72 | 6e 20 61 20 30 2a 2a 0d |en retur|n a 0**.|
|00001b40| 0a 78 22 c8 99 22 4f 53 | 5f 42 79 74 65 22 2c 31 |.x".."OS|_Byte",1|
|00001b50| 32 31 2c 31 33 36 20 b8 | 20 2c 70 72 65 73 73 65 |21,136 .| ,presse|
|00001b60| 64 0d 0a 82 0c 3d 70 72 | 65 73 73 65 64 0d 0a 8c |d....=pr|essed...|
|00001b70| 05 3a 0d 0a 96 10 dd 20 | f2 62 6f 6f 74 66 6f 6e |.:..... |.bootfon|
|00001b80| 74 73 0d 0a a0 24 f4 20 | 2a 2a 43 68 65 63 6b 20 |ts...$. |**Check |
|00001b90| 46 6f 6c 64 65 72 73 20 | 66 69 6c 65 20 65 78 73 |Folders |file exs|
|00001ba0| 69 73 74 73 2a 2a 0d 0a | aa 36 c8 99 22 4f 53 5f |ists**..|.6.."OS_|
|00001bb0| 46 69 6c 65 22 2c 35 2c | 22 3c 46 6f 6e 74 52 75 |File",5,|"<FontRu|
|00001bc0| 6e 52 65 73 24 50 61 74 | 68 3e 2e 46 6f 6c 64 65 |nRes$Pat|h>.Folde|
|00001bd0| 72 73 22 20 b8 20 66 6f | 75 6e 64 25 0d 0a b4 04 |rs" . fo|und%....|
|00001be0| 0d 0a be 1c f4 20 2a 2a | 49 66 20 6e 6f 74 20 74 |..... **|If not t|
|00001bf0| 68 65 6e 20 72 65 74 75 | 72 6e 2a 2a 0d 0a c8 10 |hen retu|rn**....|
|00001c00| e7 20 66 6f 75 6e 64 25 | 3d 30 20 e1 0d 0a d2 04 |. found%|=0 .....|
|00001c10| 0d 0a dc 11 f4 20 2a 2a | 4f 70 65 6e 20 69 74 2a |..... **|Open it*|
|00001c20| 2a 0d 0a e6 28 66 69 6c | 65 25 3d 8e 28 22 3c 46 |*...(fil|e%=.("<F|
|00001c30| 6f 6e 74 52 75 6e 52 65 | 73 24 50 61 74 68 3e 2e |ontRunRe|s$Path>.|
|00001c40| 46 6f 6c 64 65 72 73 22 | 29 0d 0a f0 04 0d 0a fa |Folders"|).......|
|00001c50| 35 f4 20 2a 2a 52 65 61 | 64 20 69 6e 20 68 6f 74 |5. **Rea|d in hot|
|00001c60| 6b 65 79 20 61 6e 64 20 | 63 68 65 63 6b 20 74 68 |key and |check th|
|00001c70| 61 74 20 69 74 20 69 73 | 20 70 72 65 73 73 65 64 |at it is| pressed|
|00001c80| 2a 2a 0d 0b 04 12 e8 23 | 66 69 6c 65 25 2c 68 6f |**.....#|file%,ho|
|00001c90| 74 6b 65 79 0d 0b 0e 2d | c8 99 22 4f 53 5f 42 79 |tkey...-|.."OS_By|
|00001ca0| 74 65 22 2c 31 32 31 2c | 28 68 6f 74 6b 65 79 20 |te",121,|(hotkey |
|00001cb0| 82 20 26 38 30 29 20 b8 | 20 2c 70 72 65 73 73 65 |. &80) .| ,presse|
|00001cc0| 64 0d 0b 18 04 0d 0b 22 | 28 f4 20 2a 2a 49 66 20 |d......"|(. **If |
|00001cd0| 69 74 20 69 73 20 74 68 | 65 6e 20 64 6f 6e 27 74 |it is th|en don't|
|00001ce0| 20 62 6f 6f 74 20 66 6f | 6e 74 73 2a 2a 0d 0b 2c | boot fo|nts**..,|
|00001cf0| 1b e7 20 70 72 65 73 73 | 65 64 3d 26 46 46 20 d9 |.. press|ed=&FF .|
|00001d00| 23 66 69 6c 65 25 3a e1 | 0d 0b 36 04 0d 0b 40 3b |#file%:.|..6...@;|
|00001d10| f4 20 2a 2a 52 65 61 64 | 20 69 6e 20 70 61 74 68 |. **Read| in path|
|00001d20| 6e 61 6d 65 73 20 28 69 | 66 20 74 68 65 72 65 20 |names (i|f there |
|00001d30| 69 73 20 61 6e 79 29 20 | 61 6e 64 20 2a 52 75 6e |is any) |and *Run|
|00001d40| 20 74 68 65 6d 2a 2a 0d | 0b 4a 11 e8 23 66 69 6c | them**.|.J..#fil|
|00001d50| 65 25 2c 74 6f 74 61 6c | 0d 0b 54 17 e7 20 74 6f |e%,total|..T.. to|
|00001d60| 74 61 6c 3d 30 20 d9 23 | 66 69 6c 65 25 3a e1 0d |tal=0 .#|file%:..|
|00001d70| 0b 5e 11 e3 20 4c 3d 31 | 20 b8 20 74 6f 74 61 6c |.^.. L=1| . total|
|00001d80| 0d 0b 68 11 e8 23 66 69 | 6c 65 25 2c 70 61 74 68 |..h..#fi|le%,path|
|00001d90| 24 0d 0b 72 1a ff 22 52 | 75 6e 20 22 2b 70 61 74 |$..r.."R|un "+pat|
|00001da0| 68 24 2b 22 2e 21 42 6f | 6f 74 22 0d 0b 7c 07 ed |h$+".!Bo|ot"..|..|
|00001db0| 20 4c 0d 0b 86 0b d9 23 | 66 69 6c 65 25 0d 0b 90 | L.....#|file%...|
|00001dc0| 05 e1 0d 0b 9a 05 3a 0d | 0b a4 0b dd 20 f2 67 72 |......:.|.... .gr|
|00001dd0| 61 62 0d 0b ae 30 f4 20 | 2a 2a 52 65 70 65 61 74 |ab...0. |**Repeat|
|00001de0| 20 75 6e 74 69 6c 20 61 | 20 76 61 6c 69 64 20 68 | until a| valid h|
|00001df0| 6f 74 6b 65 79 20 69 73 | 20 70 72 65 73 73 65 64 |otkey is| pressed|
|00001e00| 2a 2a 0d 0b b8 05 f5 0d | 0b c2 0a 44 4f 4e 45 3d |**......|...DONE=|
|00001e10| a3 0d 0b cc 04 0d 0b d6 | 2e f4 20 2a 2a 52 65 70 |........|.. **Rep|
|00001e20| 65 61 74 20 75 6e 74 69 | 6c 20 71 75 69 74 74 69 |eat unti|l quitti|
|00001e30| 6e 67 20 6f 72 20 6b 65 | 79 20 70 72 65 73 73 65 |ng or ke|y presse|
|00001e40| 64 2a 2a 0d 0b e0 05 f5 | 0d 0b ea 04 0d 0b f4 1c |d**.....|........|
|00001e50| f4 20 2a 2a 50 6f 6c 6c | 20 74 68 65 20 77 69 6d |. **Poll| the wim|
|00001e60| 70 20 6f 6e 63 65 2a 2a | 0d 0b fe 14 f2 77 69 6d |p once**|.....wim|
|00001e70| 70 5f 73 69 6e 67 6c 65 | 70 6f 6c 6c 0d 0c 08 04 |p_single|poll....|
|00001e80| 0d 0c 12 17 f4 20 2a 2a | 53 63 61 6e 20 6b 65 79 |..... **|Scan key|
|00001e90| 62 6f 61 72 64 2a 2a 0d | 0c 1c 22 c8 99 22 4f 53 |board**.|..".."OS|
|00001ea0| 5f 42 79 74 65 22 2c 31 | 32 39 2c 26 37 43 2c 26 |_Byte",1|29,&7C,&|
|00001eb0| 46 46 20 b8 20 2c 6b 65 | 79 0d 0c 26 04 0d 0c 30 |FF . ,ke|y..&...0|
|00001ec0| 40 f4 20 2a 2a 49 66 20 | 61 20 6b 65 79 20 69 73 |@. **If |a key is|
|00001ed0| 20 70 72 65 73 73 65 64 | 20 28 6e 6f 74 20 6d 6f | pressed| (not mo|
|00001ee0| 75 73 65 20 62 75 74 74 | 6f 6e 73 29 20 74 68 65 |use butt|ons) the|
|00001ef0| 6e 20 44 4f 4e 45 3d 54 | 52 55 45 2a 2a 0d 0c 3a |n DONE=T|RUE**..:|
|00001f00| 3b e7 20 6b 65 79 3c 3e | 26 46 46 20 80 20 6b 65 |;. key<>|&FF . ke|
|00001f10| 79 3c 3e 39 20 80 20 6b | 65 79 3c 3e 31 30 20 80 |y<>9 . k|ey<>10 .|
|00001f20| 20 6b 65 79 3c 3e 31 31 | 20 44 4f 4e 45 3d b9 20 | key<>11| DONE=. |
|00001f30| 8b 20 44 4f 4e 45 3d a3 | 0d 0c 44 1a fd 20 66 69 |. DONE=.|..D.. fi|
|00001f40| 6e 69 73 68 65 64 25 3d | b9 20 84 20 44 4f 4e 45 |nished%=|. . DONE|
|00001f50| 3d b9 0d 0c 4e 13 e7 20 | 66 69 6e 69 73 68 65 64 |=...N.. |finished|
|00001f60| 25 3d b9 20 e1 0d 0c 58 | 11 fd 20 6b 24 28 6b 65 |%=. ...X|.. k$(ke|
|00001f70| 79 29 3c 3e 22 22 0d 0c | 62 13 e7 20 66 69 6e 69 |y)<>""..|b.. fini|
|00001f80| 73 68 65 64 25 3d b9 20 | e1 0d 0c 6c 04 0d 0c 76 |shed%=. |...l...v|
|00001f90| 29 f4 20 2a 2a 52 65 6d | 6f 76 65 20 70 72 6f 6d |). **Rem|ove prom|
|00001fa0| 70 74 20 74 6f 20 70 72 | 65 73 73 20 61 20 68 6f |pt to pr|ess a ho|
|00001fb0| 74 6b 65 79 2a 2a 0d 0c | 80 22 f2 77 69 6d 70 5f |tkey**..|.".wimp_|
|00001fc0| 70 75 74 69 63 6f 6e 74 | 65 78 74 28 63 6f 6e 66 |puticont|ext(conf|
|00001fd0| 25 2c 31 33 2c 22 22 29 | 0d 0c 8a 04 0d 0c 94 32 |%,13,"")|.......2|
|00001fe0| f4 20 2a 2a 50 75 74 20 | 74 65 78 74 20 6e 61 6d |. **Put |text nam|
|00001ff0| 65 20 6f 66 20 68 6f 74 | 6b 65 79 20 69 6e 20 63 |e of hot|key in c|
|00002000| 6f 6e 66 69 67 20 77 69 | 6e 64 6f 77 2a 2a 0d 0c |onfig wi|ndow**..|
|00002010| 9e 26 f2 77 69 6d 70 5f | 70 75 74 69 63 6f 6e 74 |.&.wimp_|puticont|
|00002020| 65 78 74 28 63 6f 6e 66 | 25 2c 38 2c 6b 24 28 6b |ext(conf|%,8,k$(k|
|00002030| 65 79 29 29 0d 0c a8 0e | 68 6f 74 6b 65 79 3d 6b |ey))....|hotkey=k|
|00002040| 65 79 0d 0c b2 05 e1 0d | 0c bc 05 3a 0d 0c c6 0f |ey......|...:....|
|00002050| dd 20 f2 72 65 61 64 6b | 65 79 73 0d 0c d0 0b 6b |. .readk|eys....k|
|00002060| 24 28 29 3d 22 22 0d 0c | da 05 f7 0d 0c e4 04 0d |$()=""..|........|
|00002070| 0c ee 35 f4 20 2a 2a 46 | 6f 72 20 65 61 63 68 20 |..5. **F|or each |
|00002080| 68 6f 74 6b 65 79 20 6e | 75 6d 62 65 72 2c 20 72 |hotkey n|umber, r|
|00002090| 65 61 64 20 69 6e 20 61 | 20 74 65 78 74 20 6e 61 |ead in a| text na|
|000020a0| 6d 65 2a 2a 0d 0c f8 35 | f4 20 2a 2a 4e 6f 74 68 |me**...5|. **Noth|
|000020b0| 69 6e 67 20 6d 65 61 6e | 73 20 74 68 61 74 20 69 |ing mean|s that i|
|000020c0| 74 20 69 73 20 6e 6f 74 | 20 61 20 76 61 6c 69 64 |t is not| a valid|
|000020d0| 20 68 6f 74 6b 65 79 2a | 2a 0d 0d 02 0f e3 20 4c | hotkey*|*..... L|
|000020e0| 3d 33 20 b8 20 31 32 34 | 0d 0d 0c 0b f3 20 6b 24 |=3 . 124|..... k$|
|000020f0| 28 4c 29 0d 0d 16 07 ed | 20 4c 0d 0d 20 05 e1 0d |(L).....| L.. ...|
|00002100| 0d 2a 05 3a 0d 0d 34 cd | dc 20 4c 65 66 74 20 53 |.*.:..4.|. Left S|
|00002110| 68 69 66 74 2c 4c 65 66 | 74 20 43 74 72 6c 2c 4c |hift,Lef|t Ctrl,L|
|00002120| 65 66 74 20 41 6c 74 2c | 52 69 67 68 74 20 53 68 |eft Alt,|Right Sh|
|00002130| 69 66 74 2c 52 69 67 68 | 74 20 43 74 72 6c 2c 22 |ift,Righ|t Ctrl,"|
|00002140| 22 2c 22 22 2c 22 22 2c | 22 22 2c 22 22 2c 22 22 |","","",|"","",""|
|00002150| 2c 22 22 2c 22 22 2c 51 | 2c 33 2c 34 2c 35 2c 46 |,"","",Q|,3,4,5,F|
|00002160| 34 2c 38 2c 46 37 2c 22 | 22 2c 22 22 2c 4c 65 66 |4,8,F7,"|","",Lef|
|00002170| 74 20 61 72 72 6f 77 2c | 6b 65 79 70 61 64 20 36 |t arrow,|keypad 6|
|00002180| 2c 6b 65 79 70 61 64 20 | 37 2c 46 31 31 2c 22 22 |,keypad |7,F11,""|
|00002190| 2c 46 31 30 2c 22 22 2c | 50 72 69 6e 74 2c 57 2c |,F10,"",|Print,W,|
|000021a0| 45 2c 54 2c 37 2c 49 2c | 39 2c 30 2c 22 22 2c 44 |E,T,7,I,|9,0,"",D|
|000021b0| 6f 77 6e 20 61 72 72 6f | 77 2c 6b 65 79 70 61 64 |own arro|w,keypad|
|000021c0| 20 38 2c 6b 65 79 70 61 | 64 20 39 2c 42 72 65 61 | 8,keypa|d 9,Brea|
|000021d0| 6b 0d 0d 3e 31 dc 20 22 | 22 2c 22 22 2c 42 61 63 |k..>1. "|","",Bac|
|000021e0| 6b 20 73 70 61 63 65 2c | 31 2c 32 2c 44 2c 52 2c |k space,|1,2,D,R,|
|000021f0| 36 2c 55 2c 4f 2c 50 2c | 5b 2c 55 70 20 61 72 72 |6,U,O,P,|[,Up arr|
|00002200| 6f 77 0d 0d 48 dc dc 20 | 6b 65 79 70 61 64 20 2b |ow..H.. |keypad +|
|00002210| 2c 6b 65 79 70 61 64 20 | 2d 2c 6b 65 79 70 61 64 |,keypad |-,keypad|
|00002220| 20 45 6e 74 65 72 2c 49 | 6e 73 65 72 74 2c 48 6f | Enter,I|nsert,Ho|
|00002230| 6d 65 2c 50 61 67 65 20 | 55 70 2c 22 22 2c 41 2c |me,Page |Up,"",A,|
|00002240| 58 2c 46 2c 59 2c 4a 2c | 4b 2c 22 22 2c 22 22 2c |X,F,Y,J,|K,"","",|
|00002250| 52 65 74 75 72 6e 2c 6b | 65 79 70 61 64 20 2f 2c |Return,k|eypad /,|
|00002260| 22 22 2c 6b 65 79 70 61 | 64 20 2e 2c 22 22 2c 50 |"",keypa|d .,"",P|
|00002270| 61 67 65 20 44 6f 77 6e | 2c 22 22 2c 22 22 2c 53 |age Down|,"","",S|
|00002280| 2c 43 2c 47 2c 48 2c 4e | 2c 4c 2c 22 22 2c 5d 2c |,C,G,H,N|,L,"",],|
|00002290| 44 65 6c 65 74 65 2c 6b | 65 79 70 61 64 20 23 2c |Delete,k|eypad #,|
|000022a0| 6b 65 79 70 61 64 20 2a | 2c 3d 2c 22 22 2c 22 22 |keypad *|,=,"",""|
|000022b0| 2c 2c 54 61 62 2c 5a 2c | 53 70 61 63 65 20 62 61 |,,Tab,Z,|Space ba|
|000022c0| 72 2c 56 2c 42 2c 4d 2c | 22 22 2c 22 22 2c 22 22 |r,V,B,M,|"","",""|
|000022d0| 2c 43 6f 70 79 2c 6b 65 | 79 70 61 64 20 30 0d 0d |,Copy,ke|ypad 0..|
|000022e0| 52 62 dc 20 6b 65 79 70 | 61 64 20 31 2c 6b 61 79 |Rb. keyp|ad 1,kay|
|000022f0| 70 61 64 20 33 2c 22 22 | 2c 22 22 2c 22 22 2c 22 |pad 3,""|,"","","|
|00002300| 22 2c 46 31 2c 46 32 2c | 46 33 2c 46 35 2c 46 36 |",F1,F2,|F3,F5,F6|
|00002310| 2c 46 38 2c 46 39 2c 22 | 22 2c 52 69 67 68 74 20 |,F8,F9,"|",Right |
|00002320| 61 72 72 6f 77 2c 6b 65 | 79 70 61 64 20 34 2c 6b |arrow,ke|ypad 4,k|
|00002330| 65 79 70 61 64 20 35 2c | 6b 65 79 70 61 64 20 32 |eypad 5,|keypad 2|
|00002340| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+