home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
modem
/
dailyrun.zip
/
WEATHER.SCR
< prev
next >
Wrap
Text File
|
1993-07-31
|
816b
|
56 lines
ONERROR ErrorDrop
timeout 60
; Insert State Summary (SS) and Local Forecast (LF)
; location identifiers here
Define $State "AZ"
Define $City "AZ001"
Delay 54
SendLn %SLASH "GO CIS:WEA-1"
; Clear screen and begin processing
CLS
LWrite " "
LWrite "********************************************************"
LWrite " Local Weather "
LWrite "********************************************************"
LWrite " "
;request State Summary (SS) and Local Forcast (LF)
wait "Enter choice!"
SendLn "SS " $State ";LF " $City
timeout 30
capture ON CISMAIL.MSG
WMH
wait "ID:"
capture OFF
send %CR
finish:
end
ErrorDrop:
Fail