[Windows Mobile Apps and Games] ddavtian:
Thanks for help, alanlsmith.

Script is below. I have changed first few lines and later the path to script, for testing.

In my script I have this line:

script = "Program Files\Mortscript\W.mscr"

In this post it becomes

script = "Program FilesMortscriptW.mscr"

# Get the path to the files needed

# your location (see http://developer.yahoo.com/weather/ on finding your location)
location="94598"

# folder containing your weather wallpaper
wallpaperfolder = "\Storage Card\My Documents\Wallpapers\MyCombo0.3\"

# wallpaper type jpg or gif
wallpapertype= ".jpg"

# how often to try and get the weather
delayHours = 1

# avoid registry writes if no change
curweather = RegRead("HKCU", "\Software\A_C\S2U2\", "UserWeather")
currlweather = RegRead("HKCU", "\Software\emerym\", "Weather")
curpic= RegRead("HKCU", "\Software\A_C\S2U2\", "wallpaper")
curforecast = SubStr(curpic,-6,2)
oldmax =SubStr(curweather,-8,2)
oldmin =SubStr(curweather,-3,2)
weather = ""
rlweather = ""

##

GetTime(hour,min,sec,day,month,year)
##
today = ( day & "/" & month & "/" & year )
##
Runtime = "Updated: " & day & "/" & month & "/" & year & " - " & hour & ":" & min & "^NL^"

##
#message( runtime , "" )
##

# set up for next notification
utime = TimeStamp() + (delayHours*60)*60

mort = SystemPath("ScriptExe") & "\MortScript.exe"

wpPath = RegRead( "HKCU", "\Software\MarsWare\WeatherPanel", "ProgramPath" )
# script = SystemPath("ScriptPath") & "\" & SystemPath("ScriptName") & SystemPath("ScriptExt")
script = "Program Files\Mortscript\W.mscr"
logfile = SystemPath("ScriptPath") & "\" & "Current Weather Log.TXT"
WriteFile (logfile, %runtime% , TRUE)

# kill any lingering notification
RemoveNotifications(mort, script)
# set notify for myself at next time
RunAt( utime, mort, script)

# Quietly ignore all errors
ErrorLevel("off")

hourlyfile= wpPath\"data\"&location&"-hourly"
currentfile= wpPath\"data\"&location&"-current"
##
forecastfile = wpPath\"data\"&location&"-forecast"

#Find High / Low temps & forecast icon
forecastdata = ReadFile(forecastfile)

for line = 1 to 170
segment[line] = Part( forecastdata, "^NL^", line )
Next

for count=0 to 9

If (count=0)
ind=1

Else

ind=((count*17)+1)
EndIf

day_no=((segment[ind]-25569)*86400)
daystring = Format( day_no, 6)

Day_no=FormatTime( "d/m/Y", daystring)
if (day_no eq today)
forecast_code_day = segment[ ind + 5 ]
forecast_code_night = segment[ ind + 11 ]
maxtempf = segment[ ind + 1 ]
mintempf = segment[ ind + 2 ]
maxtemp=((maxtempf-32)*5)/9
mintemp=((mintempf-32)*5)/9
#
If ( maxtempf = -9999)
maxtempf = oldmax
maxtemp = oldmax
EndIf
#
If ( mintempf = -9999)
mintempf = oldmin
mintemp = oldmin
EndIf
#
If ( hour > 6 AND hour < 18 )
forecast_code = forecast_code_day
Else
forecast_code = forecast_code_night
EndIf

#Message (forecast_code , hour )
# message( day_no , count)
# message( maxtemp, mintemp )

EndIf

next

##
#Find current location

find_location = ReadFile( currentfile )
location_length = find( find_location , "," )
location_name = substr( find_location , 1 , ( location_length - 1 ) )

endofcurrenthour = FormatTime( "d/m/Y H", (timestamp() + 3600))

##Check last update time

currentdata = ReadFile( currentfile )
Updatetime = ((SubStr( currentdata, 27, 12 )-25569)*86400)

updatetimestring = Format( updatetime, 0)

onehourago = ( timestamp() - 3600 )
#If ( onehourago Lt updatetimestring )
If ( onehourago eq onehourago )

filedata = ReadFile( currentfile )

for line = 1 to 17
segment[line] = Part( filedata, "^NL^", line )
Next
tempf = segment [ 3 ]
feeltempf = segment[ 4 ]
ccode = segment[ 7 ]
summary = segment[ 8 ]

temp=((tempf-32)*5)/9
feeltemp=((feeltempf-32)*5)/9

display1 = " Feels: "& feeltemp&"°"
display2 = " " & summary & " -Feels: "& feeltemp & "°"
display3 = " " & location_name & ": " & summary & " -Feels:" & feeltemp & "°"
display4 = " " & location_name & ": " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"
display5 = " " & location_name & ": " & "High:" & maxtemp & "°" & " -Feels:" & feeltemp & "°"
display6 = " " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"
display7 = " High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

Else

filedata = ReadFile( hourlyfile )

for line = 1 to 239
segment[line] = Part( filedata, "^NL^", line )
Next

for count=0 to 22

If (count=0)
ind=1

Else

ind=((count*10)+1)
EndIf

convertdate=((segment[ind]-25569)*86400)
datestring = Format( convertdate, 6)

Day=FormatTime( "d/m/Y", datestring)
Hour=FormatTime( "H", datestring)
Min=FormatTime( "i", datestring)

if (Min <> 00)
Min = "00"
Hour = (Hour + 1)
If (Length(Hour)<>2
Hour = ("0" & Hour)
EndIf
EndIf

periodtime =(Day & " " & Hour )

If (endofcurrenthour eq periodtime)

tempf = segment[ind + 1 ]
feeltempf = segment[ind + 2 ]
ccode = segment[ind + 3 ]
summary = segment[ind + 4 ]

temp=((tempf-32)*5)/9
feeltemp=((feeltempf-32)*5)/9

display1 = " Feels: "& feeltemp&"°"
display2 = " " & summary & " -Feels: "& feeltemp & "°"
display3 = " " & location_name & ": " & summary & " -Feels:" & feeltemp & "°"
display4 = " " & location_name & ": " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"
display5 = " " & location_name & ": " & "High:" & maxtemp & "°" & " -Feels:" & feeltemp & "°"
display6 = " " & summary & " -High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"
display7 = " High:" & maxtemp & "°" & " -Feels:"& feeltemp & "°"

EndIf

next

EndIf

#Choose what to display:
#display1 = " Feels: 21°"
#display2 = " Sunny - Feels: 21°"
#display3 = " London: Sunny - Feels: 21°"
#display4 = " London: Sunny - High: 26° - Feels: 21°"
#display5 = " London: - High: 26° - Feels: 21°"
#display6 = " Sunny - High: 26° - Feels: 21°"
#display7 = " High: 26° - Feels: 21°"
#
#change to display1 through 7 as required

weather="C|"&forecast_code&"| "&tempf&"º H"&maxtempf&"º\L"&mintempf&"º"

if (curweather ne weather)
RegWriteString("HKCU", "\Software\A_C\S2U2\", "UserWeather", weather)
if (ccode ne curforecast)
wallpaper=wallpaperfolder&ccode&wallpapertype
RegWriteString("HKCU", "\Software\A_C\S2U2\", "Wallpaper", wallpaper)
Run("\Program Files\S2U2\iLock2.exe","-refresh")
endif
endif