Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : ENS.T

echo "ens.t Rev 9-21-89"
:: Modified 9-9-89 to deal with changed ENS menu structure
::
:: ENS reader - assumes you have set up 1 to 3 folders
:: assumes pat 20 is carrier lost message, and Compuserve is at
:: a command prompt which will accept "g ens"
:: close
: pv4
on "20||e>45||!c" echoc "Bad/Lost Connection"; return
set nonews "x"
if r w
ki
restart: pat
put "\025g ens\r"
pat 1i "nter choice !"
pat 2c "Executive News"
pat 3l "unavailable"
set fo ""
wait -f50
while "c&&L<3&&!2" put "\025g ens\r" wait -f50
if 3 put "\025\017" goto ensfin
if "!1&&!2" echoc "NO MATCH to pattern 1 or 2 !!!!"
: search for folders with articles in them, parse folder number and name
: 5 Review folder UFO (0 stories)
: 6 Review folder AIDS (34 stories)
: 7 Review folder BLAH (4 stories)
xx: while "H\([1-9]" ss y "( *)([567]).*folder ([^ ]*) " sets fo "%z2 %z3_%fo"
: echoc "folders (fo) =%fo"
: typical resulting fo = "6 AIDS_7 BLAH_"
folder: ss fo "([^_]*)_(.*)" :: split off next folder with article(s)
if !%z1 goto ensfin :: check for completion
set s0 "2" :: default delete only READ stories
sets fo "%z2"
pat 1i "nter choice !"
ss z1 "(.)( )([^_]*)" :: separate menu number and folder name
echoc "menu=%z1 folder name = %z3"
close
set remotelog "ens"
setc file "\L%z3"
kill
create -s+!W ens/%file%d :: ens/aids0305
set nonews ""
pat
pat 1i "\nLast page !"
pat 2i "\nEnter choice !"
pat 3i "\n 3 Review Late Breaking News"
pat 5c "Press for more !" "\025\r"
put "\025%z1\r"
wait -F15
put "3\r"
wait -Wf60
close
if 3 goto popped
if 2 set s0 "1"; put "\025%z1\r"; goto oneart
if "!1" echoc "DIDN'T SEE Last page ! PROMPT"

pat 1i "Last page, enter choice !"
put "\025\r"
wait -F15

oneart:
put "\025\E"
pat 1 "Enter to retain stories !"
wait -F20

put "\025%s0\r"
pat 1 "\nEnter choice !"
wait -F20
if 1 goto folder
put "go cis-1\r"
goto restart
popped: echoc "ENS menu returned to ENS-1"
goto restart
ensfin: echo "ENS.T Ends"
if %nonews echo "NO NEWS AT PRESENT."
:pat 3 "choice number !"
:put "\025top\r"
:wait -F20
return