adsapigr.pas

Async Professional 4.04

    '[<OrdinalLess100Pad>]' + ^M^J +
    '// Ordinal Less that 100, padded with zeros, without ending' + ^M^J +
    '<OrdinalLess100Pad>="0" <Ordinal1_9>' + ^M^J +
    '<OrdinalLess100Pad>=<OrdinalDoubleDigit>' + ^M^J +
    '<OrdinalLess100Pad>=zeroeth "00"' + ^M^J +
    '' + ^M^J +
    '[<Less1000Not>]' + ^M^J +
    '// Less than 1000, not padded with zeros' + ^M^J +
    '<Less1000Not>=<TripleDigit>' + ^M^J +
    '' + ^M^J +
    '[<Less1000Pad>]' + ^M^J +
    '// Less than 1000, padded with zeros' + ^M^J +
    '<Less1000Pad>="0" <Less100Pad>' + ^M^J +
    '<Less1000Pad>=<TripleDigit>' + ^M^J +
    '' + ^M^J +
    '[<Less1000000Not>]' + ^M^J +
    '// Less than 1,000,000, not padded with zeros' + ^M^J +
    '<Less1000000Not>=<1_9> thousand "000"' + ^M^J +
    '<Less1000000Not>=<1_9> thousand [opt] and <Less1000Pad>' + ^M^J +
    '<Less1000000Not>=<DoubleDigit> <Less1000000Not2>' + ^M^J +
    '<Less1000000Not>=<TripleDigit> <Less1000000Not2>' + ^M^J +
    '<Less1000000Not2>=thousand "000"' + ^M^J +
    '<Less1000000Not2>=thousand [opt] and <Less1000Pad>' + ^M^J;

  ApdAskForExtensionGrammar : string =
    '[<MyGrammar>]' + ^M^J +
    '<MyGrammar>=(Extension)' + ^M^J +
    '' + ^M^J +
    '[(Extension)]' + ^M^J +
    '-400=(ExtensionDigits)' + ^M^J +
    '' + ^M^J +
    '[(ExtensionDigits)]' + ^M^J +
    '=0' + ^M^J +
    '=1' + ^M^J +
    '=2' + ^M^J +
    '=3' + ^M^J +
    '=4' + ^M^J +
    '=5' + ^M^J +
    '=6' + ^M^J +
    '=7' + ^M^J +
    '=8' + ^M^J +
    '=9' + ^M^J;

  ApdAskForPhoneNumberGrammar : string =
    '[<MyGrammar>]' + ^M^J +
    '<MyGrammar>=(GetPhoneNumber)' + ^M^J +
    '' + ^M^J +
    '[(GetPhoneNumber)]' + ^M^J +
    '-600=<PhoneNumber>' + ^M^J +
    '' + ^M^J +
    '[<PhoneNumber>]' + ^M^J +
    '<PhoneNumber>=area code <ThreeDigits> [opt] <DashSlash> "-" ' +
        '<ThreeDigits> [opt] <DashSlash> "-" <FourDigits>' + ^M^J +
    '<PhoneNumber>=<ThreeDigits> [opt] <DashSlash> "-" <FourDigits>' + ^M^J +
    '<PhoneNumber>=<ThreeDigits> [opt] <DashSlash> "-" <ThreeDigits> [opt] ' +
        '<DashSlash> "-" <FourDigits>' + ^M^J +
    '<PhoneNumber>=1 <ThreeDigits> [opt] <DashSlash> "-" <ThreeDigits> ' +
        '[opt] <DashSlash> "-" <FourDigits>' + ^M^J +
    '<PhoneNumber>=1 8 hundred "00-" <ThreeDigits> [opt] <DashSlash> "-" ' +
        '<FourDigits>' + ^M^J +
    '<PhoneNumber>=1 9 hundred "00-" <ThreeDigits> [opt] <DashSlash> "-" ' +
        '<FourDigits>' + ^M^J +
{   '<PhoneNumber>=<ZeroOh> one one [opt] <DashSlash> "011-" <ThreeDigits> ' +
        '[opt] <DashSlash> "-" <Digits>' + ^M^J +
    '<PhoneNumber>=X. "x" [1+] <0_9>' + ^M^J +
    '<PhoneNumber>=extension "x" [1+] <0_9>' + ^M^J + }
    '<ThreeDigits>=<0_9> <0_9> <0_9>' + ^M^J +
    '<ThreeDigits>=<0_9> <DoubleDigit>' + ^M^J +
    '<ThreeDigits>=<TripleDigit>' + ^M^J +
    '<FourDigits>=<0_9> <ThreeDigits>' + ^M^J +
    '<FourDigits>=<DoubleDigit> <Last2Digits>' + ^M^J +
    '<Last2Digits>=<DoubleDigit>' + ^M^J +
    '<Last2Digits>=<0_9> <0_9>' + ^M^J +
    '<Last2Digits>=hundred "00"' + ^M^J +
    '<DashSlash>=-\dash' + ^M^J +
    '<DashSlash>=dash' + ^M^J +
    '<DashSlash>=/\slash' + ^M^J +
    '<DashSlash>=slash' + ^M^J +
    '<ZeroOh>=zero' + ^M^J +
    '<ZeroOh>=oh' + ^M^J +
    '' + ^M^J +
    '[<1_9>]' + ^M^J +
    '<1_9>=1' + ^M^J +
    '<1_9>=2' + ^M^J +
    '<1_9>=3' + ^M^J +
    '<1_9>=4' + ^M^J +
    '<1_9>=5' + ^M^J +
    '<1_9>=6' + ^M^J +
    '<1_9>=7' + ^M^J +
    '<1_9>=8' + ^M^J +
    '<1_9>=9' + ^M^J +
    '' + ^M^J +
    '[<0_9>]' + ^M^J +
    '<0_9>=zero "0"' + ^M^J +
    '<0_9>=oh "0"' + ^M^J +
    '<0_9>=<1_9>' + ^M^J +
    '' + ^M^J +
    '[<10_19>]' + ^M^J +
    '<10_19>=10' + ^M^J +
    '<10_19>=11' + ^M^J +
    '<10_19>=12' + ^M^J +
    '<10_19>=13' + ^M^J +
    '<10_19>=14' + ^M^J +
    '<10_19>=15' + ^M^J +
    '<10_19>=16' + ^M^J +
    '<10_19>=17' + ^M^J +
    '<10_19>=18' + ^M^J +
    '<10_19>=19' + ^M^J +
    '' + ^M^J +
    '[<20_99>]' + ^M^J +
    '<20_99>=<20_31>' + ^M^J +
    '<20_99>=<32_99>' + ^M^J +
    '' + ^M^J +
    '[<20_31>]' + ^M^J +
    '<20_31>=20' + ^M^J +
    '<20_31>=twenty "2" <1_9>' + ^M^J +
    '<20_31>=30' + ^M^J +
    '' + ^M^J +
    '[<32_99>]' + ^M^J +
    '<32_99>=thirty "3" <1_9>' + ^M^J +
    '<32_99>=40' + ^M^J +
    '<32_99>=forty "4" <1_9>' + ^M^J +
    '<32_99>=50' + ^M^J +
    '<32_99>=fifty "5" <1_9>' + ^M^J +
    '<32_99>=60' + ^M^J +
    '<32_99>=sixty "6" <1_9>' + ^M^J +
    '<32_99>=70' + ^M^J +
    '<32_99>=seventy "7" <1_9>' + ^M^J +
    '<32_99>=80' + ^M^J +
    '<32_99>=eighty "8" <1_9>' + ^M^J +
    '<32_99>=90' + ^M^J +
    '<32_99>=ninety "9" <1_9>' + ^M^J +
    '' + ^M^J +
    '[<DoubleDigit>]' + ^M^J +
    '<DoubleDigit>=<20_99>' + ^M^J +
    '<DoubleDigit>=<10_19>' + ^M^J +
    '' + ^M^J +
    '[<OrdinalDoubleDigit>]' + ^M^J +
    '<OrdinalDoubleDigit>=<Ordinal20_99>' + ^M^J +
    '<OrdinalDoubleDigit>=<Ordinal10_19>' + ^M^J +
    '' + ^M^J +
    '[<TripleDigit>]' + ^M^J +
    '<TripleDigit>=hundred "1" <Less100Pad>' + ^M^J +
    '<TripleDigit>=<1_9> <TripleDigit2>' + ^M^J +
    '<TripleDigit2>=hundred [opt] and <Less100Pad>' + ^M^J +
    '<TripleDigit2>=hundred "00"' + ^M^J +
    '' + ^M^J +
    '[<Less100Not>]' + ^M^J +
    '// Less that 100, not padded with zeros' + ^M^J +
    '<Less100Not>=<1_9>' + ^M^J +
    '<Less100Not>=<DoubleDigit>' + ^M^J +
    '<Less100Not>=zero "0"' + ^M^J +
    '' + ^M^J +
    '[<Less100Pad>]' + ^M^J +
    '// Less that 100, padded with zeros' + ^M^J +
    '<Less100Pad>="0" <1_9>' + ^M^J +
    '<Less100Pad>=<DoubleDigit>' + ^M^J +
    '<Less100Pad>=zero "00"' + ^M^J;

  ApdAskForSpellingGrammar : string =
    '[<MyGrammar>]' + ^M^J +
    '<MyGrammar>=(Spelling)' + ^M^J +
    '' + ^M^J +
    '[(Spelling)]' + ^M^J +
    '-200=(Letter)' + ^M^J +
    '-201=(DoneSpelling)' + ^M^J +
    '-202=(EraseSpelling)' + ^M^J +
    '-203=(SpellingCorrection)' + ^M^J +
    '-204=(WhatHaveISpelled)' + ^M^J +
    '' + ^M^J +
    '[(Letter)]' + ^M^J +
    '=A' + ^M^J +
    '=B' + ^M^J +
    '=C' + ^M^J +
    '=D' + ^M^J +
    '=E' + ^M^J +
    '=F' + ^M^J +
    '=G' + ^M^J +
    '=H' + ^M^J +
    '=I' + ^M^J +
    '=J' + ^M^J +
    '=K' + ^M^J +
    '=L' + ^M^J +
    '=M' + ^M^J +
    '=N' + ^M^J +
    '=O' + ^M^J +
    '=P' + ^M^J +
    '=Q' + ^M^J +
    '=R' + ^M^J +
    '=S' + ^M^J +
    '=T' + ^M^J +
    '=U' + ^M^J +
    '=V' + ^M^J +
    '=W' + ^M^J +
    '=X' + ^M^J +
    '=Y' + ^M^J +
    '=Z' + ^M^J +
    '' + ^M^J +
    '[(DoneSpelling)]' + ^M^J +
    '=thats it' + ^M^J +
    '=opt ime done' + ^M^J +
    '=thats all' + ^M^J +
    '=finished' + ^M^J +
    '=done' + ^M^J +
    '' + ^M^J +
    '[(EraseSpelling)]' + ^M^J +
    '=clear [opt] that' + ^M^J +
    '=start over' + ^M^J +
    '' + ^M^J +
    '[(SpellingCorrection)]' + ^M^J +
    '=delete' + ^M^J +
    '=oops' + ^M^J +
    '' + ^M^J +
    '[(WhatHaveISpelled)]' + ^M^J +
    '=what did I spell' + ^M^J +
    '=repeat it back to me' + ^M^J +
    '=what have I spelled' + ^M^J +
    '=what have I said' + ^M^J;

  ApdAskForTimeGrammar : string =
    '[<MyGrammar>]' + ^M^J +
    '<MyGrammar>=(GetTime)' + ^M^J +
    '' + ^M^J +
    '[(GetTime)]' + ^M^J +
    '-700=<Time>' + ^M^J +
    '' + ^M^J +
    '[<Time>]' + ^M^J +
    '<Time>=<Hours> <Time2>' + ^M^J +
    '<Time>=midnight "12:00 AM"' + ^M^J +
    '<Time>=noon "12:00 PM"' + ^M^J +
    '<Time>=quarter <Time4>' + ^M^J +
    '<Time>=half <Time5>' + ^M^J +
    '<Time>=<Natural> <Time3>' + ^M^J +
    '<Time>=<Natural> <Time4>' + ^M^J + 
    '<Time2>=o''clock ":00" [opt] <AMPM>' + ^M^J +
    '<Time2>=":" <Minutes> [opt] <AMPM>' + ^M^J +
    '<Time2>=":00" [opt] <AMPM>' + ^M^J +
    '<Time3>=hundred hours ":00"' + ^M^J +
    '<Time3>=":" <Minutes> hours' + ^M^J +
    '<Time4>=<PastAfter> <Hours> ":15" [opt] <AMPM>' + ^M^J +
    '<Time4>=<PastAfter> noon "12:15 PM"' + ^M^J +
    '<Time4>=<PastAfter> midnight "12:15 AM"' + ^M^J +
    '<Time4>=<BeforeTo> <HoursMinus1> ":45" [opt] <AMPM>' + ^M^J +
    '<Time4>=<BeforeTo> noon "11:45 AM"' + ^M^J +
    '<Time4>=<BeforeTo> midnight "11:45 PM"' + ^M^J +
    '<Time5>=<PastAfter> <Hours> ":30" [opt] <AMPM>' + ^M^J +
    '<Time5>=<PastAfter> noon "12:30 PM"' + ^M^J +
    '<Time5>=<PastAfter> midnight "12:30 AM"' + ^M^J +
    '<PastAfter>=past' + ^M^J +
    '<PastAfter>=after' + ^M^J +
    '<BeforeTo>=before' + ^M^J +
    '<BeforeTo>=to' + ^M^J +
    '<BeforeTo>=til' + ^M^J +
    '<Minutes>=<DoubleDigit>' + ^M^J +
    '<Minutes>=oh "0" <0_9>' + ^M^J +
    '<Hours>=<1_9>' + ^M^J +
    '<Hours>=10' + ^M^J +
    '<Hours>=11' + ^M^J +
    '<Hours>=12' + ^M^J +
    '<HoursMinus1>=1' + ^M^J +
    '<HoursMinus1>=2' + ^M^J +
    '<HoursMinus1>=3' + ^M^J +
    '<HoursMinus1>=4' + ^M^J +
    '<HoursMinus1>=5' + ^M^J +
    '<HoursMinus1>=6' + ^M^J +
    '<HoursMinus1>=7' + ^M^J +
    '<HoursMinus1>=8' + ^M^J +
    '<HoursMinus1>=9' + ^M^J +
    '<HoursMinus1>=10' + ^M^J +
    '<HoursMinus1>=11' + ^M^J +
    '<HoursMinus1>=12' + ^M^J +
    '<AMPM>=a. m. " AM"' + ^M^J +
    '<AMPM>=a.m. " AM"' + ^M^J +
    '<AMPM>=am " AM"' + ^M^J +
    '<AMPM>=p. m. " PM"' + ^M^J +
    '<AMPM>=p.m. " PM"' + ^M^J +
    '<AMPM>=pm " PM"' + ^M^J +
    '<AMPM>=in the evening " PM"' + ^M^J +
    '<AMPM>=at night " PM"' + ^M^J +
    '<AMPM>=in the morning " AM"' + ^M^J +
    '<AMPM>=afternoon " PM"' + ^M^J +
    '' + ^M^J +
    '[<Natural>]' + ^M^J +
    '<Natural>=<Less1000000000000000Not>' + ^M^J +
    '<Natural>=<Less1000000000000Not>' + ^M^J +
    '<Natural>=<Less1000000000Not>' + ^M^J +
    '<Natural>=<Less1000000Not>' + ^M^J +
    '<Natural>=<Less1000Not>' + ^M^J +
    '<Natural>=<Less100Not>' + ^M^J +
    '// Less than 1,000,000,000,000,000, not padded with zeros' + ^M^J +
    '<Less1000000000000000Not>=<Less100Not> <Less1000000000000000Not2>' + ^M^J +
    '<Less1000000000000000Not>=<Less1000Not> <Less1000000000000000Not2>' +
        ^M^J +
    '<Less1000000000000000Not2>=trillion "000000000000"' + ^M^J +
    '<Less1000000000000000Not2>=trillion [opt] and <Less1000000000000Pad>' +
        ^M^J +
    '// Less than 1,000,000,000,000, padded with zeros' + ^M^J +
    '<Less1000000000000Pad>="000" <Less1000000000Pad>' + ^M^J +
    '<Less1000000000000Pad>=billion [opt] and "001" <Less1000000000Pad>' +