RbBFBlokProjÀ®™R ‹ð©PSIVStrn5.5OPSpStrnACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrnIVerStrnDVewInt prTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupEndGInt CPalGrupÐflagInt elemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿEndGInt MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRectôlȾPadnPadn¤********************************************************************************************************************************************************************BlokpObj¾ª©^À®™R ‹ð©NameStrnphoneticContInt rEdtRectFuë•eSptInt µbPGpGrupPbPElGrup4scKyInt õãÑrEdtRectFuë•eSptInt µEndGInt EndGInt bClsInt NameStrnphoneticSizeInt bNtrInt PropGrupÔEncoInt declStrndispWords(37) as StringflagInt sorcGrup|stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrndispWords(37) as StringntlnStrnntlnStrnEndGInt EndGInt PropGrupÔEncoInt declStrnspkWords(37) As stringflagInt sorcGrup| stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnspkWords(37) As stringntlnStrnntlnStrnEndGInt EndGInt NoteGrupP EncoInt nameStrnUsageflagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnUsagentlnStrndim x as phoneticntlnStrnx = new phoneticntlnStrn!speak x.getSpeak(EditField1.Text)ntlnStrn/StaticText1.Text= x.getDisplay(EditField1.Text)ntlnStrnEndGInt EndGInt MethGruph EncoInt nameStrn ConstructorparmStrnrsltStrnflagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Constructor()srclStrndim i as IntegersrclStrn// Words to be displayedsrclStrnAdispWords = Array("Alpha", "Bravo", "Charlie", "Delta", "Echo", _srclStrn8"Foxtrot", "Golf", "Hotel", "India", "Juliet", "Kilo", _srclStrn8"Lima", "Mike", "November", "Oscar", "Papa", "Quebec", _srclStrn="Romeo", "Sierra", "Tango", "Uniform", "Victor", "Whiskey", _srclStrn:"X-ray", "Yankee", "Zulu", "zero", "one", "two", "tree", _srclStrn5"fower", "fife", "six", "seven", "eight", "niner", _srclStrncstr(EndOfLine) )srclStrn// Words to be spokensrclStrnfor i = 0 to 35srclStrnspkWords(i) = dispWords(i)srclStrnnext isrclStrn5// Three words don't pronounce very well on my systemsrclStrnspkWords(5) = "FoxTrott"srclStrnspkWords(10) = "Keelo"srclStrnspkWords(11) = "Leema"srclStrn%// Pause between words whenr speakingsrclStrnspkWords(36) = ". "srclStrnEnd SubEndGInt EndGInt MethGrupEncoInt nameStrn doConvertparmStrns As String, w() As StringrsltStrnStringflagInt sorcGrup”stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn8Function doConvert(s As String, w() As String) As StringsrclStrndim i , maxI as IntegersrclStrndim c , accum As StringsrclStrndim pos as IntegersrclStrn maxI = len(s)srclStrns=Lowercase(s)srclStrnfor i = 1 to maxIsrclStrnc = mid(s,i,1)srclStrnpos = instr(1,letters,c)srclStrnif pos > 0 thensrclStrn c = w(pos-1)srclStrnend ifsrclStrnaccum = accum + csrclStrnif c <> cstr(EndOfLine) thensrclStrnaccum = accum + " "srclStrnend ifsrclStrnNext isrclStrnreturn RTrim(accum)srclStrn End FunctionEndGInt EndGInt MethGrup,EncoInt nameStrngetSpeakparmStrn s as stringrsltStrnStringflagInt sorcGrup¸stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn(Function getSpeak(s as string) As StringsrclStrnreturn doConvert(s,spkWords())srclStrn End FunctionEndGInt EndGInt MethGrup4EncoInt nameStrn getDisplayparmStrn s As StringrsltStrnStringflagInt sorcGrup¼stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn*Function getDisplay(s As String) As StringsrclStrnreturn doConvert(s,dispWords)srclStrn End FunctionEndGInt EndGInt CnstGruppEncoInt nameStrnletterstypeInt defnStrn%abcdefghijklmnopqrstuvwxyz0123456789 flagInt EndGInt IntrStrnPadnPadnØ************************************************************************************************************************************************************************************************************************BlokpObj¾«z_À®™R ‹ð©NameStrnAppContInt rEdtRect_K!•eSptInt ÿÿübPGpGrupPbPElGrup4scKyInt õãÑrEdtRect_K!•eSptInt ÿÿüEndGInt EndGInt bClsInt NameStrnAppSizeInt SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup(nameStrnMenuBarPValStrn0EndGInt PadnPadnˆ************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!