Programmer 7500

home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / DISP_MSG / DISPMSG.BAS next >
Visual Basic Tokenized Source | 1994-05-07 | 5.7 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Visual Basic Tokenized Source (other/visualBasicTokenizedSource).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	magic	Unsupported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	TrID	Visual Basic 3 source (tokenized)	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 05 02 00 0f 00 5f 01 | 5f 01 09 00 01 02 03 04 |......_.|_.......|
|00000010| 06 0b 05 08 0a 90 11 90 | 11 35 03 00 00 1a 00 e6 |........|.5......|
|00000020| 01 48 01 84 02 d2 00 70 | 00 00 00 59 01 88 01 8a |.H.....p|...Y....|
|00000030| 00 66 02 fd 01 a5 01 2a | 01 3f 01 00 00 34 01 ed |.f.....*|.?...4..|
|00000040| 00 7a 00 c1 01 7f 02 0f | 01 06 01 5a 00 e2 02 66 |.z......|...Z...f|
|00000050| 00 6b 00 93 01 c0 00 00 | 00 80 01 64 01 b5 01 00 |.k......|...d....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 35 03 00 00 af 00 00 | 08 50 4f 49 4e 54 41 50 |.5......|.POINTAP|
|00000080| 49 95 00 00 01 58 e3 00 | 00 01 59 de 01 00 06 43 |I....X..|..Y....C|
|00000090| 75 72 73 6f 72 00 00 00 | 0c 47 65 74 43 75 72 73 |ursor...|.GetCurs|
|000000a0| 6f 72 50 6f 73 a4 00 00 | 07 6c 70 50 6f 69 6e 74 |orPos...|.lpPoint|
|000000b0| ac 01 00 0b 4b 61 54 69 | 65 43 75 72 73 6f 72 c8 |....KaTi|eCursor.|
|000000c0| 00 00 07 64 69 6d 54 79 | 70 65 da 00 00 0d 47 65 |...dimTy|pe....Ge|
|000000d0| 74 57 69 6e 64 6f 77 52 | 65 63 74 6e 01 00 04 68 |tWindowR|ectn...h|
|000000e0| 57 6e 64 18 01 00 06 6c | 70 52 65 63 74 00 00 00 |Wnd....l|pRect...|
|000000f0| 04 52 45 43 54 f5 00 00 | 05 57 69 64 74 68 f4 02 |.RECT...|.Width..|
|00000100| 00 06 48 65 69 67 68 74 | 6c 02 00 04 66 72 65 64 |..Height|l...fred|
|00000110| 00 00 00 0d 47 65 74 43 | 6c 69 65 6e 74 52 65 63 |....GetC|lientRec|
|00000120| 74 ec 02 00 05 4c 61 73 | 74 58 00 00 00 05 4c 61 |t....Las|tX....La|
|00000130| 73 74 59 49 02 00 0e 44 | 69 73 70 6c 61 79 4d 65 |stYI...D|isplayMe|
|00000140| 73 73 61 67 65 d3 01 00 | 06 54 69 6d 65 72 31 50 |ssage...|.Timer1P|
|00000150| 01 00 07 45 6e 61 62 6c | 65 64 c8 01 00 05 46 6f |...Enabl|ed....Fo|
|00000160| 75 6e 64 52 02 00 04 74 | 65 6d 70 3e 02 00 05 4b |undR...t|emp>...K|
|00000170| 61 54 69 65 00 00 00 07 | 57 69 6e 64 6f 77 58 00 |aTie....|WindowX.|
|00000180| 00 00 06 53 63 72 65 65 | 6e 00 00 00 0e 54 77 69 |...Scree|n....Twi|
|00000190| 70 73 50 65 72 50 69 78 | 65 6c 58 00 00 00 04 4c |psPerPix|elX....L|
|000001a0| 65 66 74 00 00 00 07 57 | 69 6e 64 6f 77 59 05 02 |eft....W|indowY..|
|000001b0| 00 0e 54 77 69 70 73 50 | 65 72 50 69 78 65 6c 59 |..TwipsP|erPixelY|
|000001c0| 77 02 00 03 54 6f 70 25 | 02 00 05 43 6f 75 6e 74 |w...Top%|...Count|
|000001d0| 91 02 00 08 43 6f 6e 74 | 72 6f 6c 73 34 02 00 03 |....Cont|rols4...|
|000001e0| 54 61 67 00 00 00 07 4d | 65 73 73 61 67 65 f1 01 |Tag....M|essage..|
|000001f0| 00 07 43 61 70 74 69 6f | 6e d4 02 00 04 46 6f 72 |..Captio|n....For|
|00000200| 6d 00 00 00 07 43 6f 6e | 74 72 6f 6c 15 02 00 08 |m....Con|trol....|
|00000210| 46 6f 72 6d 6e 61 6d 65 | 00 00 00 04 4e 61 6d 65 |Formname|....Name|
|00000220| 00 00 00 0c 4d 65 73 73 | 61 67 65 54 69 6d 65 72 |....Mess|ageTimer|
|00000230| 00 00 00 0c 4d 65 73 73 | 61 67 65 46 6f 75 6e 64 |....Mess|ageFound|
|00000240| 1d 03 00 0b 4d 65 73 73 | 61 67 65 54 65 6d 70 00 |....Mess|ageTemp.|
|00000250| 00 00 06 52 65 61 64 4d | 65 57 02 00 07 70 72 6f |...ReadM|eW...pro|
|00000260| 67 72 61 6d 00 00 00 05 | 73 68 6f 77 73 cd 02 00 |gram....|shows...|
|00000270| 01 61 9b 02 00 0b 64 65 | 73 63 72 69 70 74 69 6f |.a....de|scriptio|
|00000280| 6e a6 02 00 02 6f 66 00 | 00 00 07 72 65 73 74 69 |n....of.|...resti|
|00000290| 6e 67 00 00 00 04 6f 76 | 65 72 b3 02 00 01 73 ad |ng....ov|er....s.|
|000002a0| 02 00 09 42 65 72 6b 73 | 68 69 72 65 00 00 00 06 |...Berks|hire....|
|000002b0| 55 6e 69 74 65 64 00 00 | 00 07 4b 69 6e 67 64 6f |United..|..Kingdo|
|000002c0| 6d bf 02 00 03 53 4c 36 | 00 00 00 02 44 46 00 03 |m....SL6|....DF..|
|000002d0| 00 08 49 6e 74 65 72 6e | 65 74 fb 02 00 0a 43 6f |..Intern|et....Co|
|000002e0| 6d 70 75 53 65 72 76 65 | 2a 03 00 03 43 6f 6d 00 |mpuServe|*...Com.|
|000002f0| 00 00 0a 4b 61 54 69 65 | 4c 6f 67 6f 6e 00 00 00 |...KaTie|Logon...|
|00000300| 06 7a 69 70 70 65 64 0b | 03 00 04 63 6f 70 79 00 |.zipped.|...copy.|
|00000310| 00 00 03 74 68 65 15 03 | 00 01 49 00 00 00 07 72 |...the..|..I....r|
|00000320| 65 73 70 6f 6e 64 00 00 | 00 06 62 65 74 74 65 72 |espond..|..better|
|00000330| 00 00 00 04 6d 61 6b 65 | 00 00 00 09 64 6f 6e 61 |....make|....dona|
|00000340| 74 69 6f 6e 73 00 00 00 | 07 69 6d 70 72 6f 76 65 |tions...|.improve|
|00000350| 52 01 00 00 18 00 00 00 | 76 00 4a 00 00 00 20 54 |R.......|v.J... T|
|00000360| 68 69 73 20 73 65 63 74 | 69 6f 6e 20 69 73 20 72 |his sect|ion is r|
|00000370| 65 71 75 69 72 65 64 20 | 66 6f 72 20 74 68 65 20 |equired |for the |
|00000380| 52 75 66 61 6e 20 52 65 | 64 69 20 44 69 73 70 6c |Rufan Re|di Displ|
|00000390| 61 79 4d 65 73 73 61 67 | 65 20 70 72 6f 63 65 73 |ayMessag|e proces|
|000003a0| 73 69 6e 67 20 21 00 00 | 00 00 1c 00 7a 00 5a 00 |sing !..|....z.Z.|
|000003b0| 00 08 18 00 66 00 16 00 | 01 00 04 00 00 08 18 00 |....f...|........|
|000003c0| 6b 00 16 00 01 00 04 00 | 00 00 1b 00 80 00 00 00 |k.......|........|
|000003d0| 1c 00 b8 00 d2 00 00 08 | 18 00 66 00 16 00 01 00 |........|..f.....|
|000003e0| 04 00 00 08 18 00 6b 00 | 16 00 01 00 04 00 00 08 |......k.|........|
|000003f0| 18 00 da 00 16 00 01 00 | 08 00 00 08 18 00 e3 00 |........|........|
|00000400| 16 00 01 00 09 00 00 00 | 1b 00 ff ff 00 00 00 00 |........|........|
|00000410| 16 01 cc 00 15 00 5a 00 | 0f 00 0d 00 8a 00 00 00 |......Z.|........|
|00000420| 16 01 dc 00 15 00 d2 00 | 0e 00 0d 00 c8 00 00 00 |........|........|
|00000430| 00 00 2e 00 14 00 7a 00 | 20 01 01 00 8a 00 00 80 |......z.| .......|
|00000440| 5a 00 00 00 04 55 73 65 | 72 00 00 00 2e 00 1c 00 |Z....Use|r.......|
|00000450| f5 00 20 01 02 00 c0 00 | 00 90 01 00 00 00 c8 00 |.. .....|........|
|00000460| 00 80 d2 00 00 00 04 55 | 73 65 72 00 00 00 00 00 |.......U|ser.....|
|00000470| 76 00 2a 00 00 00 45 6e | 64 20 6f 66 20 52 75 66 |v.*...En|d of Ruf|
|00000480| 61 6e 20 52 65 64 69 20 | 44 69 73 70 6c 61 79 4d |an Redi |DisplayM|
|00000490| 65 73 73 61 67 65 20 73 | 65 63 74 69 6f 6e 00 00 |essage s|ection..|
|000004a0| 09 00 08 00 ff ff ff ff | 5a 00 ff ff 15 00 04 00 |........|Z.......|
|000004b0| 03 01 00 0e 00 44 69 73 | 70 6c 61 79 4d 65 73 73 |.....Dis|playMess|
|000004c0| 61 67 65 01 00 34 d6 04 | 00 00 18 00 00 00 58 00 |age..4..|......X.|
|000004d0| 0e 00 18 01 00 01 01 00 | f1 01 00 80 de 01 00 00 |........|........|
|000004e0| 00 08 76 00 39 00 02 00 | 54 68 69 73 20 70 72 6f |..v.9...|This pro|
|000004f0| 63 65 64 75 72 65 20 69 | 73 20 74 68 65 20 52 75 |cedure i|s the Ru|
|00000500| 66 61 6e 20 52 65 64 69 | 20 44 69 73 70 6c 61 79 |fan Redi| Display|
|00000510| 4d 65 73 73 61 67 65 20 | 63 6f 6e 74 72 6f 6c 72 |Message |controlr|
|00000520| 00 08 00 08 76 00 12 00 | 02 00 20 50 61 75 73 65 |....v...|.. Pause|
|00000530| 20 74 68 65 20 74 69 6d | 65 72 00 08 2b 01 0b 00 | the tim|er..+...|
|00000540| f1 01 11 00 05 02 12 00 | 34 01 00 08 76 00 17 00 |........|4...v...|
|00000550| 02 00 20 49 6e 69 74 69 | 61 6c 69 73 65 20 76 61 |.. Initi|alise va|
|00000560| 72 69 61 62 6c 65 73 65 | 00 08 2b 01 0c 04 15 02 |riablese|..+.....|
|00000570| 00 08 e4 00 0c 04 25 02 | 00 08 00 08 76 00 4f 00 |......%.|....v.O.|
|00000580| 02 00 20 4c 6f 63 61 74 | 65 20 74 68 65 20 70 6f |.. Locat|e the po|
|00000590| 69 6e 74 65 72 2c 20 61 | 6e 64 20 66 69 6e 64 20 |inter, a|nd find |
|000005a0| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |the size| of the |
|000005b0| 63 6c 69 65 6e 74 20 61 | 72 65 61 20 6f 66 20 74 |client a|rea of t|
|000005c0| 68 65 20 63 75 72 72 65 | 6e 74 20 66 6f 72 6d 67 |he curre|nt formg|
|000005d0| 00 08 0b 00 8a 00 23 00 | 01 00 7a 00 00 08 0b 00 |......#.|..z.....|
|000005e0| f1 01 11 00 c0 00 0b 00 | c8 00 23 00 02 00 f5 00 |........|..#.....|
|000005f0| 00 08 76 00 4f 00 02 00 | 20 55 73 65 20 74 68 61 |..v.O...| Use tha|
|00000600| 74 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 74 6f |t inform|ation to|
|00000610| 20 66 69 6e 64 20 74 68 | 65 20 70 6f 69 73 69 6f | find th|e poisio|
|00000620| 74 6e 20 6f 6e 20 74 68 | 65 20 66 6f 72 6d 20 74 |tn on th|e form t|
|00000630| 68 61 74 20 74 68 65 20 | 70 6f 69 6e 74 65 72 20 |hat the |pointer |
|00000640| 69 73 20 61 74 67 00 08 | 0b 00 8a 00 11 00 66 00 |is atg..|......f.|
|00000650| 0b 00 64 01 11 00 6e 01 | f0 00 ee 00 0b 00 f1 01 |..d...n.|........|
|00000660| 11 00 80 01 f7 00 0b 00 | c8 00 11 00 da 00 0b 00 |........|........|
|00000670| 64 01 11 00 6e 01 f0 00 | ee 00 0b 00 f1 01 11 00 |d...n...|........|
|00000680| da 00 f7 00 ee 00 a3 00 | 0c 00 59 01 00 08 0b 00 |........|..Y.....|
|00000690| 8a 00 11 00 6b 00 0b 00 | 64 01 11 00 93 01 f0 00 |....k...|d.......|
|000006a0| ee 00 0b 00 f1 01 11 00 | a5 01 f7 00 0b 00 c8 00 |........|........|
|000006b0| 11 00 e3 00 0b 00 64 01 | 11 00 93 01 f0 00 ee 00 |......d.|........|
|000006c0| 0b 00 f1 01 11 00 e3 00 | f7 00 ee 00 a3 00 0c 00 |........|........|
|000006d0| 88 01 00 08 00 08 76 00 | 22 00 02 00 20 4c 6f 6f |......v.|"... Loo|
|000006e0| 70 20 74 6f 20 66 69 6e | 64 20 61 20 6d 61 74 63 |p to fin|d a matc|
|000006f0| 68 69 6e 67 20 62 75 74 | 74 6f 6e 20 00 08 0b 04 |hing but|ton ....|
|00000700| 15 02 2b 01 a6 00 0b 04 | 25 02 0b 00 f1 01 11 00 |..+.....|%.......|
|00000710| ac 01 e3 00 a4 00 5a 00 | 72 04 00 10 00 10 0b 04 |......Z.|r.......|
|00000720| 25 02 0b 00 f1 01 13 00 | 01 00 b5 01 11 00 c1 01 |%.......|........|
|00000730| 56 00 c0 02 00 18 76 00 | 2e 00 06 00 20 49 67 6e |V.....v.|.... Ign|
|00000740| 6f 72 65 20 6f 62 6a 65 | 63 74 73 20 77 69 74 68 |ore obje|cts with|
|00000750| 20 63 65 72 74 61 69 6e | 20 28 6f 72 20 65 6d 70 | certain| (or emp|
|00000760| 74 79 29 20 74 61 67 73 | 00 10 ed 00 0a 00 c6 02 |ty) tags|........|
|00000770| 05 00 54 69 6d 65 72 00 | 26 00 ed 00 0c 00 de 02 |..Timer.|&.......|
|00000780| 07 00 50 72 69 6e 74 65 | 72 00 26 00 ed 00 0a 00 |..Printe|r.&.....|
|00000790| f8 02 04 00 4c 69 6e 65 | 00 00 26 00 ed 00 10 00 |....Line|..&.....|
|000007a0| 10 03 0a 00 53 74 61 74 | 75 73 20 42 61 72 00 00 |....Stat|us Bar..|
|000007b0| 26 00 ed 00 06 00 2e 03 | 00 00 00 00 26 00 00 10 |&.......|....&...|
|000007c0| 25 00 00 20 76 00 31 00 | 08 00 20 63 68 65 63 6b |%.. v.1.|.. check|
|000007d0| 20 74 6f 20 73 65 65 20 | 69 66 20 74 68 65 20 70 | to see |if the p|
|000007e0| 6f 69 6e 74 65 72 20 69 | 73 20 6f 76 65 72 20 74 |ointer i|s over t|
|000007f0| 68 65 20 6f 62 6a 65 63 | 74 68 00 18 0b 04 25 02 |he objec|th....%.|
|00000800| 0b 00 f1 01 13 00 01 00 | b5 01 11 00 80 01 0b 00 |........|........|
|00000810| 59 01 e2 00 0b 04 25 02 | 0b 00 f1 01 13 00 01 00 |Y.....%.|........|
|00000820| b5 01 11 00 80 01 0b 04 | 25 02 0b 00 f1 01 13 00 |........|%.......|
|00000830| 01 00 b5 01 11 00 da 00 | a3 00 0b 00 59 01 de 00 |........|....Y...|
|00000840| a4 00 49 00 52 04 00 20 | 0b 04 25 02 0b 00 f1 01 |..I.R.. |..%.....|
|00000850| 13 00 01 00 b5 01 11 00 | a5 01 0b 00 88 01 e2 00 |........|........|
|00000860| 0b 04 25 02 0b 00 f1 01 | 13 00 01 00 b5 01 11 00 |..%.....|........|
|00000870| a5 01 0b 04 25 02 0b 00 | f1 01 13 00 01 00 b5 01 |....%...|........|
|00000880| 11 00 e3 00 a3 00 0b 00 | 88 01 de 00 a4 00 49 00 |........|......I.|
|00000890| 4e 04 00 28 0b 04 25 02 | 0b 00 f1 01 13 00 01 00 |N..(..%.|........|
|000008a0| b5 01 11 00 c1 01 0b 00 | f1 01 11 00 c8 01 12 00 |........|........|
|000008b0| d3 01 00 28 2c 01 0c 04 | 15 02 00 20 38 00 00 18 |...(,...|... 8...|
|000008c0| 38 00 00 10 3a 00 00 10 | 00 10 0b 04 25 02 e4 04 |8...:...|....%...|
|000008d0| a3 00 0c 04 25 02 00 08 | 00 08 59 00 4a 02 00 08 |....%...|..Y.J...|
|000008e0| 00 08 76 00 3e 00 02 00 | 20 49 66 20 6e 6f 20 6f |..v.>...| If no o|
|000008f0| 62 6a 65 63 74 20 69 73 | 20 63 75 72 72 65 6e 74 |bject is| current|
|00000900| 2c 20 72 65 73 65 74 20 | 74 68 65 20 6d 65 73 73 |, reset |the mess|
|00000910| 61 67 65 20 74 6f 20 74 | 68 65 20 66 6f 72 6d 73 |age to t|he forms|
|00000920| 20 74 61 67 00 08 0b 04 | 15 02 2b 01 a6 00 0b 00 | tag....|..+.....|
|00000930| f1 01 11 00 c8 01 11 00 | d3 01 34 01 ed 00 06 00 |........|..4.....|
|00000940| d8 04 00 00 00 00 a6 00 | f5 00 49 00 fe 04 00 10 |........|..I.....|
|00000950| 0b 00 f1 01 11 00 c1 01 | 0b 00 f1 01 11 00 c8 01 |........|........|
|00000960| 12 00 d3 01 00 08 38 00 | 00 08 00 08 76 00 14 00 |......8.|....v...|
|00000970| 02 00 20 52 65 73 74 61 | 72 74 20 74 68 65 20 74 |.. Resta|rt the t|
|00000980| 69 6d 65 72 00 08 2c 01 | 0b 00 f1 01 11 00 05 02 |imer..,.|........|
|00000990| 12 00 34 01 00 00 00 00 | 39 00 09 00 08 00 ff ff |..4.....|9.......|
|000009a0| ff ff ff ff ff ff 2d 00 | 04 00 03 00 00 06 00 52 |......-.|.......R|
|000009b0| 65 61 64 4d 65 01 00 34 | e8 0c 00 00 18 00 00 00 |eadMe..4|........|
|000009c0| 58 00 06 00 34 02 00 01 | 00 00 00 00 76 00 31 00 |X...4...|....v.1.|
|000009d0| 00 00 20 44 69 73 70 6c | 61 79 4d 65 73 73 61 67 |.. Displ|ayMessag|
|000009e0| 65 20 28 63 29 20 52 75 | 66 61 6e 20 52 65 64 69 |e (c) Ru|fan Redi|
|000009f0| 20 50 72 6f 64 75 63 74 | 69 6f 6e 73 20 31 39 39 | Product|ions 199|
|00000a00| 34 73 00 00 76 00 19 00 | 00 00 20 56 65 72 73 69 |4s..v...|.. Versi|
|00000a10| 6f 6e 20 31 2e 30 20 2d | 20 35 20 4d 61 79 20 39 |on 1.0 -| 5 May 9|
|00000a20| 34 34 00 00 00 00 76 00 | 3b 00 00 00 20 2d 20 41 |44....v.|;... - A|
|00000a30| 20 73 65 63 74 69 6f 6e | 20 6f 66 20 56 42 33 2e | section| of VB3.|
|00000a40| 30 20 63 6f 64 65 20 77 | 68 69 63 68 20 6d 61 79 |0 code w|hich may|
|00000a50| 20 62 65 20 69 6e 63 6c | 75 64 65 64 20 69 6e 20 | be incl|uded in |
|00000a60| 79 6f 75 72 20 20 00 00 | 76 00 39 00 00 00 20 70 |your  ..|v.9... p|
|00000a70| 72 6f 67 72 61 6d 20 74 | 6f 20 70 72 6f 76 69 64 |rogram t|o provid|
|00000a80| 65 20 61 20 75 73 65 72 | 2d 64 65 66 69 6e 61 62 |e a user|-definab|
|00000a90| 6c 65 20 6d 65 73 73 61 | 67 65 20 62 6f 78 20 77 |le messa|ge box w|
|00000aa0| 68 69 63 68 20 20 00 00 | 76 00 3b 00 00 00 20 73 |hich  ..|v.;... s|
|00000ab0| 68 6f 77 73 20 61 20 64 | 65 73 63 72 69 70 74 69 |hows a d|escripti|
|00000ac0| 6f 6e 20 6f 66 20 74 68 | 65 20 66 6f 72 6d 20 6f |on of th|e form o|
|00000ad0| 62 6a 65 63 74 20 74 68 | 61 74 20 74 68 65 20 70 |bject th|at the p|
|00000ae0| 6f 69 6e 74 65 72 20 74 | 00 00 76 00 13 00 00 00 |ointer t|..v.....|
|00000af0| 20 69 73 20 72 65 73 74 | 69 6e 67 20 6f 76 65 72 | is rest|ing over|
|00000b00| 2e 2e 00 00 76 00 34 00 | 00 00 20 49 74 27 73 20 |....v.4.|.. It's |
|00000b10| 76 65 72 79 20 73 6d 61 | 6c 6c 2c 20 76 65 72 79 |very sma|ll, very|
|00000b20| 20 73 69 6d 70 6c 65 20 | 61 6e 64 20 70 72 6f 62 | simple |and prob|
|00000b30| 61 62 6c 79 20 65 61 73 | 79 20 74 6f 00 00 76 00 |ably eas|y to..v.|
|00000b40| 3a 00 00 00 20 69 6d 70 | 72 6f 76 65 20 6f 6e 2c |:... imp|rove on,|
|00000b50| 20 62 75 74 20 2d 20 79 | 6f 75 27 76 65 20 67 6f | but - y|ou've go|
|00000b60| 74 20 69 74 2c 20 77 68 | 79 20 6e 6f 74 20 74 72 |t it, wh|y not tr|
|00000b70| 79 20 75 73 69 6e 67 20 | 69 74 20 21 00 00 00 00 |y using |it !....|
|00000b80| 76 00 36 00 00 00 20 49 | 6e 20 6f 72 64 65 72 20 |v.6... I|n order |
|00000b90| 74 6f 20 6d 61 6b 65 20 | 69 74 20 77 6f 72 6b 20 |to make |it work |
|00000ba0| 79 6f 75 20 6d 75 73 74 | 20 64 6f 20 74 68 65 20 |you must| do the |
|00000bb0| 66 6f 6c 6c 6f 77 69 6e | 67 3b 00 00 76 00 27 00 |followin|g;..v.'.|
|00000bc0| 00 00 20 31 20 2d 20 49 | 6e 63 6c 75 64 65 20 74 |.. 1 - I|nclude t|
|00000bd0| 68 69 73 20 4d 6f 64 75 | 6c 65 20 69 6e 20 79 6f |his Modu|le in yo|
|00000be0| 75 72 20 63 6f 64 65 20 | 00 00 76 00 3b 00 00 00 |ur code |..v.;...|
|00000bf0| 20 32 20 2d 20 41 64 64 | 20 61 20 54 69 6d 65 72 | 2 - Add| a Timer|
|00000c00| 20 2d 20 63 61 6c 6c 65 | 64 20 4d 65 73 73 61 67 | - calle|d Messag|
|00000c10| 65 54 69 6d 65 72 20 2d | 20 74 6f 20 65 61 63 68 |eTimer -| to each|
|00000c20| 20 66 6f 72 6d 20 79 6f | 75 00 00 00 76 00 3a 00 | form yo|u...v.:.|
|00000c30| 00 00 0d 05 20 77 61 6e | 74 20 74 6f 20 68 61 76 |.... wan|t to hav|
|00000c40| 65 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |e this f|unction |
|00000c50| 6f 6e 2e 20 42 79 20 64 | 65 66 61 75 6c 74 20 74 |on. By d|efault t|
|00000c60| 68 69 73 20 73 68 6f 75 | 6c 64 00 00 76 00 38 00 |his shou|ld..v.8.|
|00000c70| 00 00 0d 05 20 62 65 20 | 64 69 73 61 62 6c 65 64 |.... be |disabled|
|00000c80| 2c 20 77 69 74 68 20 61 | 6e 20 49 6e 74 65 72 76 |, with a|n Interv|
|00000c90| 61 6c 20 6f 66 20 32 35 | 30 2e 20 49 66 20 74 68 |al of 25|0. If th|
|00000ca0| 69 73 20 73 6c 6f 77 73 | 00 00 76 00 2f 00 00 00 |is slows|..v./...|
|00000cb0| 0d 05 20 79 6f 75 72 20 | 61 70 70 6c 69 63 61 74 |.. your |applicat|
|00000cc0| 69 6f 6e 20 64 6f 77 6e | 2c 20 69 6e 63 72 65 61 |ion down|, increa|
|00000cd0| 73 65 20 74 68 65 20 6e | 75 6d 62 65 72 62 00 00 |se the n|umberb..|
|00000ce0| 76 00 3b 00 00 00 20 33 | 20 2d 20 41 64 64 20 61 |v.;... 3| - Add a|
|00000cf0| 20 4c 61 62 65 6c 20 2d | 20 63 61 6c 6c 65 64 20 | Label -| called |
|00000d00| 4d 65 73 73 61 67 65 20 | 2d 20 74 6f 20 65 61 63 |Message |- to eac|
|00000d10| 68 20 66 6f 72 6d 20 77 | 69 74 68 20 6f 6e 65 00 |h form w|ith one.|
|00000d20| 00 00 76 00 3a 00 00 00 | 0d 05 20 6f 66 20 74 68 |..v.:...|.. of th|
|00000d30| 65 73 65 20 54 69 6d 65 | 72 73 20 6f 6e 20 2d 20 |ese Time|rs on - |
|00000d40| 73 65 74 20 69 74 27 73 | 20 73 69 7a 65 20 61 6e |set it's| size an|
|00000d50| 64 20 61 74 74 72 69 62 | 75 74 65 73 20 74 6f 20 |d attrib|utes to |
|00000d60| 00 00 76 00 19 00 00 00 | 0d 05 20 66 69 74 20 79 |..v.....|.. fit y|
|00000d70| 6f 75 72 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |our appl|ication |
|00000d80| 00 00 76 00 2a 00 00 00 | 20 34 20 2d 20 53 65 74 |..v.*...| 4 - Set|
|00000d90| 20 74 68 65 20 4d 65 73 | 73 61 67 65 54 69 6d 65 | the Mes|sageTime|
|00000da0| 72 5f 54 69 6d 65 72 20 | 65 76 65 6e 74 20 74 6f |r_Timer |event to|
|00000db0| 00 00 76 00 36 00 00 00 | 0d 05 20 43 61 6c 6c 20 |..v.6...|.. Call |
|00000dc0| 44 69 73 70 6c 61 79 4d | 65 73 73 61 67 65 28 0d |DisplayM|essage(.|
|00000dd0| 04 78 29 20 77 68 65 72 | 65 20 0d 04 78 20 69 73 |.x) wher|e ..x is|
|00000de0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 00 00 76 00 | the nam|e of..v.|
|00000df0| 0d 00 00 00 0d 05 20 74 | 68 65 20 66 6f 72 6d 70 |...... t|he formp|
|00000e00| 00 00 76 00 25 00 00 00 | 20 35 20 2d 20 53 65 74 |..v.%...| 5 - Set|
|00000e10| 20 74 68 65 20 46 6f 72 | 6d 5f 41 63 74 69 76 61 | the For|m_Activa|
|00000e20| 74 65 20 65 76 65 6e 74 | 20 74 6f 04 00 00 76 00 |te event| to...v.|
|00000e30| 20 00 00 00 0d 05 20 4d | 65 73 73 61 67 65 54 69 | ..... M|essageTi|
|00000e40| 6d 65 72 2e 45 6e 61 62 | 6c 65 64 20 3d 20 54 72 |mer.Enab|led = Tr|
|00000e50| 75 65 00 00 76 00 23 00 | 00 00 0d 05 20 61 6e 64 |ue..v.#.|.... and|
|00000e60| 20 74 68 65 20 46 6f 72 | 6d 5f 44 65 61 63 74 69 | the For|m_Deacti|
|00000e70| 76 65 20 65 76 65 6e 74 | 20 74 6f 74 00 00 76 00 |ve event| tot..v.|
|00000e80| 21 00 00 00 0d 05 20 4d | 65 73 73 61 67 65 54 69 |!..... M|essageTi|
|00000e90| 6d 65 72 2e 45 6e 61 62 | 6c 65 64 20 3d 20 46 61 |mer.Enab|led = Fa|
|00000ea0| 6c 73 65 00 00 00 76 00 | 38 00 00 00 20 36 20 2d |lse...v.|8... 6 -|
|00000eb0| 20 53 65 74 20 74 68 65 | 20 74 61 67 20 70 72 6f | Set the| tag pro|
|00000ec0| 70 65 72 74 79 20 66 6f | 72 20 74 68 65 20 66 6f |perty fo|r the fo|
|00000ed0| 72 6d 20 74 6f 20 74 68 | 65 20 64 65 66 61 75 6c |rm to th|e defaul|
|00000ee0| 74 20 00 00 76 00 0c 00 | 00 00 0d 05 20 6d 65 73 |t ..v...|.... mes|
|00000ef0| 73 61 67 65 00 00 76 00 | 3a 00 00 00 20 37 20 2d |sage..v.|:... 7 -|
|00000f00| 20 53 65 74 20 74 68 65 | 20 74 61 67 20 70 72 6f | Set the| tag pro|
|00000f10| 70 65 72 74 69 65 73 20 | 66 6f 72 20 65 61 63 68 |perties |for each|
|00000f20| 20 6f 62 6a 65 63 74 20 | 79 6f 75 20 77 61 6e 74 | object |you want|
|00000f30| 20 74 6f 20 00 00 76 00 | 36 00 00 00 0d 05 20 64 | to ..v.|6..... d|
|00000f40| 69 73 70 6c 61 79 20 61 | 20 6d 65 73 73 61 67 65 |isplay a| message|
|00000f50| 20 66 6f 72 2e 20 44 6f | 20 6e 6f 74 20 73 65 74 | for. Do| not set|
|00000f60| 20 74 61 67 73 20 66 6f | 72 20 54 69 6d 65 72 2c | tags fo|r Timer,|
|00000f70| 00 00 76 00 2c 00 00 00 | 0d 05 20 4c 69 6e 65 2c |..v.,...|.. Line,|
|00000f80| 20 43 6f 6d 6d 6f 6e 20 | 44 69 61 6c 6f 67 20 6f | Common |Dialog o|
|00000f90| 72 20 50 72 69 6e 74 65 | 72 20 6f 62 6a 65 63 74 |r Printe|r object|
|00000fa0| 73 2e 00 00 76 00 37 00 | 00 00 20 38 20 2d 20 52 |s...v.7.|.. 8 - R|
|00000fb0| 75 6e 20 79 6f 75 72 20 | 61 70 70 6c 69 63 61 74 |un your |applicat|
|00000fc0| 69 6f 6e 2c 20 61 6e 64 | 20 66 69 6e 65 20 74 75 |ion, and| fine tu|
|00000fd0| 6e 65 20 74 68 65 20 6d | 65 73 73 61 67 65 73 00 |ne the m|essages.|
|00000fe0| 00 00 00 00 76 00 3b 00 | 00 00 20 54 61 67 20 76 |....v.;.|.. Tag v|
|00000ff0| 61 6c 75 65 73 20 63 61 | 6e 20 62 65 20 75 70 64 |alues ca|n be upd|
|00001000| 61 74 65 64 20 69 6e 20 | 74 68 65 20 63 6f 64 65 |ated in |the code|
|00001010| 2e 20 54 68 65 20 6e 65 | 78 74 20 74 69 6d 65 20 |. The ne|xt time |
|00001020| 74 68 65 75 00 00 76 00 | 39 00 00 00 20 4d 65 73 |theu..v.|9... Mes|
|00001030| 73 61 67 65 20 69 73 20 | 64 69 73 70 6c 61 79 65 |sage is |displaye|
|00001040| 64 20 66 6f 72 20 74 68 | 61 74 20 6f 62 6a 65 63 |d for th|at objec|
|00001050| 74 2c 20 74 68 65 20 6e | 65 77 20 74 61 67 20 77 |t, the n|ew tag w|
|00001060| 69 6c 6c 68 00 00 76 00 | 0f 00 00 00 20 62 65 20 |illh..v.|.... be |
|00001070| 72 65 66 6c 65 63 74 65 | 64 20 00 00 00 00 76 00 |reflecte|d ....v.|
|00001080| 32 00 00 00 20 59 6f 75 | 20 63 61 6e 20 6d 61 6e |2... You| can man|
|00001090| 75 61 6c 6c 79 20 75 70 | 64 61 74 65 20 74 68 65 |ually up|date the|
|000010a0| 20 6d 65 73 73 61 67 65 | 20 62 79 20 73 65 74 74 | message| by sett|
|000010b0| 69 6e 67 20 00 00 76 00 | 39 00 00 00 20 44 69 73 |ing ..v.|9... Dis|
|000010c0| 70 6c 61 79 4d 65 73 73 | 61 67 65 2e 43 61 70 74 |playMess|age.Capt|
|000010d0| 69 6f 6e 20 74 6f 20 74 | 68 65 20 74 65 78 74 20 |ion to t|he text |
|000010e0| 79 6f 75 20 77 61 6e 74 | 2e 20 52 65 6d 65 6d 62 |you want|. Rememb|
|000010f0| 65 72 20 20 00 00 76 00 | 34 00 00 00 20 74 68 61 |er  ..v.|4... tha|
|00001100| 74 20 69 66 20 74 68 65 | 20 4d 65 73 73 61 67 65 |t if the| Message|
|00001110| 54 69 6d 65 72 2e 45 6e | 61 62 6c 65 64 20 3d 20 |Timer.En|abled = |
|00001120| 54 72 75 65 2c 20 74 68 | 61 74 20 74 68 65 00 00 |True, th|at the..|
|00001130| 76 00 37 00 00 00 20 6d | 65 73 73 61 67 65 20 77 |v.7... m|essage w|
|00001140| 69 6c 6c 20 62 65 20 75 | 70 64 61 74 65 64 20 61 |ill be u|pdated a|
|00001150| 66 74 65 72 20 74 68 65 | 20 73 70 65 63 69 66 69 |fter the| specifi|
|00001160| 65 64 20 69 6e 74 65 72 | 76 61 6c 72 00 00 00 00 |ed inter|valr....|
|00001170| 76 00 38 00 00 00 20 41 | 70 61 72 74 20 66 72 6f |v.8... A|part fro|
|00001180| 6d 20 44 49 53 50 4d 53 | 47 2e 42 41 53 20 2d 20 |m DISPMS|G.BAS - |
|00001190| 44 65 63 6c 61 72 61 74 | 69 6f 6e 73 2c 20 44 69 |Declarat|ions, Di|
|000011a0| 73 70 6c 61 79 4d 65 73 | 73 61 67 65 00 00 76 00 |splayMes|sage..v.|
|000011b0| 34 00 00 00 20 61 6e 64 | 20 74 68 69 73 20 52 65 |4... and| this Re|
|000011c0| 61 64 4d 65 20 74 68 65 | 72 65 20 61 72 65 20 6e |adMe the|re are n|
|000011d0| 6f 20 6f 74 68 65 72 20 | 70 72 65 2d 72 65 71 75 |o other |pre-requ|
|000011e0| 69 73 69 74 65 73 00 00 | 00 00 76 00 39 00 00 00 |isites..|..v.9...|
|000011f0| 20 49 66 20 79 6f 75 20 | 64 65 63 69 64 65 20 74 | If you |decide t|
|00001200| 6f 20 75 73 65 20 74 68 | 69 73 20 69 6e 20 61 6e |o use th|is in an|
|00001210| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 2c 20 70 6c | applica|tion, pl|
|00001220| 65 61 73 65 20 64 6f 00 | 00 00 76 00 0e 00 00 00 |ease do.|..v.....|
|00001230| 20 74 77 6f 20 74 68 69 | 6e 67 73 3b 00 00 76 00 | two thi|ngs;..v.|
|00001240| 3b 00 00 00 20 61 29 20 | 43 72 65 64 69 74 20 6d |;... a) |Credit m|
|00001250| 65 20 69 6e 20 61 6e 20 | 61 70 70 72 6f 70 72 69 |e in an |appropri|
|00001260| 61 74 65 20 70 6c 61 63 | 65 20 69 6e 20 79 6f 75 |ate plac|e in you|
|00001270| 72 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 00 00 00 |r applic|ation...|
|00001280| 76 00 38 00 00 00 20 62 | 29 20 61 6e 64 20 73 65 |v.8... b|) and se|
|00001290| 6e 64 20 6d 65 20 61 20 | 73 75 69 74 61 62 6c 65 |nd me a |suitable|
|000012a0| 20 64 6f 6e 61 74 69 6f | 6e 20 74 6f 20 68 65 6c | donatio|n to hel|
|000012b0| 70 20 6d 65 20 63 6f 6e | 74 69 6e 65 00 00 76 00 |p me con|tine..v.|
|000012c0| 0f 00 00 00 0d 04 20 74 | 68 65 20 77 6f 72 6b 20 |...... t|he work |
|000012d0| 21 6d 00 00 00 00 76 00 | 3a 00 00 00 20 49 66 20 |!m....v.|:... If |
|000012e0| 79 6f 75 20 68 61 76 65 | 20 70 72 6f 62 6c 65 6d |you have| problem|
|000012f0| 73 2c 20 70 6c 65 61 73 | 65 20 63 6f 6e 74 61 63 |s, pleas|e contac|
|00001300| 74 20 6d 65 2c 20 70 72 | 65 66 65 72 61 62 6c 79 |t me, pr|eferably|
|00001310| 20 76 69 61 00 00 76 00 | 36 00 00 00 20 43 6f 6d | via..v.|6... Com|
|00001320| 70 75 53 65 72 76 65 20 | 6f 72 20 70 68 79 73 69 |puServe |or physi|
|00001330| 63 61 6c 20 6d 61 69 6c | 2c 20 61 6e 64 20 70 72 |cal mail|, and pr|
|00001340| 65 66 65 72 61 62 6c 79 | 20 77 69 74 68 20 61 20 |eferably| with a |
|00001350| 00 00 76 00 38 00 00 00 | 20 7a 69 70 70 65 64 20 |..v.8...| zipped |
|00001360| 63 6f 70 79 20 6f 66 20 | 74 68 65 20 63 6f 64 65 |copy of |the code|
|00001370| 20 79 6f 75 20 61 72 65 | 20 68 61 76 69 6e 67 20 | you are| having |
|00001380| 70 72 6f 62 6c 65 6d 73 | 20 77 69 74 68 20 00 00 |problems| with ..|
|00001390| 76 00 3c 00 00 00 20 2d | 20 49 20 72 65 73 70 6f |v.<... -| I respo|
|000013a0| 6e 64 20 62 65 74 74 65 | 72 20 74 6f 20 74 68 6f |nd bette|r to tho|
|000013b0| 73 65 20 77 68 6f 20 68 | 61 76 65 20 6d 61 64 65 |se who h|ave made|
|000013c0| 2c 20 6f 72 20 70 72 6f | 6d 69 73 65 20 74 6f 20 |, or pro|mise to |
|000013d0| 00 00 76 00 13 00 00 00 | 20 6d 61 6b 65 20 64 6f |..v.....| make do|
|000013e0| 6e 61 74 69 6f 6e 73 20 | 21 00 00 00 00 00 76 00 |nations |!.....v.|
|000013f0| 37 00 00 00 20 50 6c 65 | 61 73 65 20 66 65 65 6c |7... Ple|ase feel|
|00001400| 20 66 72 65 65 20 74 6f | 20 64 69 73 74 72 69 62 | free to| distrib|
|00001410| 75 74 65 20 74 68 69 73 | 20 73 6f 75 72 63 65 20 |ute this| source |
|00001420| 2d 20 69 66 20 79 6f 75 | 20 65 00 00 76 00 35 00 |- if you| e..v.5.|
|00001430| 00 00 20 69 6d 70 72 6f | 76 65 20 69 74 2c 20 70 |.. impro|ve it, p|
|00001440| 6c 65 61 73 65 20 63 6f | 6d 6d 65 6e 74 20 74 68 |lease co|mment th|
|00001450| 65 20 63 68 61 6e 67 65 | 73 2c 20 61 6e 64 20 61 |e change|s, and a|
|00001460| 6c 77 61 79 73 75 00 00 | 76 00 39 00 00 00 20 64 |lwaysu..|v.9... d|
|00001470| 69 73 74 72 69 62 75 74 | 65 20 61 20 63 6f 70 79 |istribut|e a copy|
|00001480| 20 6f 66 20 74 68 65 20 | 75 6e 61 6c 74 65 72 65 | of the |unaltere|
|00001490| 64 20 6f 72 69 67 69 6e | 61 6c 2e 20 49 66 20 79 |d origin|al. If y|
|000014a0| 6f 75 20 64 6f 00 00 00 | 76 00 30 00 00 00 20 69 |ou do...|v.0... i|
|000014b0| 6d 70 72 6f 76 65 20 6f | 6e 20 74 68 69 73 2c 20 |mprove o|n this, |
|000014c0| 70 6c 65 61 73 65 20 61 | 6c 73 6f 20 73 65 6e 64 |please a|lso send|
|000014d0| 20 6d 65 20 61 20 63 6f | 70 79 20 21 00 00 00 00 | me a co|py !....|
|000014e0| 76 00 3b 00 00 00 20 49 | 20 61 63 63 65 70 74 20 |v.;... I| accept |
|000014f0| 6e 6f 20 72 65 73 70 6f | 6e 73 69 62 69 6c 69 74 |no respo|nsibilit|
|00001500| 79 20 6f 72 20 6c 69 61 | 62 69 6c 69 74 79 20 66 |y or lia|bility f|
|00001510| 6f 72 20 61 6e 79 74 68 | 69 6e 67 20 79 6f 75 00 |or anyth|ing you.|
|00001520| 00 00 76 00 3a 00 00 00 | 20 64 6f 20 77 69 74 68 |..v.:...| do with|
|00001530| 20 74 68 69 73 20 63 6f | 64 65 2c 20 6f 72 20 61 | this co|de, or a|
|00001540| 6e 79 74 68 69 6e 67 20 | 74 68 61 74 20 68 61 70 |nything |that hap|
|00001550| 70 65 6e 73 20 61 73 20 | 61 20 72 65 73 75 6c 74 |pens as |a result|
|00001560| 00 00 76 00 37 00 00 00 | 20 6f 66 20 75 73 69 6e |..v.7...| of usin|
|00001570| 67 20 69 6e 20 69 6e 20 | 69 74 27 73 20 6f 72 69 |g in in |it's ori|
|00001580| 67 69 6e 61 6c 2c 20 6f | 72 20 61 6e 79 20 6d 6f |ginal, o|r any mo|
|00001590| 64 69 66 69 65 64 20 66 | 6f 72 6d 73 2e 75 00 00 |dified f|orms.u..|
|000015a0| 00 00 76 00 15 00 00 00 | 20 49 20 61 6d 20 4a 65 |..v.....| I am Je|
|000015b0| 72 65 6d 79 20 45 20 43 | 61 74 68 75 00 00 76 00 |remy E C|athu..v.|
|000015c0| 3b 00 00 00 20 41 64 64 | 72 65 73 73 3a 20 53 74 |;... Add|ress: St|
|000015d0| 6f 6b 65 20 43 6f 74 74 | 61 67 65 2c 20 4d 61 72 |oke Cott|age, Mar|
|000015e0| 73 68 20 4c 61 6e 65 2c | 20 54 61 70 6c 6f 77 2c |sh Lane,| Taplow,|
|000015f0| 20 4d 61 69 64 65 6e 68 | 65 61 64 2c 20 72 00 00 | Maidenh|ead, r..|
|00001600| 76 00 27 00 00 00 0d 0a | 20 42 65 72 6b 73 68 69 |v.'.....| Berkshi|
|00001610| 72 65 2e 20 55 6e 69 74 | 65 64 20 4b 69 6e 67 64 |re. Unit|ed Kingd|
|00001620| 6f 6d 2e 20 53 4c 36 20 | 30 44 46 54 00 00 76 00 |om. SL6 |0DFT..v.|
|00001630| 1b 00 00 00 20 50 68 6f | 6e 65 2f 46 61 78 20 2b |.... Pho|ne/Fax +|
|00001640| 34 34 20 36 32 38 20 37 | 38 39 32 32 39 6e 00 00 |44 628 7|89229n..|
|00001650| 76 00 19 00 00 00 20 43 | 6f 6d 70 75 53 65 72 76 |v..... C|ompuServ|
|00001660| 65 3a 20 31 30 30 33 31 | 35 2c 35 32 31 65 00 00 |e: 10031|5,521e..|
|00001670| 76 00 26 00 00 00 20 49 | 6e 74 65 72 6e 65 74 3a |v.&... I|nternet:|
|00001680| 20 31 30 30 33 31 35 2e | 35 32 31 40 43 6f 6d 70 | 100315.|521@Comp|
|00001690| 75 53 65 72 76 65 2e 43 | 6f 6d 00 00 39 00 09 00 |uServe.C|om..9...|
|000016a0| 08 00 ff ff ff ff ff ff | ff ff 4a 00 04 00 03 00 |........|..J.....|
|000016b0| fd                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+