/ MacFormat 2000 February / MacFormat 87.iso / Shareware Plus / Development / LogIt Folder / LogIt Example

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 08 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 00 00 |AAAA..??|??......|
|00000020| 07 41 70 70 4e 61 6d 65 | 80 80 80 01 80 80 80 01 |.AppName|........|
|00000030| 01 00 00 00 00 00 00 00 | 01 00 0b 41 70 70 4e 61 |........|...AppNa|
|00000040| 6d 65 2e 65 78 65 00 0e | 4d 79 20 41 70 70 6c 69 |me.exe..|My Appli|
|00000050| 63 61 74 69 6f 6e 88 03 | 32 90 06 b0 03 06 69 63 |cation..|2.....ic|
|00000060| 73 23 80 01 00 00 00 00 | 01 80 06 60 08 10 18 08 |s#......|...`....|
|00000070| 12 28 10 88 30 2c 50 8a | 98 19 86 67 61 9e 18 78 |.(..0,P.|...ga..x|
|00000080| 06 e0 01 80 00 00 00 00 | 01 80 07 e0 1f f8 1f f8 |........|........|
|00000090| 1f f8 1f f8 3f fc 7f fe | ff ff ff ff 7f fe 1f f8 |....?...|........|
|000000a0| 07 e0 01 80 49 43 4e 23 | 80 04 00 00 00 00 00 00 |....ICN#|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 03 c0 00 00 0f |........|........|
|000000c0| f0 00 00 3c 3c 00 00 f0 | 0f 00 01 c0 03 80 03 00 |...<<...|........|
|000000d0| 00 c0 03 20 02 c0 03 08 | 08 c0 03 02 22 c0 03 00 |... ....|...."...|
|000000e0| 88 c0 03 00 22 c0 03 00 | 88 c0 03 00 22 c0 0f 00 |...."...|...."...|
|000000f0| 88 f0 33 00 22 cc 43 00 | 88 c2 81 c0 23 85 a0 f0 |..3.".C.|....#...|
|00000100| 8f 01 88 3c 3c 11 82 0f | f0 41 60 83 c1 06 18 20 |...<<...|.A`.... |
|00000110| 04 18 06 08 10 60 01 82 | 41 80 00 60 06 00 00 18 |.....`..|A..`....|
|00000120| 18 00 00 06 60 00 00 01 | 80 00 00 00 00 00 00 00 |....`...|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 03 c0 00 00 0f |........|........|
|00000140| f0 00 00 3f fc 00 00 ff | ff 00 01 ff ff 80 03 ff |...?....|........|
|00000150| ff c0 03 ff ff c0 03 ff | ff c0 03 ff ff c0 03 ff |........|........|
|00000160| ff c0 03 ff ff c0 03 ff | ff c0 03 ff ff c0 0f ff |........|........|
|00000170| ff f0 3f ff ff fc 7f ff | ff fe ff ff ff ff ff ff |..?.....|........|
|00000180| ff ff ff ff ff ff ff ff | ff ff 7f ff ff fe 1f ff |........|........|
|00000190| ff f8 07 ff ff e0 01 ff | ff 80 00 7f fe 00 00 1f |........|........|
|000001a0| f8 00 00 07 e0 00 00 01 | 80 00 69 63 73 34 80 02 |........|..ics4..|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 0f f0 00 00 00 | 00 00 0f f8 1f f0 00 00 |........|........|
|000001d0| 00 0d f1 81 81 8f d0 00 | 00 0f 88 18 18 19 f0 00 |........|........|
|000001e0| 00 0f 88 81 88 98 f0 00 | 00 0f 88 88 89 89 f0 00 |........|........|
|000001f0| 00 ff 88 88 98 98 ff 00 | 0f cf 88 88 89 89 fd f0 |........|........|
|00000200| fc cf f8 88 98 9f fc cf | fc cc cf f8 8f fc cc df |........|........|
|00000210| 0f fc cc cf fc cc df f0 | 00 0f fc cc cc df f0 00 |........|........|
|00000220| 00 00 0f fc df f0 00 00 | 00 00 00 0f f0 00 00 00 |........|........|
|00000230| 69 63 73 38 80 04 00 00 | 00 00 00 00 00 00 00 00 |ics8....|........|
|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 ff ff 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff 75 4b ff |........|.....uK.|
|00000270| ff 00 00 00 00 00 00 00 | 00 f9 ff 75 4b 4b 4b 4b |........|...uKKKK|
|00000280| 4b ff f9 00 00 00 00 00 | 00 ff 75 4b 4b 4b 4b 4b |K.......|..uKKKKK|
|00000290| 4b a0 ff 00 00 00 00 00 | 00 ff 75 75 75 4b 4b a0 |K.......|..uuuKK.|
|000002a0| a0 a0 ff 00 00 00 00 00 | 00 ff 75 75 75 75 a0 a0 |........|..uuuu..|
|000002b0| a0 a0 ff 00 00 00 00 00 | ff ff 75 75 75 75 a0 a0 |........|..uuuu..|
|000002c0| a0 a0 ff ff 00 00 00 ff | f6 ff 75 75 75 75 a0 a0 |........|..uuuu..|
|000002d0| a0 a0 ff f9 ff 00 ff f6 | f6 ff ff 75 75 75 a0 a0 |........|...uuu..|
|000002e0| a0 ff ff f6 f6 ff ff f7 | f6 f6 f6 ff ff 75 a0 ff |........|.....u..|
|000002f0| ff f6 f6 f7 f9 ff 00 ff | ff f7 f6 f6 f6 ff ff f6 |........|........|
|00000300| f6 f7 f9 ff ff 00 00 00 | 00 ff ff f7 f6 f6 f6 f7 |........|........|
|00000310| f9 ff ff 00 00 00 00 00 | 00 00 00 ff ff f7 f9 ff |........|........|
|00000320| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff 00 |........|........|
|00000330| 00 00 00 00 00 00 69 63 | 6c 34 80 08 00 00 00 00 |......ic|l4......|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 cf fc 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 cf ff ff fc 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 cf ff 81 81 ff fc 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| cf ff 18 18 18 18 ff fc | 00 00 00 00 00 00 00 0f |........|........|
|000003c0| ff 81 81 81 81 81 81 ff | f0 00 00 00 00 00 00 cf |........|........|
|000003d0| 18 18 18 18 18 18 18 18 | fc 00 00 00 00 00 00 cf |........|........|
|000003e0| 88 81 81 81 81 81 81 89 | fc 00 00 00 00 00 00 cf |........|........|
|000003f0| 88 88 18 18 18 18 98 98 | fc 00 00 00 00 00 00 cf |........|........|
|00000400| 88 88 88 81 81 89 89 89 | fc 00 00 00 00 00 00 cf |........|........|
|00000410| 88 88 88 88 98 98 98 98 | fc 00 00 00 00 00 00 cf |........|........|
|00000420| 88 88 88 88 89 89 89 89 | fc 00 00 00 00 00 00 cf |........|........|
|00000430| 88 88 88 88 98 98 98 98 | fc 00 00 00 00 00 00 ff |........|........|
|00000440| 88 88 88 88 89 89 89 89 | ff 00 00 00 00 00 ff df |........|........|
|00000450| 88 88 88 88 98 98 98 98 | fd ff 00 00 00 ff 0c df |........|........|
|00000460| 88 88 88 88 89 89 89 89 | fd cd ff 00 0f 0c cc df |........|........|
|00000470| 88 88 88 88 98 98 98 98 | fd cc cd f0 f0 cc cc df |........|........|
|00000480| ff 88 88 88 89 89 89 ff | fd cc cc df f0 cc cc cc |........|........|
|00000490| df ff 88 88 98 98 ff fd | cc cc cc cf fc 00 cc cc |........|........|
|000004a0| cc df ff 88 89 ff fd cc | cc cc cc df fc cc 00 cc |........|........|
|000004b0| cc cc df ff ff fd cc cc | cc cc dd df 0f fc cc 00 |........|........|
|000004c0| cc cc cc df fd cc cc cc | cc dd df f0 00 0f fc cc |........|........|
|000004d0| 00 cc cc cc cc cc cc cc | dd df f0 00 00 00 0f fc |........|........|
|000004e0| cc 00 cc cc cc cc cc dd | df f0 00 00 00 00 00 0f |........|........|
|000004f0| fc cc 00 cc cc cc dd df | f0 00 00 00 00 00 00 00 |........|........|
|00000500| 0f fc cc 00 cc dd df f0 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 0f fc cc dd df f0 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 0f fc df f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 0f f0 00 00 00 | 00 00 00 00 69 63 6c 38 |........|....icl8|
|00000540| 80 10 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| f8 ff ff f8 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 f8 ff |........|........|
|000005f0| ff ff ff ff ff f8 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 f8 ff ff ff |........|........|
|00000610| 75 4b 4b 4b ff ff ff f8 | 00 00 00 00 00 00 00 00 |uKKK....|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 f8 ff ff ff 75 4b |........|......uK|
|00000630| 4b 4b 4b 4b 4b 4b ff ff | ff f8 00 00 00 00 00 00 |KKKKKK..|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 ff ff ff 75 4b 4b 4b |........|....uKKK|
|00000650| 4b 4b 4b 4b 4b 4b 4b 4b | ff ff ff 00 00 00 00 00 |KKKKKKKK|........|
|00000660| 00 00 00 00 00 00 00 00 | f8 ff 75 4b 4b 4b 4b 4b |........|..uKKKKK|
|00000670| 4b 4b 4b 4b 4b 4b 4b 4b | 4b 4b ff f8 00 00 00 00 |KKKKKKKK|KK......|
|00000680| 00 00 00 00 00 00 00 00 | f8 ff 75 75 4b 4b 4b 4b |........|..uuKKKK|
|00000690| 4b 4b 4b 4b 4b 4b 4b 4b | a0 a0 ff f8 00 00 00 00 |KKKKKKKK|........|
|000006a0| 00 00 00 00 00 00 00 00 | f8 ff 75 75 75 75 4b 4b |........|..uuuuKK|
|000006b0| 4b 4b 4b 4b 4b 4b a0 a0 | a0 a0 ff f8 00 00 00 00 |KKKKKK..|........|
|000006c0| 00 00 00 00 00 00 00 00 | f8 ff 75 75 75 75 75 75 |........|..uuuuuu|
|000006d0| 4b 4b 4b 4b a0 a0 a0 a0 | a0 a0 ff f8 00 00 00 00 |KKKK....|........|
|000006e0| 00 00 00 00 00 00 00 00 | f8 ff 75 75 75 75 75 75 |........|..uuuuuu|
|000006f0| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f8 00 00 00 00 |uu......|........|
|00000700| 00 00 00 00 00 00 00 00 | f8 ff 75 75 75 75 75 75 |........|..uuuuuu|
|00000710| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f8 00 00 00 00 |uu......|........|
|00000720| 00 00 00 00 00 00 00 00 | f8 ff 75 75 75 75 75 75 |........|..uuuuuu|
|00000730| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f8 00 00 00 00 |uu......|........|
|00000740| 00 00 00 00 00 00 00 00 | ff ff 75 75 75 75 75 75 |........|..uuuuuu|
|00000750| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff ff 00 00 00 00 |uu......|........|
|00000760| 00 00 00 00 00 00 ff ff | f9 ff 75 75 75 75 75 75 |........|..uuuuuu|
|00000770| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f9 ff ff 00 00 |uu......|........|
|00000780| 00 00 00 00 ff ff 00 f6 | f9 ff 75 75 75 75 75 75 |........|..uuuuuu|
|00000790| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f9 f6 f9 ff ff |uu......|........|
|000007a0| 00 00 00 ff 00 f6 f6 f6 | f9 ff 7b 75 75 75 75 75 |........|..{uuuuu|
|000007b0| 75 75 a0 a0 a0 a0 a0 a0 | a0 a0 ff f9 f6 f6 f6 f9 |uu......|........|
|000007c0| ff 00 ff 00 f6 f6 f6 f6 | f9 ff ff ff 7b 75 75 75 |........|....{uuu|
|000007d0| 75 75 a0 a0 a0 a0 a0 a0 | ff ff ff f9 f6 f6 f6 f6 |uu......|........|
|000007e0| f9 ff ff 00 f6 f6 f6 f6 | f6 f6 f9 ff ff ff 7b 75 |........|......{u|
|000007f0| 75 75 a0 a0 a0 a0 ff ff | ff f9 f6 f6 f6 f6 f6 f6 |uu......|........|
|00000800| f6 ff ff f7 00 00 f6 f6 | f6 f6 f6 f6 f9 ff ff ff |........|........|
|00000810| 7b 75 a0 a0 ff ff ff f9 | f6 f6 f6 f6 f6 f6 f6 f7 |{u......|........|
|00000820| f9 ff ff f7 f7 f7 00 00 | f6 f6 f6 f6 f6 f6 f9 ff |........|........|
|00000830| ff ff ff ff ff f9 f6 f6 | f6 f6 f6 f6 f6 f7 f9 f9 |........|........|
|00000840| f9 ff 00 ff ff f7 f7 f7 | 00 00 f6 f6 f6 f6 f6 f6 |........|........|
|00000850| f9 ff ff f9 f6 f6 f6 f6 | f6 f6 f6 f7 f9 f9 f9 ff |........|........|
|00000860| ff 00 00 00 00 ff ff f7 | f7 f7 00 00 f6 f6 f6 f6 |........|........|
|00000870| f6 f6 f6 f6 f6 f6 f6 f6 | f6 f7 f9 f9 f9 ff ff 00 |........|........|
|00000880| 00 00 00 00 00 00 00 ff | ff f7 f7 f7 00 00 f6 f6 |........|........|
|00000890| f6 f6 f6 f6 f6 f6 f7 f7 | f9 f9 f9 ff ff 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 ff ff f7 f7 f7 00 00 |........|........|
|000008b0| f6 f6 f6 f6 f7 f7 f9 f9 | f9 ff ff 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff f7 f7 f7 |........|........|
|000008d0| 00 00 f7 f7 f9 f9 f9 ff | ff 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff f7 |........|........|
|000008f0| f7 f7 f9 f9 f9 ff ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000910| ff f7 f9 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 01 04 74 65 78 74 | 04 52 2a 63 68 04 54 45 |....text|.R*ch.TE|
|00000950| 58 54 00 00 01 41 04 56 | 69 65 77 07 57 69 6e 64 |XT...A.V|iew.Wind|
|00000960| 6f 77 31 05 ae 01 a4 01 | a4 01 90 01 aa 07 96 07 |ow1.....|........|
|00000970| 82 02 13 04 4e 61 6d 65 | 07 57 69 6e 64 6f 77 31 |....Name|.Window1|
|00000980| 05 46 72 61 6d 65 01 30 | 0c 48 61 73 42 61 63 6b |.Frame.0|.HasBack|
|00000990| 43 6f 6c 6f 72 05 46 61 | 6c 73 65 09 42 61 63 6b |Color.Fa|lse.Back|
|000009a0| 43 6f 6c 6f 72 08 31 36 | 37 37 37 32 31 35 08 42 |Color.16|777215.B|
|000009b0| 61 63 6b 64 72 6f 70 01 | 30 05 54 69 74 6c 65 08 |ackdrop.|0.Title.|
|000009c0| 55 6e 74 69 74 6c 65 64 | 07 56 69 73 69 62 6c 65 |Untitled|.Visible|
|000009d0| 04 54 72 75 65 08 43 6c | 6f 73 65 42 6f 78 04 54 |.True.Cl|oseBox.T|
|000009e0| 72 75 65 08 47 72 6f 77 | 49 63 6f 6e 05 46 61 6c |rue.Grow|Icon.Fal|
|000009f0| 73 65 08 5a 6f 6f 6d 49 | 63 6f 6e 05 46 61 6c 73 |se.ZoomI|con.Fals|
|00000a00| 65 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 09 4d |e.Balloo|nHelp..M|
|00000a10| 61 63 50 72 6f 63 49 44 | 01 30 09 50 6c 61 63 65 |acProcID|.0.Place|
|00000a20| 6d 65 6e 74 01 30 05 57 | 69 64 74 68 03 33 30 30 |ment.0.W|idth.300|
|00000a30| 06 48 65 69 67 68 74 03 | 33 30 30 08 4d 69 6e 57 |.Height.|300.MinW|
|00000a40| 69 64 74 68 02 36 34 09 | 4d 69 6e 48 65 69 67 68 |idth.64.|MinHeigh|
|00000a50| 74 02 36 34 08 4d 61 78 | 57 69 64 74 68 05 33 32 |t.64.Max|Width.32|
|00000a60| 30 30 30 09 4d 61 78 48 | 65 69 67 68 74 05 33 32 |000.MaxH|eight.32|
|00000a70| 30 30 30 07 00 07 57 69 | 6e 64 6f 77 31 b0 01 06 |000...Wi|ndow1...|
|00000a80| 41 70 70 6c 65 74 00 00 | 00 00 06 0a 44 65 61 63 |Applet..|....Deac|
|00000a90| 74 69 76 61 74 65 02 20 | 02 20 05 10 53 75 62 20 |tivate. |. ..Sub |
|00000aa0| 44 65 61 63 74 69 76 61 | 74 65 28 29 00 2f 57 72 |Deactiva|te()./Wr|
|00000ab0| 69 74 65 4c 6f 67 28 22 | 49 27 6d 20 69 6e 20 74 |iteLog("|I'm in t|
|00000ac0| 68 65 20 57 69 6e 64 6f | 77 31 2e 44 65 61 63 74 |he Windo|w1.Deact|
|00000ad0| 69 76 61 74 65 20 65 76 | 65 6e 74 22 29 00 07 45 |ivate ev|ent")..E|
|00000ae0| 6e 64 20 53 75 62 08 41 | 63 74 69 76 61 74 65 01 |nd Sub.A|ctivate.|
|00000af0| 00 03 00 05 0e 53 75 62 | 20 41 63 74 69 76 61 74 |.....Sub| Activat|
|00000b00| 65 28 29 00 2d 57 72 69 | 74 65 4c 6f 67 28 22 49 |e().-Wri|teLog("I|
|00000b10| 27 6d 20 69 6e 20 74 68 | 65 20 57 69 6e 64 6f 77 |'m in th|e Window|
|00000b20| 31 2e 41 63 74 69 76 61 | 74 65 20 65 76 65 6e 74 |1.Activa|te event|
|00000b30| 22 29 00 07 45 6e 64 20 | 53 75 62 05 50 61 69 6e |")..End |Sub.Pain|
|00000b40| 74 02 22 02 22 05 18 53 | 75 62 20 50 61 69 6e 74 |t."."..S|ub Paint|
|00000b50| 28 67 20 41 73 20 47 72 | 61 70 68 69 63 73 29 00 |(g As Gr|aphics).|
|00000b60| 2a 57 72 69 74 65 4c 6f | 67 28 22 49 27 6d 20 69 |*WriteLo|g("I'm i|
|00000b70| 6e 20 74 68 65 20 57 69 | 6e 64 6f 77 31 2e 50 61 |n the Wi|ndow1.Pa|
|00000b80| 69 6e 74 20 65 76 65 6e | 74 22 29 00 07 45 6e 64 |int even|t")..End|
|00000b90| 20 53 75 62 0b 43 61 6e | 63 65 6c 43 6c 6f 73 65 | Sub.Can|celClose|
|00000ba0| 02 28 02 28 05 21 46 75 | 6e 63 74 69 6f 6e 20 43 |.(.(.!Fu|nction C|
|00000bb0| 61 6e 63 65 6c 43 6c 6f | 73 65 28 29 20 41 73 20 |ancelClo|se() As |
|00000bc0| 42 6f 6f 6c 65 61 6e 00 | 30 57 72 69 74 65 4c 6f |Boolean.|0WriteLo|
|00000bd0| 67 28 22 49 27 6d 20 69 | 6e 20 74 68 65 20 57 69 |g("I'm i|n the Wi|
|00000be0| 6e 64 6f 77 31 2e 43 61 | 6e 63 65 6c 43 6c 6f 73 |ndow1.Ca|ncelClos|
|00000bf0| 65 20 65 76 65 6e 74 22 | 29 00 0c 45 6e 64 20 46 |e event"|)..End F|
|00000c00| 75 6e 63 74 69 6f 6e 05 | 43 6c 6f 73 65 02 22 02 |unction.|Close.".|
|00000c10| 22 05 0b 53 75 62 20 43 | 6c 6f 73 65 28 29 00 2a |"..Sub C|lose().*|
|00000c20| 57 72 69 74 65 4c 6f 67 | 28 22 49 27 6d 20 69 6e |WriteLog|("I'm in|
|00000c30| 20 74 68 65 20 57 69 6e | 64 6f 77 31 2e 43 6c 6f | the Win|dow1.Clo|
|00000c40| 73 65 20 65 76 65 6e 74 | 22 29 00 07 45 6e 64 20 |se event|")..End |
|00000c50| 53 75 62 04 4f 70 65 6e | 01 00 03 00 05 0a 53 75 |Sub.Open|......Su|
|00000c60| 62 20 4f 70 65 6e 28 29 | 00 29 57 72 69 74 65 4c |b Open()|.)WriteL|
|00000c70| 6f 67 28 22 49 27 6d 20 | 69 6e 20 74 68 65 20 57 |og("I'm |in the W|
|00000c80| 69 6e 64 6f 77 31 2e 4f | 70 65 6e 20 65 76 65 6e |indow1.O|pen even|
|00000c90| 74 22 29 00 07 45 6e 64 | 20 53 75 62 00 00 00 00 |t")..End| Sub....|
|00000ca0| 00 02 41 04 4d 65 6e 75 | 04 4d 65 6e 75 05 a4 01 |..A.Menu|.Menu...|
|00000cb0| a4 01 90 06 ac 04 04 01 | 00 00 80 80 80 80 10 00 |........|........|
|00000cc0| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00000cd0| 65 6d 00 00 00 00 00 00 | 00 01 02 00 00 80 80 80 |em......|........|
|00000ce0| 80 10 00 00 00 00 00 07 | 00 00 88 01 08 4d 65 6e |........|.....Men|
|00000cf0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 46 |uItem...|.......F|
|00000d00| 69 6c 65 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |ile.....|........|
|00000d10| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|00000d20| 00 00 00 02 00 04 51 75 | 69 74 08 46 69 6c 65 51 |......Qu|it.FileQ|
|00000d30| 75 69 74 80 80 80 80 10 | 01 51 00 00 00 00 07 00 |uit.....|.Q......|
|00000d40| 00 88 01 0c 51 75 69 74 | 4d 65 6e 75 49 74 65 6d |....Quit|MenuItem|
|00000d50| 00 00 00 00 00 00 00 00 | 02 00 00 80 80 80 80 10 |........|........|
|00000d60| 00 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |........|...MenuI|
|00000d70| 74 65 6d 00 00 00 00 00 | 00 00 00 00 04 45 64 69 |tem.....|.....Edi|
|00000d80| 74 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 88 |t.......|........|
|00000d90| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00000da0| 00 07 00 04 55 6e 64 6f | 08 45 64 69 74 55 6e 64 |....Undo|.EditUnd|
|00000db0| 6f 80 80 80 80 10 01 5a | 00 00 00 00 07 00 00 88 |o......Z|........|
|00000dc0| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00000dd0| 00 00 00 01 2d 00 80 80 | 80 80 10 00 00 00 00 00 |....-...|........|
|00000de0| 07 00 00 88 01 08 4d 65 | 6e 75 49 74 65 6d 00 00 |......Me|nuItem..|
|00000df0| 00 00 00 00 00 00 00 03 | 43 75 74 07 45 64 69 74 |........|Cut.Edit|
|00000e00| 43 75 74 80 80 80 80 10 | 01 58 00 00 00 00 07 00 |Cut.....|.X......|
|00000e10| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|00000e20| 00 00 00 00 00 04 43 6f | 70 79 08 45 64 69 74 43 |......Co|py.EditC|
|00000e30| 6f 70 79 80 80 80 80 10 | 01 43 00 00 00 00 07 00 |opy.....|.C......|
|00000e40| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|00000e50| 00 00 00 00 00 05 50 61 | 73 74 65 09 45 64 69 74 |......Pa|ste.Edit|
|00000e60| 50 61 73 74 65 80 80 80 | 80 10 01 56 00 00 00 00 |Paste...|...V....|
|00000e70| 07 00 00 88 01 08 4d 65 | 6e 75 49 74 65 6d 00 00 |......Me|nuItem..|
|00000e80| 00 00 00 00 00 00 00 05 | 43 6c 65 61 72 09 45 64 |........|Clear.Ed|
|00000e90| 69 74 43 6c 65 61 72 80 | 80 80 80 10 00 00 00 00 |itClear.|........|
|00000ea0| 00 07 00 00 88 01 08 4d | 65 6e 75 49 74 65 6d 00 |.......M|enuItem.|
|00000eb0| 00 00 00 00 00 00 00 02 | 00 00 80 80 80 80 10 00 |........|........|
|00000ec0| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00000ed0| 65 6d 00 00 00 00 00 00 | 00 00 02 00 00 80 80 80 |em......|........|
|00000ee0| 80 10 00 00 00 00 00 07 | 00 00 88 01 08 4d 65 6e |........|.....Men|
|00000ef0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 05 41 05 |uItem...|......A.|
|00000f00| 43 6c 61 73 73 03 41 70 | 70 a4 01 a4 01 b4 07 90 |Class.Ap|p.......|
|00000f10| 06 07 00 03 41 70 70 1c | 0b 41 70 70 6c 69 63 61 |....App.|.Applica|
|00000f20| 74 69 6f 6e 00 00 00 00 | 06 0c 4f 70 65 6e 44 6f |tion....|..OpenDo|
|00000f30| 63 75 6d 65 6e 74 01 00 | 01 00 05 24 53 75 62 20 |cument..|...$Sub |
|00000f40| 4f 70 65 6e 44 6f 63 75 | 6d 65 6e 74 28 69 74 65 |OpenDocu|ment(ite|
|00000f50| 6d 20 41 73 20 46 6f 6c | 64 65 72 49 74 65 6d 29 |m As Fol|derItem)|
|00000f60| 00 2d 57 72 69 74 65 4c | 6f 67 28 22 49 27 6d 20 |.-WriteL|og("I'm |
|00000f70| 69 6e 20 74 68 65 20 41 | 70 70 2e 4f 70 65 6e 44 |in the A|pp.OpenD|
|00000f80| 6f 63 75 6d 65 6e 74 20 | 65 76 65 6e 74 22 29 00 |ocument |event").|
|00000f90| 07 45 6e 64 20 53 75 62 | 0b 4e 65 77 44 6f 63 75 |.End Sub|.NewDocu|
|00000fa0| 6d 65 6e 74 01 00 03 00 | 05 11 53 75 62 20 4e 65 |ment....|..Sub Ne|
|00000fb0| 77 44 6f 63 75 6d 65 6e | 74 28 29 00 2c 57 72 69 |wDocumen|t().,Wri|
|00000fc0| 74 65 4c 6f 67 28 22 49 | 27 6d 20 69 6e 20 74 68 |teLog("I|'m in th|
|00000fd0| 65 20 41 70 70 2e 4e 65 | 77 44 6f 63 75 6d 65 6e |e App.Ne|wDocumen|
|00000fe0| 74 20 65 76 65 6e 74 22 | 29 00 07 45 6e 64 20 53 |t event"|)..End S|
|00000ff0| 75 62 0a 44 65 61 63 74 | 69 76 61 74 65 02 1c 02 |ub.Deact|ivate...|
|00001000| 1c 05 10 53 75 62 20 44 | 65 61 63 74 69 76 61 74 |...Sub D|eactivat|
|00001010| 65 28 29 00 2b 57 72 69 | 74 65 4c 6f 67 28 22 49 |e().+Wri|teLog("I|
|00001020| 27 6d 20 69 6e 20 74 68 | 65 20 41 70 70 2e 44 65 |'m in th|e App.De|
|00001030| 61 63 74 69 76 61 74 65 | 20 65 76 65 6e 74 22 29 |activate| event")|
|00001040| 00 07 45 6e 64 20 53 75 | 62 08 41 63 74 69 76 61 |..End Su|b.Activa|
|00001050| 74 65 01 00 03 00 05 0e | 53 75 62 20 41 63 74 69 |te......|Sub Acti|
|00001060| 76 61 74 65 28 29 00 29 | 57 72 69 74 65 4c 6f 67 |vate().)|WriteLog|
|00001070| 28 22 49 27 6d 20 69 6e | 20 74 68 65 20 41 70 70 |("I'm in| the App|
|00001080| 2e 41 63 74 69 76 61 74 | 65 20 65 76 65 6e 74 22 |.Activat|e event"|
|00001090| 29 00 07 45 6e 64 20 53 | 75 62 0f 45 6e 61 62 6c |)..End S|ub.Enabl|
|000010a0| 65 4d 65 6e 75 49 74 65 | 6d 73 01 00 01 00 03 15 |eMenuIte|ms......|
|000010b0| 53 75 62 20 45 6e 61 62 | 6c 65 4d 65 6e 75 49 74 |Sub Enab|leMenuIt|
|000010c0| 65 6d 73 28 29 00 07 45 | 6e 64 20 53 75 62 04 4f |ems()..E|nd Sub.O|
|000010d0| 70 65 6e 08 00 0a 00 0c | 0a 53 75 62 20 4f 70 65 |pen.....|.Sub Ope|
|000010e0| 6e 28 29 88 01 49 66 20 | 28 44 65 62 75 67 42 75 |n()..If |(DebugBu|
|000010f0| 69 6c 64 29 20 54 68 65 | 6e 20 27 52 75 6e 6e 69 |ild) The|n 'Runni|
|00001100| 6e 67 20 69 6e 20 49 44 | 45 2c 20 64 6f 6e 27 74 |ng in ID|E, don't|
|00001110| 20 6c 6f 67 20 69 66 20 | 69 6e 20 62 75 69 6c 74 | log if |in built|
|00001120| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 2e 10 41 6d | applica|tion..Am|
|00001130| 4c 6f 67 67 69 6e 67 20 | 3d 20 54 72 75 65 a2 01 |Logging |= True..|
|00001140| 4c 6f 67 67 69 6e 67 46 | 6f 72 6d 61 74 20 3d 20 |LoggingF|ormat = |
|00001150| 22 54 69 6d 65 22 20 27 | 54 69 6d 65 2c 20 6f 72 |"Time" '|Time, or|
|00001160| 20 54 69 63 6b 73 2c 20 | 6f 72 20 4d 69 63 72 6f | Ticks, |or Micro|
|00001170| 73 65 63 6f 6e 64 73 2c | 20 61 6e 79 74 68 69 6e |seconds,| anythin|
|00001180| 67 20 65 6c 73 65 20 6c | 6f 67 73 20 77 69 74 68 |g else l|ogs with|
|00001190| 6f 75 74 20 74 69 6d 65 | 20 73 74 61 6d 70 69 6e |out time| stampin|
|000011a0| 67 2e 93 01 4c 6f 67 67 | 69 6e 67 54 6f 57 69 6e |g...Logg|ingToWin|
|000011b0| 64 6f 77 20 3d 20 54 72 | 75 65 20 27 49 66 20 54 |dow = Tr|ue 'If T|
|000011c0| 72 75 65 2c 20 74 68 65 | 20 6c 6f 67 20 69 73 20 |rue, the| log is |
|000011d0| 77 72 69 74 74 65 6e 20 | 74 6f 20 4c 6f 67 49 74 |written |to LogIt|
|000011e0| 57 69 6e 64 6f 77 20 69 | 6e 73 74 65 61 64 20 6f |Window i|nstead o|
|000011f0| 66 20 66 69 6c 65 2e ae | 01 4c 6f 67 49 6d 6d 65 |f file..|.LogImme|
|00001200| 64 69 61 74 65 6c 79 20 | 3d 20 46 61 6c 73 65 20 |diately |= False |
|00001210| 27 49 66 20 54 72 75 65 | 2c 20 74 68 65 20 6c 6f |'If True|, the lo|
|00001220| 67 20 69 73 20 63 6c 6f | 73 65 64 20 61 73 20 65 |g is clo|sed as e|
|00001230| 61 63 68 20 6c 69 6e 65 | 20 69 73 20 77 72 69 74 |ach line| is writ|
|00001240| 74 65 6e 20 74 6f 20 61 | 76 6f 69 64 20 6c 6f 73 |ten to a|void los|
|00001250| 69 6e 67 20 6c 69 6e 65 | 73 20 69 6e 20 74 68 65 |ing line|s in the|
|00001260| 20 63 61 63 68 65 2e 07 | 4f 70 65 6e 4c 6f 67 03 | cache..|OpenLog.|
|00001270| 45 6e 64 00 25 57 72 69 | 74 65 4c 6f 67 28 22 49 |End.%Wri|teLog("I|
|00001280| 27 6d 20 69 6e 20 74 68 | 65 20 41 70 70 2e 4f 70 |'m in th|e App.Op|
|00001290| 65 6e 20 65 76 65 6e 74 | 22 29 00 07 45 6e 64 20 |en event|")..End |
|000012a0| 53 75 62 00 00 00 06 41 | 06 4d 6f 64 75 6c 65 0b |Sub....A|.Module.|
|000012b0| 4c 6f 67 49 74 4d 6f 64 | 75 6c 65 24 99 05 9b 0d |LogItMod|ule$....|
|000012c0| a0 0b 07 00 0b 4c 6f 67 | 49 74 4d 6f 64 75 6c 65 |.....Log|ItModule|
|000012d0| 34 00 00 07 14 41 6d 4c | 6f 67 67 69 6e 67 20 61 |4....AmL|ogging a|
|000012e0| 73 20 42 6f 6f 6c 65 61 | 6e 00 17 4c 6f 67 67 69 |s Boolea|n..Loggi|
|000012f0| 6e 67 46 6f 72 6d 61 74 | 20 61 73 20 53 74 72 69 |ngFormat| as Stri|
|00001300| 6e 67 00 1d 4c 6f 67 4f | 75 74 70 75 74 20 61 73 |ng..LogO|utput as|
|00001310| 20 54 65 78 74 4f 75 74 | 70 75 74 53 74 72 65 61 | TextOut|putStrea|
|00001320| 6d 01 1a 4c 6f 67 67 69 | 6e 67 54 6f 57 69 6e 64 |m..Loggi|ngToWind|
|00001330| 6f 77 20 61 73 20 42 6f | 6f 6c 65 61 6e 00 15 53 |ow as Bo|olean..S|
|00001340| 74 61 72 74 43 6f 75 6e | 74 20 61 73 20 56 61 72 |tartCoun|t as Var|
|00001350| 69 61 6e 74 01 19 4c 6f | 67 49 6d 6d 65 64 69 61 |iant..Lo|gImmedia|
|00001360| 74 65 6c 79 20 61 73 20 | 42 6f 6f 6c 65 61 6e 00 |tely as |Boolean.|
|00001370| 17 4c 6f 67 49 74 46 69 | 6c 65 20 61 73 20 46 6f |.LogItFi|le as Fo|
|00001380| 6c 64 65 72 69 74 65 6d | 01 04 08 43 6c 6f 73 65 |lderitem|...Close|
|00001390| 4c 6f 67 00 00 00 01 00 | 01 00 08 0e 53 75 62 20 |Log.....|....Sub |
|000013a0| 43 6c 6f 73 65 4c 6f 67 | 28 29 00 18 49 66 20 4c |CloseLog|()..If L|
|000013b0| 6f 67 4f 75 74 70 75 74 | 20 3c 3e 20 4e 69 6c 20 |ogOutput| <> Nil |
|000013c0| 54 68 65 6e 15 57 72 69 | 74 65 4c 6f 67 20 22 4c |Then.Wri|teLog "L|
|000013d0| 6f 67 20 63 6c 6f 73 65 | 64 22 0f 4c 6f 67 4f 75 |og close|d".LogOu|
|000013e0| 74 70 75 74 2e 43 6c 6f | 73 65 03 45 6e 64 00 07 |tput.Clo|se.End..|
|000013f0| 45 6e 64 20 53 75 62 07 | 4f 70 65 6e 4c 6f 67 00 |End Sub.|OpenLog.|
|00001400| 00 00 01 00 01 00 35 0d | 53 75 62 20 4f 70 65 6e |......5.|Sub Open|
|00001410| 4c 6f 67 28 29 35 27 4f | 70 65 6e 20 61 20 6c 6f |Log()5'O|pen a lo|
|00001420| 67 67 69 6e 67 20 66 69 | 6c 65 20 6f 72 20 77 69 |gging fi|le or wi|
|00001430| 6e 64 6f 77 2e 20 55 73 | 65 20 74 68 65 20 63 75 |ndow. Us|e the cu|
|00001440| 72 72 65 6e 74 20 74 69 | 6d 65 20 27 27 74 6f 20 |rrent ti|me ''to |
|00001450| 70 72 6f 76 69 64 65 20 | 61 20 75 6e 69 71 75 65 |provide |a unique|
|00001460| 20 6e 61 6d 65 20 66 6f | 72 20 74 68 65 20 66 69 | name fo|r the fi|
|00001470| 6c 65 2e 00 13 44 69 6d | 20 4c 6f 67 44 61 74 65 |le...Dim| LogDate|
|00001480| 20 61 73 20 44 61 74 65 | 25 44 69 6d 20 48 6f 75 | as Date|%Dim Hou|
|00001490| 72 73 2c 20 4d 69 6e 75 | 74 65 73 2c 20 53 65 63 |rs, Minu|tes, Sec|
|000014a0| 6f 6e 64 73 20 61 73 20 | 53 74 72 69 6e 67 00 11 |onds as |String..|
|000014b0| 49 66 20 41 6d 4c 6f 67 | 67 69 6e 67 20 54 68 65 |If AmLog|ging The|
|000014c0| 6e 32 27 46 6f 72 20 54 | 69 63 6b 73 20 26 20 4d |n2'For T|icks & M|
|000014d0| 69 63 72 6f 73 65 63 6f | 6e 64 73 2c 20 73 61 76 |icroseco|nds, sav|
|000014e0| 65 20 74 68 65 20 73 74 | 61 72 74 69 6e 67 20 63 |e the st|arting c|
|000014f0| 6f 75 6e 74 32 27 73 6f | 20 77 65 20 63 61 6e 20 |ount2'so| we can |
|00001500| 73 68 6f 77 20 6d 6f 72 | 65 20 6d 65 61 6e 69 6e |show mor|e meanin|
|00001510| 67 66 75 6c 20 63 6f 75 | 6e 74 73 20 69 6e 20 74 |gful cou|nts in t|
|00001520| 68 65 20 6c 6f 67 2e 19 | 53 65 6c 65 63 74 20 43 |he log..|Select C|
|00001530| 61 73 65 20 4c 6f 67 67 | 69 6e 67 46 6f 72 6d 61 |ase Logg|ingForma|
|00001540| 74 13 43 61 73 65 20 22 | 4d 69 63 72 6f 73 65 63 |t.Case "|Microsec|
|00001550| 6f 6e 64 73 22 19 53 74 | 61 72 74 43 6f 75 6e 74 |onds".St|artCount|
|00001560| 20 3d 20 4d 69 63 72 6f | 73 65 63 6f 6e 64 73 0c | = Micro|seconds.|
|00001570| 43 61 73 65 20 22 54 69 | 63 6b 73 22 12 53 74 61 |Case "Ti|cks".Sta|
|00001580| 72 74 43 6f 75 6e 74 20 | 3d 20 54 69 63 6b 73 03 |rtCount |= Ticks.|
|00001590| 45 6e 64 00 17 49 66 20 | 4c 6f 67 67 69 6e 67 54 |End..If |LoggingT|
|000015a0| 6f 57 69 6e 64 6f 77 20 | 54 68 65 6e 10 4c 6f 67 |oWindow |Then.Log|
|000015b0| 49 74 57 69 6e 64 6f 77 | 2e 53 68 6f 77 04 45 6c |ItWindow|.Show.El|
|000015c0| 73 65 12 4c 6f 67 44 61 | 74 65 20 3d 20 4e 65 77 |se.LogDa|te = New|
|000015d0| 20 44 61 74 65 19 48 6f | 75 72 73 20 3d 20 53 74 | Date.Ho|urs = St|
|000015e0| 72 28 4c 6f 67 44 61 74 | 65 2e 48 6f 75 72 29 1d |r(LogDat|e.Hour).|
|000015f0| 4d 69 6e 75 74 65 73 20 | 3d 20 53 74 72 28 4c 6f |Minutes |= Str(Lo|
|00001600| 67 44 61 74 65 2e 4d 69 | 6e 75 74 65 29 1d 53 65 |gDate.Mi|nute).Se|
|00001610| 63 6f 6e 64 73 20 3d 20 | 53 74 72 28 4c 6f 67 44 |conds = |Str(LogD|
|00001620| 61 74 65 2e 53 65 63 6f | 6e 64 29 16 49 66 20 4c |ate.Seco|nd).If L|
|00001630| 65 6e 28 48 6f 75 72 73 | 29 20 3d 20 31 20 54 68 |en(Hours|) = 1 Th|
|00001640| 65 6e 13 48 6f 75 72 73 | 20 3d 20 22 30 22 20 2b |en.Hours| = "0" +|
|00001650| 20 48 6f 75 72 73 03 45 | 6e 64 18 49 66 20 4c 65 | Hours.E|nd.If Le|
|00001660| 6e 28 4d 69 6e 75 74 65 | 73 29 20 3d 20 31 20 54 |n(Minute|s) = 1 T|
|00001670| 68 65 6e 17 4d 69 6e 75 | 74 65 73 20 3d 20 22 30 |hen.Minu|tes = "0|
|00001680| 22 20 2b 20 4d 69 6e 75 | 74 65 73 03 45 6e 64 18 |" + Minu|tes.End.|
|00001690| 49 66 20 4c 65 6e 28 53 | 65 63 6f 6e 64 73 29 20 |If Len(S|econds) |
|000016a0| 3d 20 31 20 54 68 65 6e | 17 53 65 63 6f 6e 64 73 |= 1 Then|.Seconds|
|000016b0| 20 3d 20 22 30 22 20 2b | 20 53 65 63 6f 6e 64 73 | = "0" +| Seconds|
|000016c0| 03 45 6e 64 85 01 4c 6f | 67 49 74 46 69 6c 65 20 |.End..Lo|gItFile |
|000016d0| 3d 20 44 65 73 6b 74 6f | 70 46 6f 6c 64 65 72 2e |= Deskto|pFolder.|
|000016e0| 43 68 69 6c 64 28 22 4c | 6f 67 49 74 5f 22 20 2b |Child("L|ogIt_" +|
|000016f0| 20 48 6f 75 72 73 20 2b | 20 4d 69 6e 75 74 65 73 | Hours +| Minutes|
|00001700| 20 2b 20 53 65 63 6f 6e | 64 73 29 18 49 66 20 4c | + Secon|ds).If L|
|00001710| 6f 67 49 74 46 69 6c 65 | 20 3c 3e 20 4e 69 6c 20 |ogItFile| <> Nil |
|00001720| 54 68 65 6e 24 4c 6f 67 | 4f 75 74 70 75 74 20 3d |Then$Log|Output =|
|00001730| 20 4c 6f 67 49 74 46 69 | 6c 65 2e 43 72 65 61 74 | LogItFi|le.Creat|
|00001740| 65 54 65 78 74 46 69 6c | 65 18 49 66 20 4c 6f 67 |eTextFil|e.If Log|
|00001750| 4f 75 74 70 75 74 20 3c | 3e 20 4e 69 6c 20 54 68 |Output <|> Nil Th|
|00001760| 65 6e 1d 4c 6f 67 49 74 | 46 69 6c 65 2e 4d 61 63 |en.LogIt|File.Mac|
|00001770| 43 72 65 61 74 6f 72 20 | 3d 20 22 3f 3f 3f 3f 22 |Creator |= "????"|
|00001780| 1a 4c 6f 67 49 74 46 69 | 6c 65 2e 4d 61 63 54 79 |.LogItFi|le.MacTy|
|00001790| 70 65 20 3d 20 22 54 45 | 58 54 22 16 49 66 20 4c |pe = "TE|XT".If L|
|000017a0| 6f 67 49 6d 6d 65 64 69 | 61 74 65 6c 79 20 54 68 |ogImmedi|ately Th|
|000017b0| 65 6e 0f 4c 6f 67 4f 75 | 74 70 75 74 2e 43 6c 6f |en.LogOu|tput.Clo|
|000017c0| 73 65 03 45 6e 64 15 57 | 72 69 74 65 4c 6f 67 20 |se.End.W|riteLog |
|000017d0| 22 4c 6f 67 20 6f 70 65 | 6e 65 64 22 04 45 6c 73 |"Log ope|ned".Els|
|000017e0| 65 20 4d 73 67 42 6f 78 | 20 22 55 6e 61 62 6c 65 |e MsgBox| "Unable|
|000017f0| 20 74 6f 20 6f 70 65 6e | 20 4c 6f 67 20 66 69 6c | to open| Log fil|
|00001800| 65 22 03 45 6e 64 04 45 | 6c 73 65 22 4d 73 67 42 |e".End.E|lse"MsgB|
|00001810| 6f 78 20 22 55 6e 61 62 | 6c 65 20 74 6f 20 63 72 |ox "Unab|le to cr|
|00001820| 65 61 74 65 20 4c 6f 67 | 20 66 69 6c 65 22 03 45 |eate Log| file".E|
|00001830| 6e 64 03 45 6e 64 03 45 | 6e 64 00 07 45 6e 64 20 |nd.End.E|nd..End |
|00001840| 53 75 62 08 57 72 69 74 | 65 4c 6f 67 13 54 65 78 |Sub.Writ|eLog.Tex|
|00001850| 74 54 6f 4c 6f 67 20 61 | 73 20 53 74 72 69 6e 67 |tToLog a|s String|
|00001860| 00 00 01 00 01 00 2a 21 | 53 75 62 20 57 72 69 74 |......*!|Sub Writ|
|00001870| 65 4c 6f 67 28 54 65 78 | 74 54 6f 4c 6f 67 20 61 |eLog(Tex|tToLog a|
|00001880| 73 20 53 74 72 69 6e 67 | 29 2e 27 57 72 69 74 65 |s String|).'Write|
|00001890| 20 74 68 65 20 6c 69 6e | 65 20 6f 66 20 74 65 78 | the lin|e of tex|
|000018a0| 74 20 70 61 73 73 65 64 | 20 74 6f 20 74 68 65 20 |t passed| to the |
|000018b0| 6c 6f 67 20 66 69 6c 65 | 1c 27 75 73 69 6e 67 20 |log file|.'using |
|000018c0| 74 68 65 20 66 6f 72 6d | 61 74 20 73 70 65 63 69 |the form|at speci|
|000018d0| 66 69 65 64 2e 00 13 44 | 69 6d 20 4c 6f 67 44 61 |fied...D|im LogDa|
|000018e0| 74 65 20 61 73 20 44 61 | 74 65 00 11 49 66 20 41 |te as Da|te..If A|
|000018f0| 6d 4c 6f 67 67 69 6e 67 | 20 54 68 65 6e 17 49 66 |mLogging| Then.If|
|00001900| 20 4c 6f 67 67 69 6e 67 | 54 6f 57 69 6e 64 6f 77 | Logging|ToWindow|
|00001910| 20 54 68 65 6e 19 53 65 | 6c 65 63 74 20 43 61 73 | Then.Se|lect Cas|
|00001920| 65 20 4c 6f 67 67 69 6e | 67 46 6f 72 6d 61 74 13 |e Loggin|gFormat.|
|00001930| 43 61 73 65 20 22 4d 69 | 63 72 6f 73 65 63 6f 6e |Case "Mi|crosecon|
|00001940| 64 73 22 92 01 4c 6f 67 | 49 74 57 69 6e 64 6f 77 |ds"..Log|ItWindow|
|00001950| 2e 41 70 70 65 6e 64 20 | 53 74 72 28 4d 69 63 72 |.Append |Str(Micr|
|00001960| 6f 73 65 63 6f 6e 64 73 | 20 2d 20 53 74 61 72 74 |oseconds| - Start|
|00001970| 43 6f 75 6e 74 29 20 2b | 20 22 20 6d 69 63 72 6f |Count) +| " micro|
|00001980| 73 65 63 6f 6e 64 73 20 | 2d 20 22 20 2b 20 54 65 |seconds |- " + Te|
|00001990| 78 74 54 6f 4c 6f 67 0c | 43 61 73 65 20 22 54 69 |xtToLog.|Case "Ti|
|000019a0| 63 6b 73 22 84 01 4c 6f | 67 49 74 57 69 6e 64 6f |cks"..Lo|gItWindo|
|000019b0| 77 2e 41 70 70 65 6e 64 | 20 53 74 72 28 54 69 63 |w.Append| Str(Tic|
|000019c0| 6b 73 20 2d 20 53 74 61 | 72 74 43 6f 75 6e 74 29 |ks - Sta|rtCount)|
|000019d0| 20 2b 20 22 20 74 69 63 | 6b 73 20 2d 20 22 20 2b | + " tic|ks - " +|
|000019e0| 20 54 65 78 74 54 6f 4c | 6f 67 0b 43 61 73 65 20 | TextToL|og.Case |
|000019f0| 22 54 69 6d 65 22 12 4c | 6f 67 44 61 74 65 20 3d |"Time".L|ogDate =|
|00001a00| 20 4e 65 77 20 44 61 74 | 65 91 01 4c 6f 67 49 74 | New Dat|e..LogIt|
|00001a10| 57 69 6e 64 6f 77 2e 41 | 70 70 65 6e 64 20 4c 6f |Window.A|ppend Lo|
|00001a20| 67 44 61 74 65 2e 53 68 | 6f 72 74 44 61 74 65 20 |gDate.Sh|ortDate |
|00001a30| 2b 20 22 20 22 20 2b 20 | 4c 6f 67 44 61 74 65 2e |+ " " + |LogDate.|
|00001a40| 4c 6f 6e 67 54 69 6d 65 | 20 2b 20 22 20 2d 20 22 |LongTime| + " - "|
|00001a50| 20 2b 20 54 65 78 74 54 | 6f 4c 6f 67 04 45 6c 73 | + TextT|oLog.Els|
|00001a60| 65 1c 4c 6f 67 49 74 57 | 69 6e 64 6f 77 2e 41 70 |e.LogItW|indow.Ap|
|00001a70| 70 65 6e 64 20 54 65 78 | 74 54 6f 4c 6f 67 03 45 |pend Tex|tToLog.E|
|00001a80| 6e 64 04 45 6c 73 65 16 | 49 66 20 4c 6f 67 49 6d |nd.Else.|If LogIm|
|00001a90| 6d 65 64 69 61 74 65 6c | 79 20 54 68 65 6e 26 4c |mediatel|y Then&L|
|00001aa0| 6f 67 4f 75 74 70 75 74 | 20 3d 20 4c 6f 67 49 74 |ogOutput| = LogIt|
|00001ab0| 46 69 6c 65 2e 41 70 70 | 65 6e 64 54 6f 54 65 78 |File.App|endToTex|
|00001ac0| 74 46 69 6c 65 03 45 6e | 64 19 53 65 6c 65 63 74 |tFile.En|d.Select|
|00001ad0| 20 43 61 73 65 20 4c 6f | 67 67 69 6e 67 46 6f 72 | Case Lo|ggingFor|
|00001ae0| 6d 61 74 13 43 61 73 65 | 20 22 4d 69 63 72 6f 73 |mat.Case| "Micros|
|00001af0| 65 63 6f 6e 64 73 22 86 | 01 4c 6f 67 4f 75 74 70 |econds".|.LogOutp|
|00001b00| 75 74 2e 57 72 69 74 65 | 4c 69 6e 65 20 53 74 72 |ut.Write|Line Str|
|00001b10| 28 4d 69 63 72 6f 73 65 | 63 6f 6e 64 73 20 2d 20 |(Microse|conds - |
|00001b20| 53 74 61 72 74 43 6f 75 | 6e 74 29 20 2b 20 22 20 |StartCou|nt) + " |
|00001b30| 2d 20 22 20 2b 20 54 65 | 78 74 54 6f 4c 6f 67 0c |- " + Te|xtToLog.|
|00001b40| 43 61 73 65 20 22 54 69 | 63 6b 73 22 3f 4c 6f 67 |Case "Ti|cks"?Log|
|00001b50| 4f 75 74 70 75 74 2e 57 | 72 69 74 65 4c 69 6e 65 |Output.W|riteLine|
|00001b60| 20 53 74 72 28 54 69 63 | 6b 73 20 2d 20 53 74 61 | Str(Tic|ks - Sta|
|00001b70| 72 74 43 6f 75 6e 74 29 | 20 2b 20 22 20 2d 20 22 |rtCount)| + " - "|
|00001b80| 20 2b 20 54 65 78 74 54 | 6f 4c 6f 67 0b 43 61 73 | + TextT|oLog.Cas|
|00001b90| 65 20 22 54 69 6d 65 22 | 12 4c 6f 67 44 61 74 65 |e "Time"|.LogDate|
|00001ba0| 20 3d 20 4e 65 77 20 44 | 61 74 65 92 01 4c 6f 67 | = New D|ate..Log|
|00001bb0| 4f 75 74 70 75 74 2e 57 | 72 69 74 65 4c 69 6e 65 |Output.W|riteLine|
|00001bc0| 20 4c 6f 67 44 61 74 65 | 2e 53 68 6f 72 74 44 61 | LogDate|.ShortDa|
|00001bd0| 74 65 20 2b 20 22 20 22 | 20 2b 20 4c 6f 67 44 61 |te + " "| + LogDa|
|00001be0| 74 65 2e 4c 6f 6e 67 54 | 69 6d 65 20 2b 20 22 20 |te.LongT|ime + " |
|00001bf0| 2d 20 22 20 2b 20 54 65 | 78 74 54 6f 4c 6f 67 04 |- " + Te|xtToLog.|
|00001c00| 45 6c 73 65 1d 4c 6f 67 | 4f 75 74 70 75 74 2e 57 |Else.Log|Output.W|
|00001c10| 72 69 74 65 4c 69 6e 65 | 20 54 65 78 74 54 6f 4c |riteLine| TextToL|
|00001c20| 6f 67 03 45 6e 64 16 49 | 66 20 4c 6f 67 49 6d 6d |og.End.I|f LogImm|
|00001c30| 65 64 69 61 74 65 6c 79 | 20 54 68 65 6e 0f 4c 6f |ediately| Then.Lo|
|00001c40| 67 4f 75 74 70 75 74 2e | 43 6c 6f 73 65 03 45 6e |gOutput.|Close.En|
|00001c50| 64 03 45 6e 64 03 45 6e | 64 03 45 6e 64 00 07 45 |d.End.En|d.End..E|
|00001c60| 6e 64 20 53 75 62 06 52 | 65 61 64 4d 65 00 00 00 |nd Sub.R|eadMe...|
|00001c70| 01 00 01 00 26 0c 53 75 | 62 20 52 65 61 64 4d 65 |....&.Su|b ReadMe|
|00001c80| 28 29 00 38 27 54 68 69 | 73 20 6d 6f 64 75 6c 65 |().8'Thi|s module|
|00001c90| 20 70 72 6f 76 69 64 65 | 73 20 6c 6f 67 67 69 6e | provide|s loggin|
|00001ca0| 67 20 28 74 72 61 63 69 | 6e 67 29 20 63 61 70 61 |g (traci|ng) capa|
|00001cb0| 62 69 6c 69 74 79 20 69 | 6e 20 61 20 39 27 63 6f |bility i|n a 9'co|
|00001cc0| 6e 76 65 6e 69 65 6e 74 | 20 70 61 63 6b 61 67 65 |nvenient| package|
|00001cd0| 2e 20 41 64 64 20 74 68 | 69 73 20 6d 6f 64 75 6c |. Add th|is modul|
|00001ce0| 65 20 61 6e 64 20 74 68 | 65 20 4c 6f 67 49 74 57 |e and th|e LogItW|
|00001cf0| 69 6e 64 6f 77 20 37 27 | 74 6f 20 79 6f 75 72 20 |indow 7'|to your |
|00001d00| 70 72 6f 6a 65 63 74 20 | 62 79 20 64 72 61 67 67 |project |by dragg|
|00001d10| 69 6e 67 20 69 74 20 74 | 6f 20 79 6f 75 72 20 70 |ing it t|o your p|
|00001d20| 72 6f 6a 65 63 74 20 77 | 69 6e 64 6f 77 20 3e 27 |roject w|indow >'|
|00001d30| 61 6e 64 20 74 68 65 6e | 20 61 64 64 20 74 68 65 |and then| add the|
|00001d40| 73 65 20 6c 69 6e 65 73 | 20 74 6f 20 74 68 65 20 |se lines| to the |
|00001d50| 4f 70 65 6e 20 65 76 65 | 6e 74 20 6f 66 20 79 6f |Open eve|nt of yo|
|00001d60| 75 72 20 41 70 70 20 63 | 6c 61 73 73 3a 00 36 27 |ur App c|lass:.6'|
|00001d70| 54 68 65 73 65 20 66 69 | 72 73 74 20 66 65 77 20 |These fi|rst few |
|00001d80| 6c 69 6e 65 73 20 61 72 | 65 20 66 6f 72 20 74 68 |lines ar|e for th|
|00001d90| 65 20 64 65 62 75 67 67 | 69 6e 67 20 6c 6f 67 20 |e debugg|ing log |
|00001da0| 66 69 6c 65 2e 39 27 53 | 65 65 20 74 68 65 20 4c |file.9'S|ee the L|
|00001db0| 6f 67 49 74 20 6d 6f 64 | 75 6c 65 20 66 6f 72 20 |ogIt mod|ule for |
|00001dc0| 6d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |more inf|ormation|
|00001dd0| 2e 20 54 68 65 20 22 49 | 66 22 20 77 69 6c 6c 39 |. The "I|f" will9|
|00001de0| 27 70 72 65 76 65 6e 74 | 20 6c 6f 67 67 69 6e 67 |'prevent| logging|
|00001df0| 20 69 6e 20 61 20 62 75 | 69 6c 74 20 61 70 70 6c | in a bu|ilt appl|
|00001e00| 69 63 61 74 69 6f 6e 2e | 20 52 65 6d 6f 76 65 20 |ication.| Remove |
|00001e10| 69 74 20 74 6f 20 6c 6f | 67 34 27 69 6e 20 61 20 |it to lo|g4'in a |
|00001e20| 62 75 69 6c 74 20 61 70 | 70 6c 69 63 61 74 69 6f |built ap|plicatio|
|00001e30| 6e 20 6f 72 20 72 65 70 | 6c 61 63 65 20 69 74 20 |n or rep|lace it |
|00001e40| 74 6f 20 72 75 6e 20 6f | 6e 6c 79 20 69 6e 20 27 |to run o|nly in '|
|00001e50| 77 68 61 74 65 76 65 72 | 20 65 6e 76 69 72 6f 6e |whatever| environ|
|00001e60| 6d 65 6e 74 20 73 75 69 | 74 73 20 79 6f 75 2e 89 |ment sui|ts you..|
|00001e70| 01 27 49 66 20 28 44 65 | 62 75 67 42 75 69 6c 64 |.'If (De|bugBuild|
|00001e80| 29 20 54 68 65 6e 20 27 | 52 75 6e 6e 69 6e 67 20 |) Then '|Running |
|00001e90| 69 6e 20 49 44 45 2c 20 | 64 6f 6e 27 74 20 6c 6f |in IDE, |don't lo|
|00001ea0| 67 20 69 66 20 69 6e 20 | 62 75 69 6c 74 20 61 70 |g if in |built ap|
|00001eb0| 70 6c 69 63 61 74 69 6f | 6e 2e 11 27 41 6d 4c 6f |plicatio|n..'AmLo|
|00001ec0| 67 67 69 6e 67 20 3d 20 | 54 72 75 65 a3 01 27 4c |gging = |True..'L|
|00001ed0| 6f 67 67 69 6e 67 46 6f | 72 6d 61 74 20 3d 20 22 |oggingFo|rmat = "|
|00001ee0| 54 69 6d 65 22 20 27 54 | 69 6d 65 2c 20 6f 72 20 |Time" 'T|ime, or |
|00001ef0| 54 69 63 6b 73 2c 20 6f | 72 20 4d 69 63 72 6f 73 |Ticks, o|r Micros|
|00001f00| 65 63 6f 6e 64 73 2c 20 | 61 6e 79 74 68 69 6e 67 |econds, |anything|
|00001f10| 20 65 6c 73 65 20 6c 6f | 67 73 20 77 69 74 68 6f | else lo|gs witho|
|00001f20| 75 74 20 74 69 6d 65 20 | 73 74 61 6d 70 69 6e 67 |ut time |stamping|
|00001f30| 2e 95 01 27 4c 6f 67 67 | 69 6e 67 54 6f 57 69 6e |...'Logg|ingToWin|
|00001f40| 64 6f 77 20 3d 20 46 61 | 6c 73 65 20 27 49 66 20 |dow = Fa|lse 'If |
|00001f50| 54 72 75 65 2c 20 74 68 | 65 20 6c 6f 67 20 69 73 |True, th|e log is|
|00001f60| 20 77 72 69 74 74 65 6e | 20 74 6f 20 4c 6f 67 49 | written| to LogI|
|00001f70| 74 57 69 6e 64 6f 77 20 | 69 6e 73 74 65 61 64 20 |tWindow |instead |
|00001f80| 6f 66 20 66 69 6c 65 2e | af 01 27 4c 6f 67 49 6d |of file.|..'LogIm|
|00001f90| 6d 65 64 69 61 74 65 6c | 79 20 3d 20 46 61 6c 73 |mediatel|y = Fals|
|00001fa0| 65 20 27 49 66 20 54 72 | 75 65 2c 20 74 68 65 20 |e 'If Tr|ue, the |
|00001fb0| 6c 6f 67 20 69 73 20 63 | 6c 6f 73 65 64 20 61 73 |log is c|losed as|
|00001fc0| 20 65 61 63 68 20 6c 69 | 6e 65 20 69 73 20 77 72 | each li|ne is wr|
|00001fd0| 69 74 74 65 6e 20 74 6f | 20 61 76 6f 69 64 20 6c |itten to| avoid l|
|00001fe0| 6f 73 69 6e 67 20 6c 69 | 6e 65 73 20 69 6e 20 74 |osing li|nes in t|
|00001ff0| 68 65 20 63 61 63 68 65 | 2e 08 27 4f 70 65 6e 4c |he cache|..'OpenL|
|00002000| 6f 67 04 27 45 6e 64 00 | 00 36 27 4e 65 78 74 2c |og.'End.|.6'Next,|
|00002010| 20 61 64 64 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 | add the| followi|
|00002020| 6e 67 20 6c 69 6e 65 20 | 61 74 20 61 6e 79 20 70 |ng line |at any p|
|00002030| 6f 69 6e 74 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |oint you| want to|
|00002040| 17 27 77 72 69 74 65 20 | 74 6f 20 74 68 65 20 6c |.'write |to the l|
|00002050| 6f 67 20 66 69 6c 65 2e | 00 25 27 57 72 69 74 65 |og file.|.%'Write|
|00002060| 4c 6f 67 28 22 77 68 61 | 74 65 76 65 72 20 79 6f |Log("wha|tever yo|
|00002070| 75 20 77 61 6e 74 20 74 | 6f 20 6c 6f 67 22 29 00 |u want t|o log").|
|00002080| 3b 27 59 6f 75 20 63 61 | 6e 20 65 61 73 69 6c 79 |;'You ca|n easily|
|00002090| 20 74 75 72 6e 20 74 68 | 65 20 6c 6f 67 67 69 6e | turn th|e loggin|
|000020a0| 67 20 6f 6e 20 61 6e 64 | 20 6f 66 66 20 62 79 20 |g on and| off by |
|000020b0| 73 65 74 74 69 6e 67 20 | 74 68 65 20 80 01 27 41 |setting |the ..'A|
|000020c0| 6d 4c 6f 67 67 69 6e 67 | 20 70 72 6f 70 65 72 74 |mLogging| propert|
|000020d0| 79 20 74 6f 20 46 61 6c | 73 65 2e 20 41 6e 64 2c |y to Fal|se. And,|
|000020e0| 20 77 68 65 6e 20 79 6f | 75 20 61 72 65 20 72 65 | when yo|u are re|
|000020f0| 61 64 79 20 74 6f 20 72 | 65 6d 6f 76 65 20 39 27 |ady to r|emove 9'|
|00002100| 74 68 65 20 6c 6f 67 67 | 69 6e 67 20 63 61 70 61 |the logg|ing capa|
|00002110| 62 69 6c 69 74 79 2c 20 | 6a 75 73 74 20 64 65 6c |bility, |just del|
|00002120| 65 74 65 20 74 68 69 73 | 20 6d 6f 64 75 6c 65 20 |ete this| module |
|00002130| 61 6e 64 20 74 68 65 20 | 3f 27 4c 6f 67 49 74 57 |and the |?'LogItW|
|00002140| 69 6e 64 6f 77 20 61 6e | 64 20 74 68 65 20 63 6f |indow an|d the co|
|00002150| 6d 70 69 6c 65 72 20 77 | 69 6c 6c 20 68 65 6c 70 |mpiler w|ill help|
|00002160| 20 79 6f 75 20 63 6c 65 | 61 6e 20 75 70 20 79 6f | you cle|an up yo|
|00002170| 75 72 20 63 6f 64 65 20 | 3a 27 62 65 63 61 75 73 |ur code |:'becaus|
|00002180| 65 20 65 76 65 72 79 20 | 6c 69 6e 65 20 77 69 74 |e every |line wit|
|00002190| 68 20 61 20 22 57 72 69 | 74 65 4c 6f 67 22 20 77 |h a "Wri|teLog" w|
|000021a0| 69 6c 6c 20 63 61 75 73 | 65 20 61 6e 20 65 72 72 |ill caus|e an err|
|000021b0| 6f 72 2e 00 30 27 54 68 | 69 73 20 6d 6f 64 75 6c |or..0'Th|is modul|
|000021c0| 65 20 69 73 20 22 73 6d | 69 6c 65 77 61 72 65 22 |e is "sm|ileware"|
|000021d0| 2e 2e 2e 20 75 73 65 20 | 69 74 20 61 6e 64 20 73 |... use |it and s|
|000021e0| 6d 69 6c 65 21 14 27 53 | 74 65 76 65 6e 20 4a 2e |mile!.'S|teven J.|
|000021f0| 20 53 63 68 61 65 66 66 | 65 72 0d 27 4e 79 62 62 | Schaeff|er.'Nybb|
|00002200| 6c 65 73 26 42 69 74 73 | 0f 27 73 63 68 61 73 6a |les&Bits|.'schasj|
|00002210| 40 73 72 76 2e 6e 65 74 | 00 07 45 6e 64 20 53 75 |@srv.net|..End Su|
|00002220| 62 00 00 00 00 00 07 41 | 04 56 69 65 77 0b 4c 6f |b......A|.View.Lo|
|00002230| 67 49 74 57 69 6e 64 6f | 77 05 ae 01 a4 01 a4 01 |gItWindo|w.......|
|00002240| 90 01 bd 09 ad 07 82 02 | 13 04 4e 61 6d 65 0b 4c |........|..Name.L|
|00002250| 6f 67 49 74 57 69 6e 64 | 6f 77 05 46 72 61 6d 65 |ogItWind|ow.Frame|
|00002260| 01 33 0c 48 61 73 42 61 | 63 6b 43 6f 6c 6f 72 04 |.3.HasBa|ckColor.|
|00002270| 54 72 75 65 09 42 61 63 | 6b 43 6f 6c 6f 72 08 31 |True.Bac|kColor.1|
|00002280| 35 32 36 33 39 37 36 08 | 42 61 63 6b 64 72 6f 70 |5263976.|Backdrop|
|00002290| 01 30 05 54 69 74 6c 65 | 0b 4c 6f 67 49 74 57 69 |.0.Title|.LogItWi|
|000022a0| 6e 64 6f 77 07 56 69 73 | 69 62 6c 65 05 46 61 6c |ndow.Vis|ible.Fal|
|000022b0| 73 65 08 43 6c 6f 73 65 | 42 6f 78 05 46 61 6c 73 |se.Close|Box.Fals|
|000022c0| 65 08 47 72 6f 77 49 63 | 6f 6e 04 54 72 75 65 08 |e.GrowIc|on.True.|
|000022d0| 5a 6f 6f 6d 49 63 6f 6e | 04 54 72 75 65 0b 42 61 |ZoomIcon|.True.Ba|
|000022e0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 09 4d 61 63 50 72 |lloonHel|p..MacPr|
|000022f0| 6f 63 49 44 01 30 09 50 | 6c 61 63 65 6d 65 6e 74 |ocID.0.P|lacement|
|00002300| 01 30 05 57 69 64 74 68 | 03 33 30 30 06 48 65 69 |.0.Width|.300.Hei|
|00002310| 67 68 74 03 33 30 30 08 | 4d 69 6e 57 69 64 74 68 |ght.300.|MinWidth|
|00002320| 02 36 34 09 4d 69 6e 48 | 65 69 67 68 74 02 36 34 |.64.MinH|eight.64|
|00002330| 08 4d 61 78 57 69 64 74 | 68 05 33 32 30 30 30 09 |.MaxWidt|h.32000.|
|00002340| 4d 61 78 48 65 69 67 68 | 74 05 33 32 30 30 30 07 |MaxHeigh|t.32000.|
|00002350| 00 0b 4c 6f 67 49 74 57 | 69 6e 64 6f 77 b0 01 06 |..LogItW|indow...|
|00002360| 44 69 61 6c 6f 67 00 00 | 02 06 41 70 70 65 6e 64 |Dialog..|..Append|
|00002370| 11 54 68 65 54 65 78 74 | 20 61 73 20 53 74 72 69 |.TheText| as Stri|
|00002380| 6e 67 00 00 04 00 04 00 | 06 1d 53 75 62 20 41 70 |ng......|..Sub Ap|
|00002390| 70 65 6e 64 28 54 68 65 | 54 65 78 74 20 61 73 20 |pend(The|Text as |
|000023a0| 53 74 72 69 6e 67 29 00 | 35 45 64 69 74 46 69 65 |String).|5EditFie|
|000023b0| 6c 64 31 2e 54 65 78 74 | 20 3d 20 45 64 69 74 46 |ld1.Text| = EditF|
|000023c0| 69 65 6c 64 31 2e 54 65 | 78 74 20 2b 20 54 68 65 |ield1.Te|xt + The|
|000023d0| 54 65 78 74 20 2b 20 43 | 68 72 28 31 33 29 09 53 |Text + C|hr(13).S|
|000023e0| 65 6c 66 2e 53 68 6f 77 | 00 07 45 6e 64 20 53 75 |elf.Show|..End Su|
|000023f0| 62 06 52 65 61 64 4d 65 | 00 00 00 01 00 01 00 03 |b.ReadMe|........|
|00002400| 0c 53 75 62 20 52 65 61 | 64 4d 65 28 29 00 07 45 |.Sub Rea|dMe()..E|
|00002410| 6e 64 20 53 75 62 00 02 | 05 43 6c 6f 73 65 01 00 |nd Sub..|.Close..|
|00002420| 01 00 03 0b 53 75 62 20 | 43 6c 6f 73 65 28 29 00 |....Sub |Close().|
|00002430| 07 45 6e 64 20 53 75 62 | 04 4f 70 65 6e 01 00 01 |.End Sub|.Open...|
|00002440| 00 03 0a 53 75 62 20 4f | 70 65 6e 28 29 00 07 45 |...Sub O|pen()..E|
|00002450| 6e 64 20 53 75 62 00 00 | 02 07 00 00 88 02 09 45 |nd Sub..|.......E|
|00002460| 64 69 74 46 69 65 6c 64 | 00 00 00 00 00 00 00 07 |ditField|........|
|00002470| 00 00 b4 01 0a 50 75 73 | 68 42 75 74 74 6f 6e 00 |.....Pus|hButton.|
|00002480| 00 00 00 01 06 41 63 74 | 69 6f 6e 04 04 04 04 07 |.....Act|ion.....|
|00002490| 0c 53 75 62 20 41 63 74 | 69 6f 6e 28 29 27 27 48 |.Sub Act|ion()''H|
|000024a0| 61 6e 67 20 61 72 6f 75 | 6e 64 20 73 6f 20 73 75 |ang arou|nd so su|
|000024b0| 62 73 65 71 75 65 6e 74 | 20 77 72 69 74 65 73 20 |bsequent| writes |
|000024c0| 77 69 6c 6c 20 1b 27 63 | 61 75 73 65 20 75 73 20 |will .'c|ause us |
|000024d0| 74 6f 20 62 65 20 73 65 | 65 6e 20 61 67 61 69 6e |to be se|en again|
|000024e0| 2e 00 09 53 65 6c 66 2e | 48 69 64 65 00 07 45 6e |...Self.|Hide..En|
|000024f0| 64 20 53 75 62 00 00 02 | 09 45 64 69 74 46 69 65 |d Sub...|.EditFie|
|00002500| 6c 64 20 04 4e 61 6d 65 | 0a 45 64 69 74 46 69 65 |ld .Name|.EditFie|
|00002510| 6c 64 31 05 49 6e 64 65 | 78 0b 2d 32 31 34 37 34 |ld1.Inde|x.-21474|
|00002520| 38 33 36 34 38 0d 54 61 | 62 50 61 6e 65 6c 49 6e |83648.Ta|bPanelIn|
|00002530| 64 65 78 01 30 07 56 69 | 73 69 62 6c 65 04 54 72 |dex.0.Vi|sible.Tr|
|00002540| 75 65 04 4c 65 66 74 01 | 38 03 54 6f 70 01 38 05 |ue.Left.|8.Top.8.|
|00002550| 57 69 64 74 68 03 32 38 | 33 06 48 65 69 67 68 74 |Width.28|3.Height|
|00002560| 03 32 36 33 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |.263.Bal|loonHelp|
|00002570| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00002580| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 04 |nHelp..L|ockLeft.|
|00002590| 54 72 75 65 07 4c 6f 63 | 6b 54 6f 70 04 54 72 75 |True.Loc|kTop.Tru|
|000025a0| 65 09 4c 6f 63 6b 52 69 | 67 68 74 04 54 72 75 65 |e.LockRi|ght.True|
|000025b0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 04 54 72 75 65 |.LockBot|tom.True|
|000025c0| 08 54 65 78 74 46 6f 6e | 74 06 47 65 6e 65 76 61 |.TextFon|t.Geneva|
|000025d0| 08 54 65 78 74 53 69 7a | 65 01 39 04 42 6f 6c 64 |.TextSiz|e.9.Bold|
|000025e0| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|000025f0| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00002600| 6c 73 65 06 42 6f 72 64 | 65 72 04 54 72 75 65 09 |lse.Bord|er.True.|
|00002610| 4d 75 6c 74 69 4c 69 6e | 65 04 54 72 75 65 09 53 |MultiLin|e.True.S|
|00002620| 63 72 6f 6c 6c 42 61 72 | 04 54 72 75 65 06 53 74 |crollBar|.True.St|
|00002630| 79 6c 65 64 05 46 61 6c | 73 65 08 50 61 73 73 77 |yled.Fal|se.Passw|
|00002640| 6f 72 64 05 46 61 6c 73 | 65 0c 55 73 65 46 6f 63 |ord.Fals|e.UseFoc|
|00002650| 75 73 52 69 6e 67 04 54 | 72 75 65 08 52 65 61 64 |usRing.T|rue.Read|
|00002660| 4f 6e 6c 79 05 46 61 6c | 73 65 09 4c 69 6d 69 74 |Only.Fal|se.Limit|
|00002670| 54 65 78 74 01 30 0a 41 | 63 63 65 70 74 54 61 62 |Text.0.A|cceptTab|
|00002680| 73 05 46 61 6c 73 65 09 | 54 65 78 74 43 6f 6c 6f |s.False.|TextColo|
|00002690| 72 01 30 09 42 61 63 6b | 43 6f 6c 6f 72 08 31 36 |r.0.Back|Color.16|
|000026a0| 37 37 37 32 31 35 07 45 | 6e 61 62 6c 65 64 04 54 |777215.E|nabled.T|
|000026b0| 72 75 65 04 54 65 78 74 | 00 00 0a 50 75 73 68 42 |rue.Text|...PushB|
|000026c0| 75 74 74 6f 6e 17 04 4e | 61 6d 65 0b 50 75 73 68 |utton..N|ame.Push|
|000026d0| 42 75 74 74 6f 6e 31 05 | 49 6e 64 65 78 0b 2d 32 |Button1.|Index.-2|
|000026e0| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|000026f0| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00002700| 65 04 54 72 75 65 04 4c | 65 66 74 03 32 31 36 03 |e.True.L|eft.216.|
|00002710| 54 6f 70 03 32 37 36 05 | 57 69 64 74 68 02 36 30 |Top.276.|Width.60|
|00002720| 06 48 65 69 67 68 74 02 | 32 30 0b 42 61 6c 6c 6f |.Height.|20.Ballo|
|00002730| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|00002740| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|00002750| 6b 4c 65 66 74 05 46 61 | 6c 73 65 07 4c 6f 63 6b |kLeft.Fa|lse.Lock|
|00002760| 54 6f 70 05 46 61 6c 73 | 65 09 4c 6f 63 6b 52 69 |Top.Fals|e.LockRi|
|00002770| 67 68 74 04 54 72 75 65 | 0a 4c 6f 63 6b 42 6f 74 |ght.True|.LockBot|
|00002780| 74 6f 6d 04 54 72 75 65 | 08 54 65 78 74 46 6f 6e |tom.True|.TextFon|
|00002790| 74 06 47 65 6e 65 76 61 | 08 54 65 78 74 53 69 7a |t.Geneva|.TextSiz|
|000027a0| 65 01 39 04 42 6f 6c 64 | 05 46 61 6c 73 65 06 49 |e.9.Bold|.False.I|
|000027b0| 74 61 6c 69 63 05 46 61 | 6c 73 65 09 55 6e 64 65 |talic.Fa|lse.Unde|
|000027c0| 72 6c 69 6e 65 05 46 61 | 6c 73 65 07 43 61 70 74 |rline.Fa|lse.Capt|
|000027d0| 69 6f 6e 07 48 69 64 65 | 20 4d 65 07 44 65 66 61 |ion.Hide| Me.Defa|
|000027e0| 75 6c 74 05 46 61 6c 73 | 65 06 43 61 6e 63 65 6c |ult.Fals|e.Cancel|
|000027f0| 05 46 61 6c 73 65 07 45 | 6e 61 62 6c 65 64 04 54 |.False.E|nabled.T|
|00002800| 72 75 65 01 00          |                         |rue..   |        |
+--------+-------------------------+-------------------------+--------+--------+