/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / T / ToolKit 5.0.1.sit / ToolKit™ Alignment / ToolKit™ Alignment

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 40 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..@.STAK|........|
|00000010| 00 00 00 0a 00 00 55 a0 | 00 00 40 00 00 00 00 00 |......U.|..@.....|
|00000020| 00 00 00 00 00 00 00 01 | 00 00 0a 11 00 00 00 01 |........|........|
|00000030| 00 00 0b 64 00 00 08 37 | 00 00 00 00 00 00 00 00 |...d...7|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 02 20 80 00 02 20 80 00 | 02 20 80 00 02 20 80 00 |. ... ..|. ... ..|
|00000070| de 34 4a 26 00 00 00 00 | 00 32 00 10 01 12 01 70 |.4J&....|.2.....p|
|00000080| 00 00 00 00 02 70 03 40 | 00 00 00 00 00 00 00 00 |.....p.@|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 0d 7a 00 00 0c d8 | 00 e0 01 60 00 00 00 00 |...z....|...`....|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|000002d0| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|000002e0| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|000002f0| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000300| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000310| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|00000320| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|00000330| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|00000340| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|00000350| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|00000360| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|00000370| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000380| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000390| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|000003a0| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|000003b0| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|000003c0| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|000003d0| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|000003e0| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|000003f0| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000610| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000620| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000630| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000640| b0 b0 b0 b0 b0 b0 b0 0d | 0d 41 20 4c 20 49 20 47 |........|.A L I G|
|00000650| 20 4e 20 4d 20 45 20 4e | 20 54 20 20 20 54 20 4f | N M E N| T   T O|
|00000660| 20 4f 20 4c 20 53 20 20 | 28 54 6f 6f 6c 4b 69 74 | O L S  |(ToolKit|
|00000670| aa 20 35 2e 30 29 0d 0d | 62 79 20 53 74 61 6e 20 |. 5.0)..|by Stan |
|00000680| 47 69 6c 62 65 72 74 0d | 43 6f 70 79 72 69 67 68 |Gilbert.|Copyrigh|
|00000690| 74 20 a9 20 31 39 39 30 | 20 2d 20 31 39 39 34 20 |t . 1990| - 1994 |
|000006a0| a5 20 53 68 61 72 65 64 | 20 49 6e 74 65 6c 6c 69 |. Shared| Intelli|
|000006b0| 67 65 6e 63 65 0d 0d 46 | 65 62 72 75 61 72 79 20 |gence..F|ebruary |
|000006c0| 32 35 74 68 2c 20 31 39 | 39 34 0d 0d b0 b0 b0 b0 |25th, 19|94......|
|000006d0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000006e0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000006f0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000700| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000710| b0 b0 b0 0d 0d 6f 6e 20 | 54 4b 41 6c 69 67 6e 20 |.....on |TKAlign |
|00000720| 6d 6f 64 65 20 2d 2d 20 | d7 0d 67 6c 6f 62 61 6c |mode -- |..global|
|00000730| 20 67 54 4b 41 6c 69 67 | 6e 2c 54 4b 73 65 70 2c | gTKAlig|n,TKsep,|
|00000740| 6f 62 6a 4c 69 73 74 2c | 54 4b 73 72 63 43 61 72 |objList,|TKsrcCar|
|00000750| 64 2c 54 4b 64 73 74 43 | 61 72 64 2c 67 54 4b 64 |d,TKdstC|ard,gTKd|
|00000760| 69 61 6c 6f 67 0d 0d 69 | 66 20 6d 6f 64 65 20 3d |ialog..i|f mode =|
|00000770| 20 22 69 6e 69 74 22 20 | 74 68 65 6e 20 65 78 69 | "init" |then exi|
|00000780| 74 20 74 6f 20 48 79 70 | 65 72 43 61 72 64 0d 73 |t to Hyp|erCard.s|
|00000790| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 77 61 74 |et curso|r to wat|
|000007a0| 63 68 0d 0d 67 65 74 20 | 22 6c 65 66 74 2c 72 69 |ch..get |"left,ri|
|000007b0| 67 68 74 2c 74 6f 70 2c | 62 6f 74 74 6f 6d 2c 22 |ght,top,|bottom,"|
|000007c0| 0d 70 75 74 20 22 74 6f | 70 6c 65 66 74 2c 74 6f |.put "to|pleft,to|
|000007d0| 70 72 69 67 68 74 2c 62 | 6f 74 74 6f 6d 6c 65 66 |pright,b|ottomlef|
|000007e0| 74 2c 62 6f 74 74 6f 6d | 72 69 67 68 74 2c 22 20 |t,bottom|right," |
|000007f0| 61 66 74 65 72 20 69 74 | 0d 70 75 74 20 22 64 6f |after it|.put "do|
|00000800| 77 6e 2c 61 63 72 6f 73 | 73 2c 76 65 72 74 2c 68 |wn,acros|s,vert,h|
|00000810| 6f 72 69 7a 2c 22 20 61 | 66 74 65 72 20 69 74 0d |oriz," a|fter it.|
|00000820| 70 75 74 20 22 63 65 6e | 74 65 72 56 6f 6e 6c 69 |put "cen|terVonli|
|00000830| 6e 65 2c 63 65 6e 74 65 | 72 48 6f 6e 6c 69 6e 65 |ne,cente|rHonline|
|00000840| 2c 63 65 6e 74 65 72 48 | 77 69 6e 64 2c 63 65 6e |,centerH|wind,cen|
|00000850| 74 65 72 56 77 69 6e 64 | 2c 22 20 61 66 74 65 72 |terVwind|," after|
|00000860| 20 69 74 0d 70 75 74 20 | 22 63 65 6e 74 65 72 43 | it.put |"centerC|
|00000870| 75 72 73 6f 72 2c 73 61 | 6d 65 73 69 7a 65 2c 73 |ursor,sa|mesize,s|
|00000880| 65 70 61 72 61 74 69 6f | 6e 2c 6f 75 74 6c 69 6e |eparatio|n,outlin|
|00000890| 65 2c 22 20 61 66 74 65 | 72 20 69 74 0d 70 75 74 |e," afte|r it.put|
|000008a0| 20 22 62 74 6e 50 72 6f | 70 65 72 74 69 65 73 2c | "btnPro|perties,|
|000008b0| 66 6c 64 50 72 6f 70 65 | 72 74 69 65 73 2c 63 6c |fldPrope|rties,cl|
|000008c0| 6f 6e 65 73 63 72 69 70 | 74 2c 64 65 6c 65 74 65 |onescrip|t,delete|
|000008d0| 73 63 72 69 70 74 2c 22 | 20 61 66 74 65 72 20 69 |script,"| after i|
|000008e0| 74 0d 70 75 74 20 22 63 | 75 74 2c 63 6f 70 79 2c |t.put "c|ut,copy,|
|000008f0| 70 61 73 74 65 2c 68 65 | 6c 70 22 61 66 74 65 72 |paste,he|lp"after|
|00000900| 20 69 74 0d 0d 70 75 74 | 20 69 74 65 6d 20 6d 6f | it..put| item mo|
|00000910| 64 65 20 6f 66 20 69 74 | 20 69 6e 74 6f 20 6d 6f |de of it| into mo|
|00000920| 64 65 0d 69 66 20 6d 6f | 64 65 20 3d 20 22 63 65 |de.if mo|de = "ce|
|00000930| 6e 74 65 72 43 75 72 73 | 6f 72 22 20 61 6e 64 20 |nterCurs|or" and |
|00000940| 74 68 65 20 6f 70 74 69 | 6f 6e 4b 65 79 20 69 73 |the opti|onKey is|
|00000950| 20 64 6f 77 6e 20 74 68 | 65 6e 0d 70 75 74 20 22 | down th|en.put "|
|00000960| 63 65 6e 74 65 72 4f 62 | 6a 65 63 74 22 20 69 6e |centerOb|ject" in|
|00000970| 74 6f 20 6d 6f 64 65 0d | 65 6e 64 20 69 66 0d 0d |to mode.|end if..|
|00000980| 69 66 20 54 4b 73 65 70 | 20 3d 20 22 22 20 74 68 |if TKsep| = "" th|
|00000990| 65 6e 20 70 75 74 20 34 | 20 69 6e 74 6f 20 54 4b |en put 4| into TK|
|000009a0| 73 65 70 0d 0d 69 66 20 | 6d 6f 64 65 20 3d 20 22 |sep..if |mode = "|
|000009b0| 73 65 70 61 72 61 74 69 | 6f 6e 22 20 74 68 65 6e |separati|on" then|
|000009c0| 0d 61 73 6b 20 22 57 68 | 61 74 20 73 65 70 61 72 |.ask "Wh|at separ|
|000009d0| 61 74 69 6f 6e 20 64 6f | 20 79 6f 75 20 77 61 6e |ation do| you wan|
|000009e0| 74 3f 22 20 77 69 74 68 | 20 54 4b 73 65 70 0d 69 |t?" with| TKsep.i|
|000009f0| 66 20 69 74 20 3c 3e 20 | 22 22 20 74 68 65 6e 0d |f it <> |"" then.|
|00000a00| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 54 4b 73 65 |put it i|nto TKse|
|00000a10| 70 0d 65 6e 64 20 69 66 | 0d 65 78 69 74 20 74 6f |p.end if|.exit to|
|00000a20| 20 68 79 70 65 72 43 61 | 72 64 0d 0d 65 6c 73 65 | hyperCa|rd..else|
|00000a30| 20 69 66 20 6d 6f 64 65 | 20 3d 20 22 70 61 73 74 | if mode| = "past|
|00000a40| 65 22 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 22 |e" then.|answer "|
|00000a50| 50 61 73 74 65 20 6f 6e | 74 6f c9 22 20 77 69 74 |Paste on|to." wit|
|00000a60| 68 20 22 43 61 72 64 22 | 20 6f 72 20 22 42 61 63 |h "Card"| or "Bac|
|00000a70| 6b 67 72 6f 75 6e 64 22 | 20 6f 72 20 22 43 61 6e |kground"| or "Can|
|00000a80| 63 65 6c 22 0d 69 66 20 | 69 74 20 3d 20 22 43 61 |cel".if |it = "Ca|
|00000a90| 6e 63 65 6c 22 20 74 68 | 65 6e 20 65 78 69 74 20 |ncel" th|en exit |
|00000aa0| 74 6f 20 68 79 70 65 72 | 43 61 72 64 0d 70 75 74 |to hyper|Card.put|
|00000ab0| 20 69 74 20 69 6e 74 6f | 20 63 68 6f 69 63 65 0d | it into| choice.|
|00000ac0| 69 66 20 6f 62 6a 4c 69 | 73 74 20 3d 20 22 22 20 |if objLi|st = "" |
|00000ad0| 74 68 65 6e 0d 62 65 65 | 70 0d 61 6e 73 77 65 72 |then.bee|p.answer|
|00000ae0| 20 22 4e 6f 74 68 69 6e | 67 20 74 6f 20 50 61 73 | "Nothin|g to Pas|
|00000af0| 74 65 21 22 20 77 69 74 | 68 20 22 4f 6b 22 0d 65 |te!" wit|h "Ok".e|
|00000b00| 78 69 74 20 74 6f 20 68 | 79 70 65 72 43 61 72 64 |xit to h|yperCard|
|00000b10| 0d 65 6e 64 20 69 66 0d | 2d 2d 2d 2d 2d 2d 2d 2d |.end if.|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 69 66 20 63 68 6f 69 |--------|.if choi|
|00000b30| 63 65 20 3d 20 22 42 61 | 63 6b 67 72 6f 75 6e 64 |ce = "Ba|ckground|
|00000b40| 22 20 74 68 65 6e 20 64 | 6f 4d 65 6e 75 20 22 42 |" then d|oMenu "B|
|00000b50| 61 63 6b 67 72 6f 75 6e | 64 22 0d 70 75 74 20 74 |ackgroun|d".put t|
|00000b60| 68 65 20 6c 6f 6e 67 20 | 6e 61 6d 65 20 6f 66 20 |he long |name of |
|00000b70| 74 68 69 73 20 63 61 72 | 64 20 69 6e 74 6f 20 54 |this car|d into T|
|00000b80| 4b 64 73 74 43 61 72 64 | 0d 73 65 74 20 6c 6f 63 |KdstCard|.set loc|
|00000b90| 6b 6d 65 73 73 61 67 65 | 73 20 74 6f 20 74 72 75 |kmessage|s to tru|
|00000ba0| 65 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 69 3d |e.repeat| with i=|
|00000bb0| 31 20 74 6f 20 6e 75 6d | 62 65 72 20 6f 66 20 69 |1 to num|ber of i|
|00000bc0| 74 65 6d 73 20 69 6e 20 | 6f 62 6a 4c 69 73 74 0d |tems in |objList.|
|00000bd0| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 62 75 |set curs|or to bu|
|00000be0| 73 79 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 70 |sy.lock |screen.p|
|00000bf0| 75 74 20 22 43 6f 70 79 | 22 20 20 26 26 20 77 6f |ut "Copy|"  && wo|
|00000c00| 72 64 20 32 20 6f 66 20 | 69 74 65 6d 20 69 20 6f |rd 2 of |item i o|
|00000c10| 66 20 6f 62 6a 4c 69 73 | 74 20 69 6e 74 6f 20 63 |f objLis|t into c|
|00000c20| 6f 70 79 0d 70 75 74 20 | 22 50 61 73 74 65 22 20 |opy.put |"Paste" |
|00000c30| 26 26 20 77 6f 72 64 20 | 32 20 6f 66 20 69 74 65 |&& word |2 of ite|
|00000c40| 6d 20 69 20 6f 66 20 6f | 62 6a 4c 69 73 74 20 69 |m i of o|bjList i|
|00000c50| 6e 74 6f 20 70 61 73 74 | 65 0d 73 65 74 20 63 75 |nto past|e.set cu|
|00000c60| 72 73 6f 72 20 74 6f 20 | 62 75 73 79 0d 67 6f 20 |rsor to |busy.go |
|00000c70| 74 6f 20 54 4b 73 72 63 | 43 61 72 64 0d 73 65 6c |to TKsrc|Card.sel|
|00000c80| 65 63 74 20 69 74 65 6d | 20 69 20 6f 66 20 6f 62 |ect item| i of ob|
|00000c90| 6a 4c 69 73 74 0d 64 6f | 4d 65 6e 75 20 63 6f 70 |jList.do|Menu cop|
|00000ca0| 79 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |y.set cu|rsor to |
|00000cb0| 62 75 73 79 0d 67 6f 20 | 74 6f 20 54 4b 64 73 74 |busy.go |to TKdst|
|00000cc0| 43 61 72 64 0d 2d 2d 20 | 69 66 20 63 68 6f 69 63 |Card.-- |if choic|
|00000cd0| 65 20 3d 20 22 42 61 63 | 6b 67 72 6f 75 6e 64 22 |e = "Bac|kground"|
|00000ce0| 20 74 68 65 6e 20 64 6f | 4d 65 6e 75 20 22 42 61 | then do|Menu "Ba|
|00000cf0| 63 6b 67 72 6f 75 6e 64 | 22 0d 64 6f 4d 65 6e 75 |ckground|".doMenu|
|00000d00| 20 70 61 73 74 65 0d 63 | 68 6f 6f 73 65 20 62 72 | paste.c|hoose br|
|00000d10| 6f 77 73 65 20 74 6f 6f | 6c 0d 75 6e 6c 6f 63 6b |owse too|l.unlock|
|00000d20| 20 73 63 72 65 65 6e 0d | 65 6e 64 20 72 65 70 65 | screen.|end repe|
|00000d30| 61 74 0d 73 65 74 20 6c | 6f 63 6b 6d 65 73 73 61 |at.set l|ockmessa|
|00000d40| 67 65 73 20 74 6f 20 66 | 61 6c 73 65 0d 65 78 69 |ges to f|alse.exi|
|00000d50| 74 20 74 6f 20 68 79 70 | 65 72 43 61 72 64 0d 0d |t to hyp|erCard..|
|00000d60| 0d 65 6c 73 65 20 69 66 | 20 6d 6f 64 65 20 3d 20 |.else if| mode = |
|00000d70| 22 68 65 6c 70 22 20 74 | 68 65 6e 0d 70 69 63 74 |"help" t|hen.pict|
|00000d80| 75 72 65 20 22 54 4b 41 | 6c 69 67 6e 20 48 65 6c |ure "TKA|lign Hel|
|00000d90| 70 22 2c 72 65 73 6f 75 | 72 63 65 2c 70 6c 61 69 |p",resou|rce,plai|
|00000da0| 6e 2c 66 61 6c 73 65 0d | 73 68 6f 77 20 77 69 6e |n,false.|show win|
|00000db0| 64 6f 77 20 22 54 4b 41 | 6c 69 67 6e 20 48 65 6c |dow "TKA|lign Hel|
|00000dc0| 70 22 20 61 74 20 22 31 | 30 2c 31 30 22 0d 65 78 |p" at "1|0,10".ex|
|00000dd0| 69 74 20 74 6f 20 68 79 | 70 65 72 43 61 72 64 0d |it to hy|perCard.|
|00000de0| 0d 0d 65 6c 73 65 0d 67 | 65 74 20 54 4b 73 71 75 |..else.g|et TKsqu|
|00000df0| 61 72 65 28 22 6f 75 74 | 6c 69 6e 65 22 29 0d 69 |are("out|line").i|
|00000e00| 66 20 6d 6f 64 65 20 3d | 20 22 6f 75 74 6c 69 6e |f mode =| "outlin|
|00000e10| 65 22 20 74 68 65 6e 20 | 65 78 69 74 20 54 4b 41 |e" then |exit TKA|
|00000e20| 6c 69 67 6e 0d 73 74 61 | 72 74 47 72 6f 75 70 69 |lign.sta|rtGroupi|
|00000e30| 6e 67 0d 69 66 20 6f 62 | 6a 4c 69 73 74 20 3d 20 |ng.if ob|jList = |
|00000e40| 22 22 20 74 68 65 6e 0d | 73 65 74 20 63 75 72 73 |"" then.|set curs|
|00000e50| 6f 72 20 74 6f 20 68 61 | 6e 64 0d 65 78 69 74 20 |or to ha|nd.exit |
|00000e60| 74 6f 20 68 79 70 65 72 | 43 61 72 64 0d 65 6e 64 |to hyper|Card.end|
|00000e70| 20 69 66 0d 65 6e 64 20 | 69 66 0d 0d 6c 6f 63 6b | if.end |if..lock|
|00000e80| 20 73 63 72 65 65 6e 0d | 75 6e 6c 6f 63 6b 20 73 | screen.|unlock s|
|00000e90| 63 72 65 65 6e 0d 0d 73 | 65 74 20 63 75 72 73 6f |creen..s|et curso|
|00000ea0| 72 20 74 6f 20 63 72 6f | 73 73 0d 0d 2d 2d 20 20 |r to cro|ss..--  |
|00000eb0| 20 41 20 4c 20 49 20 47 | 20 4e 20 20 20 45 20 44 | A L I G| N   E D|
|00000ec0| 20 47 20 45 20 53 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | G E S  | -------|
|00000ed0| 2d 2d 2d 2d 2d 2d 0d 0d | 69 66 20 6d 6f 64 65 20 |------..|if mode |
|00000ee0| 3d 20 22 6c 65 66 74 22 | 20 74 68 65 6e 20 2d 2d |= "left"| then --|
|00000ef0| 20 a7 0d 67 65 74 20 54 | 4b 73 71 75 61 72 65 28 | ..get T|Ksquare(|
|00000f00| 22 76 65 72 74 22 29 0d | 69 66 20 69 74 20 3c 3e |"vert").|if it <>|
|00000f10| 20 22 22 20 74 68 65 6e | 0d 70 75 74 20 6e 75 6d | "" then|.put num|
|00000f20| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00000f30| 6f 62 6a 4c 69 73 74 20 | 69 6e 74 6f 20 6e 0d 67 |objList |into n.g|
|00000f40| 65 74 20 69 74 65 6d 20 | 33 20 6f 66 20 69 74 0d |et item |3 of it.|
|00000f50| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 3d 31 20 |repeat w|ith i=1 |
|00000f60| 74 6f 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |to numbe|r of ite|
|00000f70| 6d 73 20 69 6e 20 6f 62 | 6a 4c 69 73 74 0d 73 65 |ms in ob|jList.se|
|00000f80| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |t cursor| to busy|
|00000f90| 0d 73 65 74 20 74 68 65 | 20 6c 65 66 74 20 6f 66 |.set the| left of|
|00000fa0| 20 69 74 65 6d 20 69 20 | 6f 66 20 6f 62 6a 4c 69 | item i |of objLi|
|00000fb0| 73 74 20 74 6f 20 69 74 | 0d 65 6e 64 20 72 65 70 |st to it|.end rep|
|00000fc0| 65 61 74 0d 65 6e 64 20 | 69 66 0d 0d 0d 65 6c 73 |eat.end |if...els|
|00000fd0| 65 20 69 66 20 6d 6f 64 | 65 20 3d 20 22 74 6f 70 |e if mod|e = "top|
|00000fe0| 22 20 74 68 65 6e 0d 67 | 65 74 20 54 4b 73 71 75 |" then.g|et TKsqu|
|00000ff0| 61 72 65 28 22 68 6f 72 | 69 7a 22 29 0d 69 66 20 |are("hor|iz").if |
|00001000| 69 74 20 3c 3e 20 22 22 | 20 74 68 65 6e 0d 67 65 |it <> ""| then.ge|
|00001010| 74 20 69 74 65 6d 20 34 | 20 6f 66 20 69 74 0d 72 |t item 4| of it.r|
|00001020| 65 70 65 61 74 20 77 69 | 74 68 20 69 3d 31 20 74 |epeat wi|th i=1 t|
|00001030| 6f 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |o number| of item|
|00001040| 73 20 69 6e 20 6f 62 6a | 4c 69 73 74 0d 73 65 74 |s in obj|List.set|
|00001050| 20 63 75 72 73 6f 72 20 | 74 6f 20 62 75 73 79 0d | cursor |to busy.|
|00001060| 73 65 74 20 74 68 65 20 | 74 6f 70 20 6f 66 20 69 |set the |top of i|
|00001070| 74 65 6d 20 69 20 6f 66 | 20 6f 62 6a 4c 69 73 74 |tem i of| objList|
|00001080| 20 74 6f 20 69 74 0d 65 | 6e 64 20 72 65 70 65 61 | to it.e|nd repea|
|00001090| 74 0d 65 6e 64 20 69 66 | 0d 0d 0d 65 6c 73 65 20 |t.end if|...else |
|000010a0| 69 66 20 6d 6f 64 65 20 | 3d 20 22 72 69 67 68 74 |if mode |= "right|
|000010b0| 22 20 74 68 65 6e 0d 67 | 65 74 20 54 4b 73 71 75 |" then.g|et TKsqu|
|000010c0| 61 72 65 28 22 76 65 72 | 74 22 29 0d 69 66 20 69 |are("ver|t").if i|
|000010d0| 74 20 3c 3e 20 22 22 20 | 74 68 65 6e 0d 67 65 74 |t <> "" |then.get|
|000010e0| 20 69 74 65 6d 20 33 20 | 6f 66 20 69 74 0d 72 65 | item 3 |of it.re|
|000010f0| 70 65 61 74 20 77 69 74 | 68 20 69 3d 31 20 74 6f |peat wit|h i=1 to|
|00001100| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00001110| 20 69 6e 20 6f 62 6a 4c | 69 73 74 0d 73 65 74 20 | in objL|ist.set |
|00001120| 63 75 72 73 6f 72 20 74 | 6f 20 62 75 73 79 0d 73 |cursor t|o busy.s|
|00001130| 65 74 20 74 68 65 20 72 | 69 67 68 74 20 6f 66 20 |et the r|ight of |
|00001140| 69 74 65 6d 20 69 20 6f | 66 20 6f 62 6a 4c 69 73 |item i o|f objLis|
|00001150| 74 20 74 6f 20 69 74 20 | 2b 20 31 0d 65 6e 64 20 |t to it |+ 1.end |
|00001160| 72 65 70 65 61 74 0d 65 | 6e 64 20 69 66 0d 0d 0d |repeat.e|nd if...|
|00001170| 65 6c 73 65 20 69 66 20 | 6d 6f 64 65 20 3d 20 22 |else if |mode = "|
|00001180| 62 6f 74 74 6f 6d 22 20 | 74 68 65 6e 0d 67 65 74 |bottom" |then.get|
|00001190| 20 54 4b 73 71 75 61 72 | 65 28 22 68 6f 72 69 7a | TKsquar|e("horiz|
|000011a0| 22 29 0d 69 66 20 69 74 | 20 3c 3e 20 22 22 20 74 |").if it| <> "" t|
|000011b0| 68 65 6e 0d 67 65 74 20 | 69 74 65 6d 20 34 20 6f |hen.get |item 4 o|
|000011c0| 66 20 69 74 0d 72 65 70 | 65 61 74 20 77 69 74 68 |f it.rep|eat with|
|000011d0| 20 69 3d 31 20 74 6f 20 | 6e 75 6d 62 65 72 20 6f | i=1 to |number o|
|000011e0| 66 20 69 74 65 6d 73 20 | 69 6e 20 6f 62 6a 4c 69 |f items |in objLi|
|000011f0| 73 74 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |st.set c|ursor to|
|00001200| 20 62 75 73 79 0d 73 65 | 74 20 74 68 65 20 62 6f | busy.se|t the bo|
|00001210| 74 74 6f 6d 20 6f 66 20 | 69 74 65 6d 20 69 20 6f |ttom of |item i o|
|00001220| 66 20 6f 62 6a 4c 69 73 | 74 20 74 6f 20 69 74 20 |f objLis|t to it |
|00001230| 2b 20 31 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |+ 1.end |repeat.e|
|00001240| 6e 64 20 69 66 0d 0d 2d | 2d 20 20 20 47 20 52 20 |nd if..-|-   G R |
|00001250| 4f 20 55 20 50 20 20 20 | 4d 20 4f 20 56 20 45 20 |O U P   |M O V E |
|00001260| 20 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |  ------|-------.|
|00001270| 0d 65 6c 73 65 20 69 66 | 20 6d 6f 64 65 20 3d 20 |.else if| mode = |
|00001280| 22 62 6f 74 74 6f 6d 4c | 65 66 74 22 20 74 68 65 |"bottomL|eft" the|
|00001290| 6e 0d 67 65 74 20 54 4b | 73 71 75 61 72 65 28 22 |n.get TK|square("|
|000012a0| 68 6f 72 69 7a 2c 76 65 | 72 74 22 29 0d 69 66 20 |horiz,ve|rt").if |
|000012b0| 69 74 20 3c 3e 20 22 22 | 20 74 68 65 6e 0d 67 65 |it <> ""| then.ge|
|000012c0| 74 20 69 74 65 6d 20 33 | 20 74 6f 20 34 20 6f 66 |t item 3| to 4 of|
|000012d0| 20 69 74 0d 70 75 74 20 | 28 69 74 65 6d 20 31 20 | it.put |(item 1 |
|000012e0| 6f 66 20 69 74 29 20 2d | 20 6c 65 66 74 20 6f 66 |of it) -| left of|
|000012f0| 20 69 74 65 6d 20 31 20 | 6f 66 20 6f 62 6a 4c 69 | item 1 |of objLi|
|00001300| 73 74 20 69 6e 74 6f 20 | 68 44 69 66 0d 70 75 74 |st into |hDif.put|
|00001310| 20 28 69 74 65 6d 20 32 | 20 6f 66 20 69 74 29 20 | (item 2| of it) |
|00001320| 2d 20 62 6f 74 74 6f 6d | 20 6f 66 20 69 74 65 6d |- bottom| of item|
|00001330| 20 31 20 6f 66 20 6f 62 | 6a 4c 69 73 74 20 69 6e | 1 of ob|jList in|
|00001340| 74 6f 20 76 44 69 66 0d | 72 65 70 65 61 74 20 77 |to vDif.|repeat w|
|00001350| 69 74 68 20 69 3d 31 20 | 74 6f 20 6e 75 6d 62 65 |ith i=1 |to numbe|
|00001360| 72 20 6f 66 20 69 74 65 | 6d 73 20 69 6e 20 6f 62 |r of ite|ms in ob|
|00001370| 6a 4c 69 73 74 0d 73 65 | 74 20 63 75 72 73 6f 72 |jList.se|t cursor|
|00001380| 20 74 6f 20 62 75 73 79 | 0d 67 65 74 20 69 74 65 | to busy|.get ite|
|00001390| 6d 20 69 20 6f 66 20 6f | 62 6a 4c 69 73 74 0d 73 |m i of o|bjList.s|
|000013a0| 65 74 20 74 68 65 20 6c | 65 66 74 20 6f 66 20 69 |et the l|eft of i|
|000013b0| 74 20 74 6f 20 28 6c 65 | 66 74 20 6f 66 20 69 74 |t to (le|ft of it|
|000013c0| 29 20 2b 20 68 44 69 66 | 0d 73 65 74 20 74 68 65 |) + hDif|.set the|
|000013d0| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 69 74 20 74 6f | bottom |of it to|
|000013e0| 20 28 62 6f 74 74 6f 6d | 20 6f 66 20 69 74 29 20 | (bottom| of it) |
|000013f0| 2b 20 76 44 69 66 20 2b | 20 31 0d 65 6e 64 20 72 |+ vDif +| 1.end r|
|00001400| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 0d 0d 65 |epeat.en|d if...e|
|00001410| 6c 73 65 20 69 66 20 6d | 6f 64 65 20 3d 20 22 74 |lse if m|ode = "t|
|00001420| 6f 70 4c 65 66 74 22 20 | 74 68 65 6e 0d 67 65 74 |opLeft" |then.get|
|00001430| 20 54 4b 73 71 75 61 72 | 65 28 22 68 6f 72 69 7a | TKsquar|e("horiz|
|00001440| 2c 76 65 72 74 22 29 0d | 69 66 20 69 74 20 3c 3e |,vert").|if it <>|
|00001450| 20 22 22 20 74 68 65 6e | 0d 67 65 74 20 69 74 65 | "" then|.get ite|
|00001460| 6d 20 33 20 74 6f 20 34 | 20 6f 66 20 69 74 0d 70 |m 3 to 4| of it.p|
|00001470| 75 74 20 28 69 74 65 6d | 20 32 20 6f 66 20 69 74 |ut (item| 2 of it|
|00001480| 29 20 2d 20 74 6f 70 20 | 6f 66 20 69 74 65 6d 20 |) - top |of item |
|00001490| 31 20 6f 66 20 6f 62 6a | 4c 69 73 74 20 69 6e 74 |1 of obj|List int|
|000014a0| 6f 20 76 44 69 66 0d 70 | 75 74 20 28 69 74 65 6d |o vDif.p|ut (item|
|000014b0| 20 31 20 6f 66 20 69 74 | 29 20 2d 20 6c 65 66 74 | 1 of it|) - left|
|000014c0| 20 6f 66 20 69 74 65 6d | 20 31 20 6f 66 20 6f 62 | of item| 1 of ob|
|000014d0| 6a 4c 69 73 74 20 69 6e | 74 6f 20 68 44 69 66 0d |jList in|to hDif.|
|000014e0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 3d 31 20 |repeat w|ith i=1 |
|000014f0| 74 6f 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |to numbe|r of ite|
|00001500| 6d 73 20 69 6e 20 6f 62 | 6a 4c 69 73 74 0d 73 65 |ms in ob|jList.se|
|00001510| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |t cursor| to busy|
|00001520| 0d 67 65 74 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |.get ite|m i of o|
|00001530| 62 6a 4c 69 73 74 0d 73 | 65 74 20 74 68 65 20 6c |bjList.s|et the l|
|00001540| 65 66 74 20 6f 66 20 69 | 74 20 74 6f 20 28 6c 65 |eft of i|t to (le|
|00001550| 66 74 20 6f 66 20 69 74 | 29 20 2b 20 68 44 69 66 |ft of it|) + hDif|
|00001560| 0d 73 65 74 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |.set the| top of |
|00001570| 69 74 20 74 6f 20 28 74 | 6f 70 20 6f 66 20 69 74 |it to (t|op of it|
|00001580| 29 20 2b 20 76 44 69 66 | 0d 65 6e 64 20 72 65 70 |) + vDif|.end rep|
|00001590| 65 61 74 0d 65 6e 64 20 | 69 66 0d 0d 0d 65 6c 73 |eat.end |if...els|
|000015a0| 65 20 69 66 20 6d 6f 64 | 65 20 3d 20 22 74 6f 70 |e if mod|e = "top|
|000015b0| 52 69 67 68 74 22 20 74 | 68 65 6e 0d 67 65 74 20 |Right" t|hen.get |
|000015c0| 54 4b 73 71 75 61 72 65 | 28 22 68 6f 72 69 7a 2c |TKsquare|("horiz,|
|000015d0| 76 65 72 74 22 29 0d 69 | 66 20 69 74 20 3c 3e 20 |vert").i|f it <> |
|000015e0| 22 22 20 74 68 65 6e 0d | 67 65 74 20 69 74 65 6d |"" then.|get item|
|000015f0| 20 33 20 74 6f 20 34 20 | 6f 66 20 69 74 0d 70 75 | 3 to 4 |of it.pu|
|00001600| 74 20 28 69 74 65 6d 20 | 32 20 6f 66 20 69 74 29 |t (item |2 of it)|
|00001610| 20 2d 20 74 6f 70 20 6f | 66 20 69 74 65 6d 20 31 | - top o|f item 1|
|00001620| 20 6f 66 20 6f 62 6a 4c | 69 73 74 20 69 6e 74 6f | of objL|ist into|
|00001630| 20 76 44 69 66 0d 70 75 | 74 20 28 69 74 65 6d 20 | vDif.pu|t (item |
|00001640| 31 20 6f 66 20 69 74 29 | 20 2d 20 72 69 67 68 74 |1 of it)| - right|
|00001650| 20 6f 66 20 69 74 65 6d | 20 31 20 6f 66 20 6f 62 | of item| 1 of ob|
|00001660| 6a 4c 69 73 74 20 69 6e | 74 6f 20 68 44 69 66 0d |jList in|to hDif.|
|00001670| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 3d 31 20 |repeat w|ith i=1 |
|00001680| 74 6f 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |to numbe|r of ite|
|00001690| 6d 73 20 69 6e 20 6f 62 | 6a 4c 69 73 74 0d 73 65 |ms in ob|jList.se|
|000016a0| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 62 75 73 79 |t cursor| to busy|
|000016b0| 0d 67 65 74 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |.get ite|m i of o|
|000016c0| 62 6a 4c 69 73 74 0d 73 | 65 74 20 74 68 65 20 72 |bjList.s|et the r|
|000016d0| 69 67 68 74 20 6f 66 20 | 69 74 20 74 6f 20 28 72 |ight of |it to (r|
|000016e0| 69 67 68 74 20 6f 66 20 | 69 74 29 20 2b 20 68 44 |ight of |it) + hD|
|000016f0| 69 66 20 2b 20 31 0d 73 | 65 74 20 74 68 65 20 74 |if + 1.s|et the t|
|00001700| 6f 70 20 6f 66 20 69 74 | 20 74 6f 20 28 74 6f 70 |op of it| to (top|
|00001710| 20 6f 66 20 69 74 29 20 | 2b 20 76 44 69 66 0d 65 | of it) |+ vDif.e|
|00001720| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00001730| 0d 0d 0d 65 6c 73 65 20 | 69 66 20 6d 6f 64 65 20 |...else |if mode |
|00001740| 3d 20 22 62 6f 74 74 6f | 6d 52 69 67 68 74 22 20 |= "botto|mRight" |
|00001750| 74 68 65 6e 0d 67 65 74 | 20 54 4b 73 71 75 61 72 |then.get| TKsquar|
|00001760| 65 28 22 68 6f 72 69 7a | 2c 76 65 72 74 22 29 0d |e("horiz|,vert").|
|00001770| 69 66 20 69 74 20 3c 3e | 20 22 22 20 74 68 65 6e |if it <>| "" then|
|00001780| 0d 67 65 74 20 69 74 65 | 6d 20 33 20 74 6f 20 34 |.get ite|m 3 to 4|
|00001790| 20 6f 66 20 69 74 0d 70 | 75 74 20 28 69 74 65 6d | of it.p|ut (item|
|000017a0| 20 31 20 6f 66 20 69 74 | 29 20 2d 20 72 69 67 68 | 1 of it|) - righ|
|000017b0| 74 20 6f 66 20 69 74 65 | 6d 20 31 20 6f 66 20 6f |t of ite|m 1 of o|
|000017c0| 62 6a 4c 69 73 74 20 69 | 6e 74 6f 20 68 44 69 66 |bjList i|nto hDif|
|000017d0| 0d 70 75 74 20 28 69 74 | 65 6d 20 32 20 6f 66 20 |.put (it|em 2 of |
|000017e0| 69 74 29 20 2d 20 62 6f | 74 74 6f 6d 20 6f 66 20 |it) - bo|ttom of |
|000017f0| 69 74 65 6d 20 31 20 6f | 66 20 6f 62 6a 4c 69 73 |item 1 o|f objLis|
|00001800| 74 20 69 6e 74 6f 20 76 | 44 69 66 0d 72 65 70 65 |t into v|Dif.repe|
|00001810| 61 74 20 77 69 74 68 20 | 69 3d 31 20 74 6f 20 6e |at with |i=1 to n|
|00001820| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 69 |umber of| items i|
|00001830| 6e 20 6f 62 6a 4c 69 73 | 74 0d 73 65 74 20 63 75 |n objLis|t.set cu|
|00001840| 72 73 6f 72 20 74 6f 20 | 62 75 73 79 0d 67 65 74 |rsor to |busy.get|
|00001850| 20 69 74 65 6d 20 69 20 | 6f 66 20 6f 62 6a 4c 69 | item i |of objLi|
|00001860| 73 74 0d 73 65 74 20 74 | 68 65 20 72 69 67 68 74 |st.set t|he right|
|00001870| 20 6f 66 20 69 74 20 74 | 6f 20 28 72 69 67 68 74 | of it t|o (right|
|00001880| 20 6f 66 20 69 74 29 20 | 2b 20 68 44 69 66 0d 73 | of it) |+ hDif.s|
|00001890| 65 74 20 74 68 65 20 62 | 6f 74 74 6f 6d 20 6f 66 |et the b|ottom of|
|000018a0| 20 69 74 20 74 6f 20 28 | 62 6f 74 74 6f 6d 20 6f | it to (|bottom o|
|000018b0| 66 20 69 74 29 20 2b 20 | 76 44 69 66 0d 65 6e 64 |f it) + |vDif.end|
|000018c0| 20 72 65 70 65 61 74 0d | 65 6e 64 20 69 66 0d 0d | repeat.|end if..|
|000018d0| 2d 2d 20 20 20 53 20 50 | 20 52 20 45 20 41 20 44 |--   S P| R E A D|
|000018e0| 20 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |   -----|--------|
|000018f0| 0d 0d 65 6c 73 65 20 69 | 66 20 6d 6f 64 65 20 3d |..else i|f mode =|
|00001900| 20 22 64 6f 77 6e 22 20 | 74 68 65 6e 0d 67 65 74 | "down" |then.get|
|00001910| 20 54 4b 73 71 75 61 72 | 65 28 22 68 6f 72 69 7a | TKsquar|e("horiz|
|00001920| 22 29 0d 69 66 20 69 74 | 20 3c 3e 20 22 22 20 74 |").if it| <> "" t|
|00001930| 68 65 6e 0d 67 65 74 20 | 69 74 65 6d 20 34 20 6f |hen.get |item 4 o|
|00001940| 66 20 69 74 0d 72 65 70 | 65 61 74 20 77 69 74 68 |f it.rep|eat with|
|00001950| 20 69 3d 31 20 74 6f 20 | 6e 75 6d 62 65 72 20 6f | i=1 to |number o|
|00001960| 66 20 69 74 65 6d 73 20 | 69 6e 20 6f 62 6a 4c 69 |f items |in objLi|
|00001970| 73 74 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |st.set c|ursor to|
|00001980| 20 62 75 73 79 0d 69 66 | 20 69 3d 31 20 74 68 65 | busy.if| i=1 the|
|00001990| 6e 0d 73 65 74 20 74 68 | 65 20 74 6f 70 20 6f 66 |n.set th|e top of|
|000019a0| 20 69 74 65 6d 20 69 20 | 6f 66 20 6f 62 6a 4c 69 | item i |of objLi|
|000019b0| 73 74 20 74 6f 20 69 74 | 0d 65 6c 73 65 0d 73 65 |st to it|.else.se|
|000019c0| 74 20 74 68 65 20 74 6f | 70 20 6f 66 20 69 74 65 |t the to|p of ite|
|000019d0| 6d 20 69 20 6f 66 20 6f | 62 6a 4c 69 73 74 20 74 |m i of o|bjList t|
|000019e0| 6f c2 0d 62 6f 74 74 6f | 6d 20 6f 66 20 69 74 65 |o..botto|m of ite|
|000019f0| 6d 20 28 69 2d 31 29 20 | 6f 66 20 6f 62 6a 4c 69 |m (i-1) |of objLi|
|00001a00| 73 74 20 2b 20 54 4b 73 | 65 70 0d 65 6e 64 20 69 |st + TKs|ep.end i|
|00001a10| 66 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |f.end re|peat.end|
|00001a20| 20 69 66 0d 0d 0d 65 6c | 73 65 20 69 66 20 6d 6f | if...el|se if mo|
|00001a30| 64 65 20 3d 20 22 61 63 | 72 6f 73 73 22 20 74 68 |de = "ac|ross" th|
|00001a40| 65 6e 0d 67 65 74 20 54 | 4b 73 71 75 61 72 65 28 |en.get T|Ksquare(|
|00001a50| 22 76 65 72 74 22 29 0d | 69 66 20 69 74 20 3c 3e |"vert").|if it <>|
|00001a60| 20 22 22 20 74 68 65 6e | 0d 67 65 74 20 69 74 65 | "" then|.get ite|
|00001a70| 6d 20 33 20 6f 66 20 69 | 74 0d 72 65 70 65 61 74 |m 3 of i|t.repeat|
|00001a80| 20 77 69 74 68 20 69 3d | 31 20 74 6f 20 6e 75 6d | with i=|1 to num|
|00001a90| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00001aa0| 6f 62 6a 4c 69 73 74 0d | 73 65 74 20 63 75 72 73 |objList.|set curs|
|00001ab0| 6f 72 20 74 6f 20 62 75 | 73 79 0d 69 66 20 69 3d |or to bu|sy.if i=|
|00001ac0| 31 20 74 68 65 6e 0d 73 | 65 74 20 74 68 65 20 6c |1 then.s|et the l|
|00001ad0| 65 66 74 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |eft of i|tem i of|
|00001ae0| 20 6f 62 6a 4c 69 73 74 | 20 74 6f 20 69 74 0d 65 | objList| to it.e|
|00001af0| 6c 73 65 0d 73 65 74 20 | 74 68 65 20 6c 65 66 74 |lse.set |the left|
|00001b00| 20 6f 66 20 69 74 65 6d | 20 69 20 6f 66 20 6f 62 | of item| i of ob|
|00001b10| 6a 4c 69 73 74 20 74 6f | c2 0d 72 69 67 68 74 20 |jList to|..right |
|00001b20| 6f 66 20 69 74 65 6d 20 | 28 69 2d 31 29 20 6f 66 |of item |(i-1) of|
|00001b30| 20 6f 62 6a 4c 69 73 74 | 20 2b 20 54 4b 73 65 70 | objList| + TKsep|
|00001b40| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00001b50| 61 74 0d 65 6e 64 20 69 | 66 0d 0d 0d 65 6c 73 65 |at.end i|f...else|
|00001b60| 20 69 66 20 6d 6f 64 65 | 20 3d 20 22 76 65 72 74 | if mode| = "vert|
|00001b70| 22 20 74 68 65 6e 0d 67 | 65 74 20 54 4b 73 71 75 |" then.g|et TKsqu|
|00001b80| 61 72 65 28 22 68 6f 72 | 69 7a 22 29 0d 69 66 20 |are("hor|iz").if |
|00001b90| 69 74 20 3c 3e 20 22 22 | 20 74 68 65 6e 0d 70 75 |it <> ""| then.pu|
|00001ba0| 74 20 69 74 65 6d 20 34 | 20 6f 66 20 69 74 20 69 |t item 4| of it i|
|00001bb0| 6e 74 6f 20 54 0d 72 65 | 70 65 61 74 20 77 69 74 |nto T.re|peat wit|
|00001bc0| 68 20 69 3d 31 20 74 6f | 20 6e 75 6d 62 65 72 20 |h i=1 to| number |
|00001bd0| 6f 66 20 69 74 65 6d 73 | 20 69 6e 20 6f 62 6a 4c |of items| in objL|
|00001be0| 69 73 74 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |ist.set |cursor t|
|00001bf0| 6f 20 62 75 73 79 0d 70 | 75 74 20 69 74 65 6d 20 |o busy.p|ut item |
|00001c00| 69 20 6f 66 20 6f 62 6a | 4c 69 73 74 20 69 6e 74 |i of obj|List int|
|00001c10| 6f 20 74 68 65 4f 62 6a | 65 63 74 0d 73 75 62 74 |o theObj|ect.subt|
|00001c20| 72 61 63 74 20 74 72 75 | 6e 63 28 28 48 65 69 67 |ract tru|nc((Heig|
|00001c30| 68 74 20 6f 66 20 74 68 | 65 4f 62 6a 65 63 74 20 |ht of th|eObject |
|00001c40| 2b 20 54 4b 73 65 70 29 | 2f 32 29 20 66 72 6f 6d |+ TKsep)|/2) from|
|00001c50| 20 54 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 | T.end r|epeat.re|
|00001c60| 70 65 61 74 20 77 69 74 | 68 20 69 3d 31 20 74 6f |peat wit|h i=1 to|
|00001c70| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00001c80| 20 69 6e 20 6f 62 6a 4c | 69 73 74 0d 73 65 74 20 | in objL|ist.set |
|00001c90| 63 75 72 73 6f 72 20 74 | 6f 20 62 75 73 79 0d 69 |cursor t|o busy.i|
|00001ca0| 66 20 69 3d 31 20 74 68 | 65 6e 0d 73 65 74 20 74 |f i=1 th|en.set t|
|00001cb0| 68 65 20 74 6f 70 20 6f | 66 20 69 74 65 6d 20 69 |he top o|f item i|
|00001cc0| 20 6f 66 20 6f 62 6a 4c | 69 73 74 20 74 6f 20 54 | of objL|ist to T|
|00001cd0| 0d 65 6c 73 65 0d 73 65 | 74 20 74 68 65 20 74 6f |.else.se|t the to|
|00001ce0| 70 20 6f 66 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |p of ite|m i of o|
|00001cf0| 62 6a 4c 69 73 74 20 74 | 6f 20 c2 0d 62 6f 74 74 |bjList t|o ..bott|
|00001d00| 6f 6d 20 6f 66 20 69 74 | 65 6d 20 28 69 2d 31 29 |om of it|em (i-1)|
|00001d10| 20 6f 66 20 6f 62 6a 4c | 69 73 74 20 2b 20 54 4b | of objL|ist + TK|
|00001d20| 73 65 70 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 72 |sep.end |if.end r|
|00001d30| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 0d 0d 65 |epeat.en|d if...e|
|00001d40| 6c 73 65 20 69 66 20 6d | 6f 64 65 20 3d 20 22 68 |lse if m|ode = "h|
|00001d50| 6f 72 69 7a 22 20 74 68 | 65 6e 0d 67 65 74 20 54 |oriz" th|en.get T|
|00001d60| 4b 73 71 75 61 72 65 28 | 22 76 65 72 74 22 29 0d |Ksquare(|"vert").|
|00001d70| 69 66 20 69 74 20 3c 3e | 20 22 22 20 74 68 65 6e |if it <>| "" then|
|00001d80| 0d 70 75 74 20 69 74 65 | 6d 20 33 20 6f 66 20 69 |.put ite|m 3 of i|
|00001d90| 74 20 69 6e 74 6f 20 4c | 0d 72 65 70 65 61 74 20 |t into L|.repeat |
|00001da0| 77 69 74 68 20 69 3d 31 | 20 74 6f 20 6e 75 6d 62 |with i=1| to numb|
|00001db0| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 6f |er of it|ems in o|
|00001dc0| 62 6a 4c 69 73 74 0d 73 | 65 74 20 63 75 72 73 6f |bjList.s|et curso|
|00001dd0| 72 20 74 6f 20 62 75 73 | 79 0d 67 65 74 20 74 68 |r to bus|y.get th|
|00001de0| 65 20 77 69 64 74 68 20 | 6f 66 20 69 74 65 6d 20 |e width |of item |
|00001df0| 69 20 6f 66 20 6f 62 6a | 4c 69 73 74 0d 73 75 62 |i of obj|List.sub|
|00001e00| 74 72 61 63 74 20 74 72 | 75 6e 63 28 28 69 74 20 |tract tr|unc((it |
|00001e10| 2b 20 54 4b 73 65 70 29 | 2f 32 29 20 66 72 6f 6d |+ TKsep)|/2) from|
|00001e20| 20 4c 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 | L.end r|epeat.re|
|00001e30| 70 65 61 74 20 77 69 74 | 68 20 69 3d 31 20 74 6f |peat wit|h i=1 to|
|00001e40| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00001e50| 20 69 6e 20 6f 62 6a 4c | 69 73 74 0d 73 65 74 20 | in objL|ist.set |
|00001e60| 63 75 72 73 6f 72 20 74 | 6f 20 62 75 73 79 0d 69 |cursor t|o busy.i|
|00001e70| 66 20 69 3d 31 20 74 68 | 65 6e 0d 73 65 74 20 74 |f i=1 th|en.set t|
|00001e80| 68 65 20 6c 65 66 74 20 | 6f 66 20 69 74 65 6d 20 |he left |of item |
|00001e90| 69 20 6f 66 20 6f 62 6a | 4c 69 73 74 20 74 6f 20 |i of obj|List to |
|00001ea0| 4c 0d 65 6c 73 65 0d 73 | 65 74 20 74 68 65 20 6c |L.else.s|et the l|
|00001eb0| 65 66 74 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |eft of i|tem i of|
|00001ec0| 20 6f 62 6a 4c 69 73 74 | 20 74 6f c2 0d 72 69 67 | objList| to..rig|
|00001ed0| 68 74 20 6f 66 20 69 74 | 65 6d 20 28 69 2d 31 29 |ht of it|em (i-1)|
|00001ee0| 20 6f 66 20 6f 62 6a 4c | 69 73 74 20 2b 20 54 4b | of objL|ist + TK|
|00001ef0| 73 65 70 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 72 |sep.end |if.end r|
|00001f00| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 0d 0d 2d |epeat.en|d if...-|
|00001f10| 2d 20 20 20 43 20 45 20 | 4e 20 54 20 45 20 52 20 |-   C E |N T E R |
|00001f20| 49 20 4e 20 47 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |I N G   |--------|
|00001f30| 2d 2d 2d 2d 2d 0d 0d 65 | 6c 73 65 20 69 66 20 6d |-----..e|lse if m|
|00001f40| 6f 64 65 20 63 6f 6e 74 | 61 69 6e 73 20 22 63 65 |ode cont|ains "ce|
|00001f50| 6e 74 65 72 22 20 74 68 | 65 6e 0d 64 6f 43 65 6e |nter" th|en.doCen|
|00001f60| 74 65 72 20 6d 6f 64 65 | 0d 0d 0d 0d 2d 2d 20 20 |ter mode|....--  |
|00001f70| 20 20 48 20 49 20 44 20 | 45 20 20 20 20 2d 2d 2d |  H I D |E    ---|
|00001f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 65 6c 73 65 |--------|--..else|
|00001f90| 20 69 66 20 6d 6f 64 65 | 20 3d 20 22 68 69 64 65 | if mode| = "hide|
|00001fa0| 4f 62 6a 65 63 74 73 22 | 20 74 68 65 6e 0d 69 66 |Objects"| then.if|
|00001fb0| 20 74 68 65 20 6f 70 74 | 69 6f 6e 4b 65 79 20 69 | the opt|ionKey i|
|00001fc0| 73 20 64 6f 77 6e 20 74 | 68 65 6e 0d 61 6e 73 77 |s down t|hen.answ|
|00001fd0| 65 72 20 22 52 65 6f 72 | 64 65 72 20 73 65 6c 65 |er "Reor|der sele|
|00001fe0| 63 74 65 64 20 6f 62 6a | 65 63 74 73 20 6f 6e 20 |cted obj|ects on |
|00001ff0| 6c 61 79 65 72 3f 22 20 | 77 69 74 68 20 22 43 61 |layer?" |with "Ca|
|00002000| 6e 63 65 6c 22 20 6f 72 | 20 22 52 65 6f 72 64 65 |ncel" or| "Reorde|
|00002010| 72 22 0d 69 66 20 69 74 | 20 3d 20 22 52 65 4f 72 |r".if it| = "ReOr|
|00002020| 64 65 72 22 20 74 68 65 | 6e 0d 2d 2d 6c 6f 63 6b |der" the|n.--lock|
|00002030| 20 73 63 72 65 65 6e 0d | 72 65 70 65 61 74 20 77 | screen.|repeat w|
|00002040| 69 74 68 20 69 3d 31 20 | 74 6f 20 6e 75 6d 62 65 |ith i=1 |to numbe|
|00002050| 72 20 6f 66 20 69 74 65 | 6d 73 20 69 6e 20 6f 62 |r of ite|ms in ob|
|00002060| 6a 4c 69 73 74 0d 73 65 | 6c 65 63 74 20 69 74 65 |jList.se|lect ite|
|00002070| 6d 20 69 20 6f 66 20 6f | 62 6a 4c 69 73 74 0d 64 |m i of o|bjList.d|
|00002080| 6f 4d 65 6e 75 20 22 43 | 75 74 20 22 20 26 20 77 |oMenu "C|ut " & w|
|00002090| 6f 72 64 20 32 20 6f 66 | 20 69 74 65 6d 20 69 20 |ord 2 of| item i |
|000020a0| 6f 66 20 6f 62 6a 4c 69 | 73 74 0d 64 6f 4d 65 6e |of objLi|st.doMen|
|000020b0| 75 20 22 50 61 73 74 65 | 20 22 20 26 20 77 6f 72 |u "Paste| " & wor|
|000020c0| 64 20 32 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |d 2 of i|tem i of|
|000020d0| 20 6f 62 6a 4c 69 73 74 | 0d 65 6e 64 20 72 65 70 | objList|.end rep|
|000020e0| 65 61 74 0d 63 68 6f 6f | 73 65 20 62 72 6f 77 73 |eat.choo|se brows|
|000020f0| 65 20 74 6f 6f 6c 0d 2d | 2d 75 6e 6c 6f 63 6b 20 |e tool.-|-unlock |
|00002100| 73 63 72 65 65 6e 0d 65 | 6e 64 20 69 66 0d 65 6c |screen.e|nd if.el|
|00002110| 73 65 0d 61 6e 73 77 65 | 72 20 22 48 49 44 45 20 |se.answe|r "HIDE |
|00002120| 73 65 6c 65 63 74 65 64 | 20 6f 62 6a 65 63 74 73 |selected| objects|
|00002130| 3f 22 20 77 69 74 68 20 | 22 43 61 6e 63 65 6c 22 |?" with |"Cancel"|
|00002140| 20 6f 72 20 22 48 69 64 | 65 22 0d 69 66 20 69 74 | or "Hid|e".if it|
|00002150| 20 3d 20 22 48 69 64 65 | 22 20 74 68 65 6e 0d 72 | = "Hide|" then.r|
|00002160| 65 70 65 61 74 20 77 69 | 74 68 20 69 3d 31 20 74 |epeat wi|th i=1 t|
|00002170| 6f 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |o number| of item|
|00002180| 73 20 69 6e 20 6f 62 6a | 4c 69 73 74 0d 73 65 74 |s in obj|List.set|
|00002190| 20 63 75 72 73 6f 72 20 | 74 6f 20 62 75 73 79 0d | cursor |to busy.|
|000021a0| 68 69 64 65 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |hide ite|m i of o|
|000021b0| 62 6a 4c 69 73 74 0d 65 | 6e 64 20 72 65 70 65 61 |bjList.e|nd repea|
|000021c0| 74 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |t.end if|.end if.|
|000021d0| 0d 0d 2d 2d 20 20 20 43 | 20 55 20 54 20 20 2f 20 |..--   C| U T  / |
|000021e0| 20 43 20 4f 20 50 20 59 | 20 20 2f 20 20 50 20 41 | C O P Y|  /  P A|
|000021f0| 20 53 20 54 20 45 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | S T E  | -------|
|00002200| 2d 2d 2d 2d 2d 2d 0d 0d | 65 6c 73 65 20 69 66 20 |------..|else if |
|00002210| 6d 6f 64 65 20 3d 20 22 | 63 75 74 22 20 74 68 65 |mode = "|cut" the|
|00002220| 6e 0d 62 65 65 70 0d 61 | 6e 73 77 65 72 20 22 57 |n.beep.a|nswer "W|
|00002230| 41 52 4e 49 4e 47 20 2d | 20 43 55 54 20 69 74 65 |ARNING -| CUT ite|
|00002240| 6d 73 20 77 69 6c 6c 20 | 62 65 20 6c 6f 73 74 3f |ms will |be lost?|
|00002250| 22 20 77 69 74 68 20 22 | 43 61 6e 63 65 6c 22 20 |" with "|Cancel" |
|00002260| 6f 72 20 22 43 75 74 22 | 0d 69 66 20 69 74 20 3d |or "Cut"|.if it =|
|00002270| 20 22 43 75 74 22 20 74 | 68 65 6e 0d 72 65 70 65 | "Cut" t|hen.repe|
|00002280| 61 74 20 77 69 74 68 20 | 69 3d 31 20 74 6f 20 6e |at with |i=1 to n|
|00002290| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 69 |umber of| items i|
|000022a0| 6e 20 6f 62 6a 4c 69 73 | 74 0d 73 65 74 20 63 75 |n objLis|t.set cu|
|000022b0| 72 73 6f 72 20 74 6f 20 | 62 75 73 79 0d 73 65 6c |rsor to |busy.sel|
|000022c0| 65 63 74 20 69 74 65 6d | 20 69 20 6f 66 20 6f 62 |ect item| i of ob|
|000022d0| 6a 4c 69 73 74 0d 64 6f | 4d 65 6e 75 20 22 43 75 |jList.do|Menu "Cu|
|000022e0| 74 20 22 20 26 20 77 6f | 72 64 20 32 20 6f 66 20 |t " & wo|rd 2 of |
|000022f0| 69 74 65 6d 20 69 20 6f | 66 20 6f 62 6a 4c 69 73 |item i o|f objLis|
|00002300| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 63 68 6f |t.end re|peat.cho|
|00002310| 6f 73 65 20 62 72 6f 77 | 73 65 20 74 6f 6f 6c 0d |ose brow|se tool.|
|00002320| 65 6e 64 20 69 66 0d 0d | 0d 2d 2d 20 20 20 43 20 |end if..|.--   C |
|00002330| 4c 20 4f 20 4e 20 49 20 | 4e 20 47 20 20 20 2d 2d |L O N I |N G   --|
|00002340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 65 6c 73 |--------|---..els|
|00002350| 65 20 69 66 20 6d 6f 64 | 65 20 3d 20 22 63 6c 6f |e if mod|e = "clo|
|00002360| 6e 65 53 63 72 69 70 74 | 22 20 74 68 65 6e 0d 61 |neScript|" then.a|
|00002370| 6e 73 77 65 72 20 22 43 | 4c 4f 4e 45 20 73 63 72 |nswer "C|LONE scr|
|00002380| 69 70 74 73 20 6f 66 20 | 73 65 6c 65 63 74 69 6f |ipts of |selectio|
|00002390| 6e 73 3f 22 20 77 69 74 | 68 20 22 43 61 6e 63 65 |ns?" wit|h "Cance|
|000023a0| 6c 22 20 6f 72 20 22 43 | 6c 6f 6e 65 22 0d 69 66 |l" or "C|lone".if|
|000023b0| 20 69 74 20 3d 20 22 43 | 6c 6f 6e 65 22 20 74 68 | it = "C|lone" th|
|000023c0| 65 6e 0d 67 65 74 20 74 | 68 65 20 73 63 72 69 70 |en.get t|he scrip|
|000023d0| 74 20 6f 66 20 69 74 65 | 6d 20 31 20 6f 66 20 6f |t of ite|m 1 of o|
|000023e0| 62 6a 4c 69 73 74 0d 72 | 65 70 65 61 74 20 77 69 |bjList.r|epeat wi|
|000023f0| 74 68 20 69 3d 32 20 74 | 6f 20 6e 75 6d 62 65 72 |th i=2 t|o number|
|00002400| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 6f 62 6a | of item|s in obj|
|00002410| 4c 69 73 74 0d 73 65 74 | 20 74 68 65 20 73 63 72 |List.set| the scr|
|00002420| 69 70 74 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |ipt of i|tem i of|
|00002430| 20 6f 62 6a 4c 69 73 74 | 20 74 6f 20 69 74 0d 65 | objList| to it.e|
|00002440| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00002450| 0d 0d 0d 65 6c 73 65 20 | 69 66 20 6d 6f 64 65 20 |...else |if mode |
|00002460| 3d 20 22 64 65 6c 65 74 | 65 53 63 72 69 70 74 22 |= "delet|eScript"|
|00002470| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 44 45 | then.an|swer "DE|
|00002480| 4c 45 54 45 20 73 63 72 | 69 70 74 73 20 6f 66 20 |LETE scr|ipts of |
|00002490| 73 65 6c 65 63 74 69 6f | 6e 73 3f 22 20 77 69 74 |selectio|ns?" wit|
|000024a0| 68 20 22 43 61 6e 63 65 | 6c 22 20 6f 72 20 22 44 |h "Cance|l" or "D|
|000024b0| 65 6c 65 74 65 22 0d 69 | 66 20 69 74 20 3d 20 22 |elete".i|f it = "|
|000024c0| 44 65 6c 65 74 65 22 20 | 74 68 65 6e 0d 72 65 70 |Delete" |then.rep|
|000024d0| 65 61 74 20 77 69 74 68 | 20 69 3d 31 20 74 6f 20 |eat with| i=1 to |
|000024e0| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|000024f0| 69 6e 20 6f 62 6a 4c 69 | 73 74 0d 73 65 74 20 63 |in objLi|st.set c|
|00002500| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 73 65 |ursor to| busy.se|
|00002510| 74 20 74 68 65 20 73 63 | 72 69 70 74 20 6f 66 20 |t the sc|ript of |
|00002520| 69 74 65 6d 20 69 20 6f | 66 20 6f 62 6a 4c 69 73 |item i o|f objLis|
|00002530| 74 20 74 6f 20 22 22 0d | 65 6e 64 20 72 65 70 65 |t to "".|end repe|
|00002540| 61 74 0d 65 6e 64 20 69 | 66 0d 0d 0d 65 6c 73 65 |at.end i|f...else|
|00002550| 20 69 66 20 6d 6f 64 65 | 20 3d 20 22 63 6f 70 79 | if mode| = "copy|
|00002560| 22 20 74 68 65 6e 0d 70 | 75 74 20 74 68 65 20 6c |" then.p|ut the l|
|00002570| 6f 6e 67 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |ong name| of this|
|00002580| 20 63 61 72 64 20 69 6e | 74 6f 20 73 72 63 43 61 | card in|to srcCa|
|00002590| 72 64 0d 0d 0d 65 6c 73 | 65 20 69 66 20 6d 6f 64 |rd...els|e if mod|
|000025a0| 65 20 3d 20 22 62 74 6e | 50 72 6f 70 65 72 74 69 |e = "btn|Properti|
|000025b0| 65 73 22 20 74 68 65 6e | 0d 61 6e 73 77 65 72 20 |es" then|.answer |
|000025c0| 22 43 4c 4f 4e 45 20 73 | 65 6c 65 63 74 65 64 20 |"CLONE s|elected |
|000025d0| 42 55 54 54 4f 4e 53 3f | 22 20 77 69 74 68 20 22 |BUTTONS?|" with "|
|000025e0| 43 61 6e 63 65 6c 22 20 | 6f 72 20 22 43 6c 6f 6e |Cancel" |or "Clon|
|000025f0| 65 22 0d 69 66 20 69 74 | 20 3d 20 22 43 6c 6f 6e |e".if it| = "Clon|
|00002600| 65 22 20 74 68 65 6e 0d | 70 75 74 20 69 74 65 6d |e" then.|put item|
|00002610| 20 31 20 6f 66 20 6f 62 | 6a 4c 69 73 74 20 69 6e | 1 of ob|jList in|
|00002620| 74 6f 20 73 72 63 0d 72 | 65 70 65 61 74 20 77 69 |to src.r|epeat wi|
|00002630| 74 68 20 69 3d 31 20 74 | 6f 20 6e 75 6d 62 65 72 |th i=1 t|o number|
|00002640| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 6f 62 6a | of item|s in obj|
|00002650| 4c 69 73 74 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |List.set| cursor |
|00002660| 74 6f 20 62 75 73 79 0d | 67 65 74 20 69 74 65 6d |to busy.|get item|
|00002670| 20 69 20 6f 66 20 6f 62 | 6a 4c 49 73 74 0d 73 65 | i of ob|jLIst.se|
|00002680| 74 20 74 68 65 20 77 69 | 64 74 68 20 20 20 20 20 |t the wi|dth     |
|00002690| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 57 |  of it |to the W|
|000026a0| 69 64 74 68 20 20 20 20 | 20 20 20 6f 66 20 73 72 |idth    |   of sr|
|000026b0| 63 0d 73 65 74 20 74 68 | 65 20 48 65 69 67 68 74 |c.set th|e Height|
|000026c0| 20 20 20 20 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |      of| it to t|
|000026d0| 68 65 20 48 65 69 67 68 | 74 20 20 20 20 20 20 6f |he Heigh|t      o|
|000026e0| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 73 74 |f src.se|t the st|
|000026f0| 79 6c 65 20 20 20 20 20 | 20 20 6f 66 20 69 74 20 |yle     |  of it |
|00002700| 74 6f 20 74 68 65 20 73 | 74 79 6c 65 20 20 20 20 |to the s|tyle    |
|00002710| 20 20 20 6f 66 20 73 72 | 63 0d 73 65 74 20 74 68 |   of sr|c.set th|
|00002720| 65 20 54 65 78 74 41 6c | 69 67 6e 20 20 20 6f 66 |e TextAl|ign   of|
|00002730| 20 69 74 20 74 6f 20 74 | 68 65 20 54 65 78 74 41 | it to t|he TextA|
|00002740| 6c 69 67 6e 20 20 20 6f | 66 20 73 72 63 0d 73 65 |lign   o|f src.se|
|00002750| 74 20 74 68 65 20 54 65 | 78 74 46 6f 6e 74 20 20 |t the Te|xtFont  |
|00002760| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 54 |  of it |to the T|
|00002770| 65 78 74 46 6f 6e 74 20 | 20 20 20 6f 66 20 73 72 |extFont |   of sr|
|00002780| 63 0d 73 65 74 20 74 68 | 65 20 54 65 78 74 48 65 |c.set th|e TextHe|
|00002790| 69 67 68 74 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |ight  of| it to t|
|000027a0| 68 65 20 54 65 78 74 48 | 65 69 67 68 74 20 20 6f |he TextH|eight  o|
|000027b0| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 54 65 |f src.se|t the Te|
|000027c0| 78 74 53 69 7a 65 20 20 | 20 20 6f 66 20 69 74 20 |xtSize  |  of it |
|000027d0| 74 6f 20 74 68 65 20 54 | 65 78 74 53 69 7a 65 20 |to the T|extSize |
|000027e0| 20 20 20 6f 66 20 73 72 | 63 0d 73 65 74 20 74 68 |   of sr|c.set th|
|000027f0| 65 20 54 65 78 74 53 74 | 79 6c 65 20 20 20 6f 66 |e TextSt|yle   of|
|00002800| 20 69 74 20 74 6f 20 74 | 68 65 20 54 65 78 74 53 | it to t|he TextS|
|00002810| 74 79 6c 65 20 20 20 6f | 66 20 73 72 63 0d 73 65 |tyle   o|f src.se|
|00002820| 74 20 74 68 65 20 48 69 | 6c 69 74 65 20 20 20 20 |t the Hi|lite    |
|00002830| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 48 |  of it |to the H|
|00002840| 69 6c 69 74 65 20 20 20 | 20 20 20 6f 66 20 73 72 |ilite   |   of sr|
|00002850| 63 0d 73 65 74 20 74 68 | 65 20 41 75 74 6f 48 69 |c.set th|e AutoHi|
|00002860| 6c 69 74 65 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |lite  of| it to t|
|00002870| 68 65 20 41 75 74 6f 48 | 69 6c 69 74 65 20 20 6f |he AutoH|ilite  o|
|00002880| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 73 68 |f src.se|t the sh|
|00002890| 6f 77 4e 61 6d 65 20 20 | 20 20 6f 66 20 69 74 20 |owName  |  of it |
|000028a0| 74 6f 20 74 68 65 20 73 | 68 6f 77 4e 61 6d 65 20 |to the s|howName |
|000028b0| 20 20 20 6f 66 20 73 72 | 63 0d 73 68 6f 77 20 69 |   of sr|c.show i|
|000028c0| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |t.end re|peat.end|
|000028d0| 20 69 66 0d 0d 0d 65 6c | 73 65 20 69 66 20 6d 6f | if...el|se if mo|
|000028e0| 64 65 20 3d 20 22 66 6c | 64 50 72 6f 70 65 72 74 |de = "fl|dPropert|
|000028f0| 69 65 73 22 20 74 68 65 | 6e 0d 61 6e 73 77 65 72 |ies" the|n.answer|
|00002900| 20 22 43 4c 4f 4e 45 20 | 73 65 6c 65 63 74 65 64 | "CLONE |selected|
|00002910| 20 46 49 45 4c 44 53 3f | 22 20 77 69 74 68 20 22 | FIELDS?|" with "|
|00002920| 43 61 6e 63 65 6c 22 20 | 6f 72 20 22 43 6c 6f 6e |Cancel" |or "Clon|
|00002930| 65 22 0d 69 66 20 69 74 | 20 3d 20 22 43 6c 6f 6e |e".if it| = "Clon|
|00002940| 65 22 20 74 68 65 6e 0d | 70 75 74 20 69 74 65 6d |e" then.|put item|
|00002950| 20 31 20 6f 66 20 6f 62 | 6a 4c 69 73 74 20 69 6e | 1 of ob|jList in|
|00002960| 74 6f 20 73 72 63 0d 72 | 65 70 65 61 74 20 77 69 |to src.r|epeat wi|
|00002970| 74 68 20 69 3d 31 20 74 | 6f 20 6e 75 6d 62 65 72 |th i=1 t|o number|
|00002980| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 6f 62 6a | of item|s in obj|
|00002990| 4c 69 73 74 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |List.set| cursor |
|000029a0| 74 6f 20 62 75 73 79 0d | 67 65 74 20 69 74 65 6d |to busy.|get item|
|000029b0| 20 69 20 6f 66 20 6f 62 | 6a 4c 49 73 74 0d 73 65 | i of ob|jLIst.se|
|000029c0| 74 20 74 68 65 20 77 69 | 64 74 68 20 20 20 20 20 |t the wi|dth     |
|000029d0| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 57 |  of it |to the W|
|000029e0| 69 64 74 68 20 20 20 20 | 20 20 20 6f 66 20 73 72 |idth    |   of sr|
|000029f0| 63 0d 73 65 74 20 74 68 | 65 20 48 65 69 67 68 74 |c.set th|e Height|
|00002a00| 20 20 20 20 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |      of| it to t|
|00002a10| 68 65 20 48 65 69 67 68 | 74 20 20 20 20 20 20 6f |he Heigh|t      o|
|00002a20| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 73 74 |f src.se|t the st|
|00002a30| 79 6c 65 20 20 20 20 20 | 20 20 6f 66 20 69 74 20 |yle     |  of it |
|00002a40| 74 6f 20 74 68 65 20 73 | 74 79 6c 65 20 20 20 20 |to the s|tyle    |
|00002a50| 20 20 20 6f 66 20 73 72 | 63 0d 73 65 74 20 74 68 |   of sr|c.set th|
|00002a60| 65 20 54 65 78 74 41 6c | 69 67 6e 20 20 20 6f 66 |e TextAl|ign   of|
|00002a70| 20 69 74 20 74 6f 20 74 | 68 65 20 54 65 78 74 41 | it to t|he TextA|
|00002a80| 6c 69 67 6e 20 20 20 6f | 66 20 73 72 63 0d 73 65 |lign   o|f src.se|
|00002a90| 74 20 74 68 65 20 54 65 | 78 74 46 6f 6e 74 20 20 |t the Te|xtFont  |
|00002aa0| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 54 |  of it |to the T|
|00002ab0| 65 78 74 46 6f 6e 74 20 | 20 20 20 6f 66 20 73 72 |extFont |   of sr|
|00002ac0| 63 0d 73 65 74 20 74 68 | 65 20 54 65 78 74 48 65 |c.set th|e TextHe|
|00002ad0| 69 67 68 74 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |ight  of| it to t|
|00002ae0| 68 65 20 54 65 78 74 48 | 65 69 67 68 74 20 20 6f |he TextH|eight  o|
|00002af0| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 54 65 |f src.se|t the Te|
|00002b00| 78 74 53 69 7a 65 20 20 | 20 20 6f 66 20 69 74 20 |xtSize  |  of it |
|00002b10| 74 6f 20 74 68 65 20 54 | 65 78 74 53 69 7a 65 20 |to the T|extSize |
|00002b20| 20 20 20 6f 66 20 73 72 | 63 0d 73 65 74 20 74 68 |   of sr|c.set th|
|00002b30| 65 20 54 65 78 74 53 74 | 79 6c 65 20 20 20 6f 66 |e TextSt|yle   of|
|00002b40| 20 69 74 20 74 6f 20 74 | 68 65 20 54 65 78 74 53 | it to t|he TextS|
|00002b50| 74 79 6c 65 20 20 20 6f | 66 20 73 72 63 0d 69 66 |tyle   o|f src.if|
|00002b60| 20 74 68 65 20 73 74 79 | 6c 65 20 6f 66 20 73 72 | the sty|le of sr|
|00002b70| 63 20 3d 20 22 73 63 72 | 6f 6c 6c 69 6e 67 22 20 |c = "scr|olling" |
|00002b80| 74 68 65 6e 0d 73 65 74 | 20 74 68 65 20 53 63 72 |then.set| the Scr|
|00002b90| 6f 6c 6c 20 20 20 20 6f | 66 20 69 74 20 74 6f 20 |oll    o|f it to |
|00002ba0| 74 68 65 20 53 63 72 6f | 6c 6c 20 20 20 20 20 20 |the Scro|ll      |
|00002bb0| 6f 66 20 73 72 63 0d 65 | 6e 64 20 69 66 0d 73 65 |of src.e|nd if.se|
|00002bc0| 74 20 74 68 65 20 41 75 | 74 6f 54 61 62 20 20 20 |t the Au|toTab   |
|00002bd0| 20 20 6f 66 20 69 74 20 | 74 6f 20 74 68 65 20 41 |  of it |to the A|
|00002be0| 75 74 6f 54 61 62 20 20 | 20 20 20 6f 66 20 73 72 |utoTab  |   of sr|
|00002bf0| 63 0d 73 65 74 20 74 68 | 65 20 4c 6f 63 6b 54 65 |c.set th|e LockTe|
|00002c00| 78 74 20 20 20 20 6f 66 | 20 69 74 20 74 6f 20 74 |xt    of| it to t|
|00002c10| 68 65 20 4c 6f 63 6b 54 | 65 78 74 20 20 20 20 6f |he LockT|ext    o|
|00002c20| 66 20 73 72 63 0d 73 65 | 74 20 74 68 65 20 73 68 |f src.se|t the sh|
|00002c30| 6f 77 4c 69 6e 65 73 20 | 20 20 6f 66 20 69 74 20 |owLines |  of it |
|00002c40| 74 6f 20 74 68 65 20 73 | 68 6f 77 4c 69 6e 65 73 |to the s|howLines|
|00002c50| 20 20 20 6f 66 20 73 72 | 63 0d 73 65 74 20 74 68 |   of sr|c.set th|
|00002c60| 65 20 77 69 64 65 4d 61 | 72 67 69 6e 73 20 6f 66 |e wideMa|rgins of|
|00002c70| 20 69 74 20 74 6f 20 74 | 68 65 20 77 69 64 65 4d | it to t|he wideM|
|00002c80| 61 72 67 69 6e 73 20 6f | 66 20 73 72 63 0d 65 6e |argins o|f src.en|
|00002c90| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |d repeat|.end if.|
|00002ca0| 0d 0d 2d 2d 20 20 20 53 | 20 41 20 4d 20 45 20 53 |..--   S| A M E S|
|00002cb0| 20 49 20 5a 20 45 20 20 | 20 2d 2d 2d 2d 2d 2d 2d | I Z E  | -------|
|00002cc0| 2d 2d 2d 2d 2d 2d 0d 0d | 65 6c 73 65 20 69 66 20 |------..|else if |
|00002cd0| 6d 6f 64 65 20 3d 20 22 | 73 61 6d 65 53 69 7a 65 |mode = "|sameSize|
|00002ce0| 22 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 4d |" then.a|nswer "M|
|00002cf0| 61 6b 65 20 41 4c 4c 20 | 6f 62 6a 65 63 74 20 73 |ake ALL |object s|
|00002d00| 61 6d 65 20 73 69 7a 65 | 20 61 73 20 66 69 72 73 |ame size| as firs|
|00002d10| 74 3f 22 20 77 69 74 68 | 20 22 43 61 6e 63 65 6c |t?" with| "Cancel|
|00002d20| 22 20 6f 72 20 22 53 61 | 6d 65 22 0d 69 66 20 69 |" or "Sa|me".if i|
|00002d30| 74 20 3d 20 22 53 61 6d | 65 22 20 74 68 65 6e 0d |t = "Sam|e" then.|
|00002d40| 70 75 74 20 74 68 65 20 | 77 69 64 74 68 20 6f 66 |put the |width of|
|00002d50| 20 69 74 65 6d 20 31 20 | 6f 66 20 6f 62 6a 4c 69 | item 1 |of objLi|
|00002d60| 73 74 20 69 6e 74 6f 20 | 57 0d 70 75 74 20 74 68 |st into |W.put th|
|00002d70| 65 20 68 65 69 67 68 74 | 20 6f 66 20 69 74 65 6d |e height| of item|
|00002d80| 20 31 20 6f 66 20 6f 62 | 6a 4c 69 73 74 20 69 6e | 1 of ob|jList in|
|00002d90| 74 6f 20 48 0d 72 65 70 | 65 61 74 20 77 69 74 68 |to H.rep|eat with|
|00002da0| 20 69 3d 31 20 74 6f 20 | 6e 75 6d 62 65 72 20 6f | i=1 to |number o|
|00002db0| 66 20 69 74 65 6d 73 20 | 69 6e 20 6f 62 6a 4c 69 |f items |in objLi|
|00002dc0| 73 74 0d 73 65 74 20 63 | 75 72 73 6f 72 20 74 6f |st.set c|ursor to|
|00002dd0| 20 62 75 73 79 0d 73 65 | 74 20 74 68 65 20 77 69 | busy.se|t the wi|
|00002de0| 64 74 68 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |dth of i|tem i of|
|00002df0| 20 6f 62 6a 4c 69 73 74 | 20 74 6f 20 57 0d 73 65 | objList| to W.se|
|00002e00| 74 20 74 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 |t the he|ight of |
|00002e10| 69 74 65 6d 20 69 20 6f | 66 20 6f 62 6a 4c 69 73 |item i o|f objLis|
|00002e20| 74 20 74 6f 20 48 0d 65 | 6e 64 20 72 65 70 65 61 |t to H.e|nd repea|
|00002e30| 74 0d 65 6e 64 20 69 66 | 0d 0d 0d 65 6e 64 20 69 |t.end if|...end i|
|00002e40| 66 0d 0d 65 6e 64 20 54 | 4b 41 6c 69 67 6e 0d 0d |f..end T|KAlign..|
|00002e50| 0d b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00002e60| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00002e70| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00002e80| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00002e90| b0 b0 b0 b0 b0 b0 b0 b0 | 0d 0d 6f 6e 20 64 6f 43 |........|..on doC|
|00002ea0| 65 6e 74 65 72 20 6d 6f | 64 65 0d 67 6c 6f 62 61 |enter mo|de.globa|
|00002eb0| 6c 20 67 54 4b 41 6c 69 | 67 6e 2c 54 4b 73 65 70 |l gTKAli|gn,TKsep|
|00002ec0| 2c 6f 62 6a 4c 69 73 74 | 2c 54 4b 73 72 63 43 61 |,objList|,TKsrcCa|
|00002ed0| 72 64 2c 54 4b 64 73 74 | 43 61 72 64 2c 67 54 4b |rd,TKdst|Card,gTK|
|00002ee0| 64 69 61 6c 6f 67 0d 0d | 69 66 20 6d 6f 64 65 20 |dialog..|if mode |
|00002ef0| 3d 20 22 63 65 6e 74 65 | 72 4f 62 6a 65 63 74 22 |= "cente|rObject"|
|00002f00| 20 74 68 65 6e 0d 67 65 | 74 20 74 68 65 20 6c 6f | then.ge|t the lo|
|00002f10| 63 20 6f 66 20 69 74 65 | 6d 20 31 20 6f 66 20 6f |c of ite|m 1 of o|
|00002f20| 62 6a 4c 69 73 74 0d 72 | 65 70 65 61 74 20 77 69 |bjList.r|epeat wi|
|00002f30| 74 68 20 69 3d 31 20 74 | 6f 20 6e 75 6d 62 65 72 |th i=1 t|o number|
|00002f40| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 6f 62 6a | of item|s in obj|
|00002f50| 4c 69 73 74 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |List.set| cursor |
|00002f60| 74 6f 20 62 75 73 79 0d | 73 65 74 20 74 68 65 20 |to busy.|set the |
|00002f70| 6c 6f 63 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |loc of i|tem i of|
|00002f80| 20 6f 62 6a 4c 69 73 74 | 20 74 6f 20 69 74 0d 65 | objList| to it.e|
|00002f90| 6e 64 20 72 65 70 65 61 | 74 0d 0d 0d 65 6c 73 65 |nd repea|t...else|
|00002fa0| 20 69 66 20 6d 6f 64 65 | 20 3d 20 22 63 65 6e 74 | if mode| = "cent|
|00002fb0| 65 72 43 75 72 73 6f 72 | 22 20 74 68 65 6e 0d 67 |erCursor|" then.g|
|00002fc0| 65 74 20 54 4b 73 71 75 | 61 72 65 28 22 68 6f 72 |et TKsqu|are("hor|
|00002fd0| 69 7a 2c 76 65 72 74 22 | 29 0d 69 66 20 69 74 20 |iz,vert"|).if it |
|00002fe0| 3c 3e 20 22 22 20 74 68 | 65 6e 0d 67 65 74 20 69 |<> "" th|en.get i|
|00002ff0| 74 65 6d 20 33 20 74 6f | 20 34 20 6f 66 20 69 74 |tem 3 to| 4 of it|
|00003000| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 69 3d 31 |.repeat |with i=1|
|00003010| 20 74 6f 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 | to numb|er of it|
|00003020| 65 6d 73 20 69 6e 20 6f | 62 6a 4c 69 73 74 0d 73 |ems in o|bjList.s|
|00003030| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00003040| 79 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 20 6f 66 |y.set th|e loc of|
|00003050| 20 69 74 65 6d 20 69 20 | 6f 66 20 6f 62 6a 4c 69 | item i |of objLi|
|00003060| 73 74 20 74 6f 20 69 74 | 0d 65 6e 64 20 72 65 70 |st to it|.end rep|
|00003070| 65 61 74 0d 65 6e 64 20 | 69 66 0d 0d 0d 65 6c 73 |eat.end |if...els|
|00003080| 65 20 69 66 20 6d 6f 64 | 65 20 3d 20 22 63 65 6e |e if mod|e = "cen|
|00003090| 74 65 72 56 77 69 6e 64 | 22 20 74 68 65 6e 0d 67 |terVwind|" then.g|
|000030a0| 65 74 20 28 68 65 69 67 | 68 74 20 6f 66 20 74 68 |et (heig|ht of th|
|000030b0| 69 73 20 63 61 72 64 29 | 20 64 69 76 20 32 0d 72 |is card)| div 2.r|
|000030c0| 65 70 65 61 74 20 77 69 | 74 68 20 69 3d 31 20 74 |epeat wi|th i=1 t|
|000030d0| 6f 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |o number| of item|
|000030e0| 73 20 69 6e 20 6f 62 6a | 4c 69 73 74 0d 73 65 74 |s in obj|List.set|
|000030f0| 20 63 75 72 73 6f 72 20 | 74 6f 20 62 75 73 79 0d | cursor |to busy.|
|00003100| 70 75 74 20 68 65 69 67 | 68 74 20 6f 66 20 69 74 |put heig|ht of it|
|00003110| 65 6d 20 69 20 6f 66 20 | 6f 62 6a 4c 69 73 74 20 |em i of |objList |
|00003120| 64 69 76 20 32 20 69 6e | 74 6f 20 57 0d 73 65 74 |div 2 in|to W.set|
|00003130| 20 74 68 65 20 74 6f 70 | 20 6f 66 20 69 74 65 6d | the top| of item|
|00003140| 20 69 20 6f 66 20 6f 62 | 6a 4c 69 73 74 20 74 6f | i of ob|jList to|
|00003150| 20 69 74 20 2d 20 57 0d | 65 6e 64 20 72 65 70 65 | it - W.|end repe|
|00003160| 61 74 0d 0d 0d 65 6c 73 | 65 20 69 66 20 6d 6f 64 |at...els|e if mod|
|00003170| 65 20 3d 20 22 63 65 6e | 74 65 72 48 77 69 6e 64 |e = "cen|terHwind|
|00003180| 22 20 74 68 65 6e 0d 67 | 65 74 20 28 77 69 64 74 |" then.g|et (widt|
|00003190| 68 20 6f 66 20 74 68 69 | 73 20 63 61 72 64 29 20 |h of thi|s card) |
|000031a0| 64 69 76 20 32 0d 72 65 | 70 65 61 74 20 77 69 74 |div 2.re|peat wit|
|000031b0| 68 20 69 3d 31 20 74 6f | 20 6e 75 6d 62 65 72 20 |h i=1 to| number |
|000031c0| 6f 66 20 69 74 65 6d 73 | 20 69 6e 20 6f 62 6a 4c |of items| in objL|
|000031d0| 69 73 74 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |ist.set |cursor t|
|000031e0| 6f 20 62 75 73 79 0d 70 | 75 74 20 28 77 69 64 74 |o busy.p|ut (widt|
|000031f0| 68 20 6f 66 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |h of ite|m i of o|
|00003200| 62 6a 4c 69 73 74 29 20 | 64 69 76 20 32 20 69 6e |bjList) |div 2 in|
|00003210| 74 6f 20 57 0d 73 65 74 | 20 74 68 65 20 6c 65 66 |to W.set| the lef|
|00003220| 74 20 6f 66 20 69 74 65 | 6d 20 69 20 6f 66 20 6f |t of ite|m i of o|
|00003230| 62 6a 4c 69 73 74 20 74 | 6f 20 69 74 20 2d 20 57 |bjList t|o it - W|
|00003240| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 0d 0d 65 6c |.end rep|eat...el|
|00003250| 73 65 20 69 66 20 6d 6f | 64 65 20 3d 20 22 63 65 |se if mo|de = "ce|
|00003260| 6e 74 65 72 48 6f 6e 6c | 69 6e 65 22 20 74 68 65 |nterHonl|ine" the|
|00003270| 6e 0d 67 65 74 20 54 4b | 73 71 75 61 72 65 28 22 |n.get TK|square("|
|00003280| 68 6f 72 69 7a 22 29 0d | 69 66 20 69 74 20 3c 3e |horiz").|if it <>|
|00003290| 20 22 22 20 74 68 65 6e | 0d 67 65 74 20 69 74 65 | "" then|.get ite|
|000032a0| 6d 20 34 20 6f 66 20 69 | 74 0d 72 65 70 65 61 74 |m 4 of i|t.repeat|
|000032b0| 20 77 69 74 68 20 69 3d | 31 20 74 6f 20 6e 75 6d | with i=|1 to num|
|000032c0| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|000032d0| 6f 62 6a 4c 69 73 74 0d | 73 65 74 20 63 75 72 73 |objList.|set curs|
|000032e0| 6f 72 20 74 6f 20 62 75 | 73 79 0d 70 75 74 20 68 |or to bu|sy.put h|
|000032f0| 65 69 67 68 74 20 6f 66 | 20 69 74 65 6d 20 69 20 |eight of| item i |
|00003300| 6f 66 20 6f 62 6a 4c 69 | 73 74 20 64 69 76 20 32 |of objLi|st div 2|
|00003310| 20 69 6e 74 6f 20 57 0d | 73 65 74 20 74 68 65 20 | into W.|set the |
|00003320| 74 6f 70 20 6f 66 20 69 | 74 65 6d 20 69 20 6f 66 |top of i|tem i of|
|00003330| 20 6f 62 6a 4c 69 73 74 | 20 74 6f 20 69 74 20 2d | objList| to it -|
|00003340| 20 57 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e | W.end r|epeat.en|
|00003350| 64 20 69 66 0d 0d 0d 65 | 6c 73 65 20 69 66 20 6d |d if...e|lse if m|
|00003360| 6f 64 65 20 3d 20 22 63 | 65 6e 74 65 72 56 6f 6e |ode = "c|enterVon|
|00003370| 6c 69 6e 65 22 20 74 68 | 65 6e 0d 67 65 74 20 54 |line" th|en.get T|
|00003380| 4b 73 71 75 61 72 65 28 | 22 76 65 72 74 22 29 0d |Ksquare(|"vert").|
|00003390| 69 66 20 69 74 20 3c 3e | 20 22 22 20 74 68 65 6e |if it <>| "" then|
|000033a0| 0d 70 75 74 20 69 74 65 | 6d 20 33 20 6f 66 20 69 |.put ite|m 3 of i|
|000033b0| 74 20 69 6e 74 6f 20 6e | 0d 72 65 70 65 61 74 20 |t into n|.repeat |
|000033c0| 77 69 74 68 20 69 3d 31 | 20 74 6f 20 6e 75 6d 62 |with i=1| to numb|
|000033d0| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 69 6e 20 6f |er of it|ems in o|
|000033e0| 62 6a 4c 69 73 74 0d 73 | 65 74 20 63 75 72 73 6f |bjList.s|et curso|
|000033f0| 72 20 74 6f 20 62 75 73 | 79 0d 70 75 74 20 28 77 |r to bus|y.put (w|
|00003400| 69 64 74 68 20 6f 66 20 | 69 74 65 6d 20 69 20 6f |idth of |item i o|
|00003410| 66 20 6f 62 6a 4c 69 73 | 74 29 20 64 69 76 20 32 |f objLis|t) div 2|
|00003420| 20 69 6e 74 6f 20 57 0d | 73 65 74 20 74 68 65 20 | into W.|set the |
|00003430| 6c 65 66 74 20 6f 66 20 | 69 74 65 6d 20 69 20 6f |left of |item i o|
|00003440| 66 20 6f 62 6a 4c 69 73 | 74 20 74 6f 20 6e 20 2d |f objLis|t to n -|
|00003450| 20 57 20 2b 20 31 0d 65 | 6e 64 20 72 65 70 65 61 | W + 1.e|nd repea|
|00003460| 74 0d 65 6e 64 20 69 66 | 0d 0d 65 6e 64 20 69 66 |t.end if|..end if|
|00003470| 0d 0d 65 6e 64 20 64 6f | 43 65 6e 74 65 72 0d 0d |..end do|Center..|
|00003480| 0d b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003490| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000034a0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000034b0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000034c0| b0 b0 b0 b0 b0 b0 b0 b0 | 0d 0d 47 20 52 20 4f 20 |........|..G R O |
|000034d0| 55 20 50 20 49 20 4e 20 | 47 0d 0d b0 b0 b0 b0 b0 |U P I N |G.......|
|000034e0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000034f0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003500| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003510| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003520| b0 b0 0d 0d 6f 6e 20 73 | 74 61 72 74 47 72 6f 75 |....on s|tartGrou|
|00003530| 70 69 6e 67 20 2d 2d 20 | d7 0d 67 6c 6f 62 61 6c |ping -- |..global|
|00003540| 20 6f 62 6a 4c 69 73 74 | 2c 4e 75 6d 62 65 72 4f | objList|,NumberO|
|00003550| 66 49 74 65 6d 73 2c 54 | 4b 73 72 63 43 61 72 64 |fItems,T|KsrcCard|
|00003560| 2c 67 54 4b 44 6f 6e 65 | 0d 70 75 74 20 66 61 6c |,gTKDone|.put fal|
|00003570| 73 65 20 69 6e 74 6f 20 | 67 54 4b 44 6f 6e 65 0d |se into |gTKDone.|
|00003580| 70 75 74 20 22 22 20 69 | 6e 74 6f 20 6f 62 6a 4c |put "" i|nto objL|
|00003590| 69 73 74 0d 70 75 74 20 | 74 68 65 20 6c 6f 6e 67 |ist.put |the long|
|000035a0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 63 61 | name of| this ca|
|000035b0| 72 64 20 69 6e 74 6f 20 | 54 4b 73 72 63 43 61 72 |rd into |TKsrcCar|
|000035c0| 64 0d 72 65 70 65 61 74 | 0d 0d 69 66 20 74 68 65 |d.repeat|..if the|
|000035d0| 20 73 68 69 66 74 4b 65 | 79 20 69 73 20 64 6f 77 | shiftKe|y is dow|
|000035e0| 6e 20 74 68 65 6e 20 20 | 20 20 20 20 20 20 20 20 |n then  |        |
|000035f0| 20 20 20 20 2d 2d 20 67 | 72 6f 75 70 20 73 65 6c |    -- g|roup sel|
|00003600| 65 63 74 65 64 20 6f 62 | 6a 65 63 74 73 0d 73 65 |ected ob|jects.se|
|00003610| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 63 72 6f 73 |t cursor| to cros|
|00003620| 73 0d 69 66 20 74 68 65 | 20 6d 6f 75 73 65 20 69 |s.if the| mouse i|
|00003630| 73 20 64 6f 77 6e 20 74 | 68 65 6e 0d 67 65 74 20 |s down t|hen.get |
|00003640| 54 4b 73 71 75 61 72 65 | 28 22 66 72 61 6d 65 22 |TKsquare|("frame"|
|00003650| 29 0d 69 66 20 69 74 20 | 3c 3e 20 22 22 20 74 68 |).if it |<> "" th|
|00003660| 65 6e 0d 69 74 65 6d 47 | 72 6f 75 70 65 64 20 69 |en.itemG|rouped i|
|00003670| 74 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |t.end if|.end if.|
|00003680| 0d 65 6c 73 65 20 69 66 | 20 67 54 4b 44 6f 6e 65 |.else if| gTKDone|
|00003690| 20 74 68 65 6e 20 20 20 | 20 20 20 20 20 20 20 20 | then   |        |
|000036a0| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 20 71 75 |        |   -- qu|
|000036b0| 69 74 20 67 72 6f 75 70 | 69 6e 67 20 d7 0d 69 66 |it group|ing ..if|
|000036c0| 20 6f 62 6a 4c 69 73 74 | 20 ad 20 65 6d 70 74 79 | objList| . empty|
|000036d0| 20 74 68 65 6e 0d 64 65 | 6c 65 74 65 20 6c 61 73 | then.de|lete las|
|000036e0| 74 20 63 68 61 72 20 6f | 66 20 6f 62 6a 4c 69 73 |t char o|f objLis|
|000036f0| 74 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |t.repeat| with i |
|00003700| 3d 20 31 20 74 6f 20 6e | 75 6d 62 65 72 20 6f 66 |= 1 to n|umber of|
|00003710| 20 69 74 65 6d 73 20 69 | 6e 20 6f 62 6a 4c 69 73 | items i|n objLis|
|00003720| 74 0d 73 68 6f 77 20 69 | 74 65 6d 20 69 20 6f 66 |t.show i|tem i of|
|00003730| 20 6f 62 6a 4c 69 73 74 | 0d 69 66 20 28 74 68 65 | objList|.if (the|
|00003740| 20 63 6f 6d 6d 61 6e 64 | 4b 65 79 20 69 73 20 64 | command|Key is d|
|00003750| 6f 77 6e 29 20 61 6e 64 | 20 28 74 68 65 20 6f 70 |own) and| (the op|
|00003760| 74 69 6f 6e 4b 65 79 20 | 69 73 20 64 6f 77 6e 29 |tionKey |is down)|
|00003770| 20 74 68 65 6e 0d 70 75 | 74 20 73 68 6f 72 74 20 | then.pu|t short |
|00003780| 6e 61 6d 65 20 6f 66 20 | 69 74 65 6d 20 69 20 6f |name of |item i o|
|00003790| 66 20 6f 62 6a 4c 69 73 | 74 20 69 6e 74 6f 20 69 |f objLis|t into i|
|000037a0| 74 65 6d 20 69 20 6f 66 | 20 6f 62 6a 4c 69 73 74 |tem i of| objList|
|000037b0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|000037c0| 61 74 0d 65 78 69 74 20 | 73 74 61 72 74 47 72 6f |at.exit |startGro|
|000037d0| 75 70 69 6e 67 0d 65 6c | 73 65 0d 6c 6f 63 6b 20 |uping.el|se.lock |
|000037e0| 73 63 72 65 65 6e 0d 75 | 6e 6c 6f 63 6b 20 73 63 |screen.u|nlock sc|
|000037f0| 72 65 65 6e 0d 65 78 69 | 74 20 74 6f 20 68 79 70 |reen.exi|t to hyp|
|00003800| 65 72 43 61 72 64 0d 65 | 6e 64 20 69 66 0d 0d 65 |erCard.e|nd if..e|
|00003810| 6c 73 65 20 69 66 20 74 | 68 65 20 63 6f 6d 6d 61 |lse if t|he comma|
|00003820| 6e 64 4b 65 79 20 69 73 | 20 64 6f 77 6e 20 74 68 |ndKey is| down th|
|00003830| 65 6e 20 20 20 20 20 20 | 20 20 2d 2d 20 62 61 63 |en      |  -- bac|
|00003840| 6b 20 6f 75 74 20 6f 6e | 65 20 6f 62 6a 65 63 74 |k out on|e object|
|00003850| 0d 69 66 20 6f 62 6a 4c | 69 73 74 20 3c 3e 20 22 |.if objL|ist <> "|
|00003860| 22 20 74 68 65 6e 0d 67 | 65 74 20 6c 61 73 74 20 |" then.g|et last |
|00003870| 69 74 65 6d 20 69 6e 20 | 6f 62 6a 4c 69 73 74 0d |item in |objList.|
|00003880| 73 65 74 20 74 68 65 20 | 76 69 73 69 62 6c 65 20 |set the |visible |
|00003890| 6f 66 20 69 74 20 74 6f | 20 74 72 75 65 0d 64 65 |of it to| true.de|
|000038a0| 6c 65 74 65 20 6c 61 73 | 74 20 69 74 65 6d 20 69 |lete las|t item i|
|000038b0| 6e 20 6f 62 6a 4c 69 73 | 74 0d 70 6c 61 79 20 22 |n objLis|t.play "|
|000038c0| 54 4b 2e 43 6c 69 63 6b | 22 0d 77 61 69 74 20 33 |TK.Click|".wait 3|
|000038d0| 30 0d 65 6e 64 20 69 66 | 0d 0d 65 6c 73 65 20 20 |0.end if|..else  |
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003900| 20 20 20 20 20 2d 2d 20 | 67 72 6f 75 70 20 73 69 |     -- |group si|
|00003910| 6e 67 6c 65 20 6f 62 6a | 65 63 74 0d 67 65 74 20 |ngle obj|ect.get |
|00003920| 74 68 65 20 6d 6f 75 73 | 65 4c 6f 63 0d 73 65 74 |the mous|eLoc.set|
|00003930| 20 63 75 72 73 6f 72 20 | 74 6f 20 22 54 61 72 67 | cursor |to "Targ|
|00003940| 65 74 22 0d 69 66 20 74 | 68 65 20 6d 6f 75 73 65 |et".if t|he mouse|
|00003950| 43 6c 69 63 6b 20 74 68 | 65 6e 0d 73 65 74 20 63 |Click th|en.set c|
|00003960| 75 72 73 6f 72 20 74 6f | 20 77 61 74 63 68 0d 69 |ursor to| watch.i|
|00003970| 74 65 6d 43 6c 69 63 6b | 65 64 0d 65 6e 64 20 69 |temClick|ed.end i|
|00003980| 66 0d 65 6e 64 20 69 66 | 0d 0d 65 6e 64 20 72 65 |f.end if|..end re|
|00003990| 70 65 61 74 0d 0d 65 6e | 64 20 73 74 61 72 74 47 |peat..en|d startG|
|000039a0| 72 6f 75 70 69 6e 67 0d | 0d 6f 6e 20 69 74 65 6d |rouping.|.on item|
|000039b0| 43 6c 69 63 6b 65 64 20 | 2d 2d 20 d7 0d 67 6c 6f |Clicked |-- ..glo|
|000039c0| 62 61 6c 20 6f 62 6a 4c | 69 73 74 2c 67 54 4b 44 |bal objL|ist,gTKD|
|000039d0| 6f 6e 65 0d 69 66 20 74 | 68 65 20 6f 70 74 69 6f |one.if t|he optio|
|000039e0| 6e 4b 65 79 20 69 73 20 | 64 6f 77 6e 20 74 68 65 |nKey is |down the|
|000039f0| 6e 0d 70 75 74 20 22 63 | 64 20 62 75 74 74 6f 6e |n.put "c|d button|
|00003a00| 2c 63 64 20 66 69 65 6c | 64 2c 62 67 20 62 75 74 |,cd fiel|d,bg but|
|00003a10| 74 6f 6e 2c 62 67 20 66 | 69 65 6c 64 22 20 69 6e |ton,bg f|ield" in|
|00003a20| 74 6f 20 6c 69 73 74 0d | 65 6c 73 65 0d 70 75 74 |to list.|else.put|
|00003a30| 20 22 62 67 20 66 69 65 | 6c 64 2c 62 67 20 62 75 | "bg fie|ld,bg bu|
|00003a40| 74 74 6f 6e 2c 63 64 20 | 66 69 65 6c 64 2c 63 64 |tton,cd |field,cd|
|00003a50| 20 62 75 74 74 6f 6e 22 | 20 69 6e 74 6f 20 6c 69 | button"| into li|
|00003a60| 73 74 0d 65 6e 64 20 69 | 66 0d 72 65 70 65 61 74 |st.end i|f.repeat|
|00003a70| 20 77 69 74 68 20 69 3d | 31 20 74 6f 20 34 0d 70 | with i=|1 to 4.p|
|00003a80| 75 74 20 69 74 65 6d 20 | 69 20 6f 66 20 6c 69 73 |ut item |i of lis|
|00003a90| 74 20 69 6e 74 6f 20 6f | 62 6a 65 63 74 0d 70 75 |t into o|bject.pu|
|00003aa0| 74 20 6f 62 6a 65 63 74 | 20 26 20 22 73 22 20 69 |t object| & "s" i|
|00003ab0| 6e 74 6f 20 6f 62 6a 65 | 63 74 73 0d 72 65 70 65 |nto obje|cts.repe|
|00003ac0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 6e 75 6d 62 |at with |i = numb|
|00003ad0| 65 72 20 6f 66 20 6f 62 | 6a 65 63 74 73 20 64 6f |er of ob|jects do|
|00003ae0| 77 6e 20 74 6f 20 31 0d | 69 66 20 74 68 65 20 63 |wn to 1.|if the c|
|00003af0| 6c 69 63 6b 4c 6f 63 20 | 69 73 20 77 69 74 68 69 |lickLoc |is withi|
|00003b00| 6e 20 72 65 63 74 20 6f | 66 20 28 6f 62 6a 65 63 |n rect o|f (objec|
|00003b10| 74 20 26 26 20 69 29 20 | 74 68 65 6e 0d 67 65 74 |t && i) |then.get|
|00003b20| 20 28 6f 62 6a 65 63 74 | 20 26 26 20 22 69 64 22 | (object| && "id"|
|00003b30| 29 20 26 26 20 28 74 68 | 65 20 69 64 20 6f 66 20 |) && (th|e id of |
|00003b40| 28 6f 62 6a 65 63 74 20 | 26 26 20 69 29 29 20 26 |(object |&& i)) &|
|00003b50| 20 22 2c 22 0d 69 66 20 | 74 68 65 20 76 69 73 69 | ",".if |the visi|
|00003b60| 62 6c 65 20 6f 66 20 28 | 6f 62 6a 65 63 74 20 26 |ble of (|object &|
|00003b70| 26 20 69 29 20 69 73 20 | 74 72 75 65 20 74 68 65 |& i) is |true the|
|00003b80| 6e 0d 70 6c 61 79 20 22 | 54 4b 2e 43 6c 69 63 6b |n.play "|TK.Click|
|00003b90| 22 0d 69 66 20 69 74 20 | 69 73 20 6e 6f 74 20 69 |".if it |is not i|
|00003ba0| 6e 20 6f 62 6a 4c 69 73 | 74 20 74 68 65 6e 0d 70 |n objLis|t then.p|
|00003bb0| 75 74 20 69 74 20 61 66 | 74 65 72 20 6f 62 6a 4c |ut it af|ter objL|
|00003bc0| 69 73 74 0d 68 69 64 65 | 20 28 6f 62 6a 65 63 74 |ist.hide| (object|
|00003bd0| 20 26 26 20 69 29 0d 65 | 6e 64 20 69 66 0d 65 78 | && i).e|nd if.ex|
|00003be0| 69 74 20 69 74 65 6d 43 | 6c 69 63 6b 65 64 0d 65 |it itemC|licked.e|
|00003bf0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 65 6e 64 |nd if.en|d if.end|
|00003c00| 20 72 65 70 65 61 74 0d | 65 6e 64 20 72 65 70 65 | repeat.|end repe|
|00003c10| 61 74 0d 70 75 74 20 74 | 72 75 65 20 69 6e 74 6f |at.put t|rue into|
|00003c20| 20 67 54 4b 44 6f 6e 65 | 0d 65 6e 64 20 69 74 65 | gTKDone|.end ite|
|00003c30| 6d 43 6c 69 63 6b 65 64 | 0d 0d 6f 6e 20 69 74 65 |mClicked|..on ite|
|00003c40| 6d 47 72 6f 75 70 65 64 | 20 74 68 65 52 65 63 74 |mGrouped| theRect|
|00003c50| 20 2d 2d 20 a7 0d 67 6c | 6f 62 61 6c 20 6f 62 6a | -- ..gl|obal obj|
|00003c60| 4c 69 73 74 0d 69 66 20 | 74 68 65 20 6f 70 74 69 |List.if |the opti|
|00003c70| 6f 6e 4b 65 79 20 69 73 | 20 64 6f 77 6e 20 74 68 |onKey is| down th|
|00003c80| 65 6e 0d 70 75 74 20 22 | 63 64 20 62 75 74 74 6f |en.put "|cd butto|
|00003c90| 6e 2c 63 64 20 66 69 65 | 6c 64 2c 62 67 20 62 75 |n,cd fie|ld,bg bu|
|00003ca0| 74 74 6f 6e 2c 62 67 20 | 66 69 65 6c 64 22 20 69 |tton,bg |field" i|
|00003cb0| 6e 74 6f 20 6c 69 73 74 | 0d 65 6c 73 65 0d 70 75 |nto list|.else.pu|
|00003cc0| 74 20 22 62 67 20 66 69 | 65 6c 64 2c 62 67 20 62 |t "bg fi|eld,bg b|
|00003cd0| 75 74 74 6f 6e 2c 63 64 | 20 66 69 65 6c 64 2c 63 |utton,cd| field,c|
|00003ce0| 64 20 62 75 74 74 6f 6e | 22 20 69 6e 74 6f 20 6c |d button|" into l|
|00003cf0| 69 73 74 0d 65 6e 64 20 | 69 66 0d 72 65 70 65 61 |ist.end |if.repea|
|00003d00| 74 20 77 69 74 68 20 69 | 3d 31 20 74 6f 20 34 0d |t with i|=1 to 4.|
|00003d10| 70 75 74 20 69 74 65 6d | 20 69 20 6f 66 20 6c 69 |put item| i of li|
|00003d20| 73 74 20 69 6e 74 6f 20 | 6f 62 6a 65 63 74 0d 70 |st into |object.p|
|00003d30| 75 74 20 6f 62 6a 65 63 | 74 20 26 20 22 73 22 20 |ut objec|t & "s" |
|00003d40| 69 6e 74 6f 20 6f 62 6a | 65 63 74 73 0d 72 65 70 |into obj|ects.rep|
|00003d50| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 6e 75 6d |eat with| i = num|
|00003d60| 62 65 72 20 6f 66 20 6f | 62 6a 65 63 74 73 20 64 |ber of o|bjects d|
|00003d70| 6f 77 6e 20 74 6f 20 31 | 0d 73 65 74 20 63 75 72 |own to 1|.set cur|
|00003d80| 73 6f 72 20 74 6f 20 62 | 75 73 79 0d 67 65 74 20 |sor to b|usy.get |
|00003d90| 74 68 65 20 72 65 63 74 | 20 6f 66 20 28 6f 62 6a |the rect| of (obj|
|00003da0| 65 63 74 20 26 26 20 69 | 29 0d 69 66 20 54 4b 69 |ect && i|).if TKi|
|00003db0| 6e 52 65 63 74 28 74 68 | 65 52 65 63 74 2c 69 74 |nRect(th|eRect,it|
|00003dc0| 29 20 74 68 65 6e 0d 67 | 65 74 20 28 6f 62 6a 65 |) then.g|et (obje|
|00003dd0| 63 74 20 26 26 20 22 69 | 64 22 29 20 26 26 20 28 |ct && "i|d") && (|
|00003de0| 74 68 65 20 69 64 20 6f | 66 20 28 6f 62 6a 65 63 |the id o|f (objec|
|00003df0| 74 20 26 26 20 69 29 29 | 20 26 20 22 2c 22 0d 69 |t && i))| & ",".i|
|00003e00| 66 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |f the vi|sible of|
|00003e10| 20 28 6f 62 6a 65 63 74 | 20 26 26 20 69 29 20 69 | (object| && i) i|
|00003e20| 73 20 74 72 75 65 20 74 | 68 65 6e 0d 69 66 20 69 |s true t|hen.if i|
|00003e30| 74 20 69 73 20 6e 6f 74 | 20 69 6e 20 6f 62 6a 4c |t is not| in objL|
|00003e40| 69 73 74 20 74 68 65 6e | 0d 70 75 74 20 69 74 20 |ist then|.put it |
|00003e50| 61 66 74 65 72 20 6f 62 | 6a 4c 69 73 74 0d 68 69 |after ob|jList.hi|
|00003e60| 64 65 20 28 6f 62 6a 65 | 63 74 20 26 26 20 69 29 |de (obje|ct && i)|
|00003e70| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 65 |.end if.|end if.e|
|00003e80| 6e 64 20 69 66 0d 65 6e | 64 20 72 65 70 65 61 74 |nd if.en|d repeat|
|00003e90| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 |.end rep|eat.end |
|00003ea0| 69 74 65 6d 47 72 6f 75 | 70 65 64 0d 0d b0 b0 b0 |itemGrou|ped.....|
|00003eb0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003ec0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003ed0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003ee0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003ef0| b0 b0 b0 b0 0d 0d 6f 6e | 20 63 6c 6f 73 65 53 74 |......on| closeSt|
|00003f00| 61 63 6b 0d 69 66 20 74 | 68 65 72 65 20 69 73 20 |ack.if t|here is |
|00003f10| 61 20 77 69 6e 64 6f 77 | 20 22 54 4b 77 61 74 63 |a window| "TKwatc|
|00003f20| 68 65 72 22 20 74 68 65 | 6e 20 63 6c 6f 73 65 20 |her" the|n close |
|00003f30| 77 69 6e 64 6f 77 20 22 | 54 4b 77 61 74 63 68 65 |window "|TKwatche|
|00003f40| 72 22 0d 70 61 73 73 20 | 63 6c 6f 73 65 53 74 61 |r".pass |closeSta|
|00003f50| 63 6b 0d 65 6e 64 20 63 | 6c 6f 73 65 53 74 61 63 |ck.end c|loseStac|
|00003f60| 6b 0d 0d b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |k.......|........|
|00003f70| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003f80| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003f90| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00003fa0| b0 20 45 4e 44 20 b0 b0 | b0 b0 0d 00 00 00 00 00 |. END ..|........|
|00003fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 20 26 20 22 |........|.... & "|
|00003fd0| 73 22 20 69 6e 74 6f 20 | 6f 62 6a 65 63 74 73 0d |s" into |objects.|
|00003fe0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00003ff0| 6e 75 6d 62 65 72 20 6f | 66 20 6f 62 6a 65 63 74 |number o|f object|
|00004000| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00004010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004020| 00 02 10 37 00 02 14 51 | 00 02 54 11 00 02 69 64 |...7...Q|..T...id|
|00004030| 00 02 a2 d8 00 02 aa 7a | 00 02 56 b0 00 00 00 00 |.......z|..V.....|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 80 4c 49 53 54 | 00 00 08 37 00 00 00 00 |....LIST|...7....|
|00004210| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 34 00 02 |........|.....4..|
|00004220| 00 0c 00 03 20 00 01 2b | 00 00 00 01 00 00 00 00 |.... ..+|........|
|00004230| 00 00 09 51 00 01 00 00 | 00 00 00 00 00 00 00 00 |...Q....|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004280| 00 00 08 00 50 41 47 45 | 00 00 09 51 00 00 00 00 |....PAGE|...Q....|
|00004290| 00 00 08 37 80 00 01 6c | 00 00 0b 64 60 59 2a 5d |...7...l|...d`Y*]|
|000042a0| 11 e1 d5 93 c2 70 a7 88 | fe 78 b4 67 b6 87 a3 23 |.....p..|.x.g...#|
|000042b0| 0b 30 89 52 23 d9 e9 57 | 14 c1 a4 7b 90 91 a2 a7 |.0.R#..W|...{....|
|000042c0| 14 a6 81 d2 b2 02 11 9a | 1c 77 96 74 00 00 00 00 |........|.w.t....|
|000042d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a80| 00 00 00 40 42 4b 47 44 | 00 00 0a 11 00 00 00 00 |...@BKGD|........|
|00004a90| 00 00 0e b0 00 00 00 00 | 00 00 00 01 00 00 0a 11 |........|........|
|00004aa0| 00 00 0a 11 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ac0| 00 00 02 60 42 4d 41 50 | 00 00 0e b0 00 00 00 00 |...`BMAP|........|
|00004ad0| 00 00 00 00 00 01 00 00 | 00 00 00 00 00 e0 01 60 |........|.......`|
|00004ae0| 00 00 00 00 00 e0 01 60 | 00 05 00 01 00 cb 01 5f |.......`|......._|
|00004af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 20 |........|....... |
|00004b00| 31 06 01 80 12 30 e2 05 | 21 07 ff 73 f7 f7 c3 01 |1....0..|!..s....|
|00004b10| ff 83 80 e1 0f 21 0c 73 | 63 71 c3 07 01 b7 87 e2 |.....!.s|cq......|
|00004b20| 8a 22 80 20 62 02 05 01 | 1d 86 40 e2 89 22 75 40 |.". b...|..@.."u@|
|00004b30| 72 f5 dc 50 5c 35 df 50 | e1 0f 22 ea 20 72 eb b8 |r..P\5.P|..". r..|
|00004b40| 20 bc 33 fb a0 1e 80 29 | 40 10 12 10 02 41 01 e4 | .3....)|@....A..|
|00004b50| 7c 03 c1 c0 e7 b0 4e ff | 67 7e 40 3c 02 03 82 29 ||.....N.|g~@<...)|
|00004b60| 7f e0 12 70 02 8b 13 c6 | c1 0e 60 00 50 be 86 d0 |...p....|..`.P...|
|00004b70| 85 3d 02 01 06 29 c6 30 | 12 20 02 8a 32 1f 21 12 |.=...).0|. ..2.!.|
|00004b80| c1 11 3c 19 a0 03 84 09 | e0 3c 04 00 02 27 01 80 |..<.....|.<...'..|
|00004b90| 07 41 01 3c 00 80 c1 08 | 18 83 50 c3 98 98 c0 2d |.A.<....|..P....-|
|00004ba0| 02 84 29 80 20 12 50 02 | 32 1e 40 e4 c1 0c 18 06 |..). .P.|2.@.....|
|00004bb0| 73 8f fb ab c0 1c 08 1b | 0a 06 8b 22 02 40 c1 24 |s.......|...".@.$|
|00004bc0| 02 20 4a 70 08 f7 c7 3d | 0d 00 0c c2 1c 0c 60 c6 |. Jp...=|......`.|
|00004bd0| 18 1c 18 ce 60 0a 03 80 | e0 01 c0 00 12 04 72 02 |....`...|......r.|
|00004be0| 40 08 00 01 10 11 3d 1d | 00 1c c2 63 dc b1 cb 2c |@.....=.|...c...,|
|00004bf0| 62 39 62 80 00 0c 43 10 | 02 60 00 89 11 03 c1 ab |b9b...C.|.`......|
|00004c00| 8e b8 eb be be 3b ea 1f | 13 c2 06 2c 63 2d 32 d3 |.....;..|...,c-2.|
|00004c10| 4c c2 5a 63 00 0c 18 66 | 18 c6 02 8a 02 c1 38 00 |L.Zc...f|......8.|
|00004c20| c0 0c 50 e3 04 06 6f 30 | 00 60 a0 60 06 52 04 c0 |..P...o0|.`.`.R..|
|00004c30| 05 00 14 06 02 c1 3a 12 | c1 2c 20 f3 01 16 e1 11 |......:.|., .....|
|00004c40| 54 c1 00 57 55 75 d5 4a | ae a0 42 28 0a 00 01 02 |T..WUu.J|..B(....|
|00004c50| 11 0c c1 59 6d f6 dc 31 | 61 03 8e 1f 5c 72 05 06 |...Ym..1|a...\r..|
|00004c60| 00 61 80 14 0c 16 04 02 | 21 0f d0 c1 d1 cd 1f d7 |.a......|!.......|
|00004c70| 4d bf fc 80 4e 3e 8a 00 | 80 14 78 46 01 40 80 00 |M...N>..|..xF.@..|
|00004c80| 89 02 c1 50 11 01 10 51 | 41 45 15 3f 81 8c b2 c2 |...P...Q|AE.?....|
|00004c90| 78 18 c9 86 33 82 31 9c | 00 30 30 cc 31 91 80 00 |x...3.1.|.00.1...|
|00004ca0| 8a 02 c1 f8 1b 01 b0 73 | e1 e7 1f e1 30 01 86 f8 |.......s|....0...|
|00004cb0| c1 28 1a 8a 06 06 50 30 | 80 14 20 02 89 e1 28 01 |.(....P0|.. ...(.|
|00004cc0| 01 c2 8e 38 c0 30 e3 0c | 38 88 61 cd 00 30 11 84 |...8.0..|8.a..0..|
|00004cd0| 61 d9 02 e1 28 07 c7 c2 | ec 30 f0 30 c3 0c 30 70 |a...(...|.0.0..0p|
|00004ce0| 61 86 00 fc 0e 03 81 8e | 02 e1 2b 03 3c 0f 8c 10 |a.......|..+.<...|
|00004cf0| 40 e1 3a 0d 09 80 1d 01 | 89 e1 2b 04 06 0f e1 2b |@.:.....|..+....+|
|00004d00| 04 04 0f e1 2b 02 08 0f | e1 2b 01 f0 0f bf 81 bf |....+...|.+......|
|00004d10| 81 bf 81 bf 81 bf 81 ae | 81 8e 10 20 e2 1a 02 00 |........|... ....|
|00004d20| 00 00 07 20 43 41 52 44 | 00 00 0b 64 00 00 00 00 |... CARD|...d....|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 09 51 00 00 0a 11 | 00 02 00 04 00 00 00 9a |...Q....|........|
|00004d50| 00 01 00 00 02 a8 00 74 | 00 02 01 00 00 bf 01 34 |.......t|.......4|
|00004d60| 00 d5 01 4f 20 01 00 00 | 54 c4 00 01 00 00 00 0c |...O ...|T.......|
|00004d70| 00 00 00 10 48 6f 6d 65 | 00 00 6f 6e 20 6d 6f 75 |....Home|..on mou|
|00004d80| 73 65 55 70 0d 67 65 74 | 20 74 68 65 20 73 68 6f |seUp.get| the sho|
|00004d90| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this |
|00004da0| 73 74 61 63 6b 0d 63 6c | 6f 73 65 20 77 69 6e 64 |stack.cl|ose wind|
|00004db0| 6f 77 20 69 74 0d 67 6f | 20 68 6f 6d 65 0d 65 6e |ow it.go| home.en|
|00004dc0| 64 20 6d 6f 75 73 65 55 | 70 00 00 26 00 04 02 05 |d mouseU|p..&....|
|00004dd0| 00 29 00 09 00 e0 01 57 | 00 00 00 00 00 00 00 00 |.).....W|........|
|00004de0| 00 03 00 0a 00 00 00 0d | 49 6e 66 6f 00 00 00 00 |........|Info....|
|00004df0| ff fc 02 a3 80 72 00 00 | 00 01 00 19 00 02 00 25 |.....r..|.......%|
|00004e00| 00 01 00 2b 00 05 00 3a | 00 03 00 3b 00 04 00 3c |...+...:|...;...<|
|00004e10| 00 05 00 5b 00 06 00 65 | 00 05 00 7a 00 04 00 7b |...[...e|...z...{|
|00004e20| 00 05 00 9b 00 07 00 ae | 00 05 01 22 00 08 01 27 |........|..."...'|
|00004e30| 00 05 01 96 00 04 01 97 | 00 05 01 9a 00 08 01 9d |........|........|
|00004e40| 00 05 01 b1 00 08 01 b7 | 00 05 01 c6 00 08 01 c9 |........|........|
|00004e50| 00 05 01 dd 00 08 01 e2 | 00 05 01 f7 00 03 01 fd |........|........|
|00004e60| 00 09 02 30 00 04 54 6f | 6f 6c 4b 69 74 aa 20 41 |...0..To|olKit. A|
|00004e70| 6c 69 67 6e 6d 65 6e 74 | 20 54 6f 6f 6c 73 20 2e |lignment| Tools .|
|00004e80| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 20 24 46 72 65 65 |........|.. $Free|
|00004e90| 20 28 77 69 74 68 20 54 | 6f 6f 6c 4b 69 74 aa 29 | (with T|oolKit.)|
|00004ea0| 0d 0d 54 6f 6f 6c 4b 69 | 74 aa 20 61 63 63 65 73 |..ToolKi|t. acces|
|00004eb0| 73 6f 72 69 65 73 20 77 | 6f 72 6b 20 77 69 74 68 |sories w|ork with|
|00004ec0| 20 52 65 67 69 73 74 65 | 72 65 64 20 63 6f 70 69 | Registe|red copi|
|00004ed0| 65 73 20 6f 66 20 54 6f | 6f 6c 4b 69 74 aa 2e 0d |es of To|olKit...|
|00004ee0| 0d 53 65 6e 64 20 79 6f | 75 72 20 72 65 67 69 73 |.Send yo|ur regis|
|00004ef0| 74 72 61 74 69 6f 6e 20 | 66 65 65 20 74 6f 3a 20 |tration |fee to: |
|00004f00| 20 53 68 61 72 65 64 20 | 49 6e 74 65 6c 6c 69 67 | Shared |Intellig|
|00004f10| 65 6e 63 65 0d ca ca ca | ca ca ca ca ca ca ca ca |ence....|........|
|00004f20| ca ca ca ca ca ca ca ca | ca ca ca ca ca ca 53 75 |........|......Su|
|00004f30| 69 74 65 20 36 35 30 0d | ca ca ca ca ca ca ca ca |ite 650.|........|
|00004f40| ca ca ca ca ca ca ca ca | ca ca ca ca ca ca ca ca |........|........|
|00004f50| ca 31 30 30 31 20 42 72 | 69 64 67 65 77 61 79 0d |.1001 Br|idgeway.|
|00004f60| ca ca ca ca ca ca ca ca | ca ca ca ca ca ca ca ca |........|........|
|00004f70| ca ca ca ca ca ca ca ca | ca 53 61 75 73 61 6c 69 |........|.Sausali|
|00004f80| 74 6f 2c 20 43 41 20 20 | 39 34 39 36 35 0d 0d 50 |to, CA  |94965..P|
|00004f90| 72 6f 6d 69 73 65 20 74 | 68 65 20 63 68 65 63 6b |romise t|he check|
|00004fa0| 20 69 73 20 69 6e 20 74 | 68 65 20 6d 61 69 6c 20 | is in t|he mail |
|00004fb0| 61 6e 64 20 49 20 77 69 | 6c 6c 20 70 72 6f 76 69 |and I wi|ll provi|
|00004fc0| 64 65 20 79 6f 75 20 61 | 6e 20 69 6d 6d 65 64 69 |de you a|n immedi|
|00004fd0| 61 74 65 20 72 65 67 69 | 73 74 72 61 74 69 6f 6e |ate regi|stration|
|00004fe0| 20 6e 75 6d 62 65 72 20 | 76 69 61 20 65 4d 61 69 | number |via eMai|
|00004ff0| 6c 20 6f 72 20 76 6f 69 | 63 65 3a 0d 0d ca ca ca |l or voi|ce:.....|
|00005000| 41 4f 4c 3a 20 20 20 54 | 6f 6f 6c 4b 69 74 50 72 |AOL:   T|oolKitPr|
|00005010| 6f ca ca 20 20 ca ca 65 | 57 6f 72 6c 64 3a 20 20 |o..  ..e|World:  |
|00005020| 20 53 74 61 6e 4d 61 6e | 0d ca ca ca 43 49 53 3a | StanMan|....CIS:|
|00005030| 20 20 20 20 37 33 37 36 | 30 2c 31 34 32 37 ca 20 |    7376|0,1427. |
|00005040| 20 20 ca 56 6f 69 63 65 | 3a 20 20 20 20 20 28 34 |  .Voice|:     (4|
|00005050| 30 38 29 20 36 32 36 2d | 30 37 32 34 0d 20 20 20 |08) 626-|0724.   |
|00005060| 20 20 0d ca ca ca ca ca | ca ca ca ca 4a 75 73 74 |  ......|....Just|
|00005070| 20 64 72 6f 70 20 74 68 | 69 73 20 69 6e 74 6f 20 | drop th|is into |
|00005080| 79 6f 75 72 20 54 6f 6f | 6c 4b 69 74 aa 20 66 6f |your Too|lKit. fo|
|00005090| 6c 64 65 72 21 0d 0d 00 | 00 6f 6e 20 69 64 6c 65 |lder!...|.on idle|
|000050a0| 0d 67 6c 6f 62 61 6c 20 | 67 54 4b 77 61 74 63 68 |.global |gTKwatch|
|000050b0| 65 72 2c 67 52 65 66 72 | 65 73 68 2c 67 54 4b 72 |er,gRefr|esh,gTKr|
|000050c0| 65 73 65 74 0d 69 66 20 | 67 54 4b 72 65 73 65 74 |eset.if |gTKreset|
|000050d0| 20 3c 3e 20 22 22 20 74 | 68 65 6e 20 65 78 69 74 | <> "" t|hen exit|
|000050e0| 20 69 64 6c 65 0d 69 66 | 20 67 52 65 66 72 65 73 | idle.if| gRefres|
|000050f0| 68 20 3d 20 22 22 20 74 | 68 65 6e 20 70 75 74 20 |h = "" t|hen put |
|00005100| 30 20 69 6e 74 6f 20 67 | 52 65 66 72 65 73 68 0d |0 into g|Refresh.|
|00005110| 69 66 20 74 68 65 20 73 | 68 69 66 74 6b 65 79 20 |if the s|hiftkey |
|00005120| 69 73 20 64 6f 77 6e 20 | 74 68 65 6e 0d 70 75 74 |is down |then.put|
|00005130| 20 34 20 69 6e 74 6f 20 | 67 52 65 66 72 65 73 68 | 4 into |gRefresh|
|00005140| 0d 65 6c 73 65 20 69 66 | 20 74 68 65 20 6f 70 74 |.else if| the opt|
|00005150| 69 6f 6e 6b 65 79 20 69 | 73 20 64 6f 77 6e 20 74 |ionkey i|s down t|
|00005160| 68 65 6e 0d 70 75 74 20 | 34 20 69 6e 74 6f 20 67 |hen.put |4 into g|
|00005170| 52 65 66 72 65 73 68 0d | 65 6c 73 65 20 69 66 20 |Refresh.|else if |
|00005180| 74 68 65 20 63 6f 6d 6d | 61 6e 64 6b 65 79 20 69 |the comm|andkey i|
|00005190| 73 20 64 6f 77 6e 20 74 | 68 65 6e 0d 70 75 74 20 |s down t|hen.put |
|000051a0| 34 20 69 6e 74 6f 20 67 | 52 65 66 72 65 73 68 0d |4 into g|Refresh.|
|000051b0| 65 6c 73 65 20 69 66 20 | 67 52 65 66 72 65 73 68 |else if |gRefresh|
|000051c0| 20 3e 20 30 20 74 68 65 | 6e 0d 73 75 62 74 72 61 | > 0 the|n.subtra|
|000051d0| 63 74 20 31 20 66 72 6f | 6d 20 67 52 65 66 72 65 |ct 1 fro|m gRefre|
|000051e0| 73 68 0d 69 66 20 67 52 | 65 66 72 65 73 68 20 3d |sh.if gR|efresh =|
|000051f0| 20 30 20 74 68 65 6e 0d | 70 75 74 20 22 73 68 6f | 0 then.|put "sho|
|00005200| 77 22 20 69 6e 74 6f 20 | 67 54 4b 77 61 74 63 68 |w" into |gTKwatch|
|00005210| 65 72 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 20 69 |er.end i|f.else i|
|00005220| 66 20 67 54 4b 77 61 74 | 63 68 65 72 20 3d 20 22 |f gTKwat|cher = "|
|00005230| 73 68 6f 77 22 20 74 68 | 65 6e 0d 63 6f 6c 6f 72 |show" th|en.color|
|00005240| 43 61 72 64 0d 65 6e 64 | 20 69 66 0d 70 61 73 73 |Card.end| if.pass|
|00005250| 20 69 64 6c 65 0d 65 6e | 64 20 69 64 6c 65 0d 0d | idle.en|d idle..|
|00005260| 6f 6e 20 72 65 73 75 6d | 65 53 74 61 63 6b 0d 67 |on resum|eStack.g|
|00005270| 6c 6f 62 61 6c 20 67 54 | 4b 77 61 74 63 68 65 72 |lobal gT|Kwatcher|
|00005280| 0d 70 75 74 20 22 73 68 | 6f 77 22 20 69 6e 74 6f |.put "sh|ow" into|
|00005290| 20 67 54 4b 77 61 74 63 | 68 65 72 0d 70 61 73 73 | gTKwatc|her.pass|
|000052a0| 20 72 65 73 75 6d 65 53 | 74 61 63 6b 0d 65 6e 64 | resumeS|tack.end|
|000052b0| 20 72 65 73 75 6d 65 53 | 74 61 63 6b 0d 0d 6f 6e | resumeS|tack..on|
|000052c0| 20 6d 6f 76 65 57 69 6e | 64 6f 77 0d 67 6c 6f 62 | moveWin|dow.glob|
|000052d0| 61 6c 20 67 54 4b 77 61 | 74 63 68 65 72 0d 70 75 |al gTKwa|tcher.pu|
|000052e0| 74 20 22 73 68 6f 77 22 | 20 69 6e 74 6f 20 67 54 |t "show"| into gT|
|000052f0| 4b 77 61 74 63 68 65 72 | 0d 70 61 73 73 20 6d 6f |Kwatcher|.pass mo|
|00005300| 76 65 57 69 6e 64 6f 77 | 0d 65 6e 64 20 6d 6f 76 |veWindow|.end mov|
|00005310| 65 57 69 6e 64 6f 77 0d | 0d 6f 6e 20 6d 6f 75 73 |eWindow.|.on mous|
|00005320| 65 55 70 0d 67 6c 6f 62 | 61 6c 20 67 54 4b 77 61 |eUp.glob|al gTKwa|
|00005330| 74 63 68 65 72 0d 70 75 | 74 20 22 73 68 6f 77 22 |tcher.pu|t "show"|
|00005340| 20 69 6e 74 6f 20 67 54 | 4b 77 61 74 63 68 65 72 | into gT|Kwatcher|
|00005350| 0d 70 61 73 73 20 6d 6f | 75 73 65 55 70 0d 65 6e |.pass mo|useUp.en|
|00005360| 64 20 6d 6f 75 73 65 55 | 70 0d 0d 6f 6e 20 6f 70 |d mouseU|p..on op|
|00005370| 65 6e 43 61 72 64 0d 67 | 6c 6f 62 61 6c 20 67 54 |enCard.g|lobal gT|
|00005380| 4b 77 61 74 63 68 65 72 | 0d 70 75 74 20 22 73 68 |Kwatcher|.put "sh|
|00005390| 6f 77 22 20 69 6e 74 6f | 20 67 54 4b 77 61 74 63 |ow" into| gTKwatc|
|000053a0| 68 65 72 0d 70 61 73 73 | 20 6f 70 65 6e 43 61 72 |her.pass| openCar|
|000053b0| 64 0d 65 6e 64 20 6f 70 | 65 6e 43 61 72 64 0d 0d |d.end op|enCard..|
|000053c0| 6f 6e 20 63 6f 6c 6f 72 | 43 61 72 64 0d 67 6c 6f |on color|Card.glo|
|000053d0| 62 61 6c 20 67 54 4b 77 | 61 74 63 68 65 72 0d 70 |bal gTKw|atcher.p|
|000053e0| 75 74 20 22 22 20 69 6e | 74 6f 20 67 54 4b 77 61 |ut "" in|to gTKwa|
|000053f0| 74 63 68 65 72 0d 54 4b | 76 61 6c 69 64 52 65 63 |tcher.TK|validRec|
|00005400| 74 20 22 73 63 72 65 65 | 6e 22 0d 54 4b 73 68 6f |t "scree|n".TKsho|
|00005410| 77 50 49 43 54 20 22 54 | 6f 6f 6c 4b 69 74 aa 22 |wPICT "T|oolKit."|
|00005420| 2c 31 32 2c 35 0d 65 6e | 64 20 63 6f 6c 6f 72 43 |,12,5.en|d colorC|
|00005430| 61 72 64 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ard.....|........|
|00005440| 00 00 01 00 53 54 42 4c | 00 00 0c d8 00 00 00 00 |....STBL|........|
|00005450| 00 00 00 09 00 00 00 0a | 00 00 00 01 00 00 00 01 |........|........|
|00005460| 00 00 00 00 00 00 ff ff | 00 0c 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 02 00 00 00 01 | 00 00 00 00 ff ff ff ff |........|........|
|00005480| 00 0c 00 00 00 00 00 00 | 00 00 00 03 00 00 00 01 |........|........|
|00005490| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|000054a0| 00 00 00 04 00 00 00 01 | 00 00 00 00 ff ff ff ff |........|........|
|000054b0| 00 04 00 00 00 00 00 00 | 00 00 00 05 00 00 00 01 |........|........|
|000054c0| 00 00 00 00 ff ff ff ff | 00 09 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 06 00 00 00 01 | 00 00 00 00 ff ff 01 00 |........|........|
|000054e0| 00 09 00 00 00 00 00 00 | 00 00 00 07 00 00 00 01 |........|........|
|000054f0| 00 00 00 00 ff ff 21 00 | ff ff 00 00 00 00 00 00 |......!.|........|
|00005500| 00 00 00 08 00 00 00 01 | 00 00 00 00 ff ff 21 00 |........|......!.|
|00005510| 00 09 00 00 00 00 00 00 | 00 00 00 09 00 00 00 01 |........|........|
|00005520| 00 00 00 00 ff ff 02 00 | ff ff 00 00 00 00 00 00 |........|........|
|00005530| 63 54 55 4c 6e 75 6c 6c | 00 7f bd 76 00 00 00 00 |cTULnull|...v....|
|00005540| 00 00 00 40 46 54 42 4c | 00 00 0d 7a 00 00 00 00 |...@FTBL|...z....|
|00005550| 00 00 00 02 00 00 00 00 | 00 00 43 68 69 63 61 67 |........|..Chicag|
|00005560| 6f 00 00 03 47 65 6e 65 | 76 61 00 6e 6c 69 6e 65 |o...Gene|va.nline|
|00005570| 2c 63 65 6e 74 65 72 48 | 77 69 6e 64 2c 63 65 6e |,centerH|wind,cen|
|00005580| 00 00 00 20 54 41 49 4c | ff ff ff ff 00 00 00 00 |... TAIL|........|
|00005590| 0f 4e 75 20 8a 72 20 64 | 65 74 20 73 6c 75 74 c9 |.Nu .r d|et slut.|
+--------+-------------------------+-------------------------+--------+--------+