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

Output of file : ENS.T contained in archive : ZMSCRIP.ZIP
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
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"
set remotelog "ens"
setc file "\L%z3"
create -s+!W ens/%file%d :: ens/aids0305
set nonews ""
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
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

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

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

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: