<%Option Explicit%>

<%
     DIM strPhrase
     strPhrase = Request.QueryString("txtPhrase")
     Dim arrPhonetic 
     ArrPhonetic=Array("???","SPACE", "EXCLAMATION POINT", "QUOTE", "NUMBER SIGN", _
                       "DOLLAR SIGN", "PERCENT SIGN", "AMPERSAND", _
                       "SINGLE QUOTE", "Left PARENTHESIS", "RIGHT PARENTHESIS", _
                       "ASTERISK", "PLUS", "COMMA", "DASH", "DOT", _
                       "FORWARD SLASH", "ZERO", "ONE", "TWO", "THREE", "FOUR", _
                       "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", _
                       "COLON", "SEMI-COLON", "LESS THAN SIGN", "EQUAL SIGN", _
                       "GREATER THAN SIGN", "QUESTION MARK", "AT", _
                       "Alpha","Bravo","Charlie","Delta","Echo", _
                       "Foxtrot","Golf","Hotel","India","Juliet", _
                       "Kilo","Lima","Mike","November","Oscar", _
                       "Papa","Quebec","Romeo","Sierra","Tango", _
                       "Uniform","Victor","Whiskey","Xray", _
                       "Yankee","Zulu", _
                       "OPEN SQUARE BRACKET", "BACK SLASH", _
                       "CLOSE SQUARE BRACKET", "UP CARROT", "UNDERSCORE")

   %>
      <H2>Extended NATO phonetic alphabet conversion</H2><BR>
      <PRE>Input = [<%=strPhrase%>]</PRE><BR>
      Phonetic Output: 
   <%
	DIM intSize,i,j,flgBold
        DIm strChar
        DIM intASC
        intSize = LEN(strPhrase)

        FOR i = 1 to intSize
           strChar = ucase(MID(strPhrase,i,1))
           intASC = ASC(strChar)

	   IF (strChar >= "A") AND (strChar <= "Z") THEN
                flgBold = 1
           ELSE 
	        flgBold = 0
           END IF

           IF (intASC >= 32) AND (intASC <= 95) THEN
                j = intASC - 31
           ELSE
                j = 0
           END IF

           IF flgBold = 1 THEN Response.Write ("<B>")
	   Response.Write ("[" & arrPhonetic(j) & "] ")
	   Response.Write ("</B>")
        NEXT

	Response.Write ("<BR><BR><BR><B>Bold </B>conversions are part of phonetic alphabet.")

   %>