home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / dailyrun.zip / WEATHER.SCR < prev    next >
Text File  |  1993-07-31  |  816b  |  56 lines
  1.    ONERROR ErrorDrop
  2.    timeout 60
  3.  
  4.    ; Insert State Summary (SS) and Local Forecast (LF)
  5.    ; location identifiers here
  6.    Define $State "AZ"
  7.    Define $City "AZ001"
  8.  
  9.    Delay 54
  10.  
  11.    SendLn %SLASH "GO CIS:WEA-1"
  12.    ; Clear screen and begin processing
  13.    CLS
  14.  
  15.    LWrite " "
  16.    LWrite "********************************************************"
  17.    LWrite "                     Local Weather                      "
  18.    LWrite "********************************************************"
  19.    LWrite " "
  20.  
  21.  
  22.    ;request State Summary (SS) and Local Forcast (LF)
  23.    wait "Enter choice!"
  24.    SendLn "SS " $State ";LF " $City
  25.  
  26.    timeout 30
  27.    capture ON CISMAIL.MSG
  28.    WMH
  29.  
  30.    wait "ID:"
  31.    capture OFF
  32.    send %CR
  33.  
  34.    finish:
  35.    end
  36.  
  37.    ErrorDrop:
  38.    Fail
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.