/*  04/14/2021_PRINT
  METAR Reporting with LEDs and Local WEB SERVER
  In Memory of F. Hugh Magee, brother of John Magee author of poem HIGH FLIGHT.
  https://en.wikipedia.org/wiki/John_Gillespie_Magee_Jr.

  https://youtu.be/Yg61_kyG2zE  HomebuiltHELP; The video that started me on this project.
  https://youtu.be/xPlN_Tk3VLQ  Getting Started with ESP32 video from DroneBot Workshop.
  https://www.aviationweather.gov/docs/metar/Stations.txt  List of ALL Stations Codes.

  REMARKS/COMMENTS:
  Created by John Pipe with help from David Bird.
  FULLY Configurable for YOUR application. (See the list of all Stations Codes, link above).
  No of Airports = 100 tested 6/24/20 (60+ possible with external power).
  When Error, successfully recovers. If not, press "RESET" button on ESP32.
  The code is stored on the ESP32 Development Board 2.4GHz WiFi+Bluetooth Dual Mode,
  once the code is downloaded, it will run by it's self and will automatically restart, even after a power off.
  ESP32 requires internet access (Network or Hot Spot) to download METARS.
  A computer, with FREE software https://www.arduino.cc/en/Main/Software , is needed to initially configure,
  download software and (optionally) display any program messages.
  (Watch Getting Started with ESP32 video from DroneBot Workshop, link above).

  Updates METARS approximately every six minutes, so nearly REAL TIME data, from AVIATIONWEATHER.GOV.
  A set of WS2812 LEDS show all station CATEGORIES (similar to the HomebuiltHELP video, link above).
  Then cycles through all the stations and flashes individually for:
  Wind Gusts(Cyan)[suspendable], Precipitation(Green/White), Ice(Blue), Other(Yellow) and Info(Orange).
  Then displays "RAINBOW" for all stations, for Visibility [Red Orange Pink/White], Wind Speed Gradient [Cyan],
  Temperature Gradient [Blue Green Yellow Orange Red] and Altimeter Pressure Gradient [Blue Purple].

  Recommended, VIEWABLE with a cell phone or computer connected to the SAME network:
  SUMMARY html gives a colorful overview and
  STATION html shows DECODED METAR information and much MORE.  (See Below for Improvements.)

  NOTE: To view these, you need the http address which is shown at start up if the serial monitor is swiched on.

  Makes a GREAT Christmas Tree Chain of Lights, TOO (and a Good Conversation Piece).

  MADE THINGS A LITTLE BETTER, BUG FIXES, IMPROVEMENTS, REPAIRS TO TIME-SPACE CONTINUUM, ETC, ETC.
  Includes: Decoded Metar, Current Zulu Time, Temperature in Deg F, Elevation Ft, Estimated Density Altitude Ft
  Modified Significant Weather to include Cloud Cover, RVR & Weather 12/31
  Changed to a TIMED 6 Minute METAR read and update 01/07
  Added for Ice and Hail (Blue) 01/30
  Added Capability to select ANY Airport Code 02/02
  Added Summary to HTML 03/04
  Cleaned up Update_Time & loop 03/08
  Added User 03/10
  Added Cloud_base Change Arrows 03/13
  Added Alt Pressure Change Arrows 03/13
  Added Yellow Misc Weather 03/24
  Added Observation Time 04/01
  Added Orange Info Changes 04/05
  Cleaned up Parse_Metar 04/14
  Added Wind Changes 04/30
  Added Pressure Display 05/06
  Modified Visibility Display 05/15
  Modified Variable Types 05/15
  Tweaked Rainbow Displays 05/21
  Dual Core: Main_Loop Task1 Core0; Go_Server Task2 Core1 05/24
  Modified Server Update Time 05/30
  More little tweaks 06/01
  Messing with memory storage 06/15
  Modified to HTTPS 06/23
  REMOVED from remark "Welcome User" 07/11
  Modified the URL address 10/03
  Changed Temperature Display Colors 10/29
  Address to the server with http://metar.local/ 10/29
  Added Comments 02/11/21
  Modified Dictinary 04/14/21
*/

//#include <Arduino.h>
#include "FastLED.h"
#include <WiFi.h>
#include <WiFiMulti.h>
WiFiMulti wifiMulti;
#include <HTTPClient.h>
#include <WiFiClientSecure.h>
#include <time.h>
#include "ESPmDNS.h"

WiFiServer server(80);   // Set web server port number to 80
//  Configure Network
//const char*      ssid = "Network";          // your network SSID (name)
//const char*  password = "Password";        // your network password
const char*        ssid = "Network";       // your network SSID (name)
const char*    password = "Password";       // your network password

// Setup from Time Server
const char* ntpServer = "pool.ntp.org";
const long  gmtOffset_sec = 0;                // UTC Time
const int   daylightOffset_sec = 0;           // UTC Time
struct tm timeinfo;                           // Time String "%A, %B %d %Y %H:%M:%S"


// To get Station NAME and Information
// Test link: https://aviationweather.gov/adds/dataserver_current/httpparam?dataSource=Stations&requestType=retrieve&format=xml&stationString=KFLL
String    urls = "/adds/dataserver_current/httpparam?dataSource=Stations&requestType=retrieve&format=xml&stationString=";
// To get Station DATA
// Test link: https://www.aviationweather.gov/adds/dataserver_current/httpparam?datasource=metars&requestType=retrieve&format=xml&mostRecentForEachStation=constraint&hoursBeforeNow=1.25&stationString=KFLL,KFXE
String    urlb = "/adds/dataserver_current/httpparam?datasource=metars&requestType=retrieve&format=xml&mostRecentForEachStation=constraint&hoursBeforeNow=1.25&stationString=";
String    host = "https://aviationweather.gov";


// Set Up LEDS
#define No_Stations          52      // Number of Stations also Number of LEDs
#define DATA_PIN              4      // Connect to pin D5/P5 with 330 to 500 Ohm Resistor
#define LED_TYPE         WS2812      // WD2811 or WS2812 or NEOPIXEL
#define COLOR_ORDER         GRB      // WD2811 are RGB or WS2812 are GRB
#define BRIGHTNESS           20      // Master LED Brightness (<12=Dim 20=ok >20=Too Bright/Much Power)
#define FRAMES_PER_SECOND   120
CRGB leds[No_Stations];              // Number of LEDs

// Define STATIONS & Global Variables
std::vector<String> PROGMEM Stations {  //   << Set Up   - Do NOT change this line
  "NULL, STATION NAME         ",        // 0 << Reserved - Do NOT change this line
  "KCHA, CHATTANOOGA, TN      ",        // 1 << START modifying from here
  "KRMG, ROME, GA             ",        // 2  Order of LEDs; NULL for no airport
  "KVPC, CARTERSVILLE, GA     ",        // 3
  "KATL, ATLANTA, GA          ",        // 4  First FIVE Characters are IMPORTANT !!
  "KCTJ, CARROLTON, GA        ",        // 5
  "KLGC, LA GRANGE, GA        ",        // 6  Over type your Station Code and Station name
  "KCSG, COLUMBUS, GA         ",        // 7  and include the "quotes" and the "commas"
  "KMCN, MACON, GA            ",        // 8  Padding after station name are not necessary.
  "KCKF, CORDELLE, GA         ",        // 9
  "KABY, ALBANY, GA           ",        // 10 Note: SKYVECTOR.COM is good for locating METARs
  "KTLH, TALLAHASSEE, FL      ",        // 11
  "KVLD, VALDOSTA, GA         ",        // 12
  "KAYS, WAYCROSS, GA         ",        // 13
  "KJAX, JACKSONVILLE, FL     ",        // 14
  "KBQK, BRUNSWICK, GA        ",        // 15
  "KSAV, SAVANNAH, GA         ",        // 16
  "KTBR, STATESBORO, GA       ",        // 17
  "KAGS, AUGUSTA, GA          ",        // 18
  "KAHN, ATHENS, GA           ",        // 19
  "KCEU, CLEMSON, GA          ",        // 20
  "KJES, JESUP (my home town), GA",     // 21
  "KBHC, BAXLEY, GA           ",        // 22
  "KAZE, HAZLEHURST, GA       ",        // 23
  "KCAE, COLUMBIA, SC         ",        // 24
  "KVDI, VIDALIA RGNL, GA     ",        // 25
  "KAFP, ANSON CO, NC         ",        // 26
  "KBDU, BOULDER, CO          ",        // 27
  "KCVG, CINCINNATI, OH       ",        // 28
  "KBWI, WASHINGTON, DC       ",        // 29
  "KORD, CHICAGO O'HARE, IL   ",        // 30
  "KMEM, MEMPHIS, TN          ",        // 31
  "KMSY, NEW ORLEANS, LA      ",        // 32
  "KSDF, LOUISVILLE, KY       ",        // 33
  "KBOS, BOSTON, MA           ",        // 34
  "KCLT, CHARLOTTE, NC        ",        // 35
  "KBNA, NASHVILLE, TN        ",        // 36
  "EGPN, DUNDEE, SCOTLAND     ",        // 37
  "EGPH, EDINBURGH, SCOTLAND  ",        // 38
  "EGPE, INVERNESS, SCOTLAND  ",        // 39
  "EGLL, LONDON HEATHROW, UK  ",        // 40
  "EGKK, LONDON GATWICK, UK   ",        // 41
  "EGCC, MANCHESTER, UK       ",        // 42
  "EGDM, BOSCOMBE DOWN, UK    ",        // 43
  "EBCV, CHIEVRES, BELGIUM    ",        // 44
  "EHAM, AMSTERDAM SCHIPHOL   ",        // 45
  "LFSB, BASEL, SWITZERLAND   ",        // 46
  "KORL, ORLANDO, FL          ",        // 47
  "KPBI, WEST PALM BEACH, FL  ",        // 48
  "KFXE, FT LAUDERDALE EXE, FL",        // 49
  "KFLL, FT LAUDERDALE INT, FL",        // 50
  "KHWO, NTH PERRY, FL        ",        // 51
  "KMIA, MIAMI, FL            ",        // 52 (last airport)
  "KEYW, KEY WEST, FL         ",        // 53 (extras)
  "KJAX, JACKSONVILLE, FL     ",        // 54
  "KTIX, TITUSVILLE, FL       ",        // 55
  "KDAB, DAYTONA BEACH, FL    ",        // 56
  "KTBR, STATESBORO, GA       ",        // 57
  "KAGS, AUGUSTA, GA          ",        // 58
  "KAHN, ATHENS, GA           ",        // 59
  "KCEU, CLEMSON, GA          ",        // 60
};                                      // << Do NOT change this line

PROGMEM String         rem[No_Stations + 1];  // Remarks
PROGMEM String     comment[No_Stations + 1];  // Comments
PROGMEM String      sig_wx[No_Stations + 1];  // Significant Weather
PROGMEM float         temp[No_Stations + 1];  // temperature deg C
PROGMEM float        dewpt[No_Stations + 1];  // dew point deg C
PROGMEM String        wind[No_Stations + 1];  // wind speed
PROGMEM String        wdir[No_Stations + 1];  // wind direction
PROGMEM int       old_wdir[No_Stations + 1];  // old wind direction
PROGMEM float        visab[No_Stations + 1];  // visibility
PROGMEM String         sky[No_Stations + 1];  // sky_cover  & cloud_base
PROGMEM int     cloud_base[No_Stations + 1];  // cloud_base
PROGMEM int old_cloud_base[No_Stations + 1];  // old cloud_base
PROGMEM float      seapres[No_Stations + 1];  // Sea Level Pressure
PROGMEM float        altim[No_Stations + 1];  // altimeter setting
PROGMEM float    old_altim[No_Stations + 1];  // old altimeter setting
PROGMEM float    elevation[No_Stations + 1];  // elevation setting
PROGMEM String    category[No_Stations + 1];  // NULL   VFR    MVFR   IFR    LIFR
//..............................................Black  Green   Blue   Red    Magenta

