     ] [ drop f ] if ;
 
 : stations-data ( -- seq )
-    URL" http://weather.noaa.gov/data/nsd_cccc.txt"
+    URL" http://tgftp.nws.noaa.gov/data/nsd_cccc.txt"
     http-get nip CHAR: ; [ string>csv ] with-delimiter ;
 
 PRIVATE>

M: station metar cccc>> metar ;

M: string metar
    "http://weather.noaa.gov/pub/data/observations/metar/stations/%s.TXT"
    sprintf http-get nip ;

GENERIC: metar. ( station -- )

M: station taf cccc>> taf ;

M: string taf
    "http://tgftp.nws.noaa.gov/data/forecasts/stations/%s.TXT"
    sprintf http-get nip ;

GENERIC: taf. ( station -- )
