 fidonet (2:5030/539.20)  SU.OS2.PROG 
 From : Dmitry Froloff                      2:5020/400      19 Apr 01  18:29:34 
 To   : All                                                 19 Apr 01  23:12:55 
 Subj : Re:  ..                                                        

From: Dmitry Froloff <saturn2000@sovintel.ru>


 ⠪    筮 㧭.
/**/

fin='RSXX0063'

'@wget\bin\wget -c -q http://www.weather.com/weather/local/'fin

flag= 0

do while lines(fin) > 0
    str = linein(fin)

    if pos('<!-- insert day/date here -->', str) = 0
        then iterate;

    /* Next line contains date */
    parse value linein(fin) with day'</A><BR>'dt

    call charout, strip(day)' 'dt' '
    /* Look for next </TR> */

    do forever

        if lines(fin) <= 0 then
            leave

        str = strip(linein(fin))

        if left(str,5) = '</TR>' then
            leave

    if pos('<TD CLASS="dataText" ALIGN="LEFT">', str) > 0 then
    do
        flag =1
    end
    else
    do
        if flag = 1 then
        do
            call charout, ' 'strip(str)' '
        end
        flag= 0
    end

        if pos('&deg',str) > 0 then
        do
            parse value str with deg'&' .
            call charout, format((deg-32)*0.5555887,,2)' '
        end
    end

    say
end

਩

--- ifmail v.2.15dev5
 * Origin: Demos online service (2:5020/400)
