home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / compusrv / otto15 / getmap < prev    next >
Encoding:
Text File  |  1993-01-18  |  1.4 KB  |  51 lines
  1. ;This script retrieves several weather maps and downloads them to your 
  2. ;computer.  You'll need a .GIF viewer to view these files.  You will find 
  3. ;several in the GRAPHSUPPORT forum.  
  4.  
  5. ;Feel free to change which maps are to be downloaded.
  6.  
  7. ;This script runs with Autosig which supports the CIS/B protocol.  You 
  8. ;will need to make changes if you're using another download protocol. 
  9.  
  10. w c "!"
  11. "go maps|"
  12. w c "!" 
  13. "1|"            ;select 640 x 480 x 16 colors
  14. w c "more !"
  15.  
  16. "9|"            ;select "current weather" map
  17.  
  18. w (-10,-1) "Select Protocol"
  19. "6|"            ;because it's the first download we must select a 
  20.                 ;download protocol. We won't be asked on subsequent downloads 
  21.  
  22. w c "default) :"
  23. "curweath.gif|" ;enter name to give the file, must have .GIF extension
  24.  
  25. ;if not using AUTOSIG you may need to use additonal commands to
  26. ;initiate downloading
  27.  
  28. g *Exist?*      ;gosub *Exist* routine
  29.  
  30. "10|"            ;select tommorrows weather
  31. w c "default) :"
  32. "tomweath.gif|" ;specify filename
  33. g *Exist?*
  34.  
  35. "12|"            ;select current temperatures
  36. w c "default) :"
  37. "curtemp.gif|"
  38. g *Exist?*
  39. end
  40.  
  41. ;checks to see if "File already exists" message appears and if so tell 
  42. ;CIS to overwrite the file, ELSE it waits until "more !" appears at cursor
  43.  
  44. *Exist?*
  45. if (+0,0) <> "File already exists" then *Chk1*
  46. "y|"
  47. *Chk1*
  48. if c <> "more !" then *Exist?*
  49. r             ;returns from subroutine
  50.  
  51.