Programmer 7500

home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / SUB_DOC / SDSAMPLE.SDP < prev next >
Unknown | 1994-02-01 | 3.7 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	TrID	Spectrum 512 Anispec animation	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 53 f0 00 95 00 00 00 | 00 00 02 00 12 00 44 40 |SS......|......D@|
|00000010| 54 28 29 7e 53 44 53 41 | 4d 50 4c 45 2e 46 52 4d |T()~SDSA|MPLE.FRM|
|00000020| 37 00 44 69 6d 20 54 28 | 29 20 41 73 20 54 49 4c |7.Dim T(|) As TIL|
|00000030| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E       |        |
|00000040| 20 20 20 20 20 27 20 77 | 69 6c 6c 20 63 6f 6e 74 |     ' w|ill cont|
|00000050| 61 69 6e 20 74 69 6c 65 | 73 1c 04 29 9a 04 00 00 |ain tile|s..)....|
|00000060| 54 41 42 54 45 53 54 20 | 53 44 50 20 00 00 00 00 |TABTEST |SDP ....|
|00000070| 00 00 00 00 00 00 c5 9e | 3f 1c 8e 29 9b 0c 00 00 |........|?..)....|
|00000080| e5 55 42 44 4f 43 20 20 | 4d 41 4b 20 00 00 00 00 |.UBDOC  |MAK ....|
|00000090| 00 00 00 00 00 00 a6 a5 | 3f 1c f4 2f f3 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 45 45 |........|......EE|
|000000f0| 53 53 21 01 00 00 00 00 | 00 00 06 00 1b 00 4d 40 |SS!.....|......M@|
|00000100| 53 44 53 41 4d 50 4c 45 | 2e 46 52 4d 7e 53 44 53 |SDSAMPLE|.FRM~SDS|
|00000110| 41 4d 50 4c 45 2e 46 52 | 4d 36 00 27 27 20 20 54 |AMPLE.FR|M6.''  T|
|00000120| 68 69 73 20 66 6f 72 6d | 20 64 6f 65 73 6e 27 74 |his form| doesn't|
|00000130| 20 64 6f 20 61 6e 79 74 | 68 69 6e 67 20 6d 75 63 | do anyt|hing muc|
|00000140| 68 20 2d 20 6a 75 73 74 | 20 61 20 73 61 6d 70 6c |h - just| a sampl|
|00000150| 65 28 00 27 27 20 20 6f | 66 20 63 6f 64 65 20 66 |e(.''  o|f code f|
|00000160| 6f 72 20 73 75 62 64 6f | 63 20 74 6f 20 73 68 6f |or subdo|c to sho|
|00000170| 77 20 6f 66 66 20 77 69 | 74 68 2e 39 00 27 27 20 |w off wi|th.9.'' |
|00000180| 20 2a 2a 2a 20 48 6f 77 | 65 76 65 72 20 74 72 79 | *** How|ever try|
|00000190| 20 72 65 6d 6d 69 6e 67 | 20 6f 75 74 20 74 68 65 | remming| out the|
|000001a0| 20 6c 69 6e 65 73 20 69 | 6e 20 4d 53 74 61 72 74 | lines i|n MStart|
|000001b0| 5f 43 6c 69 63 6b 38 00 | 27 27 20 20 20 20 20 20 |_Click8.|''      |
|000001c0| 74 68 61 74 20 74 61 6b | 65 20 74 68 65 20 6c 6f |that tak|e the lo|
|000001d0| 73 73 20 6f 66 20 66 72 | 61 6d 65 20 62 6f 72 64 |ss of fr|ame bord|
|000001e0| 65 72 73 20 69 6e 74 6f | 20 61 63 63 6f 75 6e 74 |ers into| account|
|000001f0| 1d 00 27 27 20 20 20 20 | 20 20 61 6e 64 20 73 65 |..''    |  and se|
|00000200| 65 20 77 68 61 74 20 68 | 61 70 70 65 6e 73 2e 45 |e what h|appens.E|
|00000210| 45 53 53 42 00 00 00 00 | 00 00 00 02 00 1c 00 50 |ESSB....|.......P|
|00000220| 40 4d 46 49 4e 49 53 48 | 5f 43 4c 49 43 4b 7e 53 |@MFINISH|_CLICK~S|
|00000230| 44 53 41 4d 50 4c 45 2e | 46 52 4d 14 00 53 75 62 |DSAMPLE.|FRM..Sub|
|00000240| 20 4d 46 69 6e 69 73 68 | 5f 43 6c 69 63 6b 20 28 | MFinish|_Click (|
|00000250| 29 45 45 53 53 fb 00 00 | 00 00 00 00 00 06 00 1b |)EESS...|........|
|00000260| 00 50 40 4d 53 54 41 52 | 54 5f 43 4c 49 43 4b 7e |.P@MSTAR|T_CLICK~|
|00000270| 53 44 53 41 4d 50 4c 45 | 2e 46 52 4d 13 00 53 75 |SDSAMPLE|.FRM..Su|
|00000280| 62 20 4d 53 74 61 72 74 | 5f 43 6c 69 63 6b 20 28 |b MStart|_Click (|
|00000290| 29 22 00 27 27 20 20 53 | 74 61 72 74 20 74 68 65 |)".''  S|tart the|
|000002a0| 20 73 61 6d 70 6c 65 20 | 61 70 70 6c 69 63 61 74 | sample |applicat|
|000002b0| 69 6f 6e 3a 2d 30 00 27 | 27 20 20 20 20 20 20 61 |ion:-0.'|'      a|
|000002c0| 73 6b 20 66 6f 72 20 6e | 61 6d 65 2c 20 63 72 65 |sk for n|ame, cre|
|000002d0| 61 74 65 20 74 69 6c 65 | 73 2c 20 63 6f 6d 70 75 |ate tile|s, compu|
|000002e0| 74 65 20 66 6f 72 6d 26 | 00 27 27 20 20 20 20 20 |te form&|.''     |
|000002f0| 20 64 69 6d 65 6e 73 69 | 6f 6e 73 20 74 68 65 6e | dimensi|ons then|
|00000300| 20 6c 61 79 20 6f 75 74 | 20 74 69 6c 65 73 2e 3b | lay out| tiles.;|
|00000310| 00 27 27 20 20 2a 2a 2a | 20 49 6e 74 65 72 65 73 |.''  ***| Interes|
|00000320| 74 69 6e 67 20 63 6f 64 | 65 20 6d 6f 64 69 66 69 |ting cod|e modifi|
|00000330| 63 61 74 69 6f 6e 20 69 | 6e 20 74 68 69 73 20 70 |cation i|n this p|
|00000340| 72 6f 63 65 64 75 72 65 | 20 2a 2a 2a 45 45 53 53 |rocedure| ***EESS|
|00000350| 8f 00 00 00 00 00 00 00 | 04 00 17 00 50 40 53 48 |........|....P@SH|
|00000360| 4f 57 54 49 4c 45 7e 53 | 44 53 41 4d 50 4c 45 2e |OWTILE~S|DSAMPLE.|
|00000370| 46 52 4d 13 00 53 75 62 | 20 73 68 6f 77 74 69 6c |FRM..Sub| showtil|
|00000380| 65 20 28 72 2c 20 63 29 | 29 00 27 27 20 20 53 68 |e (r, c)|).''  Sh|
|00000390| 6f 77 20 74 68 65 20 74 | 69 6c 65 20 69 6e 20 74 |ow the t|ile in t|
|000003a0| 68 65 20 67 6c 6f 61 62 | 6c 20 61 72 72 61 79 20 |he gloab|l array |
|000003b0| 54 28 29 26 00 27 27 20 | 20 52 20 61 6e 64 20 43 |T()&.'' | R and C|
|000003c0| 20 61 72 65 20 72 6f 77 | 20 61 6e 64 20 63 6f 6c | are row| and col|
|000003d0| 75 6d 6e 20 69 6e 64 65 | 63 65 73 45 45 53 53 6d |umn inde|cesEESSm|
|000003e0| 00 00 00 00 00 00 00 02 | 00 1b 00 43 40 54 57 49 |........|...C@TWI|
|000003f0| 50 53 50 45 52 49 4e 43 | 48 7e 53 44 53 41 4d 50 |PSPERINC|H~SDSAMP|
|00000400| 4c 45 2e 42 41 53 40 00 | 47 6c 6f 62 61 6c 20 43 |LE.BAS@.|Global C|
|00000410| 6f 6e 73 74 20 74 77 69 | 70 73 70 65 72 69 6e 63 |onst twi|psperinc|
|00000420| 68 20 3d 20 31 34 34 30 | 20 20 20 20 27 20 68 6f |h = 1440|    ' ho|
|00000430| 77 20 6d 61 6e 79 20 74 | 77 69 70 73 20 69 6e 20 |w many t|wips in |
|00000440| 6f 6e 65 20 69 6e 63 68 | 45 45 53 53 7e 00 00 00 |one inch|EESS~...|
|00000450| 00 00 00 00 02 00 1d 00 | 47 40 50 52 4f 47 52 41 |........|G@PROGRA|
|00000460| 4d 5f 53 54 41 54 45 25 | 7e 53 44 53 41 4d 50 4c |M_STATE%|~SDSAMPL|
|00000470| 45 2e 42 41 53 4f 00 47 | 6c 6f 62 61 6c 20 50 72 |E.BASO.G|lobal Pr|
|00000480| 6f 67 72 61 6d 5f 73 74 | 61 74 65 25 20 20 20 20 |ogram_st|ate%    |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 27 20 31 3d 49 |        |   ' 1=I|
|000004a0| 6e 20 70 72 6f 67 72 65 | 73 73 20 28 73 69 67 6e |n progre|ss (sign|
|000004b0| 61 6c 20 66 6f 72 20 73 | 74 6f 70 2f 67 6f 20 62 |al for s|top/go b|
|000004c0| 75 74 74 6f 6e 29 45 45 | 53 53 08 01 00 00 00 00 |utton)EE|SS......|
|000004d0| 00 00 09 00 13 00 54 40 | 54 49 4c 45 7e 53 44 53 |......T@|TILE~SDS|
|000004e0| 41 4d 50 4c 45 2e 42 41 | 53 0f 00 4c 65 66 74 20 |AMPLE.BA|S..Left |
|000004f0| 41 73 20 49 6e 74 65 67 | 65 72 0e 00 74 6f 70 20 |As Integ|er..top |
|00000500| 41 73 20 49 6e 74 65 67 | 65 72 10 00 72 69 67 68 |As Integ|er..righ|
|00000510| 74 20 41 73 20 49 6e 74 | 65 67 65 72 11 00 62 6f |t As Int|eger..bo|
|00000520| 74 74 6f 6d 20 41 73 20 | 49 6e 74 65 67 65 72 2f |ttom As |Integer/|
|00000530| 00 6c 65 74 74 65 72 20 | 41 73 20 53 74 72 69 6e |.letter |As Strin|
|00000540| 67 20 2a 20 31 20 20 20 | 20 27 20 77 69 6c 6c 20 |g * 1   | ' will |
|00000550| 62 65 20 73 68 6f 77 6e | 20 6f 6e 20 66 61 63 65 |be shown| on face|
|00000560| 2b 00 63 6c 72 20 41 73 | 20 4c 6f 6e 67 20 20 20 |+.clr As| Long   |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 27 20 62 61 63 6b |        |  ' back|
|00000580| 67 72 6f 75 6e 64 20 63 | 6f 6c 6f 75 72 3d 00 27 |ground c|olour=.'|
|00000590| 27 20 20 54 69 6c 65 20 | 69 73 20 61 20 62 69 74 |'  Tile |is a bit|
|000005a0| 20 6c 69 6b 65 20 61 20 | 73 63 72 61 62 62 6c 65 | like a |scrabble|
|000005b0| 20 74 69 6c 65 20 77 69 | 74 68 20 6f 6e 65 20 6c | tile wi|th one l|
|000005c0| 65 74 74 65 72 20 6f 6e | 20 69 74 2e 00 00 45 45 |etter on| it...EE|
|000005d0| 53 53 6b 00 00 00 00 00 | 00 00 02 00 1b 00 43 40 |SSk.....|......C@|
|000005e0| 54 49 4c 45 46 4f 4e 54 | 53 49 5a 45 7e 53 44 53 |TILEFONT|SIZE~SDS|
|000005f0| 41 4d 50 4c 45 2e 42 41 | 53 3e 00 47 6c 6f 62 61 |AMPLE.BA|S>.Globa|
|00000600| 6c 20 43 6f 6e 73 74 20 | 54 69 6c 65 66 6f 6e 74 |l Const |Tilefont|
|00000610| 73 69 7a 65 20 3d 20 31 | 33 20 20 20 20 20 20 27 |size = 1|3      '|
|00000620| 20 68 6f 77 20 62 69 67 | 20 77 69 6c 6c 20 6c 65 | how big| will le|
|00000630| 74 74 65 72 73 20 62 65 | 3f 45 45 53 53 c2 00 00 |tters be|?EESS...|
|00000640| 00 00 00 00 00 04 00 1b | 00 4d 40 53 44 53 41 4d |........|.M@SDSAM|
|00000650| 50 4c 45 2e 42 41 53 7e | 53 44 53 41 4d 50 4c 45 |PLE.BAS~|SDSAMPLE|
|00000660| 2e 42 41 53 30 00 27 27 | 20 20 54 68 69 73 20 69 |.BAS0.''|  This i|
|00000670| 73 20 6f 6e 6c 79 20 61 | 20 64 65 6d 6f 20 73 6f |s only a| demo so|
|00000680| 20 64 6f 6e 27 74 20 77 | 6f 72 72 79 20 61 62 6f | don't w|orry abo|
|00000690| 75 74 20 74 68 65 31 00 | 27 27 20 20 75 6e 66 6f |ut the1.|''  unfo|
|000006a0| 72 74 75 6e 61 74 65 20 | 70 72 6f 6c 69 66 65 72 |rtunate |prolifer|
|000006b0| 61 74 69 6f 6e 20 6f 66 | 20 6f 64 64 20 76 61 72 |ation of| odd var|
|000006c0| 69 61 62 6c 65 73 20 69 | 6e 30 00 27 27 20 20 73 |iables i|n0.''  s|
|000006d0| 74 72 61 6e 67 65 20 70 | 6c 61 63 65 73 20 67 65 |trange p|laces ge|
|000006e0| 74 74 69 6e 67 20 75 70 | 20 74 6f 20 63 75 72 69 |tting up| to curi|
|000006f0| 6f 75 73 20 74 68 69 6e | 67 73 2e 45 45 53 53 f1 |ous thin|gs.EESS.|
|00000700| 00 00 00 00 00 00 00 04 | 00 20 00 64 40 47 45 54 |........|. .d@GET|
|00000710| 53 59 53 54 45 4d 4d 45 | 54 52 49 43 53 25 7e 53 |SYSTEMME|TRICS%~S|
|00000720| 44 53 41 4d 50 4c 45 2e | 53 55 42 51 00 44 65 63 |DSAMPLE.|SUBQ.Dec|
|00000730| 6c 61 72 65 20 46 75 6e | 63 74 69 6f 6e 20 47 65 |lare Fun|ction Ge|
|00000740| 74 53 79 73 74 65 6d 4d | 65 74 72 69 63 73 20 4c |tSystemM|etrics L|
|00000750| 69 62 20 22 55 73 65 72 | 22 20 28 42 79 56 61 6c |ib "User|" (ByVal|
|00000760| 20 6e 49 6e 64 65 78 20 | 41 73 20 49 6e 74 65 67 | nIndex |As Integ|
|00000770| 65 72 29 20 41 73 20 49 | 6e 74 65 67 65 72 3e 00 |er) As I|nteger>.|
|00000780| 27 27 20 20 41 50 49 20 | 63 61 6c 6c 20 77 6f 72 |''  API |call wor|
|00000790| 6b 73 20 77 69 74 68 20 | 57 69 6e 20 33 2e 30 20 |ks with |Win 3.0 |
|000007a0| 70 72 6f 76 69 64 65 64 | 20 6e 49 6e 64 65 78 20 |provided| nIndex |
|000007b0| 3c 3d 20 33 35 28 64 65 | 63 69 6d 61 6c 29 2c 00 |<= 35(de|cimal),.|
|000007c0| 27 27 20 20 43 6f 6e 73 | 74 61 6e 74 73 20 64 65 |''  Cons|tants de|
|000007d0| 63 6c 61 72 65 64 20 77 | 69 74 68 20 74 68 65 20 |clared w|ith the |
|000007e0| 73 74 79 6c 65 20 53 4d | 5f 2e 2e 2e 45 45 53 53 |style SM|_...EESS|
|000007f0| 41 00 00 00 00 00 00 00 | 02 00 1a 00 63 40 53 4d |A.......|....c@SM|
|00000800| 5f 43 58 53 43 52 45 45 | 4e 7e 53 44 53 41 4d 50 |_CXSCREE|N~SDSAMP|
|00000810| 4c 45 2e 53 55 42 15 00 | 43 6f 6e 73 74 20 53 4d |LE.SUB..|Const SM|
|00000820| 5f 43 58 53 43 52 45 45 | 4e 20 3d 20 30 45 45 53 |_CXSCREE|N = 0EES|
|00000830| 53 41 00 00 00 00 00 00 | 00 02 00 1a 00 63 40 53 |SA......|.....c@S|
|00000840| 4d 5f 43 59 53 43 52 45 | 45 4e 7e 53 44 53 41 4d |M_CYSCRE|EN~SDSAM|
|00000850| 50 4c 45 2e 53 55 42 15 | 00 43 6f 6e 73 74 20 53 |PLE.SUB.|.Const S|
|00000860| 4d 5f 43 59 53 43 52 45 | 45 4e 20 3d 20 31 45 45 |M_CYSCRE|EN = 1EE|
|00000870| 53 53 79 00 00 00 00 00 | 00 00 02 00 1b 00 63 40 |SSy.....|......c@|
|00000880| 53 4d 5f 43 59 43 41 50 | 54 49 4f 4e 7e 53 44 53 |SM_CYCAP|TION~SDS|
|00000890| 41 4d 50 4c 45 2e 53 55 | 42 4c 00 43 6f 6e 73 74 |AMPLE.SU|BL.Const|
|000008a0| 20 53 4d 5f 43 59 43 41 | 50 54 49 4f 4e 20 3d 20 | SM_CYCA|PTION = |
|000008b0| 34 20 20 20 20 20 20 27 | 20 70 69 78 65 6c 73 20 |4      '| pixels |
|000008c0| 68 65 69 67 68 74 20 6f | 66 20 61 20 63 61 70 74 |height o|f a capt|
|000008d0| 69 6f 6e 20 62 61 72 20 | 28 61 6c 73 6f 20 6d 65 |ion bar |(also me|
|000008e0| 6e 75 20 62 61 72 29 45 | 45 53 53 84 00 00 00 00 |nu bar)E|ESS.....|
|000008f0| 00 00 00 02 00 1a 00 63 | 40 53 4d 5f 43 58 42 4f |.......c|@SM_CXBO|
|00000900| 52 44 45 52 7e 53 44 53 | 41 4d 50 4c 45 2e 53 55 |RDER~SDS|AMPLE.SU|
|00000910| 42 58 00 43 6f 6e 73 74 | 20 53 4d 5f 43 58 42 4f |BX.Const| SM_CXBO|
|00000920| 52 44 45 52 20 3d 20 35 | 20 20 20 20 20 20 20 27 |RDER = 5|       '|
|00000930| 20 70 69 78 65 6c 73 20 | 77 69 64 74 68 20 6f 66 | pixels |width of|
|00000940| 20 61 20 66 72 61 6d 65 | 20 62 6f 72 64 65 72 20 | a frame| border |
|00000950| 28 74 65 63 68 6e 69 63 | 61 6c 6c 79 20 6e 6f 6e |(technic|ally non|
|00000960| 2d 73 69 7a 65 61 62 6c | 65 21 29 45 45 53 53 85 |-sizeabl|e!)EESS.|
|00000970| 00 00 00 00 00 00 00 02 | 00 1a 00 63 40 53 4d 5f |........|...c@SM_|
|00000980| 43 59 42 4f 52 44 45 52 | 7e 53 44 53 41 4d 50 4c |CYBORDER|~SDSAMPL|
|00000990| 45 2e 53 55 42 59 00 43 | 6f 6e 73 74 20 53 4d 5f |E.SUBY.C|onst SM_|
|000009a0| 43 59 42 4f 52 44 45 52 | 20 3d 20 36 20 20 20 20 |CYBORDER| = 6    |
|000009b0| 20 20 20 27 20 70 69 78 | 65 6c 73 20 68 65 69 67 |   ' pix|els heig|
|000009c0| 68 74 20 6f 66 20 61 20 | 66 72 61 6d 65 20 62 6f |ht of a |frame bo|
|000009d0| 72 64 65 72 20 28 74 65 | 63 68 6e 69 63 61 6c 6c |rder (te|chnicall|
|000009e0| 79 20 6e 6f 6e 2d 73 69 | 7a 65 61 62 6c 65 21 29 |y non-si|zeable!)|
|000009f0| 45 45 53 53 3e 00 00 00 | 00 00 00 00 02 00 18 00 |EESS>...|........|
|00000a00| 63 40 53 4d 5f 43 59 4d | 45 4e 55 7e 53 44 53 41 |c@SM_CYM|ENU~SDSA|
|00000a10| 4d 50 4c 45 2e 53 55 42 | 14 00 43 6f 6e 73 74 20 |MPLE.SUB|..Const |
|00000a20| 53 4d 5f 43 59 4d 45 4e | 55 20 3d 20 31 35 45 45 |SM_CYMEN|U = 15EE|
|00000a30| 53 53 4a 00 00 00 00 00 | 00 00 02 00 1e 00 63 40 |SSJ.....|......c@|
|00000a40| 53 4d 5f 43 58 46 55 4c | 4c 53 43 52 45 45 4e 7e |SM_CXFUL|LSCREEN~|
|00000a50| 53 44 53 41 4d 50 4c 45 | 2e 53 55 42 1a 00 43 6f |SDSAMPLE|.SUB..Co|
|00000a60| 6e 73 74 20 53 4d 5f 43 | 58 46 55 4c 4c 53 43 52 |nst SM_C|XFULLSCR|
|00000a70| 45 45 4e 20 3d 20 31 36 | 45 45 53 53 4a 00 00 00 |EEN = 16|EESSJ...|
|00000a80| 00 00 00 00 02 00 1e 00 | 63 40 53 4d 5f 43 59 46 |........|c@SM_CYF|
|00000a90| 55 4c 4c 53 43 52 45 45 | 4e 7e 53 44 53 41 4d 50 |ULLSCREE|N~SDSAMP|
|00000aa0| 4c 45 2e 53 55 42 1a 00 | 43 6f 6e 73 74 20 53 4d |LE.SUB..|Const SM|
|00000ab0| 5f 43 59 46 55 4c 4c 53 | 43 52 45 45 4e 20 3d 20 |_CYFULLS|CREEN = |
|00000ac0| 31 37 45 45 53 53 40 00 | 00 00 00 00 00 00 02 00 |17EESS@.|........|
|00000ad0| 19 00 63 40 53 4d 5f 43 | 58 46 52 41 4d 45 7e 53 |..c@SM_C|XFRAME~S|
|00000ae0| 44 53 41 4d 50 4c 45 2e | 53 55 42 15 00 43 6f 6e |DSAMPLE.|SUB..Con|
|00000af0| 73 74 20 53 4d 5f 43 58 | 46 52 41 4d 45 20 3d 20 |st SM_CX|FRAME = |
|00000b00| 33 32 45 45 53 53 40 00 | 00 00 00 00 00 00 02 00 |32EESS@.|........|
|00000b10| 19 00 63 40 53 4d 5f 43 | 59 46 52 41 4d 45 7e 53 |..c@SM_C|YFRAME~S|
|00000b20| 44 53 41 4d 50 4c 45 2e | 53 55 42 15 00 43 6f 6e |DSAMPLE.|SUB..Con|
|00000b30| 73 74 20 53 4d 5f 43 59 | 46 52 41 4d 45 20 3d 20 |st SM_CY|FRAME = |
|00000b40| 33 33 45 45 53 53 b0 01 | 00 00 00 00 00 00 0a 00 |33EESS..|........|
|00000b50| 1b 00 4d 40 53 44 53 41 | 4d 50 4c 45 2e 53 55 42 |..M@SDSA|MPLE.SUB|
|00000b60| 7e 53 44 53 41 4d 50 4c | 45 2e 53 55 42 39 00 27 |~SDSAMPL|E.SUB9.'|
|00000b70| 27 20 20 54 68 69 73 20 | 6d 6f 64 75 6c 65 20 64 |'  This |module d|
|00000b80| 65 61 6c 73 20 77 69 74 | 68 20 64 69 73 63 6f 76 |eals wit|h discov|
|00000b90| 65 72 69 6e 67 20 68 6f | 77 20 6d 75 63 68 20 6f |ering ho|w much o|
|00000ba0| 66 20 61 20 66 6f 72 6d | 1e 00 27 27 20 20 67 65 |f a form|..''  ge|
|00000bb0| 74 73 20 6c 6f 73 74 20 | 77 69 74 68 20 74 68 65 |ts lost |with the|
|00000bc0| 20 62 6f 72 64 65 72 2e | 35 00 27 27 20 20 20 20 | border.|5.''    |
|00000bd0| 20 20 2a 2a 2a 2a 20 4e | 42 20 45 73 73 65 6e 74 |  **** N|B Essent|
|00000be0| 69 61 6c 20 66 6f 72 20 | 61 6c 6c 20 56 42 20 70 |ial for |all VB p|
|00000bf0| 72 6f 67 72 61 6d 6d 65 | 72 73 20 2a 2a 2a 2a 25 |rogramme|rs ****%|
|00000c00| 00 27 27 20 20 57 72 69 | 74 74 65 6e 20 62 79 20 |.''  Wri|tten by |
|00000c10| 50 65 74 65 72 20 46 6f | 78 2e 20 20 33 20 46 65 |Peter Fo|x.  3 Fe|
|00000c20| 62 20 31 39 39 33 33 00 | 27 27 20 20 20 20 20 20 |b 19933.|''      |
|00000c30| 32 20 54 65 65 73 20 43 | 6c 6f 73 65 2c 20 57 69 |2 Tees C|lose, Wi|
|00000c40| 74 68 61 6d 2c 20 45 73 | 73 65 78 20 43 4d 38 20 |tham, Es|sex CM8 |
|00000c50| 31 4c 47 2c 45 6e 67 6c | 61 6e 64 22 00 27 27 20 |1LG,Engl|and".'' |
|00000c60| 20 20 20 20 20 44 6f 6d | 65 73 74 69 63 20 74 65 |     Dom|estic te|
|00000c70| 6c 3a 20 20 30 33 37 36 | 20 35 31 37 32 30 36 22 |l:  0376| 517206"|
|00000c80| 00 27 27 20 20 20 20 20 | 20 49 6e 74 6e 6c 20 74 |.''     | Intnl t|
|00000c90| 65 6c 3a 20 20 2b 34 34 | 20 33 37 36 20 35 31 37 |el:  +44| 376 517|
|00000ca0| 32 30 36 25 00 27 27 20 | 20 20 20 20 20 28 43 6f |206%.'' |     (Co|
|00000cb0| 6d 70 75 73 65 72 76 65 | 20 49 44 3a 20 20 31 30 |mpuserve| ID:  10|
|00000cc0| 30 31 31 36 2c 31 30 33 | 31 29 26 00 27 27 20 20 |0116,103|1)&.''  |
|00000cd0| 4d 61 6b 65 20 74 68 65 | 20 62 65 73 74 20 75 73 |Make the| best us|
|00000ce0| 65 20 6f 66 20 74 68 65 | 6d 20 79 6f 75 20 63 61 |e of the|m you ca|
|00000cf0| 6e 2e 45 45 53 53 3b 01 | 00 00 00 00 00 00 06 00 |n.EESS;.|........|
|00000d00| 26 00 50 40 4c 4f 53 54 | 46 52 41 4d 45 48 45 49 |&.P@LOST|FRAMEHEI|
|00000d10| 47 48 54 49 4e 54 57 49 | 50 53 25 7e 53 44 53 41 |GHTINTWI|PS%~SDSA|
|00000d20| 4d 50 4c 45 2e 53 55 42 | 2c 00 46 75 6e 63 74 69 |MPLE.SUB|,.Functi|
|00000d30| 6f 6e 20 6c 6f 73 74 66 | 72 61 6d 65 68 65 69 67 |on lostf|rameheig|
|00000d40| 68 74 69 6e 74 77 69 70 | 73 25 20 28 77 69 74 68 |htintwip|s% (with|
|00000d50| 6d 65 6e 75 25 29 4e 00 | 27 27 20 20 52 65 74 75 |menu%)N.|''  Retu|
|00000d60| 72 6e 20 74 68 65 20 68 | 65 69 67 68 74 20 28 69 |rn the h|eight (i|
|00000d70| 6e 20 74 77 69 70 73 29 | 20 74 68 61 74 20 69 73 |n twips)| that is|
|00000d80| 20 6c 6f 73 74 20 62 65 | 63 61 75 73 65 20 74 68 | lost be|cause th|
|00000d90| 65 20 46 4f 52 4d 2e 48 | 45 49 47 48 54 20 70 72 |e FORM.H|EIGHT pr|
|00000da0| 6f 70 65 72 74 79 22 00 | 27 27 20 20 69 6e 63 6c |operty".|''  incl|
|00000db0| 75 64 65 73 20 74 68 65 | 20 74 69 74 6c 65 20 61 |udes the| title a|
|00000dc0| 6e 64 20 62 6f 72 64 65 | 72 73 4a 00 27 27 20 20 |nd borde|rsJ.''  |
|00000dd0| 49 66 20 57 49 54 48 4d | 45 4e 55 25 20 69 73 20 |If WITHM|ENU% is |
|00000de0| 74 72 75 65 20 74 68 65 | 6e 20 77 65 20 68 61 76 |true the|n we hav|
|00000df0| 65 20 74 6f 20 69 6e 63 | 6c 75 65 20 61 20 28 73 |e to inc|lue a (s|
|00000e00| 69 6e 67 6c 65 29 20 6d | 65 6e 75 20 62 61 72 20 |ingle) m|enu bar |
|00000e10| 69 6e 20 74 68 65 15 00 | 27 27 20 20 76 61 6c 75 |in the..|''  valu|
|00000e20| 65 20 74 6f 20 62 65 20 | 6c 6f 73 74 2e 45 45 53 |e to be |lost.EES|
|00000e30| 53 c1 00 00 00 00 00 00 | 00 04 00 25 00 50 40 4c |S.......|...%.P@L|
|00000e40| 4f 53 54 46 52 41 4d 45 | 57 49 44 54 48 49 4e 54 |OSTFRAME|WIDTHINT|
|00000e50| 57 49 50 53 25 7e 53 44 | 53 41 4d 50 4c 45 2e 53 |WIPS%~SD|SAMPLE.S|
|00000e60| 55 42 22 00 46 75 6e 63 | 74 69 6f 6e 20 4c 6f 73 |UB".Func|tion Los|
|00000e70| 74 46 72 61 6d 65 77 69 | 64 74 68 69 6e 74 77 69 |tFramewi|dthintwi|
|00000e80| 70 73 25 20 28 29 43 00 | 27 27 20 20 52 65 74 75 |ps% ()C.|''  Retu|
|00000e90| 72 6e 20 74 68 65 20 77 | 69 64 74 68 20 28 69 6e |rn the w|idth (in|
|00000ea0| 20 74 77 69 70 73 29 20 | 74 68 61 74 20 69 73 20 | twips) |that is |
|00000eb0| 6c 6f 73 74 20 62 65 63 | 61 75 73 65 20 74 68 65 |lost bec|ause the|
|00000ec0| 20 46 4f 52 4d 2e 57 49 | 44 54 48 21 00 27 27 20 | FORM.WI|DTH!.'' |
|00000ed0| 20 70 72 6f 70 65 72 74 | 79 20 69 6e 63 6c 75 64 | propert|y includ|
|00000ee0| 65 73 20 74 68 65 20 62 | 6f 72 64 65 72 73 45 45 |es the b|ordersEE|
+--------+-------------------------+-------------------------+--------+--------+