;This script retrieves several weather maps and downloads them to your 
;computer.  You'll need a .GIF viewer to view these files.  You will find 
;several in the GRAPHSUPPORT forum.  

;Feel free to change which maps are to be downloaded.

;This script runs with Autosig which supports the CIS/B protocol.  You 
;will need to make changes if you're using another download protocol. 

w c "!"
"go maps|"
w c "!" 
"1|"            ;select 640 x 480 x 16 colors
w c "more !"

"9|"            ;select "current weather" map

w (-10,-1) "Select Protocol"
"6|"            ;because it's the first download we must select a 
                ;download protocol. We won't be asked on subsequent downloads 

w c "default) :"
"curweath.gif|" ;enter name to give the file, must have .GIF extension

;if not using AUTOSIG you may need to use additonal commands to
;initiate downloading

g *Exist?*      ;gosub *Exist* routine

"10|"            ;select tommorrows weather
w c "default) :"
"tomweath.gif|" ;specify filename
g *Exist?*

"12|"            ;select current temperatures
w c "default) :"
"curtemp.gif|"
g *Exist?*
end

;checks to see if "File already exists" message appears and if so tell 
;CIS to overwrite the file, ELSE it waits until "more !" appears at cursor

*Exist?*
if (+0,0) <> "File already exists" then *Chk1*
"y|"
*Chk1*
if c <> "more !" then *Exist?*
r             ;returns from subroutine

