home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / dailyrun.zip / ZNTODAY.SCR < prev   
Text File  |  1993-07-31  |  724b  |  47 lines
  1.    ONERROR ErrorDrop
  2.  
  3.    Timeout 120
  4.  
  5.    Delay 54
  6.  
  7.    SendLn %SLASH "GO ZNT:ZNT-1"
  8.    ; Clear screen to begin processing
  9.    CLS
  10.  
  11.    LWrite " "
  12.    LWrite "********************************************************"
  13.    LWrite "                 Today On ZiffNet News                  "
  14.    LWrite "********************************************************"
  15.    LWrite " "
  16.  
  17.  
  18.    Wait "!"
  19.    SendLn "Set Brief Off"
  20.    Wait "!"
  21.  
  22.    ; 1=Today on ZiffNet
  23.    SendLn "1"
  24.  
  25.    ; read all stories
  26.    Wait "!"
  27.    SendLn "1,2,3,4,5,6,7,8,9,10"
  28.  
  29.    Capture ON CISMAIL.MSG
  30.    WMH
  31.  
  32.    Wait "Last page!"
  33.    DELAY 25
  34.  
  35.    Capture OFF
  36.    SendLn "Set Brief On"
  37.  
  38.    Finish:
  39.    End
  40.  
  41.    ErrorDrop:
  42.    Fail
  43.  
  44.  
  45.  
  46.  
  47.