home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / dailyrun.zip / PCNEWS.SCR < prev    next >
Text File  |  1993-07-31  |  1KB  |  72 lines
  1.    ONERROR ErrorDrop
  2.    Timeout 120
  3.  
  4.    ; Change $choice to your preference 1=ZIP 2=SIT
  5.    Define $choice 1
  6.  
  7.    Delay 54
  8.  
  9.    SendLn %SLASH "GO ZNT:PCW-1"
  10.    ;Clear screen and begin processing
  11.    CLS
  12.  
  13.  
  14.    LWrite " "
  15.    LWrite "********************************************************"
  16.    LWrite "               PC Week News In Brief                    "
  17.    LWrite "********************************************************"
  18.    LWrite " "
  19.  
  20.    ; Choose PC WEEK News in Brief
  21.    Wait "!"
  22.    SendLn "5"
  23.  
  24.    ; Select transfer type (change $choice variable)
  25.    Wait "!"
  26.    SendLn $choice
  27.  
  28.    Wait "!"
  29.    Send %CR
  30.  
  31.    ; Improve readabity of prompts
  32.    DELAY 40
  33.    LWrite " "
  34.    Delay 50
  35.  
  36.    ; Erase previous version, provide filename
  37.  
  38.    if $choice = "1" gosub ZIP
  39.    if $choice = "2" gosub StuffIt
  40.  
  41.    Timeout 0
  42.  
  43.    ; transfer takes place here
  44.  
  45.    Wait "!"
  46.    Timeout 120
  47.  
  48.    Finish:
  49.    End
  50.  
  51.    ErrorDrop:
  52.    Fail
  53.    ;************************************************************************
  54.  
  55.    StuffIt:
  56.    Erase C:\OZCIS2\DOWNLOAD\PCNEWS.SIT
  57.    SendLn "PCNEWS.SIT"
  58.    Return
  59.  
  60.    ZIP:
  61.    Erase C:\OZCIS2\DOWNLOAD\PCNEWS.ZIP
  62.    SendLn "PCNEWS.ZIP"
  63.    Return
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.