#define LED_BUILTIN 2  // ON Board LED GPIO 2
String metar;          // Raw METAR data
String Time;           // Time  "HH:MM"
int Hour;              // Latest Hour
int Minute;            // Latest Minute
String Last_Up_Time;   // Last Update Time  "HH:MM"
int Last_Up_Min;       // Last Update Minute
int Update_Data = 6;   // Updates Data every 6 Minutes (Don't overload AVIATIONWEATHER.GOV)
int station_num = 1;   // Station # for Server - flash button
int httpCode;          // Error Code
String local_hwaddr;   // WiFi local hardware Address
String local_swaddr;   // WiFi local software Address
TaskHandle_t Task1;    // Main_Loop, Core 0
TaskHandle_t Task2;    // Go_Server, Core 1
const char* ServerName = "metar";   // Address to the server with http://metar.local/
const char*   FileName = "METAR_ESP32_04_14_21";

void setup() {
  pinMode(LED_BUILTIN, OUTPUT);     // the onboard LED
  Serial.begin(115200);
  delay(4000);         // Time to press "Clear output" in Serial Monitor
  Serial.println("\nMETAR Reporting with LEDs and Local WEB SERVER");
  Serial.println("File Name \t: " + String(FileName) + "\n");
  Init_LEDS();         // Initialize LEDs
  if (String(ssid) == "iPhone")  Serial.println(F("** If iPhone DOESN'T CONNECT:  Select HOT SPOT on iPhone **"));
  digitalWrite(LED_BUILTIN, HIGH);  //ON
  Serial.print("WiFi Connecting to " + String(ssid) + " ");
  // Initializes the WiFi library's network settings.
  WiFi.begin(ssid, password);
  // CONNECT to WiFi network:
  while (WiFi.status() != WL_CONNECTED)   {
    delay(300);    // Wait a little bit
    Serial.print(".");
  }
  Serial.println(F(" Connected."));
  // Print the Signal Strength:
  long rssi = WiFi.RSSI() + 100;
  Serial.print("Signal Strength = " + String(rssi));
  if (rssi > 50)  Serial.println(F(" (>50 - Good)"));  else   Serial.println(F(" (Could be Better)"));
  digitalWrite(LED_BUILTIN, LOW);   //OFF
  Serial.println(F("*******************************************"));
  Serial.println("To View Decoded Station METARs from a Computer or \nCell Phone connected to the " + String(ssid) + " WiFi Network.");
  WiFi.mode(WIFI_STA);
  wifiMulti.addAP(ssid, password);
  if (MDNS.begin(ServerName)) {     // The name that will identify your device on the network
    local_hwaddr = "http://" + WiFi.localIP().toString() + "/summary";
    Serial.println("Enter This Url Address \t: " + local_hwaddr);
    local_swaddr = "http://" + String(ServerName) + ".local/";
    Serial.println("   Or This Url Address \t: " + local_swaddr);
  }
  else {
    Serial.println(F("ERROR setting up MDNS responder"));
  }
  digitalWrite(LED_BUILTIN, HIGH);  //ON
  configTime(gmtOffset_sec, daylightOffset_sec, ntpServer);   // Get Zulu Time from Server
  Update_Time();          // Set Up Time,Hour,Minute
  Serial.print(F("Date & Time \t\t: "));
  Serial.println(&timeinfo, "%A, %B %d %Y %H:%M - Zulu");
  digitalWrite(LED_BUILTIN, LOW);   //OFF
  //Task1 = Main_Loop() function, with priority 1 and executed on core 0
  xTaskCreatePinnedToCore( Main_Loop, "Task1", 10000, NULL, 1, &Task1, 0);
  delay(200);          // Wait a smidgen
  //Task2 = Go_Server() function, with priority 1 and executed on core 1
  xTaskCreatePinnedToCore( Go_Server, "Task2", 10000, NULL, 1, &Task2, 1);
  delay(200);          // Wait a smidgen
  Serial.println(F("Dual Core Initialized"));
  server.begin();      // Start the web server
  Serial.println(F("Web Server Started"));
  Serial.println(F("*******************************************"));
}
void loop() {
}

//  *********** Main_Loop  TASK1
void Main_Loop( void * pvParameters ) {
  for (;;) {
    Last_Up_Time = Time;
    Last_Up_Min = Minute;
    int NextCycle = Last_Up_Min + Update_Data; // Update Cycle time is 6 Minutes(Update_Data)
    GetAllMetars();                            // Get All Metars and Display Categories
    Update_Time();                             // Update Current Time
    while (NextCycle > Minute) {
      if ((NextCycle - Minute) > Update_Data)  NextCycle = -1;  else
        Display_Metar_LEDS ();                 // Display Station Metar/Show Loops
    }
  }
}

// *********** Set/Get Current Time, Hour, Minute
void Update_Time() {
  if (!getLocalTime(&timeinfo))  {
    Serial.print(F("\t\t\t**  FAILED to Get Time  **\n"));
    Network_Status ();         // WiFi Network Error
  }
  //  configTime(0, 0, "pool.ntp.org"); // get UTC time via NTP
  //  time_t now = time(nullptr);

  char TimeChar[9];
  strftime(TimeChar, 9, "%H:%M:%S", &timeinfo);
  Time  = String(TimeChar);
  Hour   = Time.substring(0, 2).toInt();
  Minute = Time.substring(3, 5).toInt();
  Time   = Time.substring(0, 5);
}

// *********** Initialize LEDs
void Init_LEDS() {
  Serial.println("Initializing LEDs for No_Stations = " + String(No_Stations));
  // Set up the strip configuration
  FastLED.addLeds<LED_TYPE, DATA_PIN, COLOR_ORDER>(leds, No_Stations).setCorrection(TypicalLEDStrip);
  // Set master brightness control (<12=Dim 20=ok >20=Too Bright)
  FastLED.setBrightness(BRIGHTNESS);
  // Set all leds to Black
  fill_solid(leds, No_Stations, CRGB::Black);
  FastLED.show();
  delay(100);    // Wait a smidgen
}

// *********** GET All Metars in Chunks
void GetAllMetars() {
  int Step = 20;             // 20 Stations at a time
  for (int j = 0; j < No_Stations; j = j + 1 + Step) {
    int Start  = j;
    int Finish = Start + Step;
    if (Finish > No_Stations)  Finish = No_Stations;
    String url = "";
    for (int i = Start; i <= Finish; i++) {
      String station = Stations[i].substring(0, 5);
      url = url + String (station);
    }
    int len = url.length();
    url = url.substring(0, len - 1);  // Remove last "comma"
    GetData(url, Start);             // GET Some Metar Data 20 Stations at a time
    for (int i = Start; i <= Finish; i++) {
      ParseMetar(i);          // Parse Metar Data one Station at a time
    }
  }
}

// *********** GET Some Metar Data/Name
void GetData(String url, int i) {
  metar = "";                          // Reset Metar Data
  if (url == "NAME") url = host + urls + Stations[0];  else   url = host + urlb + url;
  //Serial.println("url = " + url);
  //  Check for WiFi connection
  if ((wifiMulti.run() == WL_CONNECTED)) {
    digitalWrite(LED_BUILTIN, HIGH);  // ON
    HTTPClient https;
    https.begin(url);
    //  Start connection and send HTTP header
    httpCode = https.GET();
    //  httpCode will be negative on error
    if (httpCode > 0) {
      // HTTP header has been send and Server response header has been handled
      // and File found at server
      if (httpCode == HTTP_CODE_OK) {
        metar = https.getString();
      }
      https.end();
      digitalWrite(LED_BUILTIN, LOW);  //OFF
    } else {
      https.end();        // Communication HTTP Error
      digitalWrite(LED_BUILTIN, LOW);  //OFF
      Serial.println(Time + "\tNo:" + String(i) +  + "\tCommunication Error = " + String(httpCode) + " : " + https.errorToString(httpCode).c_str());
    }
  } else {
    Network_Status ();  // WiFi Network Error
  }
}

// ***********   WiFi Network Error
void Network_Status () {
  Serial.print(Time + "\t\t\tWiFi Network : ");
  if (WiFi.status() == 0 ) Serial.println(F("Idle"));
  if (WiFi.status() == 1 ) Serial.println(F("Not Available, SSID can not be reached"));
  if (WiFi.status() == 2 ) Serial.println(F("Scan Completed"));
  if (WiFi.status() == 3 ) Serial.println(F("Connected"));
  if (WiFi.status() == 4 ) Serial.println(F("Failed, password incorrect"));
  if (WiFi.status() == 5 ) Serial.println(F("Connection Lost"));
  if (WiFi.status() == 6 ) Serial.println(F("Disconnected"));
}

// ***********   Parse Metar Data
void ParseMetar(int i) {
  String parsedmetar = "";
  String station = Stations[i].substring(0, 4);
  if (station == "NULL")   return;
  int data_Start = metar.indexOf(station);                     // Search for station id
  int data_end  = metar.indexOf("</METAR>", data_Start + 1);   // Search for "data end"
  if (data_Start > 0 && data_end > 0)    {
    parsedmetar = metar.substring(data_Start, data_end);       // Parse Metar Data
    // Remove found data from metar
    metar = metar.substring(0, data_Start) + metar.substring(data_end, metar.length());
    //Serial.println("\nProcessing Station " + String(i) + " " + station + " in ParseMetar");
    Decodedata(i, station, parsedmetar);                       // DECODE the Station DATA
  } else {
    //Serial.println("Station " + String(i) + " " + station + " Not Found");
    category[i] = "NF";             // Not Found
    sky[i] = "NF";                  // Not Found
    rem[i] = "Station Not Reporting";   // Not Found
    if (httpCode < 0)  rem[i] = "Connection Error";
    sig_wx[i] = "NF";               // Not Found
    visab[i] = 0;                   // Not Found
    wdir[i] = "NA";                 // Not Found
    wind[i] = "NA";                 // Not Found
    temp[i] = 0;                    // Not Found
    dewpt[i] = 0;                   // Not Found
    altim[i] = 0;                   // Not Found
    old_altim[i] = 0;               // Not Found
    comment[i] = "";                // Not Found
    if (WiFi.status() == 3 && httpCode > 0)       // Not Network or HTTP  Error
      Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tStation Not Reporting, Skipping this one in ParseMetar");
    Display_LED (i, 20);            // Display Station LED
  }
}

