home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / dailyrun.zip / APNEWS.SCR next >
Text File  |  1993-07-31  |  998b  |  96 lines
  1.    ONERROR ErrorDrop
  2.    Timeout 90
  3.  
  4.    ; Define variable for user input
  5.    Define $choice
  6.  
  7.    Delay 54
  8.  
  9.    SendLn %SLASH "GO CIS:APO-1"
  10.    ; Clear screen to begin processing
  11.    CLS
  12.  
  13.    LWrite " "
  14.    LWrite "********************************************************"
  15.    LWrite "                  AP News Online                        "
  16.    LWrite "********************************************************"
  17.    LWrite " "
  18.  
  19.  
  20.    ; Wait for CIS prompt
  21.    Wait "!"
  22.    Send %CR
  23.  
  24.    ; Choose Hourly Updates
  25.    Wait "!"
  26.    SendLn "1"
  27.    Wait "MORE !"
  28.  
  29.    ; Prompt for update choice
  30.    Prompt $choice "Which update would you like? <CR> to cancel"
  31.  
  32.    ; terminate script if <CR> entered
  33.    If $choice = "" goto Finish
  34.  
  35.    ; Download recent updates
  36.    SendLn $choice
  37.  
  38.    Capture ON CISMAIL.MSG
  39.    WMH
  40.    wait "!"
  41.    capture OFF
  42.  
  43.    Finish:
  44.    End
  45.  
  46.    ErrorDrop:
  47.    Fail
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.