/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / N-P / OmniScript 2.0.1.sit / OmniScript 2.0.1 / Examples / Finder Examples / Finder Play

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 46 69 6e 64 65 72 | 20 50 6c 61 79 00 00 00 |..Finder| Play...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 78 50 | 72 00 00 00 00 00 00 00 |.TEXTExP|r.......|
|00000050| 00 00 00 00 00 0e 17 00 | 00 01 5c a8 b6 81 58 a8 |........|..\...X.|
|00000060| b6 81 58 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..X.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c6 a9 00 00 |........|........|
|00000080| 24 6c 69 73 74 20 3d 20 | 30 0d 24 64 65 73 74 20 |$list = |0.$dest |
|00000090| 3d 20 30 0d 61 20 3d 20 | 27 22 49 6e 69 74 69 61 |= 0.a = |'"Initia|
|000000a0| 6c 69 7a 65 20 4c 69 73 | 74 22 20 22 41 64 64 20 |lize Lis|t" "Add |
|000000b0| 46 69 6c 65 73 22 20 22 | 41 64 64 20 41 20 46 6f |Files" "|Add A Fo|
|000000c0| 6c 64 65 72 22 20 22 53 | 65 6c 65 63 74 20 44 65 |lder" "S|elect De|
|000000d0| 73 74 69 6e 61 74 69 6f | 6e 22 20 22 44 65 73 74 |stinatio|n" "Dest|
|000000e0| 69 6e 61 74 69 6f 6e 20 | 54 72 61 73 68 22 20 22 |ination |Trash" "|
|000000f0| 44 65 73 74 69 6e 61 74 | 69 6f 6e 20 44 65 73 6b |Destinat|ion Desk|
|00000100| 74 6f 70 22 27 0d 6c 76 | 61 6c 20 61 2c 78 4c 69 |top"'.lv|al a,xLi|
|00000110| 73 74 0d 6d 65 6e 75 20 | 6e 65 77 2c 32 30 2c 30 |st.menu |new,20,0|
|00000120| 2c 78 4c 69 73 74 0d 78 | 46 75 6e 63 74 69 6f 6e |,xList.x|Function|
|00000130| 5b 31 5d 20 3d 20 22 53 | 68 6f 77 20 41 62 6f 75 |[1] = "S|how Abou|
|00000140| 74 22 0d 24 62 5b 31 5d | 20 3d 20 22 73 68 6f 77 |t".$b[1]| = "show|
|00000150| 61 62 6f 75 74 22 0d 78 | 46 75 6e 63 74 69 6f 6e |about".x|Function|
|00000160| 5b 32 5d 20 3d 20 22 48 | 69 64 65 20 41 62 6f 75 |[2] = "H|ide Abou|
|00000170| 74 22 0d 24 62 5b 32 5d | 20 3d 20 22 68 69 64 65 |t".$b[2]| = "hide|
|00000180| 61 62 6f 75 74 22 0d 78 | 46 75 6e 63 74 69 6f 6e |about".x|Function|
|00000190| 5b 33 5d 20 3d 20 22 53 | 68 6f 77 20 43 6c 69 70 |[3] = "S|how Clip|
|000001a0| 22 0d 24 62 5b 33 5d 20 | 3d 20 22 73 68 6f 77 63 |".$b[3] |= "showc|
|000001b0| 6c 69 70 22 0d 78 46 75 | 6e 63 74 69 6f 6e 5b 34 |lip".xFu|nction[4|
|000001c0| 5d 20 3d 20 22 48 69 64 | 65 20 43 6c 69 70 22 0d |] = "Hid|e Clip".|
|000001d0| 24 62 5b 34 5d 20 3d 20 | 22 68 69 64 65 63 6c 69 |$b[4] = |"hidecli|
|000001e0| 70 22 0d 78 46 75 6e 63 | 74 69 6f 6e 5b 35 5d 20 |p".xFunc|tion[5] |
|000001f0| 3d 20 22 45 6d 70 74 79 | 20 54 72 61 73 68 22 0d |= "Empty| Trash".|
|00000200| 24 62 5b 35 5d 20 3d 20 | 22 65 6d 70 74 79 22 0d |$b[5] = |"empty".|
|00000210| 78 46 75 6e 63 74 69 6f | 6e 5b 36 5d 20 3d 20 22 |xFunctio|n[6] = "|
|00000220| 2d 28 22 0d 78 46 75 6e | 63 74 69 6f 6e 5b 37 5d |-(".xFun|ction[7]|
|00000230| 20 3d 20 22 4f 70 65 6e | 22 0d 24 62 5b 37 5d 20 | = "Open|".$b[7] |
|00000240| 3d 20 22 6f 70 65 6e 22 | 0d 78 46 75 6e 63 74 69 |= "open"|.xFuncti|
|00000250| 6f 6e 5b 38 5d 20 3d 20 | 22 50 72 69 6e 74 22 0d |on[8] = |"Print".|
|00000260| 24 62 5b 38 5d 20 3d 20 | 22 70 72 69 6e 74 22 0d |$b[8] = |"print".|
|00000270| 78 46 75 6e 63 74 69 6f | 6e 5b 39 5d 20 3d 20 22 |xFunctio|n[9] = "|
|00000280| 47 65 74 20 49 6e 66 6f | 22 0d 24 62 5b 39 5d 20 |Get Info|".$b[9] |
|00000290| 3d 20 22 69 6e 66 6f 22 | 0d 78 46 75 6e 63 74 69 |= "info"|.xFuncti|
|000002a0| 6f 6e 5b 31 30 5d 20 3d | 20 22 53 68 61 72 69 6e |on[10] =| "Sharin|
|000002b0| 67 22 0d 24 62 5b 31 30 | 5d 20 3d 20 22 73 68 61 |g".$b[10|] = "sha|
|000002c0| 72 69 6e 67 22 0d 78 46 | 75 6e 63 74 69 6f 6e 5b |ring".xF|unction[|
|000002d0| 31 31 5d 20 3d 20 22 44 | 75 70 6c 69 63 61 74 65 |11] = "D|uplicate|
|000002e0| 22 0d 24 62 5b 31 31 5d | 20 3d 20 22 64 75 70 6c |".$b[11]| = "dupl|
|000002f0| 69 63 61 74 65 22 0d 78 | 46 75 6e 63 74 69 6f 6e |icate".x|Function|
|00000300| 5b 31 32 5d 20 3d 20 22 | 4d 61 6b 65 20 41 6c 69 |[12] = "|Make Ali|
|00000310| 61 73 22 0d 24 62 5b 31 | 32 5d 20 3d 20 22 61 6c |as".$b[1|2] = "al|
|00000320| 69 61 73 22 0d 78 46 75 | 6e 63 74 69 6f 6e 5b 31 |ias".xFu|nction[1|
|00000330| 33 5d 20 3d 20 22 50 75 | 74 20 41 77 61 79 22 0d |3] = "Pu|t Away".|
|00000340| 24 62 5b 31 33 5d 20 3d | 20 22 70 75 74 61 77 61 |$b[13] =| "putawa|
|00000350| 79 22 0d 78 46 75 6e 63 | 74 69 6f 6e 5b 31 34 5d |y".xFunc|tion[14]|
|00000360| 20 3d 20 22 2d 28 22 0d | 78 46 75 6e 63 74 69 6f | = "-(".|xFunctio|
|00000370| 6e 5b 31 35 5d 20 3d 20 | 22 4d 6f 76 65 22 0d 24 |n[15] = |"Move".$|
|00000380| 62 5b 31 35 5d 20 3d 20 | 22 6d 6f 76 65 22 0d 78 |b[15] = |"move".x|
|00000390| 46 75 6e 63 74 69 6f 6e | 5b 31 36 5d 20 3d 20 22 |Function|[16] = "|
|000003a0| 44 72 61 67 22 0d 24 62 | 5b 31 36 5d 20 3d 20 22 |Drag".$b|[16] = "|
|000003b0| 64 72 61 67 22 0d 78 46 | 75 6e 63 74 69 6f 6e 5b |drag".xF|unction[|
|000003c0| 31 37 5d 20 3d 20 22 2d | 28 22 0d 78 46 75 6e 63 |17] = "-|(".xFunc|
|000003d0| 74 69 6f 6e 5b 31 38 5d | 20 3d 20 22 53 68 6f 77 |tion[18]| = "Show|
|000003e0| 22 0d 24 62 5b 31 38 5d | 20 3d 20 22 73 68 6f 77 |".$b[18]| = "show|
|000003f0| 22 0d 78 46 75 6e 63 74 | 69 6f 6e 5b 31 39 5d 20 |".xFunct|ion[19] |
|00000400| 3d 20 22 43 6c 6f 73 65 | 22 0d 24 62 5b 31 39 5d |= "Close|".$b[19]|
|00000410| 20 3d 20 22 63 6c 6f 73 | 65 22 0d 78 46 75 6e 63 | = "clos|e".xFunc|
|00000420| 74 69 6f 6e 5b 32 30 5d | 20 3d 20 22 43 6c 6f 73 |tion[20]| = "Clos|
|00000430| 65 20 49 6e 66 6f 22 0d | 24 62 5b 32 30 5d 20 3d |e Info".|$b[20] =|
|00000440| 20 22 63 6c 6f 73 65 69 | 6e 66 6f 22 0d 78 46 75 | "closei|nfo".xFu|
|00000450| 6e 63 74 69 6f 6e 5b 32 | 31 5d 20 3d 20 22 43 6c |nction[2|1] = "Cl|
|00000460| 6f 73 65 20 53 68 61 72 | 69 6e 67 22 0d 24 62 5b |ose Shar|ing".$b[|
|00000470| 32 31 5d 20 3d 20 22 63 | 6c 6f 73 65 73 68 61 72 |21] = "c|loseshar|
|00000480| 69 6e 67 22 0d 78 46 75 | 6e 63 74 69 6f 6e 5b 32 |ing".xFu|nction[2|
|00000490| 32 5d 20 3d 20 22 50 72 | 69 6e 74 20 57 69 6e 64 |2] = "Pr|int Wind|
|000004a0| 6f 77 22 0d 24 62 5b 32 | 32 5d 20 3d 20 22 70 72 |ow".$b[2|2] = "pr|
|000004b0| 69 6e 74 77 69 6e 64 6f | 77 22 0d 78 46 75 6e 63 |intwindo|w".xFunc|
|000004c0| 74 69 6f 6e 5b 32 33 5d | 20 3d 20 22 50 61 67 65 |tion[23]| = "Page|
|000004d0| 20 53 65 74 75 70 22 0d | 24 62 5b 32 33 5d 20 3d | Setup".|$b[23] =|
|000004e0| 20 22 70 61 67 65 73 65 | 74 75 70 22 0d 78 46 75 | "pagese|tup".xFu|
|000004f0| 6e 63 74 69 6f 6e 5b 32 | 34 5d 20 3d 20 22 5a 6f |nction[2|4] = "Zo|
|00000500| 6f 6d 20 4f 75 74 22 0d | 24 62 5b 32 34 5d 20 3d |om Out".|$b[24] =|
|00000510| 20 22 7a 6f 6f 6d 6f 75 | 74 22 0d 78 46 75 6e 63 | "zoomou|t".xFunc|
|00000520| 74 69 6f 6e 5b 32 35 5d | 20 3d 20 22 5a 6f 6f 6d |tion[25]| = "Zoom|
|00000530| 20 49 6e 22 0d 24 62 5b | 32 35 5d 20 3d 20 22 7a | In".$b[|25] = "z|
|00000540| 6f 6f 6d 69 6e 22 0d 78 | 46 75 6e 63 74 69 6f 6e |oomin".x|Function|
|00000550| 5b 32 36 5d 20 3d 20 22 | 4d 6f 76 65 20 57 69 6e |[26] = "|Move Win|
|00000560| 64 6f 77 22 0d 78 46 75 | 6e 63 74 69 6f 6e 5b 32 |dow".xFu|nction[2|
|00000570| 37 5d 20 3d 20 22 53 69 | 7a 65 20 57 69 6e 64 6f |7] = "Si|ze Windo|
|00000580| 77 22 0d 78 46 75 6e 63 | 74 69 6f 6e 5b 32 38 5d |w".xFunc|tion[28]|
|00000590| 20 3d 20 22 56 69 65 77 | 22 0d 78 46 75 6e 63 74 | = "View|".xFunct|
|000005a0| 69 6f 6e 20 3d 20 32 38 | 0d 6d 65 6e 75 20 6e 65 |ion = 28|.menu ne|
|000005b0| 77 2c 32 31 2c 30 2c 78 | 46 75 6e 63 74 69 6f 6e |w,21,0,x|Function|
|000005c0| 0d 6d 65 6e 75 73 63 72 | 69 70 74 20 32 30 2c 4c |.menuscr|ipt 20,L|
|000005d0| 69 73 74 0d 6d 65 6e 75 | 73 63 72 69 70 74 20 32 |ist.menu|script 2|
|000005e0| 31 2c 46 75 6e 63 74 69 | 6f 6e 0d 61 20 3d 20 27 |1,Functi|on.a = '|
|000005f0| 53 6d 61 6c 6c 20 49 63 | 6f 6e 20 4e 61 6d 65 20 |Small Ic|on Name |
|00000600| 44 61 74 65 20 53 69 7a | 65 20 4b 69 6e 64 20 43 |Date Siz|e Kind C|
|00000610| 6f 6d 6d 65 6e 74 20 4c | 61 62 65 6c 20 56 65 72 |omment L|abel Ver|
|00000620| 73 69 6f 6e 27 0d 6c 76 | 61 6c 20 61 2c 24 4b 69 |sion'.lv|al a,$Ki|
|00000630| 6e 64 0d 2a 0d 73 63 72 | 69 70 74 20 4c 69 73 74 |nd.*.scr|ipt List|
|00000640| 0d 69 66 20 23 61 72 67 | 28 32 29 20 3d 20 31 0d |.if #arg|(2) = 1.|
|00000650| 09 24 6c 69 73 74 20 3d | 20 30 0d 65 6c 73 65 20 |.$list =| 0.else |
|00000660| 69 66 20 23 61 72 67 28 | 32 29 20 3d 20 32 0d 09 |if #arg(|2) = 2..|
|00000670| 64 69 72 0d 09 74 65 73 | 74 20 28 23 72 65 74 29 |dir..tes|t (#ret)|
|00000680| 20 65 78 69 74 0d 09 6c | 69 73 74 64 69 72 20 6c | exit..l|istdir l|
|00000690| 6c 0d 09 6c 69 73 74 20 | 6c 6c 2c 27 53 65 6c 65 |l..list |ll,'Sele|
|000006a0| 63 74 20 46 69 6c 65 73 | 27 0d 09 69 20 3d 20 30 |ct Files|'..i = 0|
|000006b0| 0d 09 64 6f 0d 09 09 6c | 69 73 74 6e 65 78 74 20 |..do...l|istnext |
|000006c0| 6c 6c 2c 69 0d 09 09 74 | 65 73 74 20 28 69 20 3d |ll,i...t|est (i =|
|000006d0| 20 30 29 20 65 78 69 74 | 0d 09 09 69 6e 63 20 24 | 0) exit|...inc $|
|000006e0| 6c 69 73 74 0d 09 09 61 | 6c 69 61 73 20 24 6c 69 |list...a|lias $li|
|000006f0| 73 74 5b 24 6c 69 73 74 | 5d 20 3d 20 2c 6c 6c 5b |st[$list|] = ,ll[|
|00000700| 69 5d 0d 09 09 69 66 20 | 23 72 65 74 0d 09 09 09 |i]...if |#ret....|
|00000710| 64 65 63 20 24 6c 69 73 | 74 0d 09 09 65 6c 73 65 |dec $lis|t...else|
|00000720| 0d 09 09 09 24 74 79 70 | 65 5b 24 6c 69 73 74 5d |....$typ|e[$list]|
|00000730| 20 3d 20 31 0d 09 09 65 | 6e 64 0d 09 65 6e 64 0d | = 1...e|nd..end.|
|00000740| 65 6c 73 65 20 69 66 20 | 23 61 72 67 28 32 29 20 |else if |#arg(2) |
|00000750| 3d 20 33 0d 09 64 69 72 | 0d 09 74 65 73 74 20 28 |= 3..dir|..test (|
|00000760| 23 72 65 74 29 20 65 78 | 69 74 0d 09 69 6e 63 20 |#ret) ex|it..inc |
|00000770| 24 6c 69 73 74 0d 09 61 | 6c 69 61 73 20 24 6c 69 |$list..a|lias $li|
|00000780| 73 74 5b 24 6c 69 73 74 | 5d 20 3d 20 2c 0d 09 69 |st[$list|] = ,..i|
|00000790| 66 20 23 72 65 74 0d 09 | 09 64 65 63 20 24 6c 69 |f #ret..|.dec $li|
|000007a0| 73 74 0d 09 65 6c 73 65 | 0d 09 09 24 74 79 70 65 |st..else|...$type|
|000007b0| 5b 24 6c 69 73 74 5d 20 | 3d 20 30 0d 09 65 6e 64 |[$list] |= 0..end|
|000007c0| 0d 65 6c 73 65 20 69 66 | 20 23 61 72 67 28 32 29 |.else if| #arg(2)|
|000007d0| 20 3d 20 34 0d 09 24 64 | 65 73 74 20 3d 20 30 0d | = 4..$d|est = 0.|
|000007e0| 09 64 69 72 0d 09 74 65 | 73 74 20 28 23 72 65 74 |.dir..te|st (#ret|
|000007f0| 29 20 65 78 69 74 0d 09 | 61 6c 69 61 73 20 24 6c |) exit..|alias $l|
|00000800| 69 73 74 5b 30 5d 20 3d | 20 2c 0d 09 74 65 73 74 |ist[0] =| ,..test|
|00000810| 20 28 23 72 65 74 20 3d | 20 30 29 20 24 64 65 73 | (#ret =| 0) $des|
|00000820| 74 20 3d 20 31 0d 65 6c | 73 65 20 69 66 20 23 61 |t = 1.el|se if #a|
|00000830| 72 67 28 32 29 20 3d 20 | 35 0d 09 24 64 65 73 74 |rg(2) = |5..$dest|
|00000840| 20 3d 20 30 0d 09 70 61 | 74 68 20 74 72 73 68 2c | = 0..pa|th trsh,|
|00000850| 0d 09 61 6c 69 61 73 20 | 24 6c 69 73 74 5b 30 5d |..alias |$list[0]|
|00000860| 20 3d 20 2c 0d 09 74 65 | 73 74 20 28 23 72 65 74 | = ,..te|st (#ret|
|00000870| 20 3d 20 30 29 20 24 64 | 65 73 74 20 3d 20 31 0d | = 0) $d|est = 1.|
|00000880| 65 6c 73 65 20 69 66 20 | 23 61 72 67 28 32 29 20 |else if |#arg(2) |
|00000890| 3d 20 36 0d 09 24 64 65 | 73 74 20 3d 20 30 0d 09 |= 6..$de|st = 0..|
|000008a0| 70 61 74 68 20 64 65 73 | 6b 2c 0d 09 61 6c 69 61 |path des|k,..alia|
|000008b0| 73 20 24 6c 69 73 74 5b | 30 5d 20 3d 20 2c 0d 09 |s $list[|0] = ,..|
|000008c0| 74 65 73 74 20 28 23 72 | 65 74 20 3d 20 30 29 20 |test (#r|et = 0) |
|000008d0| 24 64 65 73 74 20 3d 20 | 31 0d 65 6e 64 0d 2a 0d |$dest = |1.end.*.|
|000008e0| 73 63 72 69 70 74 20 46 | 75 6e 63 74 69 6f 6e 0d |script F|unction.|
|000008f0| 69 66 20 23 61 72 67 28 | 32 29 20 3c 20 36 0d 09 |if #arg(|2) < 6..|
|00000900| 66 72 6f 6e 74 20 73 69 | 67 6e 3d 27 4d 41 43 53 |front si|gn='MACS|
|00000910| 27 0d 09 66 69 6e 64 65 | 72 20 28 24 62 5b 23 61 |'..finde|r ($b[#a|
|00000920| 72 67 28 32 29 5d 29 0d | 65 6c 73 65 20 69 66 20 |rg(2)]).|else if |
|00000930| 24 6c 69 73 74 20 3d 20 | 30 0d 09 64 69 73 70 6c |$list = |0..displ|
|00000940| 61 79 20 27 4e 6f 20 49 | 74 65 6d 73 20 69 6e 20 |ay 'No I|tems in |
|00000950| 4c 69 73 74 27 0d 09 65 | 78 69 74 0d 65 6c 73 65 |List'..e|xit.else|
|00000960| 20 69 66 20 28 23 61 72 | 67 28 32 29 20 3d 20 31 | if (#ar|g(2) = 1|
|00000970| 35 20 7c 7c 20 23 61 72 | 67 28 32 29 20 3d 20 31 |5 || #ar|g(2) = 1|
|00000980| 36 29 20 26 26 20 24 64 | 65 73 74 20 3d 20 30 0d |6) && $d|est = 0.|
|00000990| 09 64 69 73 70 6c 61 79 | 20 27 4e 6f 20 44 65 73 |.display| 'No Des|
|000009a0| 74 69 6e 61 74 69 6f 6e | 20 46 6f 6c 64 65 72 27 |tination| Folder'|
|000009b0| 0d 09 65 78 69 74 0d 65 | 6c 73 65 20 69 66 20 23 |..exit.e|lse if #|
|000009c0| 61 72 67 28 32 29 20 3c | 20 31 37 0d 09 66 72 6f |arg(2) <| 17..fro|
|000009d0| 6e 74 20 73 69 67 6e 3d | 27 4d 41 43 53 27 0d 09 |nt sign=|'MACS'..|
|000009e0| 66 69 6e 64 65 72 20 28 | 24 62 5b 23 61 72 67 28 |finder (|$b[#arg(|
|000009f0| 32 29 5d 29 2c 24 6c 69 | 73 74 0d 65 6c 73 65 20 |2)]),$li|st.else |
|00000a00| 69 66 20 23 61 72 67 28 | 32 29 20 3c 20 32 36 0d |if #arg(|2) < 26.|
|00000a10| 09 66 72 6f 6e 74 20 73 | 69 67 6e 3d 27 4d 41 43 |.front s|ign='MAC|
|00000a20| 53 27 0d 09 69 20 3d 20 | 30 0d 09 64 6f 20 77 68 |S'..i = |0..do wh|
|00000a30| 69 6c 65 20 69 20 3c 20 | 24 6c 69 73 74 0d 09 09 |ile i < |$list...|
|00000a40| 69 6e 63 20 69 0d 09 09 | 74 65 73 74 20 28 24 74 |inc i...|test ($t|
|00000a50| 79 70 65 5b 69 5d 20 26 | 26 20 23 61 72 67 28 32 |ype[i] &|& #arg(2|
|00000a60| 29 20 21 3d 20 32 30 29 | 20 63 79 63 6c 65 0d 09 |) != 20)| cycle..|
|00000a70| 09 66 69 6e 64 65 72 20 | 28 24 62 5b 23 61 72 67 |.finder |($b[#arg|
|00000a80| 28 32 29 5d 29 2c 24 6c | 69 73 74 5b 69 5d 0d 09 |(2)]),$l|ist[i]..|
|00000a90| 65 6e 64 0d 65 6c 73 65 | 20 69 66 20 23 61 72 67 |end.else| if #arg|
|00000aa0| 28 32 29 20 3d 20 32 36 | 0d 09 65 78 65 63 20 63 |(2) = 26|..exec c|
|00000ab0| 6f 6f 72 64 69 6e 61 74 | 65 73 2c 22 24 74 6f 70 |oordinat|es,"$top|
|00000ac0| 22 2c 27 57 69 6e 64 6f | 77 20 54 6f 70 20 43 6f |",'Windo|w Top Co|
|00000ad0| 6f 72 64 69 6e 61 74 65 | 27 2c 22 24 6c 65 66 74 |ordinate|',"$left|
|00000ae0| 22 2c 27 57 69 6e 64 6f | 77 20 4c 65 66 74 20 43 |",'Windo|w Left C|
|00000af0| 6f 6f 72 64 69 6e 61 74 | 65 27 0d 09 74 65 73 74 |oordinat|e'..test|
|00000b00| 20 28 23 72 65 74 29 20 | 65 78 69 74 0d 09 66 72 | (#ret) |exit..fr|
|00000b10| 6f 6e 74 20 73 69 67 6e | 3d 27 4d 41 43 53 27 0d |ont sign|='MACS'.|
|00000b20| 09 69 20 3d 20 30 0d 09 | 64 6f 20 77 68 69 6c 65 |.i = 0..|do while|
|00000b30| 20 69 20 3c 20 24 6c 69 | 73 74 0d 09 09 69 6e 63 | i < $li|st...inc|
|00000b40| 20 69 0d 09 09 74 65 73 | 74 20 28 24 74 79 70 65 | i...tes|t ($type|
|00000b50| 5b 69 5d 29 20 63 79 63 | 6c 65 0d 09 09 66 69 6e |[i]) cyc|le...fin|
|00000b60| 64 65 72 20 6d 6f 76 65 | 77 69 6e 64 6f 77 2c 24 |der move|window,$|
|00000b70| 6c 69 73 74 5b 69 5d 2c | 74 6f 70 3d 24 74 6f 70 |list[i],|top=$top|
|00000b80| 2c 6c 65 66 74 3d 24 6c | 65 66 74 0d 09 65 6e 64 |,left=$l|eft..end|
|00000b90| 0d 65 6c 73 65 20 69 66 | 20 23 61 72 67 28 32 29 |.else if| #arg(2)|
|00000ba0| 20 3d 20 32 37 0d 09 65 | 78 65 63 20 63 6f 6f 72 | = 27..e|xec coor|
|00000bb0| 64 69 6e 61 74 65 73 2c | 22 24 77 22 2c 27 57 69 |dinates,|"$w",'Wi|
|00000bc0| 6e 64 6f 77 20 57 69 64 | 74 68 27 2c 22 24 68 22 |ndow Wid|th',"$h"|
|00000bd0| 2c 27 57 69 6e 64 6f 77 | 20 48 65 69 67 68 74 27 |,'Window| Height'|
|00000be0| 0d 09 74 65 73 74 20 28 | 23 72 65 74 29 20 65 78 |..test (|#ret) ex|
|00000bf0| 69 74 0d 09 66 72 6f 6e | 74 20 73 69 67 6e 3d 27 |it..fron|t sign='|
|00000c00| 4d 41 43 53 27 0d 09 69 | 20 3d 20 30 0d 09 64 6f |MACS'..i| = 0..do|
|00000c10| 20 77 68 69 6c 65 20 69 | 20 3c 20 24 6c 69 73 74 | while i| < $list|
|00000c20| 0d 09 09 69 6e 63 20 69 | 0d 09 09 74 65 73 74 20 |...inc i|...test |
|00000c30| 28 24 74 79 70 65 5b 69 | 5d 29 20 63 79 63 6c 65 |($type[i|]) cycle|
|00000c40| 0d 09 09 66 69 6e 64 65 | 72 20 73 69 7a 65 77 69 |...finde|r sizewi|
|00000c50| 6e 64 6f 77 2c 24 6c 69 | 73 74 5b 69 5d 2c 68 65 |ndow,$li|st[i],he|
|00000c60| 69 67 68 74 3d 24 68 2c | 77 69 64 74 68 3d 24 77 |ight=$h,|width=$w|
|00000c70| 0d 09 65 6e 64 0d 65 6c | 73 65 20 69 66 20 23 61 |..end.el|se if #a|
|00000c80| 72 67 28 32 29 20 3d 20 | 32 38 0d 09 6c 69 73 74 |rg(2) = |28..list|
|00000c90| 20 24 4b 69 6e 64 2c 22 | 53 65 6c 65 63 74 20 56 | $Kind,"|Select V|
|00000ca0| 69 65 77 20 54 79 70 65 | 22 2c 31 32 38 0d 09 74 |iew Type|",128..t|
|00000cb0| 65 73 74 20 28 23 72 65 | 74 20 7c 7c 20 24 4b 69 |est (#re|t || $Ki|
|00000cc0| 6e 64 5b 2d 31 5d 20 3d | 20 30 29 20 65 78 69 74 |nd[-1] =| 0) exit|
|00000cd0| 0d 09 6a 20 3d 20 30 0d | 09 6c 69 73 74 6e 65 78 |..j = 0.|.listnex|
|00000ce0| 74 20 24 4b 69 6e 64 2c | 6a 0d 09 64 69 73 70 6c |t $Kind,|j..displ|
|00000cf0| 61 79 20 24 4b 69 6e 64 | 5b 6a 5d 0d 09 66 72 6f |ay $Kind|[j]..fro|
|00000d00| 6e 74 20 73 69 67 6e 3d | 27 4d 41 43 53 27 0d 09 |nt sign=|'MACS'..|
|00000d10| 69 20 3d 20 30 0d 09 64 | 6f 20 77 68 69 6c 65 20 |i = 0..d|o while |
|00000d20| 69 20 3c 20 24 6c 69 73 | 74 0d 09 09 69 6e 63 20 |i < $lis|t...inc |
|00000d30| 69 0d 09 09 74 65 73 74 | 20 28 24 74 79 70 65 5b |i...test| ($type[|
|00000d40| 69 5d 29 20 63 79 63 6c | 65 0d 09 09 66 69 6e 64 |i]) cycl|e...find|
|00000d50| 65 72 20 76 69 65 77 2c | 24 6c 69 73 74 5b 69 5d |er view,|$list[i]|
|00000d60| 2c 28 24 4b 69 6e 64 5b | 6a 5d 29 0d 09 65 6e 64 |,($Kind[|j])..end|
|00000d70| 0d 65 6e 64 0d 0d 73 63 | 72 69 70 74 20 63 6f 6f |.end..sc|ript coo|
|00000d80| 72 64 69 6e 61 74 65 73 | 0d 65 78 65 63 20 63 6f |rdinates|.exec co|
|00000d90| 6f 72 64 69 6e 61 74 65 | 2c 23 61 72 67 28 31 29 |ordinate|,#arg(1)|
|00000da0| 2c 23 61 72 67 28 32 29 | 0d 74 65 73 74 20 28 23 |,#arg(2)|.test (#|
|00000db0| 72 65 74 29 20 65 78 69 | 74 20 31 0d 65 78 65 63 |ret) exi|t 1.exec|
|00000dc0| 20 63 6f 6f 72 64 69 6e | 61 74 65 2c 23 61 72 67 | coordin|ate,#arg|
|00000dd0| 28 33 29 2c 23 61 72 67 | 28 34 29 0d 65 78 69 74 |(3),#arg|(4).exit|
|00000de0| 20 23 72 65 74 0d 0d 73 | 63 72 69 70 74 20 63 6f | #ret..s|cript co|
|00000df0| 6f 72 64 69 6e 61 74 65 | 0d 64 6f 0d 09 61 63 63 |ordinate|.do..acc|
|00000e00| 65 70 74 20 78 2c 23 61 | 72 67 28 32 29 0d 09 74 |ept x,#a|rg(2)..t|
|00000e10| 65 73 74 20 28 23 72 65 | 74 29 20 65 78 69 74 20 |est (#re|t) exit |
|00000e20| 31 0d 09 78 20 3d 20 23 | 65 78 70 72 28 78 29 0d |1..x = #|expr(x).|
|00000e30| 09 69 66 20 23 6e 75 6d | 28 78 29 20 3c 20 31 0d |.if #num|(x) < 1.|
|00000e40| 09 09 64 69 73 70 6c 61 | 79 20 27 4e 6f 6e 2d 69 |..displa|y 'Non-i|
|00000e50| 6e 74 65 67 65 72 20 76 | 61 6c 75 65 20 65 6e 74 |nteger v|alue ent|
|00000e60| 65 72 65 64 20 66 6f 72 | 20 27 23 61 72 67 28 32 |ered for| '#arg(2|
|00000e70| 29 0d 09 65 6c 73 65 0d | 09 09 7b 23 61 72 67 28 |)..else.|..{#arg(|
|00000e80| 31 29 7d 20 3d 20 78 0d | 09 09 65 78 69 74 0d 09 |1)} = x.|..exit..|
|00000e90| 65 6e 64 0d 65 6e 64 00 | 00 00 00 00 00 00 00 00 |end.end.|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000f10| 00 00 00 11 00 4f 00 00 | 00 26 07 ff 00 00 8a 91 |.....O..|.&......|
|00000f20| 00 14 00 00 00 03 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 0b 46 69 6e 64 65 72 20 | 50 6c 61 79 02 00 00 00 |.Finder |Play....|
|00000f40| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00000f50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 a9 80 1c 06 00 00 | 00 00 00 00 01 5c 00 00 |........|.....\..|
|00000f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00001010| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00001020| 00 16 00 00 00 46 00 d8 | 82 28 09 30 00 00 00 1c |.....F..|.(.0....|
|00001030| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00001040| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 d9 34 6c |........|......4l|
|00001050| 03 ec ff ff 00 00 00 0e | 00 d9 34 58 00 00 00 00 |........|..4X....|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+