home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / ENS.T < prev    next >
Text File  |  1989-11-21  |  2KB  |  80 lines
  1.     echo "ens.t Rev 9-21-89"
  2.     :: Modified 9-9-89 to deal with changed ENS menu structure
  3.     ::
  4.     :: ENS reader - assumes you have set up 1 to 3 folders
  5.     :: assumes pat 20 is carrier lost message, and Compuserve is at
  6.     :: a command prompt which will accept "g ens"
  7.     :: close
  8.     : pv4
  9.     on "20||e>45||!c" echoc "Bad/Lost Connection"; return
  10.     set nonews "x"
  11.     if r w
  12.     ki
  13. restart:    pat
  14.     put "\025g ens\r"
  15.     pat 1i "nter choice !"
  16.     pat 2c "Executive News"
  17.     pat 3l "unavailable"
  18.     set fo ""
  19.     wait -f50
  20.     while "c&&L<3&&!2" put "\025g ens\r" wait -f50
  21.     if 3 put "\025\017" goto ensfin
  22.     if "!1&&!2" echoc "NO MATCH to pattern 1 or 2 !!!!"
  23.     : search for folders with articles in them, parse folder number and name
  24.      : 5 Review folder UFO  (0 stories)
  25.      : 6 Review folder AIDS  (34 stories)
  26.      : 7 Review folder BLAH  (4 stories)
  27. xx:    while "H\([1-9]" ss y "( *)([567]).*folder ([^ ]*) " sets fo "%z2 %z3_%fo" 
  28.     : echoc "folders (fo) =%fo"
  29.     : typical resulting fo = "6 AIDS_7 BLAH_"
  30. folder:    ss fo "([^_]*)_(.*)"    :: split off next folder with article(s)
  31.     if !%z1 goto ensfin    :: check for completion
  32.     set s0 "2"        :: default delete only READ stories
  33.     sets fo "%z2"
  34.     pat 1i "nter choice !"
  35.     ss z1 "(.)( )([^_]*)"    :: separate menu number and folder name
  36.     echoc "menu=%z1 folder name = %z3"
  37.     close
  38.     set remotelog "ens"
  39.     setc file "\L%z3"
  40.     kill
  41.     create -s+!W ens/%file%d    :: ens/aids0305
  42.     set nonews ""
  43.     pat
  44.     pat 1i "\nLast page !"
  45.     pat 2i "\nEnter choice !"
  46.     pat 3i "\n 3 Review Late Breaking News"
  47.     pat 5c "Press <CR> for more !" "\025\r"
  48.     put "\025%z1\r"
  49.     wait -F15
  50.     put "3\r"
  51.     wait -Wf60
  52.     close
  53.     if 3 goto popped
  54.     if 2 set s0 "1"; put "\025%z1\r"; goto oneart
  55.     if "!1" echoc "DIDN'T SEE Last page ! PROMPT"
  56.  
  57.     pat 1i "Last page, enter choice !"
  58.     put "\025\r"
  59.     wait -F15
  60.  
  61. oneart:
  62.     put "\025\E"
  63.     pat 1 "Enter <CR> to retain stories !"
  64.     wait -F20
  65.  
  66.     put "\025%s0\r"
  67.     pat 1 "\nEnter choice !"
  68.     wait -F20
  69.     if 1 goto folder
  70.     put "go cis-1\r"
  71.     goto restart
  72. popped:    echoc "ENS menu returned to ENS-1"
  73.     goto restart
  74. ensfin:    echo "ENS.T Ends"
  75.     if %nonews echo "NO NEWS AT PRESENT."
  76.     :pat 3 "choice number !"
  77.     :put "\025top\r"
  78.     :wait -F20
  79.     return
  80.