// *********** DECODE the Station DATA
void Decodedata(int i, String station, String parsedmetar) {
  int pflag = 0;         // Print Flag 0=NO Print  1=Print ALL  2= ALL + RAW DATA
  String old_obs_time;
  old_obs_time = rem[i].substring(0, 4);                         // Last Observation Time
  if (old_obs_time == "new ")  old_obs_time = rem[i].substring(4, 8);

  // Searching Remarks
  int search_Strt = parsedmetar.indexOf(station, 0) + 7;            // Start of Remark
  int search_Raw_End = parsedmetar.indexOf("</raw_text", 0);        // End of Remark
  if (search_Strt < 7)  {
    Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tFailed in Decodedata search_End= " + String(search_Raw_End));
    pflag = 2;
  }

  int search_End = parsedmetar.indexOf(" RMK");                        // End to RMK in US
  if (search_End < 0)  search_End = parsedmetar.indexOf(" Q") + 6;     // End to Q  Non US
  if (search_End < 6)  search_End = search_Raw_End;                    // No RMK in US

  // Append Minutes ago
  int obsh = parsedmetar.substring(7, 9).toInt();             // METAR Obs Time - Hour
  int obsm = parsedmetar.substring(9, 11).toInt();            // METAR Obs Time - Minute
  int ago = ((Hour - obsh) * 60) + Minute - obsm;             // Minutes ago
  if (ago < 0) ago = ((24 - obsh) * 60) + Minute - obsm;
  rem[i] = parsedmetar.substring(search_Strt, search_End) + " (" + String(ago) + "m&nbspago)";  // Append ago


  if (old_obs_time != rem[i].substring(0, 4))   {        // New Time : UPDATE Station
    // NEW DATA: UPDATING STATION

    rem[i] = "new " + rem[i];

    // Decoding Comments
    int search_From = 0;
    int rem_data = 0;                        // Remaining Data to be processed
    int rem_data_FLAG = 0;                   // Flag to skip the rest
    String mesg;
    String text;

    search_End = parsedmetar.indexOf("RMK") + 3;                          // End to RMK inUS
    if (search_End < 3)  search_End = parsedmetar.indexOf(" Q") + 6;      // End to Q  Non US
    if (search_End < 6)  search_End = search_Raw_End;                     // No RMK in US

    comment[i] = parsedmetar.substring(search_End, search_Raw_End) + " ";  //Adds a SPACE

    //  **** REMOVE   AO   Automated Station
    int search2 = comment[i].indexOf(" AO", search_From);
    int search3 = comment[i].indexOf(" ", search2 + 1);

    rem_data = comment[i].length();      // End of comment[i]

    if (search2 >= 0 && search3 >= 0)   {
      rem_data_FLAG = search3;                   // Flag to skip the rest
      text = comment[i].substring(search2, search3);
      rem_data = rem_data - search3 + search2;
      comment[i].replace(comment[i].substring(search2, search3), "");
    }


    //  ****  REMOVE   SLPnnn   Sea Level Pressure  12-hour mean
    search2 = comment[i].indexOf(" SLP", search_From);
    search3 = comment[i].indexOf(" ", search2 + 1);
    if (search3 - search2 == 6)  search2 = -1;                    // If SLPNO

    if (search2 >= 0 && search3 >= 0)  {
      rem_data_FLAG = search3;                   // Flag to skip the rest
      text = comment[i].substring(search2, search3);
      rem_data = rem_data - search3 + search2;
      comment[i].replace(comment[i].substring(search2, search3), "");
      search_From = search2;
    }


    //  ****  REMOVE   TsTTTTTTT   Current Temperature
    // s= 0 Positive s= 1 Negative  T= Temp in Deg C
    search2 = comment[i].indexOf(" T0", 0);   //  Positive
    if (search2 < 0)    search2 = comment[i].indexOf(" T1", 0);  //  Negative
    search3 = comment[i].indexOf(" ", search2 + 1);

    if (search2 >= 0 && search3 >= 0)  {
      text = comment[i].substring(search2, search3);
      if (text.charAt(2) == '0')  text.setCharAt(2, '+');  else  text.setCharAt(2, '-');
      if (text.charAt(6) == '0')  text.setCharAt(6, '+');  else  text.setCharAt(6, '-');
      text = text.substring(2, 5) + "." + text.substring(5, 6) + " DewPt " + text.substring(6, 9) + "." + text.substring(9, 10);
      rem_data = rem_data - search3 + search2;
      comment[i].replace(comment[i].substring(search2, search3), "");
    }


    //  ****  REPLACE   Ppppp   Hourly Precipition Amount
    // p=precip amount in Hundredths of Inch
    search2 = comment[i].indexOf(" P0", 0);
    search3 = comment[i].indexOf(" ", search2 + 1);

    if (search2 >= 0 && search3 >= 0)   {
      text = comment[i].substring(search2, search3);
      mesg = " Hourly Precip=" + text.substring(3, 4) + "." + text.substring(4, 6) + '"';
      mesg.replace("0.00", "Trace");
      rem_data = rem_data - search3 + search2;
      comment[i].replace(comment[i].substring(search2, search3), mesg);
      search_From = search2;
    }

    //  ****  SKIP THE REST


    if (rem_data_FLAG != 0 && rem_data > 3)  {      // CONTINUE or skip to THE REST


      //  ****  THE REST
      //  ****  REMOVE   6RRRR 3Hr   Precipitation Amount in Inches
      // R=precip amount in Hundredths of Inch ??
      search2 = comment[i].indexOf(" 6", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search3 - search2 < 5)  search2 = -1;

      if (search2 >= 0 && search3 >= 0)  {
        text = comment[i].substring(search2 + 1, search3);
        mesg = " 3Hr Precip=" + text.substring(2, 3) + "." + text.substring(3, 6) + '"';
        comment[i].replace(comment[i].substring(search2, search3), "");
      }

      //  ****  REMOVE   7RRRR  24Hr Precipitation Amount in Inches
      // R=precip amount in Hundredths of Inch ??
      search2 = comment[i].indexOf(" 7", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search3 - search2 < 5)  search2 = -1;

      if (search2 >= 0 && search3 >= 0)     {
        text = comment[i].substring(search2 + 1, search3);
        mesg = " 24Hr Precip=" + text.substring(2, 3) + "." + text.substring(3, 5) + '"';
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REMOVE   3PPPP  Air Pressure at station level in hPa
      search2 = comment[i].indexOf(" 3", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search3 - search2 < 5)  search2 = -1;

      if (search2 >= 0 && search3 >= 0)  {
        text = comment[i].substring(search2 + 2, search3);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REPLACE   ITnnn  Hourly Ice Accretion in Hundredths of Inch
      //  T = 1 or 3 or 6 hourly   nnn= Icing amount
      search2 = comment[i].indexOf(" I", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)  {
        text = comment[i].substring(search2, search3);
        mesg = " ICG=" + text.substring(3, 4) + "." + text.substring(4, 5) + '"';
        mesg.replace("0.00", "Trace");
        comment[i].replace(comment[i].substring(search2, search3), mesg);
      }


      // ****  REMOVE  933RRR   Water Equivalent of Snow on Ground in tenths in the 0800 UTC report
      search2 = comment[i].indexOf(" 933", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)    {
        text = comment[i].substring(search2 + 1, search3);
        mesg = text.substring(3, 6);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }



      //  ****  REMOVE  1sTTT  6 Hr MAX Temperature
      //3-hourly report: A METAR taken at 0300, 0900, 1500, or 2100 UTC.
      //6-hourly report: A METAR taken at 0000, 0600, 1200, or 1800 UTC
      // at 0000, 0600, 1200, and 1800 UTC observations
      // s= 0 Positive s= 1 Negative  T= Temp in Deg C
      search2 = comment[i].indexOf(" 10", search_From);   //  Positive
      if (search2 < 0)    search2 = comment[i].indexOf(" 11", search_From);  //  Negative
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)  {
        text = comment[i].substring(search2, search3);
        if (text.charAt(2) == '0')  text.setCharAt(2, '+');  else  text.setCharAt(2, '-');
        text = text.substring(2, 5) + "." + text.substring(5, 6);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REMOVE  2sTTT  6 Hr MIN Temperature
      // s= 0 Positive s= 1 Negative  T=Temp in Deg C
      search2 = comment[i].indexOf(" 20", search_From);   //  Positive
      if (search2 < 0)    search2 = comment[i].indexOf(" 21", search_From);  //  Negative
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)    {
        text = comment[i].substring(search2, search3);
        if (text.charAt(2) == '0')  text.setCharAt(2, '+');  else  text.setCharAt(2, '-');
        text = text.substring(2, 5) + "." + text.substring(5, 6);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REMOVE    4sTTTsTTT  24 Hr MAX/MIN Temperature
      // s= 0 Positive s= 1 Negative  T=Temp in Deg C
      search2 = comment[i].indexOf(" 40", search_From);   //  Positive
      if (search2 < 0)    search2 = comment[i].indexOf(" 41", search_From);  //  Negative
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search2 < 0)    search2 = comment[i].indexOf(" 41", search_From);

      if (search2 >= 0 && search3 >= 0)    {
        text = comment[i].substring(search2 + 1, search3);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REPLACE   5aPPP   Pressure Tendency   3- and 6-hourly report
      // a=4 Steady a=0123 Incr a=5678 Decr   PPP=tenths hPa/mb
      search2 = comment[i].indexOf(" 5", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search3 - search2 < 5)  search2 = -1;
      int press_change = 0;

      if (search2 >= 0 && search3 >= 0)   {
        text = comment[i].substring(search2 + 1, search3);
        press_change = comment[i].substring(search2 + 2, search2 + 3).toInt();
        if (press_change < 4) mesg = " 3Hr Pressure tend-" + comment[i].substring(search2 + 4, search2 + 5) + "." + comment[i].substring(search2 + 5, search2 + 6) + " mb";
        if (press_change > 4) mesg = " 3Hr Pressure tend+" + comment[i].substring(search2 + 4, search2 + 5) + "." + comment[i].substring(search2 + 5, search2 + 6) + " mb";
        if (press_change == 0) mesg = " 3Hr Pressure NA";
        if (press_change == 4) mesg = " 3Hr Pressure Steady";
        comment[i].replace(comment[i].substring(search2, search3), mesg);
      }


      //  ****  REPLACE   4/SSS  Snow Depth   0000, 0600, 1200, and 1800 UTC
      // SSS Inches on the Ground
      search2 = comment[i].indexOf("4/", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)   {
        text = comment[i].substring(search2 + 3, search3);
        mesg = "Snow Depth on the Ground=" + text + '"';
        comment[i].replace(comment[i].substring(search2, search3), mesg);
      }


      //  ****  REMOVE   8/LMH  Cloud Types
      // /=above overcast 3= dense cirrus 6=stratus 9-CB
      search2 = comment[i].indexOf("8/", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)   {
        text = comment[i].substring(search2 + 1, search3);
        mesg = text.substring(2, 5);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REMOVE   8/CLCMCH  Cloud Cover
      // 8/CLCMCH, shall be reported and coded in 3- and 6-hourly reports
      search2 = comment[i].indexOf(" 8/", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);
      if (search3 - search2 > 3 ) search3 = -1;          // Don't change for now

      if (search2 >= 0 && search3 >= 0)      {
        text = comment[i].substring(search2 + 1, search3);
        mesg = text.substring(2, 6);
        comment[i].replace(comment[i].substring(search2, search3), "");
      }


      //  ****  REPLACE  98MMM   Duration of Sunshine in Minutes
      search2 = comment[i].indexOf(" 98", search_From);
      search3 = comment[i].indexOf(" ", search2 + 1);

      if (search2 >= 0 && search3 >= 0)    {
        text = comment[i].substring(search2 + 1, search3);
        float sun = (float)text.substring(2, 5).toInt() / 60.0;
        mesg = " Sunshine=" + String(sun) + " Hrs";
        comment[i].replace(comment[i].substring(search2, search3), mesg);
      }
    }


    // Decode Weather and make readable in Dictionary Function
    String weather = Decode_Weather(i, comment[i]);
    comment[i] = weather;


    // ****  DECODING REMARKS
    if (pflag != 0)  {
      if (pflag == 2) Serial.println("\nParsed Data = " +  parsedmetar + "\n"); // Search Failed
      Serial.println("\nStation No: " + String(i)) + "\t" + Stations[i];
      Serial.println("\tRemarks \t = " +  rem[i]);
    }

    // Searching flight_category
    int search0 = parsedmetar.indexOf("<flight_category") + 17;
    int search1 = parsedmetar.indexOf("</flight_category");
    if (search0 < 17) category[i] = "NA";  else  category[i] = parsedmetar.substring(search0, search1);
    if (pflag != 0)  Serial.println("\tFlight Category  = " + category[i]);
    if (category[i] == "NA" && pflag == 0)   Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tCategory Not Found, in Decodedata");
    // Significant Weather
    sig_wx[i] = "";
    // Wind Gusts
    search0 = rem[i].indexOf("G");
    search1 = rem[i].indexOf("KT");
    if (search0 > 0 && search1 - search0 > 2)
      sig_wx[i] =  sig_wx[i] + "Gusts to " + rem[i].substring(search1 - 2, search1) + " KTS ;  ";
    // Variable Wind Dir
    search0 = rem[i].indexOf("0V");
    search1 = rem[i].indexOf("FT");
    if (search0 > 0  && search1 < 0)
      sig_wx[i] = sig_wx[i] + " Wind Dir Varies: " + rem[i].substring(search0 - 2, search0 + 5) + ";  ";
    // Runway Visibility
    search0 = rem[i].indexOf("SM R");
    search1 = rem[i].indexOf("FT");
    if (search0 > 0 && search1 > 0)
      sig_wx[i] = sig_wx[i] + " Runway Vis: " + rem[i].substring(search0 + 3, search1 + 2) + ";  ";

    // Significant Weather in Remarks and making readable Weather
    if (rem[i].indexOf("DR") > 0)    sig_wx[i] = sig_wx[i] + " Drifting";
    if (rem[i].indexOf("FZ") > 0)    sig_wx[i] = sig_wx[i] + " Freezing";
    if (rem[i].indexOf("MI") > 0)    sig_wx[i] = sig_wx[i] + " Shallow";
    if (rem[i].indexOf("PR") > 0)    sig_wx[i] = sig_wx[i] + " Partial";
    if (rem[i].indexOf("BC") > 0)    sig_wx[i] = sig_wx[i] + " Patches of";
    if (rem[i].indexOf("FG") > 0)    sig_wx[i] = sig_wx[i] + " Fog ";
    if (rem[i].indexOf("BR") > 0)    sig_wx[i] = sig_wx[i] + " Mist; ";
    if (rem[i].indexOf(" +") > 0)    sig_wx[i] = sig_wx[i] + " Heavy";
    if (rem[i].indexOf(" -") > 0)    sig_wx[i] = sig_wx[i] + " Light";
    if (rem[i].indexOf("RA") > 0)    sig_wx[i] = sig_wx[i] + " Rain ";
    if (rem[i].indexOf("BL") > 0)    sig_wx[i] = sig_wx[i] + " Blowing";
    if (rem[i].indexOf("SN") > 0)    sig_wx[i] = sig_wx[i] + " Snow; ";
    if (rem[i].indexOf("SG") > 0)    sig_wx[i] = sig_wx[i] + " Snow Grains ";
    if (rem[i].indexOf("DZ") > 0)    sig_wx[i] = sig_wx[i] + " Drizzle ";
    if (rem[i].indexOf("SH") > 0)    sig_wx[i] = sig_wx[i] + " Showers ";
    if (rem[i].indexOf("GS") > 0)    sig_wx[i] = sig_wx[i] + " Small Hail ";
    if (rem[i].indexOf("GR") > 0)    sig_wx[i] = sig_wx[i] + " Large Hail ";
    if (rem[i].indexOf("IC") > 0)    sig_wx[i] = sig_wx[i] + " Ice Crystals ";
    if (rem[i].indexOf("PL") > 0)    sig_wx[i] = sig_wx[i] + " Ice Pellets ";
    if (rem[i].indexOf("DU") > 0)    sig_wx[i] = sig_wx[i] + " Dust; ";
    if (rem[i].indexOf("FU") > 0)    sig_wx[i] = sig_wx[i] + " Smoke; ";
    if (rem[i].indexOf("HZ") > 0)    sig_wx[i] = sig_wx[i] + " Haze; ";
    if (rem[i].indexOf("FY") > 0)    sig_wx[i] = sig_wx[i] + " Spray; ";
    if (rem[i].indexOf("SA") > 0)    sig_wx[i] = sig_wx[i] + " Sand ";
    if (rem[i].indexOf(" PO") > 0)   sig_wx[i] = sig_wx[i] + " Dust/Sand ";
    if (rem[i].indexOf("SQ") > 0)    sig_wx[i] = sig_wx[i] + " Squalls; ";
    if (rem[i].indexOf("TS") > 0)    sig_wx[i] = sig_wx[i] + " Thunderstorm ";
    if (rem[i].indexOf("VA") > 0)    sig_wx[i] = sig_wx[i] + " Volcanic Ash ";
    if (rem[i].indexOf(" VC") > 0)   sig_wx[i] = sig_wx[i] + "in Vicinity; ";
    if (rem[i].indexOf("-VC") > 0)   sig_wx[i] = sig_wx[i] + "in Vicinity; ";
    if (rem[i].indexOf("+VC") > 0)   sig_wx[i] = sig_wx[i] + "in Vicinity; ";
    if (rem[i].indexOf("CB ") > 0)   sig_wx[i] = sig_wx[i] + " Cumulonimbus Clouds ";
    if (rem[i].indexOf("TCU") > 0)   sig_wx[i] = sig_wx[i] + " Towering Cumulus Clouds ";
    if (rem[i].indexOf("CBMAM") > 0) sig_wx[i] = sig_wx[i] + " CB Mammatus Clouds ";
    if (rem[i].indexOf("UP ") > 0)   sig_wx[i] = sig_wx[i] + " Unknown Precipitation ";

    if (sig_wx[i] == "")  sig_wx[i] = "None";
    if (pflag != 0)  Serial.println("\tSignificant Weather = " + sig_wx[i]);

    // Searching temp_c
    search0 = parsedmetar.indexOf("<temp_c") + 8;
    search1 = parsedmetar.indexOf("</temp");
    if (search0 < 8)   Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tTemperature Not Found, in Decodedata");
    if (search0 < 8) temp[i] = 0;  else  temp[i] = parsedmetar.substring(search0, search1).toFloat() + 0.001;
    float TempF = temp[i] * 1.8 + 32;            // deg F
    if (pflag != 0)  {
      Serial.print("\tTemperature degC = " +  String(temp[i]) + "  :  degF = ");
      Serial.println(TempF, 2);
    }
    // Searching dewpoint_c
    search0 = parsedmetar.indexOf("<dewpoint_c") + 12;
    search1 = parsedmetar.indexOf("</dewpoint");
    if (search0 < 12) dewpt[i] = 0;  else  dewpt[i] = parsedmetar.substring(search0, search1).toFloat() + 0.001;
    if (pflag != 0)  Serial.println("\tDewpoint    degC = " + String(dewpt[i]));

    // Searching wind_dir_degrees
    old_wdir[i] = wdir[i].toInt();
    search0 = parsedmetar.indexOf("wind_dir_degrees") + 17;
    search1 = parsedmetar.indexOf("</wind_dir_degree");
    if (search0 < 17) wdir[i] = "NA";  else  wdir[i] = parsedmetar.substring(search0, search1);
    if (rem[i].indexOf("VRB") > 0) wdir[i] = "VRB";
    if (wdir[i] == "NA")   Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tWind Dir Not Found, in Decodedata");

    // Searching wind_speed_kt
    search0 = parsedmetar.indexOf("wind_speed_kt") + 14;
    search1 = parsedmetar.indexOf("</wind_speed");
    if (search0 < 14) wind[i] = "NA";  else  wind[i] = parsedmetar.substring(search0, search1) + " KT";
    if (wind[i] == "0 KT")  wind[i] = "CALM";
    if (pflag != 0)  {
      Serial.print("\tWind     \t = ");
      if (wind[i] == "CALM")  Serial.println(wind[i]); else Serial.println(wdir[i] + " Deg at " + wind[i]);
    }
    // Searching visibility_statute_mi
    search0 = parsedmetar.indexOf("visibility_statute_mi") + 22;
    search1 = parsedmetar.indexOf("</visibility");
    if (search0 < 22)  visab[i] = 0;  else  visab[i] = parsedmetar.substring(search0, search1).toFloat();
    if (pflag != 0) Serial.println("\tVisibility\t = " + String(visab[i]) + " Statute miles");
    // Searching sky condition
    old_cloud_base[i] = cloud_base[i];
    search0 = parsedmetar.indexOf("<sky_condition");      // Start Search from Here
    search1 = parsedmetar.indexOf("sky_cover", search0) + 11;
    if (search1 < 11)  sky[i] = "NA";  else  sky[i] = parsedmetar.substring(search1, search1 + 3);   {
      search1 = parsedmetar.indexOf("_ft_agl=", search0) + 9;
      search2 = parsedmetar.indexOf(" />", search0) - 1;
      if (sky[i] == "OVX")  sky[i] = "OBSECURED";
      if (sky[i] == "CAV")  sky[i] = "CLEAR";
      if (sky[i] == "CLR")  sky[i] = "CLEAR";
      if (sky[i] == "SKC")  sky[i] = "CLEAR";
      if (sky[i] == "BKN")  sky[i] = sky[i] + " at " + parsedmetar.substring(search1, search2) + " Ft";
      if (sky[i] == "FEW")  sky[i] = sky[i] + " at " + parsedmetar.substring(search1, search2) + " Ft";
      if (sky[i] == "SCT")  sky[i] = sky[i] + " at " + parsedmetar.substring(search1, search2) + " Ft";
      if (sky[i] == "OVC")  sky[i] = sky[i] + " at " + parsedmetar.substring(search1, search2) + " Ft";
      cloud_base[i] = parsedmetar.substring(search1, search2).toInt();
      if (sky[i] == "OBSECURED")   cloud_base[i] = 0;
      if (sky[i] == "CLEAR")   cloud_base[i] = 99999;
    }
    if (sky[i] == "NA")   cloud_base[i] = 0;
    if (pflag != 0)   Serial.println("\tSky Cover \t = " + sky[i] + "\n\tCloud Base \t = " + String(cloud_base[i]));
    // Vertical Visibility
    search0 = parsedmetar.indexOf("<vert_vis_ft>") + 13;
    if (search0 > 13)  {
      sig_wx[i] = sig_wx[i] + " Vertical Visibility = " + parsedmetar.substring(search0, search0 + 3) + " Ft; ";
      cloud_base[i] = parsedmetar.substring(search0, search0 + 3).toInt();
    }
    // Searching <altim_in_hg
    old_altim[i] = altim[i];
    search0 = parsedmetar.indexOf("<altim_in_hg>") + 13;
    search1 = parsedmetar.indexOf("</altim_in_hg>");
    if (search0 < 13)  Serial.println(Time + "\tNo:" + String(i) + "\t" + station + "\tAltimeter Not Found, in Decodedata");
    if (search0 < 13) altim[i] = 0;  else  altim[i] = parsedmetar.substring(search0, search1).toFloat();
    //    float Pressure = altim[i]; // in_hg
    if (pflag != 0)   Serial.println("\tAltimeter \t = " + String(altim[i], 2) + " in hg");
    // Searching <sea_level_pressure_mb
    search0 = parsedmetar.indexOf("<sea_level_pressure_mb>") + 23;
    if (search0 < 23) seapres[i] = 0;  else  seapres[i] = parsedmetar.substring(search0, search0 + 6).toFloat();
    if (pflag != 0)    Serial.println("\tSea Level Press\t = " + String(seapres[i]) + " in mb");
    // Searching elevation_m
    search0 = parsedmetar.indexOf("<elevation") + 13;
    search1 = parsedmetar.indexOf("</elevation");
    if (search0 < 13) elevation[i] = 0; else elevation[i] = parsedmetar.substring(search0, search1).toFloat();
    float Elevation = elevation[i] * 3.28; // feet
    if (pflag != 0)  Serial.println("\tElevation      m = " + String(elevation[i]) + "  :  Ft = " + String(Elevation, 1));
    // Calculating Pressure Altitude
    float PressAlt = Elevation + (1000 * (29.92 - altim[i])); // feet
    // Calculating Density Altitude
    float DensityAlt = PressAlt + (120 * (temp[i] - (15 - abs(2 * Elevation / 1000)))); // feet
    if (pflag != 0)   Serial.println("\tEstimated Density Altitude  Ft = " + String(DensityAlt, 0));
  }
  Display_LED (i, 20);            // Display One Station LED
}

//  *********** Decode Weather and make readable in Dictionary Function
String Decode_Weather(int i, String weather) {
  // Dictionary of CODES

  //weather.replace("A01 ", "");                          // Fixing an error
  //weather.replace("A02 ", "");                          // Fixing an error
  weather.replace("RTS ", "Routes");
  weather.replace("UTC ", "Zulu");

  weather.replace("BECMG", "CMG");                       // Rename Later
  weather.replace("TEMPO", "Temporary");
  weather.replace("CAVOK", "cavok");                     // Rename Later

  weather.replace("NOSIG", "No Signifiant Weather");
  weather.replace("NSW", "No Signifiant Weather");
  weather.replace("NSC", "No Signifiant Clouds");
  weather.replace("DEWPT", "Dew Point");
  weather.replace("CONS", "");                           //  Don't Know What This Is (Current Conditions?)

  weather.replace("OBSC", "Obscured");
  weather.replace("FROPA", "Frontal Passage");
  weather.replace("PRESFR", "Pressure Falling Rapidly");
  weather.replace("PRESRR", "Pressure Rising Rapidly");
  weather.replace("FROIN", "Frost On The Indicator");
  weather.replace("ALSTG", "Alitmeter Setting");
  weather.replace("ALTSTG", "Alitmeter Setting");
  weather.replace("SLPNO", "Sea Level Pressure NA");     // Rename Later
  weather.replace("PNO", "Rain Gauge NA");
  weather.replace("FZRANO", "Freezing Rain Sensor NA");
  weather.replace("TSNO", " Thunderstorm Sensor NA");
  weather.replace("RVRNO", " Runway VIS Sensor NA");
  weather.replace("VISNO E", "visibility Sensor NA ESTMD");
  weather.replace("PK WND", "Peak Wind");
  weather.replace("WIND", "Wind");
  weather.replace("WSHFT", "Wind Shift at ");
  weather.replace("WND", "Wind");
  weather.replace("MISG", "Missing");
  weather.replace("SHRA", "Rain Shower");
  weather.replace("SH", "Showers");
  weather.replace("DATA", "Data");
  weather.replace("AND", "and");
  weather.replace("ESTMD", "eastsimated");          // Rename Later
  weather.replace("WSHFT", "Wind Shift at");
  weather.replace("PAST", "Past");
  weather.replace("THN", "Thin");
  weather.replace("THRU", "Thru");
  weather.replace("HR", "Hour");
  weather.replace("M ", "Measured ");
  weather.replace("WSHFT", "Wind Shift");
  weather.replace("ICG", "Icing");
  weather.replace("PCPN", "Precip");
  weather.replace("MTS", "Mountains");
  weather.replace("ACC", "AC");
  weather.replace("SNINCR", "Snow Increasing Rapidily");
  weather.replace("ACFT MSHP", "Aircraft Mishap");
  weather.replace("STFD", "Staffed");
  weather.replace(" LAST", " Last");
  weather.replace("OBS", "OS");                      // Rename Later
  weather.replace("NXT", "Next");
  weather.replace("CVCTV", "Conv");                  // Rename Later
  weather.replace("FEW", "FewCLD");
  weather.replace("MDT", "Moderate");
  weather.replace("CLD", "Clouds");
  weather.replace("EMBD", "mbedded");
  weather.replace("BINOVC", "KN in OC");             // Rename Later
  weather.replace("OCNL", "Occasional");
  weather.replace("ONCL", "Occasional");
  weather.replace("FRQ", "Frequent");
  weather.replace("AND", "and");
  weather.replace("LTG ICCC", "LTG LTinC");          // Lightning in Cloud
  weather.replace("LTGICIC", "LTG LTinC");           // Lightning in Cloud
  weather.replace("LTGICCC", "LTG LTinC");           // Lightning in Cloud
  weather.replace("LTGICCG", "LTG LTinC and LTtoG"); // Lightning in Cloud and Ground
  weather.replace("LTGCGICCC", "LTG LTtoG and LTinC"); // Lightning in Cloud and Ground
  weather.replace("LTICGCG", "LTG LTtoG");           // Lightning to Ground
  weather.replace("LTGCG", "LTG LTtoG");             // Lightning to Ground
  weather.replace("LTGIC", "LTG LTinC");             // Lightning in Cloud
  weather.replace("LTG", "Lightning");
  weather.replace("LTinC", "in Clouds");
  weather.replace("LTtoG", "to Ground");
  weather.replace("ALQDS", "All Quadrents");
  weather.replace("ALQS", "All Quadrents");
  weather.replace("DIST", "Distant ");
  weather.replace("DSNT", "Distant ");
  weather.replace("MOV", " Moing");                 // Rename Later
  weather.replace("SFC", " Surface");
  weather.replace("SN", "Snow");
  weather.replace(" E", " east");                   // Rename Later
  weather.replace("E ", "east ");                   // Rename Later
  weather.replace("NE", "Neast");                   // Rename Later
  weather.replace(" SE", " Seast");                 // Rename Later
  weather.replace("E-", "east-");                   // Rename Later
  weather.replace("-E", "-east");                   // Rename Later
  weather.replace("-SE", "-Seast");                 // Rename Later
  weather.replace("BKN", "KN");                     // Rename Later
  weather.replace("TCU", "TC");                     // Rename Later
  weather.replace("SCT", "Scattered");
  weather.replace("TWR", "Tower");
  weather.replace("VIS", "visability ");            // Rename Later
  weather.replace("LWR", "Lower");
  weather.replace("OVC", "OC");
  weather.replace("DSIPTD", "Dissipated");
  weather.replace("HVY", "Heavy");
  weather.replace("LGT", "Light");
  weather.replace("VC", "In the vicinity ");
  weather.replace("OHD", "overhead");               // Rename Later
  weather.replace("OVD", "overhead");               // Rename Later
  weather.replace("VRB", "variable");               // Rename Later
  weather.replace("VRY", "very ");                  // Rename Later
  weather.replace("VSBY", "visibility ");           // Rename Later
  weather.replace("VSB", "visibile");               // Rename Later
  weather.replace("VIRGA", "virga ");               // Rename Later
  weather.replace("V", "variable");                 // Rename Later
  weather.replace("CIG", "Ceiling");
  weather.replace("ACSL", "Standing Lenticular Altocumulus Clouds ");
  weather.replace("SC", "Stratocumulus Clouds ");
  weather.replace("CB", "Cumulonimbus Clouds ");
  weather.replace("CI", "Cirrus Clouds ");
  weather.replace("CU", "Cumulus Clouds ");
  weather.replace("CF", "Cumulusfractus Clouds ");
  weather.replace("SF", "Stratus Fractus Clouds ");
  weather.replace("ST", "Stratus Clouds ");
  weather.replace("NS", "Nimbostratus Clouds ");
  weather.replace("AC", "Altocumulus Clouds ");
  weather.replace("AS", "Altostratus Clouds ");

  weather.replace("Clouds 1", "Clouds=1Oktas ");
  weather.replace("Clouds 2", "Clouds=2Oktas ");
  weather.replace("Clouds 3", "Clouds=3Oktas ");
  weather.replace("Clouds 4", "Clouds=4Oktas ");
  weather.replace("Clouds 5", "Clouds=5Oktas ");
  weather.replace("Clouds 6", "Clouds=6Oktas ");
  weather.replace("Clouds 7", "Clouds=7Oktas ");
  weather.replace("Clouds 8", "Clouds=8Oktas ");
  weather.replace("TS", "Thunderstorm");

  //weather.replace("4/", " Snow Depth on Ground=");     // (4/### Whole inches)
  //weather.replace("8/", " Amount of Precip=.");        // (4/### 1/100th inches)

  weather.replace("DZ", " Drizzle");

  weather.replace("BLU", "blu");
  weather.replace("WHT", "wht");
  weather.replace("GRN", "grn");
  weather.replace("YLO", "ylo");
  weather.replace("AMB", "amb");
  weather.replace("RED", "redd");

  weather.replace(" +", " Heavy ");
  weather.replace(" -", " Light ");
  weather.replace("BL", " blowing ");                     // Rename Later
  weather.replace("DR", " Drifting ");
  weather.replace("FZ", " Freezing ");
  weather.replace("SN", "Snow");
  weather.replace("RA", "Rain");
  weather.replace("BR", "Mist");

  weather.replace("IC", "Ice Cristals");
  weather.replace("PL", "Ice Pellets");
  weather.replace("GS", "Hail");
  weather.replace("GR", "Hail");
  weather.replace("MI", "Shallow ");
  weather.replace("PTCHY", "Patchy ");
  weather.replace("FG", "Fog");
  weather.replace("FU", "Smoke");
  weather.replace("HZY", "HZ");
  weather.replace("HZ", "Haze");
  weather.replace("DU", "Dust");
  weather.replace("UP", "Unknown Precip");
  weather.replace("MOD", "Moderate ");
  weather.replace("INC", "Increasing ");
  weather.replace("DCR", "Decreasing ");
  weather.replace("TR", "Trace ");
  weather.replace("RE", "Recent ");

  weather.replace("B", "began");                       // Rename Later
  weather.replace("E", "ended");                       // Rename Later
  weather.replace("east", "E");                        // Change it Back
  weather.replace("var", "Var");                       // Change it Back
  weather.replace("ver", "Ver");                       // Change it Back
  weather.replace("oVer", "Over");                     // Change it Back
  weather.replace("vi", "Vi");                         // Change it Back
  weather.replace("OC", "Overcast");                   // Rename
  weather.replace("KN", "Broken");                     // Rename
  weather.replace("began", "Began");                   // Change it Back
  weather.replace("blowing", "Blowing");               // Change it Back
  weather.replace("ended", "Ended");                   // Change it Back
  weather.replace("Moing", "Moving ");                 // Change it Back
  weather.replace("mbedded", "Embedded");              // Change it Back
  weather.replace("cavok", "CAVOK");                   // Change it Back
  weather.replace("Conv", "Convective");               // Rename
  weather.replace("OS", " Observation");               // Rename
  weather.replace("TC", "Towering Cumulus Clouds ");   // Rename
  weather.replace("CMG", "Becoming");                  // Rename

  weather.replace("SOG ", "Snow on the Ground");
  //weather.replace("$", " ~ Sta Needs Maintance");
  weather.replace("$", " ");
  weather.replace("RF", "Rainfall ");
  weather.replace("RMK", "Remark: ");

  weather.replace("blu blu", "blu");
  weather.replace("wht wht", "wht");
  weather.replace("grn grn", "grn");
  weather.replace("ylo ylo", "ylo");
  weather.replace("amb amb", "amb");
  weather.replace("redd redd", "red");
  weather.replace("blu", "BLUE: Cloud Base>2500ft Visibility>8km ");
  weather.replace("wht", "WHITE: Cloud Base>1500ft Visibility>5km ");
  weather.replace("grn", "GREEN: Cloud Base>700ft Visibility>3.7km ");
  weather.replace("ylo", "YELLOW: Cloud Base>300ft Visibility>1600m ");
  weather.replace("amb", "AMBER: Cloud Base>200ft Visibility>800m ");

  weather.replace("tend-", "Change -");                 // 3 Hr Pressure Tendancy
  weather.replace("tend+", "Change +");                 // 3 Hr Pressure Tendancy

  weather.replace("  ", " ");                           // Fixing an error

  // Peak Wind
  int search0 = weather.indexOf("Peak Wind");
  if (search0 >= 0) {
    int search1 = weather.indexOf("/", search0 + 9);
    String Dir = weather.substring(search1 - 5, search1 - 2) + "Deg";
    String Wind = weather.substring(search1 - 2, search1) + "KT at ";
    String Time = weather.substring(search1 + 1, search1 + 5);
    weather.replace(weather.substring(search1 - 5, search1 + 5), Dir + Wind + Time);
  }
  weather.replace("PWINO", "Peak Wind Sensor NA");
  return weather;
}

// *********** Display One Station LED
void Display_LED(int index, int wait) {
  if (index == 0)  return;
  leds[index - 1] = 0xaf5800;    // Orange Decoding Data
  FastLED.show();
  delay(wait);
  Set_Cat_LED(index);           // Set Category for This Station LED
  FastLED.show();
}

// *********** DECODE the Station NAME
void Decode_Name(int i) {
  String Station_name = Stations[i].substring(0, 4);
  int search0 = metar.indexOf(Station_name) + 1;      // Start Search from Here
  int search1 = metar.indexOf("<site", search0);
  int search2 = metar.indexOf("</site", search0);
  if (search1 > 0 && search2 > 0)   Station_name = Station_name + ", " + metar.substring(search1 + 6, search2) + ",";
  search1 = metar.indexOf("<country", search0);
  search2 = metar.indexOf("</country", search0);
  if (metar.substring(search1 + 9, search2) == "US") {
    search1 = metar.indexOf("<state", search0);
    search2 = metar.indexOf("</state", search0);
    if (search1 > 0)   Station_name = Station_name + " " + metar.substring(search1 + 7, search2);
  }
  if (search1 > 0 && search2 > 0)   Station_name = Station_name + " " + metar.substring(search1 + 9, search2);
  Stations[i] = Station_name.c_str();
}

// ***********   Display Metar/Show Loops
void Display_Metar_LEDS () {
  int Wait_Time = 5000;             //  Delay after Loop (Seconds x 1000)
  Display_Weather_LEDS (8000);      //  Display Weather
  Display_Vis_LEDS (Wait_Time);     //  Display Visibility [Red-Orange-White]
  Display_Wind_LEDS (Wait_Time);    //  Display Winds [Shades of Aqua]
  Display_Temp_LEDS (Wait_Time);    //  Alt Display Temperatures [Blue-Green-Yellow-Red]
  Display_Alt_LEDS (Wait_Time);     //  Display Altimeter Pressure [Blue-Purple]
  Update_Time ();                   //  Update Current Time
}

// ***********  Display Weather
void Display_Weather_LEDS (int wait) {
  Display_Cat_LEDS ();             //  Display All Categories
  for (int i = 1; i < (No_Stations + 1); i++)  {
    if (sig_wx[i].length() > 4)   {    // IF NOT "None" in Sig Wx,  Display Weather
      station_num = i;                 // Station # for Server - flash button
      //  Twinkle for Flashing Weather   (index,  red,green,blue, pulses, on, off time)
      if (sig_wx[i].indexOf("KT") > 0) Twinkle(i, 0x00, 0xff, 0xff, 1, 500, 500); //Gusts   Aqua
      if (rem[i].indexOf("FZ") > 0)    Twinkle(i, 0x00, 0x00, 0x70, 3, 300, 400); //Freezing Blue
      if (rem[i].indexOf("FG") > 0)    Twinkle(i, 0x30, 0x40, 0x26, 3, 400, 500); //Fog   L Yellow
      if (rem[i].indexOf("BR") > 0)    Twinkle(i, 0x20, 0x50, 0x00, 3, 500, 500); //Mist  L Green
      if (rem[i].indexOf("DZ") > 0)    Twinkle(i, 0x22, 0x50, 0x22, 3, 300, 300); //Drizzle L Green
      if (rem[i].indexOf("RA") > 0)    Twinkle(i, 0x22, 0xFC, 0x00, 5, 300, 300); //Rain    Green
      if (rem[i].indexOf("HZ") > 0)    Twinkle(i, 0x20, 0x20, 0x20, 3, 400, 400); //Haze    White/purple
      if (rem[i].indexOf("SN") > 0)    Twinkle(i, 0xaf, 0xaf, 0xaf, 4, 300, 600); //Snow    White
      if (rem[i].indexOf("SG") > 0)    Twinkle(i, 0xaf, 0xaf, 0xaf, 4, 300, 600); //Snow    White
      if (rem[i].indexOf("TS") > 0)    Twinkle(i, 0xff, 0xff, 0xff, 4,  10, 900); //Thunder White
      if (rem[i].indexOf("GS") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 4, 100, 800); //S Hail  Yellow
      if (rem[i].indexOf("GR") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 5, 100, 800); //L Hail  Yellow
      if (rem[i].indexOf("IC") > 0)    Twinkle(i, 0x00, 0x00, 0x80, 3, 300, 400); //Ice C   Blue
      if (rem[i].indexOf("PL") > 0)    Twinkle(i, 0x00, 0x00, 0xa0, 3, 300, 400); //Ice P   Blue
      if (rem[i].indexOf("VCSH") > 0)  Twinkle(i, 0x22, 0xfc, 0x00, 2, 300, 300); //Showers Green
      if (rem[i].indexOf("TCU") > 0)   Twinkle(i, 0x30, 0x30, 0x30, 2, 300, 300); //CU      Grey
      if (rem[i].indexOf("CB") > 0)    Twinkle(i, 0x30, 0x30, 0x40, 2, 300, 300); //CB      Grey
      //  Rest of Weather = YELLOW
      if (rem[i].indexOf("DU") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Dust    Yellow
      if (rem[i].indexOf("FU") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Smoke   Yellow
      if (rem[i].indexOf("FY") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Spray   Yellow
      if (rem[i].indexOf("SA") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Sand    Yellow
      if (rem[i].indexOf("PO") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Dust&Sand Yellow
      if (rem[i].indexOf("SQ") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Squalls Yellow
      if (rem[i].indexOf("VA") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Volcanic Ash Yellow
      if (rem[i].indexOf("UP") > 0)    Twinkle(i, 0x88, 0x88, 0x00, 3, 500, 500); //Unknown Yellow
      // Notification of changes = ORANGE
      if (sig_wx[i] == "Info:")        Twinkle(i, 0xaf, 0x58, 0x00, 1, 200, 800); //Flash Orange
      Set_Cat_LED (i);  // Set Category for This Station LED
      FastLED.show();
    }
  }
  delay(wait);
}
// ***********  Twinkle for Flashing Weather
void Twinkle (int index, byte red, byte green, byte blue, int pulses, int on_time, int off_time) {
  leds[index - 1].r = 0x00;    //  Red   Off
  leds[index - 1].g = 0x00;    //  Green Off
  leds[index - 1].b = 0x00;    //  Blue  Off
  FastLED.show();
  delay(100);    // Wait a smidgen
  for (int i = 0; i < pulses; i++) {
    leds[index - 1].r = red;   //  Red   On
    leds[index - 1].g = green; //  Green On
    leds[index - 1].b = blue;  //  Blue  On
    FastLED.show();
    delay(on_time);
    leds[index - 1].r = 0x00;  //  Red   Off
    leds[index - 1].g = 0x00;  //  Green Off
    leds[index - 1].b = 0x00;  //  Blue  Off
    FastLED.show();
    delay(off_time);
  }
  delay(300);    // Wait a little bit for flash button
}
// *********** Display ALL Categories
void Display_Cat_LEDS () {
  for (int i = 1; i < (No_Stations + 1); i++) {
    Set_Cat_LED (i);  // Set Category for This Station LED
  }
  FastLED.show();
  delay(200);        // Wait a smidgen
}
// *********** Set Category for One Station LED
void Set_Cat_LED (int i)  {
  if (category[i] == "NF" )  leds[i - 1] = CRGB(20, 20, 0); // DIM  Yellowish
  if (category[i] == "NA" )  leds[i - 1] = CRGB(20, 20, 0); // DIM  Yellowish
  if (category[i] == "VFR" ) leds[i - 1] = CRGB::DarkGreen;
  if (category[i] == "MVFR") leds[i - 1] = CRGB::DarkBlue;
  if (category[i] == "IFR" ) leds[i - 1] = CRGB::DarkRed;
  if (category[i] == "LIFR") leds[i - 1] = CRGB::DarkMagenta;
}
// *********** Display Visibility [Red Orange Pink/White]
void Display_Vis_LEDS (int wait) {
  for (int i = 1; i < (No_Stations + 1); i++) {
    int hue     =       visab[i] * 5; // (red yellow white)
    int sat     = 170 - visab[i] * 6;
    int bright  = 200 - visab[i] * 4;
    leds[i - 1] = CHSV(hue, sat, bright);
    if (category[i].substring(0, 1) == "N")  leds[i - 1] = CHSV( 0, 0, 0);
  }
  FastLED.show();
  delay(wait);
}
// *********** Display Winds [Aqua]
void Display_Wind_LEDS (int wait) {
  for (int i = 1; i < (No_Stations + 1); i++) {
    int Wind = wind[i].toInt();
    leds[i - 1] = CRGB(0, Wind * 7, Wind * 7);
    if (category[i].substring(0, 1) == "N" || wind[i] == "NA")  leds[i - 1] = CRGB(0, 0, 0);
  }
  FastLED.show();
  delay(wait);
}

// *********** Display Temperatures [Blue Green Yellow Orange Red]
void Display_Temp_LEDS (int wait) {
  for (int i = 1; i < (No_Stations + 1); i++) {
    //int hue = 176 - temp[i] * 4.2;     //  purple blue green yellow orange red
    int hue = 160 - temp[i] * 4;     //  purple blue green yellow orange red
    //Serial.println("Station=" + Stations[i].substring(0, 4) + "  Temp=" + String(temp[i]) + "  Hue=" + String(hue));
    leds[i - 1] = CHSV( hue, 180, 150);
    if (temp[i] == 0)  leds[i - 1] = CHSV( 0, 0, 0);
  }
  FastLED.show();
  delay(wait);
}
// *********** Display Altimeter Pressure [Blue Purple]
void Display_Alt_LEDS (int wait) {
  for (int i = 1; i < (No_Stations + 1); i++) {
    int hue = (altim[i] - 27.92) * 100;     //  blue purple
    leds[i - 1] = CHSV( hue - 30, 130, 150);
    if (category[i].substring(0, 1) == "N")   leds[i - 1] = CHSV( 0, 0, 0);
  }
  FastLED.show();
  delay(wait);
}

//  *********** Go_Server HTML  TASK 2
void Go_Server ( void * pvParameters ) {
  int diff_in_clouds = 2750;      // Significant CHANGE IN CLOUD BASE
  float diff_in_press  = 0.045;   // Significant CHANGE IN PRESSURE
  String header;                  // Header for Server
  int sta_n = 1;
  int wx_flag;
  int station_flag = 1;
  int summary_flag = 1;
  float TempF;
  String User;
  String Browser;

  for (;;) {
    WiFiClient client = server.available();   // Listen for incoming clients
    if (client) {                             // If a new client connects,
      String currentLine = "";                // make a String to hold incoming data from the client
      while (client.connected()) {            // loop while the client's connected
        if (client.available()) {             // if there's bytes to read from the client,
          char c = client.read();             // read a byte, then
          //Serial.write(c);                  // print it out the serial monitor
          header += c;
          if (c == '\n') {                    // if the byte is a newline character
            // if the current line is blank, you got two newline characters in a row.
            // that's the end of the client HTTP request, so send a response:
            if (currentLine.length() == 0) {
              // HTTP headers always Start with a response code (e.g. HTTP/1.1 200 OK)
              // and a content-type so the client knows what's coming, then a blank line:
              client.println(F("HTTP/1.1 200 OK"));
              client.println(F("Content-type:text/html"));
              client.println(F("Connection: close"));
              //client.println(F("Refresh: 60"));  // refresh the page automatically every 60 sec
              client.println();
              // Serial.println(header);

              // Checking if AIRPORT CODE was Entered
              int search = header.indexOf("GET /get?Airport_Code=");
              if (search >= 0) {
                String Airport_Code = header.substring(search + 22, search + 26);
                Airport_Code.toUpperCase();    // Changes all letters to UPPER CASE
                sta_n = -1;
                for (int i = 0; i < (No_Stations + 1); i++) {    // Check if Airport_Code is in Data base
                  if (Airport_Code == Stations[i].substring(0, 4))    sta_n = i;
                }
                if (sta_n == -1)  {            // Airport_Code NOT in Data base, Add as Station[0]
                  sta_n = 0;
                  Stations[sta_n] = Airport_Code.c_str();
                  cloud_base[sta_n] = 0;
                  altim[sta_n] = 0;
                  old_cloud_base[sta_n] = 0;
                  old_altim[sta_n] = 0;
                  //old_wdir[sta_n] = 0.0;
                  wdir[sta_n] = "";
                  rem[sta_n] = "";
                  GetData("NAME", 0);          // GET Some Metar /NAME
                  Decode_Name(sta_n);          // Decode Station NAME
                  GetData(Airport_Code, 0);    // GET Some Metar /DATA
                  ParseMetar(sta_n);           // Parse Metar DATA
                }
                summary_flag = 0;
                station_flag = 1;
              }
              // Checking which BUTTON was Pressed
              search = header.indexOf("GET /back HTTP/1.1");
              if (search >= 0) {
                sta_n = sta_n - 1;
                if (sta_n < 0)  sta_n = No_Stations;
                if (sta_n == 0 && Stations[0].substring(0, 4) == "NULL") sta_n = No_Stations;
                summary_flag = 0;
                station_flag = 1;
              }
              search = header.indexOf("GET /next HTTP/1.1");
              if (search >= 0) {
                sta_n = sta_n + 1;
                if (sta_n > No_Stations) sta_n = 0;
                if (sta_n == 0 && Stations[0].substring(0, 4) == "NULL") sta_n = 1;
                summary_flag = 0;
                station_flag = 1;
              }
              search = header.indexOf("GET /flash HTTP/1.1");
              if (search >= 0) {
                sta_n = station_num;             // From  Display Weather
                if (sta_n < 1 || sta_n > No_Stations) sta_n = 1;
                summary_flag = 0;
                station_flag = 1;
              }
              search = header.indexOf("GET /summary HTTP/1.1");
              if (search >= 0) {
                summary_flag = 1;
                station_flag = 1;
              }
              if (summary_flag == 1)  {
                // *********** DISPLAY SUMMARY ***********
                client.print(F("<!DOCTYPE html><html>"));     // Display the HTML web page
                // Responsive in any web browser, Header
                client.print(F("<HEAD><meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">"));
                client.print(F("<title>METAR</title>"));      // TITLE
                client.print(F("<style> html { FONT-family: Helvetica; display: inline-block; margin: 0px auto; text-align: left;}"));
                client.print(F("</style></HEAD>"));           // Closes Style & Header
                // Web Page Body
                client.print(F("<BODY><h2>METAR Summary</h2>"));
                client.print("Summary of Weather Conditions - Last Update : " + Last_Up_Time + " Zulu &nbsp&nbsp Next Update in " + String(Update_Data) + " Minutes<BR>");

                // Display SUMMARY Table ***********
                client.print(F("<TABLE BORDER='2' CELLPADDING='5'>"));
                String Deg = "Deg F";
                client.print("<TR><TD>No:</TD><TD>ID</TD><TD>CAT</TD><TD>SKY<BR>COVER</TD><TD>VIS<BR>Miles</TD><TD>WIND<BR>from</TD><TD>WIND<BR>Speed</TD><TD>TEMP<BR>" + Deg + "</TD><TD>ALT<BR>in&nbspHg</TD><TD>REMARKS</TD></TR>");
                for (int i = 0; i < (No_Stations + 1); i++) {
                  String color = "<TD><FONT COLOR=";
                  if (category[i] == "VFR" ) color = color + "'Green'>";
                  if (category[i] == "MVFR") color = color + "'Blue'>";
                  if (category[i] == "IFR" ) color = color + "'Red'>";
                  if (category[i] == "LIFR") color = color + "'Magenta'>";
                  if (category[i] == "NA")   color = color + "'Black'>";
                  if (category[i] == "NF")   color = color + "'Orange'>";

                  if (Stations[i].substring(0, 4) != "NULL")    {           // Display Station
                    if (i == sta_n )   {
                      client.print("<TR><TD BGCOLOR='Yellow'>" + String(i) + "</TD>");
                      client.print("<TD BGCOLOR='Yellow'>" + color.substring(4, color.length()) + Stations[i].substring(0, 4) + "</TD></FONT>");
                    } else {
                      client.print("<TR><TD>" + String(i) + "</TD>");                       // Display Station Number
                      client.print(color + Stations[i].substring(0, 4) + "</TD></FONT>");   // Display Station Id
                    }
                    client.print(color + category[i] + "</FONT></TD>");   // Display Category
                    if (sky[i].length() < 11)   {
                      client.print(color + sky[i]);                         // Display Sky Cover
                    } else {
                      if (old_cloud_base[i] > 0 && sig_wx[i].substring(0, 4) == "None") {
                        if (cloud_base[i] >= old_cloud_base[i] + diff_in_clouds)      // Significant INCREASE in Cloud Base
                          sig_wx[i] = "Info:";                                        // Triggers Orange Flashing & MistyRose
                        if (cloud_base[i] <= old_cloud_base[i] - diff_in_clouds)      // Significant DECREASE in Cloud Base
                          sig_wx[i] = "Info:";                                        // Triggers Orange Flashing & MistyRose
                      }
                      if (sig_wx[i] == "Info:") client.print(F("<TD BGCOLOR='MistyRose'><FONT COLOR='Purple'>"));  else  client.print(color);
                      client.print(sky[i].substring(0, 3) + "&nbspat<BR>" + cloud_base[i] + "&nbspFt&nbsp");
                      if (old_cloud_base[i] > 0) {
                        if (cloud_base[i]  > old_cloud_base[i])  client.print(F("&uArr;"));  //up arrow
                        if (cloud_base[i]  < old_cloud_base[i])  client.print(F("&dArr;"));  //down arrow
                        if (cloud_base[i] == old_cloud_base[i])  client.print(F("&rArr;"));  //right arrow
                      }
                    }
                    client.print(F("</FONT></TD>"));
                    client.print(color + String(visab[i]) + "</FONT></TD>");             // Display Visibility
                    client.print(color + wdir[i] + "</FONT></TD>");                      // Display Wind Direction
                    client.print(color + wind[i] + "</FONT></TD>");                      // Display Wind Speed
                    TempF = temp[i] * 1.8 + 32;  // deg F
                    if (temp[i] == 0 && dewpt[i] == 0)  client.print(color + "NA</FONT></TD>"); else if (Deg == "Deg C")   client.print(color + String(temp[i], 1) + "</FONT></TD>"); else
                      client.print(color + String(TempF, 1) + "</FONT></TD>");
                    wx_flag = 0;
                    if (old_altim[i] > 0.1)   {
                      if (altim[i] >= old_altim[i] + diff_in_press)  wx_flag = 1;  // Significant INCREASE in Pressure
                      if (altim[i] <= old_altim[i] - diff_in_press)  wx_flag = 1;  // Significant DECREASE in Pressure
                      if (wx_flag == 1) client.print("<TD BGCOLOR='MistyRose'><FONT COLOR='Purple'>" + String(altim[i]));
                      else  client.print(color + String(altim[i]));
                      if (altim[i] > old_altim[i])   client.print(F("<BR>&uArr;")); //up arrow
                      if (altim[i] < old_altim[i])   client.print(F("<BR>&dArr;")); //down arrow
                      if (altim[i] == old_altim[i])  client.print(F("<BR>&rArr;")); //right arrow
                    }  else  {
                      client.print(color + String(altim[i]));
                    }
                    client.print(F("</FONT></TD>"));                                    // Display Remarks
                    if (rem[i].substring(0, 3) == "new")  client.print(F("<TD><FONT COLOR='Purple'>"));  else  client.print(color);
                    client.print(rem[i]);
                    if (comment[i].length() > 1)   client.print("<BR>" + comment[i]);   // Display Comment
                    client.print("</FONT></TD></TR>");
                  }
                }
                client.print(F("</TABLE>"));
              }
              if (station_flag == 1)  {

                // *********** DISPLAY STATION  ***********
                client.print(F("<!DOCTYPE html><html>"));    // Display the HTML web page
                // Responsive in any web browser.
                client.print(F("<HEAD><meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">"));
                client.print(F("<title>METAR</title>"));    // TITLE
                client.print(F("<style> html { FONT-family: Helvetica; display: inline-block; margin: 0px auto; text-align: left;}"));
                client.print(F("</style></HEAD>"));         // Closes Style & Header
                // Web Page Body
                client.print(F("<BODY><h2>METAR Station</h2>"));
              }
              if (station_flag == 1 || summary_flag == 1)  {
                client.print(F("<P>"));
                client.print("For&nbsp:&nbsp" +  Stations[sta_n] + "&nbsp&nbsp#&nbsp&nbsp" + String(sta_n) + "<BR>");
                // Display BUTTONS: the ESP32 receives a request in the header ("GET /back HTTP/1.1")
                client.print(F("<a href=\'/back\'><INPUT TYPE=button VALUE='Previous Station' onClick= sta_n></a>"));
                client.print(F("<a href=\'/flash\'><INPUT TYPE=button VALUE='Flashing LED' onClick= sta_n></a>"));
                client.print(F("<a href=\'/next\'><INPUT TYPE=button VALUE='Next Station' onClick= sta_n></a>"));
                client.print(F("&nbsp&nbsp&nbsp&nbsp<a href=\'/summary\'><INPUT TYPE=button VALUE='Summary of Stations' onClick= sta_n></a>"));
                client.print(F("<BR>&nbsp&nbsp&nbsp&nbspPress <B>'BUTTON'</B> above, when <B>LED is Flashing</B><BR>"));
                // Display TABLE/FORM: the ESP32 receives a request in the header ("GET /get?Airport_Code=")
                client.print(F("<TABLE BORDER='0' CELLPADDING='1'>"));
                client.print(F("<TR><TD>ENTER AIRPORT ID CODE:</TD><TD>"));
                client.print(F("<FORM action='/get' METHOD='get'>"));
                client.print(F("<INPUT TYPE='text' NAME='Airport_Code' SIZE='5'>"));
                client.print(F("</FORM></TD></TR></TABLE>"));
                Display_LED (sta_n, 300);  // Display One Station LED
                Update_Time();             //  GET Current Time
                String C_Time = "Current Time : " + Time + " Zulu&nbsp&nbsp&nbsp&nbsp&nbsp&nbspNext Update in less than 0 Minutes<BR>";
                int upd = (Last_Up_Min + Update_Data) - Minute;
                if (Last_Up_Min + Update_Data > 60) upd = 60 - Minute;
                if (upd > 0 && upd < Update_Data + 1)  {
                  C_Time.replace("than 0", "than " + String(upd));
                  if (upd == 1)  C_Time.replace("Minutes", "Minute");
                }
                client.print(C_Time);
                // Display STATION Table  ***********
                String Bcol = "BORDERCOLOR=";
                if (category[sta_n] == "VFR" ) Bcol = Bcol + "'Green'";
                if (category[sta_n] == "MVFR") Bcol = Bcol + "'Blue'";
                if (category[sta_n] == "IFR" ) Bcol = Bcol + "'Red'";
                if (category[sta_n] == "LIFR") Bcol = Bcol + "'Magenta'";
                if (category[sta_n] == "NA")   Bcol = Bcol + "'Black'";
                if (category[sta_n] == "NF")   Bcol = Bcol + "'Orange'";
                String color = "<TD><FONT " + Bcol.substring(6, Bcol.length()) + ">";
                client.print("<TABLE " + Bcol + " BORDER='3' CELLPADDING='5'>");
                client.print("<TR><TD>Flight Category</TD>" + color + "<B>" + category[sta_n] + "</B></FONT>  for " + Stations[sta_n]  + "</TD></TR>");
                client.print(F("<TR><TD>Remarks</TD>"));
                if (rem[sta_n].substring(0, 3) == "new" ) client.print("<TD><FONT COLOR='Purple'>" + rem[sta_n] + "</FONT>"); else client.print("<TD>" + rem[sta_n]);
                client.print(F("</TD></TR>"));

                client.print("<TR><TD>Significant Weather</TD>" + color + sig_wx[sta_n] + "</FONT>");

                //  Comments for Weather and Cloud Base
                if (sky[sta_n].substring(0, 3) == "OVC")
                  client.print("<BR><FONT " + Bcol.substring(6, Bcol.length()) + ">Overcast Cloud Layer</FONT>");
                if (cloud_base[sta_n] > 0 && cloud_base[sta_n] <= 1200)
                  client.print("<BR><FONT " + Bcol.substring(6, Bcol.length()) + ">Low Cloud Base</FONT>");
                if (old_cloud_base[sta_n] > 0 && old_altim[sta_n] > 0)    {
                  if (cloud_base[sta_n] >= old_cloud_base[sta_n] + diff_in_clouds) // INCREASE
                    client.print(F("<BR><FONT COLOR='Orange'>Significant Increase in Cloud Base</FONT>"));
                  if (cloud_base[sta_n] <= old_cloud_base[sta_n] - diff_in_clouds) // DECREASE
                    client.print(F("<BR><FONT COLOR='Orange'>Significant Decrease in Cloud Base</FONT>"));
                  if (cloud_base[sta_n] > old_cloud_base[sta_n] && altim[sta_n] > old_altim[sta_n])
                    client.print(F("<BR><FONT COLOR='Purple'>Weather is Getting Better</FONT>"));
                  if (cloud_base[sta_n] < old_cloud_base[sta_n] && altim[sta_n] < old_altim[sta_n])
                    client.print(F("<BR><FONT COLOR='Blue'>Weather is Getting Worse</FONT>"));
                  if (sig_wx[sta_n] == "Info:")   sig_wx[sta_n] = "Info";          // Reset Orange Flashing
                }

                if (comment[sta_n].length() > 1)   // Comment
                  client.print("<BR><FONT COLOR='Purple'>" + comment[sta_n] + "</FONT>");

                client.print("</TD></TR><TR><TD>Sky Cover</TD>" + color);
                if (sky[sta_n].length() > 11)  {
                  client.print(sky[sta_n].substring(0, 3) + "&nbspClouds&nbsp" + sky[sta_n].substring(4, sky[sta_n].length()) + "&nbsp&nbsp&nbsp");
                  if (old_cloud_base[sta_n] > 0)   {
                    if (cloud_base[sta_n] > old_cloud_base[sta_n])  {
                      client.print(F("&uArr; from ")); //up arrow
                      client.print(old_cloud_base[sta_n]);
                    }
                    if (cloud_base[sta_n] < old_cloud_base[sta_n])  {
                      client.print(F("&dArr; from ")); //down arrow
                      if (old_cloud_base[sta_n] > 99998)  client.print("CLEAR"); else
                        client.print(old_cloud_base[sta_n]);
                    }
                    if (cloud_base[sta_n] == old_cloud_base[sta_n]) {
                      client.print(F("&rArr; no change")); //right arrow
                    }
                  }
                }  else  client.print(sky[sta_n]);
                client.print(F("</FONT></TD></TR>"));

                client.print("<TR><TD>Visibility</TD>" + color + visab[sta_n] + " Statute miles</FONT></TD></TR>");

                client.print(F("<TR><TD>Wind from</TD><TD>"));
                int newdir = wdir[sta_n].toInt();
                int olddir = old_wdir[sta_n];
                if (wind[sta_n] == "CALM")  client.print(wind[sta_n]);
                else client.print(wdir[sta_n] + " Deg at " + wind[sta_n]);
                if (newdir != 0 && olddir != 0) {
                  if (newdir == olddir)  client.print(" : no change");
                  if (newdir > olddir + 30 || newdir < olddir - 30)
                    client.print("<FONT COLOR='Orange'> : Significant Change from " + String(olddir) + " Deg</FONT>");
                  else if (newdir != olddir)  client.print(" : previously " + String(olddir) + " Deg");
                }
                client.print(F("</TD></TR>"));

                TempF = temp[sta_n] * 1.8 + 32;  // deg F
                client.print(F("<TR><TD>Temperature</TD><TD>"));
                if (temp[sta_n] <= 0) client.print(F("<FONT COLOR='Blue'>"));  else  client.print(F("<FONT COLOR='Black'>"));
                if (temp[sta_n] == 0 && dewpt[sta_n] == 0)  client.print(F("NA</FONT>")); else
                  client.print(String(temp[sta_n], 1) + " Deg C&nbsp&nbsp&nbsp:&nbsp&nbsp&nbsp" + String(TempF, 1) + " Deg F</FONT>");
                if (TempF >= 95.0)  client.print(F("<FONT SIZE='-1' FONT COLOR='Red'><I> and Too HOT</I></FONT>"));
                client.print(F("</TD></TR><TR><TD>Dew Point</TD><TD>"));
                if (dewpt[sta_n] <= 0) client.print(F("<FONT COLOR='Blue'>"));  else  client.print(F("<FONT COLOR='Black'>"));
                if (dewpt[sta_n] == 0)  client.print(F("NA")); else
                  client.print(String(dewpt[sta_n], 1) + " Deg C</TD></TR>");
                client.print("</FONT><TR><TD>Altimeter</TD><TD>" + String(altim[sta_n]) + "&nbspin&nbspHg&nbsp&nbsp");
                if (old_altim[sta_n] > 0)  {
                  if (altim[sta_n] > old_altim[sta_n]) {
                    if (altim[sta_n] > old_altim[sta_n] + diff_in_press)  client.print(F("<FONT COLOR='Orange'>Significant&nbsp</FONT>"));
                    client.print(F("&uArr; from ")); //up arrow
                    client.print(old_altim[sta_n], 2);
                  }
                  if (altim[sta_n] < old_altim[sta_n]) {
                    if (altim[sta_n] < old_altim[sta_n] - diff_in_press)  client.print(F("<FONT COLOR='Orange'>Significant&nbsp</FONT>"));
                    client.print(F("&dArr; from ")); //down arrow
                    client.print(old_altim[sta_n], 2);
                  }
                  if (altim[sta_n] == old_altim[sta_n])  client.print(F("&rArr; Steady")); //right arrow
                }
                client.print(F("</TD></TR>"));
                float Elevation = elevation[sta_n] * 3.28; //feet
                client.print("<TR><TD>Elevation</TD><TD>" + String(elevation[sta_n], 1) + " m&nbsp&nbsp&nbsp:&nbsp&nbsp&nbsp" + String(Elevation, 1) + " Ft</TD></TR>");
                float PressAlt = Elevation + (1000 * (29.92 - altim[sta_n])); //feet
                float DensityAlt = PressAlt + (120 * (temp[sta_n] - (15 - abs(2 * Elevation / 1000)))); // feet
                client.print(F("<TR><TD>Estimated Density Altitude</TD><TD>"));
                if (temp[sta_n] == 0 || altim[sta_n] == 0)  client.print(F("NA")); else client.print(String(DensityAlt, 1) + " Ft</TD></TR>");
                client.print(F("</TABLE>"));

                client.print("<BR><FONT SIZE='-1'>File Name: " + String(FileName));
                client.print("<BR>H/w Address : " + local_hwaddr);
                client.print("<BR>Url Address : " + local_swaddr);
                client.print(F("<BR><B>Dedicated to: F. Hugh Magee</B>"));
                client.print(F("</FONT></BODY></html>"));
              }
              client.println();    // The HTTP response ends with another blank line
              break;               // Break out of the while loop
            } else {               // if you got a newline, then clear currentLine
              currentLine = "";
            }
          } else if (c != '\r') {  // if you got anything else but a carriage return character,
            currentLine += c;      // add it to the end of the currentLine
          }
        }                          // Client Not Available
      }                            // Client Disconnected
      header = "";                 // Clear the header variable
      client.stop();               // Close the connection
    }
  }
}